DMPDEF	MACRO M1110  22-AUG-78 02:03

TABLE OF CONTENTS



     7-   24	MACRO INVOCATION AND ASSEMBLY PARAMETERS

     9-    1	**** DMP VERSION M0007.02 ****

    10-   50	READ/WRITE STORAGE

    11-  125	READ ONLY TABLES

    12-  177	PROGRAM INITIALIZATION AND COMMAND RECEIVER

DMPDEF	MACRO M1110  22-AUG-78 02:03  PAGE 7





      1						.TITLE	DMPDEF

      2						.IDENT	/V02.1/

      3					;+

      4					; DUMP DEFINITION PREFIX FILE

      5					;-

      6					; COPYRIGHT 1973, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754

      7					;

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

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

     10					;

     11					; PETER H. LIPMAN 30-MARCH-73

     12					; ALTERED FRIDAY 11-JAN-74 13:40

     13					; ALTERED FOR RSX11M 12-MAR-74 R.HEINEN

     14					; ALTERED 10-MAR-76 H.B. BOSWELL ADD RAD50 MODE DUMP  HBB1

     15					; ALTERED 4/1/76 R. HEINEN ADD HEX DUMP SWITCH /HX/LW/WD

     16					; ALTERED 4/10/76 R. HEINEN ADD RECORD DMP MODE /RC

     17					;	25-JUL-77 G.RITTENBURG

     18					;

     19					;	GR001 TAPE DENSITY SWITCH ADDED

     20					;

     21					;	I$$AS = 1  ;CONDITIONAL FOR 11D AND IAS

     22					;

     23					;

     24						.SBTTL	MACRO INVOCATION AND ASSEMBLY PARAMETERS

     25					;

     27						.MCALL	FDOFF$,FCSBT$,QIOSY$,CSI$,GCMLD$

     28						.MCALL	FDRC$R,FDBK$R,GET$S

     29						.MCALL	FHDOF$

     30						.MCALL	SVTK$S

     36					;

     37						.MCALL	FINIT$,OFNB$,READ$,WAIT$,PUT$,CLOSE$

     38						.MCALL	FSRSZ$,FDBDF$,NMBLK$,FDAT$A,FDRC$A,FDBK$A,FDOP$A

     39						.MCALL	CSI$1,CSI$2,CSI$SW,CSI$SV,CSI$ND,ALUN$S

     40						.MCALL	GCMLB$,CALL,RETURN,EXIT$S

     41

     42		000014 				FF=14			;FORM FEED CHARACTER

     43		000015 				CR=15			;CARRIAGE RETURN CHARCTER

     44		000012 				LF=12			;LINE FEED CHARACTER

     45		000011 				TAB=11			;TAB CHARACTER

     46		000003 				INLUN=3			;LUN FOR INPUT FILE

     47		000004 				OUTLUN=4		;LUN FOR LISTING FILE

     48		000113 				MAXHED=75.		;MAXIMUM HEADER SIZE IN BYTES

     49					;

     50		000014 				S.STBK=12.		;SIZE OF STATISTICS BLOCK IN BYTES

     51		000040 				CS.SWF=40		;CSI$2 STATUS BIT FOR "SWITCH FOUND"

     52

     53					;

     54					; BITS IN DMPCTL

     55		000001 				BLBIT=1			;SET IF BLOCK SWITCH WAS SPECIFIED

     56		000002 				HDBIT=2			;SET IF HEADER SWITCH WAS SPECIFIED

     57		000004 				IDBIT=4			;SET TO PRINT THE IDENT MESSAGE

     58		000010 				MDBIT=10		;SET IF NUMBERING FOR MEMORY DUMP

     59		000020 				FIDBIT=20		;FILE ID SPECIFIED

     60		000040 				ASCBIT=40		;DUMP IN ASCII MODE

     61		000100 				BYTBIT=100		;DUMP BYTE ORIENTED (VERSUS WORD)

     62		000200 				BABIT=200		; BASE BLOCK NUMBER:N:N

     63		000400 				LBBIT=400		; START BLOCK NUMBER BIT

DMPDEF	MACRO M1110  22-AUG-78 02:03  PAGE 7-1

