*************************************************************************
*    This file contains the complete list of equates to use system      *
*    traps in 135BUG  and the definition of the  SysCall Macro.         *
*************************************************************************

.INCHR      EQU    $0000        ! input CHARACTER
.INSTAT     EQU    $0001        ! input serial port status
.INLN       EQU    $0002        ! input line           (pointer/pointer)
.READSTR    EQU    $0003        ! input string         (pointer/count)
.READLN     EQU    $0004        ! input line           (pointer/count)
.CHKBRK     EQU    $0005        ! check for break

.DSKRD      EQU    $0010        ! disk READ
.DSKWR      EQU    $0011        ! disk WRITE
.DSKCFIG    EQU    $0012        ! disk configure
.DSKFMT     EQU    $0014        ! disk FORMAT
.DSKCTRL    EQU    $0015        ! disk control

.OUTCHR     EQU    $0020        ! output CHARACTER
.OUTSTR     EQU    $0021        ! output string        (pointer/pointer)
.OUTLN      EQU    $0022        ! output line          (pointer/pointer)
.WRITE      EQU    $0023        ! output string        (pointer/count)
.WRITELN    EQU    $0024        ! output line          (pointer/count)
.WRITDLN    EQU    $0025        ! output line w/data   (pointer/count)
.PCRLF      EQU    $0026        ! output <CR><LF>
.ERASLN     EQU    $0027        ! erase line
.WRITD      EQU    $0028        ! output string w/data (pointer/count)
.SNDBRK     EQU    $0029        ! send break

.TM_INI     EQU    $0040        ! timer initialization
.TM_STR0    EQU    $0041        ! Start timer at  T = 0
.TM_RD      EQU    $0042        ! READ timer
.DELAY      EQU    $0043        ! Wait for the specified delay

.REDIR      EQU    $0060        ! redirect I/O of a TRAP #15
.REDIR_I    EQU    $0061        ! redirect input
.REDIR_O    EQU    $0062        ! redirect output
.RETURN     EQU    $0063        ! RETURN to 133ABUG
.BINDEC     EQU    $0064        ! convert binary to BCD
.CHANGEV    EQU    $0067        ! parse value
.STRCMP     EQU    $0068        ! compare two strings     (pointer/count)
.MULU32     EQU    $0069        ! multiply unsigned 32-bit integers
.DIVU32     EQU    $006A        ! divide unsigned 32-bit integers


SYSCALL    MACRO
           TRAP    #15
           DC.W    \1
           ENDM