6502/C02
1
0
Fork 0
mirror of https://github.com/RevCurtisP/C02.git synced 2024-06-26 05:29:32 +00:00
Code Issues Projects Releases Wiki Activity

Updates to run6502 file modules and test programs

Browse Source
This commit is contained in:
Curtis F Kaylor 2020-10-14 10:59:25 -04:00
parent 1cc2caa794
commit 4c27db63ee
12 changed files with 368 additions and 187 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
include/run6502/direct.a02
View File

@ -4,27 +4,33 @@
SUBROUTINE DIRECT SUBROUTINE DIRECT
TOPDIR BYTE "/",0 ;Root Directory
UPDIR BYTE "..",0 ;Parent Directory
;getcwd(drv, &dir) - Get Current Directory ;getcwd(drv, &dir) - Get Current Directory
;Args: A = Drive Identifier ;Args: A = Drive Identifier
; Y,X = Pointer to String ; Y,X = Pointer to String
;Returns: A = Result (0 = Success, $FF = Failure) ;Returns: A = Length of Directory Name
; Y = Error Code (0 = None) ; Y = Error Code (0 = None)
GETCWD: JSR FSDRVN ;Convert Drive Letter to Drive Number GETCWD: JSR FSADDR ;Set String Buffer Address
BCS .DRVERR ;If Invalid Return Error TAY ;Set Drive ID
LDA #'T' ;Set Command to GETCWD CLC ;Set Mode to GETCWD
LDA #'U' ;Set Command to GETSETDIR
.FSCMDX JSR FSCMD ;Execute Command .FSCMDX JSR FSCMD ;Execute Command
TXA ;Return Length of Name TXA ;Return Length of Name
.DRVERR RTS RTS
;chdir(drv, &dir) - Get Current Directory ;chdir(drv, &dir) - Set Current Directory
;Args: A = Drive Identifier ;Args: A = Drive Identifier
; Y,X = Pointer to String ; Y,X = Pointer to String
;Returns: A = Result (0 = Succes, $FF = Failure) ;Returns: A = Error Code (0 = None)
; Y = Error Code (0 = None) CHDIR: JSR FSNAME ;Set Directory Name
CHDIR: JSR FSDRVN ;Convert Drive Letter to Drive Number TAY ;Set Drive ID
BCS .DRVERR ;If Invalid Return Error SEC ;Set Mode to CHDIR
LDA #'U' ;Set Command to GETCWD LDA #'U' ;Set Command to GETSETDIR
BNE .FSCMDX ;Execute Command and Return Result .FSCMDY JSR FSCMD ;Execute Command
TYA ;Return Length of Name
RTS
;rmdir(drv, &dir) - Create Directory ;rmdir(drv, &dir) - Create Directory
;Args: A = Drive Identifier ;Args: A = Drive Identifier
@ -38,12 +44,7 @@ RMDIR: SEC ;Set Mode to RMDIR
; Y,X = Address of Directory Name String ; Y,X = Address of Directory Name String
;Returns: A = Error Code (0 = None) ;Returns: A = Error Code (0 = None)
MKDIR: CLC ;Set Mode to MKDIR MKDIR: CLC ;Set Mode to MKDIR
.MRDIR PHP ;Save Status Register .MRDIR JSR FSNAME ;Set Directory Name
JSR FSDRVN ;Convert Drive Letter to Drive Number TAY ;Set Drive ID
BCS .DRVERR ;If Invalid Return Error
PLP ;Restore Status Register
LDA #'X' ;Set Command to MKRMDIR LDA #'X' ;Set Command to MKRMDIR
BNE .FSCMDX ;Execute Command and Return Result BNE .FSCMDY ;Execute Command and Return Result
.PLAERR PLP ;Restore Status Register
RTS ;and Return

11
include/run6502/direct.h02
View File

