mirror of
https://github.com/digarok/festro.git
synced 2024-06-01 21:41:33 +00:00
started some final cleanup
This commit is contained in:
parent
e09226657b
commit
1da09e7561
536
festro.s
536
festro.s
|
@ -34,7 +34,6 @@ srcPtrD equz $06
|
||||||
jsr InitState
|
jsr InitState
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
**************************************************
|
**************************************************
|
||||||
* Main Demo Controller
|
* Main Demo Controller
|
||||||
**************************************************
|
**************************************************
|
||||||
|
@ -48,8 +47,6 @@ DemoMain
|
||||||
bra :mainLoop
|
bra :mainLoop
|
||||||
|
|
||||||
DemoSubroutineTable
|
DemoSubroutineTable
|
||||||
* dw HandleKfestLogo
|
|
||||||
|
|
||||||
dw HandleProdrop
|
dw HandleProdrop
|
||||||
dw HandleScan01
|
dw HandleScan01
|
||||||
dw HandleTextClear
|
dw HandleTextClear
|
||||||
|
@ -156,7 +153,7 @@ HandleFinalScreen
|
||||||
bra :store
|
bra :store
|
||||||
:blink inc DSEG0
|
:blink inc DSEG0
|
||||||
lda #" "
|
lda #" "
|
||||||
:store sta Lo19+23
|
:store sta Lo21+23
|
||||||
bra :chkKey
|
bra :chkKey
|
||||||
:chkKey lda KEY
|
:chkKey lda KEY
|
||||||
cmp #$80
|
cmp #$80
|
||||||
|
@ -239,94 +236,10 @@ HandleGreetScroll
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
ScrollRightUp
|
|
||||||
ldx #22 , x start
|
|
||||||
|
|
||||||
:loop lda Lo02,x
|
|
||||||
sta Lo01,x
|
|
||||||
lda Lo03,x
|
|
||||||
sta Lo02,x
|
|
||||||
lda Lo04,x
|
|
||||||
sta Lo03,x
|
|
||||||
lda Lo05,x
|
|
||||||
sta Lo04,x
|
|
||||||
lda Lo06,x
|
|
||||||
sta Lo05,x
|
|
||||||
lda Lo07,x
|
|
||||||
sta Lo06,x
|
|
||||||
lda Lo08,x
|
|
||||||
sta Lo07,x
|
|
||||||
lda Lo09,x
|
|
||||||
sta Lo08,x
|
|
||||||
lda Lo10,x
|
|
||||||
sta Lo09,x
|
|
||||||
lda Lo11,x
|
|
||||||
sta Lo10,x
|
|
||||||
lda Lo12,x
|
|
||||||
sta Lo11,x
|
|
||||||
lda Lo13,x
|
|
||||||
sta Lo12,x
|
|
||||||
lda Lo14,x
|
|
||||||
sta Lo13,x
|
|
||||||
lda Lo15,x
|
|
||||||
sta Lo14,x
|
|
||||||
lda Lo16,x
|
|
||||||
sta Lo15,x
|
|
||||||
lda Lo17,x
|
|
||||||
sta Lo16,x
|
|
||||||
lda Lo18,x
|
|
||||||
sta Lo17,x
|
|
||||||
lda Lo19,x
|
|
||||||
sta Lo18,x
|
|
||||||
lda Lo20,x
|
|
||||||
sta Lo19,x
|
|
||||||
lda Lo21,x
|
|
||||||
sta Lo20,x
|
|
||||||
lda Lo22,x
|
|
||||||
sta Lo21,x
|
|
||||||
lda Lo23,x
|
|
||||||
sta Lo22,x
|
|
||||||
lda Lo24,x
|
|
||||||
sta Lo23,x
|
|
||||||
lda #" "
|
|
||||||
sta Lo24,x
|
|
||||||
inx
|
|
||||||
cpx #40
|
|
||||||
beq :done
|
|
||||||
jmp :loop
|
|
||||||
:done rts
|
|
||||||
|
|
||||||
_creditScrollTick db #$00
|
_creditScrollTick db #$00
|
||||||
_creditScrollCounter db #$00
|
_creditScrollCounter db #$00
|
||||||
_creditStringIdx db #$00
|
_creditStringIdx db #$00
|
||||||
|
|
||||||
_cwoz asc "Woz",00
|
|
||||||
_c2 asc "Brutal Deluxe",00
|
|
||||||
_c3 asc "Belgo",00
|
|
||||||
_c4 asc "BLuRry",00
|
|
||||||
_c5 asc "krUe",00
|
|
||||||
_c6 asc "Ninjaforce",00
|
|
||||||
_c7 asc "FTA",00
|
|
||||||
_c8 asc "RedHot ;)",00
|
|
||||||
_c9 asc "ECC",00
|
|
||||||
_c10 asc "antoine",00
|
|
||||||
_c11 asc "MJM",00
|
|
||||||
_c12 asc "Gamebits/JuicedGS",00
|
|
||||||
_c13 asc "KFest Organizers",00
|
|
||||||
_c14 asc " Presenters",00
|
|
||||||
_c15 asc " Attendees",00
|
|
||||||
_c16 asc " AND YOU!",00
|
|
||||||
_c17 asc "THANKS",00
|
|
||||||
_c18 asc " FOR",00
|
|
||||||
_c19 asc " WATCHING",00
|
|
||||||
_cblank asc "",00
|
|
||||||
|
|
||||||
_creditStringsTable
|
|
||||||
da _c2,_c3,_c4,_c5,_c6,_c7,_c8,_c9,_c10
|
|
||||||
da _c11,_c12,_cblank,_c13,_c14,_c15,_cblank
|
|
||||||
da _c16,_cblank,_cblank,_c17,_c18,_c19
|
|
||||||
da _cblank,_cblank,_cblank,_cblank,_cblank
|
|
||||||
dw 0000
|
|
||||||
|
|
||||||
HandleMapScroll
|
HandleMapScroll
|
||||||
ldx #WorldMapWidth-40
|
ldx #WorldMapWidth-40
|
||||||
|
@ -451,6 +364,7 @@ _defaultStarSpeed equ #$10
|
||||||
lda #$1e
|
lda #$1e
|
||||||
:speedUp ldx #5
|
:speedUp ldx #5
|
||||||
pha
|
pha
|
||||||
|
ldy #0 ; nosong
|
||||||
jsr StarScrollAuto
|
jsr StarScrollAuto
|
||||||
pla
|
pla
|
||||||
dec
|
dec
|
||||||
|
@ -459,6 +373,7 @@ _defaultStarSpeed equ #$10
|
||||||
* full speed
|
* full speed
|
||||||
ldx #50
|
ldx #50
|
||||||
lda #_defaultStarSpeed
|
lda #_defaultStarSpeed
|
||||||
|
ldy #0 ; nosong
|
||||||
jsr StarScrollAuto
|
jsr StarScrollAuto
|
||||||
|
|
||||||
* --- diga
|
* --- diga
|
||||||
|
@ -466,6 +381,7 @@ _defaultStarSpeed equ #$10
|
||||||
:loop phx
|
:loop phx
|
||||||
lda #_defaultStarSpeed ; waitfirst
|
lda #_defaultStarSpeed ; waitfirst
|
||||||
jsr SimplerWait
|
jsr SimplerWait
|
||||||
|
jsr VBlank
|
||||||
jsr ScrollLeft
|
jsr ScrollLeft
|
||||||
jsr GenStarRight
|
jsr GenStarRight
|
||||||
plx
|
plx
|
||||||
|
@ -480,6 +396,7 @@ _defaultStarSpeed equ #$10
|
||||||
lda #_defaultStarSpeed
|
lda #_defaultStarSpeed
|
||||||
:slowDown ldx #1
|
:slowDown ldx #1
|
||||||
pha
|
pha
|
||||||
|
ldy #0 ; nosong
|
||||||
jsr StarScrollAuto
|
jsr StarScrollAuto
|
||||||
pla
|
pla
|
||||||
inc
|
inc
|
||||||
|
@ -488,17 +405,15 @@ _defaultStarSpeed equ #$10
|
||||||
inc
|
inc
|
||||||
cmp #8*4+#_defaultStarSpeed
|
cmp #8*4+#_defaultStarSpeed
|
||||||
bne :slowDown
|
bne :slowDown
|
||||||
jsr SErandStatic
|
lda #$30
|
||||||
jsr SErandStatic
|
jsr SimplerWait
|
||||||
jsr SErandStatic
|
|
||||||
jsr SErandStatic
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
* speed up again
|
* speed up again
|
||||||
|
|
||||||
lda #$1e
|
lda #_defaultStarSpeed+5
|
||||||
:speedUpAgain ldx #3
|
:speedUpAgain ldx #2
|
||||||
pha
|
pha
|
||||||
jsr StarScrollAuto
|
jsr StarScrollAuto
|
||||||
pla
|
pla
|
||||||
|
@ -506,20 +421,31 @@ _defaultStarSpeed equ #$10
|
||||||
cmp #_defaultStarSpeed
|
cmp #_defaultStarSpeed
|
||||||
bne :speedUpAgain ;)
|
bne :speedUpAgain ;)
|
||||||
|
|
||||||
ldx #80
|
ldx #220
|
||||||
lda #_defaultStarSpeed
|
lda #_defaultStarSpeed
|
||||||
|
ldy #1 ;SONG
|
||||||
jsr StarScrollAuto
|
jsr StarScrollAuto
|
||||||
|
|
||||||
* second loop inserts planet
|
* second loop inserts planet
|
||||||
ldx #EarthTextWidth
|
ldx #EarthTextWidth
|
||||||
:loop2 phx
|
:loop2 phx
|
||||||
|
jsr VBlank
|
||||||
jsr ScrollLeft
|
jsr ScrollLeft
|
||||||
jsr GenStarRight
|
jsr GenStarRight
|
||||||
lda _earthOffset
|
lda _earthOffset
|
||||||
jsr DrawEarthLine
|
jsr DrawEarthLine
|
||||||
inc _earthOffset
|
inc _earthOffset
|
||||||
lda #_defaultStarSpeed
|
lda #_defaultStarSpeed
|
||||||
jsr SimplerWait
|
|
||||||
|
pha
|
||||||
|
phx
|
||||||
|
phy
|
||||||
|
ldx #$30
|
||||||
|
jsr PlaySong01Note
|
||||||
|
ply
|
||||||
|
plx
|
||||||
|
pla
|
||||||
|
;jsr SimplerWait
|
||||||
plx
|
plx
|
||||||
dex
|
dex
|
||||||
bne :loop2
|
bne :loop2
|
||||||
|
@ -527,8 +453,10 @@ _defaultStarSpeed equ #$10
|
||||||
lda #_defaultStarSpeed
|
lda #_defaultStarSpeed
|
||||||
:slowDownAgain ldx #1
|
:slowDownAgain ldx #1
|
||||||
pha
|
pha
|
||||||
|
ldy #1
|
||||||
jsr StarScrollAuto
|
jsr StarScrollAuto
|
||||||
pla
|
pla
|
||||||
|
jsr SimplerWait ; extra wait uhg
|
||||||
inc
|
inc
|
||||||
inc
|
inc
|
||||||
cmp #$28
|
cmp #$28
|
||||||
|
@ -540,148 +468,29 @@ _defaultStarSpeed equ #$10
|
||||||
jmp DemoMain
|
jmp DemoMain
|
||||||
_earthOffset db #$00
|
_earthOffset db #$00
|
||||||
|
|
||||||
* A = wait , X = reps
|
* A = wait , X = reps, y=snd
|
||||||
StarScrollAuto
|
StarScrollAuto
|
||||||
|
sty _starScrollSound
|
||||||
sta _starScrollAutoWait
|
sta _starScrollAutoWait
|
||||||
:loop phx
|
:loop phx
|
||||||
|
jsr VBlank
|
||||||
jsr ScrollLeft
|
jsr ScrollLeft
|
||||||
jsr GenStarRight
|
jsr GenStarRight
|
||||||
|
ldy _starScrollSound
|
||||||
|
beq :noSong
|
||||||
|
ldx #$0F
|
||||||
|
jsr PlaySong01Note
|
||||||
|
bra :skipWait
|
||||||
|
:noSong
|
||||||
lda _starScrollAutoWait
|
lda _starScrollAutoWait
|
||||||
jsr SimplerWait
|
jsr SimplerWait
|
||||||
plx
|
:skipWait plx
|
||||||
dex
|
dex
|
||||||
bne :loop
|
bne :loop
|
||||||
rts
|
rts
|
||||||
_starScrollAutoWait db 0
|
_starScrollAutoWait db 0
|
||||||
|
_starScrollSound db 0
|
||||||
|
|
||||||
* Always draws a line on the right
|
|
||||||
_drawEarthLineXOffset equ #39
|
|
||||||
DrawEarthLine
|
|
||||||
tax
|
|
||||||
lda EarthTextWidth*0+EarthText,x
|
|
||||||
sta Lo07+_drawEarthLineXOffset
|
|
||||||
lda EarthTextWidth*1+EarthText,x
|
|
||||||
sta Lo08+_drawEarthLineXOffset
|
|
||||||
lda EarthTextWidth*2+EarthText,x
|
|
||||||
sta Lo09+_drawEarthLineXOffset
|
|
||||||
lda EarthTextWidth*3+EarthText,x
|
|
||||||
sta Lo10+_drawEarthLineXOffset
|
|
||||||
lda EarthTextWidth*4+EarthText,x
|
|
||||||
sta Lo11+_drawEarthLineXOffset
|
|
||||||
lda EarthTextWidth*5+EarthText,x
|
|
||||||
sta Lo12+_drawEarthLineXOffset
|
|
||||||
lda EarthTextWidth*6+EarthText,x
|
|
||||||
sta Lo13+_drawEarthLineXOffset
|
|
||||||
lda EarthTextWidth*7+EarthText,x
|
|
||||||
sta Lo14+_drawEarthLineXOffset
|
|
||||||
lda EarthTextWidth*8+EarthText,x
|
|
||||||
sta Lo15+_drawEarthLineXOffset
|
|
||||||
lda EarthTextWidth*9+EarthText,x
|
|
||||||
sta Lo16+_drawEarthLineXOffset
|
|
||||||
rts
|
|
||||||
|
|
||||||
GenStarRight
|
|
||||||
_maxStarHeight equ #24
|
|
||||||
:loop jsr GetRand
|
|
||||||
cmp #_maxStarHeight
|
|
||||||
bge :loop
|
|
||||||
:gotMinSize rol ; *2 for table lookup
|
|
||||||
tax
|
|
||||||
lda LoLineTable,x
|
|
||||||
sta dstPtr
|
|
||||||
lda LoLineTable+1,x
|
|
||||||
sta dstPtr+1
|
|
||||||
ldy #39
|
|
||||||
lda #"."
|
|
||||||
sta (dstPtr),y
|
|
||||||
rts
|
|
||||||
|
|
||||||
ScrollLeft
|
|
||||||
pha
|
|
||||||
phx
|
|
||||||
ldx #0
|
|
||||||
:loop lda Lo01+1,x
|
|
||||||
sta Lo01,x
|
|
||||||
lda Lo02+1,x
|
|
||||||
sta Lo02,x
|
|
||||||
lda Lo03+1,x
|
|
||||||
sta Lo03,x
|
|
||||||
lda Lo04+1,x
|
|
||||||
sta Lo04,x
|
|
||||||
lda Lo05+1,x
|
|
||||||
sta Lo05,x
|
|
||||||
lda Lo06+1,x
|
|
||||||
sta Lo06,x
|
|
||||||
lda Lo07+1,x
|
|
||||||
sta Lo07,x
|
|
||||||
lda Lo08+1,x
|
|
||||||
sta Lo08,x
|
|
||||||
lda Lo09+1,x
|
|
||||||
sta Lo09,x
|
|
||||||
lda Lo10+1,x
|
|
||||||
sta Lo10,x
|
|
||||||
lda Lo11+1,x
|
|
||||||
sta Lo11,x
|
|
||||||
lda Lo12+1,x
|
|
||||||
sta Lo12,x
|
|
||||||
lda Lo13+1,x
|
|
||||||
sta Lo13,x
|
|
||||||
lda Lo14+1,x
|
|
||||||
sta Lo14,x
|
|
||||||
lda Lo15+1,x
|
|
||||||
sta Lo15,x
|
|
||||||
lda Lo16+1,x
|
|
||||||
sta Lo16,x
|
|
||||||
lda Lo17+1,x
|
|
||||||
sta Lo17,x
|
|
||||||
lda Lo18+1,x
|
|
||||||
sta Lo18,x
|
|
||||||
lda Lo19+1,x
|
|
||||||
sta Lo19,x
|
|
||||||
lda Lo20+1,x
|
|
||||||
sta Lo20,x
|
|
||||||
lda Lo21+1,x
|
|
||||||
sta Lo21,x
|
|
||||||
lda Lo22+1,x
|
|
||||||
sta Lo22,x
|
|
||||||
lda Lo23+1,x
|
|
||||||
sta Lo23,x
|
|
||||||
lda Lo24+1,x
|
|
||||||
sta Lo24,x
|
|
||||||
inx
|
|
||||||
cpx #39
|
|
||||||
beq :done
|
|
||||||
|
|
||||||
jmp :loop
|
|
||||||
:done lda #" "
|
|
||||||
sta Lo01,x
|
|
||||||
sta Lo02,x
|
|
||||||
sta Lo03,x
|
|
||||||
sta Lo04,x
|
|
||||||
sta Lo05,x
|
|
||||||
sta Lo06,x
|
|
||||||
sta Lo07,x
|
|
||||||
sta Lo08,x
|
|
||||||
sta Lo09,x
|
|
||||||
sta Lo10,x
|
|
||||||
sta Lo11,x
|
|
||||||
sta Lo12,x
|
|
||||||
sta Lo13,x
|
|
||||||
sta Lo14,x
|
|
||||||
sta Lo15,x
|
|
||||||
sta Lo16,x
|
|
||||||
sta Lo17,x
|
|
||||||
sta Lo18,x
|
|
||||||
sta Lo19,x
|
|
||||||
sta Lo20,x
|
|
||||||
sta Lo21,x
|
|
||||||
sta Lo22,x
|
|
||||||
sta Lo23,x
|
|
||||||
sta Lo24,x
|
|
||||||
plx
|
|
||||||
pla
|
|
||||||
rts
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
HandleLoResInit
|
HandleLoResInit
|
||||||
|
@ -1090,6 +899,7 @@ DrawStringXYWait
|
||||||
|
|
||||||
lda _drawWait
|
lda _drawWait
|
||||||
jsr SimplerWait
|
jsr SimplerWait
|
||||||
|
jsr VBlank
|
||||||
bra :loop
|
bra :loop
|
||||||
:done ply
|
:done ply
|
||||||
plx
|
plx
|
||||||
|
@ -1324,31 +1134,20 @@ _boxY equ #14
|
||||||
beq :doneBox
|
beq :doneBox
|
||||||
lda #$10
|
lda #$10
|
||||||
jsr SimplerWait
|
jsr SimplerWait
|
||||||
|
lda _boxNote ; sound code
|
||||||
|
ldx #10
|
||||||
|
jsr SENoteAX
|
||||||
|
lda #$10
|
||||||
|
sec
|
||||||
|
sbc _boxNote
|
||||||
|
sta _boxNote
|
||||||
|
jsr VBlank
|
||||||
bra :boxExpandLoop
|
bra :boxExpandLoop
|
||||||
:doneBox
|
:doneBox stz _boxNote ;reset
|
||||||
rts
|
rts
|
||||||
|
_boxNote db 0
|
||||||
_gapCounter db 0
|
_gapCounter db 0
|
||||||
|
|
||||||
_boxStrTop asc " _______________________ ",00
|
|
||||||
_boxStrMid asc "| |",00
|
|
||||||
_boxStrBot asc "|_______________________|",00
|
|
||||||
_scanStr01 asc "STATUS:",00
|
|
||||||
_scanStr08 asc "SCANNING",00
|
|
||||||
_scanStr08b asc " ",00
|
|
||||||
_scanStr09 asc "KCMO",00
|
|
||||||
_scanStr09b asc " .-",00 ;lol
|
|
||||||
_scanStr02 asc "LOCATED",00
|
|
||||||
_scanStr03 asc "Virgo Supergroup,",00
|
|
||||||
_scanStr04 asc "Local Group,",00
|
|
||||||
_scanStr05 asc "Milky Way,",00
|
|
||||||
_scanStr06 asc "Earth",00
|
|
||||||
_scanStr07 asc "Scan Surface",00
|
|
||||||
_scanStr19 asc "Apple // Event Located",00
|
|
||||||
_scanStr20 asc "BEGIN THERMAL SCAN!",00
|
|
||||||
_scanStr20b asc " ",00
|
|
||||||
_scanningString asc "Status: Scanning surface.",00
|
|
||||||
_digawriteString asc " an intro by DiGAROK ",00
|
|
||||||
|
|
||||||
HandleShortWait
|
HandleShortWait
|
||||||
lda #$30
|
lda #$30
|
||||||
|
@ -1366,16 +1165,6 @@ HandleMedWait
|
||||||
inc GDemoState
|
inc GDemoState
|
||||||
jmp DemoMain
|
jmp DemoMain
|
||||||
|
|
||||||
SetProdropGr
|
|
||||||
lda #$00
|
|
||||||
bra SetProdropChar
|
|
||||||
SetProdropText
|
|
||||||
lda #" "
|
|
||||||
SetProdropChar
|
|
||||||
sta ]dropCharCompare
|
|
||||||
sta ]dropCharWrite
|
|
||||||
inc GDemoState
|
|
||||||
jmp DemoMain
|
|
||||||
|
|
||||||
|
|
||||||
** Dropper routine - not specific to ProDrop per se
|
** Dropper routine - not specific to ProDrop per se
|
||||||
|
@ -1483,6 +1272,7 @@ HandleProdrop
|
||||||
tax
|
tax
|
||||||
tay
|
tay
|
||||||
jsr SimpleWait
|
jsr SimpleWait
|
||||||
|
jsr VBlank
|
||||||
|
|
||||||
|
|
||||||
lda _prodropAnimDone
|
lda _prodropAnimDone
|
||||||
|
@ -1796,6 +1586,9 @@ HandleAppleDraw
|
||||||
|
|
||||||
:donePass lda #$5
|
:donePass lda #$5
|
||||||
jsr SimplerWait
|
jsr SimplerWait
|
||||||
|
ldy #$4
|
||||||
|
jsr SErandStaticBit
|
||||||
|
jsr VBlank
|
||||||
lda _appleDone
|
lda _appleDone
|
||||||
beq :mainLoop
|
beq :mainLoop
|
||||||
lda #$33
|
lda #$33
|
||||||
|
@ -2219,7 +2012,7 @@ ClearLoRes ldx #40
|
||||||
rts
|
rts
|
||||||
|
|
||||||
**************************************************
|
**************************************************
|
||||||
* Draw entire buffer on screen
|
* Draw entire buffer to lores screen using color map
|
||||||
**************************************************
|
**************************************************
|
||||||
DrawBufFullScreen
|
DrawBufFullScreen
|
||||||
ldx #$0
|
ldx #$0
|
||||||
|
@ -2415,6 +2208,217 @@ DrawBufFullScreen
|
||||||
bne :loop23
|
bne :loop23
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
**************************************************
|
||||||
|
* Draws a line of earth sprite on the right
|
||||||
|
**************************************************
|
||||||
|
_drawEarthLineXOffset equ #39
|
||||||
|
DrawEarthLine tax
|
||||||
|
lda EarthTextWidth*0+EarthText,x
|
||||||
|
sta Lo07+_drawEarthLineXOffset
|
||||||
|
lda EarthTextWidth*1+EarthText,x
|
||||||
|
sta Lo08+_drawEarthLineXOffset
|
||||||
|
lda EarthTextWidth*2+EarthText,x
|
||||||
|
sta Lo09+_drawEarthLineXOffset
|
||||||
|
lda EarthTextWidth*3+EarthText,x
|
||||||
|
sta Lo10+_drawEarthLineXOffset
|
||||||
|
lda EarthTextWidth*4+EarthText,x
|
||||||
|
sta Lo11+_drawEarthLineXOffset
|
||||||
|
lda EarthTextWidth*5+EarthText,x
|
||||||
|
sta Lo12+_drawEarthLineXOffset
|
||||||
|
lda EarthTextWidth*6+EarthText,x
|
||||||
|
sta Lo13+_drawEarthLineXOffset
|
||||||
|
lda EarthTextWidth*7+EarthText,x
|
||||||
|
sta Lo14+_drawEarthLineXOffset
|
||||||
|
lda EarthTextWidth*8+EarthText,x
|
||||||
|
sta Lo15+_drawEarthLineXOffset
|
||||||
|
lda EarthTextWidth*9+EarthText,x
|
||||||
|
sta Lo16+_drawEarthLineXOffset
|
||||||
|
rts
|
||||||
|
|
||||||
|
**************************************************
|
||||||
|
* Plot single dot on right column of screen
|
||||||
|
**************************************************
|
||||||
|
_maxStarHeight equ #24
|
||||||
|
GenStarRight
|
||||||
|
:loop jsr GetRand
|
||||||
|
cmp #_maxStarHeight
|
||||||
|
bge :loop
|
||||||
|
tay
|
||||||
|
ldx #39 ; right column
|
||||||
|
lda #"."
|
||||||
|
jsr PlotXY
|
||||||
|
rts
|
||||||
|
:gotMinSize rol ; *2 for table lookup
|
||||||
|
tax
|
||||||
|
lda LoLineTable,x
|
||||||
|
sta dstPtr
|
||||||
|
lda LoLineTable+1,x
|
||||||
|
sta dstPtr+1
|
||||||
|
ldy #39
|
||||||
|
lda #"."
|
||||||
|
sta (dstPtr),y
|
||||||
|
rts
|
||||||
|
|
||||||
|
**************************************************
|
||||||
|
* Plot single char (in accumulator) to X,Y
|
||||||
|
**************************************************
|
||||||
|
PlotXY pha
|
||||||
|
phx
|
||||||
|
tya
|
||||||
|
asl
|
||||||
|
tax
|
||||||
|
lda LoLineTable,x
|
||||||
|
sta dstPtr
|
||||||
|
lda LoLineTable+1,x
|
||||||
|
sta dstPtr+1
|
||||||
|
ply
|
||||||
|
pla
|
||||||
|
sta (dstPtr),y
|
||||||
|
rts
|
||||||
|
|
||||||
|
ScrollLeft
|
||||||
|
pha
|
||||||
|
phx
|
||||||
|
ldx #0
|
||||||
|
:loop lda Lo01+1,x
|
||||||
|
sta Lo01,x
|
||||||
|
lda Lo02+1,x
|
||||||
|
sta Lo02,x
|
||||||
|
lda Lo03+1,x
|
||||||
|
sta Lo03,x
|
||||||
|
lda Lo04+1,x
|
||||||
|
sta Lo04,x
|
||||||
|
lda Lo05+1,x
|
||||||
|
sta Lo05,x
|
||||||
|
lda Lo06+1,x
|
||||||
|
sta Lo06,x
|
||||||
|
lda Lo07+1,x
|
||||||
|
sta Lo07,x
|
||||||
|
lda Lo08+1,x
|
||||||
|
sta Lo08,x
|
||||||
|
lda Lo09+1,x
|
||||||
|
sta Lo09,x
|
||||||
|
lda Lo10+1,x
|
||||||
|
sta Lo10,x
|
||||||
|
lda Lo11+1,x
|
||||||
|
sta Lo11,x
|
||||||
|
lda Lo12+1,x
|
||||||
|
sta Lo12,x
|
||||||
|
lda Lo13+1,x
|
||||||
|
sta Lo13,x
|
||||||
|
lda Lo14+1,x
|
||||||
|
sta Lo14,x
|
||||||
|
lda Lo15+1,x
|
||||||
|
sta Lo15,x
|
||||||
|
lda Lo16+1,x
|
||||||
|
sta Lo16,x
|
||||||
|
lda Lo17+1,x
|
||||||
|
sta Lo17,x
|
||||||
|
lda Lo18+1,x
|
||||||
|
sta Lo18,x
|
||||||
|
lda Lo19+1,x
|
||||||
|
sta Lo19,x
|
||||||
|
lda Lo20+1,x
|
||||||
|
sta Lo20,x
|
||||||
|
lda Lo21+1,x
|
||||||
|
sta Lo21,x
|
||||||
|
lda Lo22+1,x
|
||||||
|
sta Lo22,x
|
||||||
|
lda Lo23+1,x
|
||||||
|
sta Lo23,x
|
||||||
|
lda Lo24+1,x
|
||||||
|
sta Lo24,x
|
||||||
|
inx
|
||||||
|
cpx #39
|
||||||
|
beq :done
|
||||||
|
|
||||||
|
jmp :loop
|
||||||
|
:done lda #" "
|
||||||
|
sta Lo01,x
|
||||||
|
sta Lo02,x
|
||||||
|
sta Lo03,x
|
||||||
|
sta Lo04,x
|
||||||
|
sta Lo05,x
|
||||||
|
sta Lo06,x
|
||||||
|
sta Lo07,x
|
||||||
|
sta Lo08,x
|
||||||
|
sta Lo09,x
|
||||||
|
sta Lo10,x
|
||||||
|
sta Lo11,x
|
||||||
|
sta Lo12,x
|
||||||
|
sta Lo13,x
|
||||||
|
sta Lo14,x
|
||||||
|
sta Lo15,x
|
||||||
|
sta Lo16,x
|
||||||
|
sta Lo17,x
|
||||||
|
sta Lo18,x
|
||||||
|
sta Lo19,x
|
||||||
|
sta Lo20,x
|
||||||
|
sta Lo21,x
|
||||||
|
sta Lo22,x
|
||||||
|
sta Lo23,x
|
||||||
|
sta Lo24,x
|
||||||
|
plx
|
||||||
|
pla
|
||||||
|
rts
|
||||||
|
|
||||||
|
|
||||||
|
ScrollRightUp
|
||||||
|
ldx #22 , x start
|
||||||
|
|
||||||
|
:loop lda Lo02,x
|
||||||
|
sta Lo01,x
|
||||||
|
lda Lo03,x
|
||||||
|
sta Lo02,x
|
||||||
|
lda Lo04,x
|
||||||
|
sta Lo03,x
|
||||||
|
lda Lo05,x
|
||||||
|
sta Lo04,x
|
||||||
|
lda Lo06,x
|
||||||
|
sta Lo05,x
|
||||||
|
lda Lo07,x
|
||||||
|
sta Lo06,x
|
||||||
|
lda Lo08,x
|
||||||
|
sta Lo07,x
|
||||||
|
lda Lo09,x
|
||||||
|
sta Lo08,x
|
||||||
|
lda Lo10,x
|
||||||
|
sta Lo09,x
|
||||||
|
lda Lo11,x
|
||||||
|
sta Lo10,x
|
||||||
|
lda Lo12,x
|
||||||
|
sta Lo11,x
|
||||||
|
lda Lo13,x
|
||||||
|
sta Lo12,x
|
||||||
|
lda Lo14,x
|
||||||
|
sta Lo13,x
|
||||||
|
lda Lo15,x
|
||||||
|
sta Lo14,x
|
||||||
|
lda Lo16,x
|
||||||
|
sta Lo15,x
|
||||||
|
lda Lo17,x
|
||||||
|
sta Lo16,x
|
||||||
|
lda Lo18,x
|
||||||
|
sta Lo17,x
|
||||||
|
lda Lo19,x
|
||||||
|
sta Lo18,x
|
||||||
|
lda Lo20,x
|
||||||
|
sta Lo19,x
|
||||||
|
lda Lo21,x
|
||||||
|
sta Lo20,x
|
||||||
|
lda Lo22,x
|
||||||
|
sta Lo21,x
|
||||||
|
lda Lo23,x
|
||||||
|
sta Lo22,x
|
||||||
|
lda Lo24,x
|
||||||
|
sta Lo23,x
|
||||||
|
lda #" "
|
||||||
|
sta Lo24,x
|
||||||
|
inx
|
||||||
|
cpx #40
|
||||||
|
beq :done
|
||||||
|
jmp :loop
|
||||||
|
:done rts
|
||||||
|
|
||||||
**************************************************
|
**************************************************
|
||||||
* SafeWait
|
* SafeWait
|
||||||
|
@ -2428,6 +2432,7 @@ SimplerWait phx
|
||||||
ply
|
ply
|
||||||
plx
|
plx
|
||||||
rts
|
rts
|
||||||
|
|
||||||
SimpleWait
|
SimpleWait
|
||||||
sta _waitA
|
sta _waitA
|
||||||
stx _waitX
|
stx _waitX
|
||||||
|
@ -2455,6 +2460,21 @@ _waitX db 0
|
||||||
_waitY db 0
|
_waitY db 0
|
||||||
|
|
||||||
|
|
||||||
|
**************************************************
|
||||||
|
* SetProdropGr / SetProdropText
|
||||||
|
* - set the operating mode of the prodrop effect
|
||||||
|
**************************************************
|
||||||
|
SetProdropGr
|
||||||
|
lda #$00
|
||||||
|
bra SetProdropChar
|
||||||
|
SetProdropText
|
||||||
|
lda #" "
|
||||||
|
SetProdropChar
|
||||||
|
sta ]dropCharCompare
|
||||||
|
sta ]dropCharWrite
|
||||||
|
inc GDemoState
|
||||||
|
jmp DemoMain
|
||||||
|
|
||||||
|
|
||||||
**************************************************
|
**************************************************
|
||||||
* Multiply8x8
|
* Multiply8x8
|
||||||
|
|
458
festrodata.s
458
festrodata.s
|
@ -1,55 +1,104 @@
|
||||||
|
_boxStrTop asc " _______________________ ",00
|
||||||
|
_boxStrMid asc "| |",00
|
||||||
|
_boxStrBot asc "|_______________________|",00
|
||||||
|
_scanStr01 asc "STATUS:",00
|
||||||
|
_scanStr08 asc "SCANNING",00
|
||||||
|
_scanStr08b asc " ",00
|
||||||
|
_scanStr09 asc "KCMO",00
|
||||||
|
_scanStr09b asc " .-",00 ;lol
|
||||||
|
_scanStr02 asc "LOCATED",00
|
||||||
|
_scanStr03 asc "Virgo Supergroup,",00
|
||||||
|
_scanStr04 asc "Local Group,",00
|
||||||
|
_scanStr05 asc "Milky Way,",00
|
||||||
|
_scanStr06 asc "Earth",00
|
||||||
|
_scanStr07 asc "Scan Surface",00
|
||||||
|
_scanStr19 asc "Apple // Event Located",00
|
||||||
|
_scanStr20 asc "BEGIN THERMAL SCAN!",00
|
||||||
|
_scanStr20b asc " ",00
|
||||||
|
_scanningString asc "Status: Scanning surface.",00
|
||||||
|
_digawriteString asc " an intro by DiGAROK ",00
|
||||||
|
|
||||||
|
|
||||||
|
_cwoz asc "Woz",00
|
||||||
|
_c2 asc "Brutal Deluxe",00
|
||||||
|
_c3 asc "Belgo",00
|
||||||
|
_c4 asc "BLuRry",00
|
||||||
|
_c5 asc "krUe",00
|
||||||
|
_c6 asc "Ninjaforce",00
|
||||||
|
_c7 asc "FTA",00
|
||||||
|
_c8 asc "RedHot ;)",00
|
||||||
|
_c9 asc "ECC",00
|
||||||
|
_c10 asc "antoine",00
|
||||||
|
_c11 asc "MJM",00
|
||||||
|
_c12 asc "Gamebits/JuicedGS",00
|
||||||
|
_c13 asc "R&D Automation",00
|
||||||
|
_c14 asc "KFest Organizers",00
|
||||||
|
_c15 asc " Presenters",00
|
||||||
|
_c16 asc " Attendees",00
|
||||||
|
_c17 asc " AND YOU!",00
|
||||||
|
_c18 asc "THANKS",00
|
||||||
|
_c19 asc " FOR",00
|
||||||
|
_c20 asc " WATCHING",00
|
||||||
|
_cblank asc "",00
|
||||||
|
|
||||||
|
_creditStringsTable
|
||||||
|
da _c2,_c3,_c4,_c5,_c6,_c7,_c8,_c9,_c10
|
||||||
|
da _c11,_c12,_cblank,_c13,_c14,_c15,_c16,_cblank
|
||||||
|
da _c17,_cblank,_cblank,_c18,_c19,_c20
|
||||||
|
da _cblank,_cblank,_cblank,_cblank,_cblank
|
||||||
|
dw 0000
|
||||||
|
|
||||||
FinalText
|
FinalText
|
||||||
asc "",00
|
asc "",00
|
||||||
asc " KFest is the world's only annual",00
|
asc " KFest is the world's only annual",00
|
||||||
asc " convention dedicated to the Apple II",00
|
asc " convention dedicated to the Apple II",00
|
||||||
asc " and it's the largest gathering of ",00
|
asc " and it's the largest gathering of ",00
|
||||||
asc " active Apple II users you'll ever see!",00
|
asc " active Apple II users you'll ever see!",00
|
||||||
asc "",00
|
asc "",00
|
||||||
asc " The next KFest is July 23-28, 2013.",00
|
asc " The next KFest is July 23-28, 2013.",00
|
||||||
asc "",00
|
asc "",00
|
||||||
asc " You can get more info on their site *",00
|
asc " You can get more info on their site *",00
|
||||||
asc " www.kansasfest.org",00
|
asc " www.kansasfest.org",00
|
||||||
asc "",00
|
asc "",00
|
||||||
asc "",00
|
asc "",00
|
||||||
asc "* I'm not affiliated with KansasFest.",00
|
asc " * I'm not affiliated with KansasFest.",00
|
||||||
asc " I was just looking for an excuse to",00
|
asc " I was just looking for an excuse to",00
|
||||||
asc " write some code.",00
|
asc " write and release some code.",00
|
||||||
asc "",00
|
asc "",00
|
||||||
asc "",00
|
asc " Download the demo source online!",00
|
||||||
asc "",00
|
asc " -> github.com/festro",00
|
||||||
asc " The End?",00
|
asc "",00
|
||||||
asc "",00
|
asc "",00
|
||||||
asc "",00
|
asc " The End?",00
|
||||||
asc " Press A Key",00
|
asc "",00
|
||||||
hex ff,ff
|
asc "",00
|
||||||
|
asc " Press A Key",00
|
||||||
|
hex ff,ff
|
||||||
|
|
||||||
|
|
||||||
FireTextHeight equ #20 ; buffer height
|
FireTextHeight equ #20 ; buffer height
|
||||||
FireTextWidth equ #23 ; buffer width (INCLUDE 00 BYTE!!)
|
FireTextWidth equ #23 ; buffer width (INCLUDE 00 BYTE!!)
|
||||||
ds \
|
|
||||||
FireText
|
FireText
|
||||||
asc " -/+. ",00
|
asc " -/+. ",00
|
||||||
asc " /+++ ",00
|
asc " /+++ ",00
|
||||||
asc " :+++. ",00
|
asc " :+++. ",00
|
||||||
asc " ++:` ",00
|
asc " ++:` ",00
|
||||||
asc " .=++++/--.:/+++=- ",00
|
asc " .=++++/--.:/+++=- ",00
|
||||||
asc " -++++++++++++++++++`",00
|
asc " -++++++++++++++++++`",00
|
||||||
asc " .::::::::::::::::::` ",00
|
asc " .::::::::::::::::::` ",00
|
||||||
asc " ::::::::::::::::::` ",00
|
asc " ::::::::::::::::::` ",00
|
||||||
asc "`/////////////////: ",00
|
asc "`/////////////////: ",00
|
||||||
asc "`+++++++++++++++++: ",00
|
asc "`+++++++++++++++++: ",00
|
||||||
asc "`++++++++++++++++++` ",00
|
asc "`++++++++++++++++++` ",00
|
||||||
asc " osssssssssssssssss+` ",00
|
asc " osssssssssssssssss+` ",00
|
||||||
asc " -sssssssssssssssssso/",00
|
asc " -sssssssssssssssssso/",00
|
||||||
asc " ossssssssssssssssss/",00
|
asc " ossssssssssssssssss/",00
|
||||||
asc " `ssssssssssssssssso ",00
|
asc " `ssssssssssssssssso ",00
|
||||||
asc " .ossssssssssssss+` ",00
|
asc " .ossssssssssssss+` ",00
|
||||||
asc " `+ssss+//+ssss/ ",00
|
asc " `+ssss+//+ssss/ ",00
|
||||||
asc " `-.` `.-` ",00
|
asc " `-.` `.-` ",00
|
||||||
asc " ",00
|
asc " ",00
|
||||||
asc " GREETZ & THANKS ->",00
|
asc " GREETZ & THANKS ->",00
|
||||||
|
|
||||||
|
|
||||||
EarthTextWidth equ #19
|
EarthTextWidth equ #19
|
||||||
|
@ -65,190 +114,162 @@ EarthText
|
||||||
asc " \ ':::: / "
|
asc " \ ':::: / "
|
||||||
asc " '. ::: .' "
|
asc " '. ::: .' "
|
||||||
asc " '._'_.' "
|
asc " '._'_.' "
|
||||||
EarthText2
|
|
||||||
asc " _____ "
|
|
||||||
asc " .'. ':'. "
|
|
||||||
asc " .''::: .: '. "
|
|
||||||
asc " / :::::' \ "
|
|
||||||
asc " ;. ':' ` ; "
|
|
||||||
asc " | '.. | "
|
|
||||||
asc " ; ' ::::. ; "
|
|
||||||
asc " \ ':::: / "
|
|
||||||
asc " '. ::: .' "
|
|
||||||
asc " '.___'_.' "
|
|
||||||
EarthTextOrig
|
|
||||||
asc " _____ "
|
|
||||||
asc " .-'. ':'-. "
|
|
||||||
asc " .''::: .: '. "
|
|
||||||
asc " / :::::' \ "
|
|
||||||
asc " ;. ':' ` ; "
|
|
||||||
asc " | '.. | "
|
|
||||||
asc " ; ' ::::. ; "
|
|
||||||
asc " \ ':::: / "
|
|
||||||
asc " '. ::: .' "
|
|
||||||
asc " '-.___'_.-' "
|
|
||||||
|
|
||||||
|
|
||||||
|
WorldMapWidth equ #72
|
||||||
|
WorldMapHeight equ #24
|
||||||
|
WorldMap asc " +90N-+-----+-----+-----+-----+----+-----+-----+-----+-----+-----+-----+"
|
||||||
|
asc " | . _..::__: ,-^-^._ |7 , _,.__ |"
|
||||||
|
asc " | _.___ _ _<_>`!(._`.`-. / _._ `_ ,_/ ' '-._.---.-.__|"
|
||||||
|
asc " |.{ ^ ` `-==,',._\{ \ / {) / _ ^>_,-' ` mt-2_|"
|
||||||
|
asc " + \_.:--. `._ )`^-. ^' , [_/( __,/-' +"
|
||||||
|
asc " |'^' \ ^ _L oD_,--' ) /. (| |"
|
||||||
|
asc " | | ,' _)_.\\._<> 6 _,' / ' |"
|
||||||
|
asc " | `. / [_/_'` `^( <'} ) |"
|
||||||
|
asc " +30N \\ .-. ) / `-'^..' `:._ _) ' +"
|
||||||
|
asc " | ` \ ( `( / `:\ > \ ,-^. /' ' |"
|
||||||
|
asc " | `._, ^` | \`' \| ?_) {\ |"
|
||||||
|
asc " | `=.---. `._._ ,' ^` |' ,- '. |"
|
||||||
|
asc " +000 | `-._ | / `:`<_|h--._ +"
|
||||||
|
asc " | ( > . | , `=.__.`-'\ |"
|
||||||
|
asc " | `. / | |{| ,-.,\ .|"
|
||||||
|
asc " | | ,' \ / `' ,' \ |"
|
||||||
|
asc " +30S | / |_' | __ / +"
|
||||||
|
asc " | | | '-' `-' \.|"
|
||||||
|
asc " | |/ ' / |"
|
||||||
|
asc " | \. ' |"
|
||||||
|
asc " +60S +"
|
||||||
|
asc " | ,/ ______._.--._ _..---.---------._ |"
|
||||||
|
asc " | ,-----^-..?----_/ ) _,-'^ ^ ( |"
|
||||||
|
asc " +90S-+-----+-----+-----+-----+----+-----+-----+-----+-----+-----+-----+"
|
||||||
|
|
||||||
HandleWorldScroll
|
_sprWidth_K equ #18
|
||||||
|
_sprHeight_K equ #16
|
||||||
|
_sprData_K db $01,$01,$01,$01,$01,$01,$01,$00,$00,$00,$00,$01,$01,$01,$01,$01,$01,$01
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$01
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$01
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$01,$01,$00
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00
|
||||||
|
db $01,$01,$0F,$0F,$0F,$0F,$01,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$01,$01,$00
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$01
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$01
|
||||||
|
db $01,$01,$01,$01,$01,$01,$01,$00,$00,$00,$00,$01,$01,$01,$01,$01,$01,$01
|
||||||
|
|
||||||
* mapOffset = WorldMapWidth - 40
|
_sprWidth_F equ #18
|
||||||
* for (i = mapOffset; i >= 0; i--) {
|
_sprHeight_F equ #16
|
||||||
* draw map from buffer+i,y to screen
|
_sprData_F db $01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01
|
||||||
* delay
|
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
||||||
* }
|
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$01,$01,$01,$01,$01,$01,$01,$01,$01,$0F,$0F,$0F,$01
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$01,$01,$01,$01,$01
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$00,$00
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$01,$01,$01,$01,$01,$01,$01,$01,$01,$00,$00
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
||||||
|
db $01,$01,$01,$01,$01,$01,$01,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
||||||
|
|
||||||
WorldMapWidth equ #72
|
_sprWidth_E equ #18
|
||||||
WorldMapHeight equ #24
|
_sprHeight_E equ #16
|
||||||
WorldMap
|
_sprData_E db $01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01
|
||||||
asc " +90N-+-----+-----+-----+-----+----+-----+-----+-----+-----+-----+-----+"
|
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
||||||
asc " | . _..::__: ,-^-^._ |7 , _,.__ |"
|
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
||||||
asc " | _.___ _ _<_>`!(._`.`-. / _._ `_ ,_/ ' '-._.---.-.__|"
|
db $01,$0F,$0F,$0F,$0F,$01,$01,$01,$01,$01,$01,$01,$01,$01,$0F,$0F,$0F,$01
|
||||||
asc " |.{ ^ ` `-==,',._\{ \ / {) / _ ^>_,-' ` mt-2_|"
|
db $01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$01,$01,$01,$01,$01
|
||||||
asc " + \_.:--. `._ )`^-. ^' , [_/( __,/-' +"
|
db $01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
||||||
asc " |'^' \ ^ _L oD_,--' ) /. (| |"
|
db $01,$0F,$0F,$0F,$0F,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$00,$00,$00
|
||||||
asc " | | ,' _)_.\\._<> 6 _,' / ' |"
|
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00
|
||||||
asc " | `. / [_/_'` `^( <'} ) |"
|
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00
|
||||||
asc " +30N \\ .-. ) / `-'^..' `:._ _) ' +"
|
db $01,$0F,$0F,$0F,$0F,$0F,$01,$01,$01,$01,$01,$01,$01,$01,$01,$00,$00,$00
|
||||||
asc " | ` \ ( `( / `:\ > \ ,-^. /' ' |"
|
db $01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
||||||
asc " | `._, ^` | \`' \| ?_) {\ |"
|
db $01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
||||||
asc " | `=.---. `._._ ,' ^` |' ,- '. |"
|
db $01,$0F,$0F,$0F,$0F,$0F,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01
|
||||||
asc " +000 | `-._ | / `:`<_|h--._ +"
|
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
||||||
asc " | ( > . | , `=.__.`-'\ |"
|
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
||||||
asc " | `. / | |{| ,-.,\ .|"
|
db $01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01
|
||||||
asc " | | ,' \ / `' ,' \ |"
|
|
||||||
asc " +30S | / |_' | __ / +"
|
|
||||||
asc " | | | '-' `-' \.|"
|
|
||||||
asc " | |/ ' / |"
|
|
||||||
asc " | \. ' |"
|
|
||||||
asc " +60S +"
|
|
||||||
asc " | ,/ ______._.--._ _..---.---------._ |"
|
|
||||||
asc " | ,-----^-..?----_/ ) _,-'^ ^ ( |"
|
|
||||||
asc " +90S-+-----+-----+-----+-----+----+-----+-----+-----+-----+-----+-----+"
|
|
||||||
|
|
||||||
_sprWidth_K equ #18
|
_sprWidth_S equ #18
|
||||||
_sprHeight_K equ #16
|
_sprHeight_S equ #16
|
||||||
_sprData_K db $01,$01,$01,$01,$01,$01,$01,$00,$00,$00,$00,$01,$01,$01,$01,$01,$01,$01
|
_sprData_S db $00,$00,$00,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$00
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$01
|
db $00,$01,$01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$01
|
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
db $01,$0F,$0F,$0F,$0F,$0F,$01,$01,$00,$00,$01,$01,$01,$01,$01,$01,$01,$01
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$01,$01,$00
|
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00
|
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00
|
db $00,$00,$0F,$0F,$0F,$0F,$01,$01,$01,$01,$00,$00,$00,$00,$00,$00,$00,$00
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00
|
db $00,$00,$01,$01,$0F,$0F,$0F,$0F,$0F,$0F,$01,$01,$01,$01,$00,$00,$00,$00
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00
|
db $00,$00,$00,$00,$01,$01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01,$01,$00,$00
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00
|
db $00,$00,$00,$00,$00,$00,$01,$01,$01,$01,$01,$01,$0F,$0F,$0F,$0F,$00,$00
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00
|
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$01
|
||||||
db $01,$01,$0F,$0F,$0F,$0F,$01,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$01,$01,$00
|
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$01
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
db $01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$01
|
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$01
|
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01,$01,$00
|
||||||
db $01,$01,$01,$01,$01,$01,$01,$00,$00,$00,$00,$01,$01,$01,$01,$01,$01,$01
|
db $00,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$00,$00
|
||||||
_sprWidth_F equ #18
|
|
||||||
_sprHeight_F equ #16
|
|
||||||
_sprData_F db $01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$01,$01,$01,$01,$01,$01,$01,$01,$01,$0F,$0F,$0F,$01
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$01,$01,$01,$01,$01
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$00,$00
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$01,$01,$01,$01,$01,$01,$01,$01,$01,$00,$00
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
|
||||||
db $01,$01,$01,$01,$01,$01,$01,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
|
||||||
_sprWidth_E equ #18
|
|
||||||
_sprHeight_E equ #16
|
|
||||||
_sprData_E db $01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$01,$01,$01,$01,$01,$01,$01,$01,$01,$0F,$0F,$0F,$01
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$01,$01,$01,$01,$01
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$00,$00,$00
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$01,$01,$01,$01,$01,$01,$01,$01,$01,$00,$00,$00
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
|
||||||
db $01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01
|
|
||||||
_sprWidth_S equ #18
|
|
||||||
_sprHeight_S equ #16
|
|
||||||
_sprData_S db $00,$00,$00,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$00
|
|
||||||
db $00,$01,$01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$01,$01,$00,$00,$01,$01,$01,$01,$01,$01,$01,$01
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
|
||||||
db $00,$00,$0F,$0F,$0F,$0F,$01,$01,$01,$01,$00,$00,$00,$00,$00,$00,$00,$00
|
|
||||||
db $00,$00,$01,$01,$0F,$0F,$0F,$0F,$0F,$0F,$01,$01,$01,$01,$00,$00,$00,$00
|
|
||||||
db $00,$00,$00,$00,$01,$01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01,$01,$00,$00
|
|
||||||
db $00,$00,$00,$00,$00,$00,$01,$01,$01,$01,$01,$01,$0F,$0F,$0F,$0F,$00,$00
|
|
||||||
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$01
|
|
||||||
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$01
|
|
||||||
db $01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01,$01,$00
|
|
||||||
db $00,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$00,$00
|
|
||||||
|
|
||||||
_sprWidth_T equ #18
|
_sprWidth_T equ #18
|
||||||
_sprHeight_T equ #16
|
_sprHeight_T equ #16
|
||||||
_sprData_T db $01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01
|
_sprData_T db $01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
||||||
db $01,$0F,$0F,$0F,$01,$01,$0F,$0F,$0F,$0F,$0F,$0F,$01,$01,$0F,$0F,$0F,$01
|
db $01,$0F,$0F,$0F,$01,$01,$0F,$0F,$0F,$0F,$0F,$0F,$01,$01,$0F,$0F,$0F,$01
|
||||||
db $01,$01,$01,$01,$00,$00,$01,$0F,$0F,$0F,$0F,$01,$00,$00,$01,$01,$01,$01
|
db $01,$01,$01,$01,$00,$00,$01,$0F,$0F,$0F,$0F,$01,$00,$00,$01,$01,$01,$01
|
||||||
db $00,$00,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00
|
db $00,$00,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00
|
||||||
db $00,$00,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00
|
db $00,$00,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00
|
||||||
db $00,$00,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00
|
db $00,$00,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00
|
||||||
db $00,$00,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00
|
db $00,$00,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00
|
||||||
db $00,$00,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00
|
db $00,$00,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00
|
||||||
db $00,$00,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00
|
db $00,$00,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00
|
||||||
db $00,$00,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00
|
db $00,$00,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00
|
||||||
db $00,$00,$00,$00,$01,$01,$0F,$0F,$0F,$0F,$0F,$0F,$01,$01,$00,$00,$00,$00
|
db $00,$00,$00,$00,$01,$01,$0F,$0F,$0F,$0F,$0F,$0F,$01,$01,$00,$00,$00,$00
|
||||||
db $00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00
|
db $00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00
|
||||||
db $00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00
|
db $00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00
|
||||||
db $00,$00,$00,$00,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$00,$00,$00,$00
|
db $00,$00,$00,$00,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$00,$00,$00,$00
|
||||||
|
|
||||||
_sprWidth_YEAR equ #39
|
_sprWidth_YEAR equ #39
|
||||||
_sprHeight_YEAR equ #12
|
_sprHeight_YEAR equ #12
|
||||||
_sprData_YEAR db $00,$00,$01,$01,$01,$01,$00,$00,$00,$00,$00,$00,$00,$01,$01,$01,$01,$00,$00,$00,$00,$00
|
_sprData_YEAR db $00,$00,$01,$01,$01,$01,$00,$00,$00,$00,$00,$00,$00,$01,$01,$01,$01,$00
|
||||||
db $00,$01,$01,$01,$01,$00,$00,$00,$00,$00,$01,$01,$01,$01,$00,$00,$00
|
db $00,$00,$00,$00,$00,$01,$01,$01,$01,$00,$00,$00,$00,$00,$01,$01,$01,$01
|
||||||
db $00,$01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00
|
db $00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$01,$0F,$0F
|
||||||
db $01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$01,$00,$00
|
db $0F,$0F,$01,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$01,$0F
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$01
|
db $0F,$0F,$0F,$01,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$01
|
||||||
db $0F,$0F,$0F,$0F,$0F,$01,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00
|
db $0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00
|
||||||
db $00,$00,$00,$00,$00,$01,$0F,$0F,$01,$00,$00,$01,$0F,$0F,$00,$00,$0F,$0F,$01,$00,$00,$01
|
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$01,$0F,$0F,$01
|
||||||
db $0F,$01,$01,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$01,$0F,$0F,$01
|
db $00,$00,$01,$0F,$0F,$00,$00,$0F,$0F,$01,$00,$00,$01,$0F,$01,$01,$0F,$0F
|
||||||
db $00,$00,$00,$00,$00,$01,$0F,$0F,$01,$00,$01,$0F,$0F,$00,$00,$00,$00,$0F,$0F,$01,$00,$00
|
db $01,$00,$00,$00,$00,$00,$00,$00,$01,$0F,$0F,$01,$00,$00,$00,$00,$00,$01
|
||||||
db $00,$00,$01,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$01,$0F,$0F,$01
|
db $0F,$0F,$01,$00,$01,$0F,$0F,$00,$00,$00,$00,$0F,$0F,$01,$00,$00,$00,$00
|
||||||
db $00,$00,$00,$00,$00,$01,$0F,$0F,$01,$00,$01,$0F,$0F,$00,$00,$00,$00,$0F,$0F,$01,$00,$00
|
db $01,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$01,$0F,$0F,$01,$00,$00,$00
|
||||||
db $00,$00,$01,$0F,$0F,$01,$00,$00,$00,$00,$00,$01,$01,$0F,$0F,$01,$00
|
db $00,$00,$01,$0F,$0F,$01,$00,$01,$0F,$0F,$00,$00,$00,$00,$0F,$0F,$01,$00
|
||||||
db $00,$00,$00,$00,$01,$0F,$0F,$00,$00,$00,$01,$0F,$0F,$00,$00,$00,$00,$0F,$0F,$01,$00,$00
|
db $00,$00,$00,$01,$0F,$0F,$01,$00,$00,$00,$00,$00,$01,$01,$0F,$0F,$01,$00
|
||||||
db $00,$00,$01,$0F,$0F,$01,$00,$00,$00,$00,$01,$0F,$0F,$0F,$01,$01,$00
|
db $00,$00,$00,$00,$01,$0F,$0F,$00,$00,$00,$01,$0F,$0F,$00,$00,$00,$00,$0F
|
||||||
db $00,$00,$00,$01,$0F,$0F,$00,$00,$00,$00,$01,$0F,$0F,$01,$00,$00,$01,$0F,$0F,$01,$00,$00
|
db $0F,$01,$00,$00,$00,$00,$01,$0F,$0F,$01,$00,$00,$00,$00,$01,$0F,$0F,$0F
|
||||||
db $00,$00,$01,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$01,$0F,$0F,$0F,$01
|
db $01,$01,$00,$00,$00,$00,$01,$0F,$0F,$00,$00,$00,$00,$01,$0F,$0F,$01,$00
|
||||||
db $00,$00,$01,$0F,$0F,$00,$00,$00,$00,$00,$00,$01,$0F,$0F,$00,$00,$0F,$0F,$01,$00,$00,$00
|
db $00,$01,$0F,$0F,$01,$00,$00,$00,$00,$01,$0F,$0F,$01,$00,$00,$00,$00,$00
|
||||||
db $00,$00,$01,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$01,$0F,$0F,$01
|
db $00,$01,$0F,$0F,$0F,$01,$00,$00,$01,$0F,$0F,$00,$00,$00,$00,$00,$00,$01
|
||||||
db $00,$01,$0F,$0F,$01,$01,$01,$01,$00,$00,$00,$01,$0F,$0F,$01,$01,$0F,$0F,$01,$00,$00,$00
|
db $0F,$0F,$00,$00,$0F,$0F,$01,$00,$00,$00,$00,$00,$01,$0F,$0F,$01,$00,$00
|
||||||
db $00,$00,$01,$0F,$0F,$01,$00,$00,$00,$01,$01,$01,$01,$01,$0F,$0F,$01
|
db $00,$00,$00,$00,$00,$01,$0F,$0F,$01,$00,$01,$0F,$0F,$01,$01,$01,$01,$00
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00
|
db $00,$00,$01,$0F,$0F,$01,$01,$0F,$0F,$01,$00,$00,$00,$00,$00,$01,$0F,$0F
|
||||||
db $00,$01,$0F,$0F,$0F,$0F,$01,$00,$01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
db $01,$00,$00,$00,$01,$01,$01,$01,$01,$0F,$0F,$01,$01,$0F,$0F,$0F,$0F,$0F
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$01,$0F,$0F,$01,$00,$00,$00,$00,$00
|
db $0F,$0F,$01,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$01
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$01,$0F,$0F,$0F,$0F,$0F,$01,$00
|
db $0F,$0F,$0F,$0F,$01,$00,$01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01,$01,$0F,$0F
|
||||||
|
db $0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$01,$0F,$0F,$01,$00,$00,$00,$00
|
||||||
|
db $00,$01,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$01,$0F,$0F,$0F,$0F,$0F,$01,$00
|
||||||
|
|
||||||
KfestLogoWidth equ #40
|
KfestLogoWidth equ #40
|
||||||
KfestLogoHeight equ #24
|
KfestLogoHeight equ #24
|
||||||
KfestLogo
|
KfestLogo db $5a,$aa,$5a,$aa,$5a,$aa,$5a,$aa,$5a,$aa,$5a,$aa,$5a,$aa,$5a,$aa,$5a,$aa,$5a,$aa
|
||||||
db $5a,$aa,$5a,$aa,$5a,$aa,$5a,$aa,$5a,$aa,$5a,$aa,$5a,$aa,$5a,$aa,$5a,$aa,$5a,$aa
|
|
||||||
db $5a,$aa,$5a,$aa,$5a,$aa,$5a,$aa,$5a,$aa,$5a,$aa,$5a,$aa,$5a,$aa,$5a,$aa,$5a,$aa
|
db $5a,$aa,$5a,$aa,$5a,$aa,$5a,$aa,$5a,$aa,$5a,$aa,$5a,$aa,$5a,$aa,$5a,$aa,$5a,$aa
|
||||||
db $5a,$55,$5a,$55,$5a,$55,$5a,$55,$5a,$55,$5a,$55,$5a,$55,$5a,$55,$5a,$55,$5a,$55
|
db $5a,$55,$5a,$55,$5a,$55,$5a,$55,$5a,$55,$5a,$55,$5a,$55,$5a,$55,$5a,$55,$5a,$55
|
||||||
db $5a,$55,$5a,$55,$5a,$55,$5a,$55,$5a,$55,$5a,$55,$5a,$55,$5a,$55,$5a,$55,$5a,$55
|
db $5a,$55,$5a,$55,$5a,$55,$5a,$55,$5a,$55,$5a,$55,$5a,$55,$5a,$55,$5a,$55,$5a,$55
|
||||||
|
@ -299,8 +320,7 @@ KfestLogo
|
||||||
|
|
||||||
AppleLogoWidth equ #19
|
AppleLogoWidth equ #19
|
||||||
AppleLogoHeight equ #13
|
AppleLogoHeight equ #13
|
||||||
AppleLogo
|
AppleLogo db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$40,$c0,$00,$00,$00,$00,$00
|
||||||
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$40,$c0,$00,$00,$00,$00,$00
|
|
||||||
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$c0,$cc,$cc,$cc,$00,$00,$00,$00,$00
|
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$c0,$cc,$cc,$cc,$00,$00,$00,$00,$00
|
||||||
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$c4,$cc,$cc,$0c,$00,$00,$00,$00,$00,$00
|
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$c4,$cc,$cc,$0c,$00,$00,$00,$00,$00,$00
|
||||||
db $00,$00,$00,$c0,$c4,$c4,$c4,$c0,$c0,$0c,$0c,$c0,$c0,$c4,$c4,$c0,$c0,$00,$00
|
db $00,$00,$00,$c0,$c4,$c4,$c4,$c0,$c0,$0c,$0c,$c0,$c0,$c4,$c4,$c0,$c0,$00,$00
|
||||||
|
|
125
soundengine.s
125
soundengine.s
|
@ -1,17 +1,89 @@
|
||||||
|
**************************************************
|
||||||
|
* play random short note
|
||||||
|
**************************************************
|
||||||
|
SErandBlip
|
||||||
|
jsr GetRand
|
||||||
|
sta _SECURRNOTE
|
||||||
|
lda #5
|
||||||
|
sta _SECURRNOTE+1
|
||||||
|
jsr SEplayNote
|
||||||
|
rts
|
||||||
|
|
||||||
|
**************************************************
|
||||||
|
* wrapper for SEplayNote
|
||||||
|
* a = freq ... x = dur
|
||||||
|
**************************************************
|
||||||
|
SENoteAX
|
||||||
|
sta _SECURRNOTE
|
||||||
|
stx _SECURRNOTE+1
|
||||||
|
jsr SEplayNote
|
||||||
|
rts
|
||||||
|
|
||||||
|
**************************************************
|
||||||
|
*
|
||||||
|
**************************************************
|
||||||
|
SEplayNote
|
||||||
|
:loop lda SPEAKER
|
||||||
|
:whyWut dey
|
||||||
|
bne :thar
|
||||||
|
dec _SECURRNOTE+1
|
||||||
|
beq :doneThat
|
||||||
|
:thar dex
|
||||||
|
bne :whyWut
|
||||||
|
ldx _SECURRNOTE
|
||||||
|
jmp :loop
|
||||||
|
:doneThat rts
|
||||||
|
|
||||||
|
|
||||||
|
_SECURRNOTE db 0,0 ; current note being played (frequency/duration)
|
||||||
|
|
||||||
|
|
||||||
* COSMOS THEME
|
* COSMOS THEME
|
||||||
|
|
||||||
Song01
|
PlaySong01Note
|
||||||
|
:start lda Song01
|
||||||
|
]song01Ptr equ *-2
|
||||||
|
cmp #$02
|
||||||
|
bne :noLoop
|
||||||
|
lda #Song01
|
||||||
|
sta ]song01Ptr
|
||||||
|
lda #>Song01
|
||||||
|
sta ]song01Ptr+1
|
||||||
|
bra :start
|
||||||
|
:noLoop
|
||||||
|
;ldx #$20 ; x passed as wait value.. omg the hacks
|
||||||
|
jsr SENoteAX
|
||||||
|
|
||||||
_SE_tonesBAD db 255,241,227,214,202,191,180,170,161,152,143,135
|
lda ]frameCount
|
||||||
db 128,121,114,108,102,096,091,085,081,076,072,068
|
cmp #_frameRepeat
|
||||||
db 064,060,057,054,051,048,045,043,040,038,036,034
|
beq :nextNote
|
||||||
|
inc ]frameCount
|
||||||
|
rts
|
||||||
|
:nextNote stz ]frameCount
|
||||||
|
inc ]song01Ptr
|
||||||
|
beq :inc
|
||||||
|
rts
|
||||||
|
:inc inc ]song01Ptr+1
|
||||||
|
rts
|
||||||
|
]frameCount db 0
|
||||||
|
_frameRepeat equ 2
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Song01 hex 66,99,a3,66,99,a3,66,99,66,99,a3,66,99,a3,66,99
|
||||||
|
hex 72,99,a3,72,99,a3,72,99,72,99,a3,72,99,a3,72,99
|
||||||
|
hex 79,a3,b5,79,a3,b5,79,a3,79,a3,b5,79,a3,b5,79,a3
|
||||||
|
hex 6c,99,a3,6c,99,a3,6c,99,6c,99,a3,6c,99,a3,6c,5b
|
||||||
|
hex 66,99,a3,66,99,a3,66,99,66,99,a3,66,99,a3,66,99
|
||||||
|
hex 02 ;end
|
||||||
|
|
||||||
_SE_tones db NoteG0,NoteGsharp0,NoteA0,NoteBflat0,NoteB0
|
_SE_tones db NoteG0,NoteGsharp0,NoteA0,NoteBflat0,NoteB0
|
||||||
db NoteC1,NoteCsharp1,NoteD1,NoteDsharp1,NoteE1
|
db NoteC1,NoteCsharp1,NoteD1,NoteDsharp1,NoteE1
|
||||||
db NoteF1,NoteFsharp1,NoteG1,NoteGsharp1,NoteA1
|
db NoteF1,NoteFsharp1,NoteG1,NoteGsharp1,NoteA1
|
||||||
db NoteBflat1,NoteB1,NoteC2,NoteCsharp2,NoteD2
|
db NoteBflat1,NoteB1,NoteC2,NoteCsharp2,NoteD2
|
||||||
db NoteDsharp2,NoteE2,NoteF2
|
db NoteDsharp2,NoteE2,NoteF2
|
||||||
|
NoteRest equ $01 ;\_ these are inaudible anyway
|
||||||
|
NoteEnd equ $02 ;/
|
||||||
NoteG0 equ $00 ; because it loops
|
NoteG0 equ $00 ; because it loops
|
||||||
NoteGsharp0 equ $f0
|
NoteGsharp0 equ $f0
|
||||||
NoteA0 equ $e6
|
NoteA0 equ $e6
|
||||||
|
@ -50,42 +122,19 @@ SErandStatic
|
||||||
bne :loop
|
bne :loop
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
* y = length
|
||||||
|
SErandStaticBit
|
||||||
|
|
||||||
SErandBlip
|
|
||||||
jsr GetRand
|
|
||||||
sta _SECURRNOTE
|
|
||||||
lda #5
|
|
||||||
sta _SECURRNOTE+1
|
|
||||||
jsr SEplayNote
|
|
||||||
rts
|
|
||||||
|
|
||||||
* a = freq ... x = dur
|
|
||||||
SENoteAX
|
|
||||||
sta _SECURRNOTE
|
|
||||||
stx _SECURRNOTE+1
|
|
||||||
jsr SEplayNote
|
|
||||||
;lda _SECURRNOTE+1
|
|
||||||
;ldy _SECURRNOTE
|
|
||||||
;ldx #$0
|
|
||||||
;jsr tone
|
|
||||||
rts
|
|
||||||
|
|
||||||
SEplayNote
|
|
||||||
:loop lda SPEAKER
|
:loop lda SPEAKER
|
||||||
:whyWut dey
|
jsr GetRand
|
||||||
bne :thar
|
lsr
|
||||||
dec _SECURRNOTE+1
|
beq :next
|
||||||
beq :doneThat
|
:wait dec
|
||||||
:thar dex
|
bne :wait
|
||||||
bne :whyWut
|
:next dey
|
||||||
ldx _SECURRNOTE
|
bne :loop
|
||||||
jmp :loop
|
rts
|
||||||
:doneThat rts
|
|
||||||
|
|
||||||
|
|
||||||
_SECURRNOTE db 0,0 ; current note being played (frequency/duration)
|
|
||||||
|
|
||||||
|
|
||||||
*-------------------------------
|
*-------------------------------
|
||||||
|
|
Loading…
Reference in New Issue
Block a user