MACRO INVOCATION AND ASSEMBLY PARAMETERS



     64		001000 				R50BIT=1000		;***HBB1 DUMP IN RAD50 MODE

     65		002000 			HEXBIT=2000		;***RJH  DUMP IN HEX

     66		004000 				LNGBIT=4000		;***RJH HEX LONG WORD MODE

     67		010000 				WRDBIT=10000		;***RJH HEX WORD MODE

     68		020000 				DECBIT=20000		;***RJH DECIMAL BIT

     69		040000 				RECBIT=40000		;***RJH RECORD DMP MODE

     70		100000 				LBNBIT=100000		;SET IF IN LOGICAL BLOCK MODE

     71		000001 				SPLBIT=1		; SET IN "DMPCT2" IF SPOOL OUTPUT

     72		000002 				PEBIT=2		;SET IN DMPCT2 IF DENSITY SPECIFIED

     73					; DEFINITION TO AVOID GLOBAL ARITHMETIC PROBLEMS

     74		000001 				FO.RD=1

     75		000040 				FA.SHR=40

DMP M0007.02, FILE DUMP UTILITY	MACRO M1110  22-AUG-78 02:03  PAGE 9

MACRO INVOCATION AND ASSEMBLY PARAMETERS



      1						.TITLE	DMP M0007.02, FILE DUMP UTILITY

						.SBTTL	**** DMP VERSION M0007.02 ****

						.IDENT	/M0007.02/

      2					; ALTERED:

      3					; ANDREW C. GOLDSTEIN  31-JAN-78  20:48

      4					; ALTERED WEDNESDAY 30-JAN-74 21:10

      5					;

      6					; COPYRIGHT (C)  1973,1977

      7					; DIGITAL EQUIPMENT CORP., MAYNARD,MASS 01754

      8

      9					; THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A LICENSE FOR USE

     10					; ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH INCLUSION

     11					; OF DEC'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT

     12					; AS MAY OTHERWISE BE PROVIDED IN WRITING BY DEC.

     13

     14					; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT

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

     16					; EQUIPMENT CORPORATION.

     17

     18					; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY

     19					; OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.

     20					;

     21					; PETER H. LIPMAN 30-MARCH-73

     22					;	ALTERED 23-JUL-74 R. HEINEN

     23					;	ALTERED 10-MAR-76 H.B. BOSWELL  ADD RAD50 MODE DUMP  HBB1

     24					; ALTERED 4/1/76 R.HEINEN ADD HEX  DUMP SWITCH /HX/LW/WD

     25					; ALTERED 4/10/76 R. HEINEN ADD RECODE DMP MODE /RC

     26					;

     27					;	C.A.DELIA	26-APR-77

     28					;

     29					;		CD037 -- FIX BUG IN GPRT$S CALL

     30					;

     31					;	G.RITTENBURG 	25-7-77

     32					;

     33					;		GR01 -- DENSITY SWITCH ADDED

     34					;

     35					;	G.RITTENBURG	16-SEPT-77

     36					;

     37					;		GR02 -- EXIT WITH STATUS ADDED

     38					;

     39					;	G.RITTENBURG	23-SEP-77

     40					;

     41					;		GR03 -- DETACH DEVICE ATTACHED IN DMPSTP

     42					;

     43					;	P. WHITE	27-SEP-77

     44					;

     45					;		PW040 -- CONDITIONALISE FOR -M,-D AND IAS

     46					;

     47					;

     48						.MCALL	GTSK$S,GPRT$S

DMP M0007.02, FILE DUMP UTILITY	MACRO M1110  22-AUG-78 02:03  PAGE 10

