mirror of https://github.com/RevCurtisP/C02.git
132 lines
4.1 KiB
Plaintext
132 lines
4.1 KiB
Plaintext
;C02 Module file.h02 Assembly Lamnguage
|
|
;Template Code
|
|
|
|
DRIVES EQU 0 ;Number of Disk Drives (None)
|
|
DRIVE BYTE 0 ;List of Drive Device Numbers
|
|
|
|
DISKS EQU 0 ;Number of Disks in Drive (None)
|
|
DISK BYTE 0 ;List of Disk IDs
|
|
|
|
;File Open Modes
|
|
MWRITE EQU $80
|
|
MREAD EQU $00
|
|
|
|
; File Load Modes
|
|
MRELCT EQU $00 ;Relocate (Load at Specified Address)
|
|
MABSLT EQU $80 ;Absolute (Load at Address in File Header)
|
|
|
|
;fclose(chan) - Close File
|
|
;Args: A = Channel Number
|
|
;Returns: A = Error (0=None)
|
|
FCLOSE: ;Return Error (Fall through)
|
|
|
|
;feof(chan) - Check for End of File
|
|
;Args: A = Channel Number
|
|
;Returns: A = $00 - Not End of File
|
|
; $FF - End of File
|
|
; Otherwise, Error Code
|
|
FEOF: ;Return Error - Not Implemented
|
|
|
|
;fflush(chan) - Flush Write Buffer to File
|
|
;Args: A = Channel
|
|
;Returns: A = Error (0=None)
|
|
FFLUSH: ;Return Error - Not Implemented
|
|
|
|
;fputc(chan, char) - Write Character to File
|
|
;Args: A = Character to Write
|
|
; Y = Channel Number
|
|
;Returns: A = Error Code ($00 - Success)
|
|
FPUTC: ;Return Error - Not Implemented
|
|
|
|
;fload(name) - Load File into Memory
|
|
;Setup: Call FSNAME with filename address
|
|
; Call FSADDR with start address
|
|
;Args: A = Option + DriveID
|
|
; Y,X = End Address
|
|
;Returns: A = Error Code ($00 - Success)
|
|
; X,Y = Load Address
|
|
FLOAD: ;Return Error - Not Implemented (fall through)
|
|
|
|
;fsave(name) - Save File from Memory
|
|
;Setup: Call FSNAME with filename address
|
|
; Call FSADDR with start address
|
|
;Args: A = Option + DriveID
|
|
; Y,X = End Address
|
|
;Returns: A = Error Code ($00 - Success)
|
|
FSAVE: LDA $FF ;Return Error - Not Implemented
|
|
RTS
|
|
|
|
;fopen(mode, &name) - Open File
|
|
;Args: A = Mode + Drive ID + Disk #
|
|
; Y,X = Pointer to File Name
|
|
;Returns: A = File Channel (0=File Not Opened)
|
|
; Y = Error (0=None)
|
|
FOPEN: ;Return Error - Not Implemented
|
|
|
|
;fgetc(chan) - Read Character from File
|
|
;Args: A = Channel Number
|
|
;Returns: A = Character
|
|
; Y = Error Code ($00 - Success)
|
|
FGETC: ;Return Error - Not Implemented
|
|
|
|
;fgets(chan, &s) - Read String from File
|
|
;Args: A = Channel Number
|
|
; Y,X = Address of String
|
|
;Returns: A = Number of Bytes Read
|
|
; Y = Error Code ($00 - Success)
|
|
FGETS: ;Return Error - Not Implemented
|
|
|
|
;fputln(chan, &s) - Write String to File with Newline
|
|
;Args: A = Channel Number
|
|
; Y,X = Address of String
|
|
;Returns: A = Error Code ($00 - Success)
|
|
FPUTLN: ;Return Error - Not Implemented
|
|
|
|
;fputs(chan, &s) - Write String to File
|
|
;Args: A = Channel Number
|
|
; Y,X = Address of String
|
|
;Returns: A = Error Code ($00 - Success)
|
|
FPUTS: ;Return Error - Not Implemented
|
|
|
|
;fread(chan, count) - Read Bytes from File
|
|
;Setup: Call FSADDR with array address
|
|
;Args: A = Number of Bytes to Read
|
|
; Y = Channel Number
|
|
;Returns: A = Number of Bytes Read
|
|
; Y = Error Code ($00 - Success)
|
|
FREAD: ;Return Error - Not Implemented (fall through)
|
|
|
|
;fwrite(chan, count) - Write Bytes to File
|
|
;Args: A = Channel Number
|
|
; Y = Number of Bytes to Write
|
|
;Uses: DSTLO,DSTHI - Pointer to Source Array
|
|
;Returns: A = Number of Bytes Written
|
|
; Y = Error Code
|
|
; $00 - Success
|
|
; $FF - Not Implemented
|
|
FWRITE: LDA $00 ;Return 0 Bytes Read/Written
|
|
LDY $FF ;and Error - Not Implemented
|
|
RTS
|
|
|
|
;ferror(chan, &msg) - Check for Error
|
|
;Args: A = Channel Number
|
|
; Y,X = String Address
|
|
;Returns: A = Last Error ($FF - Invalid Channel)
|
|
; Y = Error (0=None)
|
|
FERROR: LDA #$FF ;Return Invalid Channel
|
|
TAY ;and Error - Not Implemented
|
|
RTS
|
|
|
|
;fsinit() - Initialize File System
|
|
FSINIT: ;No Action (Fall Through)
|
|
|
|
;fsaddr(&array) - Set File Buffer Address
|
|
;Emulation: sets internal variable filebuff
|
|
;Args: Y,X = Address of String or Array
|
|
FSADDR: ;No Action (Fall Through)
|
|
|
|
;fsname(&name) - Set File Name
|
|
;Emulation: sets internal variable filename
|
|
;Args: Y,X = Address of Filename
|
|
FSNAME: RTS ;No Action
|