Apple-2-SW/4live
1
0
Fork 0
mirror of https://github.com/a2-4am/4live.git synced 2024-12-22 02:30:25 +00:00
Code Issues Projects Releases Wiki Activity

Merge pull request #22 from peterferrie/master

Browse Source 
really preserve swap during initial header load
This commit is contained in:
4am 2019-03-18 18:31:32 -04:00 committed by GitHub
commit 0528bef255
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/4live.a
View File

@ -80,8 +80,7 @@
WIDTH = 40 WIDTH = 40
HEIGHT = 24 HEIGHT = 24
LDRBASE = $2DB LDRBASE = $2DB
INSTALLBUFFER = $21E ; yes, the overlay overwrites the loader... INSTALLBUFFER = $20E ; yes, the overlay overwrites the loader...
; see also "warning!" below
SWAPBUFFER = $900 ; (LoadSaveEnd - LoadSaveStart) size SWAPBUFFER = $900 ; (LoadSaveEnd - LoadSaveStart) size
; needed by Diversi-DOS, must be page-aligned ; needed by Diversi-DOS, must be page-aligned
; region is preserved across calls ; region is preserved across calls
@ -362,6 +361,10 @@ InstallStart
+ +
;open source file and read header if available ;open source file and read header if available
lda SWAPBUFFER
pha
lda SWAPBUFFER+1
pha
jsr LoadSaveHeader jsr LoadSaveHeader
bcs + bcs +
lda SaveCH lda SaveCH
@ -375,6 +378,10 @@ InstallStart
dec PreventAddPage + 1 ;tri-state flag because Diversi-DOS dec PreventAddPage + 1 ;tri-state flag because Diversi-DOS
inc HeaderExists + 1 inc HeaderExists + 1
+ +
pla
sta SWAPBUFFER+1
pla
sta SWAPBUFFER
jsr SetTextCoords1 jsr SetTextCoords1
@ -1694,7 +1701,7 @@ SecondLine
!fill WIDTH * 7, SPACE !fill WIDTH * 7, SPACE
!text " 4LIVE by 4am && qkumba " !text " 4LIVE by 4am && qkumba "
!fill WIDTH, SPACE !fill WIDTH, SPACE
!text " Revision 05 / Serial number 180410 " !text " Revision 06 / Serial number 190318 "
!fill WIDTH * 2, SPACE !fill WIDTH * 2, SPACE
!text " https://github.com/a2-4am/4live " !text " https://github.com/a2-4am/4live "
!fill WIDTH * 9, SPACE !fill WIDTH * 9, SPACE