Apple-2-SW/4live
1
0
Fork 0
mirror of https://github.com/a2-4am/4live.git synced 2024-06-26 08:29:29 +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

21
src/4live.a
View File

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