@ -4,16 +4,18 @@
* Requires fileio.h02 * * Requires fileio.h02 *
******************************************/ ******************************************/
const char topdir[]; //Root Directory Relative Path
const char updir[]; //Parent Directory Relative Path
/* Change Directory * /* Change Directory *
* Args: drv - Drive/Disk Identifier * * Args: drv - Drive/Disk Identifier *
* &dir - Directory Name * * &dir - Directory Name *
* Returns: char r - Result, 0=Success * * Returns: char e - Error, 0=None */
* char e - Error, 0=None */
char chdir(); char chdir();
/* Get Current Working Directory * /* Get Current Working Directory *
* Args: drv - Drive/Disk Identifier * * Args: drv - Drive/Disk Identifier *
* &dir - Directory Name * * &dir - Directory String *
* Returns: char n - Length of Name * * Returns: char n - Length of Name *
* 0 = None or Error * * 0 = None or Error *
* char e - Error, 0=None */ * char e - Error, 0=None */
@ -22,8 +24,7 @@ char getcwd();
/* Make Directory * /* Make Directory *
* Args: drv - Drive/Disk Identifier * * Args: drv - Drive/Disk Identifier *
* &dir - Directory Name * * &dir - Directory Name *
* Returns: char r - Result, 0=Success * * Returns: char e - Error, 0=None */
* char e - Error, 0=None */
char mkdir(); char mkdir();
/* Remove Directory * /* Remove Directory *

14
include/run6502/dirent.a02
View File

@ -2,6 +2,8 @@
; This is the reference implementation of the dirent module ; This is the reference implementation of the dirent module
; Requires external functions FSADDR, FSCMD, and FSDRVN (fileio.h02) ; Requires external functions FSADDR, FSCMD, and FSDRVN (fileio.h02)
ATTRD BYTE "AHRDS" ;File Attribute Descriptions
SUBROUTINE DIRENT SUBROUTINE DIRENT
;opndir() - Open Directory for Reading ;opndir() - Open Directory for Reading
@ -9,9 +11,10 @@
; Y,X = Pointer to Directory Name ; Y,X = Pointer to Directory Name
;Returns: A = File Pointer (0 = Not Opened) ;Returns: A = File Pointer (0 = Not Opened)
; Y = Error Code (0 = None) ; Y = Error Code (0 = None)
OPNDIR: JSR FSDRVN ;Convert Drive Letter to Drive Number OPNDIR: JSR FSNAME ;Set File Name
BCS .OPNERR ;If Invalid Return Error TAY ;Set Drive Letter
LDA #'D' ;Set Command to OPENDIR SEC ;Set Mode to OPENDIR
LDA #'O' ;Set Command to OPEN
.FSCMDX JSR FSCMD ;Execute Command .FSCMDX JSR FSCMD ;Execute Command
TXA ;Return Channel TXA ;Return Channel
RTS RTS
@ -36,14 +39,15 @@ RDHDR: SEC ;Set Mode to HEADER
RDDIR: CLC ;Set Mode to ENTRY RDDIR: CLC ;Set Mode to ENTRY
.RDDIR JSR FSADDR ;Save Address .RDDIR JSR FSADDR ;Save Address
TAY ;Set Channel TAY ;Set Channel
LDA #'J' ;Set Command to READDIR LDA #'D' ;Set Command to READDIR
BNE .FSCMDX ;Execute and Return Result BNE .FSCMDX ;Execute and Return Result
;clsdir() - Close Directory File ;clsdir() - Close Directory File
;Args: A = Directory File Pointer ;Args: A = Directory File Pointer
;Returns: A = Error Code (0 = Success) ;Returns: A = Error Code (0 = Success)
CLSDIR: TAY ;Set Channel CLSDIR: TAY ;Set Channel
LDA #'B' ;Set Command to CLOSEDIR SEC ;Set Mode to CLOSEDIR
LDA #'C' ;Set Command to CLOSE
JSR FSCMD ;Execute Command JSR FSCMD ;Execute Command
TYA ;and Return Error Code TYA ;and Return Error Code
RTS RTS

13
include/run6502/dirent.h02
View File

@ -2,9 +2,20 @@
* dirent - Directory Entries Module for run6502 emulator * * dirent - Directory Entries Module for run6502 emulator *
**********************************************************/ **********************************************************/
/* File Attributes */
struct attrs {char arch, hidden, rdonly, subdir, system;};
const char attrd[]; //Single Character Descriptions
/* Timestamp - Matches module time.h02 structure tm */
struct ts {char year, month, day, hour, minute, second;};
/* Directory Entry */ /* Directory Entry */
struct dirent { struct dirent {
char name[128]; //Entry Filename struct attrs attr; //File Attributes
struct ts time; //Timestamp
int size; //Size in Bytes
char name[128]; //Entry Filename
}; };
/* Directory Header */ /* Directory Header */

265
include/run6502/fileio.a02
View File

