;;; ============================================================
;;; 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