LOADERSUB       - LOADER SUBROUTINES                             21-AUG-1978 22:28:36   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (1)    4000  DECLARATIONS

   (1)   12800  IOGEN$LOCK_IODB/IOGEN$UNLK_IODB

   (1)   16300  IOGEN$ALLOBLOCK

   (1)   19200  IOGEN$CNTRL_INI

LOADERSUB       - LOADER SUBROUTINES                             21-AUG-1978 22:28:36   VAX-11 MACRO X0.3-11               Page   1

X01                                                                                                                              (1)



                                     0000   100 	.TITLE	LOADERSUB - LOADER SUBROUTINES

                                     0000   200 	.IDENT	/X01/

                                     0000   300 

                                     0000   400 ;

                                     0000   500 ; COPYRIGHT (C) 1978

                                     0000   600 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754

                                     0000   700 ;

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

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

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

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

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

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

                                     0000  1400 ; REMAIN IN DEC.

                                     0000  1500 ;

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

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

                                     0000  1800 ; CORPORATION.

                                     0000  1900 ;

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

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

                                     0000  2200 ;

                                     0000  2300 

                                     0000  2400 ;++

                                     0000  2500 ; FACILITY:	I/O DATABASE GENERATOR

                                     0000  2600 ;

                                     0000  2700 ; ABSTRACT:	LOADER SUBROUTINES

                                     0000  2800 ;

                                     0000  2900 ;

                                     0000  3000 ; ENVIRONMENT:	USER MODE PRIVILEGED CODE

                                     0000  3100 ;

                                     0000  3200 ; AUTHOR:	LEN KAWELL, CREATION DATE:16-JUN-716

                                     0000  3300 ;

                                     0000  3400 ; MODIFIED BY:

                                     0000  3500 ;

                                     0000  3600 ;	, : VERSION

                                     0000  3700 ; 01	- 

                                     0000  3800 ;--

LOADERSUB       - LOADER SUBROUTINES                             21-AUG-1978 22:28:36   VAX-11 MACRO X0.3-11               Page   2

X01             DECLARATIONS                                                                                                     (1)



                                     0000  4000 	.SBTTL	DECLARATIONS

                                     0000  4100 

                                     0000  4200 

                                     0000  4300 ;

                                     0000  4400 ; INCLUDE FILES:

                                     0000  4500 ;

                                     0000  4600 

                                     0000  4700 ;

                                     0000  4800 ; MACROS:

                                     0000  4900 ;

                                     0000  5000 

                                     0000  5100 ;

                                     0000  5200 ; EQUATED SYMBOLS:

                                     0000  5300 ;

                                     0000  5400 

                                     0000  5600 	$PRDEF				;DEFINE PROCESSOR REGISTERS

                                     0000  5650 	$UCBDEF				;DEFINE UCB OFFSETS

                                     0000  5652 	$DDBDEF				;DEFINE DDB OFFSETS

                                     0000  5654 	$CRBDEF				;DEFINE CRB OFFSETS

                                     0000  5656 	$IDBDEF				;DEFINE IDB OFFSETS

                                     0000  5658 	$VECDEF				;DEFINE CRB DISPATCHER OFFSETS

                                     0000  5660 	$UBADEF				;DEFINE UBA REGISTERS

                                     0000  5662 	$ADPDEF				;DEFINE ADP OFFSETS

                                     0000  5664 	$DPTDEF				;DEFINE DPT OFFSETS

                                     0000  5700 

                                     0000  5800 ;

                                     0000  5900 ; OWN STORAGE:

                                     0000  6000 ;

                                     0000  6100 

                                     0000  6200 

LOADERSUB       - LOADER SUBROUTINES                             21-AUG-1978 22:28:36   VAX-11 MACRO X0.3-11               Page   3

