THIS KEYSHEET IS NOT EXECUTABLE. THE KEYSHEET GIVES THE COMMAND LINES FOR THE SOURCE MODULES TO BE ASSEMBLED. TRIG2.SR ] ] l.TITL TRIG2 ; USED FOR SCLI .EXTN .RDSI .MTU2 .CTU3 .LPTD .PTRD .PTPD .PLTD .EXTN .RTC1 .END ; TRIG2.SR CLI.KS Y Y5 COPYRIGHT (C) DATA GENERAL CORPORATION, 1973, 1974, 1975, 1977 ALL RIGHTS RESERVED. LICENSED MATERIAL - PROPERTY OF DATA GENERAL CORPORATION KEYSHEET FOR MODEL NUMBER 3271, 3577 NAME: SOS COMMAND LINE INTERPRETER TAPE LIST: FILE NAME SCLI1 V?.SR SCLI2.SR SCLI3.SR SCLI4.SR SCLI5.SR PARU.SR CEDURE: MAC/Z PARU/S (SCLI1 SCLI2 S CLI3 SCLI4 SCLI5 SCLI.RB/B) BINARY PROCEDURE: BPUNCH SCLI.RB SCLI1.SR ] ] .TITL SOSCLI .RB CLI.RB .TXTM 1 .ENT BUILR .EXTN .RDSI ; DEFINE STACK DISPLACEMENTS .DUSR ORTN= -4 ; OLD RETURN ADDRESS .DUSR OAC0= -3 ; OLD AC0 .DUSR OAC1= -2 ; OLD AC1 .DUSR OAC2= -1 ; OLD AC2 .DUSR RTN= 0 ; RETURN ADDRESS .DUSR AC0= 1 ; AC0 .DU SR AC1= 2 ; AC1 .DUSR AC2= 3 ; AC2 .DUSR STKSZ= AC2+1 ; STACK LENGTH ; DEFINE OTHER MISC STUFF .DUSR ENTR= STA 3,@USP ; DEFINE THE SUBROUTINE ENTRY .DUSR NOP= 401 ; JMP .+1 .DUSR CH0= 0 ; DEFINE THE CHANNELS .DUSR CH1= 1 .DUSR CH2= 2 .DUSR UNDX1= 20 ; D vEFINE A COUPLE OF AUTO INC LOCS .DUSR UNDX2= 21 .DUSR ERUNK= -1 ; DEFINE UNKNOWN ERROR CODE .DUSR COMSZ= 240. ; MAXIMUM COMMAND LENGTH IN BYTES ; MAY BE ADJUSTED AS NECESSARY .ZREL TEM0P: TEMP0 ; POINTER TO FIRST ADDRESS OF TEMPS TEMP0: 0 ; TEMPS FO /R ALL KINDS OF THINGS TEMP1: 0 TEMP2: 0 TEMP3: 0 TEMP4: 0 TEMP5: 0 TEMP6: 0 TEMP7: 0 TEMP8: 0 TEMP9: 0 CHAN: 0 ; CURRENT CHANNEL # FOR SYSER .FT AB: FTAB ; POINTER TO FILE NAME TABLE SWD1: 0 ; SWITCH BITS A-P SET BY FIND SWD2: 0 ; SWITCH BITS Q-Z SET BY FIND BUF1P: BUF1*2 ; POINTER TO BUFFER 1 BUF2P: BUF2*2 ; POINTER TO BUFFER 2 TTOP: TTON*2 ; BYTE POINTER TO $TTO TTIP: TTIN*2 ; BYTE POINTER TO $TTI TTRP: TTRN*2 ; BYTE POINTER TO $TTR TTPP: TTPN*2 ; BYTE POINTER TO $TTP PTPP: PTPN*2 ; BYTE POINTER p TO $PTP PTRP: PTRN*2 ; BYTE POINTER TO $PTR LPTP: LPTN*2 ; BYTE POINTER TO $LPT K0: 0 K2: 2 ; CONTANNTS K3: 3 K4: 4 K5: 5 K6: 6 K7: 7 K10: 10 K11: 11 K12: 12 K15: 15 K20: 20 K22: 22 K24: 24 K40: 40 K44: 44 K51: 51 K52: 52 K53: 53 K54: 54 K55: 55 K56: 56 K57: 57 K60: 60 K72: 72 K77: 77 K100: 100 K103: 103 K124: 124 K132: 132 K134: 134 K136: 136 K144: 144 K177: 177 K300: 300 K302: 302 K304: 304 K305: 305 K307: 307 K310: 310 K312: 312 K313: 313 K375: 375 K376: 376 K377: 377 K400: 400 K405: 405 K776: 776 ?K2000: 2000 K20K: 20000 .NREL .TXT /COPYRIGHT (C) DGC,1973,1974,1975,1977 ALL RIGHTS RESERVED/ ;BUILD ; ROUTINE TO ACCEPT A COMMAND LINE FROM $TTI AND BUILD A ; COMMAND TABLE IN FTAB, AND DISPATCH TO THE PROPER ROUTINE IN DISPT. .ZREL BUILD= JM