mirror of
https://github.com/RevCurtisP/C02.git
synced 2024-11-22 01:31:33 +00:00
Removed include/vic/fileio.a02 from tracking
This commit is contained in:
Curtis F Kaylor
parent
200096f83f
commit
1440c42c26
@ -1,155 +0,0 @@
|
||||
; 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
|
||||
|
||||
Loading…
Reference in New Issue
Block a user