; file I/O routines. (partially implemented) %import textio %import syslib diskio { %option no_symbol_prefixing, ignore_unused sub directory() -> bool { ; -- Prints the directory contents to the screen. Returns success. %ir {{ loadm.w r65534,diskio.load.filenameptr loadm.w r65535,diskio.load.address_override syscall 48 (): r0.b returnr.b r0 }} } sub list_filenames(uword pattern_ptr, uword filenames_buffer, uword filenames_buf_size) -> ubyte { ; -- fill the provided buffer with the names of the files on the disk (until buffer is full). ; Files in the buffer are separated by a 0 byte. You can provide an optional pattern to match against. ; After the last filename one additional 0 byte is placed to indicate the end of the list. ; Returns number of files (it skips 'dir' entries i.e. subdirectories). ; Also sets carry on exit: Carry clear = all files returned, Carry set = directory has more files that didn't fit in the buffer. txt.print("@TODO: list_filenames\n") sys.clear_carry() return 0 } ; ----- iterative file lister functions (uses the read io channel) ----- sub lf_start_list(uword pattern_ptr) -> bool { ; -- start an iterative file listing with optional pattern matching. ; note: only a single iteration loop can be active at a time! txt.print("@TODO: lf_start_list\n") return false } sub lf_next_entry() -> bool { ; -- retrieve the next entry from an iterative file listing session. ; results will be found in list_blocks, list_filename, and list_filetype. ; if it returns false though, there are no more entries (or an error occurred). txt.print("@TODO: lf_next_entry\n") return false } sub lf_end_list() { txt.print("@TODO: lf_end_list\n") } ; ----- iterative file loader functions (uses the input io channel) ----- sub f_open(uword filenameptr) -> bool { ; -- open a file for iterative reading with f_read ; note: only a single iteration loop can be active at a time! ; Returns true if the file is successfully opened and readable. ; No need to check status(), unlike f_open_w() ! ; NOTE: the default input isn't yet set to this logical file, you must use reset_read_channel() to do this, ; if you're going to read from it yourself instead of using f_read()! txt.print("@TODO: f_open\n") return false } sub f_read(uword bufferpointer, uword num_bytes) -> uword { ; -- read from the currently open file, up to the given number of bytes. ; returns the actual number of bytes read. (checks for End-of-file and error conditions) txt.print("@TODO: f_read\n") return 0 } sub f_read_all(uword bufferpointer) -> uword { ; -- read the full contents of the file, returns number of bytes read. ; It is assumed the file size is less than 64 K. txt.print("@TODO: f_read_all\n") return 0 } sub f_readline(uword bufptr) -> ubyte { ; Routine to read text lines from a text file. Lines must be less than 255 characters. ; Reads characters from the input file UNTIL a newline or return character (or EOF). ; The line read will be 0-terminated in the buffer (and not contain the end of line character). ; The length of the line is returned in Y. Note that an empty line is okay and is length 0! ; This routine is not able here to return the status as well in a secondary return value, so you have to do that yourself. txt.print("@TODO: f_readline\n") return 0 } sub f_close() { ; -- end an iterative file loading session (close channels). txt.print("@TODO: f_close\n") } ; ----- iterative file writing functions (uses write io channel) ----- sub f_open_w(uword filenameptr) -> bool { ; -- open a file for iterative writing with f_write ; WARNING: returns true if the open command was received by the device, ; but this can still mean the file wasn't successfully opened for writing! ; (for example, if it already exists). This is different than f_open()! ; To be 100% sure if this call was successful, you have to use status() ; and check the drive's status message! txt.print("@TODO: f_open_w\n") return false } sub f_write(uword bufferpointer, uword num_bytes) -> bool { ; -- write the given number of bytes to the currently open file ; you can call this multiple times to append more data txt.print("@TODO: f_write\n") return false } sub f_close_w() { ; -- end an iterative file writing session (close channels). txt.print("@TODO: f_close_w\n") } ; ---- other functions ---- sub chdir(str path) { ; -- change current directory. txt.print("@TODO: chdir\n") } sub mkdir(str name) { ; -- make a new subdirectory. txt.print("@TODO: mkdir\n") } sub rmdir(str name) { ; -- remove a subdirectory. txt.print("@TODO: rmdir\n") } sub curdir() -> uword { ; return current directory name or 0 if error txt.print("@TODO: curdir\n") return 0 } sub status() -> str { ; -- retrieve the disk drive's current status message return "unknown" } sub status_code() -> ubyte { ; -- return status code instead of whole CBM-DOS status string. (in this case always 255, which means 'unable to return sensible value') return 255 } sub save(uword filenameptr, uword start_address, uword savesize) -> bool { %ir {{ load.b r65532,0 loadm.w r65533,diskio.save.filenameptr loadm.w r65534,diskio.save.start_address loadm.w r65535,diskio.save.savesize syscall 45 (r65532.b, r65533.w, r65534.w, r65535.w): r0.b returnr.b r0 }} } ; like save() but omits the 2 byte prg header. sub save_raw(uword filenameptr, uword startaddress, uword savesize) -> bool { %ir {{ load.b r65532,1 loadm.w r65533,diskio.save.filenameptr loadm.w r65534,diskio.save.start_address loadm.w r65535,diskio.save.savesize syscall 45 (r65532.b, r65533.w, r65534.w, r65535.w): r0.b returnr.b r0 }} } ; Use kernal LOAD routine to load the given program file in memory. ; This is similar to Basic's LOAD "filename",drive / LOAD "filename",drive,1 ; If you don't give an address_override, the location in memory is taken from the 2-byte file header. ; If you specify a custom address_override, the first 2 bytes in the file are ignored ; and the rest is loaded at the given location in memory. ; Returns the end load address+1 if successful or 0 if a load error occurred. sub load(uword filenameptr, uword address_override) -> uword { %ir {{ loadm.w r65534,diskio.load.filenameptr loadm.w r65535,diskio.load.address_override syscall 43 (r65534.w, r65535.w): r0.w returnr.w r0 }} } ; Identical to load(), but DOES INCLUDE the first 2 bytes in the file. ; No program header is assumed in the file. Everything is loaded. ; See comments on load() for more details. sub load_raw(uword filenameptr, uword start_address) -> uword { %ir {{ loadm.w r65534,diskio.load_raw.filenameptr loadm.w r65535,diskio.load_raw.start_address syscall 44 (r65534.w, r65535.w): r0.w returnr.w r0 }} } sub delete(uword filenameptr) { ; -- delete a file on the drive %ir {{ loadm.w r65535,diskio.delete.filenameptr syscall 46 (r65535.w) }} } sub rename(uword oldfileptr, uword newfileptr) { ; -- rename a file on the drive %ir {{ loadm.w r65534,diskio.rename.oldfileptr loadm.w r65535,diskio.rename.newfileptr syscall 47 (r65534.w, r65535.w) }} } }