INITIAL         - DCLS COMMAND INTERPRETER INITIALIZATION        22-AUG-1978 01:09:55   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (1)      43  COMMAND INTERPRETER START UP

INITIAL         - DCLS COMMAND INTERPRETER INITIALIZATION        22-AUG-1978 01:09:55   VAX-11 MACRO X0.3-11               Page   1

01                                                                                                                               (1)



                                     0000     1 	.TITLE	INITIAL - DCLS COMMAND INTERPRETER INITIALIZATION

                                     0000     2 	.IDENT	/01/

                                     0000     3 

                                     0000     4 ;

                                     0000     5 ; COPYRIGHT (C) 1977

                                     0000     6 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754

                                     0000     7 ;

                                     0000     8 ; THIS SOFTWARE IS FURNISHED  UNDER A LICENSE FOR USE ONLY ON A SINGLE

                                     0000     9 ; COMPUTER  SYSTEM AND  MAY BE  COPIED ONLY WITH  THE INCLUSION OF THE

                                     0000    10 ; ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE, OR ANY OTHER COPIES THEREOF,

                                     0000    11 ; MAY NOT BE PROVIDED OR  OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON

                                     0000    12 ; EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE

                                     0000    13 ; TERMS.  TITLE TO AND  OWNERSHIP OF THE  SOFTWARE  SHALL AT ALL TIMES

                                     0000    14 ; REMAIN IN DEC.

                                     0000    15 ;

                                     0000    16 ; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE

                                     0000    17 ; AND SHOULD  NOT BE CONSTRUED  AS A COMMITMENT  BY DIGITAL  EQUIPMENT

                                     0000    18 ; CORPORATION.

                                     0000    19 ;

                                     0000    20 ; DEC ASSUMES  NO  RESPONSIBILITY  FOR  THE USE OR  RELIABILITY OF ITS

                                     0000    21 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.

                                     0000    22 ;

                                     0000    23 ; D. N. CUTLER 29-MAR-77

                                     0000    24 ;

                                     0000    25 ; DCLS COMMAND LANGUAGE INTERPRETER INITIALIZATION

                                     0000    26 ;

                                     0000    27 ; MACRO LIBRARY CALLS

                                     0000    28 ;

                                     0000    29  

                                     0000    30 	IDFDEF				;DEFINE INDIRECT FRAME OFFSETS

                                     0000    31 	DEFCMDWRK			;DEFINE COMMAND WORK AREA OFFSETS

                                     0000    32 	DEFSYMTBL			;DEFINE SYMBOL ENTRY OFFSETS

                                     0000    33 	$PSLDEF				;DEFINE PROCESSOR STATUS FIELDS

                                     0000    34 

                                     0000    35 ;

                                     0000    36 ; LOCAL DATA

                                     0000    37 ;

                                     0000    38 ; RESERVED SYMBOL INITIALIZATION CHARACTER STRINGS

                                     0000    39 ;

                                     0000    40  

                                 00000000    41 	.PSECT	DCL$ZCODE,BYTE,RD,NOWRT

INITIAL         - DCLS COMMAND INTERPRETER INITIALIZATION        22-AUG-1978 01:09:55   VAX-11 MACRO X0.3-11               Page   2

