Apple-2-SW/lawless-legends
1
0
Fork 0
mirror of https://github.com/badvision/lawless-legends.git synced 2025-03-01 03:30:04 +00:00
Code Issues Projects Releases Wiki Activity

Fixed load game.

Browse Source
This commit is contained in:
Martin Haye 2017-01-18 07:43:55 -08:00
parent 3ff5b34603
commit 4dd4ae02b1
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
Platform/Apple/virtual/src/plasma/diskops.pla
View File

@ -25,6 +25,8 @@ const RWTS_DRV2 = $80
const RWTS_RDWRPART = (0<<8) const RWTS_RDWRPART = (0<<8)
const RWTS_OPENDIR = (1<<8) const RWTS_OPENDIR = (1<<8)
const LOAD_SAVE_BUF = $5000
// This pointer is the root of all heap-tracked (and garbage collected) objects. // This pointer is the root of all heap-tracked (and garbage collected) objects.
// See playtype.plh for definitions of all the datastructures and how they interconnect. // See playtype.plh for definitions of all the datastructures and how they interconnect.
word global word global
@ -81,7 +83,7 @@ end
// Params: cmd | open<<8, filename, addr, size. Returns: status (for open only) // Params: cmd | open<<8, filename, addr, size. Returns: status (for open only)
// cmd: // cmd:
asm callProRWTS asm callProRWTS
+asmPlasm 1 +asmPlasm 4
; Params come to us from PLASMA in reverse order ; Params come to us from PLASMA in reverse order
sta setAuxZP sta setAuxZP
sta sizelo sta sizelo
@ -106,10 +108,8 @@ asm callProRWTS
ldy evalStkH+3,x ldy evalStkH+3,x
sta setAuxZP sta setAuxZP
sta reqcmd sta reqcmd
lda #0
lda #$60 sta auxreq
sta 0
jsr 0
bit setLcRW+lcBank1 bit setLcRW+lcBank1
bit setLcRW+lcBank1 bit setLcRW+lcBank1
@ -212,7 +212,7 @@ end
/////////////////////////////////////////////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////////////////////////////////////////////
def _rwGame(cmd) def _rwGame(cmd)
while TRUE while TRUE
if callProRWTS(cmd | RWTS_OPENDIR, "GAME.1.SAVE", $5000, HEAP_SIZE) == 0 if callProRWTS(cmd | RWTS_OPENDIR, "GAME.1.SAVE", LOAD_SAVE_BUF, HEAP_SIZE) == 0
break break
fin fin
textHome() textHome()
@ -231,7 +231,7 @@ def _saveGame()
// Copy data to main memory, and write it out. // Copy data to main memory, and write it out.
showMapName("Saving game...") showMapName("Saving game...")
memcpy(HEAP_BOTTOM, $5000, HEAP_SIZE) // LC to low mem memcpy(HEAP_BOTTOM, LOAD_SAVE_BUF, HEAP_SIZE) // LC to low mem
_rwGame(RWTS_WRITE) _rwGame(RWTS_WRITE)
end end
@ -242,11 +242,11 @@ def loadInternal()
_rwGame(RWTS_READ) _rwGame(RWTS_READ)
// Copy the heap up, and init it with the correct size. // Copy the heap up, and init it with the correct size.
p_loaded = $5000 p_loaded = LOAD_SAVE_BUF
if p_loaded=>w_heapSize < 100 or p_loaded=>w_heapSize > HEAP_SIZE if p_loaded=>w_heapSize < 100 or p_loaded=>w_heapSize > HEAP_SIZE
fatal("Corrupt game file.") fatal("Corrupt game file.")
fin fin
memcpy($5000, HEAP_BOTTOM, HEAP_SIZE) // low mem to LC memcpy(LOAD_SAVE_BUF, HEAP_BOTTOM, HEAP_SIZE) // low mem to LC
initHeap(p_loaded=>w_heapSize) initHeap(p_loaded=>w_heapSize)
global = getGlobals() global = getGlobals()
return TRUE return TRUE