mirror of
https://github.com/a2stuff/prodos-drivers.git
synced 2024-12-30 13:30:40 +00:00
Add SELECTOR.SYSTEM capturing the behavior of ProDOS 1.x. Fixes #5
Mostly just for historical interest.
This commit is contained in:
Joshua Bell
parent
a42dec7f3f
commit
1260999b6c
2
Makefile
2
Makefile
@ -1,4 +1,4 @@
|
||||
targets := ns.clock cricket bbb ram.drv quit
|
||||
targets := ns.clock cricket bbb selector ram.drv quit
|
||||
|
||||
.PHONY: all $(targets)
|
||||
|
||||
|
||||
@ -7,17 +7,17 @@
|
||||
The ProDOS operating system for the Apple II executes the first `.SYSTEM` file found in the boot directory on startup. A common pattern is to have the boot directory contain several "driver" files that customize ProDOS by installing drivers for hardware or modify specific parts of the operating system. These include:
|
||||
|
||||
* Real-time Clock drivers (e.g. No-Slot Clock, Cricket!, AE DClock, etc)
|
||||
* In ProDOS 1.x, 2.0 and 2.4 the Thunderclock driver is built-in.
|
||||
* In ProDOS 1.x, 2.0 and 2.4 the Thunderclock driver is built-in.
|
||||
* RAM Disk drivers (e.g. RamWorks)
|
||||
* In ProDOS 1.x, 2.0 and 2.4 only a 64K driver for /RAM is built-in.
|
||||
* Quit dispatcher/selector (`BYE` routines)
|
||||
* In ProDOS 1.0 through 1.7 a simple selector prompting `ENTER PREFIX (PRESS "RETURN" TO ACCEPT)` asked for a path.
|
||||
* In ProDOS 1.0 through 1.7 a simple [selector](selector) prompting `ENTER PREFIX (PRESS "RETURN" TO ACCEPT)` asked for a path.
|
||||
* In ProDOS 1.9 and 2.0 [Bird's Better Bye](bbb) is built-in.
|
||||
* In ProDOS 2.4 [Bitsy Bye](https://prodos8.com/bitsy-bye/) is built-in.
|
||||
|
||||
Early versions of these drivers would often invoke a specific file on completion, sometimes user-configurable. The best versions of these drivers simply execute the following `.SYSTEM` file, although this is non-trivial code and often did not work with network drives.
|
||||
|
||||
This repository collects several drivers and uses common code to chain to the next `.SYSTEM` file, suporting network drives.
|
||||
This repository collects several drivers and uses common code to chain to the next `.SYSTEM` file, suporting network drives.
|
||||
|
||||
## How do you use these?
|
||||
|
||||
|
||||
@ -55,6 +55,8 @@ TABV := $FB5B
|
||||
SETPWRC := $FB6F
|
||||
BELL1 := $FBDD
|
||||
HOME := $FC58
|
||||
CLREOL := $FC9C
|
||||
RDKEY := $FD0C
|
||||
GETLN := $FD6A ; with prompt character
|
||||
GETLN2 := $FD6F ; no prompt character
|
||||
CROUT := $FD8E
|
||||
@ -64,6 +66,7 @@ SETINV := $FE80
|
||||
SETNORM := $FE84
|
||||
SETKBD := $FE89
|
||||
SETVID := $FE93
|
||||
BELL := $FF3A
|
||||
|
||||
;;; ============================================================
|
||||
;;; Well-known RAM locations
|
||||
|
||||
@ -2,12 +2,16 @@
|
||||
;;; ASCII Code Points (also used as key codes)
|
||||
;;; ============================================================
|
||||
|
||||
ASCII_TAB := $09 ; tab
|
||||
ASCII_DOWN := $0A ; down arrow
|
||||
ASCII_UP := $0B ; up arrow
|
||||
ASCII_CR := $0D ; carriage return
|
||||
ASCII_RIGHT := $15 ; right arrow
|
||||
ASCII_SYN := $16 ; scroll text window up
|
||||
ASCII_ETB := $17 ; scroll text window down
|
||||
ASCII_EM := $19 ; move cursor to upper left
|
||||
ASCII_ESCAPE := $1B ; escape
|
||||
ASCII_BELL = $07 ; bell
|
||||
ASCII_LEFT = $08 ; left arrow
|
||||
ASCII_TAB = $09 ; tab
|
||||
ASCII_DOWN = $0A ; down arrow
|
||||
ASCII_UP = $0B ; up arrow
|
||||
ASCII_CR = $0D ; carriage return
|
||||
ASCII_RIGHT = $15 ; right arrow
|
||||
ASCII_SYN = $16 ; scroll text window up
|
||||
ASCII_ETB = $17 ; scroll text window down
|
||||
ASCII_CLEAR = $18 ; clear
|
||||
ASCII_EM = $19 ; move cursor to upper left
|
||||
ASCII_ESCAPE = $1B ; escape
|
||||
ASCII_DELETE = $7F ; delete
|
||||
|
||||
@ -117,6 +117,7 @@ ST_VOLUME_DIRECTORY = $0F
|
||||
;;; Errors
|
||||
;;; ============================================================
|
||||
|
||||
ERR_IO_ERROR = $27
|
||||
ERR_DEVICE_NOT_CONNECTED = $28
|
||||
ERR_WRITE_PROTECTED = $2B
|
||||
ERR_INVALID_PATHNAME = $40
|
||||
|
||||
24
package.sh
24
package.sh
@ -11,22 +11,24 @@ VOLNAME="drivers"
|
||||
|
||||
rm -f "$IMGFILE"
|
||||
cadius CREATEVOLUME "$IMGFILE" "$VOLNAME" 140KB --no-case-bits --quiet
|
||||
cadius CREATEFOLDER "$IMGFILE" "/$VOLNAME/CRICKET.UTIL" --no-case-bits --quiet
|
||||
|
||||
add_file () {
|
||||
cp "$1" "$PACKDIR/$2"
|
||||
cadius ADDFILE "$IMGFILE" "/$VOLNAME" "$PACKDIR/$2" --no-case-bits --quiet
|
||||
cadius ADDFILE "$IMGFILE" "$3" "$PACKDIR/$2" --no-case-bits --quiet
|
||||
}
|
||||
|
||||
add_file "bbb/out/buhbye.system.SYS" "buhbye.system#FF0000"
|
||||
add_file "bbb/out/bye.system.SYS" "bye.system#FF0000"
|
||||
add_file "cricket/out/cricket.system.SYS" "cricket.system#FF0000"
|
||||
add_file "cricket/out/date.BIN" "date#062000"
|
||||
add_file "cricket/out/set.date.BIN" "set.date#062000"
|
||||
add_file "cricket/out/set.time.BIN" "set.time#062000"
|
||||
add_file "cricket/out/test.BIN" "test#062000"
|
||||
add_file "ns.clock/out/ns.clock.system.SYS" "ns.clock.system#FF0000"
|
||||
add_file "quit/out/quit.system.SYS" "quit.system#FF0000"
|
||||
add_file "ram.drv/out/ram.drv.system.SYS" "ram.drv.system#FF0000"
|
||||
add_file "bbb/out/buhbye.system.SYS" "buhbye.system#FF0000" "/$VOLNAME"
|
||||
add_file "bbb/out/bye.system.SYS" "bye.system#FF0000" "/$VOLNAME"
|
||||
add_file "selector/out/selector.system.SYS" "selector.system#FF0000" "/$VOLNAME"
|
||||
add_file "cricket/out/cricket.system.SYS" "cricket.system#FF0000" "/$VOLNAME"
|
||||
add_file "cricket/out/date.BIN" "date#062000" "/$VOLNAME/CRICKET.UTIL"
|
||||
add_file "cricket/out/set.date.BIN" "set.date#062000" "/$VOLNAME/CRICKET.UTIL"
|
||||
add_file "cricket/out/set.time.BIN" "set.time#062000" "/$VOLNAME/CRICKET.UTIL"
|
||||
add_file "cricket/out/test.BIN" "test#062000" "/$VOLNAME/CRICKET.UTIL"
|
||||
add_file "ns.clock/out/ns.clock.system.SYS" "ns.clock.system#FF0000" "/$VOLNAME"
|
||||
add_file "quit/out/quit.system.SYS" "quit.system#FF0000" "/$VOLNAME"
|
||||
add_file "ram.drv/out/ram.drv.system.SYS" "ram.drv.system#FF0000" "/$VOLNAME"
|
||||
|
||||
rm -r "$PACKDIR"
|
||||
|
||||
|
||||
34
selector/Makefile
Normal file
34
selector/Makefile
Normal file
@ -0,0 +1,34 @@
|
||||
|
||||
CAFLAGS = --target apple2enh --list-bytes 0
|
||||
LDFLAGS = --config apple2-asm.cfg
|
||||
|
||||
OUTDIR = out
|
||||
|
||||
HEADERS = $(wildcard *.inc) $(wildcard ../inc/*.inc)
|
||||
|
||||
TARGETS = \
|
||||
$(OUTDIR)/selector.system.SYS
|
||||
|
||||
# For timestamps
|
||||
MM = $(shell date "+%-m")
|
||||
DD = $(shell date "+%-d")
|
||||
YY = $(shell date "+%-y")
|
||||
DEFINES = -D DD=$(DD) -D MM=$(MM) -D YY=$(YY)
|
||||
|
||||
.PHONY: clean all
|
||||
all: $(OUTDIR) $(TARGETS)
|
||||
|
||||
$(OUTDIR):
|
||||
mkdir -p $(OUTDIR)
|
||||
|
||||
clean:
|
||||
rm -f $(OUTDIR)/*.o
|
||||
rm -f $(OUTDIR)/*.list
|
||||
rm -f $(TARGETS)
|
||||
|
||||
$(OUTDIR)/%.o: %.s $(HEADERS)
|
||||
ca65 $(CAFLAGS) $(DEFINES) --listing $(basename $@).list -o $@ $<
|
||||
|
||||
$(OUTDIR)/%.SYS: $(OUTDIR)/%.o
|
||||
ld65 $(LDFLAGS) -o $@ $<
|
||||
xattr -wx prodos.AuxType '00 20' $@
|
||||
10
selector/README.md
Normal file
10
selector/README.md
Normal file
@ -0,0 +1,10 @@
|
||||
# Selector - Disassembly
|
||||
|
||||
The ProDOS operating system for the Apple II personal computer line supported a quit routine (invoked from BASIC with the `BYE` command) allowing the user to type the next prefix and name of a system file to invoke once the previous system file had exited.
|
||||
|
||||
* `ENTER PREFIX (PRESS "RETURN" TO ACCEPT)"`
|
||||
* `ENTER PATHNAME OF NEXT APPLICATION`
|
||||
|
||||
This was replaced in later versions of ProDOS with much improved selector showing a list of files and allowing navigation of the file system with the keyboard.
|
||||
|
||||
But... maybe you are feeling retro? This `SELECTOR.SYSTEM` patches the old version of the selector back in. Like the other drivers here, it is intended to be placed on your boot volume to run on startup, and will chain to the next `.SYSTEM` file found. You can follow it with `QUIT.SYSTEM` in your driver sequence if you want to show the selector on startup.
|
||||
496
selector/selector.system.s
Normal file
496
selector/selector.system.s
Normal file
@ -0,0 +1,496 @@
|
||||
;;; Disassembly of ProDOS 1.x's QUIT handler (program selector)
|
||||
;;; Modifications by Joshua Bell inexorabletash@gmail.com
|
||||
;;; * installs, then chains to next .SYSTEM file
|
||||
|
||||
.setcpu "6502"
|
||||
.linecont +
|
||||
.feature string_escapes
|
||||
|
||||
.include "apple2.inc"
|
||||
.include "apple2.mac"
|
||||
|
||||
.include "../inc/apple2.inc"
|
||||
.include "../inc/macros.inc"
|
||||
.include "../inc/prodos.inc"
|
||||
.include "../inc/ascii.inc"
|
||||
|
||||
;;; ************************************************************
|
||||
.include "../inc/driver_preamble.inc"
|
||||
;;; ************************************************************
|
||||
|
||||
;;; ------------------------------------------------------------
|
||||
|
||||
;;; ProDOS Technical Reference Manual, 5.1.5.2:
|
||||
;;;
|
||||
;;; ProDOS MLI call $65, the QUIT call, moves addresses $D100 through
|
||||
;;; $D3FF from the second 4K bank of RAM of the language card to
|
||||
;;; $1000, and executes a JMP to $1000. What initially resides in that
|
||||
;;; area is Apple's dispatcher code.
|
||||
|
||||
;;; ------------------------------------------------------------
|
||||
;;; Installer
|
||||
;;; ------------------------------------------------------------
|
||||
|
||||
max_size = $300
|
||||
|
||||
.proc maybe_install_driver
|
||||
|
||||
src := install_src
|
||||
end := install_src + install_size
|
||||
dst := $D100 ; Install location in ProDOS (bank 2)
|
||||
|
||||
src_ptr := $19
|
||||
dst_ptr := $1B
|
||||
|
||||
sta ALTZPOFF
|
||||
lda ROMIN
|
||||
lda ROMIN
|
||||
lda #>src
|
||||
sta src_ptr+1
|
||||
lda #<src
|
||||
sta src_ptr
|
||||
lda #>dst
|
||||
sta dst_ptr+1
|
||||
lda #<dst
|
||||
sta dst_ptr
|
||||
|
||||
loop: ldy #0
|
||||
lda (src_ptr),y
|
||||
sta (dst_ptr),y
|
||||
inc src_ptr
|
||||
bne :+
|
||||
inc src_ptr+1
|
||||
: inc dst_ptr
|
||||
bne :+
|
||||
inc dst_ptr+1
|
||||
: lda src_ptr+1
|
||||
cmp #>end
|
||||
bne loop
|
||||
lda src_ptr
|
||||
cmp #<end
|
||||
bne loop
|
||||
lda (src_ptr),y
|
||||
sta (dst_ptr),y
|
||||
sta ALTZPOFF
|
||||
sta ROMINWB1
|
||||
sta ROMINWB1
|
||||
|
||||
rts
|
||||
.endproc
|
||||
|
||||
|
||||
;;; ------------------------------------------------------------
|
||||
;;; Selector
|
||||
;;; ------------------------------------------------------------
|
||||
|
||||
install_src := *
|
||||
|
||||
pushorg $1000
|
||||
|
||||
.proc selector
|
||||
|
||||
PREFIX := $280
|
||||
|
||||
;;; ============================================================
|
||||
;;; Code
|
||||
;;; ============================================================
|
||||
|
||||
;; Page in normal banks, reset screen to 40 columns.
|
||||
lda ROMIN2
|
||||
sta CLR80VID
|
||||
sta CLRALTCHAR
|
||||
sta CLR80COL
|
||||
jsr SETNORM
|
||||
jsr INIT
|
||||
jsr SETVID
|
||||
jsr SETKBD
|
||||
|
||||
;; Clear system bitmap
|
||||
ldx #$17
|
||||
lda #$01
|
||||
sta BITMAP,x
|
||||
dex
|
||||
lda #$00
|
||||
: sta BITMAP,x
|
||||
dex
|
||||
bpl :-
|
||||
lda #$CF
|
||||
sta BITMAP
|
||||
|
||||
;;; ============================================================
|
||||
|
||||
.proc PromptForPrefix
|
||||
jsr HOME
|
||||
jsr CROUT
|
||||
ldx #msg_enter_prefix
|
||||
jsr ShowMessage
|
||||
lda #$03
|
||||
sta CV
|
||||
jsr CROUT
|
||||
MLI_CALL GET_PREFIX, get_prefix_params
|
||||
ldx PREFIX
|
||||
lda #$00
|
||||
sta $0281,x
|
||||
ldx PREFIX
|
||||
beq L105D
|
||||
L1052: lda PREFIX,x
|
||||
ora #$80
|
||||
sta $05FF,x
|
||||
dex
|
||||
bne L1052
|
||||
L105D: ldx #$00
|
||||
dec CV
|
||||
jsr CROUT
|
||||
|
||||
input_loop:
|
||||
jsr RDKEY
|
||||
cmp #HI(ASCII_CR)
|
||||
beq try_set_prefix
|
||||
pha
|
||||
jsr CLREOL
|
||||
pla
|
||||
cmp #HI(ASCII_ESCAPE)
|
||||
beq PromptForPrefix
|
||||
cmp #HI(ASCII_CLEAR)
|
||||
reprompt_for_prefix: ; used as a relay
|
||||
beq PromptForPrefix
|
||||
cmp #HI(ASCII_TAB)
|
||||
beq bad_prefix_key
|
||||
cmp #HI(ASCII_DELETE)
|
||||
beq :+
|
||||
cmp #HI(ASCII_LEFT)
|
||||
bne not_backspace
|
||||
: cpx #$00
|
||||
beq :+
|
||||
dec CH
|
||||
dex
|
||||
: jsr CLREOL
|
||||
jmp input_loop
|
||||
|
||||
not_backspace:
|
||||
bcs maybe_alphanumeric
|
||||
bad_prefix_key:
|
||||
jsr BELL
|
||||
jmp input_loop
|
||||
|
||||
maybe_alphanumeric:
|
||||
cmp #HI('Z')+1
|
||||
bcc :+
|
||||
and #%11011111 ; convert uppercase to lowercase
|
||||
: cmp #HI('.')
|
||||
bcc bad_prefix_key
|
||||
cmp #HI('Z')+1
|
||||
bcs bad_prefix_key
|
||||
cmp #HI('9')+1
|
||||
bcc :+
|
||||
cmp #HI('A')
|
||||
bcc bad_prefix_key
|
||||
|
||||
;; Place character, if it fits
|
||||
: inx
|
||||
cpx #39 ; screen max
|
||||
bcs reprompt_for_prefix
|
||||
sta PREFIX,x
|
||||
jsr COUT
|
||||
jmp input_loop
|
||||
|
||||
try_set_prefix:
|
||||
cpx #0
|
||||
beq PromptForPathname
|
||||
stx PREFIX
|
||||
MLI_CALL SET_PREFIX, get_prefix_params
|
||||
bcc PromptForPathname
|
||||
jsr BELL
|
||||
lda #$00
|
||||
|
||||
reprompt_for_prefix_relay:
|
||||
beq reprompt_for_prefix ; used as a relay
|
||||
|
||||
.endproc
|
||||
|
||||
;;; ============================================================
|
||||
|
||||
.proc PromptForPathname
|
||||
jsr HOME
|
||||
jsr CROUT
|
||||
ldx #msg_enter_pathname
|
||||
jsr ShowMessage
|
||||
reset_pathname:
|
||||
lda #3
|
||||
sta CV
|
||||
jsr CROUT
|
||||
ldx #0
|
||||
|
||||
input_loop:
|
||||
jsr RDKEY
|
||||
cmp #HI(ASCII_ESCAPE)
|
||||
bne :+
|
||||
lda CH
|
||||
bne PromptForPathname
|
||||
beq PromptForPrefix::reprompt_for_prefix_relay
|
||||
|
||||
: cmp #HI(ASCII_CLEAR)
|
||||
reprompt_for_pathname: ; used as a relay
|
||||
beq PromptForPathname
|
||||
cmp #HI(ASCII_TAB)
|
||||
beq bad_pathname_key
|
||||
cmp #HI(ASCII_DELETE)
|
||||
beq :+
|
||||
cmp #HI(ASCII_LEFT)
|
||||
bne not_backspace2
|
||||
: jmp backspace
|
||||
|
||||
not_backspace2:
|
||||
bcs maybe_alphanumeric2
|
||||
bad_pathname_key:
|
||||
jsr BELL
|
||||
jmp input_loop
|
||||
|
||||
maybe_alphanumeric2:
|
||||
cmp #HI(ASCII_CR)
|
||||
beq try_launch_file
|
||||
|
||||
cmp #HI('Z')+1
|
||||
bcc :+
|
||||
and #%11011111 ; convert uppercase to lowercase
|
||||
: cmp #HI('.')
|
||||
bcc bad_pathname_key
|
||||
cmp #HI('Z')+1
|
||||
bcs bad_pathname_key
|
||||
cmp #HI('9')+1
|
||||
bcc :+
|
||||
cmp #HI('A')
|
||||
bcc bad_pathname_key
|
||||
|
||||
;; Place character, if it fits
|
||||
: pha
|
||||
jsr CLREOL
|
||||
pla
|
||||
jsr COUT
|
||||
inx
|
||||
cpx #39 ; screen max
|
||||
bcs reprompt_for_pathname
|
||||
sta PREFIX,x
|
||||
jmp input_loop
|
||||
|
||||
;;; --------------------------------------------------
|
||||
|
||||
try_launch_file:
|
||||
lda #HI(' ')
|
||||
jsr COUT
|
||||
stx PREFIX
|
||||
MLI_CALL GET_FILE_INFO, get_file_info_params
|
||||
bcc :+
|
||||
jmp HandleError
|
||||
|
||||
: lda get_file_info_file_type
|
||||
cmp #FT_SYSTEM
|
||||
beq :+
|
||||
lda #$01
|
||||
jmp HandleError
|
||||
|
||||
: lda #$00
|
||||
sta close_ref_num
|
||||
MLI_CALL CLOSE, close_params
|
||||
bcc :+
|
||||
jmp HandleError
|
||||
|
||||
: lda get_file_info_access
|
||||
and #$01
|
||||
bne :+
|
||||
lda #ERR_IO_ERROR
|
||||
jmp HandleError
|
||||
|
||||
: MLI_CALL OPEN, open_params
|
||||
bcc :+
|
||||
jmp HandleError
|
||||
|
||||
: lda open_ref_num
|
||||
sta read_ref_num
|
||||
sta get_eof_ref_num
|
||||
MLI_CALL GET_EOF, get_eof_params
|
||||
bcs HandleError
|
||||
lda get_eof_eof+2
|
||||
beq :+
|
||||
lda #ERR_IO_ERROR
|
||||
bne HandleError
|
||||
|
||||
: lda get_eof_eof
|
||||
sta read_request_count
|
||||
lda get_eof_eof+1
|
||||
sta read_request_count+1
|
||||
MLI_CALL READ, read_params
|
||||
php
|
||||
MLI_CALL CLOSE, close_params
|
||||
bcc launch
|
||||
: plp
|
||||
bne HandleError
|
||||
plp
|
||||
launch: bcs :-
|
||||
jmp SYS_ADDR
|
||||
|
||||
backspace:
|
||||
lda CH
|
||||
beq :+
|
||||
dex
|
||||
lda #HI(' ')
|
||||
jsr COUT
|
||||
dec CH
|
||||
dec CH
|
||||
jsr COUT
|
||||
dec CH
|
||||
: jmp input_loop
|
||||
|
||||
.endproc
|
||||
|
||||
;;; ============================================================
|
||||
|
||||
.proc ShowMessage
|
||||
loop: lda message_table,x
|
||||
beq done
|
||||
jsr COUT
|
||||
inx
|
||||
bne loop
|
||||
done: rts
|
||||
.endproc
|
||||
|
||||
;;; ============================================================
|
||||
|
||||
.proc HandleError
|
||||
tmp := $DE
|
||||
|
||||
sta tmp
|
||||
lda #12
|
||||
sta CV
|
||||
jsr CROUT
|
||||
lda tmp
|
||||
|
||||
cmp #$01
|
||||
bne :+
|
||||
ldx #msg_not_sys
|
||||
bne show ; always
|
||||
|
||||
: cmp #ERR_INVALID_PATHNAME
|
||||
beq not_found
|
||||
cmp #ERR_PATH_NOT_FOUND
|
||||
beq not_found
|
||||
cmp #ERR_VOL_NOT_FOUND
|
||||
beq not_found
|
||||
cmp #ERR_FILE_NOT_FOUND
|
||||
beq not_found
|
||||
ldx #msg_io_error
|
||||
bne show
|
||||
|
||||
not_found:
|
||||
ldx #msg_not_found
|
||||
|
||||
show: jsr ShowMessage
|
||||
jmp PromptForPathname::reset_pathname
|
||||
.endproc
|
||||
|
||||
;;; ============================================================
|
||||
;;; Messages
|
||||
;;; ============================================================
|
||||
|
||||
message_table:
|
||||
|
||||
msg_enter_prefix := * - message_table
|
||||
scrcode "ENTER PREFIX (PRESS \"RETURN\" TO ACCEPT)"
|
||||
.byte 0
|
||||
|
||||
msg_enter_pathname := * - message_table
|
||||
scrcode "ENTER PATHNAME OF NEXT APPLICATION"
|
||||
.byte 0
|
||||
|
||||
msg_not_sys := * - message_table
|
||||
.byte HI(ASCII_BELL)
|
||||
scrcode "NOT A TYPE \"SYS\" FILE"
|
||||
.byte 0
|
||||
|
||||
msg_io_error := * - message_table
|
||||
.byte HI(ASCII_BELL)
|
||||
scrcode "I/O ERROR "
|
||||
.byte 0
|
||||
|
||||
msg_not_found := * - message_table
|
||||
.byte HI(ASCII_BELL)
|
||||
scrcode "FILE/PATH NOT FOUND "
|
||||
.byte 0
|
||||
|
||||
;;; ============================================================
|
||||
;;; ProDOS MLI Call Parameters
|
||||
;;; ============================================================
|
||||
|
||||
;;; GET_FILE_INFO params
|
||||
|
||||
get_file_info_params:
|
||||
.byte $A
|
||||
get_file_info_pathname:
|
||||
.addr PREFIX
|
||||
get_file_info_access:
|
||||
.byte 0
|
||||
get_file_info_file_type:
|
||||
.byte 0
|
||||
get_file_info_aux_type: .word 0
|
||||
get_file_info_storage_type: .byte 0
|
||||
get_file_info_blocks_used: .word 0
|
||||
get_file_info_mod_date: .word 0
|
||||
get_file_info_mod_time: .word 0
|
||||
get_file_info_create_date: .word 0
|
||||
get_file_info_create_time: .word 0
|
||||
|
||||
;;; OPEN params
|
||||
|
||||
open_params:
|
||||
.byte 3
|
||||
open_pathname:
|
||||
.addr PREFIX
|
||||
open_io_buffer:
|
||||
.addr $1800
|
||||
open_ref_num:
|
||||
.byte 0
|
||||
|
||||
;;; CLOSE params
|
||||
close_params:
|
||||
.byte 1
|
||||
close_ref_num:
|
||||
.byte 0
|
||||
|
||||
;;; READ params
|
||||
|
||||
read_params:
|
||||
.byte 4
|
||||
read_ref_num:
|
||||
.byte 0
|
||||
read_data_buffer:
|
||||
.addr SYS_ADDR
|
||||
read_request_count:
|
||||
.word 0
|
||||
read_trans_count:
|
||||
.word 0
|
||||
|
||||
;;; GET_EOF params
|
||||
|
||||
get_eof_params:
|
||||
.byte 2
|
||||
get_eof_ref_num:
|
||||
.byte 0
|
||||
get_eof_eof:
|
||||
.faraddr 0
|
||||
|
||||
;;; GET_PREFIX params
|
||||
|
||||
get_prefix_params:
|
||||
.byte 1
|
||||
get_prefix_pathname:
|
||||
.addr PREFIX
|
||||
|
||||
;;; ============================================================
|
||||
|
||||
.endproc
|
||||
install_size = $300
|
||||
poporg
|
||||
|
||||
;;; ************************************************************
|
||||
.include "../inc/driver_postamble.inc"
|
||||
;;; ************************************************************
|
||||
Loading…
Reference in New Issue
Block a user