.TITLE FXSET FX PROCESS OPTIONS .SBTTL SYSTEM DEFINITIONS .NLIST BEX .ENABL LC ; ; Fx process options ; ; External symbols ; .GLOBL RDDEC,RDOCT,FORMAT ;i/o conversion routines .GLOBL CMDHLP,CMDON,CMDOFF,CMDASG,CMDVIC,CMDNTF ; ; Entry symbols ; .GLOBL FXOPT ; ; System definitions ; .ASECT .MCALL .COM,.CHR,.PSA,.FAX,.KWTAB ;definitions .MCALL .TTYIN ;rt-11 macros .COM .CHR .PSA .FAX .PAGE .SBTTL PROCEDURE SEGMENT ; ; Dsects: r3 = par, r5 = ulp ; .PSECT $BOSI,RO,I ; ; 'show' (fxx) display process options ; (segment of command language interpreter) ; (no arguments) ; FXXSHO: MOV PC,R0 ;get format pointer ADD #FXXFMT-.,R0 MOV R3,R1 JSR PC,FORMAT RTS PC .PAGE .SBTTL DATA SEGMENT ; .PSECT $BOSD,RO,D ; ; Options table ; FXOPT: .KWTAB ,CMDHLP ;print command list .KWTAB ,FXXSHO ;print process status .KWTAB ,CMDON ;set option bits .KWTAB ,CMDOFF ;clear option bits .KWTAB < >,CMDNTF ;not found ; ; Format strings ; FXXFMT: .ASCII 'Process type: ^K'' options: ^K''^/' .ASCII 'Hard errors: ^I''^/' .ASCII 'Unreported errors: ^I''^/' .ASCII 'Hardware overruns: ^I''^/' .ASCIZ 'Buffer overflows: ^I' .EVEN ; .END