READ/WRITE STORAGE



     50						.SBTTL	READ/WRITE STORAGE

     51					;

     52	000000					IMPURE

     53					;

     54	000000				DMPCTL::	.BLKW	1

     55	000002				DMPCT2::	.BLKW	1

     56	000004				RECNUM::	.BLKW	2		; RECORD NUMBER

     57	000010	000000 	000000 		BASBLK::	.WORD	0,0	; DOUBLE WORD BLOCK NUMBER FOR READ AND QIO

     58	000014	000000 	000000 		BLKNUM::	.WORD	0,0	; DOUBLE WORD BLOCK NUMBER FOR ARITH

     59	000020				FBLOCK::	.BLKW	1		;STARTING BLOCK NUMBER TO DUMP

     60	000022				LBLOCK::	.BLKW	1		;LAST BLOCK NUMBER TO DUMP

     61	000024				BYTNUM::	.BLKW	1		;CURRENT LINE NUMBER

     62	000026				DENSTY::	.BLKW	1	;SPECIFIED DENSITY

     63					;

     64	000030				STBLK::	.BLKB	S.STBK		;STATISTICS BLOCK

     65	000044				IOSTBK::	.BLKW	2		;I/O STATUS BLOCK FOR INPUT FILE

     66	000050				.WORDS::	.BLKW	1		; NUMBER OF WORDS IN INPUT BUFFER

     67	000052				.BYTES::	.BLKW	1		; NUMBER OF BYTES IN INPUT BUFFER

     68	000054	177777 			.EXSTS::	.WORD	-1	; MAX. ERROR STATUS SO FAR

     69					; -1=NO ERRORS: 0=WARNING:2=FATAL:4=SEVERE ERRORS FOUND

     70					;

     71					;

     72	000056				OUTREC::	.BLKB	132.

     73		000204 				OURCSZ==.-OUTREC

     74					;

     75	000262	   014 	   015 	   012 	HEADER::	.BYTE	FF,CR,LF,CR,LF

	000265	   015 	   012

     76	000267				HEAD1::	.BLKB	MAXHED

     77						.EVEN

     78	000402				HEADSZ::	.BLKW	1

     79	000404				SAVSP::	.BLKW	1

     80					;

     81					;

     82	000406					FSRSZ$	2,,IMPURE

     83

     84	000406				FDBOUT::	FDBDF$

     85	000546					FDAT$A	R.VAR

     86	000546					FDRC$A	FD.PLC,OUTREC,OURCSZ

     87	000546					FDOP$A	OUTLUN,OFNPT,OUDFLT

     88	000546				FDBIN::	FDBDF$

     89	000706					FDOP$A	INLUN,IFNPT,INDFLT

     90

     91	000706				GCMLCB::GCMLB$	3,DMP

     92	001356				CSIBLK::.BLKB	C.SIZE

     93					;

     94	001432				IFNPT::	.BLKB	S.FIDS+S.APPD

     95		001446'				INSPEC==IFNPT+N.SPEC

     96	001456				OFNPT::	.BLKB	S.FIDS+S.APPD

     97		001472'				OUSPEC==OFNPT+N.SPEC

     98					;

     99					; EXTRA DPB PARAMETERS FOR CALLING .XQIO

    100	001502	000650'	001630'	000000 	RATTBK::	.WORD	FDBIN+F.FNB+N.FID,ATTCTL,0,0,0,0;FOR READING ATTRIBUTES

	001510	000000 	000000 	000000

    101	001516	000650'	001656'	000000 	RHDR::		.WORD	FDBIN+F.FNB+N.FID,RHDCTL,0,0,0,0;FOR READING HEADER

	001524	000000 	000000 	000000

    102	001532	000000G	001000 	000000 	READLB::	.WORD	INBUF,512.,0,0,0,0 ;FOR READ LOGICAL BLOCK

	001540	000000 	000000 	000000

DMP M0007.02, FILE DUMP UTILITY	MACRO M1110  22-AUG-78 02:03  PAGE 10-1

READ/WRITE STORAGE



    103		001534'				BYTCNT==READLB+2

    104		001540'				LBN==READLB+6.

    105					;

    106	001546				MOPRM::	.BLKW	25.

    107	001630	   367 	   012 		ATTCTL:	.BYTE	-9.,10.

    108	001632	000030'				.WORD	STBLK

    109	001634	   373 	   012 			.BYTE	-5,10.

    110	001636	000006G				.WORD	INBUF+AB.NAM

    111	001640	   374 	   040 			.BYTE	-4,32.

    112	001642	000020G				.WORD	INBUF+AB.UAT

    113	001644	   377 	   005 			.BYTE	-1,5

    114	001646	000060G				.WORD	INBUF+AB.PC

    115	001650	   363 	   043 			.BYTE	-13.,35.

    116	001652	000066G				.WORD	INBUF+AB.REV

    117	001654	000000 				.WORD	0

    118

    119	001656	   366 	   000 		RHDCTL:	.BYTE	-10.,0

    120	001660	000000G				.WORD	INBUF

    121	001662	000000 				.WORD	0

    122	001664	   040 	   040 	   103 	CONTIG::	.ASCII	/  C/

    123						.EVEN

DMP M0007.02, FILE DUMP UTILITY	MACRO M1110  22-AUG-78 02:03  PAGE 11

