;***** ; ; TTICH.SLP - "SLP" correction file for TTICH.MAC module of the ; RSX-11M terminal driver. The patch involves determining the ; full CLI prompt for all CLI's and the default CLI prompt for ; those CLI's that aren't typically part of a vanilla RSX system, ; e.g. MCR/DCL, to be echoed in response to CTRL-R. ; THIS IS A COSMETIC PATCH AND DOES NOT DIRECTLY INFLUENCE ; ALTERNATE CLI ACTIVITY. ; ; The full CLI prompt for Digital supplied CLI's (in systems ; supporting alternate CLI's) is contained ; in the system common region of the executive (SYSCM) ; @ global symbols $CLIPT and $MCRPT. These 2 symbols define: ; 1) TCB ADDRESS OF CLI DISPATCHER TASK ; 2) ASCIZ STRING OF CLI'S FULL PROMPT ; The default CLI prompt is hard coded into TTDRV'S data section, ; and is the unmodifiable ">". ; ; Alternate CLI'S will place a similar set of information in ; the system pool which is linked to the CLI task as a receive ; data packet that is never dequeued until the CLI is "ELIMINATED". ; Its format is, ; 1) TCB ADDRESS OF CLI DISPATCHER TASK ; 2) ASCIZ STRING OF CLI'S FULL PROMPT ; 3) ASCIZ STRING OF CLI'S DEFAULT PROMPT ; ; NOTE: This SLP file is for RSX-11M V3.2, TTICH .IDENT /V02.19/. ; It should correctly SLP other versions, but no guarantees are made. ; ;***** ; ; P. Sorenson, 12/29/83 ; AEP/Interactive Graphics Section ; Columbus, OH ; ;***** TTICH.MAC/AU:72.=TTICH.VGN -/.IDENT/,. .IDENT /V2.19P/ -/DD089/,, ; ; P.R. SORENSON 21-MAR-84 ; PRS01 RESOLVE DEFAULT CLI PROMPT FOR CTRL-R -/I2CTR2:/ -/#ASCLP/,.+19,/;PRS01/ MOV U.CLI-U.TSTA(R5),R3 ; GET CLI'S CONTROL BLOCK ADDRESS TST (R3)+ ; STEP PAST CLI'S TCB POINTER TST U.TFPB(R4) ; DO FULL CLI PROMPT ?? BNE 157$ ; BRANCH IF YES CMP #$POOL,R3 ; INFO IN SYSTEM POOL ?? BLOS 156$ ; BRANCH IF YES, NON-DEC CLI MOV #ASCLP,R3 ; PICKUP DEC DEFAULT PROMPT MOV #2,R2 BR 159$ ; AND ECHO IT 156$: TSTB (R3)+ ; SKIP OVER FULL PROMPT SO BNE 156$ ; POINT TO DEFAULT STRING 157$ MOV R3,R2 ; COPY START ADDRESS 158$: TSTB (R2)+ ; HIT TERMINATOR ?? BNE 158$ ; BRANCH IF NO, LOOK AGAIN SUB R3,R2 ; COMPUTE STRING LENGTH 159$: JMP ECHSTR ; AND ECHO IT //