mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-25 09:29:35 +00:00
114 lines
2.1 KiB
ArmAsm
114 lines
2.1 KiB
ArmAsm
; 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
|