;;; ------------------------------------------------------------
;;; ASCII

BELL            := $07
BS              := $08
CR              := $0D

;;; ------------------------------------------------------------
;;; Constants

MAX_DW          := $FFFF


;;; ------------------------------------------------------------
;;; Softswitches

CLR80VID        := $C00C        ; 40 Columns
SPKR            := $C030        ; Toggle speaker
ROMIN2          := $C082        ; Read ROM; no write
RWRAM1          := $C08B        ; Read/write RAM bank 1

;;; ------------------------------------------------------------
;;; ProDOS

PRODOS          := $BF00
DATETIME        := $BF06
DEVNUM          := $BF30
DEVCNT          := $BF31
DEVLST          := $BF32
BITMAP          := $BF58
BITMAP_SIZE     := 24           ; 24 bytes in system bit map
DATELO          := $BF90
TIMELO          := $BF92
MACHID          := $BF98
IBAKVER         := $BFFC
IVERSION        := $BFFD

SYS_ADDR        := $2000        ; Load address for SYSTEM files
PATHNAME        := $0280        ; Pathname of loaded system file

;;; MLI commands
MLI_QUIT        := $65
MLI_READ_BLOCK  := $80
MLI_GET_TIME    := $82
MLI_SET_FILE_INFO := $C3
MLI_GET_FILE_INFO := $C4
MLI_ON_LINE     := $C5
MLI_SET_PREFIX  := $C6
MLI_OPEN        := $C8
MLI_READ        := $CA
MLI_CLOSE       := $CC

.macro PRODOS_CALL call, params
        jsr     PRODOS
        .byte   call
        .addr   params
.endmacro

;;; Volume Directory Block Header structure
.scope VolumeDirectoryBlockHeader
        prev_block              := $00
        next_block              := $02
        entry_length            := $23
        entries_per_block       := $24
        header_length           := $2B
.endscope

;; File Entry structure
.scope FileEntry
        storage_type := $00
        name_length := $00
        file_name := $01
        file_type := $10
.endscope

;;; ------------------------------------------------------------
;;; Monitor

INIT            := $FB2F
MON_HOME        := $FC58
WAIT            := $FCA8
RDKEY           := $FD0C
GETLN           := $FD6A        ; with prompt character
GETLN2          := $FD6F        ; no prompt character
CROUT           := $FD8E
PRBYTE          := $FDDA
COUT            := $FDED
SETNORM         := $FE84
SETKBD          := $FE89
SETVID          := $FE93

INPUT_BUFFER    := $200

;;; ------------------------------------------------------------
;;; I/O Registers (for Slot 2)

TDREG    := $C088 + $20         ; ACIA Transmit Register (write)
RDREG    := $C088 + $20         ; ACIA Receive Register (read)
STATUS   := $C089 + $20         ; ACIA Status/Reset Register
COMMAND  := $C08A + $20         ; ACIA Command Register (read/write)
CONTROL  := $C08B + $20         ; ACIA Control Register (read/write)

;;; ------------------------------------------------------------

;;; Length-prefixed string
.macro PASCAL_STRING arg
        .byte   .strlen(arg)
        .byte   arg
.endmacro

;;; ------------------------------------------------------------

;;; Define a string with high bits set
;;; e.g. HIASCII "Ding ding", $7, $7
.macro  HIASCII arg, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9
        .if .blank(arg)
          .exitmacro
        .endif
        .if .match ({arg}, "")  ; string?
          .repeat .strlen(arg), i
            .byte .strat(arg, i) | $80
          .endrep
        .else                   ; otherwise assume number/char/identifier
          .byte (arg | $80)
        .endif
        HIASCII arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9
.endmacro

;;; Like HIASCII, but null-terminated
.macro  HIASCIIZ arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9
        HIASCII arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9
        .byte   0
.endmacro

;;; Set the high bit on the passed byte
.define HI(c)   ((c)|$80)