2021-07-28 04:17:47 +00:00
|
|
|
* MAINMEM.S
|
2021-07-29 18:43:56 +00:00
|
|
|
* (c) Bobbi 2021 GPL v3
|
2021-07-31 21:33:08 +00:00
|
|
|
*
|
|
|
|
|
* Code that runs on the Apple //e in main memory.
|
2021-07-28 04:17:47 +00:00
|
|
|
* This code is mostly glue between the BBC Micro code
|
2021-07-31 21:33:08 +00:00
|
|
|
* which runs in aux mem and Apple II ProDOS.
|
2021-07-28 04:17:47 +00:00
|
|
|
|
2021-08-26 21:36:46 +00:00
|
|
|
* 24-Aug-2021 AUXTYPE set from load address
|
2021-08-29 05:13:31 +00:00
|
|
|
* 27-Aug-2021 Delete and MkDir return ProDOS result to caller
|
|
|
|
|
* 29-Aug-2021 All calls (seem to) return ProDOS result to caller
|
|
|
|
|
* Set ?&E0=255 for testing to report ProDOS result
|
2021-08-30 23:08:22 +00:00
|
|
|
* 30-Aug-2021 INFOFILE semi-implemented, UPDFB returns moddate
|
2021-08-29 05:13:31 +00:00
|
|
|
* Lots of tidying up possible once confirmed code working
|
|
|
|
|
|
2021-08-26 21:36:46 +00:00
|
|
|
|
2021-08-30 23:08:22 +00:00
|
|
|
* ProDOS string buffers
|
|
|
|
|
RTCBUF EQU $0200 ; Use by RTC calls, 40 bytes
|
|
|
|
|
* ; $0228-$023D
|
|
|
|
|
DRVBUF1 EQU $023E
|
|
|
|
|
DRVBUF2 EQU $023F ; Prefix on current drive, len+64
|
|
|
|
|
CMDPATH EQU $0280 ; Path used to start Applecorn
|
|
|
|
|
|
|
|
|
|
* Filename string buffers
|
|
|
|
|
MOSFILE1 EQU $0300 ; length + 64 bytes
|
|
|
|
|
MOSFILE2 EQU $0341 ; length + 64 bytes
|
|
|
|
|
MOSFILE EQU MOSFILE1
|
|
|
|
|
* $0382 ; $3C bytes here
|
|
|
|
|
*
|
|
|
|
|
FILEBLK EQU $03BE
|
|
|
|
|
FBPTR EQU FILEBLK+0 ; Pointer to name (in aux)
|
|
|
|
|
FBLOAD EQU FILEBLK+2 ; Load address
|
|
|
|
|
FBEXEC EQU FILEBLK+6 ; Exec address
|
|
|
|
|
FBSIZE EQU FILEBLK+10 ; Size
|
|
|
|
|
FBSTRT EQU FILEBLK+10 ; Start address for SAVE
|
|
|
|
|
FBATTR EQU FILEBLK+14 ; Attributes
|
|
|
|
|
FBEND EQU FILEBLK+14 ; End address for SAVE
|
|
|
|
|
|
2021-08-18 00:13:51 +00:00
|
|
|
* ProDOS MLI command numbers
|
2021-08-29 05:13:31 +00:00
|
|
|
QUITCMD EQU $65
|
|
|
|
|
GTIMECMD EQU $82
|
|
|
|
|
CREATCMD EQU $C0
|
|
|
|
|
DESTCMD EQU $C1
|
|
|
|
|
RENCMD EQU $C2
|
|
|
|
|
SFILECMD EQU $C3
|
|
|
|
|
GINFOCMD EQU $C4
|
|
|
|
|
ONLNCMD EQU $C5
|
|
|
|
|
SPFXCMD EQU $C6
|
|
|
|
|
GPFXCMD EQU $C7
|
|
|
|
|
OPENCMD EQU $C8
|
|
|
|
|
READCMD EQU $CA
|
|
|
|
|
WRITECMD EQU $CB
|
|
|
|
|
CLSCMD EQU $CC
|
|
|
|
|
FLSHCMD EQU $CD
|
|
|
|
|
SMARKCMD EQU $CE
|
|
|
|
|
GMARKCMD EQU $CF
|
|
|
|
|
GEOFCMD EQU $D1
|
2021-08-18 00:13:51 +00:00
|
|
|
|
2021-08-06 03:02:13 +00:00
|
|
|
* Trampoline in main memory used by aux memory IRQ handler
|
|
|
|
|
* to invoke Apple II / ProDOS IRQs in main memory
|
2021-08-29 05:13:31 +00:00
|
|
|
A2IRQ >>> IENTMAIN ; IENTMAIN does not do CLI
|
|
|
|
|
JSR A2IRQ2
|
|
|
|
|
>>> XF2AUX,IRQBRKRET
|
|
|
|
|
A2IRQ2 PHP ; Fake things to look like IRQ
|
|
|
|
|
JMP (A2IRQV) ; Call Apple II ProDOS ISR
|
2021-08-06 03:02:13 +00:00
|
|
|
|
2021-08-15 22:18:52 +00:00
|
|
|
* BRK handler in main memory. Used on Apple IIgs only.
|
2021-08-29 05:13:31 +00:00
|
|
|
GSBRK >>> XF2AUX,GSBRKAUX
|
2021-08-15 22:18:52 +00:00
|
|
|
|
2021-07-28 04:17:47 +00:00
|
|
|
* Set prefix if not already set
|
2021-08-29 05:13:31 +00:00
|
|
|
SETPRFX LDA #GPFXCMD
|
|
|
|
|
STA :OPC7 ; Initialize cmd byte to $C7
|
|
|
|
|
:L1 JSR MLI
|
|
|
|
|
:OPC7 DB $00
|
|
|
|
|
DW GSPFXPL
|
2021-08-30 23:08:22 +00:00
|
|
|
LDX DRVBUF1 ; was $0300
|
2021-08-29 05:13:31 +00:00
|
|
|
BNE RTSINST
|
|
|
|
|
LDA $BF30
|
|
|
|
|
STA ONLNPL+1 ; Device number
|
|
|
|
|
JSR MLI
|
|
|
|
|
DB ONLNCMD
|
|
|
|
|
DW ONLNPL
|
2021-08-30 23:08:22 +00:00
|
|
|
LDA DRVBUF2 ; was $0301
|
2021-08-29 05:13:31 +00:00
|
|
|
AND #$0F
|
|
|
|
|
TAX
|
|
|
|
|
INX
|
2021-08-30 23:08:22 +00:00
|
|
|
STX DRVBUF1 ; was $0300
|
2021-08-29 05:13:31 +00:00
|
|
|
LDA #$2F
|
2021-08-30 23:08:22 +00:00
|
|
|
STA DRVBUF2 ; was $0301
|
2021-08-29 05:13:31 +00:00
|
|
|
DEC :OPC7
|
|
|
|
|
BNE :L1
|
|
|
|
|
RTSINST RTS
|
2021-07-28 04:17:47 +00:00
|
|
|
|
2021-07-29 00:47:26 +00:00
|
|
|
* Disconnect /RAM ramdrive to avoid aux corruption
|
2021-07-28 04:17:47 +00:00
|
|
|
* Stolen from Beagle Bros Extra K
|
2021-08-29 05:13:31 +00:00
|
|
|
DISCONN LDA $BF98
|
|
|
|
|
AND #$30
|
|
|
|
|
CMP #$30
|
|
|
|
|
BNE :S1
|
|
|
|
|
LDA $BF26
|
|
|
|
|
CMP $BF10
|
|
|
|
|
BNE :S2
|
|
|
|
|
LDA $BF27
|
|
|
|
|
CMP $BF11
|
|
|
|
|
BEQ :S1
|
|
|
|
|
:S2 LDY $BF31
|
|
|
|
|
:L1 LDA $BF32,Y
|
|
|
|
|
AND #$F3
|
|
|
|
|
CMP #$B3
|
|
|
|
|
BEQ :S3
|
|
|
|
|
DEY
|
|
|
|
|
BPL :L1
|
|
|
|
|
BMI :S1
|
|
|
|
|
:S3 LDA $BF32,Y
|
2021-08-30 23:08:22 +00:00
|
|
|
STA DRVBUF2+1 ; was $0302
|
2021-08-29 05:13:31 +00:00
|
|
|
:L2 LDA $BF33,Y
|
|
|
|
|
STA $BF32,Y
|
|
|
|
|
BEQ :S4
|
|
|
|
|
INY
|
|
|
|
|
BNE :L2
|
|
|
|
|
:S4 LDA $BF26
|
2021-08-30 23:08:22 +00:00
|
|
|
STA DRVBUF1 ; was $0300
|
2021-08-29 05:13:31 +00:00
|
|
|
LDA $BF27
|
2021-08-30 23:08:22 +00:00
|
|
|
STA DRVBUF2 ; was $0301
|
2021-08-29 05:13:31 +00:00
|
|
|
LDA $BF10
|
|
|
|
|
STA $BF26
|
|
|
|
|
LDA $BF11
|
|
|
|
|
STA $BF27
|
|
|
|
|
DEC $BF31
|
|
|
|
|
:S1 RTS
|
2021-07-28 04:17:47 +00:00
|
|
|
|
2021-07-29 00:47:26 +00:00
|
|
|
* Reset handler - invoked on Ctrl-Reset
|
2021-07-28 04:17:47 +00:00
|
|
|
* XFER to AUXMOS ($C000) in aux, AuxZP on, LC on
|
2021-08-29 05:13:31 +00:00
|
|
|
RESET TSX
|
|
|
|
|
STX $0100
|
|
|
|
|
LDA $C058 ; AN0 off
|
|
|
|
|
LDA $C05A ; AN1 off
|
|
|
|
|
LDA $C05D ; AN2 on
|
|
|
|
|
LDA $C05F ; AN3 on
|
|
|
|
|
LDA #$20 ; PAGE2 shadow on ROM3 GS
|
|
|
|
|
TRB $C035
|
|
|
|
|
>>> XF2AUX,AUXMOS
|
|
|
|
|
RTS
|
2021-07-28 04:17:47 +00:00
|
|
|
|
2021-07-29 00:47:26 +00:00
|
|
|
* Copy 512 bytes from BLKBUF to AUXBLK in aux LC
|
2021-07-28 04:17:47 +00:00
|
|
|
COPYAUXBLK
|
2021-08-29 05:13:31 +00:00
|
|
|
>>> ALTZP ; Alt ZP & Alt LC on
|
|
|
|
|
|
|
|
|
|
LDY #$00
|
|
|
|
|
:L1 LDA BLKBUF,Y
|
|
|
|
|
STA $C005 ; Write aux mem
|
|
|
|
|
STA AUXBLK,Y
|
|
|
|
|
STA $C004 ; Write main mem
|
|
|
|
|
CPY #$FF
|
|
|
|
|
BEQ :S1
|
|
|
|
|
INY
|
|
|
|
|
BRA :L1
|
|
|
|
|
|
|
|
|
|
:S1 LDY #$00
|
|
|
|
|
:L2 LDA BLKBUF+$100,Y
|
|
|
|
|
STA $C005 ; Write aux mem
|
|
|
|
|
STA AUXBLK+$100,Y
|
|
|
|
|
STA $C004 ; Write main mem
|
|
|
|
|
CPY #$FF
|
|
|
|
|
BEQ :S2
|
|
|
|
|
INY
|
|
|
|
|
BRA :L2
|
|
|
|
|
|
|
|
|
|
:S2 >>> MAINZP ; Alt ZP off, ROM back in
|
|
|
|
|
RTS
|
2021-07-28 04:17:47 +00:00
|
|
|
|
2021-08-30 23:08:22 +00:00
|
|
|
* TO DO: All OSFILE calls combined and dispatch in here
|
|
|
|
|
* All start with PREPATH, UPDFB, COPYFB then branch
|
|
|
|
|
* to relevent routine.
|
|
|
|
|
|
|
|
|
|
INFOFILE >>> ENTMAIN
|
2021-09-01 00:10:34 +00:00
|
|
|
JSR PREPATH ; Preprocess path
|
2021-08-30 23:08:22 +00:00
|
|
|
JSR UPDFB ; Update FILEBLK
|
|
|
|
|
JSR COPYFB ; Copy back to aux mem
|
|
|
|
|
>>> XF2AUX,OSFILERET
|
|
|
|
|
|
|
|
|
|
|
2021-08-22 00:13:06 +00:00
|
|
|
* ProDOS file handling to delete a file
|
2021-08-27 03:32:40 +00:00
|
|
|
* Called by AppleMOS OSFILE
|
2021-08-29 05:13:31 +00:00
|
|
|
* Return A=0 no object, A=1 file deleted, A=2 dir deleted
|
|
|
|
|
* A>$1F ProDOS error
|
|
|
|
|
DELFILE >>> ENTMAIN
|
2021-09-01 00:10:34 +00:00
|
|
|
JSR PREPATH ; Preprocess pathname
|
2021-08-29 05:13:31 +00:00
|
|
|
JSR UPDFB ; Update FILEBLK
|
|
|
|
|
JSR COPYFB ; Copy back to aux mem
|
|
|
|
|
PHA ; Save object type
|
|
|
|
|
JSR DESTROY
|
|
|
|
|
BCC :DELETED
|
|
|
|
|
PLX ; Drop object
|
|
|
|
|
JSR CHKNOTFND
|
|
|
|
|
PHA
|
|
|
|
|
:DELETED PLA ; Get object back
|
|
|
|
|
:EXIT >>> XF2AUX,OSFILERET
|
|
|
|
|
|
|
|
|
|
DESTROY LDA #<MOSFILE ; Attempt to destroy file
|
|
|
|
|
STA DESTPL+1
|
|
|
|
|
LDA #>MOSFILE
|
|
|
|
|
STA DESTPL+2
|
|
|
|
|
JSR MLI
|
|
|
|
|
DB DESTCMD
|
|
|
|
|
DW DESTPL
|
|
|
|
|
RTS
|
2021-07-28 04:17:47 +00:00
|
|
|
|
2021-08-25 03:40:47 +00:00
|
|
|
* ProDOS file handling to create a directory
|
2021-08-27 03:32:40 +00:00
|
|
|
* Invoked by AppleMOS OSFILE
|
|
|
|
|
* Return A=02 on success (ie: 'directory')
|
2021-08-29 05:13:31 +00:00
|
|
|
* A>$1F ProDOS error, translated by OSFILE handler
|
|
|
|
|
MAKEDIR >>> ENTMAIN
|
2021-09-01 00:10:34 +00:00
|
|
|
JSR PREPATH ; Preprocess pathname
|
2021-08-29 05:13:31 +00:00
|
|
|
JSR UPDFB ; Update FILEBLK
|
|
|
|
|
JSR COPYFB ; Copy back to aux mem
|
|
|
|
|
CMP #$02
|
|
|
|
|
BEQ :EXIT ; Dir already exists
|
|
|
|
|
* Make into a subroutine
|
2021-08-30 23:08:22 +00:00
|
|
|
LDA #$0D ; 'Directory'
|
|
|
|
|
STA CREATEPL+7 ; ->Storage type
|
|
|
|
|
LDA #$0F ; 'Directory'
|
|
|
|
|
STA CREATEPL+4 ; ->File type
|
|
|
|
|
* subroutine....
|
2021-08-29 05:13:31 +00:00
|
|
|
LDA #<MOSFILE
|
|
|
|
|
STA CREATEPL+1
|
|
|
|
|
LDA #>MOSFILE
|
|
|
|
|
STA CREATEPL+2
|
|
|
|
|
LDA #$C3 ; 'Default access'
|
|
|
|
|
STA CREATEPL+3 ; ->Access
|
|
|
|
|
STZ CREATEPL+5 ; Aux type LSB
|
|
|
|
|
STZ CREATEPL+6 ; Aux type MSB
|
2021-08-30 23:08:22 +00:00
|
|
|
* Don't we have to make a call to update BF90-BF93?
|
2021-08-29 05:13:31 +00:00
|
|
|
LDA $BF90 ; Current date
|
|
|
|
|
STA CREATEPL+8
|
|
|
|
|
LDA $BF91
|
|
|
|
|
STA CREATEPL+9
|
|
|
|
|
LDA $BF92 ; Current time
|
|
|
|
|
STA CREATEPL+10
|
|
|
|
|
LDA $BF93
|
|
|
|
|
STA CREATEPL+11
|
|
|
|
|
JSR CRTFILE
|
2021-08-30 23:08:22 +00:00
|
|
|
* ...
|
2021-08-29 05:13:31 +00:00
|
|
|
BCS :EXIT ; Failed, exit with ProDOS result
|
|
|
|
|
JSR UPDFB ; Update FILEBLK
|
|
|
|
|
JSR COPYFB ; Copy FILEBLK to aux mem
|
|
|
|
|
LDA #$02 ; Success, $02=dir created
|
|
|
|
|
:EXIT >>> XF2AUX,OSFILERET
|
2021-08-25 03:40:47 +00:00
|
|
|
|
2021-08-22 19:53:05 +00:00
|
|
|
* ProDOS file handling to rename a file
|
2021-08-29 05:13:31 +00:00
|
|
|
RENFILE >>> ENTMAIN
|
2021-09-04 06:00:26 +00:00
|
|
|
JSR PREPATH ; Preprocess arg1
|
|
|
|
|
JSR MFtoTMP ; Stash arg1
|
|
|
|
|
JSR COPYMF21 ; Copy arg2
|
|
|
|
|
JSR PREPATH ; Preprocess arg2
|
|
|
|
|
JSR COPYMF12 ; Put it back in MOSFILE2
|
|
|
|
|
JSR TMPtoMF ; Recover arg1->MOSFILE
|
|
|
|
|
LDA #<MOSFILE
|
2021-08-29 05:13:31 +00:00
|
|
|
STA RENPL+1
|
|
|
|
|
LDA #>MOSFILE
|
|
|
|
|
STA RENPL+2
|
|
|
|
|
LDA #<MOSFILE2
|
|
|
|
|
STA RENPL+3
|
|
|
|
|
LDA #>MOSFILE2
|
|
|
|
|
STA RENPL+4
|
|
|
|
|
JSR MLI
|
|
|
|
|
DB RENCMD
|
|
|
|
|
DW RENPL
|
2021-09-04 06:00:26 +00:00
|
|
|
>>> XF2AUX,RENRET
|
2021-08-22 19:53:05 +00:00
|
|
|
|
2021-08-22 00:13:06 +00:00
|
|
|
* ProDOS file handling for MOS OSFIND OPEN call
|
|
|
|
|
* Options in A: $40 'r', $80 'w', $C0 'rw'
|
2021-08-29 05:13:31 +00:00
|
|
|
OFILE >>> ENTMAIN
|
|
|
|
|
PHA ; Preserve arg for later
|
2021-09-01 00:10:34 +00:00
|
|
|
JSR PREPATH ; Preprocess pathname
|
2021-09-01 01:24:12 +00:00
|
|
|
JSR EXISTS ; See if file exists ...
|
|
|
|
|
CMP #$02 ; ... and is a directory
|
|
|
|
|
BNE :NOTDIR
|
|
|
|
|
JMP :NOTFND ; Bail out if directory
|
|
|
|
|
:NOTDIR PLA
|
2021-09-01 00:10:34 +00:00
|
|
|
PHA
|
2021-08-29 05:13:31 +00:00
|
|
|
CMP #$80 ; Write mode
|
|
|
|
|
BNE :S0
|
|
|
|
|
JSR DESTROY
|
|
|
|
|
* Make into a subroutine
|
2021-08-30 23:08:22 +00:00
|
|
|
LDA #$01 ; Storage type - file
|
|
|
|
|
STA CREATEPL+7
|
|
|
|
|
LDA #$06 ; Filetype BIN
|
|
|
|
|
STA CREATEPL+4
|
2021-08-29 05:13:31 +00:00
|
|
|
LDA #<MOSFILE ; Attempt to create file
|
|
|
|
|
STA CREATEPL+1
|
|
|
|
|
STA OPENPL+1
|
|
|
|
|
LDA #>MOSFILE
|
|
|
|
|
STA CREATEPL+2
|
|
|
|
|
STA OPENPL+2
|
|
|
|
|
LDA #$C3 ; Access unlocked
|
|
|
|
|
STA CREATEPL+3
|
|
|
|
|
LDA #$00 ; Auxtype
|
|
|
|
|
STA CREATEPL+5
|
|
|
|
|
LDA #$00
|
|
|
|
|
STA CREATEPL+6
|
|
|
|
|
LDA $BF90 ; Current date
|
|
|
|
|
STA CREATEPL+8
|
|
|
|
|
LDA $BF91
|
|
|
|
|
STA CREATEPL+9
|
|
|
|
|
LDA $BF92 ; Current time
|
|
|
|
|
STA CREATEPL+10
|
|
|
|
|
LDA $BF93
|
|
|
|
|
STA CREATEPL+11
|
|
|
|
|
JSR CRTFILE
|
2021-08-30 23:08:22 +00:00
|
|
|
* ...
|
2021-08-29 05:13:31 +00:00
|
|
|
:S0 LDA #$00 ; Look for empty slot
|
|
|
|
|
JSR FINDBUF
|
|
|
|
|
STX BUFIDX
|
|
|
|
|
CPX #$00
|
|
|
|
|
BNE :S1
|
|
|
|
|
LDA #<IOBUF1
|
|
|
|
|
LDY #>IOBUF1
|
|
|
|
|
BRA :S4
|
|
|
|
|
:S1 CPX #$01
|
|
|
|
|
BNE :S2
|
|
|
|
|
LDA #<IOBUF2
|
|
|
|
|
LDY #>IOBUF2
|
|
|
|
|
BRA :S4
|
|
|
|
|
:S2 CPX #$02
|
|
|
|
|
BNE :S3
|
|
|
|
|
LDA #<IOBUF3
|
|
|
|
|
LDY #>IOBUF3
|
|
|
|
|
BRA :S4
|
|
|
|
|
:S3 CPX #$03
|
|
|
|
|
BNE :NOTFND ; Out of buffers really
|
|
|
|
|
LDA #<IOBUF4
|
|
|
|
|
LDY #>IOBUF4
|
|
|
|
|
|
|
|
|
|
:S4 STA OPENPL2+3
|
|
|
|
|
STY OPENPL2+4
|
|
|
|
|
|
|
|
|
|
LDA #<MOSFILE
|
|
|
|
|
STA OPENPL2+1
|
|
|
|
|
LDA #>MOSFILE
|
|
|
|
|
STA OPENPL2+2
|
|
|
|
|
JSR MLI
|
|
|
|
|
DB OPENCMD
|
|
|
|
|
DW OPENPL2
|
|
|
|
|
BCS :NOTFND
|
|
|
|
|
LDA OPENPL2+5 ; File ref number
|
|
|
|
|
LDX BUFIDX
|
|
|
|
|
CPX #$FF
|
|
|
|
|
BEQ FINDEXIT
|
|
|
|
|
STA FILEREFS,X ; Record the ref number
|
|
|
|
|
BRA FINDEXIT
|
|
|
|
|
:NOTFND LDA #$00
|
|
|
|
|
FINDEXIT >>> XF2AUX,OSFINDRET
|
|
|
|
|
BUFIDX DB $00
|
2021-07-28 04:17:47 +00:00
|
|
|
|
|
|
|
|
* ProDOS file handling for MOS OSFIND CLOSE call
|
2021-08-29 05:13:31 +00:00
|
|
|
CFILE >>> ENTMAIN
|
|
|
|
|
LDA MOSFILE ; File ref number
|
|
|
|
|
STA CLSPL+1
|
|
|
|
|
JSR CLSFILE
|
|
|
|
|
LDA MOSFILE
|
|
|
|
|
JSR FINDBUF
|
|
|
|
|
CPX #$FF
|
|
|
|
|
BEQ :S1
|
|
|
|
|
LDA #$00
|
|
|
|
|
STA FILEREFS,X
|
|
|
|
|
:S1 JMP FINDEXIT
|
2021-07-28 04:17:47 +00:00
|
|
|
|
|
|
|
|
* Map of file reference numbers to IOBUF1..4
|
2021-08-29 05:13:31 +00:00
|
|
|
FILEREFS DB $00,$00,$00,$00
|
2021-07-28 04:17:47 +00:00
|
|
|
|
|
|
|
|
* Search FILEREFS for value in A
|
2021-08-29 05:13:31 +00:00
|
|
|
FINDBUF LDX #$00
|
|
|
|
|
:L1 CMP FILEREFS,X
|
|
|
|
|
BEQ :END
|
|
|
|
|
INX
|
|
|
|
|
CPX #$04
|
|
|
|
|
BNE :L1
|
|
|
|
|
LDX #$FF ; $FF for not found
|
|
|
|
|
:END RTS
|
2021-07-28 04:17:47 +00:00
|
|
|
|
|
|
|
|
* ProDOS file handling for MOS OSBGET call
|
2021-08-04 13:08:19 +00:00
|
|
|
* Returns with char read in A and error num in Y (or 0)
|
2021-08-29 05:13:31 +00:00
|
|
|
FILEGET >>> ENTMAIN
|
|
|
|
|
LDA MOSFILE ; File ref number
|
|
|
|
|
STA READPL2+1
|
|
|
|
|
JSR MLI
|
|
|
|
|
DB READCMD
|
|
|
|
|
DW READPL2
|
|
|
|
|
BCC :NOERR
|
|
|
|
|
TAY ; Error number in Y
|
|
|
|
|
BRA :EXIT
|
|
|
|
|
:NOERR LDY #$00
|
|
|
|
|
LDA BLKBUF
|
|
|
|
|
:EXIT >>> XF2AUX,OSBGETRET
|
2021-07-28 04:17:47 +00:00
|
|
|
|
|
|
|
|
* ProDOS file handling for MOS OSBPUT call
|
2021-07-29 00:47:26 +00:00
|
|
|
* Enters with char to write in A
|
2021-08-29 05:13:31 +00:00
|
|
|
FILEPUT >>> ENTMAIN
|
|
|
|
|
STA BLKBUF ; Char to write
|
|
|
|
|
|
|
|
|
|
LDA MOSFILE ; File ref number
|
|
|
|
|
STA WRITEPL+1
|
|
|
|
|
LDA #$01 ; Bytes to write
|
|
|
|
|
STA WRITEPL+4
|
|
|
|
|
LDA #$00
|
|
|
|
|
STA WRITEPL+5
|
|
|
|
|
JSR WRTFILE
|
|
|
|
|
>>> XF2AUX,OSBPUTRET
|
2021-07-29 18:43:56 +00:00
|
|
|
|
|
|
|
|
* ProDOS file handling for OSBYTE $7F EOF
|
|
|
|
|
* Returns EOF status in A ($FF for EOF, $00 otherwise)
|
2021-08-29 05:13:31 +00:00
|
|
|
FILEEOF >>> ENTMAIN
|
|
|
|
|
|
|
|
|
|
LDA MOSFILE ; File ref number
|
|
|
|
|
STA GEOFPL+1
|
|
|
|
|
STA GMARKPL+1
|
|
|
|
|
JSR MLI
|
|
|
|
|
DB GEOFCMD
|
|
|
|
|
DW GEOFPL
|
|
|
|
|
BCS :ISEOF ; If error, just say EOF
|
|
|
|
|
|
|
|
|
|
JSR MLI
|
|
|
|
|
DB GMARKCMD
|
|
|
|
|
DW GMARKPL
|
|
|
|
|
BCS :ISEOF ; If error, just say EOF
|
|
|
|
|
|
|
|
|
|
LDA GEOFPL+2 ; Subtract Mark from EOF
|
|
|
|
|
SEC
|
|
|
|
|
SBC GMARKPL+2
|
|
|
|
|
STA :REMAIN
|
|
|
|
|
LDA GEOFPL+3
|
|
|
|
|
SBC GMARKPL+3
|
|
|
|
|
STA :REMAIN+1
|
|
|
|
|
LDA GEOFPL+4
|
|
|
|
|
SBC GMARKPL+4
|
|
|
|
|
STA :REMAIN+2
|
|
|
|
|
|
|
|
|
|
LDA :REMAIN ; Check bytes remaining
|
|
|
|
|
BNE :NOTEOF
|
|
|
|
|
LDA :REMAIN+1
|
|
|
|
|
BNE :NOTEOF
|
|
|
|
|
LDA :REMAIN+2
|
|
|
|
|
BNE :NOTEOF
|
|
|
|
|
:ISEOF LDA #$FF
|
|
|
|
|
BRA :EXIT
|
|
|
|
|
:NOTEOF LDA #$00
|
|
|
|
|
:EXIT >>> XF2AUX,CHKEOFRET
|
|
|
|
|
:REMAIN DS 3 ; Remaining bytes
|
2021-07-28 04:17:47 +00:00
|
|
|
|
2021-07-30 19:47:36 +00:00
|
|
|
* ProDOS file handling for OSARGS flush commands
|
2021-08-29 05:13:31 +00:00
|
|
|
FLUSH >>> ENTMAIN
|
|
|
|
|
LDA MOSFILE ; File ref number
|
|
|
|
|
STA FLSHPL+1
|
|
|
|
|
JSR MLI
|
|
|
|
|
DB FLSHCMD
|
|
|
|
|
DW FLSHPL
|
|
|
|
|
>>> XF2AUX,OSARGSRET
|
2021-07-30 19:47:36 +00:00
|
|
|
|
2021-08-01 19:28:10 +00:00
|
|
|
* ProDOS file handling for OSARGS set ptr command
|
2021-08-29 05:13:31 +00:00
|
|
|
SEEK >>> ENTMAIN
|
|
|
|
|
LDA MOSFILE ; File ref number
|
|
|
|
|
STA GMARKPL+1 ; GET_MARK has same params
|
|
|
|
|
LDA MOSFILE+2 ; Desired offset in MOSFILE[2..4]
|
|
|
|
|
STA GMARKPL+2
|
|
|
|
|
LDA MOSFILE+3
|
|
|
|
|
STA GMARKPL+3
|
|
|
|
|
LDA MOSFILE+4
|
|
|
|
|
STA GMARKPL+4
|
|
|
|
|
JSR MLI
|
|
|
|
|
DB SMARKCMD
|
|
|
|
|
DW GMARKPL
|
|
|
|
|
>>> XF2AUX,OSARGSRET
|
2021-08-01 19:28:10 +00:00
|
|
|
|
|
|
|
|
* ProDOS file handling for OSARGS get ptr command
|
2021-08-01 19:52:11 +00:00
|
|
|
* and for OSARGs get length command
|
2021-08-29 05:13:31 +00:00
|
|
|
TELL >>> ENTMAIN
|
|
|
|
|
LDA MOSFILE ; File ref number
|
|
|
|
|
STA GMARKPL+1
|
|
|
|
|
LDA MOSFILE+2 ; Mode (0=pos, otherwise len)
|
|
|
|
|
CMP #$00
|
|
|
|
|
BEQ :POS
|
|
|
|
|
JSR MLI
|
|
|
|
|
DB GEOFCMD
|
|
|
|
|
DW GMARKPL ; MARK parms same as EOF parms
|
|
|
|
|
BRA :S1
|
|
|
|
|
:POS JSR MLI
|
|
|
|
|
DB GMARKCMD
|
|
|
|
|
DW GMARKPL
|
|
|
|
|
:S1 LDX MOSFILE+1 ; Pointer to ZP control block
|
|
|
|
|
BCS :ERR
|
|
|
|
|
>>> ALTZP ; Alt ZP & Alt LC on
|
|
|
|
|
LDA GMARKPL+2
|
|
|
|
|
STA $00,X
|
|
|
|
|
LDA GMARKPL+3
|
|
|
|
|
STA $01,X
|
|
|
|
|
LDA GMARKPL+4
|
|
|
|
|
STA $02,X
|
|
|
|
|
STZ $03,X
|
|
|
|
|
>>> MAINZP ; Alt ZP off, ROM back in
|
|
|
|
|
:EXIT >>> XF2AUX,OSARGSRET
|
|
|
|
|
:ERR LDX MOSFILE+1 ; Address of ZP control block
|
|
|
|
|
>>> ALTZP ; Alt ZP & Alt LC on
|
|
|
|
|
STZ $00,X
|
|
|
|
|
STZ $01,X
|
|
|
|
|
STZ $02,X
|
|
|
|
|
STZ $03,X
|
|
|
|
|
>>> MAINZP ; Alt ZP off, ROM back in
|
|
|
|
|
BRA :EXIT
|
2021-08-01 19:28:10 +00:00
|
|
|
|
2021-08-30 23:08:22 +00:00
|
|
|
|
2021-07-28 04:17:47 +00:00
|
|
|
* ProDOS file handling for MOS OSFILE LOAD call
|
2021-08-27 03:32:40 +00:00
|
|
|
* Invoked by AppleMOS OSFILE
|
|
|
|
|
* Return A=01 if successful (meaning 'file')
|
2021-08-29 05:13:31 +00:00
|
|
|
* A>$1F ProDOS error, translated by FILERET
|
|
|
|
|
LOADFILE >>> ENTMAIN
|
2021-09-01 00:10:34 +00:00
|
|
|
JSR PREPATH ; Preprocess pathname
|
2021-09-01 01:24:12 +00:00
|
|
|
JSR EXISTS ; See if it exists ...
|
|
|
|
|
CMP #$01 ; ... and is a file
|
2021-09-01 20:58:20 +00:00
|
|
|
BEQ :ISFILE
|
|
|
|
|
JMP :NOTFND
|
|
|
|
|
:ISFILE STZ :BLOCKS
|
2021-08-29 05:13:31 +00:00
|
|
|
LDA #<MOSFILE
|
|
|
|
|
STA OPENPL+1
|
|
|
|
|
LDA #>MOSFILE
|
|
|
|
|
STA OPENPL+2
|
|
|
|
|
JSR OPENFILE
|
|
|
|
|
BCS :NOTFND ; File not found
|
|
|
|
|
:L1 LDA OPENPL+5 ; File ref number
|
|
|
|
|
STA READPL+1
|
|
|
|
|
JSR RDFILE
|
|
|
|
|
BCC :S1
|
|
|
|
|
CMP #$4C ; EOF
|
|
|
|
|
BEQ :EOF
|
|
|
|
|
BRA :READERR
|
|
|
|
|
:S1 LDA #<BLKBUF
|
|
|
|
|
STA A1L
|
|
|
|
|
LDA #>BLKBUF
|
|
|
|
|
STA A1H
|
2021-09-01 20:58:20 +00:00
|
|
|
CLC
|
|
|
|
|
LDA #<BLKBUF
|
|
|
|
|
ADC READPL+6 ; LSB of trans count
|
2021-08-29 05:13:31 +00:00
|
|
|
STA A2L
|
2021-09-01 20:58:20 +00:00
|
|
|
LDA #>BLKBUF
|
|
|
|
|
ADC READPL+7 ; MSB of trans count
|
2021-08-29 05:13:31 +00:00
|
|
|
STA A2H
|
|
|
|
|
LDA FBEXEC ; If FBEXEC is zero, use addr
|
|
|
|
|
CMP #$00 ; in the control block
|
|
|
|
|
BEQ :CBADDR
|
|
|
|
|
LDA #<MOSFILE ; Otherwise use file addr
|
|
|
|
|
STA GINFOPL+1
|
|
|
|
|
LDA #>MOSFILE
|
|
|
|
|
STA GINFOPL+2
|
2021-09-05 18:00:31 +00:00
|
|
|
JSR GETINFO ; GET_FILE_INFO
|
2021-08-29 05:13:31 +00:00
|
|
|
BCS :READERR
|
|
|
|
|
LDA GINFOPL+5 ; Aux type LSB
|
|
|
|
|
STA FBLOAD+0
|
|
|
|
|
LDA GINFOPL+6 ; Aux type MSB
|
|
|
|
|
STA FBLOAD+1
|
|
|
|
|
:CBADDR LDA FBLOAD
|
|
|
|
|
STA A4L
|
|
|
|
|
STA FBEXEC ; EXEC = LOAD
|
|
|
|
|
LDA FBLOAD+1
|
|
|
|
|
STA A4H
|
|
|
|
|
STA FBEXEC+1
|
|
|
|
|
LDX :BLOCKS
|
|
|
|
|
:L2 CPX #$00
|
|
|
|
|
BEQ :S2
|
|
|
|
|
INC
|
|
|
|
|
INC
|
|
|
|
|
DEX
|
|
|
|
|
BRA :L2
|
|
|
|
|
:S2 STA A4H
|
|
|
|
|
SEC ; Main -> AUX
|
|
|
|
|
JSR AUXMOVE
|
|
|
|
|
INC :BLOCKS
|
|
|
|
|
BRA :L1
|
|
|
|
|
:NOTFND LDA #$46 ; Nothing found
|
|
|
|
|
PHA
|
|
|
|
|
BRA :EXIT
|
|
|
|
|
:READERR LDA #$5D ; Read error
|
|
|
|
|
PHA
|
|
|
|
|
BRA :EOF2
|
|
|
|
|
:EOF LDA #$01 ; Success ('File')
|
|
|
|
|
PHA
|
|
|
|
|
:EOF2 LDA OPENPL+5 ; File ref num
|
|
|
|
|
STA CLSPL+1
|
|
|
|
|
JSR CLSFILE
|
|
|
|
|
:EXIT JSR UPDFB ; Update FILEBLK
|
|
|
|
|
JSR COPYFB ; Copy FILEBLK to auxmem
|
|
|
|
|
PLA ; Get return code back
|
|
|
|
|
>>> XF2AUX,OSFILERET
|
|
|
|
|
:BLOCKS DB $00
|
2021-07-28 04:17:47 +00:00
|
|
|
|
2021-09-01 01:24:12 +00:00
|
|
|
* Check if file exists
|
|
|
|
|
* Return A=0 if doesn't exist, A=1 file, A=2 fir
|
|
|
|
|
EXISTS LDA #<MOSFILE
|
|
|
|
|
STA GINFOPL+1
|
|
|
|
|
LDA #>MOSFILE
|
|
|
|
|
STA GINFOPL+2
|
2021-09-05 18:00:31 +00:00
|
|
|
JSR GETINFO ; GET_FILE_INFO
|
2021-09-01 01:24:12 +00:00
|
|
|
BCS :NOEXIST
|
|
|
|
|
LDA GINFOPL+7 ; Storage type
|
|
|
|
|
CMP #$0D
|
|
|
|
|
BCS :DIR ; >= $0D
|
|
|
|
|
LDA #$01 ; File
|
|
|
|
|
RTS
|
|
|
|
|
:DIR LDA #$02
|
|
|
|
|
RTS
|
|
|
|
|
:NOEXIST LDA #$00
|
|
|
|
|
RTS
|
|
|
|
|
|
2021-08-21 01:03:42 +00:00
|
|
|
* Copy FILEBLK to AUXBLK in aux memory
|
2021-08-22 20:59:07 +00:00
|
|
|
* Preserves A
|
2021-08-29 05:13:31 +00:00
|
|
|
COPYFB PHA
|
|
|
|
|
LDX #$00
|
|
|
|
|
:L1 LDA FILEBLK,X
|
|
|
|
|
TAY
|
|
|
|
|
>>> ALTZP ; Alt ZP and LC
|
|
|
|
|
TYA
|
|
|
|
|
STA AUXBLK,X
|
|
|
|
|
>>> MAINZP ; Back to normal
|
|
|
|
|
INX
|
|
|
|
|
CPX #18 ; 18 bytes in FILEBLK
|
|
|
|
|
BNE :L1
|
|
|
|
|
PLA
|
|
|
|
|
RTS
|
2021-08-19 03:45:52 +00:00
|
|
|
|
2021-07-28 04:17:47 +00:00
|
|
|
* ProDOS file handling for MOS OSFILE SAVE call
|
2021-08-27 03:32:40 +00:00
|
|
|
* Invoked by AppleMOS OSFILE
|
|
|
|
|
* Return A=01 if successful (ie: 'file')
|
2021-08-29 05:13:31 +00:00
|
|
|
* A>$1F ProDOS error translated by FILERET
|
|
|
|
|
SAVEFILE >>> ENTMAIN
|
2021-09-01 00:10:34 +00:00
|
|
|
JSR PREPATH ; Preprocess pathname
|
2021-09-01 01:24:12 +00:00
|
|
|
JSR EXISTS ; See if file exists ...
|
|
|
|
|
CMP #$02 ; ... and is a directory
|
|
|
|
|
BNE :NOTDIR
|
|
|
|
|
LDA $41 ; Dir exists, return $41
|
|
|
|
|
PHA
|
|
|
|
|
JMP :EXIT
|
|
|
|
|
:NOTDIR LDA #<MOSFILE ; Attempt to destroy file
|
2021-08-29 05:13:31 +00:00
|
|
|
STA DESTPL+1
|
|
|
|
|
LDA #>MOSFILE
|
|
|
|
|
STA DESTPL+2
|
|
|
|
|
JSR MLI
|
|
|
|
|
DB DESTCMD
|
|
|
|
|
DW DESTPL
|
|
|
|
|
STZ :BLOCKS
|
|
|
|
|
* TO DO: Make this a subroutine
|
2021-08-30 23:08:22 +00:00
|
|
|
LDA #$01 ; Storage type - file
|
|
|
|
|
STA CREATEPL+7
|
|
|
|
|
LDA #$06 ; Filetype BIN
|
|
|
|
|
STA CREATEPL+4
|
|
|
|
|
* subroutine....
|
2021-08-29 05:13:31 +00:00
|
|
|
LDA #<MOSFILE
|
|
|
|
|
STA CREATEPL+1
|
|
|
|
|
STA OPENPL+1
|
|
|
|
|
LDA #>MOSFILE
|
|
|
|
|
STA CREATEPL+2
|
|
|
|
|
STA OPENPL+2
|
|
|
|
|
LDA #$C3 ; Access unlocked
|
|
|
|
|
STA CREATEPL+3
|
|
|
|
|
LDA FBLOAD ; Auxtype = load address
|
|
|
|
|
STA CREATEPL+5
|
|
|
|
|
LDA FBLOAD+1
|
|
|
|
|
STA CREATEPL+6
|
|
|
|
|
LDA $BF90 ; Current date
|
|
|
|
|
STA CREATEPL+8
|
|
|
|
|
LDA $BF91
|
|
|
|
|
STA CREATEPL+9
|
|
|
|
|
LDA $BF92 ; Current time
|
|
|
|
|
STA CREATEPL+10
|
|
|
|
|
LDA $BF93
|
|
|
|
|
STA CREATEPL+11
|
|
|
|
|
JSR CRTFILE
|
2021-08-30 23:08:22 +00:00
|
|
|
* ...
|
2021-08-29 05:13:31 +00:00
|
|
|
BCS :FWD1 ; :CANTOPEN error
|
|
|
|
|
JSR OPENFILE
|
|
|
|
|
BCS :FWD1 ; :CANTOPEN error
|
|
|
|
|
SEC ; Compute file length
|
|
|
|
|
LDA FBEND
|
|
|
|
|
SBC FBSTRT
|
|
|
|
|
STA :LENREM
|
|
|
|
|
LDA FBEND+1
|
|
|
|
|
SBC FBSTRT+1
|
|
|
|
|
STA :LENREM+1
|
|
|
|
|
:L1 LDA FBSTRT ; Set up for first block
|
|
|
|
|
STA A1L
|
|
|
|
|
STA A2L
|
|
|
|
|
LDA FBSTRT+1
|
|
|
|
|
STA A1H
|
|
|
|
|
STA A2H
|
|
|
|
|
INC A2H ; $200 = 512 bytes
|
|
|
|
|
INC A2H
|
|
|
|
|
LDA OPENPL+5 ; File ref number
|
|
|
|
|
STA WRITEPL+1
|
|
|
|
|
LDA #$00 ; 512 byte request count
|
|
|
|
|
STA WRITEPL+4
|
|
|
|
|
LDA #$02
|
|
|
|
|
STA WRITEPL+5
|
|
|
|
|
LDX :BLOCKS
|
|
|
|
|
:L2 CPX #$00 ; Adjust for subsequent blks
|
|
|
|
|
BEQ :S1
|
|
|
|
|
INC A1H
|
|
|
|
|
INC A1H
|
|
|
|
|
INC A2H
|
|
|
|
|
INC A2H
|
|
|
|
|
DEX
|
|
|
|
|
BRA :L2
|
|
|
|
|
|
|
|
|
|
:FWD1 BRA :CANTOPEN ; Forwarding call from above
|
|
|
|
|
|
|
|
|
|
:S1 LDA :LENREM+1 ; MSB of length remaining
|
|
|
|
|
CMP #$02
|
|
|
|
|
BCS :S2 ; MSB of len >= 2 (not last)
|
|
|
|
|
CMP #$00 ; If no bytes left ...
|
|
|
|
|
BNE :S3
|
|
|
|
|
LDA :LENREM
|
|
|
|
|
BNE :S3
|
|
|
|
|
BRA :NORMALEND
|
|
|
|
|
|
|
|
|
|
:S3 LDA FBEND ; Adjust for last block
|
|
|
|
|
STA A2L
|
|
|
|
|
LDA FBEND+1
|
|
|
|
|
STA A2H
|
|
|
|
|
LDA :LENREM
|
|
|
|
|
STA WRITEPL+4 ; Remaining bytes to write
|
|
|
|
|
LDA :LENREM+1
|
|
|
|
|
STA WRITEPL+5
|
|
|
|
|
|
|
|
|
|
:S2 LDA #<BLKBUF
|
|
|
|
|
STA A4L
|
|
|
|
|
LDA #>BLKBUF
|
|
|
|
|
STA A4H
|
|
|
|
|
|
|
|
|
|
CLC ; Aux -> Main
|
|
|
|
|
JSR AUXMOVE
|
|
|
|
|
|
|
|
|
|
LDA OPENPL+5 ; File ref number
|
|
|
|
|
STA WRITEPL+1
|
|
|
|
|
JSR WRTFILE
|
|
|
|
|
BCS :WRITEERR
|
|
|
|
|
|
|
|
|
|
BRA :UPDLEN
|
|
|
|
|
|
|
|
|
|
:ENDLOOP INC :BLOCKS
|
|
|
|
|
BRA :L1
|
|
|
|
|
|
|
|
|
|
:UPDLEN SEC ; Update length remaining
|
|
|
|
|
LDA :LENREM
|
|
|
|
|
SBC WRITEPL+4
|
|
|
|
|
STA :LENREM
|
|
|
|
|
LDA :LENREM+1
|
|
|
|
|
SBC WRITEPL+5
|
|
|
|
|
STA :LENREM+1
|
|
|
|
|
BRA :ENDLOOP
|
|
|
|
|
|
|
|
|
|
:CANTOPEN LDA #$5E ; Can't open/create
|
|
|
|
|
PHA
|
|
|
|
|
BRA :EXIT
|
|
|
|
|
|
|
|
|
|
:WRITEERR LDA OPENPL+5 ; File ref num
|
|
|
|
|
STA CLSPL+1
|
|
|
|
|
JSR CLSFILE
|
|
|
|
|
LDA #$5D ; Write error
|
|
|
|
|
PHA
|
|
|
|
|
BRA :EXIT
|
|
|
|
|
|
|
|
|
|
:NORMALEND LDA OPENPL+5 ; File ref num
|
|
|
|
|
STA CLSPL+1
|
|
|
|
|
JSR CLSFILE
|
|
|
|
|
BCC :OK ; If close OK
|
|
|
|
|
LDA #$5D ; Write error
|
|
|
|
|
PHA
|
|
|
|
|
BRA :EXIT
|
|
|
|
|
:OK LDA #$01 ; Success ('File')
|
|
|
|
|
PHA
|
|
|
|
|
:EXIT JSR UPDFB ; Update FILEBLK
|
|
|
|
|
JSR COPYFB ; Copy FILEBLK to aux mem
|
|
|
|
|
PLA
|
|
|
|
|
>>> XF2AUX,OSFILERET
|
|
|
|
|
:BLOCKS DB $00
|
|
|
|
|
:LENREM DW $0000 ; Remaining length
|
2021-08-24 02:06:48 +00:00
|
|
|
|
2021-08-24 03:59:52 +00:00
|
|
|
* Update FILEBLK before returning to aux memory
|
2021-08-29 05:13:31 +00:00
|
|
|
* Returns A=object type or ProDOS error
|
|
|
|
|
UPDFB LDA #<MOSFILE
|
|
|
|
|
STA OPENPL+1
|
|
|
|
|
STA GINFOPL+1
|
|
|
|
|
LDA #>MOSFILE
|
|
|
|
|
STA OPENPL+2
|
|
|
|
|
STA GINFOPL+2
|
2021-09-05 18:00:31 +00:00
|
|
|
JSR GETINFO ; Call GET_FILE_INFO
|
2021-08-30 23:08:22 +00:00
|
|
|
BCC :UPDFB1
|
|
|
|
|
JMP CHKNOTFND
|
|
|
|
|
|
|
|
|
|
:UPDFB1 LDA GINFOPL+5 ; Aux type LSB
|
2021-08-29 05:13:31 +00:00
|
|
|
STA FBLOAD
|
|
|
|
|
STA FBEXEC
|
|
|
|
|
LDA GINFOPL+6 ; Aux type MSB
|
|
|
|
|
STA FBLOAD+1
|
|
|
|
|
STA FBEXEC+1
|
|
|
|
|
STZ FBLOAD+2
|
|
|
|
|
STZ FBEXEC+2
|
|
|
|
|
STZ FBLOAD+3
|
|
|
|
|
STZ FBEXEC+3
|
2021-08-30 23:08:22 +00:00
|
|
|
*
|
2021-08-29 05:13:31 +00:00
|
|
|
LDA GINFOPL+3 ; Access byte
|
|
|
|
|
CMP #$40 ; Locked?
|
|
|
|
|
AND #$03 ; ------wr
|
|
|
|
|
PHP
|
|
|
|
|
STA FBATTR+0
|
|
|
|
|
ASL A ; -----wr-
|
|
|
|
|
ASL A ; ----wr--
|
|
|
|
|
ASL A ; ---wr---
|
|
|
|
|
ASL A ; --wr----
|
|
|
|
|
PLP
|
|
|
|
|
BCS :UPDFB2
|
|
|
|
|
ORA #$08 ; --wrl---
|
|
|
|
|
:UPDFB2 ORA FBATTR+0 ; --wrl-wr
|
|
|
|
|
STA FBATTR+0
|
2021-08-30 23:08:22 +00:00
|
|
|
*
|
|
|
|
|
LDA GINFOPL+11 ; yyyyyyym
|
|
|
|
|
PHA
|
|
|
|
|
ROR A ; ?yyyyyyy m
|
|
|
|
|
LDA GINFOPL+10 ; mmmddddd m
|
|
|
|
|
PHA
|
|
|
|
|
ROR A ; mmmmdddd
|
|
|
|
|
LSR A ; -mmmmddd
|
|
|
|
|
LSR A ; --mmmmdd
|
|
|
|
|
LSR A ; ---mmmmd
|
|
|
|
|
LSR A ; ----mmmm
|
|
|
|
|
STA FBATTR+2
|
|
|
|
|
PLA ; mmmddddd
|
|
|
|
|
AND #31 ; ---ddddd
|
|
|
|
|
STA FBATTR+1
|
|
|
|
|
PLA ; yyyyyyym
|
|
|
|
|
SEC
|
|
|
|
|
SBC #81*2 ; Offset from 1981
|
|
|
|
|
BCS :UPDFB3 ; 1981-1999 -> 00-18
|
|
|
|
|
ADC #100*2 ; 2000-2080 -> 19-99
|
|
|
|
|
:UPDFB3 PHA ; yyyyyyym
|
|
|
|
|
AND #$E0 ; yyy-----
|
|
|
|
|
ORA FBATTR+1 ; yyyddddd
|
|
|
|
|
STA FBATTR+1
|
|
|
|
|
PLA ; yyyyyyym
|
|
|
|
|
AND #$FE ; yyyyyyy0
|
|
|
|
|
ASL A ; yyyyyy00
|
|
|
|
|
ASL A ; yyyyy000
|
|
|
|
|
ASL A ; yyyy0000
|
|
|
|
|
ORA FBATTR+2 ; yyyymmmm
|
|
|
|
|
STA FBATTR+2
|
2021-08-29 05:13:31 +00:00
|
|
|
STZ FBATTR+3
|
|
|
|
|
|
|
|
|
|
JSR OPENFILE ; Open file
|
|
|
|
|
BCS :ERR
|
|
|
|
|
LDA OPENPL+5 ; File ref number
|
|
|
|
|
STA GMARKPL+1
|
|
|
|
|
JSR MLI ; Call GET_EOF MLI
|
|
|
|
|
DB GEOFCMD
|
|
|
|
|
DW GMARKPL ; MARK parms same as EOF
|
|
|
|
|
LDA GMARKPL+2
|
|
|
|
|
STA FBSIZE+0
|
|
|
|
|
LDA GMARKPL+3
|
|
|
|
|
STA FBSIZE+1
|
|
|
|
|
LDA GMARKPL+4
|
|
|
|
|
STA FBSIZE+2
|
|
|
|
|
STZ FBSIZE+3
|
|
|
|
|
LDA OPENPL+5 ; File ref number
|
|
|
|
|
STA CLSPL+1
|
|
|
|
|
JSR CLSFILE
|
|
|
|
|
LDA #$01 ; Prepare A=file
|
|
|
|
|
LDX GINFOPL+7
|
|
|
|
|
CPX #$0D ; Is it a directory?
|
2021-08-30 23:08:22 +00:00
|
|
|
BNE :UPDFB5
|
2021-08-29 05:13:31 +00:00
|
|
|
LDA #$02 ; Return A=directory
|
2021-08-30 23:08:22 +00:00
|
|
|
:UPDFB5 RTS
|
2021-08-29 05:13:31 +00:00
|
|
|
|
|
|
|
|
:ERR
|
|
|
|
|
CHKNOTFND CMP #$44 ; Convert ProDOS 'not found'
|
|
|
|
|
BEQ :NOTFND ; into result=$00
|
|
|
|
|
CMP #$45
|
|
|
|
|
BEQ :NOTFND
|
|
|
|
|
CMP #$46
|
|
|
|
|
BNE :CHKNOTFND2
|
|
|
|
|
:NOTFND LDA #$00
|
|
|
|
|
:CHKNOTFND2 RTS
|
|
|
|
|
|
2021-07-28 04:17:47 +00:00
|
|
|
|
|
|
|
|
* Quit to ProDOS
|
2021-08-29 05:13:31 +00:00
|
|
|
QUIT INC $3F4 ; Invalidate powerup byte
|
|
|
|
|
STA $C054 ; PAGE2 off
|
|
|
|
|
JSR MLI
|
|
|
|
|
DB QUITCMD
|
|
|
|
|
DW QUITPL
|
|
|
|
|
RTS
|
2021-07-28 04:17:47 +00:00
|
|
|
|
|
|
|
|
* Obtain catalog of current PREFIX dir
|
2021-08-29 05:13:31 +00:00
|
|
|
CATALOG >>> ENTMAIN
|
2021-09-03 00:35:36 +00:00
|
|
|
LDA MOSFILE ; Length of pathname
|
|
|
|
|
BEQ :NOPATH ; If zero use prefix
|
|
|
|
|
JSR PREPATH ; Preprocess pathname
|
2021-09-03 01:31:18 +00:00
|
|
|
JSR EXISTS ; See if path exists ...
|
|
|
|
|
CMP #$01 ; ... and is a file
|
|
|
|
|
BNE :NOTFILE
|
|
|
|
|
LDA #$46 ; Not found (TO DO: err code?)
|
|
|
|
|
BRA CATEXIT
|
|
|
|
|
:NOTFILE LDA #<MOSFILE
|
2021-09-03 00:35:36 +00:00
|
|
|
STA OPENPL+1
|
|
|
|
|
LDA #>MOSFILE
|
|
|
|
|
STA OPENPL+2
|
|
|
|
|
BRA :OPEN
|
2021-09-04 06:00:26 +00:00
|
|
|
:NOPATH JSR GETPREF ; Fetch prefix into PREFIX
|
|
|
|
|
LDA #<PREFIX
|
2021-08-29 05:13:31 +00:00
|
|
|
STA OPENPL+1
|
2021-09-04 06:00:26 +00:00
|
|
|
LDA #>PREFIX
|
2021-08-29 05:13:31 +00:00
|
|
|
STA OPENPL+2
|
2021-09-03 00:35:36 +00:00
|
|
|
:OPEN JSR OPENFILE
|
2021-08-29 05:13:31 +00:00
|
|
|
BCS CATEXIT ; Can't open dir
|
2021-07-28 04:17:47 +00:00
|
|
|
|
|
|
|
|
CATREENTRY
|
2021-08-29 05:13:31 +00:00
|
|
|
LDA OPENPL+5 ; File ref num
|
|
|
|
|
STA READPL+1
|
|
|
|
|
JSR RDFILE
|
|
|
|
|
BCC :S1
|
|
|
|
|
CMP #$4C ; EOF
|
|
|
|
|
BEQ :EOF
|
|
|
|
|
BRA :READERR
|
|
|
|
|
:S1 JSR COPYAUXBLK
|
|
|
|
|
>>> XF2AUX,PRONEBLK
|
2021-07-28 04:17:47 +00:00
|
|
|
:READERR
|
2021-08-29 05:13:31 +00:00
|
|
|
:EOF LDA OPENPL+5 ; File ref num
|
|
|
|
|
STA CLSPL+1
|
|
|
|
|
JSR CLSFILE
|
|
|
|
|
CATEXIT >>> XF2AUX,STARCATRET
|
2021-07-28 04:17:47 +00:00
|
|
|
|
|
|
|
|
* PRONEBLK call returns here ...
|
|
|
|
|
CATALOGRET
|
2021-08-29 05:13:31 +00:00
|
|
|
>>> ENTMAIN
|
|
|
|
|
BRA CATREENTRY
|
|
|
|
|
|
|
|
|
|
* Preprocess path in MOSFILE, handling '..' sequence
|
|
|
|
|
* dir/file.ext filesystem, so '..' means parent dir (eg: '../SOMEDIR')
|
2021-09-04 06:00:26 +00:00
|
|
|
* Also allows '^' as '^' is illegal character in ProDOS
|
2021-08-28 18:24:20 +00:00
|
|
|
* Carry set on error, clear otherwise
|
2021-08-30 23:48:11 +00:00
|
|
|
PREPATH LDX MOSFILE ; Length
|
|
|
|
|
BEQ :EXIT ; If zero length
|
|
|
|
|
LDA MOSFILE+1 ; 1st char of pathname
|
|
|
|
|
CMP #$3A ; ':'
|
|
|
|
|
BNE :NOTCOLN ; Not colon
|
|
|
|
|
CPX #$03 ; Length >= 3?
|
|
|
|
|
BCC :ERR ; If not
|
|
|
|
|
LDA MOSFILE+3 ; Drive
|
|
|
|
|
SEC
|
|
|
|
|
SBC #'1'
|
|
|
|
|
TAX
|
|
|
|
|
LDA MOSFILE+2 ; Slot
|
|
|
|
|
SEC
|
|
|
|
|
SBC #'0'
|
2021-09-04 06:00:26 +00:00
|
|
|
JSR DRV2PFX ; Slot/drv->pfx in PREFIX
|
2021-08-30 23:48:11 +00:00
|
|
|
JSR DEL1CHAR ; Delete ':' from MOSFILE
|
|
|
|
|
JSR DEL1CHAR ; Delete slot from MOSFILE
|
|
|
|
|
JSR DEL1CHAR ; Delete drive from MOSFILE
|
|
|
|
|
LDA MOSFILE ; Is there more?
|
|
|
|
|
BEQ :APPEND ; Only ':sd'
|
|
|
|
|
CMP #$02 ; Length >= 2
|
|
|
|
|
BCC :ERR ; If not
|
|
|
|
|
LDA MOSFILE+1 ; 1st char of filename
|
|
|
|
|
CMP #$2F ; '/'
|
|
|
|
|
BNE :ERR
|
|
|
|
|
JSR DEL1CHAR ; Delete '/' from MOSFILE
|
|
|
|
|
BRA :APPEND
|
2021-09-04 06:00:26 +00:00
|
|
|
:NOTCOLN JSR GETPREF ; Current pfx -> PREFIX
|
2021-08-29 05:13:31 +00:00
|
|
|
:REENTER LDA MOSFILE+1 ; First char of dirname
|
|
|
|
|
CMP #'.'
|
|
|
|
|
BEQ :UPDIR1
|
|
|
|
|
CMP #$5E ; '^' char
|
|
|
|
|
BEQ :CARET ; If '^'
|
|
|
|
|
CMP #$2F ; '/' char - abs path
|
|
|
|
|
BEQ :EXIT ; Nothing to do
|
2021-08-30 23:48:11 +00:00
|
|
|
BRA :APPEND
|
2021-08-29 05:13:31 +00:00
|
|
|
|
|
|
|
|
:UPDIR1 LDA MOSFILE+2
|
|
|
|
|
CMP #'.' ; '..'
|
|
|
|
|
BNE :EXIT
|
|
|
|
|
JSR DEL1CHAR ; Delete two leading characters
|
|
|
|
|
:CARET JSR DEL1CHAR ; Delete '^' from MOSFILE
|
2021-09-04 06:00:26 +00:00
|
|
|
JSR PARENT ; Parent dir -> MOSFILE
|
2021-08-29 05:13:31 +00:00
|
|
|
LDA MOSFILE ; Is there more?
|
2021-08-30 23:48:11 +00:00
|
|
|
BEQ :APPEND ; Only '^'
|
2021-08-29 05:13:31 +00:00
|
|
|
CMP #$02 ; Len at least two?
|
|
|
|
|
BCC :ERR ; Nope!
|
|
|
|
|
LDA MOSFILE+1 ; What is next char?
|
|
|
|
|
CMP #$2F ; Is it slash?
|
|
|
|
|
BNE :ERR ; Nope!
|
|
|
|
|
JSR DEL1CHAR ; Delete '/' from MOSFILE
|
|
|
|
|
BRA :REENTER ; Go again!
|
2021-09-04 06:00:26 +00:00
|
|
|
:APPEND JSR APFXMF ; Append MOSFILE->PREFIX
|
|
|
|
|
JSR COPYPFXMF ; Copy back to MOSFILE
|
2021-09-04 03:54:18 +00:00
|
|
|
:EXIT JSR DIGCONV ; Handle initial digits
|
|
|
|
|
CLC
|
2021-08-29 05:13:31 +00:00
|
|
|
RTS
|
|
|
|
|
:ERR SEC
|
|
|
|
|
RTS
|
|
|
|
|
|
|
|
|
|
* Set prefix. Used by *CHDIR to change directory
|
|
|
|
|
SETPFX >>> ENTMAIN
|
2021-09-01 00:10:34 +00:00
|
|
|
JSR PREPATH ; Preprocess pathname
|
2021-08-29 05:13:31 +00:00
|
|
|
BCS :ERR
|
|
|
|
|
LDA #<MOSFILE
|
|
|
|
|
STA SPFXPL+1
|
|
|
|
|
LDA #>MOSFILE
|
|
|
|
|
STA SPFXPL+2
|
|
|
|
|
JSR MLI ; SET_PREFIX
|
|
|
|
|
DB SPFXCMD
|
|
|
|
|
DW SPFXPL
|
2021-09-02 21:59:04 +00:00
|
|
|
:EXIT >>> XF2AUX,CHDIRRET
|
2021-08-29 05:13:31 +00:00
|
|
|
:ERR LDA #$40 ; Invalid pathname syn
|
|
|
|
|
BRA :EXIT
|
2021-07-28 04:17:47 +00:00
|
|
|
|
2021-09-05 18:00:31 +00:00
|
|
|
* Obtain info on blocks used/total blocks
|
|
|
|
|
DRVINFO >>> ENTMAIN
|
|
|
|
|
JSR PREPATH
|
|
|
|
|
BCS :ERR
|
|
|
|
|
LDA #<MOSFILE
|
|
|
|
|
STA GINFOPL+1
|
|
|
|
|
LDA #>MOSFILE
|
|
|
|
|
STA GINFOPL+2
|
|
|
|
|
JSR GETINFO ; GET_FILE_INFO
|
|
|
|
|
BCS :EXIT
|
|
|
|
|
PHA
|
|
|
|
|
>>> ALTZP ; Alt ZP & Alt LC on
|
|
|
|
|
LDA GINFOPL+8 ; Blcks used LSB
|
|
|
|
|
STA AUXBLK
|
|
|
|
|
LDA GINFOPL+9 ; Blks used MSB
|
|
|
|
|
STA AUXBLK+1
|
2021-09-05 19:15:45 +00:00
|
|
|
LDA GINFOPL+5 ; Tot blks LSB
|
|
|
|
|
STA AUXBLK+2
|
|
|
|
|
LDA GINFOPL+6 ; Tot blks MSB
|
|
|
|
|
STA AUXBLK+3
|
2021-09-05 18:00:31 +00:00
|
|
|
>>> MAINZP ; ALt ZP off, ROM back in
|
|
|
|
|
PLA
|
|
|
|
|
:EXIT >>> XF2AUX,FREERET
|
|
|
|
|
:ERR LDA #$40 ; Invalid pathname syn
|
|
|
|
|
BRA :EXIT
|
|
|
|
|
|
|
|
|
|
* Geyt file info
|
|
|
|
|
GETINFO JSR MLI
|
|
|
|
|
DB GINFOCMD
|
|
|
|
|
DW GINFOPL
|
|
|
|
|
RTS
|
|
|
|
|
|
2021-07-28 04:17:47 +00:00
|
|
|
* Create disk file
|
2021-08-29 05:13:31 +00:00
|
|
|
CRTFILE JSR MLI
|
|
|
|
|
DB CREATCMD
|
|
|
|
|
DW CREATEPL
|
|
|
|
|
RTS
|
2021-07-28 04:17:47 +00:00
|
|
|
|
|
|
|
|
* Open disk file
|
2021-08-29 05:13:31 +00:00
|
|
|
OPENFILE JSR MLI
|
|
|
|
|
DB OPENCMD
|
|
|
|
|
DW OPENPL
|
|
|
|
|
RTS
|
2021-07-28 04:17:47 +00:00
|
|
|
|
|
|
|
|
* Close disk file
|
2021-08-29 05:13:31 +00:00
|
|
|
CLSFILE JSR MLI
|
|
|
|
|
DB CLSCMD
|
|
|
|
|
DW CLSPL
|
|
|
|
|
RTS
|
2021-07-28 04:17:47 +00:00
|
|
|
|
2021-07-29 00:47:26 +00:00
|
|
|
* Read 512 bytes into BLKBUF
|
2021-08-29 05:13:31 +00:00
|
|
|
RDFILE JSR MLI
|
|
|
|
|
DB READCMD
|
|
|
|
|
DW READPL
|
|
|
|
|
RTS
|
2021-07-28 04:17:47 +00:00
|
|
|
|
2021-07-29 00:47:26 +00:00
|
|
|
* Write data in BLKBUF to disk
|
2021-08-29 05:13:31 +00:00
|
|
|
WRTFILE JSR MLI
|
|
|
|
|
DB WRITECMD
|
|
|
|
|
DW WRITEPL
|
|
|
|
|
RTS
|
2021-07-28 04:17:47 +00:00
|
|
|
|
2021-09-04 06:00:26 +00:00
|
|
|
* Put ProDOS prefix in PREFIX
|
2021-08-29 05:13:31 +00:00
|
|
|
GETPREF JSR MLI
|
|
|
|
|
DB GPFXCMD
|
|
|
|
|
DW GPFXPL
|
|
|
|
|
RTS
|
2021-08-28 04:45:03 +00:00
|
|
|
|
2021-09-04 06:00:26 +00:00
|
|
|
* Convert path in PREFIX by removing leaf dir to leave
|
2021-08-28 18:24:20 +00:00
|
|
|
* parent directory. If already at top, return unchanged.
|
2021-09-04 06:00:26 +00:00
|
|
|
PARENT LDX PREFIX ; Length of string
|
2021-08-29 05:13:31 +00:00
|
|
|
BEQ :EXIT ; Prefix len zero
|
|
|
|
|
DEX ; Ignore trailing '/'
|
2021-09-04 06:00:26 +00:00
|
|
|
:L1 LDA PREFIX,X
|
2021-08-29 05:13:31 +00:00
|
|
|
CMP #$2F ; Slash '/'
|
|
|
|
|
BEQ :FOUND
|
|
|
|
|
DEX
|
|
|
|
|
CPX #$01
|
|
|
|
|
BNE :L1
|
|
|
|
|
BRA :EXIT ; No slash found
|
2021-09-04 06:00:26 +00:00
|
|
|
:FOUND STX PREFIX ; Truncate string
|
2021-08-29 05:13:31 +00:00
|
|
|
:EXIT RTS
|
2021-08-28 04:45:03 +00:00
|
|
|
|
2021-08-28 18:24:20 +00:00
|
|
|
* Convert slot/drive to prefix
|
|
|
|
|
* Expect slot number (1..7) in A, drive (0..1) in X
|
2021-09-04 06:00:26 +00:00
|
|
|
* Puts prefix (or empty string) in PREFIX
|
2021-08-30 23:48:11 +00:00
|
|
|
DRV2PFX CLC ; Cy=0 A=00000sss
|
2021-08-30 23:08:22 +00:00
|
|
|
ROR A ; s 000000ss
|
|
|
|
|
ROR A ; s s000000s
|
|
|
|
|
ROR A ; s ss000000
|
2021-08-30 23:48:11 +00:00
|
|
|
ROR A ; 0 sss00000
|
2021-08-30 23:08:22 +00:00
|
|
|
CPX #1 ; d sss00000
|
|
|
|
|
ROR A ; 0 dsss0000
|
|
|
|
|
|
|
|
|
|
STA ONLNPL+1 ; Device number
|
2021-08-29 05:13:31 +00:00
|
|
|
JSR MLI ; Call ON_LINE
|
|
|
|
|
DB ONLNCMD
|
2021-08-30 23:08:22 +00:00
|
|
|
DW ONLNPL ; Buffer set to DRVBUF2 (was $301)
|
2021-09-04 06:00:26 +00:00
|
|
|
LDA DRVBUF2 ; Slot/Drive/Length
|
2021-08-29 06:15:01 +00:00
|
|
|
AND #$0F ; Mask to get length
|
2021-08-29 05:13:31 +00:00
|
|
|
TAX
|
2021-08-30 23:48:11 +00:00
|
|
|
INC ; Plus '/' at each end
|
|
|
|
|
INC
|
2021-09-04 06:00:26 +00:00
|
|
|
STA PREFIX ; Store length
|
2021-08-30 23:48:11 +00:00
|
|
|
LDA #$2F ; '/'
|
2021-09-04 06:00:26 +00:00
|
|
|
STA PREFIX+1
|
|
|
|
|
STA PREFIX+2,X
|
|
|
|
|
:L1 CPX #$00 ; Copy -> PREFIX
|
2021-08-29 05:13:31 +00:00
|
|
|
BEQ :EXIT
|
2021-09-04 06:00:26 +00:00
|
|
|
LDA DRVBUF2,X
|
|
|
|
|
STA PREFIX+1,X
|
2021-08-30 23:48:11 +00:00
|
|
|
DEX
|
2021-08-29 05:13:31 +00:00
|
|
|
BRA :L1
|
|
|
|
|
:EXIT RTS
|
2021-08-28 18:24:20 +00:00
|
|
|
|
|
|
|
|
* Delete first char of MOSFILE
|
2021-08-29 05:13:31 +00:00
|
|
|
DEL1CHAR LDX MOSFILE ; Length
|
|
|
|
|
BEQ :EXIT ; Nothing to delete
|
|
|
|
|
LDY #$02 ; Second char
|
|
|
|
|
:L1 CPY MOSFILE
|
|
|
|
|
BEQ :S2 ; If Y=MOSFILE okay
|
|
|
|
|
BCS :S1 ; If Y>MOSFILE done
|
|
|
|
|
:S2 LDA MOSFILE,Y
|
|
|
|
|
STA MOSFILE-1,Y
|
|
|
|
|
INY
|
|
|
|
|
BRA :L1
|
|
|
|
|
:S1 DEC MOSFILE
|
|
|
|
|
:EXIT RTS
|
2021-08-28 18:24:20 +00:00
|
|
|
|
2021-09-04 06:00:26 +00:00
|
|
|
* Append MOSFILE to PREFIX
|
|
|
|
|
APFXMF LDY PREFIX ; Length of PREFIX
|
2021-08-29 05:13:31 +00:00
|
|
|
LDX #$00 ; Index into MOSFILE
|
|
|
|
|
:L1 CPX MOSFILE ; Length of MOSFILE
|
|
|
|
|
BEQ :DONE
|
|
|
|
|
LDA MOSFILE+1,X
|
2021-09-04 06:00:26 +00:00
|
|
|
STA PREFIX+1,Y
|
2021-08-29 05:13:31 +00:00
|
|
|
INX
|
|
|
|
|
INY
|
|
|
|
|
BRA :L1
|
2021-09-04 06:00:26 +00:00
|
|
|
:DONE STY PREFIX ; Update length PREFIX
|
2021-08-29 05:13:31 +00:00
|
|
|
RTS
|
2021-08-28 18:24:20 +00:00
|
|
|
|
2021-09-04 03:54:18 +00:00
|
|
|
* Scan pathname in MOSFILE converting files/dirs
|
|
|
|
|
* starting with digit by adding 'N' before.
|
|
|
|
|
DIGCONV LDY #$01 ; First char
|
|
|
|
|
:L1 CPY MOSFILE ; String length
|
|
|
|
|
BEQ :KEEPON ; Last char
|
|
|
|
|
BCS :DONE ; Y>MOSFILE
|
|
|
|
|
:KEEPON LDA MOSFILE,Y ; Load char
|
|
|
|
|
JSR ISDIGIT ; Is it a digit?
|
|
|
|
|
BCC :NOINS ; No .. skip
|
|
|
|
|
CPY #$01 ; First char?
|
|
|
|
|
BEQ :INS ; First char is digit
|
|
|
|
|
LDA MOSFILE-1,Y ; Prev char
|
|
|
|
|
CMP #$2F ; Slash
|
|
|
|
|
BEQ :INS ; Slash followed by digit
|
|
|
|
|
BRA :NOINS ; Otherwise leave it alone
|
|
|
|
|
:INS LDA #'N' ; Char to insert
|
|
|
|
|
JSR INSMF ; Insert it
|
|
|
|
|
INY
|
|
|
|
|
:NOINS INY ; Next char
|
|
|
|
|
BRA :L1
|
|
|
|
|
:DONE RTS
|
|
|
|
|
|
|
|
|
|
* Is char in A a digit? Set carry if so
|
|
|
|
|
ISDIGIT CMP #'9'+1
|
|
|
|
|
BCS :NOTDIG
|
|
|
|
|
CMP #'0'
|
|
|
|
|
BCC :NOTDIG
|
|
|
|
|
SEC
|
|
|
|
|
RTS
|
|
|
|
|
:NOTDIG CLC
|
|
|
|
|
RTS
|
|
|
|
|
|
|
|
|
|
* Insert char in A into MOSFILE at posn Y
|
|
|
|
|
* Preserves regs
|
|
|
|
|
INSMF PHA ; Preserve char
|
|
|
|
|
STY :INSIDX ; Stash index for later
|
|
|
|
|
LDY MOSFILE ; String length
|
|
|
|
|
INY ; Start with Y=len+1
|
|
|
|
|
:L1 CPY :INSIDX ; Back to ins point?
|
|
|
|
|
BEQ :S1 ; Yes, done moving
|
|
|
|
|
LDA MOSFILE-1,Y ; Move one char
|
|
|
|
|
STA MOSFILE,Y
|
|
|
|
|
DEY
|
|
|
|
|
BRA :L1
|
|
|
|
|
:S1 PLA ; Char to insert
|
|
|
|
|
STA MOSFILE,Y ; Insert it
|
|
|
|
|
INC MOSFILE ; One char longer
|
|
|
|
|
RTS
|
|
|
|
|
:INSIDX DB $00
|
|
|
|
|
|
2021-09-04 06:00:26 +00:00
|
|
|
* Copy Pascal-style string
|
|
|
|
|
* Source in A1L/A1H, dest in A4L/A4H
|
|
|
|
|
STRCPY LDY #$00
|
|
|
|
|
LDA (A1L),Y ; Length of source
|
|
|
|
|
STA (A4L),Y ; Copy length byte
|
|
|
|
|
TAY
|
|
|
|
|
:L1 CPY #$00
|
|
|
|
|
BEQ :DONE
|
|
|
|
|
LDA (A1L),Y
|
|
|
|
|
STA (A4L),Y
|
|
|
|
|
DEY
|
|
|
|
|
BRA :L1
|
|
|
|
|
:DONE RTS
|
|
|
|
|
|
|
|
|
|
* Copy MOSFILE to MFTEMP
|
|
|
|
|
MFtoTMP LDA #<MOSFILE
|
|
|
|
|
STA A1L
|
|
|
|
|
LDA #>MOSFILE
|
|
|
|
|
STA A1H
|
|
|
|
|
LDA #<MFTEMP
|
|
|
|
|
STA A4L
|
|
|
|
|
LDA #>MFTEMP
|
|
|
|
|
STA A4H
|
|
|
|
|
JSR STRCPY
|
|
|
|
|
RTS
|
|
|
|
|
|
|
|
|
|
* Copy MFTEMP to MOSFILE1
|
|
|
|
|
TMPtoMF LDA #<MFTEMP
|
|
|
|
|
STA A1L
|
|
|
|
|
LDA #>MFTEMP
|
|
|
|
|
STA A1H
|
|
|
|
|
LDA #<MOSFILE
|
|
|
|
|
STA A4L
|
|
|
|
|
LDA #>MOSFILE
|
|
|
|
|
STA A4H
|
|
|
|
|
JSR STRCPY
|
|
|
|
|
RTS
|
|
|
|
|
|
|
|
|
|
* Copy MOSFILE to MOSFILE2
|
|
|
|
|
COPYMF12 LDA #<MOSFILE
|
|
|
|
|
STA A1L
|
|
|
|
|
LDA #>MOSFILE
|
|
|
|
|
STA A1H
|
|
|
|
|
LDA #<MOSFILE2
|
|
|
|
|
STA A4L
|
|
|
|
|
LDA #>MOSFILE2
|
|
|
|
|
STA A4H
|
|
|
|
|
JSR STRCPY
|
|
|
|
|
RTS
|
|
|
|
|
|
|
|
|
|
* Copy MOSFILE2 to MOSFILE
|
|
|
|
|
COPYMF21 LDA #<MOSFILE2
|
|
|
|
|
STA A1L
|
|
|
|
|
LDA #>MOSFILE2
|
|
|
|
|
STA A1H
|
|
|
|
|
LDA #<MOSFILE
|
|
|
|
|
STA A4L
|
|
|
|
|
LDA #>MOSFILE
|
|
|
|
|
STA A4H
|
|
|
|
|
JSR STRCPY
|
|
|
|
|
RTS
|
|
|
|
|
|
|
|
|
|
* Copy PREFIX to MOSFILE
|
|
|
|
|
COPYPFXMF
|
|
|
|
|
LDA #<PREFIX
|
|
|
|
|
STA A1L
|
|
|
|
|
LDA #>PREFIX
|
|
|
|
|
STA A1H
|
|
|
|
|
LDA #<MOSFILE
|
|
|
|
|
STA A4L
|
|
|
|
|
LDA #>MOSFILE
|
|
|
|
|
STA A4H
|
|
|
|
|
JSR STRCPY
|
|
|
|
|
RTS
|
2021-09-04 03:54:18 +00:00
|
|
|
|
2021-09-05 10:50:04 +00:00
|
|
|
* Read mainmem from auxmem
|
|
|
|
|
MAINRDMEM STA A1L
|
|
|
|
|
STY A1H
|
|
|
|
|
LDA $C081
|
|
|
|
|
LDA $C081
|
|
|
|
|
LDA (A1L)
|
|
|
|
|
MAINRDEXIT >>> XF2AUX,NULLRTS ; Back to an RTS
|
|
|
|
|
|
|
|
|
|
|
2021-08-28 18:24:20 +00:00
|
|
|
******************************************************
|
2021-07-28 04:17:47 +00:00
|
|
|
* ProDOS Parameter lists for MLI calls
|
2021-08-28 18:24:20 +00:00
|
|
|
******************************************************
|
2021-08-29 05:13:31 +00:00
|
|
|
OPENPL HEX 03 ; Number of parameters
|
|
|
|
|
DW $0000 ; Pointer to filename
|
|
|
|
|
DW IOBUF0 ; Pointer to IO buffer
|
|
|
|
|
DB $00 ; Reference number returned
|
|
|
|
|
|
|
|
|
|
OPENPL2 HEX 03 ; Number of parameters
|
|
|
|
|
DW $0000 ; Pointer to filename
|
|
|
|
|
DW $0000 ; Pointer to IO buffer
|
|
|
|
|
DB $00 ; Reference number returned
|
|
|
|
|
|
|
|
|
|
CREATEPL HEX 07 ; Number of parameters
|
|
|
|
|
DW $0000 ; Pointer to filename
|
|
|
|
|
DB $00 ; Access
|
|
|
|
|
DB $00 ; File type
|
|
|
|
|
DW $0000 ; Aux type
|
|
|
|
|
DB $00 ; Storage type
|
|
|
|
|
DW $0000 ; Create date
|
|
|
|
|
DW $0000 ; Create time
|
|
|
|
|
|
|
|
|
|
DESTPL HEX 01 ; Number of parameters
|
|
|
|
|
DW $0000 ; Pointer to filename
|
|
|
|
|
|
|
|
|
|
RENPL HEX 02 ; Number of parameters
|
|
|
|
|
DW $0000 ; Pointer to existing name
|
|
|
|
|
DW $0000 ; Pointer to new filename
|
|
|
|
|
|
|
|
|
|
READPL HEX 04 ; Number of parameters
|
|
|
|
|
DB $00 ; Reference number
|
|
|
|
|
DW BLKBUF ; Pointer to data buffer
|
|
|
|
|
DW 512 ; Request count
|
|
|
|
|
DW $0000 ; Trans count
|
|
|
|
|
|
|
|
|
|
READPL2 HEX 04 ; Number of parameters
|
|
|
|
|
DB #00 ; Reference number
|
|
|
|
|
DW BLKBUF ; Pointer to data buffer
|
|
|
|
|
DW 1 ; Request count
|
|
|
|
|
DW $0000 ; Trans count
|
|
|
|
|
|
|
|
|
|
WRITEPL HEX 04 ; Number of parameters
|
|
|
|
|
DB $01 ; Reference number
|
|
|
|
|
DW BLKBUF ; Pointer to data buffer
|
|
|
|
|
DW $00 ; Request count
|
|
|
|
|
DW $0000 ; Trans count
|
|
|
|
|
|
|
|
|
|
CLSPL HEX 01 ; Number of parameters
|
|
|
|
|
DB $00 ; Reference number
|
|
|
|
|
|
|
|
|
|
FLSHPL HEX 01 ; Number of parameters
|
|
|
|
|
DB $00 ; Reference number
|
|
|
|
|
|
|
|
|
|
ONLNPL HEX 02 ; Number of parameters
|
|
|
|
|
DB $00 ; Unit num
|
2021-09-04 06:00:26 +00:00
|
|
|
DW DRVBUF2 ; Buffer
|
2021-08-29 05:13:31 +00:00
|
|
|
|
|
|
|
|
GSPFXPL HEX 01 ; Number of parameters
|
2021-09-04 06:00:26 +00:00
|
|
|
DW DRVBUF1 ; Buffer
|
2021-08-29 05:13:31 +00:00
|
|
|
|
|
|
|
|
GPFXPL HEX 01 ; Number of parameters
|
2021-09-04 06:00:26 +00:00
|
|
|
DW PREFIX ; Buffer
|
2021-08-29 05:13:31 +00:00
|
|
|
|
|
|
|
|
SPFXPL HEX 01 ; Number of parameters
|
|
|
|
|
DW MOSFILE ; Buffer
|
|
|
|
|
|
|
|
|
|
GMARKPL HEX 02 ; Number of parameters
|
|
|
|
|
DB $00 ; File reference number
|
|
|
|
|
DB $00 ; Mark (24 bit)
|
|
|
|
|
DB $00
|
|
|
|
|
DB $00
|
|
|
|
|
|
|
|
|
|
GEOFPL HEX 02 ; Number of parameters
|
|
|
|
|
DB $00 ; File reference number
|
|
|
|
|
DB $00 ; EOF (24 bit)
|
|
|
|
|
DB $00
|
|
|
|
|
DB $00
|
|
|
|
|
|
|
|
|
|
GINFOPL HEX 0A ; Number of parameters
|
|
|
|
|
DW $0000 ; Pointer to filename
|
|
|
|
|
DB $00 ; Access
|
|
|
|
|
DB $00 ; File type
|
|
|
|
|
DW $0000 ; Aux type
|
|
|
|
|
DB $00 ; Storage type
|
|
|
|
|
DW $0000 ; Blocks used
|
|
|
|
|
DW $0000 ; Mod date
|
|
|
|
|
DW $0000 ; Mod time
|
|
|
|
|
DW $0000 ; Create date
|
|
|
|
|
DW $0000 ; Create time
|
|
|
|
|
|
|
|
|
|
QUITPL HEX 04 ; Number of parameters
|
|
|
|
|
DB $00
|
|
|
|
|
DW $0000
|
|
|
|
|
DB $00
|
|
|
|
|
DW $0000
|
2021-07-28 04:17:47 +00:00
|
|
|
|
2021-09-04 06:00:26 +00:00
|
|
|
MFTEMP DS 65 ; Temp copy of MOSFILE
|
|
|
|
|
PREFIX DS 65 ; Buffer for ProDOS prefix
|
|
|
|
|
|
