Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2024-06-06 07:29:31 +00:00
Code Issues Projects Releases Wiki Activity

Implemented FSCV RENAME call. No err handling yet.

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2021-08-25 18:25:42 -04:00
parent 599ae0cb45
commit 7ab32daacb
3 changed files with 42 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

40
auxmem.hostfs.s
View File

@ -391,7 +391,8 @@ FSCRUN STX OSFILECB ; Pointer to filename
RTS
:CALL JMP (OSFILECB+6) ; Jump to EXEC addr
RTS
FSCREN
FSCREN JSR XYtoLPTR ; Pointer to command line
JSR RENAME
RTS
OSFSCM ASC 'OSFSC.'
DB $00
@ -483,6 +484,43 @@ PRONEENT TAX
BNE :S2
:EXIT RTS
* 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
BEQ RENERR
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 #$0D ; Carriage return
BEQ :ENDARG2
INY
>>> WRTMAIN
STA MOSFILE2,Y
>>> WRTAUX
BRA :ARG2
:ENDARG2 >>> WRTMAIN
STY MOSFILE2 ; Length of Pascal string
>>> WRTAUX
>>> XF2MAIN,RENFILE
RENRET
>>> ENTAUX
RENERR
* TODO Error handling!!
RTS
* Handle *DIR (directory change) command
* On entry, ZP1 points to command line
STARDIR JSR EATSPC ; Eat leading spaces

6
mainmem.s
View File

@ -202,10 +202,10 @@ MAKEDIR >>> ENTMAIN
* ProDOS file handling to rename a file
RENFILE >>> ENTMAIN
JSR RENAME
** >>> XF2AUX,STARRENRET **** TODO FIX THIS!!!
JSR DORENAME
>>> XF2AUX,RENRET
RENAME LDA #<MOSFILE
DORENAME LDA #<MOSFILE
STA RENPL+1
LDA #>MOSFILE
STA RENPL+2