Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2025-08-14 17:27:24 +00:00
Code Issues Projects Releases Wiki Activity

auxmem.hostfs.s/auxmem.misc.s: removed redundant PHP/SEI .. PLP

Browse Source
This commit is contained in:
Bobbi Webber-Manners
2022-09-20 15:28:59 -04:00
parent 8a19df857b
commit 0adf054973
2 changed files with 0 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
auxmem.hostfs.s
View File

@@ -845,8 +845,6 @@ FSCTITLE RTS
PARSNAME JSR XYtoLPTR PARSNAME JSR XYtoLPTR
PARSLPTR CLC ; Means parsing a filename PARSLPTR CLC ; Means parsing a filename
JSR GSINIT ; Init general string handling JSR GSINIT ; Init general string handling
PHP
SEI ; Disable IRQs
LDX #$00 ; Length LDX #$00 ; Length
:L1 JSR GSREAD ; Handle next char :L1 JSR GSREAD ; Handle next char
BCS :DONE BCS :DONE
@@ -861,7 +859,6 @@ PARSLPTR CLC ; Means parsing a filename
:DONE >>> WRTMAIN :DONE >>> WRTMAIN
STX MOSFILE ; Length byte (Pascal) STX MOSFILE ; Length byte (Pascal)
>>> WRTAUX >>> WRTAUX
PLP ; IRQs back as they were
TXA ; Return len in A TXA ; Return len in A
RTS RTS
@@ -871,8 +868,6 @@ PARSLPTR CLC ; Means parsing a filename
PARSNAME2 JSR XYtoLPTR PARSNAME2 JSR XYtoLPTR
PARSLPTR2 CLC ; Means parsing a filename PARSLPTR2 CLC ; Means parsing a filename
JSR GSINIT ; Init gen string handling JSR GSINIT ; Init gen string handling
PHP
SEI ; Disable IRQs
LDX #$00 ; Length LDX #$00 ; Length
:L1 JSR GSREAD ; Handle next char :L1 JSR GSREAD ; Handle next char
BCS :DONE BCS :DONE
@@ -887,7 +882,6 @@ PARSLPTR2 CLC ; Means parsing a filename
:DONE >>> WRTMAIN :DONE >>> WRTMAIN
STX MOSFILE2 ; Length byte (Pascal) STX MOSFILE2 ; Length byte (Pascal)
>>> WRTAUX >>> WRTAUX
PLP ; IRQs back as they were
TXA ; Return len in A TXA ; Return len in A
NOTERROR RTS NOTERROR RTS

1
auxmem.misc.s
View File

@@ -339,7 +339,6 @@ ROMSELECT
PHA PHA
PHX PHX
PHY PHY
SEI
TXA ; A=ROM to select TXA ; A=ROM to select
>>> XF2MAIN,SELECTROM >>> XF2MAIN,SELECTROM
ROMSELDONE >>> ENTAUX ROMSELDONE >>> ENTAUX