FORMAT	MACRO M1110  22-AUG-78 02:14

TABLE OF CONTENTS



     1-  300	OBJECT LANGUAGE DEFS

FORMAT	MACRO M1110  22-AUG-78 02:14  PAGE 1





    100						.TITLE	FORMAT

    200						.IDENT	/X0300/

    300						.SBTTL	OBJECT LANGUAGE DEFS

FORMAT	MACRO M1110  22-AUG-78 02:14  PAGE 3





      1					; COPYRIGHT (C) 1976, 1977

      2					; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

      3					;

      4					; THIS SOFTWARE IS FURNISHED UNDER  A LICENSE FOR USE ONLY  ON  A

      5					; SINGLE COMPUTER SYSTEM AND MAY BE  COPIED ONLY WITH  THE INCLU-

      6					; SION OF  THE  ABOVE  COPYRIGHT NOTICE.  THIS SOFTWARE,  OR  ANY

      7					; OTHER COPIES THEREOF, MAY NOT BE  PROVIDED  OR  OTHERWISE  MADE

      8					; AVAILABLE TO ANY OTHER PERSON EXCEPT  FOR  USE  ON  SUCH SYSTEM

      9					; AND TO  ONE WHO AGREES  TO  THESE LICENSE  TERMS.  TITLE TO AND

     10					; OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC.

     11					;

     12					; THE INFORMATION IN THIS SOFTWARE  IS  SUBJECT TO CHANGE WITHOUT

     13					; NOTICE AND SHOULD NOT BE CONSTRUED  AS  A COMMITMENT BY DIGITAL

     14					; EQUIPMENT CORPORATION.

     15					;

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

     17					; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.

LIBRMH	MACRO M1110  22-AUG-78 02:14  PAGE 4





      1						.TITLE	LIBRMH

      2						.IDENT	/02/

      3

      4					; COPYRIGHT (C) 1976, 1977

      5					; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

      6					;

      7					; THIS SOFTWARE IS FURNISHED UNDER  A LICENSE FOR USE ONLY  ON  A

      8					; SINGLE COMPUTER SYSTEM AND MAY BE  COPIED ONLY WITH  THE INCLU-

      9					; SION OF  THE  ABOVE  COPYRIGHT NOTICE.  THIS SOFTWARE,  OR  ANY

     10					; OTHER COPIES THEREOF, MAY NOT BE  PROVIDED  OR  OTHERWISE  MADE

     11					; AVAILABLE TO ANY OTHER PERSON EXCEPT  FOR  USE  ON  SUCH SYSTEM

     12					; AND TO  ONE WHO AGREES  TO  THESE LICENSE  TERMS.  TITLE TO AND

     13					; OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC.

     14					;

     15					; THE INFORMATION IN THIS SOFTWARE  IS  SUBJECT TO CHANGE WITHOUT

     16					; NOTICE AND SHOULD NOT BE CONSTRUED  AS  A COMMITMENT BY DIGITAL

     17					; EQUIPMENT CORPORATION.

     18					;

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

     20					; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.

     21					;

     22					; VERSION 02

     23					;

     24					; WRITTEN BY:

     25					;	GEORGE W. BERRY

     26					;

     27					; MODIFIED BY:

     28					;	C.A. D'ELIA	24-JUN-74

     29					;

     30					;

     31

     32					;

     33					; MACRO CALLS

     34					;

     35

     36						.MCALL	FCSBT$

     37	000000					FCSBT$

     38						.MCALL	FDOFF$

     39	000000					FDOFF$	DEF$L

     40

     41

     48

     49						.MCALL	GET$S

     50

     51

     53

     54

     55					;+

     56					;

     57					; **-$RDMH=READ MODULE HEADER

     58					;

     59					; THIS ROUTINE READS A MODULE HEADER INTO CORE.

     60					;

     61					; INPUTS:

     62					;

     63					;	R1=POINTER TO BLOCK/BYTE IN BLOCK OF MODULE HEADER

     64					;

