mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-26 00:29:29 +00:00
appleiibot: add appleiibot.dsk image
This commit is contained in:
Vince Weaver
parent
f67e2a86dc
commit
62858a0c57
|
|
@ -11,7 +11,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS \
|
|||
RASTER4.BAS RASTER5.BAS PUMPKIN.BAS PUMPKIN_SMALL.BAS LADY.BAS \
|
||||
A2.BAS FOURAM.BAS FLOPPY.BAS QR.BAS A2_4EVER.BAS RLE.BAS RLE2.BAS \
|
||||
RLEASM.BAS HORIZON.BAS FLYER.BAS STAR.BAS HYPER.BAS FASTAR.BAS \
|
||||
FASTAR2.BAS FASTAR2 BIN.BAS FALLING.BAS
|
||||
FASTAR2.BAS FASTAR2 BIN.BAS FALLING.BAS SNOW.BAS
|
||||
cp empty.dsk appleiibot.dsk
|
||||
$(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD
|
||||
$(DOS33) -y appleiibot.dsk BSAVE -a 0x0C00 FASTAR2
|
||||
|
|
@ -51,6 +51,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS \
|
|||
$(DOS33) -y appleiibot.dsk SAVE A FASTAR2.BAS
|
||||
$(DOS33) -y appleiibot.dsk SAVE A BIN.BAS
|
||||
$(DOS33) -y appleiibot.dsk SAVE A FALLING.BAS
|
||||
$(DOS33) -y appleiibot.dsk SAVE A SNOW.BAS
|
||||
|
||||
###
|
||||
|
||||
|
|
@ -128,6 +129,11 @@ NYAN.BAS: nyan.bas
|
|||
FALLING.BAS: falling.bas
|
||||
$(TOKENIZE) < falling.bas > FALLING.BAS
|
||||
|
||||
####
|
||||
|
||||
SNOW.BAS: snow.bas
|
||||
$(TOKENIZE) < snow.bas > SNOW.BAS
|
||||
|
||||
|
||||
####
|
||||
|
||||
|
|
|
|||
BIN
appleiibot/appleiibot.dsk
Normal file
BIN
appleiibot/appleiibot.dsk
Normal file
Binary file not shown.
2
appleiibot/snow.bas
Normal file
2
appleiibot/snow.bas
Normal file
|
|
@ -0,0 +1,2 @@
|
|||
1REM(V\J A_)Y4!+5P1YT!+5P!Y(\\J%A_Y_I_A_RHD!J A_H H@I_($]I_O7 D)ZRF*"\]I_I_X#D!&:!T .Z!A_Y_Q_\JTS 0 #& <! 08 3& , <! 9,!0 ,!/!0 ,?0!,!< ?!,!<' &#># 80 P1A,A2 *>W:&!$)H!A5G !4.1D,9).P ! #P! !#C(A+A,2,RP -
|
||||
2FORI=0TO165:C%=(PEEK(2219+I/3)-32)/4^(I-INT(I/3)*3):POKE768+I,C%+4*(PEEK(2054+I)-32-INT(C%/4)):NEXT:CALL768
|
||||
50
hgr/snow.s
50
hgr/snow.s
|
|
@ -2,12 +2,57 @@ GBASL = $26
|
|||
GBASH = $27
|
||||
HGRPAGE = $E6
|
||||
|
||||
PAGE0 = $C054
|
||||
PAGE1 = $C055
|
||||
|
||||
HGR = $F3E2
|
||||
HGR2 = $F3D8
|
||||
HPOSN = $F411
|
||||
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
|
||||
|
|
@ -50,10 +95,11 @@ dir_smc:
|
|||
jmp snow_loop
|
||||
|
||||
forever:
|
||||
jmp forever
|
||||
jmp move_snow
|
||||
|
||||
xhi: .byte $00
|
||||
xlo: .byte 77
|
||||
ybase: .byte 100
|
||||
ylo: .byte 100
|
||||
line: .byte 23
|
||||
|
||||
|
|
|
|||
120
hgr/snow2.s
Normal file
120
hgr/snow2.s
Normal file
|
|
@ -0,0 +1,120 @@
|
|||
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
|
||||
|
||||
Loading…
Reference in New Issue
Block a user