mirror of
https://github.com/bobbimanners/Applecorn.git
synced 2026-04-20 12:16:52 +00:00
Reverted to 5d96b7d1 2nd thoughts on TMPZP!
This commit is contained in:
Binary file not shown.
+1
-1
@@ -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
|
||||
|
||||
+1
-2
@@ -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
|
||||
|
||||
+1
-2
@@ -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
|
||||
|
||||
+4
-6
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user