@ -1,11 +1,14 @@
; C02 Module fileio Assembly Language Eoutines for run6502 emulator ; C02 Module fileio Assembly Language Eoutines for run6502 emulator
; This is the reference implementation of the fileo module ; This is the reference implementation of the fileo module
; The run6502 program has been customized with an emulated file ; The run6502 program has been customized with an emulated file command
; routine at the address set with the -F command line option ; routine at the address set with the -F command line option.
; The file routine is JSRed with the command code in A, and any ; The file routine is JSRed with the command in A, and any parameters
; parameters in Y and/or X. After command execution. Y and/or X ; in Y and/or X. After command execution. Y and/or X will contain any
; will contain any return values. Y is usually the error code. ; return values, with Y is usually the error code.
;
; The Command Routine FSCMD is defines in file include/run6502.a02
SUBROUTINE FILEIO SUBROUTINE FILEIO
@ -16,43 +19,63 @@ DISKS EQU 1 ;Number of Disks in Drive
DISK BYTE 0 DISK BYTE 0
;File Open Modes ;File Open Modes
MREAD EQU $00 MREAD EQU $00 ;Open for Read
MWRITE EQU $80 MWRITE EQU $40 ;Open for Write
MAPPND EQU $80 ;Open for Append
MRECRD EQU $C0 ;Record Oriented File
;File Open Types
TTEXT EQU $00 ;Open as Texy File
TBNRY EQU $20 ;Open as Binary File
; File Load Modes ; File Load Modes
MRELCT EQU $00 ;Relocate (Load at Specified Address) MRELCT EQU $00 ;Relocate (Load at Specified Address)
MABSLT EQU $80 ;Absolute (Load at Address in File Header) MABSLT EQU $80 ;Absolute (Load at Address in File Header)
;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: JSR FSADDR ;Set Buffer Address
TAY ;Set Channel Number
LDA #'Y' ;Set Command to FERROR
BNE .FEXECX ;Execute and Return Result in A
;fflush(chan) - Flush Write Buffer to File ;fflush(chan) - Flush Write Buffer to File
;Args: A = Channel ;Args: A = Channel
;Returns: A = Error (0=None) ;Returns: A = Status (0=Success, $FF = Failure)
; Y = Error (0=None)
FFLUSH: TAY ;Set Channel Number FFLUSH: TAY ;Set Channel Number
LDA #'F' ;Set Command to FLUSH LDA #'F' ;Set Command to FLUSH
BNE .FEXECX ;Execute and Return Result in A BNE .FEXECX ;Execute and Return Result in A
.FEXEC JSR FSCMD ;Execute Command
TYA ;Return Error Code
;fopen(mode, &name) - Open File ;fopen(mode, &name) - Open File
;Args: A = Mode + Drive ID ;Setup: Call FSRECS with Record Size if Mode is MRECRD
;Args: A = File Mode | Drive ID
; Y,X = Pointer to File Name ; Y,X = Pointer to File Name
;Returns: A = File Channel (0=File Not Opened) ;Returns: A = File Channel (0=File Not Opened)
; Y = Error (0=None) ; Y = Error (0=None)
FOPEN: JSR FSNAME ;Set Filename FOPEN: JSR FSNAME ;Set Filename
TAX ;Pass Mode to X .FOPEN TAX ;Pass File Mode to X
JSR FSDRVN ;Convert Drive Letter to Drive Number JSR FSDRVN ;Convert Drive Letter to Drive Number
BCS .RETURN ;If Error, Return Carry Set BCS .FOPERR ;If Error, Return Carry Set
TAY ;Pass Drive Number in Y TAY ;Pass Drive Number in Y
CLC ;Set Mode to FOPEN
LDA #'O' ;Set Command to OPEN LDA #'O' ;Set Command to OPEN
.FEXECX JSR FSCMD ;Execute Command .FEXECX JSR FSCMD ;Execute Command
TXA ;Return Channel in A TXA ;Return Channel in A
RTS .FOPERR RTS
;fclose(chan) - Close File ;fclose(chan) - Close File
;Args: A = Channel Number ;Args: A = Channel Number
;Returns: A = Error (0=None) ;Returns: A = Error (0=None)
FCLOSE: TAY ;Set Channel FCLOSE: TAY ;Set Channel
CLC ;Set Mode to FCLOSE
LDA #'C' ;Set Command to CLOSE LDA #'C' ;Set Command to CLOSE
BNE .FEXEC ;Execute and Return Error in A .FEXECY JSR FSCMD ;Execute Command
TYA ;Return Errno
RTS
;feof(chan) - Check for End of File ;feof(chan) - Check for End of File
;Args: A = Channel Number ;Args: A = Channel Number
@ -61,7 +84,8 @@ FCLOSE: TAY ;Set Channel
; Otherwise, Error Code ; Otherwise, Error Code
FEOF: TAY ;Set Channel FEOF: TAY ;Set Channel
LDA #'E' ;Set Command to EOF LDA #'E' ;Set Command to EOF
BNE .FEXEC ;Execute and Return Error in A BNE .FEXECY ;Execute and Return Errno
;fgetc(chan) - Read Character from File ;fgetc(chan) - Read Character from File
;Args: A = Channel Number ;Args: A = Channel Number
@ -69,7 +93,7 @@ FEOF: TAY ;Set Channel
; Y = Error Code ($00 - Success) ; Y = Error Code ($00 - Success)
FGETC: TAY ;Set Channel FGETC: TAY ;Set Channel
LDA #'G' ;Set Command to GET LDA #'G' ;Set Command to GET
BNE .FEXECX ;Execute and Return Result in A BNE .FEXECX ;Execute and Return Result
;fgets(chan, &s) - Read String from File ;fgets(chan, &s) - Read String from File
;Args: A = Channel Number ;Args: A = Channel Number
@ -81,13 +105,34 @@ FGETS: JSR FSADDR ;Set String Address
LDA #'H' ;Set Command to GETS LDA #'H' ;Set Command to GETS
BNE .FEXECX ;Execute and Return Result in A BNE .FEXECX ;Execute and Return Result in A
;fgetr(chan, recno) - Read Record from File
;Setup: Call FSADDR with buffer address
;Args: A = Channel Number
; Y,X = Record Number
;Returns: A = Error Code
; Y,X = Next Record Number
FGETR: JSR FSINDX ;Set Record Number
TAY ;Set Channel Number
SEC ;Set Mode to RECORD
LDA #'R' ;Set Command to READ
BNE .FSCMD ;Execute Command and Return
;fgetw(chan) - Read Word from File
;Args: A = Channel Number
;Returns: A = Error Code ($00 - Success)
; Y,X = Word
FGETW: TAY ;Set Channel
CLC ;Set Mode to Get
LDA #'J' ;Set Command to GET
BNE .FSCMD ;Execute Command and Return
;fputc(chan, char) - Write Character to File ;fputc(chan, char) - Write Character to File
;Args: A = Character to Write ;Args: A = Character to Write
; Y = Channel Number ; Y = Channel Number
;Returns: A = Error Code ($00 - Success) ;Returns: A = Error Code ($00 - Success)
FPUTC: TAX ;Set Character to Write FPUTC: TAX ;Set Character to Write
LDA #'P' ;Set Command to PUT LDA #'P' ;Set Command to PUT
BNE .FEXEC ;Execute and Return Error in A BNE .FEXECX ;Execute and Return Result in A
;fputln(chan, &s) - Write String to File with Newline ;fputln(chan, &s) - Write String to File with Newline
;Args: A = Channel Number ;Args: A = Channel Number
@ -97,6 +142,18 @@ FPUTC: TAX ;Set Character to Write
FPUTLN: SEC ;Append Newline FPUTLN: SEC ;Append Newline
BCS .FPUTSA ;Write String to File BCS .FPUTSA ;Write String to File
;fputr(chan, recno) - Write Record from File
;Setup: Call FSADDR with buffer address
;Args: A = Channel Number
; Y,X = Record Number
;Returns: A = Error Code
; Y,X = Next Record Number
FPUTR: JSR FSINDX ;Set Record Number
TAY ;Set Channel Number
SEC ;Set Mode to RECORD
LDA #'W' ;Set Command to READ
BNE .FSCMD ;Execute Command and Return
;fputs(chan, &s) - Write String to File ;fputs(chan, &s) - Write String to File
;Args: A = Channel Number ;Args: A = Channel Number
; Y,X = Address of String ; Y,X = Address of String
@ -108,17 +165,54 @@ FPUTS: CLC ;Do Not Append Newline
LDA #'Q' ;Set Command to PUTS LDA #'Q' ;Set Command to PUTS
BNE .FEXECX ;Execute and Return Result in A BNE .FEXECX ;Execute and Return Result in A
;fread(chan, count) - Read Bytes from File ;fputw(chan, word) - Write Word to File
;Args: A = Channel Number
; Y,X = Word
;Returns: A = Error Code ($00 - Success)
FPUTW: JSR FSADDR ;Set File Buffer Address
TAY ;Set Channel
SEC ;Set Mode to PUT
LDA #'J' ;Set Command to WORD
BNE .FEXECY ;Execute and Return Result in A
;fread(count, chan) - Read Bytes from File
;Setup: Call FSADDR with array address ;Setup: Call FSADDR with array address
;Args: A = Number of Bytes to Read ;Args: A = Number of Bytes to Read
; Y = Channel Number ; Y = Channel Number
;Returns: A = Number of Bytes Read ;Returns: A = Number of Bytes Read
; Y = Error Code ($00 - Success) ; Y = Error Code ($00 - Success)
FREAD: TAX ;Set Number of Bytes to Write FREAD: TAX ;Set Number of Bytes to Write
LDA #'R' ;Set Command to READ CLC ;Set Mode to BYTES
BNE .FEXECX ;Execute and Return Result in A LDA #'R' ;Set Command to READ
BNE .FEXECX ;Execute and Return Result in A
;fwrite(chan, count) - Write Bytes to File ;rewind(chan) - Move to Beginning of File
;Args: A = Channel Number
;Returns: A = Error Code ($00 - Success)
REWIND: LDX #0 ;Set Position to $0000
LDY #0 ;and Fall Through to FSEEK
;fseek(chan, pos) - Move to Position in File
;Args: A = Channel Number
; Y,X = Position
;Returns: A = Error Code ($00 = Success)
FSEEK: JSR FSINDX ;Set File Index to Position`
TAY ;Set Channel to A
CLC ;Set Mode to SEEK
LDA #'Z' ;Set Command to SEEK
BNE .FEXECY ;Execute and Return Errno
;ftell(chan, pos) - Get Position in File
;Args: A = Channel Number
;Returns: A = Error Code ($00 = Success)
; Y,X = Position in File ($FFFF = Failure)
FTELL: JSR FSADDR ;Set File Address to Position`
TAY ;Set Channel to A
SEC ;Set Mode to TELL
LDA #'Z' ;Set Command to SEEK
BNE .FSCMD ;Execute Command and Return
;fwrite(count cban) - Write Bytes to File
;Setup: Call FSADDR with array address ;Setup: Call FSADDR with array address
;Args: A = Number of Bytes to Write ;Args: A = Number of Bytes to Write
; Y = Channel Number ; Y = Channel Number
@ -138,7 +232,7 @@ FWRITE: TAX ;Set Number of Bytes to Write
FLOAD: CMP #MABSLT ;Check Load Mode FLOAD: CMP #MABSLT ;Check Load Mode
BNE .ERR22 ;If Invalid, Return Error BNE .ERR22 ;If Invalid, Return Error
LDA #'L' ;Set Command to LOAD LDA #'L' ;Set Command to LOAD
JMP FSCMD ;Execute Command and Return BNE .FSCMD ;Execute Command and Return
.ERR22 LDA #22 .ERR22 LDA #22
RTS RTS
@ -153,16 +247,6 @@ FSAVE: ORA $0 ;If Not Drive 0
LDA #'S' ;Set Command to SAVE LDA #'S' ;Set Command to SAVE
BNE .FSCMD ;Execute Command and Return BNE .FSCMD ;Execute Command and Return
;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: JSR FSADDR ;Set Buffer Address
TAY ;Set Channel Number
LDA #'Y' ;Set Command to FERROR
BNE .FEXECX ;Execute and Return Result in A
;File System Commands ;File System Commands
;Convert Drive Letter Into Drive Number ;Convert Drive Letter Into Drive Number
@ -189,58 +273,77 @@ FSDRVN: SEC
FSINIT: LDA #'I' ;Set Command to INITFS FSINIT: LDA #'I' ;Set Command to INITFS
.FSCMD JMP FSCMD ;Execute Command and Return .FSCMD JMP FSCMD ;Execute Command and Return
;fsrecs(size) - Set File Record Size
;Args: A = Size
FSRECS: TAX ;Set Y.X to 0,A
LDY #0 ;and Fall The to FSINDX
;fsindx(&array) - Set File Record Number
;Args: Y,X = Record Number
FSINDX: PHP ;Save Status Register
PHA ;Save Accumulator
SEC ;Set Mode to FILEINDX
BCS .FSADDR ;Execute ADDRESS and Restore Accumulator
;fsaddr(&array) - Set File Buffer Address ;fsaddr(&array) - Set File Buffer Address
;Emulation: sets internal variable filebuff
;Args: Y,X = Address of String or Array ;Args: Y,X = Address of String or Array
FSADDR: PHA ;Save Accumulator FSADDR: PHP ;Save Status Register
LDA #'A' ;Set Command to ADDRESS PHA ;Save Accumulator
BNE .FSCMDA ;Execute and Restore Accumulator CLC ;Set mode to FILEADDR
.FSADDR LDA #'A' ;Set Command to ADDRESS
;fsname(&name) - Set File Name JSR FSCMD ;Execute command
;Emulation: sets internal variable filename
;Args: Y,X = Address of Filename
FSNAME: PHA ;Save Accumulator
LDA #'N' ;Set command to name
.FSCMDA JSR FSCMD ;Execute command
PLA ;Restore Accumulator PLA ;Restore Accumulator
PLP ;Restore Status Register
RTS RTS
;fscmd(cmd, args) - File I/O Command Processor ;fsbuff(&name) - Set File Buffer
;Args: A = Command Code ;Args: Y,X = Address of String
; Y,X = Arguments(s) FSBUFF: PHA ;Save Accumulator
;Returns: A = Command Code (usually) PHP ;Save Status Register
; Y = Error Code (usually) SEC ;Set Mode to FILEBUFF
; X = Result (when applicable) BCS .SETNAM ;Execute Command 'N' and Return
FSCMD: EQU $FFE6 ;run6502 File I/O Command Routine
;fsname(&name) - Set File Name
;Args: Y,X = Address of Filename
FSNAME: PHA ;Save Accumulator
PHP ;Save Status Register
CLC ;Set Mode to FILENAME
.SETNAM LDA #'N' ;Set command to name
.FSCMDA JSR FSCMD ;Execute command
PLP ;Restore Status Register
PLA ;Restore Accumulator
RTS
; Command Description Arguments Requires Returns ; Command Description Arguments Returns
; FSADDR Set Buffer Address A='A', YX=Addr YX=Addr ; FSADDR Set Buffer Address A='A',YX=Addr YX=Addr
; CLOSEDIR Close Directory A='B', Y=Chan Y=Err ; FCLOSE Close File A='C',Y=Chan,CC Y=Err
; FCLOSE Close File A='C', Y=Chan Y=Err ; CLOSEDIR Close Directory A='C',Y=Chan,CS Y=Err
; OPENDIR Open Directory A='D', YX=Name Y=Err, X=Chan ; READDIR Read Dir Entry A='D',Y=Chan (1) Y=Err
; FEOF Check for EOF A="E'. Y=Chan Y=Err ($FF=EOF) ; FEOF Check for EOF A="E',Y=Chan Y=Err ($FF=EOF)
; FFLUSH Flush Output A='F', Y=Chan Y=Err ; FFLUSH Flush Output A='F',Y=Chan Y=Err
; FGETC Get Character A='G', Y=Chan Y=Err, X=Char ; FGETC Get Character A='G',Y=Chan Y=Err, X=Char
; FGETS Get String A='H', Y=Chan # Y=Err ; FGETS Get String A='H',Y=Chan (1) Y=Err
; FSINIT Init File System A='I' ; FSINIT Init File System A='I',
; READDIR Read Dir Entry A='J', Y=Chan # Y=Err ; REMOVE Remove File A='K',YX=Name Err
; REMOVE Remove File A='K', YX=Name Y=Err ; FLOAD Load File A='L' (3) A=Err, YX=End
; FLOAD Load File A='L' * A=Err, YX=End ; RENAME Rename File A='M',YX=New (2) Y=Err
; RENAME Rename File A='M', YX=New + Y=Err ; FSNAME Set Filename A='N',YX=Name,CC
; FSNAME Set Filename A='N', YX=Name ; FOPEN Open File A='O',Y=Mode|Drive,CC (2) Y=Err, X=Chan
; FOPEN Open File A='O', Y=Mode + Y=Err ; OPENDIR Open Directory A='O',Y=Drive,CS (2) Y=Err, X=Chan
; FPUTC Put Character A='P', Y=Chan, X=Char Y=Err ; FPUTC Put Character A='P',Y=Chan,X=Char Y=Err, X=Char
; FPUTS Put String A='Q', Y=Chan # Y=Err ; FPUTS Put String A='Q',Y=Chan (1) Y=Err
; FREAD Read Bytes A='R', Y=Chan, X=Count # Y=Err, X=Count ; FREAD Read Bytes A='R',Y=Chan,X=Count (1) Y=Err, X=Count
; FSAVE Save File A='S', Y=Chan, YX=End * Y=Err ; FSAVE Save File A='S',Y=Chan,YX=End (3) Y=Err
; GETCWD Get Current Dir A='T', Y=Chan, YX=Addr Y=Err, X=Len ; GETCWD Get Current Dir A='U',Y=Drive (1) Y=Err, X=Len
; CHDIR Change Directory A='U', YX=Name Y=Err ; CHDIR Change Directory A='U',Y=Drive (2) Y=Err
; GCDRIVE Get/Set Cur Drive A='V', Y=Drive, C=Mode Y=Err, X=Result ; GETDRV Get Current Drive A='V',CC Y=Err, X=Result
; FWRITE Write Bytes A='W', Y=Chan, X=Count # Y=Err, X=Count ; CHDRV Set Current Drive A='V',Y=Drive,CS Y=Err, X=Result
; MKRMDIR Create/Remove Dir A='X', YX=Name, C=Mode Y=Err, X=Result ; FWRITE Write Bytes A='W',Y=Chan, X=Count (1) Y=Err, X=Count
; FERROR Get Last Error A='Y', Y=Chan # Y=Err ; MKDIR Create Directory A='X',Y=Drive,CC (2) Y=Err, X=Result
; RMDIR Remove Directory A='X',Y=Drive,CS (2) Y=Err, X=Result
; FERROR Get Last Error A='Y',Y=Chan (1) Y=Err
; # Requires call to FSADDR ; (1) Requires call to FSADDR
; + Requires call to FSNAMR ; (2) Requires call to FSNAME (and FSINDX for FOPEN w/MRECRD)
; * Requires calls to FSADDR and FSNAME ; (3) Requires calls to FSADDR and FSNAME

