2005-03-26 17:23:14 +00:00
|
|
|
;
|
|
|
|
; Oliver Schmidt, 30.12.2004
|
|
|
|
;
|
|
|
|
; Apple ProDOS 8 MLI
|
|
|
|
;
|
|
|
|
|
2005-03-30 18:25:04 +00:00
|
|
|
READ_BLOCK_CALL = $80
|
|
|
|
WRITE_BLOCK_CALL= $81
|
|
|
|
RW_BLOCK_COUNT = 3
|
|
|
|
|
2005-03-26 17:23:14 +00:00
|
|
|
CREATE_CALL = $C0
|
|
|
|
CREATE_COUNT = 7
|
|
|
|
|
|
|
|
ON_LINE_CALL = $C5
|
|
|
|
ON_LINE_COUNT = 2
|
|
|
|
|
|
|
|
OPEN_CALL = $C8
|
|
|
|
OPEN_COUNT = 3
|
|
|
|
|
|
|
|
READ_CALL = $CA
|
|
|
|
WRITE_CALL = $CB
|
|
|
|
RW_COUNT = 4
|
|
|
|
|
|
|
|
CLOSE_CALL = $CC
|
|
|
|
CLOSE_COUNT = 1
|
|
|
|
|
|
|
|
SET_MARK_CALL = $CE
|
|
|
|
GET_MARK_CALL = $CF
|
|
|
|
MARK_COUNT = 2
|
|
|
|
|
|
|
|
SET_EOF_CALL = $D0
|
|
|
|
GET_EOF_CALL = $D1
|
|
|
|
EOF_COUNT = 2
|
|
|
|
|
|
|
|
.struct MLI
|
|
|
|
.union
|
2005-03-30 18:25:04 +00:00
|
|
|
.struct RW_BLOCK
|
|
|
|
PARAM_COUNT .byte
|
|
|
|
UNIT_NUM .byte
|
|
|
|
DATA_BUFFER .addr
|
|
|
|
BLOCK_NUM .word
|
|
|
|
.endstruct
|
2005-03-26 17:23:14 +00:00
|
|
|
.struct CREATE
|
|
|
|
PARAM_COUNT .byte
|
|
|
|
PATHNAME .addr
|
|
|
|
ACCESS .byte
|
|
|
|
FILE_TYPE .byte
|
|
|
|
AUX_TYPE .word
|
|
|
|
STORAGE_TYPE .byte
|
|
|
|
CREATE_DATE .word
|
|
|
|
CREATE_TIME .word
|
|
|
|
.endstruct
|
|
|
|
.struct ON_LINE
|
|
|
|
PARAM_COUNT .byte
|
|
|
|
UNIT_NUM .byte
|
|
|
|
DATA_BUFFER .addr
|
|
|
|
.endstruct
|
|
|
|
.struct OPEN
|
|
|
|
PARAM_COUNT .byte
|
|
|
|
PATHNAME .addr
|
|
|
|
IO_BUFFER .addr
|
|
|
|
REF_NUM .byte
|
|
|
|
.endstruct
|
|
|
|
.struct RW
|
|
|
|
PARAM_COUNT .byte
|
|
|
|
REF_NUM .byte
|
|
|
|
DATA_BUFFER .addr
|
|
|
|
REQUEST_COUNT .word
|
|
|
|
TRANS_COUNT .word
|
|
|
|
.endstruct
|
|
|
|
.struct CLOSE
|
|
|
|
PARAM_COUNT .byte
|
|
|
|
REF_NUM .byte
|
|
|
|
.endstruct
|
|
|
|
.struct MARK
|
|
|
|
PARAM_COUNT .byte
|
|
|
|
REF_NUM .byte
|
|
|
|
POSITION .byte 3
|
|
|
|
.endstruct
|
|
|
|
.struct EOF
|
|
|
|
PARAM_COUNT .byte
|
|
|
|
REF_NUM .byte
|
|
|
|
EOF .byte 3
|
|
|
|
.endstruct
|
|
|
|
.endunion
|
|
|
|
.endstruct
|
|
|
|
|
|
|
|
.global mliparam
|
|
|
|
.global callmli
|
|
|
|
|
|
|
|
ENTRY := $BF00 ; MLI call entry point
|
|
|
|
DEVNUM := $BF30 ; Most recent accessed device
|
|
|
|
PFIXPTR := $BF9A ; If = 0, no prefix active
|
|
|
|
KVERSION:= $BFFF ; Kernel version number
|