Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/aa_wordprocessor.asm @ 784:46ef1e1388f1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge
author heinrichsweikamp
date Mon, 23 Jun 2014 17:29:59 +0200
parents f32b9ad6244c
children 2750099bf5bb
comparison
equal deleted inserted replaced
783:e57e8045527d 784:46ef1e1388f1
100 movwf TBLPTRH,A 100 movwf TBLPTRH,A
101 bra aa_char_3 101 bra aa_char_3
102 102
103 ; LARGE font --------------------------------------------------------- 103 ; LARGE font ---------------------------------------------------------
104 aa_char_2: 104 aa_char_2:
105 decfsz WREG,A ; This is medium font ???
106 bra aa_char_2a
107
105 ; Font LARGE block: 108 ; Font LARGE block:
106 movlw LOW aa_font90_block 109 movlw LOW aa_font90_block
107 movwf TBLPTRL,A 110 movwf TBLPTRL,A
108 movlw HIGH aa_font90_block 111 movlw HIGH aa_font90_block
109 movwf TBLPTRH,A 112 movwf TBLPTRH,A
113 bra aa_char_3
114
115 ; HUGE font ---------------------------------------------------------
116 aa_char_2a:
117 ; Font HUGE block:
118 movlw LOW aa_font120_block
119 movwf TBLPTRL,A
120 movlw HIGH aa_font120_block
121 movwf TBLPTRH,A
122
110 123
111 ; Execute font block ------------------------------------------------- 124 ; Execute font block -------------------------------------------------
112 aa_char_3: 125 aa_char_3:
113 ; This is safe iff the three fonts are in the same code segment 126 ; This is safe iff the three fonts are in the same code segment
114 ; (and that segment do not span the 64K edge...) 127 ; (and that segment do not span the 64K edge...)