X01             IOGEN$LOCK_IODB/IOGEN$UNLK_IODB                                                                                  (1)



                                     0000 12800 	.SBTTL	IOGEN$LOCK_IODB/IOGEN$UNLK_IODB

                                     0000 12900 ;++

                                     0000 13000 ; IOGEN$LOCK_IODB - LOCK THE SYSTEM I/O DATABASE FOR WRITE

                                     0000 13100 ; IOGEN$UNLK_IODB - UNLOCK THE SYSTEM I/O DATABASE

                                     0000 13200 ;

                                     0000 13300 ; FUNCTIONAL DESCRIPTION:

                                     0000 13400 ;

                                     0000 13500 ;	LOCK - GETS THE I/O DATABASE MUTEX FOR WRITE

                                     0000 13600 ;	UNLOCK - RETURNS THE I/O DATABASE MUTEX AND RETURNS IPL TO 1.

                                     0000 13700 ;

                                     0000 13800 ;

                                     0000 13900 ; INPUTS:

                                     0000 14000 ;

                                     0000 14100 ;	NONE

                                     0000 14200 ;

                                     0000 14300 ; OUTPUTS:

                                     0000 14400 ;

                                     0000 14500 ;	I/O DATABASE LOCKED AND IPL RAISED OR UNLOCKED AND IPL LOWERED

                                     0000 14600 ;--

                                 00000000 14650 	.PSECT	IOGEN$CODE RD,NOWRT,EXE

                                     0000 14700 

                                     0000 14800 IOGEN$LOCK_IODB::

            50   00000000'GF     DE  0000 14900 	MOVAL	G^IOC$GL_MUTEX,R0	; GET I/O DATA BASE MUTEX

            54   00000000'GF     D0  0007 15000 	MOVL	G^SCH$GL_CURPCB,R4	; GET OWN PCB ADDRESS

                 00000000'GF     16  000E 15100 	JSB	G^SCH$LOCKW		; AND LOCK IT

                                 05  0014 15200 	RSB

                                     0015 15300 

                                     0015 15400 IOGEN$UNLK_IODB::

            50   00000000'GF     DE  0015 15500 	MOVAL	G^IOC$GL_MUTEX,R0	; GET I/O DATA BASE MUTEX

            54   00000000'GF     D0  001C 15600 	MOVL	G^SCH$GL_CURPCB,R4	; AND OWN PCB ADDRESS

                 00000000'GF     16  0023 15700 	JSB	G^SCH$UNLOCK		; AND UNLOCK IT

                                     0029 15800 	SETIPL	#0			; ALSO LOWER IPL

                                 05  002C 15900 	RSB

LOADERSUB       - LOADER SUBROUTINES                             21-AUG-1978 22:28:36   VAX-11 MACRO X0.3-11               Page   4

X01             IOGEN$ALLOBLOCK                                                                                                  (1)



                                     002D 16300 	.SBTTL	IOGEN$ALLOBLOCK

                                     002D 16400 ;++

                                     002D 16500 ;

                                     002D 16600 ; IOGEN$ALLOBLOCK - ALLOCATE CONTROL BLOCKS

                                     002D 16700 ;

                                     002D 16800 ;	ALLOCATES A BLOCK OF MEMORY FROM THE NON-PAGED POOL AND

                                     002D 16900 ;	ZEROS IT.

                                     002D 17000 ;

                                     002D 17100 ; INPUTS:

                                     002D 17150 ;

                                     002D 17200 ;	R1 = SIZE OF BLOCK DESIRED

                                     002D 17300 ;

                                     002D 17400 ; OUTPUTS:

                                     002D 17450 ;

                                     002D 17500 ;	R0 = STATUS OF ALLOCATION

                                     002D 17600 ;	R1 = SIZE OF ALLOCATED BLOCK

                                     002D 17700 ;	R2 = ADDRESS OF ALLOCATED BLOCK

                                     002D 17800 ;

                                     002D 17900 ;--

                                     002D 18000 IOGEN$ALLOBLOCK::

                          38     BB  002D 18050 	PUSHR	#^M<R3,R4,R5>		;SAVE REGISTERS

                 00000000'GF     16  002F 18100 	JSB	G^EXE$ALONONPAGED	;ALLOCATE NON-PAGED POOL

            08            50     E8  0035 18200 	BLBS	R0,10$			;BR IF SUCCESS

            50       0000'8F     3C  0038 18300 	MOVZWL	#SS$_INSFMEM,R0		;SET ERROR STATUS

                          38     BA  003D 18350 	POPR	#^M<R3,R4,R5>		;RESTORE REGISTERS

                                 05  003F 18400 	RSB				;RETURN

                                     0040 18500 10$:

                          07     BB  0040 18600 	PUSHR	#^M<R0,R1,R2>		;SAVE REGISTERS

         FC AF            00     2C  0042 18700 20$:	MOVC5	#0,20$,#0,R1,(R2)	;ZERO THE BUFFER

            51            00         0046       

                          62         0048       

                          3F     BA  0049 18800 	POPR	#^M<R0,R1,R2,R3,R4,R5>	;RESTORE REGISTERS

                                 05  004B 18900 	RSB				;RETURN

                                     004C 19000 

