Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2025-02-12 09:30:40 +00:00
Code Issues Projects Releases Wiki Activity

Use PARSNAME (ie:GSTRNS) in FINDHND also.

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2021-09-02 17:31:37 -04:00
parent 6b09f0dd57
commit b0306c78ab
2 changed files with 1 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

21
auxmem.hostfs.s
View File

@ -22,27 +22,10 @@ FSCMDLINE EQU $CE
FINDHND PHX
PHY
PHA
STX ZP1 ; Points to filename
STY ZP1+1
CMP #$00 ; A=$00 = close
BEQ :CLOSE
PHA
LDA #<MOSFILE+1
STA ZP2
LDA #>MOSFILE+1
STA ZP2+1
LDY #$00
:L1 LDA (ZP1),Y
>>> WRTMAIN
STA (ZP2),Y
>>> WRTAUX
INY
CMP #$0D ; Carriage return
BNE :L1
DEY
>>> WRTMAIN
STY MOSFILE ; Length (Pascal string)
>>> WRTAUX
JSR PARSNAME ; Copy filename->MOSFILE
PLA ; Recover options
>>> XF2MAIN,OFILE
:CLOSE >>> WRTMAIN
@ -480,8 +463,6 @@ FSCRUNLP LDA (OSLPTR),Y ; Look for command line
JSR LPTRtoXY
STX FSCMDLINE+0 ; Set CMDLINE=>command line
STY FSCMDLINE+1 ; Collected by OSARGS 1,0
*
* *BUG* OSFILE &FF should give error if trying to load a directory!
LDA #$FF ; OSFILE load flag
STA OSFILECB+6 ; Use file's address
LDX #<OSFILECB ; Pointer to control block