61
include/run6502/fileio.h02
View File

@ -10,7 +10,13 @@ const char disk[];
/* File Open Modes */ /* File Open Modes */
#define MREAD $00 //Open File for Read #define MREAD $00 //Open File for Read
#define MWRITE $80 //Open File for Write #define MWRITE $40 //Open File for Write
#define MAPPND $80 //Open File for Append
#define MRECRD $C0 //Open File to Read/Write Records
/* File Open Types */
#define TTEXT $00 //Text File
#define TBNRY $20 //Binary File
/* File Load Modes */ /* File Load Modes */
#define MRELCT $00 //Relocate (Load at Specified Address) #define MRELCT $00 //Relocate (Load at Specified Address)
@ -42,12 +48,13 @@ char ferror();
/* File Flush * /* File Flush *
* Flush File Output Buffer * * Flush File Output Buffer *
* Args: char f - File Channel * * Args: char f - File Channel *
* Returns: char e - Error (0=None) */ * Returns: char status (0=Succes) *
* char e - Error (0=None) */
char fflush(); char fflush();
/* File Get Character * /* File Get Character *
* Args: char f - File Channel * * Args: char f - File Channel *
* Read Character from Fie * * Read Character from File *
* Returns: char c - Character * * Returns: char c - Character *
* char e - Error (0=None) */ * char e - Error (0=None) */
char fgetc(); char fgetc();
@ -61,6 +68,13 @@ char fgetc();
* char e - Error (0=None) */ * char e - Error (0=None) */
char fgets(); char fgets();
/* File Get Word *
* Args: char f - File Channel *
* Read Integer from File *
* Returns: char e - Error (0=None) *
* int w - Word */
char fgetc();
/* File Load * /* File Load *
* Loads File into Memory * * Loads File into Memory *
* Setup: fsname(&filename) * * Setup: fsname(&filename) *
@ -78,11 +92,12 @@ char fload();
char e - Error (0=None) */ char e - Error (0=None) */
char fopen(); char fopen();
/* File Put Character * /* File Put Character *
* Write Character to File * * Write Character to File *
* Args: char c - Character * * Args: char c - Character *
* char f - File Channel * * char f - File Channel *
* Returns: char e - Error (0=None) */ * Returns: char w - Character Written *
* char e - Error (0=None) */
char fputc(); char fputc();
/* File Put Line * /* File Put Line *
@ -103,6 +118,15 @@ char fputln();
* char e - Error (0=None) */ * char e - Error (0=None) */
char fputs(); char fputs();
/* File Put Word *
* Writes up to 128 characters *
* of string to file *
* Args: char f - File Channel *
* int w - Word to Write *
* Returns: char e - Error (255=EOF) *
* int r - Word Written */
char fputw();
/* File Read * /* File Read *
* Read up to n bytes from file * * Read up to n bytes from file *
* Setup: fsaddr(&array) * * Setup: fsaddr(&array) *
@ -135,6 +159,13 @@ char fsave();
* char res - Result */ * char res - Result */
char fscmd(); char fscmd();
/* File Seek *
* Move to Position in File *
* Args: char f - File Channel *
* int p - Position in File *
* Returns: char e - Error (0=None) */
char fseek();
/* File System Init * /* File System Init *
* Initialize File System */ * Initialize File System */
char fsinit(); char fsinit();
@ -144,6 +175,14 @@ char fsinit();
* Args: int &name - Filename */ * Args: int &name - Filename */
char fsname(); char fsname();
/* File Tell *
* Get Position in File *
* Args: char f - File Channel *
* Returns: char e - Error (0=None) *
* int r - Position *
* $FFFF = Failure */
char ftell();
/* File Write * /* File Write *
* Write n nytes to file * * Write n nytes to file *
* Setup: fsaddr(&array) * * Setup: fsaddr(&array) *
@ -152,3 +191,9 @@ char fsinit();
* Returns: char n - Bytes Written * * Returns: char n - Bytes Written *
* char e - Error (0=None) */ * char e - Error (0=None) */
char fwrite(); char fwrite();
/* Rewind file *
* Move to Beginning of File *
* Args: char f - File Channel *
* Returns: char e - Error (0=None) */
char rewind();

