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

cosmetic, suppress redundant warnings

Browse Source
This commit is contained in:
Peter Ferrie 2016-12-03 14:03:58 -08:00
parent 0666fd5af0
commit d100bf17b3
1 changed files with 30 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
src/4live.a
View File

@ -303,11 +303,13 @@ ExchangeBankedPatch
bpl -
rts
LdrEnd
!if (LdrEnd > $3D0) {
!error "LDRBASE too high, change to ", LdrStart + $3D0 - LdrEnd
} else {
!if (LdrEnd < $3D0) {
!error "LDRBASE too low, change to ", LdrStart + $3D0 - LdrEnd
!ifdef PASS2 {
!if (LdrEnd > $3D0) {
!error "LDRBASE too high, change to ", LdrStart + $3D0 - LdrEnd
} else {
!if (LdrEnd < $3D0) {
!error "LDRBASE too low, change to ", LdrStart + $3D0 - LdrEnd
}
}
}
@ -454,11 +456,15 @@ GetKey
jsr RDCHAR ;returns non-zero
bne GetKey ;always
InstallEnd
!if (InstallEnd > JmpInstall) {
!error "INSTALLBUFFER too large, change to ", InstallStart + JmpInstall - InstallEnd
} else {
!if (InstallEnd < JmpInstall) {
!error "INSTALLBUFFER too low, change to ", InstallStart + JmpInstall - InstallEnd
!ifdef PASS2 {
!if (LdrEnd = $3D0) {
!if (InstallEnd > JmpInstall) {
!error "INSTALLBUFFER too large, change to ", InstallStart + JmpInstall - InstallEnd
} else {
!if (InstallEnd < JmpInstall) {
!error "INSTALLBUFFER too low, change to ", InstallStart + JmpInstall - InstallEnd
}
}
}
}
}
@ -1332,7 +1338,7 @@ InitDiversiWrite
sta WriteSizeHigh + 1
lda WriteOffset
sta DiversiWriteBuffer + 1
!if SWAPSIZEALIGNED=0 {
!if (SWAPSIZEALIGNED = 0) {
dec WriteBuffer + 1
}
lda #<LoadSaveStart
@ -1398,7 +1404,7 @@ WriteSizeHigh
;re-enable swapping
!if SWAPSIZEALIGNED=0 {
!if (SWAPSIZEALIGNED = 0) {
inc WriteBuffer + 1
}
lda #$18 ;CLC
@ -1496,7 +1502,7 @@ FirstLine ;lines are stored sequentially, not like
!fill WIDTH, SPACE
SecondLine
!if >SecondLine != >LoadSaveStart {
!if (>SecondLine != >LoadSaveStart) {
!error "first two lines of text buffer must not cross a page"
}
!fill WIDTH * 7, SPACE
@ -1515,12 +1521,19 @@ LastLine
!fill WIDTH, SPACE
TEMPBUFFER=(*+255) and not 255
!if (TEMPBUFFER>$DB00) {
!error "banked code is too large, ends at ", *, ", ", *-$DB00, " bytes too many"
!ifdef PASS2 {
!if (TEMPBUFFER > $DB00) {
!error "banked code is too large, ends at ", *, ", ", *-$DB00, " bytes too many"
}
}
SECTORBUFFER=TEMPBUFFER+$400
!if VERBOSE=1 {
!warn "banked code end=", *, ", data end=", SECTORBUFFER+$FF, ", bytes free=", $DB00-*
!ifdef PASS2 {
!if (VERBOSE = 1) {
!warn "banked code end=", *, ", data end=", SECTORBUFFER+$FF, ", bytes free=", $DB00-*
}
} else {
;define pass-dependent label to reduce output noise
!set PASS2 = 1
}
}
BankedCopyEnd