.TITLE CLIDAT - DATA SECTION FOR "CLI" TASK .IDENT /011783/ .ENABL GBL .ENABL LC .LIST BEX ; ;+ ;***** ; ; CLIDAT.MAC defines all global pure/impure data and symbols required by ; the "CLI" task. ; ;***** ; ; Update 1/17/84 -- PRS; Original edit ; Update 1/28/85 -- PRS; "ERRMSG" placed in macro library ; ;***** ;- .MCALL CCBDF$,GMCR$ .MCALL ERRMSG ; ; *** ALL GLOBAL SYMBOLS REQUIRED ; .IIF NDF N$$CLI N$$CLI==16. ; SET DEFAULT # CLI'S TO SUPPORT CCBDF$ <:>,<=> ; DEFINE CLI CONTROL BLOCK GLOBALLY TI$LUN==1 ; DEFAULT UNIT FOR TI: TI$EFN==1 ; ; *** ALL PURE (READ-ONLY) DATA REQUIRED ; .PSECT $PDATA,RO,D,LCL,CON,REL ; $$$=. $CIDIC:: ; GLOBAL R/O DEFINITION FOR GET-MCR-COMMAND DIC GMCR$ .=$$$+2 $CIMSG:: ; START OF ERROR MESSAGE DEFINITIONS, EACH ; ENTRY IS WORD ALIGNED AND CONSISTS OF ; ERROR CODE #, BYTE COUNT OF ERROR TEXT, ; TEXT PROPER ERRMSG IE.INS, ERRMSG IE.UPN, ERRMSG IE.ITS, ERRMSG IE.ACT, ERRMSG IE.UNS, ERRMSG IE.RSU, ERRMSG IE.IDU, ERRMSG IE.ITP, ERRMSG IE.PRI, ERRMSG IE.AST, ; table must terminate with a +ve error code # ERRMSG IS.SUC, ; ; *** ALL IMPURE (READ/WRITE) DATA REQUIRED ; .PSECT $IDATA,RW,D,LCL,CON,REL $CIEXS:: ; GLOBAL LOCATION TO SET EXIT STATUS .WORD EX$SUC $CIMCR:: ; BUFFER FOR MCR COMMANDS, 1ST WORD WILL BE GMCR$ ; USED FOR BOTH DIC AND LENGTH OF ANY MCR COMMAND ; ONCE GMCR$ DIRECTIVE ISSUED $CINAM:: ; SPACE FOR CLI'S NAME, 2 RAD50 WORDS .BLKW 2 $CITSK:: ; SPACE FOR CLI'S TASK NAME .BLKW 2 ; $CIDEV:: ; 2 BYTE ASCII NAME OF TERMINAL DEVICE .WORD 0 $CIUNT:: ; UNIT # FOR DEVICE .WORD 0 $CIDCB:: ; $CIDEV'S DCB ADDRESS...ONLY USED FOR SUCCESSIVE .WORD 0 ; CALLS TO ".CIUCB" DURING A DISPLAY OF ALL ; TERMINAL CLI ASSIGNMENTS $CIUCB:: ; $CIDEV'S UCB ADDRESS .WORD 0 $CIUC2:: ; 2ND UNIT CONTROL WORD (U.CW2) OF UCB @$CIUCB .WORD 0 $CICLI:: ; TERMINAL'S UCB CLI POINTER (U.CLI) OF UCB @$CIUCB .WORD 0 ; $CIFLG:: ; FLAGS WORD FOR CONTROLLING THIS TASK'S ACTIVITY .WORD 0 CI.SHW==1 ; BIT SETTINGS FOR VALID KEYWORDS, ORDERED BY CI.SET==2 ; PRIVILEGE REQUIREMENTS ON TI: CI.INI==4 CI.ELI==10 $CIFL2:: .WORD 0 ; FLAGS WORD FOR DEFINING CLI TASK'S CONTROL BITS ; $CIDPR:: ; /INIT DEFAULT PROMPT STRING .WORD 0 ; 1ST WORD = LENGTH .BLKB 40. ; BUFFER FOR ASCIZ STRING $CICPR:: ; /INIT CTRL-C PROMPT STRING .WORD 0 ; 1ST WORD = LENGTH .BLKB 40. ; BUFFER OR ASCIZ STRING ; $CINUM:: ; NUMBER OF CLI'S IN SYSTEM .WORD 0 $CILST:: ; LIST OF POINTERS TO ALL CLI'S, 2 WORDS/CLI .BLKW N$$CLI*2 ; 1ST WORD = POINTS TO CLI'S RAD50 NAME ; 2ND WORD = POINTS TO CLI'S TCB POINTER .WORD 0 ; NULL WORD TERMINATES LIST ; $CITCB:: ; ADDRESS OF CLI'S TCB .WORD 0 $CICCB:: ; ADDRESS OF CLI'S "CLI CONTROL BLOCK" (CCB) .WORD 0 ; .END ;CLIDAT