READ ONLY TABLES



    125						.SBTTL	READ ONLY TABLES

    126					;

    127	001670					PURE.D

    128					;

    129	000036				CSISWT::CSI$SW	BL,BLBIT,DMPCTL,SET,,BLKVAL

    130	000046					CSI$SW	HD,HDBIT,DMPCTL,SET,,0

    131	000056					CSI$SW	ID,IDBIT,DMPCTL,SET,,0

    132	000066					CSI$SW	MD,MDBIT,DMPCTL,SET,,MEMVAL

    133	000076					CSI$SW	FI,FIDBIT,DMPCTL,SET,,FIDVAL

    134	000106					CSI$SW	AS,ASCBIT!BYTBIT,DMPCTL,SET,,0

    135	000116					CSI$SW	BY,BYTBIT,DMPCTL,SET,,0

    136	000126					CSI$SW	BA,BABIT,DMPCTL,SET,,BASVAL

    137	000136					CSI$SW	LB,LBBIT,DMPCTL,SET,,0

    138	000146					CSI$SW	R5,R50BIT,DMPCTL,SET,,0		;***HBB1

    139	000156					CSI$SW	HX,HEXBIT,DMPCTL,SET,,0		;****RJH

    140	000166					CSI$SW	LW,LNGBIT!HEXBIT,DMPCTL,SET,,0	;***RJH

    141	000176					CSI$SW	WD,WRDBIT!HEXBIT,DMPCTL,SET,,0	;***RJH

    142	000206					CSI$SW	DC,DECBIT,DMPCTL,SET,,0		;***RJH

    143	000216					CSI$SW	RC,RECBIT,DMPCTL,SET,,0		;***RJH

    144	000226					CSI$SW	SP,SPLBIT,DMPCT2,CLEAR,NEG,0	;***RJH

    145	000236					CSI$SW	DENS,PEBIT,DMPCT2,SET,,DENVAL,EXACT

    146					;

    147	000250					CSI$ND

    148	000252				BLKVAL::	CSI$SV	NUMERIC,FBLOCK,2

    149	000256					CSI$SV	NUMERIC,LBLOCK,2

    150	000262					CSI$ND

    151	000264				MEMVAL::	CSI$SV	NUMERIC,BYTNUM,2

    152	000270					CSI$ND

    153					;

    154	000272				FIDVAL::	CSI$SV	NUMERIC,FILID,2 ;FILE ID VALUE BLOCK

    155	000276					CSI$SV	NUMERIC,FILID+2,2

    156	000302					CSI$SV	NUMERIC,FILID+4,2

    157	000306					CSI$ND

    158					;

    159	000310				BASVAL::	CSI$SV	NUMERIC,BASBLK,2 ; BASE BLOCK NUMBER

    160	000314					CSI$SV	NUMERIC,BASBLK+2,2

    161	000320					CSI$ND

    162					;

    163	000322				DENVAL::	CSI$SV	DECIMAL,DENSTY,2	;DENSITY VALUE

    164	000326					CSI$ND

    165					;

    166	000330	000004 			ST08::	.WORD	4		;800 BPI

    167	000332	004004 			ST16::	.WORD	4004		;1600BPI

    168

    169	000334				INDFLT::	NMBLK$	,,,SY,0

    170	000372				OUDFLT::	NMBLK$	FILDMP,DMP,,SY,0

    171	000430	000134'			.ABORT::.WORD	RSTART

    172					;

    173	000432	000000 	000000 	000000 	SVTTAB::.WORD	0,0,0,0,0,0

	000440	000000 	000000 	000000

    174	000446	000000G				.WORD	.ERTRP

    175	000450	000000 				.WORD	0

DMP M0007.02, FILE DUMP UTILITY	MACRO M1110  22-AUG-78 02:03  PAGE 12

