Reverted to 5d96b7d1 2nd thoughts on TMPZP!

This commit is contained in:
Bobbi Webber-Manners 2023-01-04 21:53:37 -05:00
parent ad3a545057
commit e844400fc1
5 changed files with 7 additions and 11 deletions

Binary file not shown.

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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 #<MOSFILE
PHP
PHA
BRA :CLOSE2
* Zero page
:BUFIDX1 EQU TMPZP+0
:BUFIDX2 EQU TMPZP+1
:BUFIDX1 DB $00
:BUFIDX2 DB $00
* ProDOS file handling for MOS OSFIND OPEN call