diff --git a/applecorn.po b/applecorn.po index a1ddab0..8085c9f 100644 Binary files a/applecorn.po and b/applecorn.po differ diff --git a/applecorn.s b/applecorn.s index f625074..39fb96d 100644 --- a/applecorn.s +++ b/applecorn.s @@ -37,7 +37,7 @@ A4H EQU $43 ISRL EQU $02 ; Used for ISR only ISRH EQU $03 ; Used for ISR only SHRZP EQU $56 ; 25 bytes, persistent, SHR code only -TMPZP EQU $56+25 ; 20 bytes temp scratch space for locals +TMPZP EQU $56+25 ; Temp scratch space for routines * Used by XFER STRTL EQU $3ED diff --git a/mainmem.path.s b/mainmem.path.s index 0c1eb3d..d786aba 100644 --- a/mainmem.path.s +++ b/mainmem.path.s @@ -219,8 +219,7 @@ INSMF PHA ; Preserve char STA MOSFILE,Y ; Insert it INC MOSFILE ; One char longer RTS -* Zero page -:INSIDX EQU TMPZP+0 +:INSIDX DB $00 * Copy Pascal-style string * Source in A1L/A1H, dest in A4L/A4H diff --git a/mainmem.shr.s b/mainmem.shr.s index a363a98..74739e5 100644 --- a/mainmem.shr.s +++ b/mainmem.shr.s @@ -118,8 +118,7 @@ SHRUSERCHAR >>> ENTMAIN CPY #$08 ; Last row? BNE :L1 :DONE >>> XF2AUX,VDU23RET -* Zero page -:INCREMENT EQU TMPZP+0 +:INCREMENT DB $00 * Explode one row of pixels. Used by SHRXPLDCHAR & SHRUSERCHAR diff --git a/mainmem.svc.s b/mainmem.svc.s index 73026aa..fc6e7ed 100644 --- a/mainmem.svc.s +++ b/mainmem.svc.s @@ -139,9 +139,8 @@ COPYFILE >>> ENTMAIN JSR CLSDIR PLA BRA :EXIT -* Zero page -:DESTTYPE EQU TMPZP+0 -:OLDLEN EQU TMPZP+1 +:DESTTYPE DB $00 +:OLDLEN DB $00 * Copy a single file * Source is in MOSFILE, DEST in MOSFILE2 @@ -254,9 +253,8 @@ COPY1FILE LDA #