SDSOVFDT.MAC;2/AU=[12,10]SDSOVFDT.VGN \ -2,2 .IDENT /03.5XB/ -/PL101/ ; ; JGD16 23-JUL-79 ADD SET /LIBUIC ; ; JGD17 02-SEP-79 ADD SET /TOP COMMAND % -/SYSUIC:/,,/; JGD16/ LIBUIC: .ASCIZ /LIBUIC/ ; SYSTEM UTILITY TASK UIC -,,/; JGD17/ .ASCIZ /X/ ; DUMMY OUT SET /TOP COMMAND -/SYOFST/,, -/.WORD DISUIC/,,/; JGD16/ LBOFST = .-DISTAB ; OFFSET TO LIBUIC .WORD DISUIC ; SYSTEM DEFAULT UTILITY TASK UIC -,,/; JGD17/ .BLKW 1 ; DUMMY OUT SET /TOP COMMAND -/DISUIC:/ -/BNE 5$/,.+1,/; JGD16/ BNE 4$ ; NO MOV #SYSUIC,R1 ; YES, GET TEXT BR 5$ ; SKIP OVER 4$: CMP $MPARS,#LBOFST ; IS IT DISPLAY LIBUIC? BNE 5$ ; IF NE, JUST DO SET /UIC MOV #LIBUIC,R1 ; IF EQ, ITS SET /UIC -/BNE 7$/,.+2,/; JGD16/ BNE 6$ ; NO MOV $SYUIC,R5 ; GET IT BR 20$ ; 6$: CMP $MPARS,#LBOFST ; IS IT DISPLAY SYSTEM TASK UIC? BNE 7$ ; IF NE, NO MOV $LBUIC,R5 ; YES IT IS , GET VALUE BR 20$ ; AND SHOW IT /