25
include/run6502/filesys.a02
View File

@ -9,23 +9,23 @@
;Args: A = Drive Identifier ;Args: A = Drive Identifier
; Y,X = Address of Directory Name String ; Y,X = Address of Directory Name String
;Returns: A = Error Code (0 = None) ;Returns: A = Error Code (0 = None)
REMOVE: JSR FSDRVN ;Validate Drive Number REMOVE: JSR FSNAME ;Set File Buffer to New Name
BCS .RETURN ;If Invalid Return Error TAY ;Set Drive ID
LDA #'K' ;Set Command to KILL (REMOVE) LDA #'K' ;Set Command to KILL (REMOVE)
.FSCMDX JSR FSCMD ;Execute Command .FEXECY JSR FSCMD ;Execute Command
TXA ;Return Result TYA ;Return Errno
RTS RTS
;rename(drv, &filnam) - Rename File to filnam ;rename(drv, &new) - Rename File to filnam
;Setup: Call FSNAME with Address of Old Name ;Setup: Call FSNAME with Address of Old Name
;Args: A = Drive Identifier ;Args: A = Drive Identifier
; Y,X = Address of Directory Name String ; Y,X = Address of New Name
;Returns: A = Error Code (0 = None) ;Returns: A = Error Code (0 = None)
RENAME: JSR FSDRVN ;Convert Drive Letter to Drive Number RENAME: JSR FSBUFF ;Set File Buffer to New Name
BCS .RETURN ;If Invalid Return Error TAY ;Set Drive ID
LDA #'M' ;Set Command to KILL (REMOVE) LDA #'M' ;Set Command to KILL (REMOVE)
BNE .FSCMDX ;Execute Command and Return Result BNE .FEXECY ;Execute Command and Return Errno
;inidrv(drv) - Initialize Disk Drive ;inidrv(drv) - Initialize Disk Drive
;Args: A = Drive Identifier ;Args: A = Drive Identifier
;Returns: A = Error Code (0 = None) ;Returns: A = Error Code (0 = None)
@ -34,14 +34,13 @@ INIDRV: LDA #$FF ;Return Error - Not Implemented
;chdrv() - Set Current Drive/Disk ;chdrv() - Set Current Drive/Disk
;Args: A = Drive# | Disk# ;Args: A = Drive# | Disk#
;Returns: A = Result (0 - Success) ;Returns: Y = Error Code (0 = None)
; Y = Error Code (0 = None)
CHDRV: JSR FSDRVN ;Validate Drive Number CHDRV: JSR FSDRVN ;Validate Drive Number
BCS .RETURN ;If Invalid Return Error BCS .RETURN ;If Invalid Return Error
TAY ;Set Drive Number TAY ;Set Drive Number
SEC ;Set Mode to Change SEC ;Set Mode to Change
LDA #'V' ;Set Command to DRIVE LDA #'V' ;Set Command to DRIVE
BNE .FSCMDX ;Execute Command and Return Result BNE .FEXECY ;Execute Command and Return Errno
;getdrv() - Get Current Drive/Disk ;getdrv() - Get Current Drive/Disk
;Returns: A = Drive# | Disk# (0=Failure) ;Returns: A = Drive# | Disk# (0=Failure)