LOADERSUB       - LOADER SUBROUTINES                             21-AUG-1978 22:28:36   VAX-11 MACRO X0.3-11               Page   5

X01             IOGEN$CNTRL_INI                                                                                                  (1)



                                     004C 19200 	.SBTTL	IOGEN$CNTRL_INI

                                     004C 19300 ;++

                                     004C 19400 ;

                                     004C 19500 ; IOGEN$CNTRL_INI - INITIALIZE THE DEVICE CONTROLLER

                                     004C 19600 ;

                                     004C 19700 ; INPUTS - R6 = ADDR OF DDB

                                     004C 19800 ;	   R11 = ADDR OF DRIVER PROLOGUE TABLE

                                     004C 19900 ;

                                     004C 20000 ;--

                                     004C 20100 IOGEN$CNTRL_INI::

         0C AB         00'8F     91  004C 20200 	CMPB	#AT$_UBA,DPT$B_ADPTYPE(R11) ;UBA DEVICE?

                          2F     12  0051 20300 	BNEQ	20$			;BR IF NOT

                     0FFC 8F     BB  0053 20350 	PUSHR	#^M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> ;SAVE REGISTERS

            50         04 A6     D0  0057 20400 	MOVL	DDB$L_UCB(R6),R0	;GET ADDR OF FIRST UCB

            58         20 A0     D0  005B 20500 	MOVL	UCB$L_CRB(R0),R8	;GET ADDR OF CRB

            55         1C A8     D0  005F 20600 	MOVL	CRB$L_INTD+VEC$L_IDB(R8),R5 ;SET ADDR OF IDB

            54            65     D0  0063 20700 	MOVL	IDB$L_CSR(R5),R4	;SET ADDR OF CSR

            50         0C A5     D0  0066 20800 	MOVL	IDB$L_ADP(R5),R0	;GET ADDR OF ADP

            50            60     D0  006A 20810 	MOVL	ADP$L_CSR(R0),R0	;GET ADDR OF UBA CSR

                          64     B5  006D 20820 	TSTW	(R4)			;TEST IF CONTROLLER EXISTS

         08 A0         08 A0     D0  006F 20830 	MOVL	UBA$L_SR(R0),UBA$L_SR(R0) ;TEST FOR ERROR AND CLEAR IT

                          08     12  0074 20840 	BNEQ	10$			;BR IF THERE WAS AN ERROR

            50         20 A8     D0  0076 21000 	MOVL	CRB$L_INTD+VEC$L_INITIAL(R8),R0 ;GET ADDR OF INIT ROUTINE

                          02     13  007A 21100 	BEQL	10$			;BR IF NONE

                                     007C 21102 				;R4 = ADDR OF CSR

                                     007C 21104 				;R5 = ADDR OF IDB

                                     007C 21106 				;R8 = ADDR OF CRB

                          60     16  007C 21300 	JSB	(R0)			;INIT CONTROLLER

                                     007E 21350 10$:

                     0FFC 8F     BA  007E 21400 	POPR	#^M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> ;RESTORE REGISTERS

                                     0082 21500 20$:	

                                 05  0082 21600 	RSB

                                     0083 21610 

                                     0083 21620 	.END

