dos33fsprogs/graphics/hgr/xdraw/nyan.s

114 lines
2.1 KiB
ArmAsm
Raw Normal View History

2021-05-03 18:24:28 +00:00
; Finish this
; also, lo-res possible?
; zero page
HGR_DX = $D0 ; HGLIN
HGR_DX2 = $D1 ; HGLIN
HGR_DY = $D2 ; HGLIN
HGR_QUADRANT = $D3
HGR_E = $D4
HGR_E2 = $D5
HGR_X = $E0
HGR_X2 = $E1
HGR_Y = $E2
HGR_COLOR = $E4
HGR_HORIZ = $E5
HGR_PAGE = $E6
HGR_SCALE = $E7
HGR_SHAPE_TABLE = $E8
HGR_SHAPE_TABLE2= $E9
HGR_COLLISIONS = $EA
HGR_ROTATION = $F9
; Soft Switches
PAGE0 = $C054
PAGE1 = $C055
; ROM calls
HGR2 = $F3D8
HGR = $F3E2
HPOSN = $F411
XDRAW0 = $F65D
XDRAW1 = $F661
WAIT = $FCA8 ; delay 1/2(26+27A+5A^2) us
RESTORE = $FF3F
nyan:
;6ROT=0:SCALE=5:P=49236:HGR:HGR2:GOSUB8:Q=1:POKE230,32:GOSUB8
jsr HGR
jsr HGR2 ; Hi-res, full screen ; 3
; Y=0, A=0 after this call
lda #5 ; scale=5
sta HGR_SCALE
jsr eight
; Q=1 (draw to next page)
; move hgr page from $40 to $20
lda #$20
sta HGR_PAGE
jsr eight
seven:
bit PAGE0
lda #100
jsr WAIT
bit PAGE1
lda #100
jsr WAIT
jmp seven
eight:
; A and Y are 0 here.
; X is left behind by the boot process?
ldy #0
ldx #134
lda #102
jsr HPOSN ; set screen position to X= (y,x) Y=(a)
; saves X,Y,A to zero page
; after Y= orig X/7
; A and X are ??
ldx #<nyan_shape ; point to bottom byte of shape address
ldy #>nyan_shape ; point to top byte of shape address
; ROT in A
; this will be 0 2nd time through loop, arbitrary otherwise
lda #0 ; ROT=0
jsr XDRAW0 ; XDRAW 1 AT X,Y
; Both A and X are 0 at exit
; Z flag set on exit
; Y varies
;8C=5:Y=80:XDRAW1AT134,102+Q*2:GOSUB9:C=1:GOSUB9:C=6:GOSUB9:C=2
nine:
;9HCOLOR=C:FORZ=YTOY+5:FORX=0TO13:Q=NOTQ:HPLOTX*8,Z+QTOX*8+7,Z+Q:NEXTX,Z:Y=Z
rts
nyan_shape:
.byte "$,.,6>???$$--5",0