diff --git a/src/mli.a b/src/mli.a index 6dec565..c3e7aa9 100755 --- a/src/mli.a +++ b/src/mli.a @@ -3,9 +3,9 @@ CMD_CREATE = $C0 ; create new file CMD_DESTROY = $C1 ; delete a file CMD_GETFILEINFO = $C4 ; get file (or volume) info CMD_ONLINE = $C5 ; check online volume(s) -CMD_SETPREFIX = $C6 ; change default pathname prefix +;CMD_SETPREFIX = $C6 ; change default pathname prefix CMD_OPEN = $C8 ; open a file -CMD_NEWLINE = $C9 ; set line-by-line read mode +;CMD_NEWLINE = $C9 ; set line-by-line read mode CMD_READ = $CA ; read an open file CMD_WRITE = $CB ; write to an open file CMD_CLOSE = $CC ; close an open file @@ -17,9 +17,9 @@ PC_CREATE = $07 PC_DESTROY = $01 PC_GETFILEINFO = $0A PC_ONLINE = $02 -PC_SETPREFIX = $01 +;PC_SETPREFIX = $01 PC_OPEN = $03 -PC_NEWLINE = $03 +;PC_NEWLINE = $03 PC_READ = $04 PC_WRITE = $04 PC_CLOSE = $01 @@ -229,33 +229,6 @@ OpenFile rts } -;------------------------------- -; set line-by-line mode via ProDOS MLI -; -; in: A = file reference number -; out: if C set, set failed and A contains error code -; if S clear, set succeeded and A contains the same -; file reference number that was passed in -;------------------------------- -lbl_mask = $7F -lbl_cr = $0D - -!zone { -SetLineByLine - sta mliparam+1 ; store file reference number - lda #lbl_mask ; accept high bit set or clear - sta mliparam+2 - lda #lbl_cr ; carriage return character - sta mliparam+3 - lda #CMD_NEWLINE ; MLI 'newline' command to set read mode - ldy #PC_NEWLINE ; number of parameters for 'newline' command - jsr mli - bcs .setlinebylin - lda mliparam+1 ; if no error, return file reference number -.setlinebylin - rts -} - ;------------------------------- ; read an open file via ProDOS MLI ; @@ -637,20 +610,6 @@ DeleteRAMFile } -;------------------------------- -; change current directory (set prefix) -; using ProDOS MLI -; in: caller has filled @mliparam -; with address of pathname -; out: if error, C set and A contains error code -; if success, C clear -;------------------------------- -SetPrefix - lda #CMD_SETPREFIX - ldy #PC_SETPREFIX - jsr mli - rts - ;------------------------------- ; get volume name of disk in specific slot+drive ; in: A = unit number (DSSS0000)