Apple-2-SW
/
Applecorn
mirror of https://github.com/bobbimanners/Applecorn.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

2
applecorn.s
View File

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

3
mainmem.path.s
View File

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

3
mainmem.shr.s
View File

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

10
mainmem.svc.s
View File

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