01              COMMAND INTERPRETER START UP                                                                                     (1)



                                     0000    43 	.SBTTL	COMMAND INTERPRETER START UP

                                     0000    44 ;+

                                     0000    45 ; DCL$STARTUP - COMMAND INTERPRETER START UP

                                     0000    46 ;

                                     0000    47 ; THIS ENTRY POINT IS JUMPED TO AT THE CONCLUSION OF LOGGING A USER ONTO

                                     0000    48 ; THE SYSTEM. ALL INPUT AND OUTPUT FILES ARE OPEN AND THE COMMAND LANGUAGE

                                     0000    49 ; INDEPENDENT DATA AREA HAS BEEN INITIALIZED.

                                     0000    50 ;-

                                     0000    51  

                                 00000000    52 	.PSECT	DCL$$BASE,BYTE,RD,NOWRT

                                     0000    53 DCL$STARTUP::				;COMMAND INTERPRETER START UP

                     0000'CF     17  0000    54 	JMP	W^START			;TRANSFER TO START UP CODE

                                 00000000    55 	.PSECT	DCL$ZCODE,BYTE,RD,NOWRT

            5E   00000008'9F     D0  0000    56 START:	MOVL	@#CTL$AL_STACK+8,SP	;RELOAD SUPERVISOR STACK POINTER

                                     0007    57 	$RUNDWN_S #PSL$C_USER		;RUNDOWN LOGIN IMAGE

                          7E     D4  0010    58 	CLRL	-(SP)			;SET UP DUMMY ZERO PSL

         16'AF            6E     FA  0012    59 	CALLG	(SP),B^10$		;CREATE INITIAL CALL FRAME

                          0000       0016    60 10$:	.WORD	^M<>			;ENTRY MASK

            5B   00000000'9F     9E  0018    61 	MOVAB	@#CTL$AG_CLIDATA,R11	;GET ADDRESS OF COMMAND WORK AREA

            6B            5C     7D  001F    62 	MOVQ	AP,PRC_L_SAVAP(R11)	;SAVE INITIAL ARGUMENT AND FRAME POINTERS

   00000000'9F       0002'CF     9E  0022    63 	MOVAB	W^DCL$UTLSERV+2,@#CTL$AL_CLICALBK ;SET CALL BACK VECTOR

                                     002B    64 	ENBCONTRLY			;ENABLE CONTROL Y AST'S

       0090 CB            04     B0  002E    65 	MOVW	#4,PRC_B_EXMDEPWID(R11)	;SET EXAMINE MODE TO HEX,WIDTH TO 4

                                     0033    66 	$DCLCMH_S W^DCL$CHANGE_MODE	; SET CHANGE MODE TO SUPER HANDLER

                          FFBB'  31  0042    67 	BRW	DCL$RESTART		;START COMMAND INTERPRETATION

                                     0045    68  

                                     0045    69 	.END

INITIAL         - DCLS COMMAND INTERPRETER INITIALIZATION        22-AUG-1978 01:09:55   VAX-11 MACRO X0.3-11               Page   3

SYMBOL TABLE                                                                                                                     (1)



BIT...         = 00000000            PRC_L_ONERROR    00000058            PSL$M_FU       = 00000040            

CMDBUFSIZ      = 000001FC            PRC_L_OUTRAB     0000000C            PSL$M_IPL      = 001F0000            

CTL$AG_CLIDATA   ********   X   03   PRC_L_PROCUIC    00000098            PSL$M_IS       = 04000000            

CTL$AL_CLICALBK  ********   X   03   PRC_L_SAVAP      00000000            PSL$M_IV       = 00000020            

CTL$AL_STACK     ********   X   03   PRC_L_SAVFP      00000004            PSL$M_PRVMOD   = 00C00000            

DCL$CHANGE_MODE  ********   X   03   PRC_L_SEVERITY   00000040            PSL$M_SAFBITS  = 000037FF            

DCL$ENBCONTRLY   ********   X   03   PRC_L_STACKLM    00000088            PSL$M_TBIT     = 00000010            

DCL$RESTART      ********   X   03   PRC_L_STACKPT    00000084            PSL$M_TP       = 40000000            

DCL$STARTUP      00000000 RG    04   PRC_L_STATUS     00000044            PSL$S_CURMOD   = 00000002            

DCL$UTLSERV      ********   X   03   PRC_L_SYMBOL     0000004C            PSL$S_IPL      = 00000005            

GBL...         = 00000000            PRC_M_CNTRLY   = 00000002            PSL$S_PRVMOD   = 00000002            

IDF_K_LENGTH     0000005C            PRC_M_DBGQUAL  = 00000200            PSL$V_CM       = 0000001F            

IDF_L_INPRABCTX  0000000C            PRC_M_DBGTRUE  = 00000400            PSL$V_CURMOD   = 00000018            

IDF_L_ONCTLY     00000058            PRC_M_DISABL   = 00000004            PSL$V_DV       = 00000007            

