GSLA player, wip
This commit is contained in:
parent
17df37eb49
commit
ef8a8e0375
55
asm/link.s
55
asm/link.s
|
@ -1,5 +1,5 @@
|
||||||
;
|
;
|
||||||
; fun2gs Merlin32 linker file
|
; GSLA Player Merlin32 linker file
|
||||||
;
|
;
|
||||||
dsk play.sys16
|
dsk play.sys16
|
||||||
typ $b3 ; filetype
|
typ $b3 ; filetype
|
||||||
|
@ -15,61 +15,10 @@
|
||||||
sna start ; segment name
|
sna start ; segment name
|
||||||
*----------------------------------------------
|
*----------------------------------------------
|
||||||
asm play.s
|
asm play.s
|
||||||
ds 0 ; padding
|
ds 0 ; padding
|
||||||
knd #$1100 ; kind
|
knd #$1100 ; kind
|
||||||
ali None ; alignment
|
ali None ; alignment
|
||||||
lna play ; load name
|
lna play ; load name
|
||||||
sna start ; segment name, doesn't work to try and merge segments here
|
sna start ; segment name, doesn't work to try and merge segments here
|
||||||
*----------------------------------------------
|
*----------------------------------------------
|
||||||
; asm lz4.s
|
|
||||||
; ds 0 ; padding
|
|
||||||
; knd #$1100 ; kind
|
|
||||||
; ali None ; alignment
|
|
||||||
; lna fun2gs ; load name
|
|
||||||
; sna lz4code ; JSL only access
|
|
||||||
*----------------------------------------------
|
|
||||||
; asm blit.s
|
|
||||||
; ds 0 ; padding
|
|
||||||
; knd #$1100 ; kind
|
|
||||||
; ali None ; alignment
|
|
||||||
; lna fun2gs ; load name
|
|
||||||
; sna blitcode ; segment name, JSL only access
|
|
||||||
*----------------------------------------------
|
|
||||||
; asm penguin.s
|
|
||||||
; ds 0 ; padding
|
|
||||||
; knd #$1100 ; kind
|
|
||||||
; ali None ; alignment
|
|
||||||
; lna fun2gs ; load name
|
|
||||||
; sna penguin ; segment name
|
|
||||||
*---------------------------------------------
|
|
||||||
; asm sprdata0.s
|
|
||||||
; ds 0 ; padding
|
|
||||||
; knd #$1100 ; kind
|
|
||||||
; ali None ; alignment
|
|
||||||
; lna fun2gs ; load name
|
|
||||||
; sna sprdata0 ; segment name
|
|
||||||
*----------------------------------------------
|
|
||||||
; asm gng.tiles.s
|
|
||||||
; ds 0 ; padding
|
|
||||||
; knd #$1100 ; kind
|
|
||||||
; ali None ; alignment
|
|
||||||
; lna fun2gs ; load name
|
|
||||||
; sna gngtiles
|
|
||||||
*----------------------------------------------
|
|
||||||
; asm cat.s
|
|
||||||
; ds 0 ; padding
|
|
||||||
; knd #$1100 ; kind
|
|
||||||
; ali None ; alignment
|
|
||||||
; lna fun2gs ;
|
|
||||||
; sna cat
|
|
||||||
*----------------------------------------------
|
|
||||||
* Combined Stack and Direct Page
|
|
||||||
; $$JGA this works, but giving up all this space in the executable is stupid
|
|
||||||
; x65 assembler makes this much easier
|
|
||||||
; asm stack.s
|
|
||||||
; ds 0 ; padding, note changing the padding doesn't work
|
|
||||||
; knd $0012 ; kind DP/Stack
|
|
||||||
; ali None ; alignment, note this doesn't work
|
|
||||||
; lna fun2gs ; load name
|
|
||||||
; sna stack ; segment name
|
|
||||||
|
|
||||||
|
|
22
asm/shell.s
22
asm/shell.s
|
@ -71,6 +71,8 @@ SetRes sep $30 ; 8-bit mode
|
||||||
ldx #$1F02
|
ldx #$1F02
|
||||||
jsl tool ; CompactMem
|
jsl tool ; CompactMem
|
||||||
;-------------------------------------------------------------------------------
|
;-------------------------------------------------------------------------------
|
||||||
|
; I'm pretty sure one of the tools is allocating this out from under me
|
||||||
|
;
|
||||||
; PushLong #0 ; Ask Shadowing Screen ($8000 bytes from $01/2000)
|
; PushLong #0 ; Ask Shadowing Screen ($8000 bytes from $01/2000)
|
||||||
; PushLong #$8000
|
; PushLong #$8000
|
||||||
; PushWord ProgID
|
; PushWord ProgID
|
||||||
|
@ -412,7 +414,7 @@ AboutTemplate
|
||||||
da 0
|
da 0
|
||||||
adrl 0
|
adrl 0
|
||||||
:Item3Txt
|
:Item3Txt
|
||||||
str '(C)2020 DreamWorld Software'
|
str '(C) 2020 DreamWorld Software'
|
||||||
|
|
||||||
:Item2 dw 2
|
:Item2 dw 2
|
||||||
dw 13,122,22,251 ;rect
|
dw 13,122,22,251 ;rect
|
||||||
|
@ -551,11 +553,29 @@ DoSave
|
||||||
|
|
||||||
PlayAnimation
|
PlayAnimation
|
||||||
|
|
||||||
|
; ha, this has to parse the headers
|
||||||
|
; before it can play the animation
|
||||||
|
|
||||||
|
; copy player to the Direct Page
|
||||||
|
|
||||||
|
lda #127 ; player is really only about 96 bytes
|
||||||
|
ldx #player
|
||||||
|
phd
|
||||||
|
ply
|
||||||
|
sty :play+1
|
||||||
|
|
||||||
|
mvn ^player,$00
|
||||||
|
|
||||||
|
phk
|
||||||
|
plb
|
||||||
|
|
||||||
|
; load up a pointer to data
|
||||||
|
|
||||||
lda p:rbuf
|
lda p:rbuf
|
||||||
ldx p:rbuf+2
|
ldx p:rbuf+2
|
||||||
|
|
||||||
|
; play the animation
|
||||||
|
|
||||||
:play jsl $000000
|
:play jsl $000000
|
||||||
|
|
||||||
rts
|
rts
|
||||||
|
|
Loading…
Reference in New Issue