mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-09 07:29:32 +00:00
86 lines
1.1 KiB
ArmAsm
86 lines
1.1 KiB
ArmAsm
; spinning dsr logo
|
|
|
|
dsr_spin:
|
|
ldy #$0
|
|
sty FRAME ; 2
|
|
sty OUR_ROT ; 2
|
|
|
|
iny ; 1 ; set shape table scale to 1
|
|
sty HGR_SCALE ; 2
|
|
|
|
;=========================================
|
|
; MAIN LOOP
|
|
;=========================================
|
|
|
|
main_loop:
|
|
; increment FRAME
|
|
|
|
inc FRAME ; 2
|
|
|
|
;=======================
|
|
; xdraw
|
|
;=======================
|
|
xdraw:
|
|
; setup X and Y co-ords
|
|
|
|
ldy #0 ; XPOSH always 0 for us
|
|
ldx #140
|
|
lda #96
|
|
jsr HPOSN ; X= (y,x) Y=(a)
|
|
|
|
jsr fast_hclr
|
|
|
|
ldx #<shape_dsr ; point to our shape
|
|
ldy #>shape_dsr ; code fits in one page so this doesn't change
|
|
lda OUR_ROT ; set rotation
|
|
|
|
jsr XDRAW0 ; XDRAW 1 AT X,Y
|
|
|
|
jsr flip_page
|
|
|
|
lda FRAME
|
|
lsr
|
|
bcc skip_bigger
|
|
|
|
inc HGR_SCALE ; 2 ; increment scale
|
|
skip_bigger:
|
|
inc OUR_ROT ; 2
|
|
inc OUR_ROT ; 2
|
|
|
|
lda FRAME
|
|
cmp #33 ; 2
|
|
bcc main_loop ; 2
|
|
|
|
ldx #10
|
|
long_wait:
|
|
lda #200
|
|
jsr WAIT
|
|
dex
|
|
bne long_wait
|
|
|
|
rts
|
|
|
|
fast_hclr:
|
|
lda HGR_PAGE
|
|
sta hclr_smc+2
|
|
ldy #0
|
|
hclr_outer:
|
|
tya
|
|
hclr_inner:
|
|
hclr_smc:
|
|
sta $2000,Y
|
|
iny
|
|
bne hclr_inner
|
|
|
|
inc hclr_smc+2
|
|
lda hclr_smc+2
|
|
and #$1f
|
|
bne hclr_outer
|
|
|
|
rts
|
|
|
|
shape_dsr:
|
|
.byte $2d,$36,$ff,$3f
|
|
.byte $24,$ad,$22,$24,$94,$21,$2c,$4d
|
|
.byte $91,$3f,$36,$00
|