mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-04 05:05:13 +00:00
58 lines
649 B
ArmAsm
58 lines
649 B
ArmAsm
|
GBASL = $26
|
||
|
|
GBASH = $27
|
||
|
|
HGRPAGE = $E6
|
||
|
|
|
||
|
|
XX = $FE
|
||
|
|
YY = $FF
|
||
|
|
|
||
|
|
PAGE0 = $C054
|
||
|
|
PAGE1 = $C055
|
||
|
|
|
||
|
|
HGR = $F3E2
|
||
|
|
HGR2 = $F3D8
|
||
|
|
HCLR = $F3F2
|
||
|
|
HPOSN = $F411 ;; (Y,X) = X, A = Y
|
||
|
|
;; line addr in GBASL/GBASH
|
||
|
|
;; with offset in HGR.HORIZ, Y
|
||
|
|
WAIT = $FCA8 ;; delay 1/2(26+27A+5A^2) us
|
||
|
|
|
||
|
|
sprite:
|
||
|
|
jsr HGR ; clear page0
|
||
|
|
jsr HGR2 ; clear page1
|
||
|
|
; HGR page now $40
|
||
|
|
|
||
|
|
lda #50
|
||
|
|
sta XX
|
||
|
|
sta YY
|
||
|
|
|
||
|
|
move_sprite:
|
||
|
|
|
||
|
|
draw_sprite:
|
||
|
|
|
||
|
|
ldy #0
|
||
|
|
ldx XX
|
||
|
|
lda YY
|
||
|
|
|
||
|
|
jsr HPOSN
|
||
|
|
|
||
|
|
; ldy #0
|
||
|
|
lda (GBASL),Y
|
||
|
|
eor #$7f
|
||
|
|
sta (GBASL),Y
|
||
|
|
iny
|
||
|
|
lda (GBASL),Y
|
||
|
|
eor #$7f
|
||
|
|
sta (GBASL),Y
|
||
|
|
|
||
|
|
inc XX
|
||
|
|
inc YY
|
||
|
|
lda YY
|
||
|
|
cmp #190
|
||
|
|
bcc no_oflo
|
||
|
|
lda #0
|
||
|
|
sta YY
|
||
|
|
no_oflo:
|
||
|
|
|
||
|
|
|
||
|
|
jmp move_sprite
|