PROGRAM INITIALIZATION AND COMMAND RECEIVER



    177						.SBTTL	PROGRAM INITIALIZATION AND COMMAND RECEIVER

    178					;

    179	000452					PURE.I

    180					;

    181	000000	010667 	000404'		START:	MOV	SP,SAVSP

    182	000004					CALL	$MESSAG		; LOAD MESSAGE OVERLAY

    183	000010	012700 	000000G			MOV	#INBUF,R0	; ADDRESS INBUF

    184					;

    185						.IF NDF	I$$AS

    186					;

    187						.IFT

    188					;

    189	000014					GPRT$S	,R0		;GET PARTITION PARAMETERS

    190	000030	016702 	000000G			MOV	$DSW,R2		; GET VIRTUAL ADDRESS OF TASK

    191					;

    192						.IFTF

    193					;

    194	000034					GTSK$S	R0		; FIND TASK SIZE

    195	000044	016001 	000032 			MOV	G.TSTS(R0),R1	; GET NUMBER OF BYTES IN TASK

    196					;

    197						.IFT

    198					;

    199	000050	060201 				ADD	R2,R1		; ADD VIRTUAL ADDRESS TO SIZE

    200					;

    201						.ENDC

    202					;

    203	000052	160001 				SUB	R0,R1		; COMPUTE BYTES IN INBUF

    204	000054	000241 				CLC			; RESET C-BIT

    205	000056	010167 	000052'			MOV	R1,.BYTES	; SAVE NUMBER OF BYTES IN INBUF

    206	000062	006001 				ROR	R1		; CONVERT TO WORDS

    207	000064	010167 	000050'			MOV	R1,.WORDS	; AND SAVE AWAY AS WORDS

    208	000070					SVTK$S	#SVTTAB,#10	; SET SST VECTOR FOR ERRTRP

    209	000106					FINIT$			;INITIALIZE FCS

    210	000112	103044 				BCC	AGAIN

    211	000114					ERROUT	ER01		;NOT ENOUGH STACK SPACE

	000114	104402 				TRAP	X

	000116	000000G				.WORD	ER01SZ

	000120	000000G				.WORD	ER01MG

    212	000122	012767 	000004 	000054'		MOV	#4,.EXSTS	;SEVERE ERROR

    213	000130	000167 	000244 			JMP	EXIT

    214

    215	000134				RSTART::	CLOSE$	#FDBIN

    216	000144	012700 	000406'			MOV	#FDBOUT,R0		; ADDRESS OUTPUT FDB

    217	000150					PUT$	,#EOF1MG+15.,#2		; OUTPUT TERMINATING CR-LF

    218	000170	032767 	000001 	000002'		BIT	#SPLBIT,DMPCT2		; SPOOL OUTPUT FILE?

    219	000176	001003 				BNE	10$			; IF NE THEN NO

    220	000200					CALL	.PRINT			; SPOOL OUTPUT FILE

    221	000204	000407 				BR	AGAIN			; AND CONTINUE

    222	000206				10$:	CLOSE$	R0			; CLOSE OUTPUT FILE

    223	000212	012701 	000000G			MOV	#IO.DET,R1	;SET QIO FUNCTION

    224	000216	005002 				CLR	R2		;NO EXTRA PARAMETERS

    225	000220					CALL	.XQIO		;DETACH DEVICE

    226	000224	016706 	000404'		AGAIN::	MOV	SAVSP,SP

    227	000230	005067 	000000'			CLR	DMPCTL		;INIT DEFAULT DUMP PARAMETERS

    228	000234	005067 	000002'			CLR	DMPCT2		;RESET SPOOL AND DENSITY SWITCHES

    229	000240	012767 	000001 	000020'		MOV	#1,FBLOCK	;DUMP FROM VIRTUAL BLOCK 1

    230	000246	012767 	177777 	000022'		MOV	#-1,LBLOCK	;ALL BLOCKS OF FILE

DMP M0007.02, FILE DUMP UTILITY	MACRO M1110  22-AUG-78 02:03  PAGE 12-1

PROGRAM INITIALIZATION AND COMMAND RECEIVER



    231	000254	016767 	000010'	000014'		MOV	BASBLK,BLKNUM	; SET UP BASE BLOCK NUMBERS

    232	000262	016767 	000012'	000016'		MOV	BASBLK+2,BLKNUM+2

    233	000270	005067 	000024'			CLR	BYTNUM

    234	000274					CALL	GETCML		;GET NEXT COMMAND LINE

    235	000300	103437 				BCS	EXIT

    236	000302	000167 	000000G			JMP	CHECK

    237					;

    238					;

    239	000306	000167 	000000G		RODUMP::JMP	DUMP		; VECTOR TO DUMP

    240					;

    241	000312				ROHEAD::CALL	DMPBLK		; DUMP THE FILE HEADER

    242	000316	012667 	000000'			MOV	(SP)+,DMPCTL

    243	000322	012667 	000024'			MOV	(SP)+,BYTNUM

    244	000326	005767 	000020'			TST	FBLOCK		; IF BLOCK 0 SPECIFIED

    245	000332	001700 				BEQ	RSTART

    246	000334	000167 	000000G		RNXTB:: JMP	NXTBLK

DMP M0007.02, FILE DUMP UTILITY	MACRO M1110  22-AUG-78 02:03  PAGE 13

