mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-10-31 10:13:35 +00:00
a1732840d1
also fix bug in text demo, whole problem of shared asm includes
121 lines
1.4 KiB
ArmAsm
121 lines
1.4 KiB
ArmAsm
GBASL = $26
|
|
GBASH = $27
|
|
HGRPAGE = $E6
|
|
|
|
PAGE0 = $C054
|
|
PAGE1 = $C055
|
|
|
|
HGR = $F3E2
|
|
HGR2 = $F3D8
|
|
HCLR = $F3F2
|
|
HPOSN = $F411
|
|
WAIT = $FCA8 ;; delay 1/2(26+27A+5A^2) us
|
|
|
|
snow:
|
|
jsr HGR
|
|
jsr HGR2
|
|
lda #0
|
|
sta ybase
|
|
lda #$20
|
|
sta HGRPAGE
|
|
|
|
move_snow:
|
|
lda HGRPAGE
|
|
cmp #$20
|
|
beq show_page1
|
|
show_page2:
|
|
bit PAGE1
|
|
lsr HGRPAGE
|
|
bne doit
|
|
|
|
show_page1:
|
|
bit PAGE0
|
|
asl HGRPAGE
|
|
|
|
doit:
|
|
jsr HCLR
|
|
|
|
lda #<flake
|
|
sta ll_smc+1
|
|
|
|
lda #$18
|
|
sta c_smc
|
|
lda #$69
|
|
sta dir_smc
|
|
lda #23
|
|
sta line
|
|
|
|
inc ybase
|
|
lda ybase
|
|
sta ylo
|
|
cmp #160
|
|
bne snow_loop
|
|
|
|
lda #0
|
|
sta ybase
|
|
|
|
snow_loop:
|
|
ldy xhi
|
|
ldx xlo
|
|
lda ylo
|
|
jsr HPOSN
|
|
|
|
ldx #0
|
|
line_loop:
|
|
ll_smc:
|
|
lda flake,X
|
|
sta (GBASL),Y
|
|
|
|
inx
|
|
iny
|
|
cpx #6
|
|
bne line_loop
|
|
|
|
lda ll_smc+1
|
|
c_smc:
|
|
clc
|
|
dir_smc:
|
|
adc #6
|
|
sta ll_smc+1
|
|
|
|
inc ylo
|
|
dec line
|
|
beq forever
|
|
|
|
lda line
|
|
cmp #12
|
|
bne snow_loop
|
|
|
|
lda #$E9 ; sbc imm
|
|
sta dir_smc
|
|
|
|
lda #$38 ; sec
|
|
sta c_smc
|
|
|
|
jmp snow_loop
|
|
|
|
forever:
|
|
jmp move_snow
|
|
|
|
xhi: .byte $00
|
|
xlo: .byte 77
|
|
ybase: .byte 100
|
|
ylo: .byte 100
|
|
line: .byte 23
|
|
|
|
|
|
flake:
|
|
.byte $00,$00,$40,$01,$00,$00
|
|
.byte $00,$00,$0C,$18,$00,$00
|
|
.byte $00,$00,$70,$07,$00,$00
|
|
.byte $00,$00,$43,$61,$00,$00
|
|
.byte $00,$00,$4C,$19,$00,$00
|
|
.byte $33,$00,$70,$07,$00,$66
|
|
.byte $30,$06,$40,$01,$30,$06
|
|
.byte $3f,$06,$40,$01,$30,$7e
|
|
.byte $40,$07,$30,$06,$70,$01
|
|
.byte $7c,$07,$30,$06,$70,$1f
|
|
.byte $00,$18,$0F,$78,$0C,$00
|
|
.byte $00,$60,$40,$01,$03,$00
|
|
|