LIBRMH	MACRO M1110  22-AUG-78 02:14  PAGE 4-1





     65					; OUTPUTS:

     66					;

     67					;	C-BIT SET IF ERROR

     68					;

     69					;-

     70	000000				$RDMH::	SAVRG			;SAVE R3-R5

     71	000004	012102 				MOV	(R1)+,R2	;GET VBN

     72	000006	011103 				MOV	(R1),R3		;GET BYTE-IN-BLOCK OF HEADER

     73	000010	005001 				CLR	R1		;CLEAR HIGH VBN

     74	000012	016700 	000000G			MOV	$LIBPT,R0

     75	000016	112760 	000002 	000000 		MOVB	#R.VAR,F.RTYP(R0) ;SET TO VARIABLE LENGTH RECORDS

     76	000024	105060 	000001 			CLRB	F.RATT(R0)	;CAN CROSS BLOCK BOUNDRIES

     77	000030					CALL	.POINT		;POSITION FILE

     78	000034	103410 				BCS	10$		;EXIT IF ERROR

     79

     80

     87

     88	000036					GET$S	R0,#$MHBUF,#MHSIZE ;READ MODULE HEADER

     89

     90

     92

     93

     94	000056				10$:	RETURN

     95

     96

     97		000001 				.END

LIBRMH	MACRO M1110  22-AUG-78 02:14  PAGE 4-2

SYMBOL TABLE



CH.AND= 000001   	FF.POE= 000002   	F.RCNM= 000034   	N.DVNM= 000032   	SF$UNI= 000004

CTLGRP= 000120   	FF.RWD= 000001   	F.RCTL= 000017   	N.FID = 000000   	SF$VAL= 000020

EOM$MX= 000007   	FF.RWF= 000006   	F.RSIZ= 000002   	N.FNAM= 000006   	SF$WK = 000001

E$OMAD  000003      012	FF.SPC= 000004   	F.RTYP= 000000   	N.FTYP= 000014   	SRF$MX= 000025

E$OMER  000001      012	FO.APD= 000106   	F.SEQN= 000100   	N.FVER= 000016   	STAGRP= 000000

E$OMPS  000002      012	FO.MFY= 000002   	F.SPDV= 000072   	N.NEXT= 000022   	STOGRP= 000024

FA.APD= 000100   	FO.RD = 000001   	F.SPUN= 000074   	N.STAT= 000020   	S$DNAM  000013      011

FA.CRE= 000010   	FO.UPD= 000006   	F.STBK= 000036   	N.UNIT= 000034   	S$DNLN  000012      011

FA.DLK= 001000   	FO.WRT= 000016   	F.UNIT= 000136   	OBJ$SL= 000000   	S$DPSI  000005      011

FA.ENB= 100000   	F.ACTL= 000076   	F.URBD= 000020   	OB$DBG= 000004   	S$DVAL  000006      011

FA.EXC= 002000   	F.ALOC= 000040   	F.VBN = 000064   	OB$EOM= 000003   	S$MXLN= 000017

FA.EXT= 000004   	F.BBFS= 000062   	F.VBSZ= 000060   	OB$GSD= 000001   	S$RNAM  000006      010

FA.NSP= 000100   	F.BDB = 000070   	GS$ARG= 000003   	OB$HDR= 000000   	S$RNLN  000005      010

FA.POS= 010000   	F.BGBC= 000057   	GS$EPM= 000002   	OB$LNK= 000005   	S$SDTY  000002      007

FA.RD = 000001   	F.BKDN= 000026   	GS$PSC= 000000   	OB$TIR= 000002   	S$SFL0  000003      007

FA.RWD= 004000   	F.BKDS= 000020   	GS$SYM= 000001   	OPRGRP= 000062   	S$SFL1  000004      007

FA.SEQ= 040000   	F.BKEF= 000050   	G$SDTY  000001      005	O$BJTY  000000      002	S$$LIB= 000000

FA.SHR= 000040   	F.BKP1= 000051   	MAXALI= 000011   	PAGALI= 000011   	S.FATT= 000016

FA.TMP= 000020   	F.BKST= 000024   	MHD$MX= 000111   	PAR$$$= 000000   	S.FDB = 000140

FA.WCK= 020000   	F.BKVB= 000064   	MHSIZE= ****** GX	PF$GBL= 000020   	S.FNAM= 000006

FA.WRT= 000002   	F.CHR = 000075   	MH$CPY= 000004   	PF$OVL= 000004   	S.FNB = 000036

