.TITLE CCBDF$ - CLI CONTROL BLOCK DEFINITION .IDENT /010285/ ; ;+ ;***** ; ; "CCBDF$" defines symbolic offsets and bit patterns for ; the alternate CLI's "CLI Control Block" (CCB). ; ; The format of the CCB allocated for each alternate CLI is, ; ; ------------------------------------------------- ; ! C.LILK = Receive queue link word (2) ! ; ------------------------------------------------- ; ! C.LIUA = Always 0, distinguishes this ! ; ! packet from unsolicited input ! ; ! which would define TT:'s UCB (2)! ; ------------------------------------------------- ; ! C.LISZ = Size of CCB packet in bytes (2)! ; ------------------------------------------------- ; ! C.LIST = CLI status/control bits (2) ! ; ------------------------------------------------- ; ! C.LINM = RAD50 CLI name, not necessarily! ; ! identical to CLI's task name (4)! ; ------------------------------------------------- ; ! C.LINT = Number of terminals attached ! ; ! to CLI (2) ! ; ------------------------------------------------- ; ! C.LITA = TCB address of CLI (2) ! ; ------------------------------------------------- C.LIFX=size ; ------------------------------------------------- of fixed defn ; ! C.LIPR = Start of CLI prompts; ! ; ! Full (CTRL-C) prompt string ! ; ! in ASCIZ followed by... ! ; ! Default prompt string (ASCIZ) ! ; ! (variable length data block) ! ; ------------------------------------------------- ; ; CLI status bits @ C.LIST are defined when the CLI is initialized ; according to the following bit settings: ; ; CL.ILO = 100000; Set if CLI allows input from un-logged in TT's ; CL.INL = 40000; Set if CLI wants to handle null command ; lines. Default is to allow GCCI$ to issue ; default prompt. ; CL.IEX = 20000; Set if CLI wants to handle task exit packets. ; NOTE: a task exit packet and null command line ; are equivalent unless "$DREIF" code is altered ; CL.IPR = 10000; Set if CLI allows only Privileged users ; to set terminals to this CLI ; ;***** ;- .MACRO CCBDF$,L,B .ASECT ; FORMAT ADOPTED FROM RSX SYSTEM XXXDF$ MACROS .=0 C.LILK:'L' .BLKW 1 ; RECEIVE QUEUE LINK WORD C.LIUA:'L' .BLKW 1 ; DUMMY TT UCB ADDRESS (ALWAYS 0) C.LISZ:'L' .BLKW 1 ; SIZE OF ENTIRE CCB PACKET, TO EASE ; DEALLOCATION C.LIST:'L' .BLKW 1 ; CLI STATUS/CONTROL BITS C.LINM:'L' .BLKW 2 ; RAD50 CLI NAME C.LINT:'L' .BLKW 1 ; NUMBER OF TERMINALS ATTACHED TO CLI C.LITA:'L' .BLKW 1 ; POINTER TO CLI'S TCB C.LIFX='B' . ; LENGTH OF FIXED PORTION OF CCB C.LIPR:'L' ; START OF VARIABLE LENGTH ASCIZ PROMPT STRINGS ; ; CLI STATUS DEFINITIONS (@C.LIST) ; CL.ILO='B'100000 ; IF SET, CLI ALLOWS UN-LOGGED IN TERMINALS ; TO ATTACH TO IT CL.INL='B' 40000 ; IF SET, CLI WILL HANDLE NULL LINE PROMPTING CL.IEX='B' 20000 ; IF SET, CLI WILL HANDLE TASK EXIT PROMPTING CL.IPR='B' 10000 ; IF SET, CLI MAY ONLY BE ATTACHED BY ; PRIVILEGED USERS .ENDM ;CCBDF$ ;