PROGRAM INITIALIZATION AND COMMAND RECEIVER



    248					; EDIT AND PUT STRING TO OUTPUT FILE

    249					; INPUTS:

    250					;	R1=FORMAT STRING

    251					;	R2=PARAMETER BLOCK ADDRESS

    252					; OUTPUTS:

    253					;	C=0 IF SUCCESSFUL, C=1 IF ERROR FROM PUT

    254					;	R0,R1 ALTERED

    255					;	R2-R5 PRESERVED

    256	000340	016700 	000434'		EDPUT::	MOV	FDBOUT+F.NRBD+2,R0

    257	000344	010246 				MOV	R2,-(SP)

    258	000346					CALL	$EDMSG

    259	000352					PUT$	#FDBOUT,,R1,WRTERR

    260	000374	012602 				MOV	(SP)+,R2

    261	000376					RETURN

    262					;

    263					;

    264					;

    265					;	EXIT FROM DUMP

    266	000400	016700 	000054'		EXIT::	MOV	.EXSTS,R0	;R0 IS ERROR STATUS

    267	000404	100002 				BPL	X1	;BRANCH IF POS.

    268	000406	012700 	000000G			MOV	#EX$SUC,R0  ; SET SUCCESS

    269	000412	000167 	000000G		X1:	JMP	$EXST  ; EXIT

    270					;

    271		000000'				.END	START

DMP M0007.02, FILE DUMP UTILITY	MACRO M1110  22-AUG-78 02:03  PAGE 13-1

SYMBOL TABLE



AB.CDT  000105   	DMPCT2  000002RG    004	FILID = ****** GX	F.VBN = 000064   	H.SCHA= 000015

AB.CHU  000064   	DUMP  = ****** GX	FO.APD= 000106   	F.VBSZ= 000060   	H.UCHA= 000014

AB.EXP  000122   	EDPUT   000340RG    006	FO.MFY= 000002   	GCMLCB  000706RG    004	H.UFAT= 000016

AB.FNU  000000   	EOF1MG= ****** GX	FO.RD = 000001   	GETCML= ****** GX	IDBIT = 000004

AB.FP   000062   	ER01MG= ****** GX	FO.UPD= 000006   	GE.BIF= 177775   	IDNTMG= 000000RG    002

AB.FSQ  000002   	ER01SZ= ****** GX	FO.WRT= 000016   	GE.CLO= 000004   	IDNTSZ= 000024 G

AB.GC   000061   	EXIT    000400RG    006	FP.DEL= 000010   	GE.COM= 000001   	IFNPT   001432RG    004

AB.NAM  000006   	EX$SUC= ****** GX	FP.EXT= 000004   	GE.CON= 000020   	INBUF = ****** GX

AB.PC   000060   	FA.APD= 000100   	FP.RAT= 000001   	GE.EOF= 177766   	INDFLT  000334RG    003

AB.RDT  000070   	FA.CRE= 000010   	FP.RDV= 000001   	GE.IND= 000002   	INLUN = 000003

AB.REV  000066   	FA.DLK= 001000   	FP.WRV= 000002   	GE.IOR= 177777   	INSPEC= 001446RG    004

AB.UAT  000020   	FA.ENB= 100000   	F.ACTL= 000076   	GE.LC = 000010   	IOSTBK  000044RG    004

AGAIN   000224RG    006	FA.EXC= 002000   	F.ALOC= 000040   	GE.MDE= 177774   	IO.DET= ****** GX

ASCBIT= 000040   	FA.EXT= 000004   	F.BBFS= 000062   	GE.OPR= 177776   	I.CRDT= 000031

ATTCTL  001630R     004	FA.NSP= 000100   	F.BDB = 000070   	GE.RBG= 177730   	I.CRTI= 000040

BABIT = 000200   	FA.POS= 010000   	F.BGBC= 000057   	GE.SIZ= 000040   	I.DASZ= 000007

BASBLK  000010RG    004	FA.RD = 000001   	F.BKDN= 000026   	G.CMLD= 000146   	I.EXDT= 000046

BASVAL  000310RG    003	FA.RWD= 004000   	F.BKDS= 000020   	G.DPRM= 000160   	I.FNAM= 000000

BLBIT = 000001   	FA.SEQ= 040000   	F.BKEF= 000050   	G.ERR = 000140   	I.FTYP= 000006

BLKNUM  000014RG    004	FA.SHR= 000040   	F.BKP1= 000051   	G.ISIZ= 000020   	I.FVER= 000010

BLKVAL  000252RG    003	FA.TMP= 000020   	F.BKST= 000024   	G.LPDL= 000100   	I.RVDT= 000014

BYTBIT= 000100   	FA.WCK= 020000   	F.BKVB= 000064   	G.MODE= 000141   	I.RVNO= 000012

