Reverted to 5d96b7d1
2nd thoughts on TMPZP!
This commit is contained in:
parent
ad3a545057
commit
e844400fc1
BIN
applecorn.po
BIN
applecorn.po
Binary file not shown.
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue