dos33fsprogs/basic/appleiibot/4am.s
2021-01-05 23:30:41 -05:00

53 lines
1.1 KiB
ArmAsm

PLOT = $F800 ; plot, horiz=y, vert=A (A trashed, XY Saved)
SETCOL = $F864
TEXT = $FB36 ;; Set text mode
BASCALC = $FBC1
SETGR = $FB40
HOME = $FC58 ;; Clear the text screen
WAIT = $FCA8 ;; delay 1/2(26+27A+5A^2) us
HLINE = $F819
bitmap:
jsr SETGR
ldx #0
bitmap_loop:
lda bitmap_graphic,X
jsr PLOT
inx
cpx #120
bne bitmap_loop
done:
jmp done
bitmap_graphic:
.byte $FF,$FF,$FF,$FF,$FF
.byte $00,$00,$00,$00,$00
.byte $FF,$FF,$FF,$FF,$FF
.byte $00,$00,$00,$00,$00
.byte $FF,$FF,$FF,$FF,$FF
.byte $00,$00,$00,$00,$00
.byte $FF,$FF,$FF,$FF,$FF
.byte $00,$00,$00,$00,$00
.byte $FF,$FF,$FF,$FF,$FF
.byte $00,$00,$00,$00,$00
.byte $FF,$FF,$FF,$FF,$FF
.byte $00,$00,$00,$00,$00
.byte $FF,$FF,$FF,$FF,$FF
.byte $00,$00,$00,$00,$00
.byte $FF,$FF,$FF,$FF,$FF
.byte $00,$00,$00,$00,$00
.byte $FF,$FF,$FF,$FF,$FF
.byte $00,$00,$00,$00,$00
.byte $FF,$FF,$FF,$FF,$FF
.byte $00,$00,$00,$00,$00
.byte $FF,$FF,$FF,$FF,$FF
.byte $00,$00,$00,$00,$00
.byte $FF,$FF,$FF,$FF,$FF
.byte $00,$00,$00,$00,$00