OU:MCRDIS.MAC;2=IN:[12,10]MCRDIS.VGN;1/AU \ -2,2 .IDENT /4.03X/ -/JG0037/+2 ; ; ; JGD17 04-feb-82 ALLOW COMMANDS CONSISTING OF 3 CHARACTERS FOLLOWED ; BY A NON RAD50 CHARACTER TO BE DISPATCHED TO ; ...CA. TO ALLOW COMMANDS LIKE XYZ? TO BE ; TREATED AS HELP XYZ. ALLOW A PRECEDING '#' ; TO DISPATCH PIN IN MUCH THE SAME WAY THAT ; '@' DISPATCHES ...AT. ; ; JGD18 04-feb-82 BUMP COUNTER IN UCB EACH TIME ...AT. IS RUN ; ; % -/EQUATED SYMBOLS/,,/; JGD18/ ; .IF DF T$$CPU .MCALL UCBDF$ UCBDF$ .IFDF M$$CLI!A$$CLI ; If Multiple or Alternate CLI support U.ATCT=U.CLI-16 ; Ofset from U.CLI rather than U.LUIC .IFF ; If vanilla flavor system use U.LUIC U.ATCT=U.LUIC-16 ; for offset into the @ counter .ENDC ; .END M$$CLI -,,/; JGD18/ .ENDC ; .END T$$CPU -/MCR2:/ -/; GET COMMAND NAME/ -/BEQ LODAT/,,/; JGD17/ CMPB (R0),#'# ; ARE WE TRYING TO START UP PIN BNE 32$ ; NO, SKIPOVER MOVB #40,(R0) ; SHOVE IN A SPACE BR LODPIN ; AND SEND IT TO PIN 32$: ; REF LABLE -/40$/,,/; jgd17/ 35$: ; Ref lable for pretending "no such task" -/44$:/,.,/; JGD17/ 44$: BR 35$ ; PRETEND IT'S NO SUCH TASK FOR ...CA. -/LODSYS:/ -/BR LDTSK/,,/; JGD17/ LODPIN: MOV (PC)+,R1 ; SET NAME FOR PROCEDURE INTERPRETER .RAD50 /PIN/ ; PROCEDURE INTERPRETER TASK BR LDTSK ; GO DO IT -/LODAT:/,.,/; JGD18/ LODAT: ; REF LABLE .IF DF T$$CPU ; IF KMS ACCOUNTING OFFSETS ENABLED MOV $TKTCB,R1 ; GET OUR TASK HEADER MOV T.UCB(R1),R1 ; GET OUR UCB ADDRESS INC U.ATCT(R1) ; BUMP COUNTER .ENDC ; .END T$$CPU MOV (PC)+,R1 ; SET NAME FOR INDIRECT /