BYTCNT= 001534RG    004	FA.WRT= 000002   	F.CHR = 000075   	G.PRFW= 000004   	I.RVTI= 000023

BYTNUM  000024RG    004	FBLOCK  000020RG    004	F.CNTG= 000034   	G.PRPB= 000000   	I.TISZ= 000006

CHECK = ****** GX	FDBIN   000546RG    004	F.DFNB= 000046   	G.PRPS= 000002   	LBBIT = 000400

CHR$$ = 000123   	FDBOUT  000406RG    004	F.DSPT= 000044   	G.PSDS= 000142   	LBLOCK  000022RG    004

CH.AND= 000001   	FD.BLK= 000010   	F.DVNM= 000134   	G.SIZE= 000224   	LBN   = 001540RG    004

CNT$$ = 000004   	FD.CCL= 000002   	F.EFBK= 000010   	G.TSDU= 000036   	LBNBIT= 100000

CONTIG  001664RG    004	FD.COM= 020000   	F.EFN = 000050   	G.TSFW= 000024   	LF    = 000012

CR    = 000015   	FD.CR = 000002   	F.EOBB= 000032   	G.TSGC= 000017   	LNGBIT= 004000

CSIBLK  001356RG    004	FD.DIR= 000010   	F.ERR = 000052   	G.TSMT= 000022   	MAXHED= 000113

CSISWT  000036RG    003	FD.FTN= 000001   	F.FACC= 000043   	G.TSNL= 000020   	MDBIT = 000010

CS.DIF= 000002   	FD.F11= 040000   	F.FFBY= 000014   	G.TSPC= 000016   	MEMVAL  000264RG    003

CS.DVF= 000004   	FD.INS= 000010   	F.FNAM= 000110   	G.TSPN= 000004   	MOIDMG= 000024RG    002

CS.EQU= 000040   	FD.ISP= 002000   	F.FNB = 000102   	G.TSPR= 000014   	MOIDSZ= 000007 G

CS.INP= 000001   	FD.MNT= 100000   	F.FTYP= 000116   	G.TSRN= 000010   	MOPRM   001546RG    004

CS.MOR= 000020   	FD.OSP= 004000   	F.FVER= 000120   	G.TSSY= 000034   	M.CTSZ= 000006

CS.NMF= 000001   	FD.PLC= 000004   	F.HIBK= 000004   	G.TSTN= 000000   	M.EFNU= 000002

CS.OUT= 000002   	FD.PRN= 000004   	F.LUN = 000042   	G.TSTS= 000032   	M.EFSQ= 000004

CS.SWF= 000040   	FD.PSE= 010000   	F.MBCT= 000054   	G.TSVA= 000026   	M.ERVN= 000001

CS.WLD= 000010   	FD.RAH= 000001   	F.MBC1= 000055   	G.TSVL= 000030   	M.ESQN= 000000

C.CMLD= 000002   	FD.RAN= 000002   	F.MBFG= 000056   	HDBIT = 000002   	M.LBSZ= 000007

C.DEVD= 000006   	FD.REC= 000001   	F.NRBD= 000024   	HEADER  000262RG    004	M.MAX = 000011

C.DIRD= 000012   	FD.RWM= 000001   	F.NREC= 000030   	HEADSZ  000402RG    004	M.RTRV= 000012

C.DSDS= 000006   	FD.SDI= 000020   	F.OVBS= 000030   	HEAD1   000267RG    004	M.USE = 000010

C.FILD= 000016   	FD.SQD= 000040   	F.RACC= 000016   	HEXBIT= 002000   	NB.DEV= 000200

C.MKW1= 000024   	FD.TTY= 000004   	F.RATT= 000001   	H.CKSM= 000776   	NB.DIR= 000100

C.MKW2= 000026   	FD.WBH= 000002   	F.RCNM= 000034   	H.FCHA= 000014   	NB.NAM= 000004

C.SIZE= 000054   	FF    = 000014   	F.RCTL= 000017   	H.FLEV= 000006   	NB.NXD= 020000

C.STAT= 000001   	FF.CHR= 000005   	F.RSIZ= 000002   	H.FNUM= 000002   	NB.SD1= 000400

C.SWAD= 000022   	FF.NV = 000003   	F.RTYP= 000000   	H.FOWN= 000010   	NB.SD2= 001000

C.TYPR= 000000   	FF.POE= 000002   	F.SEQN= 000100   	H.FPRO= 000012   	NB.SNM= 000040

