Apple-2-SW/4live
1
0
Fork 0
mirror of https://github.com/a2-4am/4live.git synced 2024-12-21 11:29:20 +00:00
Code Issues Projects Releases Wiki Activity

don't allow add until page 1 is written to disk

Browse Source
This commit is contained in:
Peter Ferrie 2016-11-25 16:22:03 -08:00
parent de691da719
commit b22f6a5dc8
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/4live.a
View File

@ -73,7 +73,7 @@
WIDTH = 40 WIDTH = 40
HEIGHT = 24 HEIGHT = 24
LDRBASE = $2E0 LDRBASE = $2E0
INSTALLBUFFER = $23C ; yes, the overlay overwrites the loader... INSTALLBUFFER = $239 ; yes, the overlay overwrites the loader...
; see also "warning!" below ; see also "warning!" below
SWAPBUFFER = $900 ; (LoadSaveEnd - LoadSaveStart) size SWAPBUFFER = $900 ; (LoadSaveEnd - LoadSaveStart) size
; needed by DiversiDOS, must be page-aligned ; needed by DiversiDOS, must be page-aligned
@ -354,6 +354,7 @@ InstallStart
;set to true if no data file found (carry is set) ;set to true if no data file found (carry is set)
rol ClearOnFirstKeypress + 1 rol ClearOnFirstKeypress + 1
rol EnableAddPage + 1
jsr SetTextCoords1 jsr SetTextCoords1
@ -455,7 +456,7 @@ GetKey
bne GetKey ;always bne GetKey ;always
InstallEnd InstallEnd
!if (InstallEnd > JmpInstall) { !if (InstallEnd > JmpInstall) {
!error "page 2 swap-code too large, ", InstallEnd - JmpInstall, " bytes too many" !error "INSTALLBUFFER too large, change to ", InstallStart + JmpInstall - InstallEnd
} else { } else {
!if (InstallEnd < JmpInstall) { !if (InstallEnd < JmpInstall) {
!error "INSTALLBUFFER too low, change to ", InstallStart + JmpInstall - InstallEnd !error "INSTALLBUFFER too low, change to ", InstallStart + JmpInstall - InstallEnd
@ -771,6 +772,7 @@ ClearOnFirstKeypress
plp ;restore carry plp ;restore carry
+ bcc DispatchCommand + bcc DispatchCommand
sta WriteIfDirty2 + 1 sta WriteIfDirty2 + 1
sta EnableAddPage + 1
DispatchCommand DispatchCommand
jsr $34f3 ;self-modified, currently both bytes jsr $34f3 ;self-modified, currently both bytes
@ -910,6 +912,9 @@ PageReturn
;then select that page ;then select that page
HandleKeyAddPage HandleKeyAddPage
EnableAddPage
lda #0 ;self-modified
beq PageReturn ;no add until page 1 is written to disk
lda Pages + 1 lda Pages + 1
cmp #(99 - 1) ;maximum 99 pages cmp #(99 - 1) ;maximum 99 pages
beq PageReturn beq PageReturn