Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/aa_wordprocessor.asm @ 775:f32b9ad6244c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add 120px HUGE font
author heinrichsweikamp
date Mon, 17 Mar 2014 14:54:17 +0100
parents d68c6a6b1f38
children 2750099bf5bb
comparison
equal deleted inserted replaced
774:fac7710ab84e 775:f32b9ad6244c
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...)