90 lines
2.8 KiB
PHP
90 lines
2.8 KiB
PHP
;;; ============================================================
|
|
;;; ProDOS MLI / Global Page
|
|
|
|
MLI := $BF00
|
|
DATE := $BF90
|
|
|
|
SET_FILE_INFO = $C3
|
|
GET_FILE_INFO = $C4
|
|
ON_LINE = $C5
|
|
OPEN = $C8
|
|
READ = $CA
|
|
CLOSE = $CC
|
|
|
|
.macro MLI_CALL cmd, params
|
|
jsr MLI
|
|
.byte cmd
|
|
.addr params
|
|
.endmacro
|
|
|
|
;;; ============================================================
|
|
;;; BASIC.SYSTEM Global Page
|
|
|
|
EXTRNCMD := $BE06 ; External command jmp vector
|
|
ERROUT := $BE09 ; Error routine jmp vector
|
|
XTRNADDR := $BE50 ; Ext cmd implementation addr
|
|
|
|
XLEN := $BE52 ; Length of command string minus 1
|
|
XCNUM := $BE53 ; Command number (ext cmd = 0).
|
|
|
|
PBITS := $BE54 ; Command parameter bits
|
|
FBITS := $BE56 ; Found parameter bits
|
|
|
|
.enum PBitsFlags
|
|
;; PBITS
|
|
PFIX = $80 ; Prefix needs fetching
|
|
SLOT = $40 ; No parameters to be processed
|
|
RRUN = $20 ; Command only valid during program
|
|
FNOPT = $10 ; Filename is optional
|
|
CRFLG = $08 ; CREATE allowed
|
|
T = $04 ; File type
|
|
FN2 = $02 ; Filename '2' for RENAME
|
|
FN1 = $01 ; Filename expected
|
|
|
|
;; PBITS+1
|
|
AD = $80 ; Address
|
|
B = $40 ; Byte
|
|
E = $20 ; End address
|
|
L = $10 ; Length
|
|
LINE = $08 ; '@' line number
|
|
SD = $04 ; Slot and drive numbers
|
|
F = $02 ; Field
|
|
R = $01 ; Record
|
|
|
|
;; Setting SD in PBITS+1 enables desired automatic behavior: if
|
|
;; a relative path is given, an appropriate prefix is computed,
|
|
;; using S# and D# options if supplied. Without this, absolute
|
|
;; paths must be used if no prefix is set.
|
|
.endenum
|
|
|
|
VADDR := $BE58 ; Address parameter
|
|
VBYTE := $BE5A ; Byte parameter
|
|
VSLOT := $BE61 ; Slot parameter
|
|
VTYPE := $BE6A ; Type parameter
|
|
VPATH1 := $BE6C ; Pathname buffer
|
|
|
|
GOSYSTEM := $BE70 ; Use instead of MLI
|
|
|
|
XRETURN := $BE9E ; Handy RTS
|
|
|
|
SSGINFO := $BEB4 ; GET_FILE_INFO Parameter block
|
|
FIFILID := $BEB8 ; (set size $A)
|
|
FIAUXID := $BEB9
|
|
FIMDATE := $BEBE
|
|
|
|
SOPEN := $BECB ; OPEN
|
|
OSYSBUF := $BECE
|
|
OREFNUM := $BED0
|
|
|
|
SREAD := $BED5 ; READ
|
|
RWREFNUM := $BED6
|
|
RWDATA := $BED7
|
|
RWCOUNT := $BED9
|
|
|
|
SCLOSE := $BEDD ; CLOSE
|
|
CFREFNUM := $BEDE
|
|
|
|
GETBUFR := $BEF5
|
|
FREEBUFR := $BEF8
|
|
RSHIMEM := $BEFB
|