mirror of
https://github.com/RevCurtisP/C02.git
synced 2024-11-20 03:33:14 +00:00
156 lines
5.4 KiB
Plaintext
156 lines
5.4 KiB
Plaintext
|
; Requires external routines SETSRC and SETDST
|
||
|
|
; Requires the following RAM locations be defined
|
||
|
|
; external zero page byte pairs SRCLO,SRCHI and DSTLO,DSTHI
|
||
|
|
; and external bytes TEMP0 and TEMP1
|
||
|
|
|
||
|
|
;fsetup(fn, fs, fd) - Set Parameters for fsopen()
|
||
|
|
;Args: A = Logical file number
|
||
|
|
; Y = Secondary address (255 for None)
|
||
|
|
; X = Device 0=Keyboard, 1=Cassette, 2=RS232, 3=Screen
|
||
|
|
; 4-7=Printers, 8-15=Disks, 31=All Devices
|
||
|
|
;Affects None
|
||
|
|
FSETUP EQU SETLFS ;Set up a logical file
|
||
|
|
|
||
|
|
;fsname(n, &s) - Set Filename for Load, Open, Save
|
||
|
|
;Args: A = Length of filename string
|
||
|
|
; X,Y = Pointer to string containing filename
|
||
|
|
;Affects: A,X,Y
|
||
|
|
;Returns: A = 1,2,3,4,6,240 (see FERROR)
|
||
|
|
|
||
|
|
;fsload(v, &a) - Load Memory from File
|
||
|
|
;Prereqs: fsetup(), fsname()
|
||
|
|
;Args: A = Mode 0=Load, 1=Verify
|
||
|
|
; Y,X = Address to Load File
|
||
|
|
;Stack: 9
|
||
|
|
;Affects: A,X,Y
|
||
|
|
;Sets: STATUS = 0,4,5,8,9 (see FERROR)
|
||
|
|
FSLOAD EQU LOAD ;Load RAM from device
|
||
|
|
|
||
|
|
;fssave(v, &a) - Save Memory to File
|
||
|
|
;Prereqs: fsdst fsetup(), fsname()
|
||
|
|
;Requires: DSTLO, DSTHI - Start Address
|
||
|
|
;Args: Y,X = End Address
|
||
|
|
;Stack: 9
|
||
|
|
;Affects: A,X,Y
|
||
|
|
;Sets: STATUS = 0,4,5,8,9 (see FERROR)
|
||
|
|
FSSAVE: LDA #SRCLO ;Load Pointer to Start Address
|
||
|
|
JMP SAVE ;Save memory to device
|
||
|
|
|
||
|
|
;fsopen() - Open
|
||
|
|
;Prereqs: fsetup(), fsname()
|
||
|
|
;Affects: A,X,Y
|
||
|
|
;Sets: STATUS = 1,2,3,4,6,240 (see FERROR)
|
||
|
|
STRCHR: JSR SETNAM ;Set file name
|
||
|
|
JMP OPEN ;Open File
|
||
|
|
|
||
|
|
;fopen(n, &s) - Open File with Specified Name
|
||
|
|
;Not Implemented
|
||
|
|
|
||
|
|
;fclose(fn) - Close File
|
||
|
|
;Args: A = Logical file number
|
||
|
|
;Returns: A = 0,240 (see FERROR)
|
||
|
|
FCLOSE EQU CLOSE ;Close a logical file
|
||
|
|
|
||
|
|
;feof(fn) - Check for End of File
|
||
|
|
;Args: A = Logical file number
|
||
|
|
;Affects: A,X
|
||
|
|
;Returns: A = 0,240 (see FERROR)
|
||
|
|
FEOF: JSR READST ;Read status word
|
||
|
|
AND #$C0 ;$40=End of File, $80 End of Tape
|
||
|
|
BEQ FRTS ;If Not 0
|
||
|
|
FERR: LDA #$FF ; Set Generic Error Condition
|
||
|
|
FRTS: RTS ;Return from Subroutine
|
||
|
|
|
||
|
|
;ferror(fn) - Check for Error
|
||
|
|
;Args: A = Logical file number
|
||
|
|
;Affects: A,X
|
||
|
|
;Returns: A = Error Bit Mask
|
||
|
|
; Bit Cassette Read Serial Bus I/O Tape Load/Verify
|
||
|
|
; $01 Write Timeout
|
||
|
|
; $02 Read Timeout
|
||
|
|
; $04 Short Block Short Block
|
||
|
|
; $08 Long Block Long Block
|
||
|
|
; $10 Read Error Any Mismatch
|
||
|
|
; $20 Checksum Err Checksum Err
|
||
|
|
; $40 End of File EOI Line
|
||
|
|
; $80 End of Tape Device Not Present End of Tape
|
||
|
|
FERROR EQU READST ;Read status word
|
||
|
|
|
||
|
|
;fflush() - Flush file buffer
|
||
|
|
; No-Op - Not Needed
|
||
|
|
FFLUSH: RTS
|
||
|
|
|
||
|
|
;fgetc(fn) - Read character from file
|
||
|
|
;Args: A = Logical file number
|
||
|
|
;Stack: 9
|
||
|
|
;Affects: A,X
|
||
|
|
;Returns: A = 0,240 (see FERROR)
|
||
|
|
FGETC: TAX ;Move logical file number to X register
|
||
|
|
JSR CHKIN ;Open channel for input
|
||
|
|
JSR CHRIN ;Get character from input channel
|
||
|
|
PHA ;Save read character
|
||
|
|
JSR CLRCHN ;Clear I/O channels
|
||
|
|
PLA ;Retrieve read Character
|
||
|
|
RTS
|
||
|
|
|
||
|
|
;fputc(fn) - Write character from file
|
||
|
|
;Args: A = Logical file number
|
||
|
|
; Y = Character to Write
|
||
|
|
;Stack: 9
|
||
|
|
;Affects: A,X
|
||
|
|
;Returns: A = 0,240 (see FERROR)
|
||
|
|
FPUTC: TAX ;Move logical file number to X register
|
||
|
|
JSR CHKOUT ;Open channel for input
|
||
|
|
TYA ;Move character to accumulator
|
||
|
|
FPUTCH: JSR CHROUT ;Output a character
|
||
|
|
JMP CLRCHN ;Clear I/O channels and return
|
||
|
|
|
||
|
|
;fgets(fn, &s) - Read string from file
|
||
|
|
;Requires: DSTLO, DSTHI - Pointer to destination string
|
||
|
|
;Args: A = Logical file number
|
||
|
|
; Y,X = Pointer to String
|
||
|
|
;Stack: 9
|
||
|
|
;Affects: X,Y
|
||
|
|
;Returns: A = Number of bytes read
|
||
|
|
FGETS: JSR SETDST ;Save string address & initialize pointer
|
||
|
|
TAX ;Move logical file number to X register
|
||
|
|
JSR CHKIN ;Open channel for input
|
||
|
|
FGETSL: JSR CHRIN ;Get character from input channel
|
||
|
|
PHA ;Save read character
|
||
|
|
JSR READST ;Read status word
|
||
|
|
BNE FGETSX ;If Not 0, Exit
|
||
|
|
PLA ;Retrieve read character
|
||
|
|
STA SRCLO,Y ;Store character in string
|
||
|
|
CMP $0D ;If Carriage Return
|
||
|
|
BEQ FGETSX ; Then Exit
|
||
|
|
INY ;Increment pointer
|
||
|
|
BPL FGETSL ;and loop if less than 128
|
||
|
|
FGETSX: LDA #$00 ;Terminate String
|
||
|
|
STA (SRCLO),Y ;
|
||
|
|
FGETSY: JSR CLRCHN ;Clear I/O channels
|
||
|
|
TYA ;Return string length
|
||
|
|
RTS
|
||
|
|
|
||
|
|
;fputs(fn, &s) - Write String to File
|
||
|
|
;Requires: DSTLO, DSTHI - Pointer to source string
|
||
|
|
;Args: A = Logical file number
|
||
|
|
; Y,X = Pointer to String
|
||
|
|
;Stack: 9
|
||
|
|
;Affects: X,Y
|
||
|
|
;Returns: A = Number of bytes written
|
||
|
|
FPUTS: JSR SETDST ;Save string address & initialize pointer
|
||
|
|
TAX ;Move logical file number to X register
|
||
|
|
JSR CHKIN ;Open channel for input
|
||
|
|
FPUTSL: LDA SRCLO,Y ;Load next character
|
||
|
|
PHA ;Save write character
|
||
|
|
JSR CHROUT ;Write character to output channel
|
||
|
|
PLA ;Retrieve write character
|
||
|
|
CMP $0D ;If Carriage Return
|
||
|
|
BEQ FGETSY ; Then Exit
|
||
|
|
JSR READST ;Read status word
|
||
|
|
BNE FGETSY ;If Not 0, Exit
|
||
|
|
INY ;Increment pointer
|
||
|
|
BPL FPUTSL ;If less than 128 then loop
|
||
|
|
BMI FGESTY ;Else exit
|
||
|
|
|