LOADERSUB       - LOADER SUBROUTINES                             21-AUG-1978 22:28:36   VAX-11 MACRO X0.3-11               Page   6

SYMBOL TABLE                                                                                                                     (1)



ADP$B_NUMBER     0000000B            DPT$L_FLINK      00000000            PR$_SID        = 0000003E            

ADP$B_TYPE       0000000A            DPT$M_NOUNLOAD = 00000004            PR$_SIRR       = 00000014            

ADP$C_MBAADPLEN  00000014            DPT$M_SUBCNTRL = 00000001            PR$_SISR       = 00000015            

ADP$C_NUMDATAP = 00000010            DPT$M_SVP      = 00000002            PR$_SLR        = 0000000D            

ADP$C_UBAADPLEN  00000070            DPT$T_NAME       00000016            PR$_SSP        = 00000002            

ADP$K_MBAADPLEN  00000014            DPT$V_NOUNLOAD = 00000002            PR$_TBIA       = 00000039            

ADP$K_UBAADPLEN  00000070            DPT$V_SUBCNTRL = 00000000            PR$_TBIS       = 0000003A            

ADP$L_CRB        00000010            DPT$V_SVP      = 00000001            PR$_TODR       = 0000001B            

ADP$L_CSR        00000000            DPT$W_INITTAB    00000010            PR$_TXCS       = 00000022            

ADP$L_DPQBL      00000018            DPT$W_REINITTAB  00000012            PR$_TXDB       = 00000023            

ADP$L_DPQFL      00000014            DPT$W_SIZE       00000008            PR$_USP        = 00000003            

ADP$L_INTD       00000064            DPT$W_UCBSIZE    0000000E            PR$_WCSA       = 0000002C            

ADP$L_LINK       00000004            DPT$W_UNLOAD     00000014            PR$_WCSD       = 0000002D            

ADP$L_MRQBL      00000020            EXE$ALONONPAGED  ********   X   03   SCH$GL_CURPCB    ********   X   03   

ADP$L_MRQFL      0000001C            GBL...         = 00000000            SCH$LOCKW        ********   X   03   

ADP$L_VECTOR     00000010            IDB$B_TYPE       0000000A            SCH$UNLOCK       ********   X   03   

ADP$W_ADPTYPE    0000000E            IDB$B_UNITS      0000000B            SS$_INSFMEM      ********   X   03   

ADP$W_DPBITMAP   00000024            IDB$C_LENGTH     00000030            UBA$L_BRRVR      00000030            

ADP$W_MRBITMAP   00000026            IDB$K_LENGTH     00000030            UBA$L_BRSVR      00000020            

ADP$W_SIZE       00000008            IDB$L_ADP        0000000C            UBA$L_CR         00000004            

ADP$W_TR         0000000C            IDB$L_CSR        00000000            UBA$L_CSR        00000000            

AT$_UBA          ********   X   03   IDB$L_OWNER      00000004            UBA$L_DCR        0000000C            

BIT...         = 00000003            IDB$L_UCBLST     00000010            UBA$L_DPR        00000040            

CRB$B_MASK       0000000E            IDB$W_SIZE       00000008            UBA$L_FMER       00000010            

CRB$B_TT_ATTN    00000004            IOC$GL_MUTEX     ********   X   03   UBA$L_FUBAR      00000014            

CRB$B_TT_EXPEC   00000005            IOGEN$ALLOBLOCK  0000002D RG    03   UBA$L_MAP        00000800            

CRB$B_TYPE       0000000A            IOGEN$CNTRL_INI  0000004C RG    03   UBA$L_SR         00000008            

CRB$C_LENGTH     00000038            IOGEN$LOCK_IODB  00000000 RG    03   UBA$M_BRRVR_AIR= 80000000            

CRB$K_LENGTH     00000038            IOGEN$UNLK_IODB  00000015 RG    03   UBA$M_CR_ARLVL = 00000180            

CRB$L_INTD       00000014            PR$_ACCR       = 00000029            UBA$M_CR_BRIE  = 00000020            

