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

*RENAME uses PARSNAME + PARSNAME2 now

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2021-09-02 19:01:53 -04:00
parent b7abbf1399
commit 52d802d375
2 changed files with 30 additions and 54 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

84
auxmem.hostfs.s
View File

@ -475,8 +475,7 @@ FSCRUNLP LDA (OSLPTR),Y ; Look for command line
SEC ; Not from RESET
JMP (OSFILECB+6) ; Jump to EXEC addr
FSCREN JSR XYtoLPTR ; Pointer to command line
JMP RENAME
FSCREN JMP RENAME
FSCCHDIR JMP CHDIR
@ -642,37 +641,13 @@ PRSPACE LDA #' '
JMP OSWRCH
* Perform FSCV $0C RENAME function
* Parameter string in OSLPTR
RENAME LDY #$00
:ARG1 LDA (OSLPTR),Y
CMP #$20 ; Space
BEQ :ENDARG1
CMP #$0D ; Carriage return
* Parameter string in XY
RENAME JSR PARSNAME ; Copy Arg1->MOSFILE
CMP #$00 ; Length of arg1
BEQ :RENSYN
JSR PARSNAME2 ; Copy Arg2->MOSFILE2
CMP #$00 ; Length of arg2
BEQ :RENSYN
INY
>>> WRTMAIN
STA MOSFILE,Y
>>> WRTAUX
BRA :ARG1
:ENDARG1 >>> WRTMAIN
STY MOSFILE ; Length of Pascal string
>>> WRTAUX
JSR SKIPSPC
JSR LPTRtoXY ; Update LPTR and set Y=0
JSR XYtoLPTR ; ...
:ARG2 LDA (OSLPTR),Y
CMP #$20 ; Space
BEQ :ENDARG2
CMP #$0D ; Carriage return
BEQ :ENDARG2
INY
>>> WRTMAIN
STA MOSFILE2,Y
>>> WRTAUX
BRA :ARG2
:ENDARG2 >>> WRTMAIN
STY MOSFILE2 ; Length of Pascal string
>>> WRTAUX
>>> XF2MAIN,RENFILE
:RENSYN BRK
DB $DC
@ -681,30 +656,8 @@ RENAME LDY #$00
RENRET
>>> ENTAUX
JSR CHKERROR
**** JSR CHKNOTFND ;;; NOPE: THIS IS MAINMEM FUNC!!!
* CMP #$44 ; Path not found
* BEQ :NOTFND
* CMP #$45 ; Vol dir not found
* BEQ :NOTFND
* CMP #$46 ; File not found
* BEQ :NOTFND
* CMP #$47 ; Duplicate filename
* BEQ :EXISTS
* CMP #$4E ; Access error
* BEQ :LOCKED
* CMP #$00
* BNE :OTHER ; All other errors
LDA #$00
RTS
*:NOTFND JMP ERRNOTFND
*:EXISTS JMP ERREXISTS
*:LOCKED BRK
* DB $C3
* ASC 'Locked'
*:OTHER BRK
* DB $C7
* ASC 'Disc error'
* BRK
* Handle *DIR (directory change) command
* On entry, XY points to command line
@ -750,6 +703,29 @@ PARSNAME JSR XYtoLPTR
TXA ; Return len in A
RTS
* Parse filename pointed to by (OSLPTR),Y
* Write filename to MOSFILE2 in main memory
* Returns length in A
PARSNAME2
CLC ; Means parsing a filename
JSR GSINIT ; Init gen string handling
PHP
SEI ; Disable IRQs
LDX #$00 ; Length
:L1 JSR GSREAD ; Handle next char
BCS :DONE
STA $C004 ; Write to main mem
STA MOSFILE2+1,X
STA $C005 ; Write to aux mem
INX
BNE :L1
:DONE STA $C004 ; Write to main mem
STX MOSFILE2 ; Length byte (Pascal)
STA $C005 ; Back to aux
PLP ; IRQs back as they were
TXA ; Return len in A
RTS
* Move this somewhere
CHKERROR CMP #$20
BCS MKERROR