n
/
cardiograph-computer
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

tests - Fix fill-display program: use new assembly syntax

This commit is contained in:
n loewen 2023-08-21 14:40:58 +01:00
parent eaa0597552
commit 97f1d02912
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
test-programs/fill-display.asm
View File

@ -1,24 +1,24 @@
;; Fill display with $FF ;; Fill display with $FF
; updated for 5x5 display ; updated for 5x5 display
=*px $24 #*px $24
=fill $25 #fill $25
; Initialize variables... ; Initialize variables...
LDA $00 ; (Address for the first px on the display) LDA $00 ; (Address for the first px on the display)
STO =*px ; Pointer to current px STO .*px ; Pointer to current px
LDA $FF ; ($FF is 'on', $00 is 'off') LDA $FF ; ($FF is 'on', $00 is 'off')
STO =fill ; Stash value to fill with STO #fill ; Stash value to fill with
@paint @paint
LDA (=fill) ; (A = mem[fill] = $FF) LDA (#fill) ; (A = mem[fill] = $FF)
STO (=*px) ; Paint pixel (mem[mem[*px]] = A = $FF) STO (#*px) ; Paint pixel (mem[mem[*px]] = A = $FF)
LDA (=*px) ; Increment pixel pointer... LDA (#*px) ; Increment pixel pointer...
ADD $01 ADD $01
STO =*px STO #*px
LDA (=*px) ; Test whether to loop or not... LDA (#*px) ; Test whether to loop or not...
SUB $19 ; if *px - $19 == 0, we've reached the end SUB $19 ; if *px - $19 == 0, we've reached the end
FHP 2 ; (Zero flag is #2) FHP 2 ; (Zero flag is #2)
JMP @paint JMP @paint