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
; updated for 5x5 display
=*px $24
=fill $25
#*px $24
#fill $25
; Initialize variables...
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')
STO =fill ; Stash value to fill with
STO #fill ; Stash value to fill with
@paint
LDA (=fill) ; (A = mem[fill] = $FF)
STO (=*px) ; Paint pixel (mem[mem[*px]] = A = $FF)
LDA (#fill) ; (A = mem[fill] = $FF)
STO (#*px) ; Paint pixel (mem[mem[*px]] = A = $FF)
LDA (=*px) ; Increment pixel pointer...
LDA (#*px) ; Increment pixel pointer...
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
FHP 2 ; (Zero flag is #2)
JMP @paint