mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-09-02 01:29:06 +00:00
67 lines
987 B
ArmAsm
67 lines
987 B
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
|
|
|
|
;shape_dsr:
|
|
;.byte $2d,$36,$ff,$3f
|
|
;.byte $24,$ad,$22,$24,$94,$21,$2c,$4d
|
|
;.byte $91,$3f,$36,$00
|