DECBIT= 020000   	FF.RWD= 000001   	F.SPDV= 000072   	H.FSEQ= 000004   	NB.STP= 000020

DENSTY  000026RG    004	FF.RWF= 000006   	F.SPUN= 000074   	H.IDOF= 000000   	NB.SVR= 000010

DENVAL  000322RG    003	FF.SPC= 000004   	F.STBK= 000036   	H.MPOF= 000001   	NB.TYP= 000002

DMPBLK= ****** GX	FIDBIT= 000020   	F.UNIT= 000136   	H.PROG= 000010   	NB.VER= 000001

DMPCTL  000000RG    004	FIDVAL  000272RG    003	F.URBD= 000020   	H.PROJ= 000011   	NB.WLV= 010000

DMP M0007.02, FILE DUMP UTILITY	MACRO M1110  22-AUG-78 02:03  PAGE 13-2

SYMBOL TABLE



NXTBLK= ****** GX	PAR$$$= 000027   	R.FIX = 000001   	S.FNBW= 000017   	$$$OST= 000044

N.DEVD= 000000   	PEBIT = 000002   	R.SEQ = 000003   	S.FNTY= 000004   	$$$T1 = 000067

N.DID = 000024   	RATTBK  001502RG    004	R.VAR = 000002   	S.FTYP= 000002   	$$$0ST= 000000

N.DIRD= 000004   	READLB  001532RG    004	R50BIT= 001000   	S.HDHD= 000056   	.ABORT  000430RG    003

N.DVNM= 000032   	RECBIT= 040000   	SAVSP   000404RG    004	S.IDHD= 000056   	.BYTES  000052RG    004

N.FID = 000000   	RECNUM  000004RG    004	SC.BAD= 000100   	S.MPHD= 000012   	.CLOSE= ****** G

N.FLID= 000016   	RHDCTL  001656R     004	SC.MDL= 000200   	S.NFEN= 000020   	.ERTRP= ****** GX

N.FNAM= 000006   	RHDR    001516RG    004	SIZ$$ = 000004   	S.STBK= 000014   	.EXSTS  000054RG    004

N.FNMD= 000010   	RNXTB   000334RG    006	SPLBIT= 000001   	TAB   = 000011   	.FINIT= ****** G

N.FTYP= 000014   	RODUMP  000306RG    006	START   000000R     006	UC.CON= 000200   	.FSRCB= ****** G

N.FVER= 000016   	ROHEAD  000312RG    006	STBLK   000030RG    004	UC.DLK= 000100   	.MSGFN  000000RG    003

N.NEXT= 000022   	RSTART  000134RG    006	ST08    000330RG    003	WRDBIT= 010000   	.PRINT= ****** GX

N.SPEC= 000014   	RX$IAS= 000043   	ST16    000332RG    003	WRTERR= ****** GX	.PUT  = ****** G

N.STAT= 000020   	RX$11D= 000040   	SVTTAB  000432RG    003	X     = 000002   	.WORDS  000050RG    004

N.UNIT= 000034   	RX$11M= 000041   	S.APPD= 000010   	X1      000412R     006	.XQIO = ****** GX

OFNPT   001456RG    004	RX$11S= 000042   	S.BFHD= 000020   	$DSW  = ****** GX	...GBL= 000000

OUDFLT  000372RG    003	R$$DPB= 000001   	S.FATT= 000016   	$EDMSG= ****** GX	...PC1= 000706R     004

OURCSZ= 000204 G 	R$$DYM= 000001   	S.FDB = 000140   	$EXST = ****** GX	...PC2= 000426R     003

OUSPEC= 001472RG    004	R$$EIS= 000000   	S.FIDS= 000014   	$MESSA= ****** GX	...PC3= 000706R     004

OUTLUN= 000004   	R$$MSG= 000000   	S.FNAM= 000006   	$$    = 000000   	...TPC= 000020

OUTREC  000056RG    004	R$$11M= 000001   	S.FNB = 000036   	$$$   = 001066R     004



. ABS.	000131	   000

      	000000	   001

MSGSTR	000033	   002

PURE$D	000452	   003

IMPURE	001670	   004

$$FSR1	002040	   005

PURE$I	000416	   006

ERRORS DETECTED:  0



VIRTUAL MEMORY USED:  9584 WORDS  ( 38 PAGES)

DYNAMIC MEMORY:  11220 WORDS  ( 43 PAGES)

ELAPSED TIME:  00:00:54

OBJ$:DMP,LIS$:DMP/-SP=SRC$:PIPMAC,DMPDEF,DMP

