mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-16 07:29:29 +00:00
add snow demo
This commit is contained in:
parent
b4694190f8
commit
f67e2a86dc
BIN
duke/duke.png
BIN
duke/duke.png
Binary file not shown.
Before Width: | Height: | Size: 13 KiB After Width: | Height: | Size: 13 KiB |
23
hgr/Makefile
Normal file
23
hgr/Makefile
Normal file
|
@ -0,0 +1,23 @@
|
||||||
|
include ../Makefile.inc
|
||||||
|
|
||||||
|
DOS33 = ../dos33fs-utils/dos33
|
||||||
|
TOKENIZE = ../asoft_basic-utils/tokenize_asoft
|
||||||
|
|
||||||
|
all: hgr.dsk
|
||||||
|
|
||||||
|
hgr.dsk: SNOW
|
||||||
|
cp empty.dsk hgr.dsk
|
||||||
|
$(DOS33) -y hgr.dsk BSAVE -a 0x0300 SNOW
|
||||||
|
|
||||||
|
###
|
||||||
|
|
||||||
|
SNOW: snow.o
|
||||||
|
ld65 -o SNOW snow.o -C ../linker_scripts/apple2_300.inc
|
||||||
|
|
||||||
|
snow.o: snow.s
|
||||||
|
ca65 -o snow.o snow.s -l snow.lst
|
||||||
|
|
||||||
|
###
|
||||||
|
|
||||||
|
clean:
|
||||||
|
rm -f *~ *.o *.lst SNOW
|
BIN
hgr/empty.dsk
Normal file
BIN
hgr/empty.dsk
Normal file
Binary file not shown.
74
hgr/snow.s
Normal file
74
hgr/snow.s
Normal file
|
@ -0,0 +1,74 @@
|
||||||
|
GBASL = $26
|
||||||
|
GBASH = $27
|
||||||
|
HGRPAGE = $E6
|
||||||
|
|
||||||
|
HGR = $F3E2
|
||||||
|
HGR2 = $F3D8
|
||||||
|
HPOSN = $F411
|
||||||
|
|
||||||
|
snow:
|
||||||
|
jsr HGR
|
||||||
|
|
||||||
|
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 forever
|
||||||
|
|
||||||
|
xhi: .byte $00
|
||||||
|
xlo: .byte 77
|
||||||
|
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
|
||||||
|
|
|
@ -14,6 +14,10 @@ For release 1.0
|
||||||
-- open door to clock puzzle?
|
-- open door to clock puzzle?
|
||||||
-- another stop on path to spaceship. Out of room though :(
|
-- another stop on path to spaceship. Out of room though :(
|
||||||
-- MIST_ROCKET_PATH_PAD probably missing ship-raised background
|
-- MIST_ROCKET_PATH_PAD probably missing ship-raised background
|
||||||
|
-- (reported by user) the generator entrance/path just shows
|
||||||
|
open hand icon so it's unclear you can take the path in
|
||||||
|
addition to entering the generator. Not much we can
|
||||||
|
do about that with the current engine though
|
||||||
|
|
||||||
+ OCTAGON
|
+ OCTAGON
|
||||||
-- animation on the fireplace opening/closing
|
-- animation on the fireplace opening/closing
|
||||||
|
|
Loading…
Reference in New Issue
Block a user