mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-01 12:41:35 +00:00
mboard: logo mockingboard demo is more or less working
This commit is contained in:
parent
a5dd665198
commit
1664868d96
|
@ -8,7 +8,7 @@ LINKER_SCRIPTS = ../../linker_scripts
|
||||||
|
|
||||||
all: mboard_logo.dsk mboard_prodos.dsk
|
all: mboard_logo.dsk mboard_prodos.dsk
|
||||||
|
|
||||||
mboard_logo.dsk: LOGO3 MUSIC
|
mboard_logo.dsk: LOGO3 MUSIC DEMO
|
||||||
cp ../dsks/apple_logo_ii.dsk ./mboard_logo.dsk
|
cp ../dsks/apple_logo_ii.dsk ./mboard_logo.dsk
|
||||||
$(PRODOS) -y mboard_logo.dsk -t BIN -a 0x2000 SAVE LOGO3
|
$(PRODOS) -y mboard_logo.dsk -t BIN -a 0x2000 SAVE LOGO3
|
||||||
$(PRODOS) -y mboard_logo.dsk DELETE FORMAT
|
$(PRODOS) -y mboard_logo.dsk DELETE FORMAT
|
||||||
|
@ -24,7 +24,7 @@ mboard_logo.dsk: LOGO3 MUSIC
|
||||||
# $(PRODOS) -y mboard_logo.dsk DELETE SAMPLES/LOGO.SINGS
|
# $(PRODOS) -y mboard_logo.dsk DELETE SAMPLES/LOGO.SINGS
|
||||||
$(PRODOS) -y mboard_logo.dsk -t BIN -a 0x4C00 SAVE MUSIC
|
$(PRODOS) -y mboard_logo.dsk -t BIN -a 0x4C00 SAVE MUSIC
|
||||||
$(PRODOS) -y mboard_logo.dsk -t BIN -a 0x2000 SAVE ./music/Fret.pt3 FRET.PT3
|
$(PRODOS) -y mboard_logo.dsk -t BIN -a 0x2000 SAVE ./music/Fret.pt3 FRET.PT3
|
||||||
|
$(PRODOS) -y mboard_logo.dsk SAVE -t TXT DEMO
|
||||||
|
|
||||||
mboard_prodos.dsk: MUSIC
|
mboard_prodos.dsk: MUSIC
|
||||||
cp ../dsks/ProDOS_2_4_2.dsk ./mboard_prodos.dsk
|
cp ../dsks/ProDOS_2_4_2.dsk ./mboard_prodos.dsk
|
||||||
|
@ -51,8 +51,8 @@ music.o: music.s \
|
||||||
|
|
||||||
####
|
####
|
||||||
|
|
||||||
#RR: rr.logo
|
DEMO: demo.logo
|
||||||
# $(TEXT_TO_PRODOS) < rr.logo > RR
|
$(TEXT_TO_PRODOS) < demo.logo > DEMO
|
||||||
|
|
||||||
####
|
####
|
||||||
|
|
||||||
|
|
52
logo/mboard/demo.logo
Normal file
52
logo/mboard/demo.logo
Normal file
|
@ -0,0 +1,52 @@
|
||||||
|
TO TTREE :N
|
||||||
|
TPAIR :N
|
||||||
|
RT 45
|
||||||
|
TPAIR :N
|
||||||
|
BK :N * 3
|
||||||
|
END
|
||||||
|
|
||||||
|
TO TPAIR :N
|
||||||
|
TREE :N
|
||||||
|
RT 180
|
||||||
|
TREE :N
|
||||||
|
SETH 0
|
||||||
|
END
|
||||||
|
|
||||||
|
TO TREE :LENGTH
|
||||||
|
IF :LENGTH < 2 [STOP]
|
||||||
|
LEFT 45
|
||||||
|
FORWARD :LENGTH
|
||||||
|
TREE :LENGTH / 2
|
||||||
|
BACK :LENGTH
|
||||||
|
RIGHT 90
|
||||||
|
FORWARD :LENGTH
|
||||||
|
TREE :LENGTH / 2
|
||||||
|
BACK :LENGTH
|
||||||
|
LEFT 45
|
||||||
|
END
|
||||||
|
|
||||||
|
TO SETUP :REF
|
||||||
|
PU SETPOS :REF PD
|
||||||
|
END
|
||||||
|
|
||||||
|
TO CTREE
|
||||||
|
PU
|
||||||
|
MAKE "X ((RANDOM 200) - 100)
|
||||||
|
MAKE "Y ((RANDOM 100) - 50)
|
||||||
|
MAKE "XY SENTENCE :X :Y
|
||||||
|
SETPOS :XY
|
||||||
|
PD
|
||||||
|
TTREE (RANDOM 7) + 4
|
||||||
|
SETBG RANDOM 7
|
||||||
|
END
|
||||||
|
|
||||||
|
TO DEMO
|
||||||
|
CS
|
||||||
|
.BLOAD "FRET.PT3 4096
|
||||||
|
.BLOAD "MUSIC 19456
|
||||||
|
.CALL 19456
|
||||||
|
REPEAT 100 [ CTREE ]
|
||||||
|
END
|
||||||
|
|
||||||
|
MAKE "STARTUP [DEMO]
|
||||||
|
|
|
@ -58,7 +58,8 @@ mockingboard_not_found:
|
||||||
.include "nozp.inc"
|
.include "nozp.inc"
|
||||||
|
|
||||||
|
|
||||||
PT3_LOC = $2000
|
PT3_LOC = $1000
|
||||||
|
;PT3_LOC = $2000
|
||||||
;.align $100
|
;.align $100
|
||||||
song:
|
song:
|
||||||
;.incbin "../../demos/applebot_demo/music/mAZE_-_The_Upbeated_Eaten_Apple.pt3"
|
;.incbin "../../demos/applebot_demo/music/mAZE_-_The_Upbeated_Eaten_Apple.pt3"
|
||||||
|
|
|
@ -254,6 +254,8 @@ done_apple_detect:
|
||||||
; sta $C005
|
; sta $C005
|
||||||
sta $C009 ; return to main memory
|
sta $C009 ; return to main memory
|
||||||
|
|
||||||
|
; manually set IRQ vector as LOGO leaves this with empty AUX pages?
|
||||||
|
|
||||||
lda #$C3
|
lda #$C3
|
||||||
sta $FFFF
|
sta $FFFF
|
||||||
lda #$FA
|
lda #$FA
|
||||||
|
|
Loading…
Reference in New Issue
Block a user