.TITLE DKSET DK PROCESS OPTIONS .SBTTL SYSTEM DEFINITIONS .NLIST BEX .ENABL LC ; ; Dk process options ; ; External symbols ; .GLOBL RDDEC,RDOCT,FORMAT ;i/o conversion routines .GLOBL CMDHLP,CMDON,CMDOFF,CMDNTF ; ; Entry symbols ; .GLOBL DKOPT ; ; System definitions ; .ASECT .MCALL .COM,.CHR,.PSA,.DSK,.KWTAB ;definitions .COM .CHR .PSA .DSK .PAGE .SBTTL PROCEDURE SEGMENT ; ; Dsects: r3 = par, r5 = ulp ; .PSECT $BOSI,RO,I ; ; 'show' (dkx) display process options ; (segment of command language interpreter) ; (no arguments) ; DKXSHO: MOV PC,R0 ;get format pointer ADD #DKXFMT-.,R0 MOV R3,R1 JSR PC,FORMAT RTS PC .PAGE .SBTTL DATA SEGMENT ; .PSECT $BOSD,RO,D ; ; Options table ; DKOPT: .KWTAB ,CMDHLP ;print command list .KWTAB ,DKXSHO ;print process status .KWTAB ,CMDON ;set option bits .KWTAB ,CMDOFF ;clear option bits .KWTAB < >,CMDNTF ;not found ; ; Format strings ; DKXFMT: .ASCII 'Process type: ^K'' options: ^K''^/' .ASCII 'Data checks: ^I''^/' .ASCII 'Seek checks: ^I''^/' .ASCII 'Error ops: ^I''^/' .ASCIZ 'Hard errors: ^I' .EVEN ; .END