9
include/run6502/filesys.h02
View File

@ -22,9 +22,8 @@ char getdrv();
char remove(); char remove();
/* Rename File * /* Rename File *
* Setup: fsname(&o) - Old File Name * * Setup: fsname(&old) - Old File Name *
* Args: char d - Drive ID | Disk # * * Args: char drv - Drive ID | Disk # *
* int &n - New File Name * * int &new - New File Name *
* Returns: char r - Result, 0=Success * * Returns: char e - Error, 0=None */
* char e - Error, 0=None */
char rename(); char rename();

16
test/dirtest.c02
View File

@ -13,7 +13,6 @@
#include <fileio.h02> #include <fileio.h02>
#include <direct.h02> #include <direct.h02>
const char dir = "TEMPDIR"; const char dir = "TEMPDIR";
char d, err, i, n, r; char d, err, i, n, r;
char m[128], s[128]; char m[128], s[128];
@ -30,29 +29,30 @@ void prtcwd() {
putln(&s); putln(&s);
} }
void chkerr() { void chkerr(aa) {
if (err) { if (err) {
printf(err, "ERROR %d - "); printf(err, "ERROR %d - ");
ferror(0, m); putln(m); ferror(0, m); putln(m);
if (aa and aa<>err) goto exit;
} }
else if (r) putln("FAILED"); else if (r) putln("FAILED");
else putln("SUCCESS"); else putln("SUCCESS");
} }
void chgdir(aa, yy, xx) { void chgdir(aa, yy, xx) {
setdst(); printf("CHDIR '%s': "); setdst(); printf("CHDIR(0,\"%s\"): ");
n, err = chdir(0,yy,xx); chkerr(); err = chdir(0,yy,xx); chkerr(0);
prtcwd(); prtcwd();
} }
void mrdir() { void mrdir() {
setdst(&dir); printf("MKDIR(\"%s\"): "); setdst(&dir); printf("MKDIR(0, \"%s\"): ");
r,err = mkdir(&dir); chkerr(); err = mkdir(0, &dir); chkerr(17);
chgdir(&dir); chgdir(&dir);
anykey(); anykey();
chgdir(".."); chgdir(updir);
setdst(&dir); printf("RMDIR(\"%s\"): "); setdst(&dir); printf("RMDIR(\"%s\"): ");
r,err = rmdir(&dir); chkerr(); err = rmdir(0, &dir); chkerr(0);
} }
error: error:

