.SLIST .XLIST ; MACROS: .DEFINE TOKEN[TINDX,TGOTO]= [ .BYTE TINDX+80H .WORD TGOTO ] .DEFINE TSTC[CAT,DOG]= [ CALL TSTCH# .BYTE 'CAT' .BYTE DOG-.-1 ] .DEFINE TSTCC[CAT1,DOG1]= [ CALL TSTCH# .BYTE CAT1 .BYTE DOG1-.-1 ] .DEFINE ITEM[STRANG,JUMPTO]= [ .ASCIS 'STRANG' .WORD JUMPTO ] BOTSCR == 08C20H TOPSCR == 08FFFH BOTRAM == 08000H BOTROM == 06000H ; TAPEIO == 12H ; TAPE INTERFACE I-O PORT STPBCT == 0FCH ; -# OF STOP BIT WINDOWS FOR VALID DATA KEYBSZ == 40 ; KEYBOARD BUFFER SIZE ; CR == 0DH RUBOUT == 1FH COMMA == 44 EDKEY == 66H NLLN == 67H ; EQUATES FOR RESTART INSTRUCTIONS .DEFINE RSTEXP=[ CALL EXPR#] .DEFINE RSTOCH=[ CALL OUTCH#] .DEFINE RSTIGN=[ CALL IGNBLK#] .DEFINE RSTPAR=[ CALL PARN#] .DEFINE RSTFIN=[ JMP FINISH#] ;RSTEXP == 2 ; EXPR ;RSTOCH == 3 ; OUTCH ;RSTIGN == 4 ; IGNBLK ;RSTPAR == 5 ; PARN ;RSTFIN == 6 ; FINISH .RLIST