IDF_L_ONERROR    00000008            PRC_M_EXIT     = 00000008            PSL$V_FPD      = 0000001B            

IDF_L_OUTRABCTX  00000010            PRC_M_GOEOF    = 00000001            PSL$V_FU       = 00000006            

IDF_Q_LABEL      0000001C            PRC_M_GOTO     = 00000010            PSL$V_IPL      = 00000010            

IDF_Q_LOCAL      00000014            PRC_M_HANGUP   = 00001000            PSL$V_IS       = 0000001A            

IDF_T_INPDVI     00000034            PRC_M_IND      = 00000020            PSL$V_IV       = 00000005            

IDF_T_OUTDVI     00000024            PRC_M_MODE     = 00000040            PSL$V_PRVMOD   = 00000016            

IDF_V_INPOPN   = 00000000            PRC_M_NOCTLY   = 00004000            PSL$V_TBIT     = 00000004            

IDF_W_FLAG       00000056            PRC_M_PAUSE    = 00002000            PSL$V_TP       = 0000001E            

IDF_W_INPDID     0000004A            PRC_M_USRDET   = 00000100            RSLBUFSIZ      = 00000180            

IDF_W_INPFID     00000044            PRC_M_VERIFY   = 00000080            START            00000000 R     03   

IDF_W_INPIFI     00000000            PRC_M_YLEVEL   = 00000800            SYM_B_TYPE       0000000A            

IDF_W_INPRFA     00000050            PRC_Q_ALLOCREG   00000020            SYM_K_DECIMAL  = 00000004            

IDF_W_ONLEVEL    00000006            PRC_Q_GLOBAL     00000028            SYM_K_HEXDEC   = 00000005            

IDF_W_OUTIFI     00000002            PRC_Q_LABEL      00000030            SYM_K_LOGICAL  = 00000002            

IDF_W_OUTISI     00000004            PRC_Q_LOCAL      00000038            SYM_K_OCTAL    = 00000003            

INPBUFSIZ      = 00000084            PRC_V_CNTRLY   = 00000001            SYM_K_PERM     = 00000001            

MSGBUFSIZ      = 00000084            PRC_V_DBGQUAL  = 00000009            SYM_K_STRING   = 00000000            

PRC_B_DEFRADIX   00000092            PRC_V_DBGTRUE  = 0000000A            SYM_L_BL         00000004            

PRC_B_EXMDEPMOD  00000091            PRC_V_DISABL   = 00000002            SYM_L_FL         00000000            

PRC_B_EXMDEPWID  00000090            PRC_V_EXIT     = 00000003            SYM_T_SYMBOL     0000000C            

PRC_K_DEC      = 00000001            PRC_V_GOEOF    = 00000000            SYM_W_SIZE       00000008            

PRC_K_HEX      = 00000000            PRC_V_GOTO     = 00000004            SYS$DCLCMH       ********   X   03   

PRC_K_LENGTH     000000A0            PRC_V_HANGUP   = 0000000C            SYS$RUNDWN       ********   X   03   

PRC_K_OCT      = 00000002            PRC_V_IND      = 00000005            WRK_AB_BUFFER    FFFFFD38            

PRC_L_CLIWRK0    0000005C            PRC_V_MODE     = 00000006            WRK_AG_RESULT    FFFFFBB4            

PRC_L_CLIWRK1    00000060            PRC_V_NOCTLY   = 0000000E            WRK_B_VERBTYP    FFFFFFC0            

PRC_L_CLIWRK2    00000064            PRC_V_PAUSE    = 0000000D            WRK_K_LENGTH     FFFFFBB4            

PRC_L_CLIWRK3    00000068            PRC_V_USRDET   = 00000008            WRK_L_CHARPTR    FFFFFFFC            

PRC_L_CLIWRK4    0000006C            PRC_V_VERIFY   = 00000007            WRK_L_CMDOUT     FFFFFFBC            

PRC_L_ERRRAB     00000010            PRC_V_YLEVEL   = 0000000B            WRK_L_IMAGE      FFFFFFEC            