CRB$L_INTD2      00000038            PR$_ACCS       = 00000028            UBA$M_CR_CNFIE = 00000004            

CRB$L_LINK       00000010            PR$_ASTLVL     = 00000013            UBA$M_CR_IFSIE = 00000040            

CRB$L_TT_DIAL    00000000            PR$_ESP        = 00000001            UBA$M_CR_INIT  = 00000001            

CRB$L_WQBL       00000004            PR$_ICCS       = 00000018            UBA$M_CR_SUEFIE= 00000008            

CRB$L_WQFL       00000000            PR$_ICR        = 0000001A            UBA$M_CR_UBPF  = 00000002            

CRB$M_BSY      = 00000001            PR$_IPL        = 00000012            UBA$M_CR_USEFIE= 00000010            

CRB$V_BSY      = 00000000            PR$_ISP        = 00000004            UBA$M_CSR_IS   = 10000000            

CRB$W_REFC       0000000C            PR$_KSP        = 00000000            UBA$M_CSR_MT   = 08000000            

CRB$W_SIZE       00000008            PR$_MAPEN      = 00000038            UBA$M_CSR_OT   = 00200000            

DDB$B_ACPCLASS   00000013            PR$_NICR       = 00000019            UBA$M_CSR_PD   = 00800000            

DDB$B_TYPE       0000000A            PR$_P0BR       = 00000008            UBA$M_CSR_PE   = 80000000            

DDB$C_LENGTH     00000034            PR$_P0LR       = 00000009            UBA$M_CSR_PU   = 00400000            

DDB$K_LENGTH     00000034            PR$_P1BR       = 0000000A            UBA$M_CSR_UBIC = 00010000            

DDB$L_ACPD       00000010            PR$_P1LR       = 0000000B            UBA$M_CSR_UBIIP= 00040000            

DDB$L_DDT        0000000C            PR$_PCBB       = 00000010            UBA$M_CSR_UBPDN= 00020000            

DDB$L_LINK       00000000            PR$_PME        = 0000003D            UBA$M_CSR_URD  = 20000000            

DDB$L_UCB        00000004            PR$_RXCS       = 00000020            UBA$M_CSR_WS   = 40000000            

DDB$T_DRVNAME    00000024            PR$_RXDB       = 00000021            UBA$M_CSR_XMFLT= 04000000            

DDB$T_NAME       00000014            PR$_SBIER      = 00000034            UBA$M_DPR_BNE  = 80000000            

DDB$W_SIZE       00000008            PR$_SBIFS      = 00000030            UBA$M_DPR_DPF  = 20000000            

DPT$B_ADPTYPE    0000000C            PR$_SBIMT      = 00000033            UBA$M_DPR_XMTER= 40000000            

DPT$B_FLAGS      0000000D            PR$_SBIQC      = 00000036            UBA$M_MAP_BO   = 02000000            

DPT$B_REFC       0000000B            PR$_SBIS       = 00000031            UBA$M_MAP_VALID= 80000000            

DPT$B_TYPE       0000000A            PR$_SBISC      = 00000032            UBA$M_SR_BRID  = 00000800            

DPT$C_LENGTH     00000022            PR$_SBITA      = 00000035            UBA$M_SR_BRSVF = 10000000            

DPT$K_LENGTH     00000022            PR$_SBR        = 0000000C            UBA$M_SR_CRD   = 00000100            

DPT$L_BLINK      00000004            PR$_SCBB       = 00000011            UBA$M_SR_CXTER = 00000080            

LOADERSUB       - LOADER SUBROUTINES                             21-AUG-1978 22:28:36   VAX-11 MACRO X0.3-11               Page   7

SYMBOL TABLE                                                                                                                     (1)



UBA$M_SR_CXTMO = 00000040            UBA$V_SR_BRID  = 0000000B            UCB$L_FIRST      00000014            

UBA$M_SR_DPPE  = 00000020            UBA$V_SR_BRRVF = 00000018            UCB$L_FPC        0000000C            