53
test/diskdir.c02
View File

@ -13,41 +13,60 @@
#include <string.h02> #include <string.h02>
#include <fileio.h02> #include <fileio.h02>
#include <dirent.h02> #include <dirent.h02>
#include <time.h02>
struct dirent entry; struct dirent entry;
struct dirhdr header; struct dirhdr header;
struct tm time;
const char dir = ""; const char drv = 0; //Drive ID (Current Drive)
char dp; //Directory File Pointer const char dir = ""; //Directory Name (Current Directory)
char err; //Error Code char dp; //Directory File Pointer
char c; //Character read from Struct char err; //Error Code
char i; //Loop Index Variable char c; //Character read from Struct
char n; //Number of Characters Read char i; //Loop Index Variable
char m[128], s[128]; char n; //Number of Characters Read
char wrdlo,wrdhi; char m[128], s[128], t[128]; //String Buffers
int dircnt,filcnt; //Directories and File Count
char aa,ff,xx,yy,zz; //Function Arguments char aa,ff,xx,yy,zz; //Function Arguments
/* Print Entry Time Stamp */
void prtts() {setdst(t); asctm(#FLONG|#FAMPM, entry.time); puts(t);}
/* Print Directory Entry */
void prtent() {
if (entry.attr.subdir) dircnt++; else filcnt++;
if (@entry.time > 1) {prtts(); puts(" ");}
for (i=0; i<@entry.attr; i++) {if (entry.attr[i]) putc(attrd[i]); else putspc();}
setdst(entry.size); printf(" %j "); putln(entry.name);
}
/* Print Directory Summary */
void prtsum() {
setdst(filcnt); printf(" %j FILES(S)%n");
setdst(dircnt); printf(" %j DIR(S)%n");
}
main: main:
filcnt = &0; dircnt = &0;
setdst(dir); printf("OPENING DIRECTORY '%s'%n"); setdst(dir); printf("OPENING DIRECTORY '%s'%n");
dp, err = opndir(0, dir); dp, err = opndir(drv, dir); if (err) goto error;
if (err) goto error;
printf(dp, "CHANNEL=%d%n"); printf(dp, "CHANNEL=%d%n");
putln("READING HEADER"); putln("READING HEADER");
n, err = rdhdr(dp, header); n, err = rdhdr(dp, header); if (err) goto error;
if (err) goto error; if (n) putln(header.name); else putln("NO HEADER");
if (n) putln(header.name);
else putln("NO HEADER");
putln("READING ENTRIES"); putln("READING ENTRIES");
do { do {
n, err = rddir(dp, entry); n, err = rddir(dp, entry);
if (n) putln(entry.name); if (n) prtent();
} while (n); } while (n);
if (err) goto error; if (err) goto error;
putln("END OF DIRECTORY"); prtsum();
//putln("END OF DIRECTORY");
clsdir(dp); err = clsdir(dp); if (err) goto err;
goto exit; goto exit;
error: error:

38
test/filetest.c02
View File

@ -48,7 +48,7 @@ main:
sfile(0, &savfil); sfile(0, &savfil);
fp = opnfil(#MREAD, &txtfil); fp = opnfil(#MREAD, &txtfil);
else printf(n, " READ $%x CHARACTERS%n"); else printf(n, " READ %d CHARACTERS%n");
if (fp) { if (fp) {
rstrng(fp); rstrng(fp);
rbnry(fp); rbnry(fp);
@ -68,13 +68,13 @@ main:
void chkerr() { void chkerr() {
if (err) { if (err) {
printf(err, " ERROR $%x%n"); printf(err, " ERROR %d%n");
goto exit; goto exit;
} }
} }
void flshfl(aa) { void flshfl(aa) {
printf(aa, "FFLUSH($%x): "); printf(aa, "FFLUSH(%d): ");
zz, err = fflush(aa); chkerr(); zz, err = fflush(aa); chkerr();
puts("FLUSHED, "); anykey(0); puts("FLUSHED, "); anykey(0);
} }
@ -82,34 +82,34 @@ void flshfl(aa) {
void opnfil(aa,yy,xx) { void opnfil(aa,yy,xx) {
setdst();printf("FOPEN($%x,\"%s\"): "); setdst();printf("FOPEN($%x,\"%s\"): ");
zz, err = fopen(aa,yy,xx); chkerr(); zz, err = fopen(aa,yy,xx); chkerr();
printf(zz,"CHANNEL=$%x%n"); printf(zz,"CHANNEL=%d%n");
return zz; return zz;
} }
void prtpos(aa) { void prtpos(aa) {
printf("FTELL($%x): "); printf("FTELL(%d): ");
err, filpos = ftell(aa); chkerr(); err, filpos = ftell(aa); chkerr();
setdst(filpos); printf("POSITION=$%w%n"); setdst(filpos); printf("POSITION=$%w%n");
return aa; return aa;
} }
void posfil(aa) { void posfil(aa) {
setdst(filpos); printf(aa, "FSEEK($%x,$%w): "); setdst(filpos); printf(aa, "FSEEK(%d,$%w): ");
err = fseek(aa, filpos); chkerr(); err = fseek(aa, filpos); chkerr();
putln("POSITIONED"); putln("POSITIONED");
} }
void rwdfil(aa) { void rwdfil(aa) {
printf(aa, "REWIND($%x): "); printf(aa, "REWIND(%d): ");
err = rewind(aa, filpos); chkerr(); err = rewind(aa, filpos); chkerr();
putln("REWOUND"); putln("REWOUND");
} }
void wbnry(aa) { void wbnry(aa) {
setdst(&bnry); printf("FWRITE($%x,\"%s\"): "); setdst(&bnry); printf("FWRITE(%d,\"%s\"): ");
fsaddr(&bnry); fsaddr(&bnry);
n, err = fwrite(@bnry, aa); chkerr(); n, err = fwrite(@bnry, aa); chkerr();
printf(n, "WROTE $%x BYTES%n"); printf(n, "WROTE %d BYTES%n");
} }
void wchars(aa) { void wchars(aa) {
@ -119,20 +119,20 @@ void wchars(aa) {
} }
void wstrng(aa) { void wstrng(aa) {
setdst(str1); printf(aa, "FPUTS($%x,\"%s\"): "); setdst(str1); printf(aa, "FPUTS(%d,\"%s\"): ");
n, err = fputs(aa, str1); chkerr(); n, err = fputs(aa, str1); chkerr();
printf(n, "WROTE $%x CHARACTERS%n"); printf(n, "WROTE %d CHARACTERS%n");
setdst(str2); printf(aa, "FPUTLN(%s,\"%s\"): "); setdst(str2); printf(aa, "FPUTLN(%s,\"%s\"): ");
n, err = fputln(aa, str2); chkerr(); n, err = fputln(aa, str2); chkerr();
printf(n, "WROTE $%x CHARACTERS%n"); printf(n, "WROTE %d CHARACTERS%n");
} }
void sfile(aa, yy, xx) { void sfile(aa, yy, xx) {
setdst(); printf("FSNAME(\"%s\"); "); setdst(); printf("FSNAME(\"%s\"); ");
fsname(.,yy,xx); //Set Filename fsname(.,yy,xx); //Set Filename
setdst(&save); printf("FSADDR($%w); "); setdst(&save); printf("FSADDR($%w); ");
fsaddr(&save); //Set Start Address fsaddr(&save); //Set Start Address
setdst(&bnry); printf(aa, "FSAVE($%x,$%w): "); setdst(&bnry); printf(aa, "FSAVE(%d,$%w): ");
err, addr = fsave(aa, &bnry); chkerr(); err, addr = fsave(aa, &bnry); chkerr();
putln("FILE SAVED"); putln("FILE SAVED");
} }
@ -140,9 +140,9 @@ void sfile(aa, yy, xx) {
void rbnry(aa) { void rbnry(aa) {
setdst(&r); printf("FSADDR($%w); "); setdst(&r); printf("FSADDR($%w); ");
fsaddr(&r); fsaddr(&r);
printf(@bnry, "FREAD($%x,"); printf(aa,"$%x): "); printf(@bnry, "FREAD(%d,"); printf(aa,"%d): ");
n, err = fread(@bnry, aa); chkerr(); n, err = fread(@bnry, aa); chkerr();
puts(&r); printf(n, ", READ $%x BYTES%n"); puts(&r); printf(n, ", READ %d BYTES%n");
} }
void lfile(aa, yy, xx) { void lfile(aa, yy, xx) {
@ -150,7 +150,7 @@ void lfile(aa, yy, xx) {
fsname(.,yy,xx); //Set Filename fsname(.,yy,xx); //Set Filename
memclr(255, &l); printf("FSADDR($%w); "); memclr(255, &l); printf("FSADDR($%w); ");
fsaddr(&l); //Set Load Address fsaddr(&l); //Set Load Address
printf(aa, "FLOAD($%x): "); printf(aa, "FLOAD(%d): ");
err, addr = fload(aa); chkerr(); err, addr = fload(aa); chkerr();
setdst(addr); printf("END=$%w, "); putln(&l); setdst(addr); printf("END=$%w, "); putln(&l);
} }
@ -166,13 +166,13 @@ void rchars(aa) {
} }
void rstrng(aa) { void rstrng(aa) {
printf("FGETS($%x, &S): "); printf("FGETS(%d, &S): ");
n, err = fgets(aa, &s); chkerr(); n, err = fgets(aa, &s); chkerr();
puts(&s); printf(n, " READ $%x CHARACTERS%n"); puts(&s); printf(n, " READ %d CHARACTERS%n");
} }
void clsfil(aa) { void clsfil(aa) {
printf(aa, "FCLOSE($%x): "); printf(aa, "FCLOSE(%d): ");
err = fclose(aa); chkerr(); err = fclose(aa); chkerr();
putln("CLOSED"); putln("CLOSED");
} }

9
test/fstest.c02
View File

@ -55,22 +55,21 @@ void newfil() {
} }
void renfil() { void renfil() {
puts("RENAMING "); puts(oldnam); puts("RENAMING "); puts(oldnam); puts(" TO "); puts(newnam);
puts(" TO "); puts(newnam);
fsname(oldnam); fsname(oldnam);
r, err = rename(newnam); chkerr(r); err = rename(0, newnam); chkerr(r);
} }
void delfil() { void delfil() {
puts("REMOVING "); puts(newnam); puts("REMOVING "); puts(newnam);
r, err = remove(newnam); chkerr(r); err = remove(0, newnam); chkerr(r);
} }
void chgdrv() { void chgdrv() {
for (i=0; i<#DRIVES; i++) { for (i=0; i<#DRIVES; i++) {
d = drive[i]; d = drive[i];
printf(d, "CHDRV('%c') "); printf(d, "CHDRV('%c') ");
r, err = chdrv(d); chkerr(r); err = chdrv(d); chkerr(r);
} }
} }