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
|
ISRL EQU $02 ; Used for ISR only
|
||||||
ISRH EQU $03 ; Used for ISR only
|
ISRH EQU $03 ; Used for ISR only
|
||||||
SHRZP EQU $56 ; 25 bytes, persistent, SHR code 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
|
* Used by XFER
|
||||||
STRTL EQU $3ED
|
STRTL EQU $3ED
|
||||||
|
|
|
@ -219,8 +219,7 @@ INSMF PHA ; Preserve char
|
||||||
STA MOSFILE,Y ; Insert it
|
STA MOSFILE,Y ; Insert it
|
||||||
INC MOSFILE ; One char longer
|
INC MOSFILE ; One char longer
|
||||||
RTS
|
RTS
|
||||||
* Zero page
|
:INSIDX DB $00
|
||||||
:INSIDX EQU TMPZP+0
|
|
||||||
|
|
||||||
* Copy Pascal-style string
|
* Copy Pascal-style string
|
||||||
* Source in A1L/A1H, dest in A4L/A4H
|
* Source in A1L/A1H, dest in A4L/A4H
|
||||||
|
|
|
@ -118,8 +118,7 @@ SHRUSERCHAR >>> ENTMAIN
|
||||||
CPY #$08 ; Last row?
|
CPY #$08 ; Last row?
|
||||||
BNE :L1
|
BNE :L1
|
||||||
:DONE >>> XF2AUX,VDU23RET
|
:DONE >>> XF2AUX,VDU23RET
|
||||||
* Zero page
|
:INCREMENT DB $00
|
||||||
:INCREMENT EQU TMPZP+0
|
|
||||||
|
|
||||||
|
|
||||||
* Explode one row of pixels. Used by SHRXPLDCHAR & SHRUSERCHAR
|
* Explode one row of pixels. Used by SHRXPLDCHAR & SHRUSERCHAR
|
||||||
|
|
|
@ -139,9 +139,8 @@ COPYFILE >>> ENTMAIN
|
||||||
JSR CLSDIR
|
JSR CLSDIR
|
||||||
PLA
|
PLA
|
||||||
BRA :EXIT
|
BRA :EXIT
|
||||||
* Zero page
|
:DESTTYPE DB $00
|
||||||
:DESTTYPE EQU TMPZP+0
|
:OLDLEN DB $00
|
||||||
:OLDLEN EQU TMPZP+1
|
|
||||||
|
|
||||||
* Copy a single file
|
* Copy a single file
|
||||||
* Source is in MOSFILE, DEST in MOSFILE2
|
* Source is in MOSFILE, DEST in MOSFILE2
|
||||||
|
@ -254,9 +253,8 @@ COPY1FILE LDA #<MOSFILE
|
||||||
PHP
|
PHP
|
||||||
PHA
|
PHA
|
||||||
BRA :CLOSE2
|
BRA :CLOSE2
|
||||||
* Zero page
|
:BUFIDX1 DB $00
|
||||||
:BUFIDX1 EQU TMPZP+0
|
:BUFIDX2 DB $00
|
||||||
:BUFIDX2 EQU TMPZP+1
|
|
||||||
|
|
||||||
|
|
||||||
* ProDOS file handling for MOS OSFIND OPEN call
|
* ProDOS file handling for MOS OSFIND OPEN call
|
||||||
|
|
Loading…
Reference in New Issue