UBA$M_SR_IVMR  = 00000010            UBA$V_SR_BRSVF = 0000001C            UCB$L_FQBL       00000004            

UBA$M_SR_LER   = 00000004            UBA$V_SR_CRD   = 00000008            UCB$L_FQFL       00000000            

UBA$M_SR_MRPE  = 00000008            UBA$V_SR_CXTER = 00000007            UCB$L_FR3        00000010            

UBA$M_SR_RDS   = 00000200            UBA$V_SR_CXTMO = 00000006            UCB$L_FR4        00000014            

UBA$M_SR_RDTO  = 00000400            UBA$V_SR_DPPE  = 00000005            UCB$L_IOQBL      00000044            

UBA$M_SR_RIE   = 20000000            UBA$V_SR_IVMR  = 00000004            UCB$L_IOQFL      00000040            

UBA$M_SR_SSYNC = 00000001            UBA$V_SR_LER   = 00000002            UCB$L_IRP        0000004C            

UBA$M_SR_UBIFS = 40000000            UBA$V_SR_MRPE  = 00000003            UCB$L_LINK       0000002C            

UBA$M_SR_UBSTO = 00000002            UBA$V_SR_RDS   = 00000009            UCB$L_LOGADR     00000064            

UBA$S_BRRVR_IVA= 00000010            UBA$V_SR_RDTO  = 0000000A            UCB$L_MAXBLOCK   00000084            

UBA$S_CR_ARLVL = 00000002            UBA$V_SR_RIE   = 0000001D            UCB$L_MEDIA      0000008C            

UBA$S_CR_MRDSB = 00000005            UBA$V_SR_SSYNC = 00000000            UCB$L_NT_DATSSB  00000074            

UBA$S_CSR_ADCOD= 00000008            UBA$V_SR_UBIFS = 0000001E            UCB$L_NT_INTSSB  00000078            

UBA$S_DPR_ADDR = 00000010            UBA$V_SR_UBSTO = 00000001            UCB$L_OPCNT      00000060            

UBA$S_DPR_STATE= 00000008            UCB$B_AMOD       00000053            UCB$L_OWNUIC     0000001C            

UBA$S_FMER_MRN = 00000009            UCB$B_CEX        00000077            UCB$L_PID        00000028            

UBA$S_FUBAR_ADR= 00000012            UCB$B_CM1        0000004A            UCB$L_RQBL       00000004            

UBA$S_MAP_ADDR = 00000015            UCB$B_CM2        0000004B            UCB$L_RQFL       00000000            

UBA$S_MAP_DPD  = 00000004            UCB$B_DEVCLASS   00000038            UCB$L_SVAPTE     00000068            

UBA$S_SR_BRRVF = 00000004            UCB$B_DEVTYPE    00000039            UCB$L_SVPN       00000064            

UBA$V_BRRVR_AIR= 0000001F            UCB$B_DIPL       00000052            UCB$L_TTCHAR     0000003C            

UBA$V_BRRVR_IVA= 00000000            UCB$B_DX_SCTCNT  000000A6            UCB$L_VCB        00000030            

UBA$V_CR_ARLVL = 00000007            UCB$B_ERTCNT     00000070            UCB$M_BACKP    = 00000020            

UBA$V_CR_BRIE  = 00000005            UCB$B_ERTMAX     00000071            UCB$M_BSY      = 00000100            

UBA$V_CR_CNFIE = 00000002            UCB$B_ESCAPE     0000004B            UCB$M_CANCEL   = 00000008            

UBA$V_CR_IFSIE = 00000006            UCB$B_FEX        00000076            UCB$M_DEADMO   = 00000400            

UBA$V_CR_INIT  = 00000000            UCB$B_FIPL       0000000B            UCB$M_DELMBX   = 00000002            

UBA$V_CR_MRDSB = 0000001A            UCB$B_LOCSRV     0000003C            UCB$M_DIAGBUF  = 00000002            

UBA$V_CR_SUEFIE= 00000003            UCB$B_OFFNDX     00000094            UCB$M_DX_WRITE = 00000008            

