;  RST Mnemonics
;  -------------

RXBLK           TEXT    'RST #X08'              ;  Receive ring block
TXBLK           TEXT    'RST #X18'              ;  Transmit ring block
EXHL            TEXT    'RST #X20'              ;  Exchange bytes of HL
ERRTRAP         TEXT    'RST #X28'              ;  Enter debug


;  BCPL Mnemonics
;  --------------

APPLY           TEXT    'RST #X38*N DEFB 0'     ;  Apply a BCPL procedure
SETLINK         TEXT    'RST #X38*N DEFB 18'    ;  Set up BCPL linkage
RETURN          TEXT    'RST #X38*N DEFB 30'    ;  Return from BCPL procedure

ABSOLUTE        TEXT    '*NBASE ABS'            ;  Define absolute section
RELOCATABLE     TEXT    '*NBASE REL'            ;  Refine relocatable section
ALIGN           TEXT    'DEFS ($-BASE)&1'       ;  Align to word boundary


;  Ring Equates
;  ------------

SSPREQ          EQU     #X6C00                  ;  SSP Request code
SSPREP          EQU     #X6500                  ;  SSP Reply code


;  Pseudo directives
;  -----------------

LAYOUT          TEXT    ' SPACE 6*N* PAGE 10'   ;  Lay out listing


;  SYSTEM constants
;  ----------------

RAMBASE         EQU     #X400                   ;  Base of RAM
USERRAM         EQU     #X4C0                   ;  Base of user RAM


;  User RST entries
;  ----------------

R30ENTRY        EQU     USERRAM+3               ;  Entry to RST30 handler
R38ENTRY        EQU     USERRAM+6               ;  Entry to RST38 handler


;   Linker directive to set lower load limit and empty store value
;   --------------------------------------------------------------

                NEEDS   'E=#EF,B=#4C0/o'


