Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/oled_samsung.asm @ 452:05ec97e106da

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Minor changes: Tp? curve in orange. Ceilling stippled area.
author JeanDo
date Fri, 19 Aug 2011 00:56:27 +0200
parents 07f5b0baaa57
children 472bccc39aeb
comparison
equal deleted inserted replaced
451:f6f818edf333 452:05ec97e106da
129 ;----------------------------------------------------------------------------- 129 ;-----------------------------------------------------------------------------
130 ; Writes a vertical line of half-pixel at position (win_top,win_leftx2,win_height). 130 ; Writes a vertical line of half-pixel at position (win_top,win_leftx2,win_height).
131 ; Inputs: win_leftx2, win_top, win_height, win_color:2 131 ; Inputs: win_leftx2, win_top, win_height, win_color:2
132 ; Trashed: WREG, PROD, TABLAT, TBLPTRL 132 ; Trashed: WREG, PROD, TABLAT, TBLPTRL
133 half_vertical_line: 133 half_vertical_line:
134 clrf TABLAT ; Loop index.
135
136 half_vertical_line_loop:
134 movff win_leftx2,WREG ; Init X position. 137 movff win_leftx2,WREG ; Init X position.
135 mullw 2 138 mullw 2
139 movf TABLAT,W ; Get loop index
140 andlw 1 ; Just low bit
141 xorwf PRODL,F ; And use it to jitter current X position
136 rcall pixel_write_col320 ; Start Address Vertical (.0 - .319) 142 rcall pixel_write_col320 ; Start Address Vertical (.0 - .319)
137 143
138 clrf TABLAT ; Loop index.
139
140 half_vertical_line_loop:
141 movff win_height,WREG ; Index reached height (Bank0 read) ? 144 movff win_height,WREG ; Index reached height (Bank0 read) ?
142 xorwf TABLAT,W 145 xorwf TABLAT,W
143 btfsc STATUS,Z ; Equals ? 146 btfsc STATUS,Z ; Equals ?
144 return ; Yes: done. 147 return ; Yes: done.
145 movff win_top,WREG ; Y = top + index (Bank0 read) 148 movff win_top,WREG ; Y = top + index (Bank0 read)