FD.BLK= 000010   	F.CNTG= 000034   	MH$GTX= 000006   	PF$PIC= 000001   	S.FNBW= 000017

FD.CCL= 000002   	F.DFNB= 000046   	MH$LNM= 000001   	PF$RD = 000200   	S.FNTY= 000004

FD.COM= 020000   	F.DSPT= 000044   	MH$MHD= 000000   	PF$REL= 000010   	S.FTYP= 000002

FD.CR = 000002   	F.DVNM= 000134   	MH$MTC= 000005   	PF$SHR= 000040   	S.NFEN= 000020

FD.DIR= 000010   	F.EFBK= 000010   	MH$SRC= 000002   	PF$UNI= 000002   	TIRMAX= 000121

FD.FTN= 000001   	F.EFN = 000050   	MH$TTL= 000003   	PF$WRT= 000001   	T$CHAR= 000005

FD.F11= 040000   	F.EOBB= 000032   	MTC$MX= 000213   	PF$XEQ= 000100   	T$HEAD= 000000

FD.INS= 000010   	F.ERR = 000052   	M$HDMS  000003      003	PSD$MX= 000031   	T$SLEN= 000004

FD.ISP= 002000   	F.FACC= 000043   	M$HDNM  000005      003	P$SALI  000002      006	T$SMBL= 000004

FD.MNT= 100000   	F.FFBY= 000014   	M$HDSL  000002      003	P$SALO  000005      006	V$MEML= 000002

FD.OSP= 004000   	F.FNAM= 000110   	M$HDST  000001      003	P$SFL0  000003      006	$     = 000000      012

FD.PLC= 000004   	F.FNB = 000102   	M$TCPN  000002      004	P$SFL1  000004      006	$LIBPT= ****** GX

FD.PRN= 000004   	F.FTYP= 000116   	NB.DEV= 000200   	P$SNAM  000012      006	$MHBUF= ****** GX

FD.PSE= 010000   	F.FVER= 000120   	NB.DIR= 000100   	P$SNLN  000011      006	$RDMH   000000RG

FD.RAH= 000001   	F.HIBK= 000004   	NB.NAM= 000004   	Q$$CMO= 000000   	$SAVRG= ****** GX

FD.RAN= 000002   	F.LUN = 000042   	NB.SD1= 000400   	R$MXLN= 001000   	$$    = 000001

FD.REC= 000001   	F.MBCT= 000054   	NB.SD2= 001000   	R$$11M= 000000   	$$S   = 000005

FD.RWM= 000001   	F.MBC1= 000055   	NB.SNM= 000040   	R.FIX = 000001   	$$0   = 000002

FD.SDI= 000020   	F.MBFG= 000056   	NB.STP= 000020   	R.SEQ = 000003   	$$1   = 000002

FD.SQD= 000040   	F.NRBD= 000024   	NB.SVR= 000010   	R.VAR = 000002   	.GETSQ= ****** G

FD.TTY= 000004   	F.NREC= 000030   	NB.TYP= 000002   	SDF$MX= 000032   	.POINT= ****** GX

FD.WBH= 000002   	F.OVBS= 000030   	NB.VER= 000001   	SF$DEF= 000002   	...GBL= 000000

FF.CHR= 000005   	F.RACC= 000016   	N.DID = 000024   	SF$REL= 000010   	...TPC= 000140

FF.NV = 000003   	F.RATT= 000001



. ABS.	000000	   000

      	000060	   001

OBJREC	000001	   002

MHDREC	000111	   003

MTCREC	000213	   004

GSDREC	000002	   005

PSDEF 	000031	   006

SYMBOL	000005	   007

SYMREF	000025	   010

SYMDEF	000032	   011

EOMREC	000007	   012

LIBRMH	MACRO M1110  22-AUG-78 02:14  PAGE 4-3

SYMBOL TABLE



ERRORS DETECTED:  0



VIRTUAL MEMORY USED:  2430 WORDS  ( 10 PAGES)

DYNAMIC MEMORY:  3828 WORDS  ( 14 PAGES)

ELAPSED TIME:  00:00:12

OBJ$:LIBRMH,LIS$:LIBRMH/-SP=SRC$:NEWFORMAT.,LIBPRE,LIBRMH