UBA$V_CR_UBPF  = 00000001            UCB$B_OFFRTC     00000095            UCB$M_ECC      = 00000001            

UBA$V_CR_USEFIE= 00000004            UCB$B_REMSRV     0000003D            UCB$M_ERLOGIP  = 00000004            

UBA$V_CSR_ADCOD= 00000000            UCB$B_SECTORS    0000003C            UCB$M_INT      = 00000002            

UBA$V_CSR_IS   = 0000001C            UCB$B_SLAVE      00000074            UCB$M_INTTYPE  = 00000080            

UBA$V_CSR_MT   = 0000001B            UCB$B_SPR        00000075            UCB$M_JOB      = 00000001            

UBA$V_CSR_OT   = 00000015            UCB$B_STATE      00000052            UCB$M_MOUNTING = 00000200            

UBA$V_CSR_PD   = 00000017            UCB$B_TRACKS     0000003D            UCB$M_NOCNVRT  = 00000004            

UBA$V_CSR_PE   = 0000001F            UCB$B_TYPE       0000000A            UCB$M_NT_BFROVF= 00000004            

UBA$V_CSR_PU   = 00000016            UCB$B_VERTSZ     0000003F            UCB$M_NT_BREAK = 00000020            

UBA$V_CSR_UBIC = 00000010            UCB$C_LENGTH     00000074            UCB$M_NT_NAME  = 00000010            

UBA$V_CSR_UBIIP= 00000012            UCB$C_LOGLNK   = 00000001            UCB$M_ONLINE   = 00000010            

UBA$V_CSR_UBPDN= 00000011            UCB$K_LENGTH     00000074            UCB$M_POWER    = 00000020            

UBA$V_CSR_URD  = 0000001D            UCB$L_AMB        00000054            UCB$M_PRMMBX   = 00000001            

UBA$V_CSR_WS   = 0000001E            UCB$L_ASTQBL     00000010            UCB$M_TIM      = 00000001            

UBA$V_CSR_XMFLT= 0000001A            UCB$L_ASTQFL     0000000C            UCB$M_TIMOUT   = 00000040            

UBA$V_DPR_ADDR = 00000000            UCB$L_CPID       0000005C            UCB$M_TT_NOTIF = 00000004            

UBA$V_DPR_BNE  = 0000001F            UCB$L_CRB        00000020            UCB$M_TT_TIMO  = 00000002            

UBA$V_DPR_DPF  = 0000001D            UCB$L_DDB        00000024            UCB$M_UNLOAD   = 00001000            

UBA$V_DPR_STATE= 00000010            UCB$L_DEVCHAR    00000034            UCB$M_VALID    = 00000800            

UBA$V_DPR_XMTER= 0000001E            UCB$L_DEVDEPEND  0000003C            UCB$S_LNKPRI   = 00000002            

UBA$V_FMER_MRN = 00000000            UCB$L_DPC        00000080            UCB$S_LTYPE    = 00000002            

UBA$V_FUBAR_ADR= 00000000            UCB$L_DUETIM     0000005C            UCB$T_PARTNER    0000000C            

UBA$V_MAP_ADDR = 00000000            UCB$L_DX_BFPNT   0000009C            UCB$V_BACKP    = 00000005            

UBA$V_MAP_BO   = 00000019            UCB$L_DX_BUF     00000098            UCB$V_BSY      = 00000008            

UBA$V_MAP_DPD  = 00000015            UCB$L_DX_RXDB    000000A0            UCB$V_CANCEL   = 00000003            

UBA$V_MAP_VALID= 0000001F            UCB$L_EMB        00000078            UCB$V_DEADMO   = 0000000A            

LOADERSUB       - LOADER SUBROUTINES                             21-AUG-1978 22:28:36   VAX-11 MACRO X0.3-11               Page   8

SYMBOL TABLE                                                                                                                     (1)



UCB$V_DELMBX   = 00000001            VEC$B_NUMREG     00000012            

UCB$V_DIAGBUF  = 00000001            VEC$C_LENGTH     00000024            

UCB$V_DX_WRITE = 00000003            VEC$K_LENGTH     00000024            