PRC_L_EXMDEPADR  0000008C            PRC_W_CLIFLAG    00000052            WRK_L_MAXPARM    FFFFFFE4            

PRC_L_EXTARG     00000078            PRC_W_ERRIFI     00000052            WRK_L_MINPARM    FFFFFFE8            

PRC_L_EXTBLK     00000070            PRC_W_FLAGS      00000054            WRK_L_PARMCNT    FFFFFFF0            

PRC_L_EXTCOD     00000080            PRC_W_INPCHAN    00000050            WRK_L_PAROUT     FFFFFFF4            

PRC_L_EXTHND     00000074            PRC_W_ONLEVEL    00000056            WRK_L_PROMPT     FFFFFFD0            

PRC_L_EXTPRM     0000007C            PSL$C_EXEC     = 00000001            WRK_L_PROPTR     FFFFFFDC            

PRC_L_INDEPTH    00000048            PSL$C_KERNEL   = 00000000            WRK_L_QUABLK     FFFFFFE0            

PRC_L_INDFAB     0000001C            PSL$C_SUPER    = 00000002            WRK_L_RSLNXT     FFFFFD34            

PRC_L_INDINPRAB  00000014            PSL$C_USER     = 00000003            WRK_L_SAVAP      FFFFFFC8            

PRC_L_INDOUTRAB  00000018            PSL$M_CM       = 80000000            WRK_L_SAVFP      FFFFFFCC            

PRC_L_INPRAB     00000008            PSL$M_CURMOD   = 03000000            WRK_L_SAVSP      FFFFFFC4            

PRC_L_LSTSTATUS  00000094            PSL$M_DV       = 00000080            WRK_M_COMMAND  = 00000002            

PRC_L_ONCTLY     0000009C            PSL$M_FPD      = 08000000            WRK_M_IMCHNG   = 00000004            

INITIAL         - DCLS COMMAND INTERPRETER INITIALIZATION        22-AUG-1978 01:09:55   VAX-11 MACRO X0.3-11               Page   4

SYMBOL TABLE                                                                                                                     (1)



WRK_M_INQUIRE  = 00000100            

WRK_M_NOSTAT   = 00000200            

WRK_M_PROMPT   = 00000008            

WRK_M_QUAL     = 00000010            

WRK_M_QUOTE    = 00000020            

WRK_M_RUNDWN   = 00000001            

WRK_M_STAR     = 00000040            

WRK_M_TRAILSPC = 00000400            

WRK_M_VERB     = 00000080            

WRK_Q_IOSB       FFFFFFD4            

WRK_V_COMMAND  = 00000001            

WRK_V_IMCHNG   = 00000002            

WRK_V_INQUIRE  = 00000008            

WRK_V_NOSTAT   = 00000009            

WRK_V_PROMPT   = 00000003            

WRK_V_QUAL     = 00000004            

WRK_V_QUOTE    = 00000005            

WRK_V_RUNDWN   = 00000000            

WRK_V_STAR     = 00000006            

WRK_V_TRAILSPC = 0000000A            

WRK_V_VERB     = 00000007            

WRK_W_FLAGS      FFFFFFFA            

WRK_W_IMGCHAN    FFFFFFF8            





PROGRAM SECTION SYNOPSIS



.  ABS  .        00000000      00     NOPIC   USR   CON   ABS   LCL NOSHR NOEXE NORD  NOWRT BYTE  

. BLANK .        00000000      01     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD    WRT BYTE  

$ABS$            FFFFFFFC      02     NOPIC   USR   CON   ABS   LCL NOSHR   EXE   RD    WRT BYTE  

DCL$ZCODE        00000045      03     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD  NOWRT BYTE  

DCL$$BASE        00000004      04     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD  NOWRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

20500. BYTES LEFT IN FREE MEMORY POOL.

216. BYTES OF RECLAIMED MEMORY.

EXE$:INITIAL,LIS$:INITIAL/-SP=EXECML$/ML,LIB$:DCL/ML,SRC$:INITIAL

28 MLB DIR RDS - 326 GETS TO DEFINE 19 MACROS. 21 INTER. FILE WRITES. 

