.TITLE TTSET TT PROCESS OPTIONS .SBTTL SYSTEM DEFINITIONS .NLIST BEX .ENABL LC ; ; Tt process options ; ; External symbols ; .GLOBL RDDEC,RDOCT,RDASC,FORMAT ;i/o conversion routines .GLOBL CMDHLP,CMDON,CMDOFF,CMDASG,CMDVIC,CMDNTF ; ; Entry symbols ; .GLOBL TTOPT,SQOPT .GLOBL TTXXSC,TTXMAR,TTXPAG ;cli segments ; ; System definitions ; .ASECT .MCALL .COM,.CHR,.PSA,.TTD,.TTP,.PRT,.KWTAB ;definitions .COM .CHR .PSA .TTD .TTP .PRT ;define queue file entry format .PAGE .SBTTL PROCEDURE SEGMENT ; ; Dsects: r3 = par, r5 = ulp ; .PSECT $BOSI,RO,I ; ; 'show' (ttx) show process options ; (segment of command language interpreter) ; (no arguments) ; TTXSHO: MOV PC,R0 ;get format pointer ADD #TTXFMT-.,R0 MOV R3,R1 JSR PC,FORMAT RTS PC ; ; 'escape' (ttx) set escape character ; (segment of command language interpreter) ; Arg = escape char ; TTXXSC: MOVB #DLE,PARXSC(R3) ;reset to default xsc JSR PC,RDOCT ;get next char BEQ 1$ ;branch if eor BIC #^C177,R0 ;mask for safety MOVB R0,PARXSC(R3) ;no. store as escape char 1$: RTS PC ; ; 'margin' (ttx) set right margin ; (segment of command language interpreter) ; Arg = right margin (decimal 0 - 255) ; TTXMAR: JSR PC,RDDEC ;get right margin MOVB R0,PARMAR(R3) RTS PC ;clean getaway ; ; 'page' (ttx) set bottom margin ; (segment of command language interpreter) ; Arg = bottom margin (decimal 0 - 255) ; TTXPAG: JSR PC,RDDEC ;get bottom margin MOVB R0,PARPAG(R3) RTS PC ; ; 'speed' - set data set clock speed (dc11 only) ; (segment of command language interpreter) ; Arg = speed (0 - 3) ; TTXSPD: JSR PC,RDOCT ;get speed code ASL R0 ;plug in the appropriate place ASL R0 ASL R0 BIC #-30-1,R0 BICB #30,PARSET(R3) BISB R0,PARSET(R3) RTS PC ; ; 'delay' (ttx) set carriage-return delay ; (segment of command language interpreter) ; Arg = delay (milliseconds) ; TTXDLY: JSR PC,RDDEC ;get delay MOV R0,PARPAD(R3) RTS PC ; ; 'show' (sqx) show process options ; (segment of command language interpreter) ; (no arguments) ; SQXSHO: MOV PC,R0 ;get format pointer ADD #SQXFMT-.,R0 MOV R3,R1 JSR PC,FORMAT MOV PC,R0 ADD #COM21-.,R0 ADD #PARLDN,R1 JSR PC,FORMAT RTS PC .PAGE .SBTTL DATA SEGMENT ; .PSECT $BOSD,RO,D ; ; TT options table ; TTOPT: .KWTAB ,CMDHLP ;print command list .KWTAB ,TTXSHO ;print process status .KWTAB ,CMDON ;set option bits .KWTAB ,CMDOFF ;clear option bits .KWTAB ,CMDASG ;assign device .KWTAB ,CMDVIC ;print device status .KWTAB ,TTXXSC ;set escape character .KWTAB ,TTXMAR ;set right margin .KWTAB ,TTXPAG ;set bottom margin .KWTAB ,TTXSPD ;set clock speed (dc11 only) .KWTAB ,TTXDLY ;set carriage-return delay .KWTAB < >,CMDNTF ;not found ; ; SQ options table ; SQOPT: .KWTAB ,CMDHLP ;print command list .KWTAB ,SQXSHO ;print process status .KWTAB ,CMDON ;set option bits .KWTAB ,CMDOFF ;clear option bits .KWTAB < >,CMDNTF ;not found ; ; TT format strings ; TTXFMT: .ASCII 'Process type: ^K'' options: ^K''^/' .ASCII 'Buff overflow: ^I''^/' .ASCII 'Input error: ^I''^/' .ASCII 'Right margin: ^BI''^/' .ASCII 'Bottom margin: ^BI''^/' .ASCII 'Intercept char: ^BK''^/' .ASCII 'Return delay: ^I''^/' .ASCIZ 'Data rate: ^BK''^/' ; ; SQ format strings ; SQXFMT: .ASCIZ 'Process type: ^K'' options: ^K' COM21: .ASCII 'Queue: ^A'' ^F''[^I' .ASCII '] at: ^D'' ^T' .ASCIZ '^/Destination: ^F'' ^C'' flags: ^K' .EVEN ; .END