UCB$V_ECC      = 00000000            VEC$L_ADP        00000014            

UCB$V_ERLOGIP  = 00000002            VEC$L_IDB        00000008            

UCB$V_INT      = 00000001            VEC$L_INITIAL    0000000C            

UCB$V_INTTYPE  = 00000007            VEC$L_START      0000001C            

UCB$V_JOB      = 00000000            VEC$L_UNITDISC   00000020            

UCB$V_LNKPRI   = 00000006            VEC$L_UNITINIT   00000018            

UCB$V_LTYPE    = 00000000            VEC$M_MAPLOCK  = 00008000            

UCB$V_MOUNTING = 00000009            VEC$M_PATHLOCK = 00000080            

UCB$V_MSGACK   = 00000004            VEC$Q_DISPATCH   00000000            

UCB$V_MSGFLO   = 00000003            VEC$S_DATAPATH = 00000007            

UCB$V_NOCNVRT  = 00000002            VEC$S_MAPREG   = 0000000F            

UCB$V_NT_BFROVF= 00000002            VEC$V_DATAPATH = 00000000            

UCB$V_NT_BREAK = 00000005            VEC$V_MAPLOCK  = 0000000F            

UCB$V_NT_NAME  = 00000004            VEC$V_MAPREG   = 00000000            

UCB$V_ONLINE   = 00000004            VEC$V_PATHLOCK = 00000007            

UCB$V_POWER    = 00000005            VEC$W_MAPREG     00000010            

UCB$V_PRMMBX   = 00000000            

UCB$V_SEGFLO   = 00000002            

UCB$V_TIM      = 00000000            

UCB$V_TIMOUT   = 00000006            

UCB$V_TT_NOTIF = 00000002            

UCB$V_TT_TIMO  = 00000001            

UCB$V_UNLOAD   = 0000000C            

UCB$V_VALID    = 0000000B            

UCB$W_BCNT       0000006E            

UCB$W_BCR        00000096            

UCB$W_BOFF       0000006C            

UCB$W_BUFQUO     00000018            

UCB$W_BYTESTOGO  0000003E            

UCB$W_CHARGE     0000004A            

UCB$W_CYLINDERS  0000003E            

UCB$W_DA         0000008C            

UCB$W_DC         0000008E            

UCB$W_DEVBUFSIZ  0000003A            

UCB$W_DEVSTS     0000005A            

UCB$W_DIRSEQ     00000088            

UCB$W_DSTADDR    00000018            

UCB$W_DX_BCR     000000A4            

UCB$W_EC1        00000090            

UCB$W_EC2        00000092            

UCB$W_ERRCNT     00000072            

UCB$W_FUNC       0000007E            

UCB$W_MB_SEED    FFFFFFFC            

UCB$W_MSGCNT     00000016            

UCB$W_MSGMAX     00000014            

UCB$W_NT_CHAN    0000007C            

UCB$W_OFFSET     0000008A            

UCB$W_REFC       00000050            

UCB$W_SIZE       00000008            

UCB$W_SRCADDR    0000001A            

UCB$W_STS        00000058            

UCB$W_UNIT       00000048            

UCB$W_VPROT      0000001A            

VEC$B_DATAPATH   00000013            

LOADERSUB       - LOADER SUBROUTINES                             21-AUG-1978 22:28:36   VAX-11 MACRO X0.3-11               Page   9

PROGRAM SECTION SYNOPSIS                                                                                                         (1)







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$            FFFFFFFE      02     NOPIC   USR   CON   ABS   LCL NOSHR   EXE   RD    WRT BYTE  

IOGEN$CODE       00000083      03     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD  NOWRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

13598. BYTES LEFT IN FREE MEMORY POOL.

3578. BYTES OF RECLAIMED MEMORY.

OBJ$:LOADERSUB,LIS$:LOADERSUB/-SP=EXECML$/ML,SRC$:LOADERSUB

8 MLB DIR RDS - 667 GETS TO DEFINE 19 MACROS. 46 INTER. FILE WRITES. 

