Trailing-Edge
-
PDP-10 Archives
-
BB-H311B-RM
-
rsx20f-swskit/listings/dmp.lis
There are no other files named dmp.lis in the archive.
DMPDEF MACRO M1108 06-DEC-77 00:06
TABLE OF CONTENTS
7- 16 MACRO INVOCATION AND ASSEMBLY PARAMETERS
9- 1 **** DMP VERSION M0004 ****
10- 25 READ/WRITE STORAGE
11- 84 READ ONLY TABLES
12- 122 PROGRAM INITIALIZATION AND COMMAND RECEIVER
DMPDEF MACRO M1108 06-DEC-77 00:06 PAGE 7
1 .TITLE DMPDEF
2 .IDENT /V02/
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 ;
16 .SBTTL MACRO INVOCATION AND ASSEMBLY PARAMETERS
17 ;
19 .MCALL FDOFF$,FCSBT$,QIOSY$,CSI$,GCMLD$
20 .MCALL FHDOF$
21 .MCALL SVTK$S
27 ;
28 .MCALL FINIT$,OFNB$,READ$,WAIT$,PUT$,CLOSE$
29 .MCALL FSRSZ$,FDBDF$,NMBLK$,FDAT$A,FDRC$A,FDBK$A,FDOP$A
30 .MCALL CSI$1,CSI$2,CSI$SW,CSI$SV,CSI$ND,ALUN$S
31 .MCALL GCMLB$,CALL,RETURN,EXIT$S
32
33 000014 FF=14 ;FORM FEED CHARACTER
34 000015 CR=15 ;CARRIAGE RETURN CHARCTER
35 000012 LF=12 ;LINE FEED CHARACTER
36 000011 TAB=11 ;TAB CHARACTER
37 000003 INLUN=3 ;LUN FOR INPUT FILE
38 000004 OUTLUN=4 ;LUN FOR LISTING FILE
39 000113 MAXHED=75. ;MAXIMUM HEADER SIZE IN BYTES
40 ;
41 000014 S.STBK=12. ;SIZE OF STATISTICS BLOCK IN BYTES
42 000040 CS.SWF=40 ;CSI$2 STATUS BIT FOR "SWITCH FOUND"
43
44 ;
45 ; BITS IN DMPCTL
46 000001 BLBIT=1 ;SET IF BLOCK SWITCH WAS SPECIFIED
47 000002 HDBIT=2 ;SET IF HEADER SWITCH WAS SPECIFIED
48 000004 IDBIT=4 ;SET TO PRINT THE IDENT MESSAGE
49 000010 MDBIT=10 ;SET IF NUMBERING FOR MEMORY DUMP
50 000020 FIDBIT=20 ;FILE ID SPECIFIED
51 000040 ASCBIT=40 ;DUMP IN ASCII MODE
52 000100 BYTBIT=100 ;DUMP BYTE ORIENTED (VERSUS WORD)
53 000200 BABIT=200 ; BASE BLOCK NUMBER:N:N
54 000400 LBBIT=400 ; START BLOCK NUMBER BIT
55 001000 R50BIT=1000 ;***HBB1 DUMP IN RAD50 MODE
56 100000 LBNBIT=100000 ;SET IF IN LOGICAL BLOCK MODE
57 ; DEFINITION TO AVOID GLOBAL ARITHMETIC PROBLEMS
58 000001 FO.RD=1
59 000040 FA.SHR=40
DMP M0004, FILE DUMP UTILITY MACRO M1108 06-DEC-77 00:06 PAGE 9
MACRO INVOCATION AND ASSEMBLY PARAMETERS
1 .TITLE DMP M0004, FILE DUMP UTILITY
.SBTTL **** DMP VERSION M0004 ****
.IDENT /M0004/
2 ; ALTERED:
3 ; ANDREW C. GOLDSTEIN 2 APR 75 15:59
4 ; ALTERED WEDNESDAY 30-JAN-74 21:10
5 ;
6 ; COPYRIGHT 1974, DIGITAL EQUIPMENT CORP., MAYNARD MASS.
7
8 ; THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A LICENSE FOR USE
9 ; ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH INCLUSION
10 ; OF DEC'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT
11 ; AS MAY OTHERWISE BE PROVIDED IN WRITING BY DEC.
12
13 ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
14 ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
15 ; EQUIPMENT CORPORATION.
16
17 ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY
18 ; OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.
19 ;
20 ; PETER H. LIPMAN 30-MARCH-73
21 ; ALTERED 23-JUL-74 R. HEINEN
22 ; ALTERED 10-MAR-76 H.B. BOSWELL ADD RAD50 MODE DUMP HBB1
23 ;
DMP M0004, FILE DUMP UTILITY MACRO M1108 06-DEC-77 00:06 PAGE 10
READ/WRITE STORAGE
25 .SBTTL READ/WRITE STORAGE
26 ;
27 000000 IMPURE
28 ;
29 000000 DMPCTL:: .BLKW 1
30 000002 000000 000000 BASBLK:: .WORD 0,0 ; DOUBLE WORD BLOCK NUMBER FOR READ AND QIO
31 000006 000000 000000 BLKNUM:: .WORD 0,0 ; DOUBLE WORD BLOCK NUMBER FOR ARITH
32 000012 FBLOCK:: .BLKW 1 ;STARTING BLOCK NUMBER TO DUMP
33 000014 LBLOCK:: .BLKW 1 ;LAST BLOCK NUMBER TO DUMP
34 000016 BYTNUM:: .BLKW 1 ;CURRENT LINE NUMBER
35 000020 STBLK:: .BLKB S.STBK ;STATISTICS BLOCK
36 000034 IOSTBK:: .BLKW 2 ;I/O STATUS BLOCK FOR INPUT FILE
37 000040 BUF:: .BLKB 2050.
38 000042' INBUF==BUF+2
39 ;
40 004042 OUTREC:: .BLKB 132.
41 000204 OURCSZ==.-OUTREC
42 ;
43 004246 014 015 012 HEADER:: .BYTE FF,CR,LF,CR,LF
004251 015 012
44 004253 HEAD1:: .BLKB MAXHED
45 .EVEN
46 004366 HEADSZ:: .BLKW 1
47 004370 SAVSP:: .BLKW 1
48 ;
49 ;
50 004372 FSRSZ$ 2,,IMPURE
51
52 004372 FDBOUT:: FDBDF$
53 004532 FDAT$A R.VAR
54 004532 FDRC$A FD.PLC,OUTREC,OURCSZ
55 004532 FDOP$A OUTLUN,OFNPT,OUDFLT
56 004532 FDBIN:: FDBDF$
57 004672 FDRC$A FD.RWM
58 004672 FDBK$A INBUF,512.,,,IOSTBK
59 004672 FDOP$A INLUN,IFNPT,INDFLT
60
61 004672 GCMLCB::GCMLB$ 3,DMP
62 005340 CSIBLK::.BLKB C.SIZE
63 ;
64 005414 IFNPT:: .BLKB S.FIDS+S.APPD
65 005430' INSPEC==IFNPT+N.SPEC
66 005440 OFNPT:: .BLKB S.FIDS+S.APPD
67 005454' OUSPEC==OFNPT+N.SPEC
68 ;
69 ; EXTRA DPB PARAMETERS FOR CALLING .XQIO
70 005464 004634' 005576' 000000 RATTBK:: .WORD FDBIN+F.FNB+N.FID,ATTCTL,0,0,0,0;FOR READING ATTRIBUTES
005472 000000 000000 000000
71 005500 000042' 001000 000000 READLB:: .WORD INBUF,512.,0,0,0,0 ;FOR READ LOGICAL BLOCK
005506 000000 000000 000000
72 005502' BYTCNT==READLB+2
73 005506' LBN==READLB+6.
74 ;
75 005514 MOPRM:: .BLKW 25.
76 005576 367 012 ATTCTL: .BYTE -9.,10.
77 005600 000020' .WORD STBLK
78 005602 366 000 .BYTE -10.,0
DMP M0004, FILE DUMP UTILITY MACRO M1108 06-DEC-77 00:06 PAGE 10-1
READ/WRITE STORAGE
79 005604 000042' .WORD INBUF
80 005606 000000 .WORD 0
81 005610 040 040 103 CONTIG:: .ASCII / C/
82 .EVEN
DMP M0004, FILE DUMP UTILITY MACRO M1108 06-DEC-77 00:06 PAGE 11
READ ONLY TABLES
84 .SBTTL READ ONLY TABLES
85 ;
86 005614 PURE.D
87 ;
88 000036 CSISWT::CSI$SW BL,BLBIT,DMPCTL,SET,,BLKVAL
89 000046 CSI$SW HD,HDBIT,DMPCTL,SET,,0
90 000056 CSI$SW ID,IDBIT,DMPCTL,SET,,0
91 000066 CSI$SW MD,MDBIT,DMPCTL,SET,,MEMVAL
92 000076 CSI$SW FI,FIDBIT,DMPCTL,SET,,FIDVAL
93 000106 CSI$SW AS,ASCBIT!BYTBIT,DMPCTL,SET,,0
94 000116 CSI$SW BY,BYTBIT,DMPCTL,SET,,0
95 000126 CSI$SW BA,BABIT,DMPCTL,SET,,BASVAL
96 000136 CSI$SW LB,LBBIT,DMPCTL,SET,,0
97 000146 CSI$SW R5,R50BIT,DMPCTL,SET,,0 ;***HBB1
98 000156 CSI$ND
99 000160 BLKVAL:: CSI$SV NUMERIC,FBLOCK,2
100 000164 CSI$SV NUMERIC,LBLOCK,2
101 000170 CSI$ND
102 000172 MEMVAL:: CSI$SV NUMERIC,BYTNUM,2
103 000176 CSI$ND
104 ;
105 000200 FIDVAL:: CSI$SV NUMERIC,FILID,2 ;FILE ID VALUE BLOCK
106 000204 CSI$SV NUMERIC,FILID+2,2
107 000210 CSI$SV NUMERIC,FILID+4,2
108 000214 CSI$ND
109 ;
110 000216 BASVAL:: CSI$SV NUMERIC,BASBLK,2 ; BASE BLOCK NUMBER
111 000222 CSI$SV NUMERIC,BASBLK+2,2
112 000226 CSI$ND
113
114 000230 INDFLT:: NMBLK$ ,,,SY,0
115 000266 OUDFLT:: NMBLK$ FILDMP,DMP,,SY,0
116 000324 000042' .ABORT::.WORD RSTART
117 ;
118 000326 000000 000000 000000 SVTTAB::.WORD 0,0,0,0,0,0
000334 000000 000000 000000
119 000342 000000G .WORD .ERTRP
120 000344 000000 .WORD 0
DMP M0004, FILE DUMP UTILITY MACRO M1108 06-DEC-77 00:06 PAGE 12
PROGRAM INITIALIZATION AND COMMAND RECEIVER
122 .SBTTL PROGRAM INITIALIZATION AND COMMAND RECEIVER
123 ;
124 000346 PURE.I
125 ;
126 000000 010667 004370' START: MOV SP,SAVSP
127 000004 SVTK$S #SVTTAB,#10 ; SET SST VECTOR FOR ERRTRP
128 000022 FINIT$ ;INITIALIZE FCS
129 000026 103015 BCC AGAIN
130 000030 ERROUT ER01 ;NOT ENOUGH STACK SPACE
000030 104402 TRAP X
000032 000000G .WORD ER01SZ
000034 000000G .WORD ER01MG
131 000036 000167 000170 JMP EXIT
132
133 000042 RSTART:: CLOSE$ #FDBIN
134 000052 CLOSE$ #FDBOUT
135
136 000062 016706 004370' AGAIN:: MOV SAVSP,SP
137 000066 005067 000000' CLR DMPCTL ;INIT DEFAULT DUMP PARAMETERS
138 000072 012767 000001 000012' MOV #1,FBLOCK ;DUMP FROM VIRTUAL BLOCK 1
139 000100 012767 177777 000014' MOV #-1,LBLOCK ;ALL BLOCKS OF FILE
140 000106 016767 000002' 000006' MOV BASBLK,BLKNUM ; SET UP BASE BLOCK NUMBERS
141 000114 016767 000004' 000010' MOV BASBLK+2,BLKNUM+2
142 000122 005067 000016' CLR BYTNUM
143 000126 CALL GETCML ;GET NEXT COMMAND LINE
144 000132 103437 BCS EXIT
145 000134 000167 000000G JMP CHECK
146 ;
147 ;
148 000140 000167 000000G RODUMP::JMP DUMP ; VECTOR TO DUMP
149 ;
150 000144 ROHEAD::CALL DMPBLK ; DUMP THE FILE HEADER
151 000150 012667 000000' MOV (SP)+,DMPCTL
152 000154 012667 000016' MOV (SP)+,BYTNUM
153 000160 005767 000012' TST FBLOCK ; IF BLOCK 0 SPECIFIED
154 000164 001726 BEQ RSTART
155 000166 000167 000000G RNXTB:: JMP NXTBLK
DMP M0004, FILE DUMP UTILITY MACRO M1108 06-DEC-77 00:06 PAGE 13
PROGRAM INITIALIZATION AND COMMAND RECEIVER
157 ; EDIT AND PUT STRING TO OUTPUT FILE
158 ; INPUTS:
159 ; R1=FORMAT STRING
160 ; R2=PARAMETER BLOCK ADDRESS
161 ; OUTPUTS:
162 ; C=0 IF SUCCESSFUL, C=1 IF ERROR FROM PUT
163 ; R0,R1 ALTERED
164 ; R2-R5 PRESERVED
165 000172 016700 004420' EDPUT:: MOV FDBOUT+F.NRBD+2,R0
166 000176 010246 MOV R2,-(SP)
167 000200 CALL $EDMSG
168 000204 PUT$ #FDBOUT,,R1,WRTERR
169 000226 012602 MOV (SP)+,R2
170 000230 RETURN
171 ;
172 ;
173 ;
174 ; EXIT FROM DUMP
175 000232 EXIT:: EXIT$S
176 000000' .END START
DMP M0004, FILE DUMP UTILITY MACRO M1108 06-DEC-77 00:06 PAGE 13-1
SYMBOL TABLE
AGAIN 000062RG 006 FD.CCL= 000002 F.NRBD= 000024 INSPEC= 005430RG 004 N.UNIT= 000034
ASCBIT= 000040 FD.CR = 000002 F.NREC= 000030 IOSTBK 000034RG 004 OFNPT 005440RG 004
ATTCTL 005576R 004 FD.DIR= 000010 F.OVBS= 000030 I.CRDT= 000031 OUDFLT 000266RG 003
BABIT = 000200 FD.FTN= 000001 F.RACC= 000016 I.CRTI= 000040 OURCSZ= 000204 G
BASBLK 000002RG 004 FD.INS= 000010 F.RATT= 000001 I.DASZ= 000007 OUSPEC= 005454RG 004
BASVAL 000216RG 003 FD.PLC= 000004 F.RCNM= 000034 I.EXDT= 000046 OUTLUN= 000004
BLBIT = 000001 FD.RAH= 000001 F.RCTL= 000017 I.FNAM= 000000 OUTREC 004042RG 004
BLKNUM 000006RG 004 FD.RAN= 000002 F.RSIZ= 000002 I.FTYP= 000006 PAR$$$= 000027
BLKVAL 000160RG 003 FD.REC= 000001 F.RTYP= 000000 I.FVER= 000010 RATTBK 005464RG 004
BUF 000040RG 004 FD.RWM= 000001 F.STBK= 000036 I.RVDT= 000014 READLB 005500RG 004
BYTBIT= 000100 FD.SDI= 000020 F.UNIT= 000136 I.RVNO= 000012 RNXTB 000166RG 006
BYTCNT= 005502RG 004 FD.SQD= 000040 F.URBD= 000020 I.RVTI= 000023 RODUMP 000140RG 006
BYTNUM 000016RG 004 FD.TTY= 000004 F.VBN = 000064 I.TISZ= 000006 ROHEAD 000144RG 006
CHECK = ****** GX FD.WBH= 000002 F.VBSZ= 000060 LBBIT = 000400 RSTART 000042RG 006
CONTIG 005610RG 004 FF = 000014 GCMLCB 004672RG 004 LBLOCK 000014RG 004 R$$DPB= 000001
CR = 000015 FIDBIT= 000020 GETCML= ****** GX LBN = 005506RG 004 R$$DYM= 000001
CSIBLK 005340RG 004 FIDVAL 000200RG 003 GE.BIF= 177775 LBNBIT= 100000 R$$EIS= 000000
CSISWT 000036RG 003 FILID = ****** GX GE.CLO= 000004 LF = 000012 R$$MSG= 000000
CS.DIF= 000002 FO.APD= 000106 GE.COM= 000001 MAXHED= 000113 R$$11M= 000001
CS.DVF= 000004 FO.MFY= 000002 GE.EOF= 177766 MDBIT = 000010 R.FIX = 000001
CS.EQU= 000040 FO.RD = 000001 GE.IND= 000002 MEMVAL 000172RG 003 R.VAR = 000002
CS.INP= 000001 FO.UPD= 000006 GE.IOR= 177777 MOIDMG= 000021RG 002 R50BIT= 001000
CS.MOR= 000020 FO.WRT= 000016 GE.LC = 000010 MOIDSZ= 000007 G SAVSP 004370RG 004
CS.NMF= 000001 FP.DEL= 000010 GE.MDE= 177774 MOPRM 005514RG 004 SC.BAD= 000100
CS.OUT= 000002 FP.EXT= 000004 GE.OPR= 177776 M.CTSZ= 000006 SC.MDL= 000200
CS.SWF= 000040 FP.RAT= 000001 G.CMLD= 000146 M.EFNU= 000002 START 000000R 006
CS.WLD= 000010 FP.RDV= 000001 G.DPRM= 000160 M.EFSQ= 000004 STBLK 000020RG 004
C.CMLD= 000002 FP.WRV= 000002 G.ERR = 000140 M.ERVN= 000001 SVTTAB 000326RG 003
C.DEVD= 000006 F.ALOC= 000040 G.ISIZ= 000020 M.ESQN= 000000 S.APPD= 000010
C.DIRD= 000012 F.BBFS= 000062 G.LPDL= 000100 M.LBSZ= 000007 S.BFHD= 000020
C.DSDS= 000006 F.BDB = 000070 G.MODE= 000141 M.MAX = 000011 S.FATT= 000016
C.FILD= 000016 F.BGBC= 000057 G.PSDS= 000142 M.RTRV= 000012 S.FDB = 000140
C.MKW1= 000024 F.BKDN= 000026 HDBIT = 000002 M.USE = 000010 S.FIDS= 000014
C.MKW2= 000026 F.BKDS= 000020 HEADER 004246RG 004 NB.DEV= 000200 S.FNAM= 000006
C.SIZE= 000054 F.BKEF= 000050 HEADSZ 004366RG 004 NB.DIR= 000100 S.FNB = 000036
C.STAT= 000001 F.BKP1= 000051 HEAD1 004253RG 004 NB.NAM= 000004 S.FNBW= 000017
C.SWAD= 000022 F.BKST= 000024 H.CKSM= 000776 NB.SD1= 000400 S.FNTY= 000004
C.TYPR= 000000 F.BKVB= 000064 H.FCHA= 000014 NB.SD2= 001000 S.FTYP= 000002
DMPBLK= ****** GX F.CNTG= 000034 H.FLEV= 000006 NB.SNM= 000040 S.HDHD= 000056
DMPCTL 000000RG 004 F.DFNB= 000046 H.FNUM= 000002 NB.STP= 000020 S.IDHD= 000056
DUMP = ****** GX F.DSPT= 000044 H.FOWN= 000010 NB.SVR= 000010 S.MPHD= 000012
EDPUT 000172RG 006 F.DVNM= 000134 H.FPRO= 000012 NB.TYP= 000002 S.NFEN= 000020
ER01MG= ****** GX F.EFBK= 000010 H.FSEQ= 000004 NB.VER= 000001 S.STBK= 000014
ER01SZ= ****** GX F.EFN = 000050 H.IDOF= 000000 NXTBLK= ****** GX TAB = 000011
EXIT 000232RG 006 F.EOBB= 000032 H.MPOF= 000001 N.DEVD= 000000 UC.CON= 000200
FA.APD= 000100 F.ERR = 000052 H.PROG= 000010 N.DID = 000024 UC.DLK= 000100
FA.CRE= 000010 F.FACC= 000043 H.PROJ= 000011 N.DIRD= 000004 WRTERR= ****** GX
FA.EXT= 000004 F.FFBY= 000014 H.SCHA= 000015 N.DVNM= 000032 X = 000002
FA.NSP= 000100 F.FNAM= 000110 H.UCHA= 000014 N.FID = 000000 $EDMSG= ****** GX
FA.RD = 000001 F.FNB = 000102 H.UFAT= 000016 N.FLID= 000016 $$ = 000067
FA.SHR= 000040 F.FTYP= 000116 IDBIT = 000004 N.FNAM= 000006 $$$ = 005052R 004
FA.TMP= 000020 F.FVER= 000120 IDNTMG= 000000RG 002 N.FNMD= 000010 $$$T1 = 000067
FA.WRT= 000002 F.HIBK= 000004 IDNTSZ= 000021 G N.FTYP= 000014 .ABORT 000324RG 003
FBLOCK 000012RG 004 F.LUN = 000042 IFNPT 005414RG 004 N.FVER= 000016 .CLOSE= ****** G
FDBIN 004532RG 004 F.MBCT= 000054 INBUF = 000042RG 004 N.NEXT= 000022 .ERTRP= ****** GX
FDBOUT 004372RG 004 F.MBC1= 000055 INDFLT 000230RG 003 N.SPEC= 000014 .FINIT= ****** G
FD.BLK= 000010 F.MBFG= 000056 INLUN = 000003 N.STAT= 000020 .FSRCB= ****** G
DMP M0004, FILE DUMP UTILITY MACRO M1108 06-DEC-77 00:06 PAGE 13-2
SYMBOL TABLE
.MSGFN 000000RG 003 ...GBL= 000000 ...PC2= 000322R 003 ...PC3= 004672R 004 ...TPC= 000020
.PUT = ****** G ...PC1= 004672R 004
. ABS. 000000 000
000000 001
MSGSTR 000030 002
PURE$D 000346 003
IMPURE 005614 004
$$FSR1 002040 005
PURE$I 000240 006
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 7728 WORDS ( 31 PAGES)
DYNAMIC MEMORY: 8384 WORDS ( 32 PAGES)
ELAPSED TIME: 00:01:13
[64,10]DMP,[64,20]DMP/-SP=[64,30]PIPMAC,DMPDEF,DMP
DMPDEF MACRO M1108 06-DEC-77 00:07
TABLE OF CONTENTS
7- 16 MACRO INVOCATION AND ASSEMBLY PARAMETERS
9- 1 **** DMDMPR VERSION M0004 ****
10- 24 DUMP THE DESIRED BLOCKS OF THE FILE
11- 118 DMPBLK, DMPBYT, BYTOUT, EDPUT, ERRPT0
DMPDEF MACRO M1108 06-DEC-77 00:07 PAGE 7
1 .TITLE DMPDEF
2 .IDENT /V02/
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 ;
16 .SBTTL MACRO INVOCATION AND ASSEMBLY PARAMETERS
17 ;
19 .MCALL FDOFF$,FCSBT$,QIOSY$,CSI$,GCMLD$
20 .MCALL FHDOF$
21 .MCALL SVTK$S
27 ;
28 .MCALL FINIT$,OFNB$,READ$,WAIT$,PUT$,CLOSE$
29 .MCALL FSRSZ$,FDBDF$,NMBLK$,FDAT$A,FDRC$A,FDBK$A,FDOP$A
30 .MCALL CSI$1,CSI$2,CSI$SW,CSI$SV,CSI$ND,ALUN$S
31 .MCALL GCMLB$,CALL,RETURN,EXIT$S
32
33 000014 FF=14 ;FORM FEED CHARACTER
34 000015 CR=15 ;CARRIAGE RETURN CHARCTER
35 000012 LF=12 ;LINE FEED CHARACTER
36 000011 TAB=11 ;TAB CHARACTER
37 000003 INLUN=3 ;LUN FOR INPUT FILE
38 000004 OUTLUN=4 ;LUN FOR LISTING FILE
39 000113 MAXHED=75. ;MAXIMUM HEADER SIZE IN BYTES
40 ;
41 000014 S.STBK=12. ;SIZE OF STATISTICS BLOCK IN BYTES
42 000040 CS.SWF=40 ;CSI$2 STATUS BIT FOR "SWITCH FOUND"
43
44 ;
45 ; BITS IN DMPCTL
46 000001 BLBIT=1 ;SET IF BLOCK SWITCH WAS SPECIFIED
47 000002 HDBIT=2 ;SET IF HEADER SWITCH WAS SPECIFIED
48 000004 IDBIT=4 ;SET TO PRINT THE IDENT MESSAGE
49 000010 MDBIT=10 ;SET IF NUMBERING FOR MEMORY DUMP
50 000020 FIDBIT=20 ;FILE ID SPECIFIED
51 000040 ASCBIT=40 ;DUMP IN ASCII MODE
52 000100 BYTBIT=100 ;DUMP BYTE ORIENTED (VERSUS WORD)
53 000200 BABIT=200 ; BASE BLOCK NUMBER:N:N
54 000400 LBBIT=400 ; START BLOCK NUMBER BIT
55 001000 R50BIT=1000 ;***HBB1 DUMP IN RAD50 MODE
56 100000 LBNBIT=100000 ;SET IF IN LOGICAL BLOCK MODE
57 ; DEFINITION TO AVOID GLOBAL ARITHMETIC PROBLEMS
58 000001 FO.RD=1
59 000040 FA.SHR=40
DMDMPR M0004, DUMP MAIN PROGRAM MACRO M1108 06-DEC-77 00:07 PAGE 9
MACRO INVOCATION AND ASSEMBLY PARAMETERS
1 .TITLE DMDMPR M0004, DUMP MAIN PROGRAM
.SBTTL **** DMDMPR VERSION M0004 ****
.IDENT /M0004/
2 ; ALTERED:
3 ; ANDREW C. GOLDSTEIN 2 APR 75 12:59
4 ; ALTERED WEDNESDAY 30-JAN-74 21:10
5 ; ALTERED 10-MAR-76 H.B. BOSWELL ADD RAD50 MODE DUMP HBB1
6 ;
7 ; COPYRIGHT 1974, DIGITAL EQUIPMENT CORP., MAYNARD MASS.
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 ;
DMDMPR M0004, DUMP MAIN PROGRAM MACRO M1108 06-DEC-77 00:07 PAGE 10
DUMP THE DESIRED BLOCKS OF THE FILE
24 .SBTTL DUMP THE DESIRED BLOCKS OF THE FILE
25 ;
26 ; DUMP THE NEXT BLOCK
27
28 000000 PURE.I
29
30 .ENABL LSB
31
32 000000 012701 000000G NXTBLK:: MOV #INBUF,R1 ;ZERO THE BUFFER
33 000004 012702 002000 MOV #1024.,R2 ;SINCE PRINTING ENTIRE BUFFER
34 000010 005021 10$: CLR (R1)+ ;EVEN IF SHORT BLOCK WAS READ
35 000012 SOB R2,10$
36 000016 012700 000000G MOV #FDBIN,R0
37 000022 032767 100000 000000G BIT #LBNBIT,DMPCTL ;LOGICAL BLOCKS?
38 000030 001425 BEQ 20$ ;BRANCH IF VIRTUAL BLOCKS
39 ;
40 ; DO LOGICAL I/O
41 000032 016767 000000G 000000G MOV BLKNUM,LBN ; SET BLOCK NUMBERS
42 000040 016767 000002G 000002G MOV BLKNUM+2,LBN+2
43 000046 012701 000000G MOV #IO.RLB,R1
44 000052 012702 000005 MOV #5,R2
45 000056 012703 000000G MOV #READLB,R3
46 000062 CALL .XQIO ;READ THE NEXT LOGICAL BLOCK
47 000066 103567 BCS CKEOF ;BRANCH IF ERROR
48 000070 013702 000000G MOV @#.FSRPT,R2
49 000074 016267 000002G 000002G MOV A.IOST+2(R2),IOSTBK+2
50 000102 000406 BR 30$
51 ;
52 ; READ VIRTUAL BLOCKS FROM SPECIFIED FILE
53 000104 20$: READ$ R0 ;READ THE NEXT BLOCK
54 000110 103556 BCS CKEOF ;BRANCH IF QI/O ERROR
55 000112 WAIT$ R0 ;WAIT FOR I/O DIONE
56 000116 103553 BCS CKEOF ;BRANCH IF ERROR
57 ;
58 ; NOW WRITE THE PAGE HEADER
59 000120 30$: PUT$ #FDBOUT,#HEADER,HEADSZ,WRTERR
60 000152 012702 000000G MOV #MOPRM,R2 ;R2=ADDRESS OF PARAM BLOCK
61 000156 012712 000000G MOV #FM03SZ,@R2 ;SET UP BLOCK NO. MESSAGE
62 000162 012762 000000G 000002 MOV #FM03MG,2(R2)
63 000170 016762 000000G 000004 MOV BLKNUM,4(R2) ; INSERT BLOCK NUMBERS IN PARAMS
64 000176 016762 000002G 000006 MOV BLKNUM+2,6(R2)
65 000204 005267 000000G INC FBLOCK
66 000210 062767 000001 000002G ADD #1,BLKNUM+2 ; INCREMENT BLOCK NUMS
67 000216 005567 000000G ADC BLKNUM
68 000222 016762 000002G 000010 MOV IOSTBK+2,10(R2)
69 000230 012701 000000G MOV #VBNOMG,R1 ;SAY "VIRTUAL BLOCK"
70 000234 032767 100000 000000G BIT #LBNBIT,DMPCTL ;UNLESS LOGICAL BLOCK MODE
71 000242 001402 BEQ 40$
72 000244 012701 000000G MOV #LBNOMG,R1 ;USE "LOGICAL BLOCK"
73 000250 40$: CALL EDPUT
74 000254 122767 000000G 000052G CMPB #IE.VER,FDBIN+F.ERR ; SEE IF THERE WAS A PARITY ERROR
75 000262 001015 BNE 50$ ; NO
76 000264 PUT$ #FDBOUT,#BADPMG,#BADPSZ,WRTERR ; OUTPUT MESSAGE
77 000316 032767 000010 000000G 50$: BIT #MDBIT,DMPCTL ;UNLESS IN MEMORY DUMP MODE
78 000324 001002 BNE 60$
79 000326 005067 000000G CLR BYTNUM ;RENUMBER EACH PAGE STARTING AT 0
80 000332 60$: CALL DMPBLK ;OUTPUT THE BLOCK
DMDMPR M0004, DUMP MAIN PROGRAM MACRO M1108 06-DEC-77 00:07 PAGE 10-1
DUMP THE DESIRED BLOCKS OF THE FILE
81 000336 122767 000000G 000052G CMPB #IE.EOT,FDBIN+F.ERR ; SEE IF WE ARE AT END OF TAPE
82 000344 001016 BNE 70$ ; NO
83 000346 PUT$ #FDBOUT,#EOT1MG,#EOT1SZ,WRTERR ; OUTPUT MESSAGE
84 000400 000420 BR 80$ ; AND GET OUT
85 000402 026767 000000G 000000G 70$: CMP FBLOCK,LBLOCK ;DONE ALL BLOCKS?
86 000410 101014 BHI 80$
87 000412 000167 177362 JMP NXTBLK ;BRANCH IF MORE TO DO
88 000416 PUT$ #FDBOUT,#EOF1MG,#2
89 000442 000167 000000G 80$: JMP RSTART
90 ;
91 ; ERROR READING INPUT FILE - PROBABLY EOF
92 000446 122760 000000G 000052 CKEOF:: CMPB #IE.EOF,F.ERR(R0)
93 000454 001421 BEQ 110$
94 000456 122760 000000G 000052 CMPB #IE.EOT,F.ERR(R0) ; SEE IF AT END OF TAPE
95 000464 001615 BEQ 30$ ; IF SO, IGNORE FOR NOW
96 000466 122760 000000G 000052 CMPB #IE.VER,F.ERR(R0) ; LIKEWISE FOR PARITY ERROR
97 000474 001004 BNE 90$ ; NEITHER
98 000476 012767 001000 000002G MOV #512.,IOSTBK+2 ; FAKE A BYTE COUNT OF 512
99 000504 000605 BR 30$ ; AND DUMP IT ANYWAY
100 000506 90$: ERROUT ER09,0,0 ;I/O ERROR
000506 104426 TRAP X
000510 000000G .WORD ER09SZ
000512 000000G .WORD ER09MG
101 000514 000167 000000G 100$: JMP RSTART
102
103 000520 110$: PUT$ #FDBOUT,#EOF1MG,#EOF1SZ,WRTERR
104 000552 005267 000000G INC FBLOCK ;COUNT EOF AS LOGICAL BLOCK
105 000556 032767 100000 000000G BIT #LBNBIT,DMPCTL
106 000564 001753 BEQ 100$
107 000566 132767 000040 000017G BITB #FD.SQD,FDBIN+F.RCTL ; CHECK IF SEQ DEVICE (MAGTAPE)
108 000574 001747 BEQ 100$ ; QUIT IF NOT
109 000576 000167 177176 JMP NXTBLK
110
111 ;
112 ; ERROR WRITING LISTING FILE
113 000602 WRTERR:: ERROUT ER10,0,0
000602 104426 TRAP X
000604 000000G .WORD ER10SZ
000606 000000G .WORD ER10MG
114 000610 000167 000000G JMP RSTART
115
116 .DSABL LSB
DMDMPR M0004, DUMP MAIN PROGRAM MACRO M1108 06-DEC-77 00:07 PAGE 11
DMPBLK, DMPBYT, BYTOUT, EDPUT, ERRPT0
118 .SBTTL DMPBLK, DMPBYT, BYTOUT, EDPUT, ERRPT0
119 ; DUMP A 256. WORD BLOCK FROM INBUF TO FDBOUT
120 000614 DMPBLK::
121 000614 012702 000000G MOV #INBUF,R2 ;DUMP IN WORD MODE
122 000620 016705 000002G MOV IOSTBK+2,R5 ; GET BYTE COUNT
123 000624 062705 000017 ADD #15.,R5 ; ROUND UP TO ONE LINE
124 .IF GT,R$$EIS
125 ASH #-4,R5 ; COMPUTE LINE COUNT
126 .IFF
127 000630 006205 ASR R5 ; COMPUTE LINE COUNT
128 000632 006205 ASR R5
129 000634 006205 ASR R5
130 000636 006205 ASR R5
131 .ENDC
132 000640 032767 000100 000000G BIT #BYTBIT,DMPCTL
133 000646 001024 BNE DMPBYT ;BRANCH IF BYTE MODE
134
135 000650 016742 000000G 20$: MOV BYTNUM,-(R2) ;STORE LINE NUMBER BEFORE DATA
136 000654 062767 000020 000000G ADD #20,BYTNUM
137 000662 012701 000000G MOV #FM04MG,R1 ;***HBB1 ASSUME OCTAL
138 000666 032767 001000 000000G BIT #R50BIT,DMPCTL ;***HBB1 IS IT REALY RAD50
139 000674 001402 BEQ 30$ ;***HBB1 BR IF NO
140 000676 012701 000000G MOV #FM06MG,R1 ;***HBB1 SET UP RAD50 CMD LINE
141 000702 30$: ;***HBB1
142 000702 CALL EDPUT
143 000706 062702 000022 ADD #18.,R2 ;POINT AT NEXT SET OF DATA
144 000712 SOB R5,20$
145 000716 RETURN
146 ;
147 ; DUMP A 256 WORD BLOCK IN BYTE MODE
148 000720 DMPBYT::
149 000720 010203 MOV R2,R3 ; CROCK!!!!!!!!!!!
150 000722 016700 000026G 10$: MOV FDBOUT+F.NRBD+2,R0
151 000726 012701 000000G MOV #FM05MG,R1
152 000732 012702 000000G MOV #BYTNUM,R2
153 000736 CALL $EDMSG
154 000742 062767 000020 000000G ADD #16.,BYTNUM
155 000750 012704 000020 MOV #16.,R4 ;16 BYTES PER LINE
156 000754 112301 20$: MOVB (R3)+,R1
157 000756 CALL BYTOUT
158 000762 SOB R4,20$
159 000766 010001 MOV R0,R1
160 000770 166701 000026G SUB FDBOUT+F.NRBD+2,R1
161 000774 PUT$ #FDBOUT,,R1,WRTERR
162 001016 SOB R5,10$ ;DON THE NEXT LINE IF ANY
163 001022 RETURN
DMDMPR M0004, DUMP MAIN PROGRAM MACRO M1108 06-DEC-77 00:07 PAGE 12
DMPBLK, DMPBYT, BYTOUT, EDPUT, ERRPT0
165 ; TRANSLATE THE BYTE IN R1 TO THE STRING IN R0
166 001024 042701 177400 BYTOUT:: BIC #177400,R1 ;CLEAR HIGH ORDER BITS
167 001030 032767 000040 000000G BIT #ASCBIT,DMPCTL ;ASCII FORMAT?
168 001036 001011 BNE BYTASC ;BRANCH IF YES
169 001040 CALL BYTOU2 ;1ST 2 BITS TO OCTAL DIGIT
170 001044 CALL BYTOU1 ;2ND OCTAL DIGIT
171 001050 CALL BYTOU1 ;3RD OCTAL DIGIT
172 001054 112720 000040 MOVB #' ,(R0)+
173 001060 RETURN
174 ;
175 ; ASCII MODE, CONTROL CHARS BECOME ^ FOLLOWED BY LETTER (CHAR+100)
176 ; LOWER CASE BECOME % FOLLOWED BY LETTER (CHAR-40)
177 001062 112720 000040 BYTASC:: MOVB #' ,(R0)+
178 001066 042701 177600 BIC #177600,R1 ;FORCE GARBAGE TO 7 BIT
179 001072 122701 000040 CMPB #40,R1
180 001076 101405 BLOS 20$
181 001100 062701 000100 ADD #100,R1 ;CONTROL CHARACTER
182 001104 112720 000136 MOVB #'^,(R0)+
183 001110 000412 BR 40$
184 001112 122701 000140 20$: CMPB #140,R1 ;LOWER CASE?
185 001116 101005 BHI 30$ ;BRANCH IF PRINTABLE CHARACTER
186 001120 162701 000040 SUB #40,R1 ;LOWER CASE CHARACTER
187 001124 112720 000045 MOVB #'%,(R0)+
188 001130 000402 BR 40$
189 001132 112720 000040 30$: MOVB #' ,(R0)+
190 001136 110120 40$: MOVB R1,(R0)+ ;STORE CHARACTER
191 001140 RETURN
192 ;
193 ; OUTPUT BYTE IN OCTAL
194 001142 006301 BYTOU1: ASL R1
195 001144 006301 BYTOU2: ASL R1
196 001146 006301 ASL R1
197 001150 000301 SWAB R1
198 001152 062701 000060 ADD #'0,R1
199 001156 110120 MOVB R1,(R0)+
200 001160 105001 CLRB R1
201 001162 000301 SWAB R1
202 001164 RETURN
DMDMPR M0004, DUMP MAIN PROGRAM MACRO M1108 06-DEC-77 00:07 PAGE 13
DMPBLK, DMPBYT, BYTOUT, EDPUT, ERRPT0
204 000001 .END
DMDMPR M0004, DUMP MAIN PROGRAM MACRO M1108 06-DEC-77 00:07 PAGE 13-1
SYMBOL TABLE
ASCBIT= 000040 FA.WRT= 000002 F.FACC= 000043 H.SCHA= 000015 N.DVNM= 000032
A.IOST= ****** GX FBLOCK= ****** GX F.FFBY= 000014 H.UCHA= 000014 N.FID = 000000
BABIT = 000200 FDBIN = ****** GX F.FNAM= 000110 H.UFAT= 000016 N.FLID= 000016
BADPMG= ****** GX FDBOUT= ****** GX F.FNB = 000102 IDBIT = 000004 N.FNAM= 000006
BADPSZ= ****** GX FD.BLK= 000010 F.FTYP= 000116 IE.EOF= ****** GX N.FNMD= 000010
BLBIT = 000001 FD.CCL= 000002 F.FVER= 000120 IE.EOT= ****** GX N.FTYP= 000014
BLKNUM= ****** GX FD.CR = 000002 F.HIBK= 000004 IE.VER= ****** GX N.FVER= 000016
BYTASC 001062RG 002 FD.DIR= 000010 F.LUN = 000042 INBUF = ****** GX N.NEXT= 000022
BYTBIT= 000100 FD.FTN= 000001 F.MBCT= 000054 INLUN = 000003 N.SPEC= 000014
BYTNUM= ****** GX FD.INS= 000010 F.MBC1= 000055 IOSTBK= ****** GX N.STAT= 000020
BYTOUT 001024RG 002 FD.PLC= 000004 F.MBFG= 000056 IO.RLB= ****** GX N.UNIT= 000034
BYTOU1 001142R 002 FD.RAH= 000001 F.NRBD= 000024 I.CRDT= 000031 OUTLUN= 000004
BYTOU2 001144R 002 FD.RAN= 000002 F.NREC= 000030 I.CRTI= 000040 PAR$$$= 000027
CKEOF 000446RG 002 FD.REC= 000001 F.OVBS= 000030 I.DASZ= 000007 READLB= ****** GX
CR = 000015 FD.RWM= 000001 F.RACC= 000016 I.EXDT= 000046 RSTART= ****** GX
CS.DIF= 000002 FD.SDI= 000020 F.RATT= 000001 I.FNAM= 000000 R$$DPB= 000001
CS.DVF= 000004 FD.SQD= 000040 F.RCNM= 000034 I.FTYP= 000006 R$$DYM= 000001
CS.EQU= 000040 FD.TTY= 000004 F.RCTL= 000017 I.FVER= 000010 R$$EIS= 000000
CS.INP= 000001 FD.WBH= 000002 F.RSIZ= 000002 I.RVDT= 000014 R$$11M= 000001
CS.MOR= 000020 FF = 000014 F.RTYP= 000000 I.RVNO= 000012 R.FIX = 000001
CS.NMF= 000001 FIDBIT= 000020 F.STBK= 000036 I.RVTI= 000023 R.VAR = 000002
CS.OUT= 000002 FM03MG= ****** GX F.UNIT= 000136 I.TISZ= 000006 R50BIT= 001000
CS.SWF= 000040 FM03SZ= ****** GX F.URBD= 000020 LBBIT = 000400 SC.BAD= 000100
CS.WLD= 000010 FM04MG= ****** GX F.VBN = 000064 LBLOCK= ****** GX SC.MDL= 000200
C.CMLD= 000002 FM05MG= ****** GX F.VBSZ= 000060 LBN = ****** GX S.APPD= 000010
C.DEVD= 000006 FM06MG= ****** GX GE.BIF= 177775 LBNBIT= 100000 S.FATT= 000016
C.DIRD= 000012 FO.APD= 000106 GE.CLO= 000004 LBNOMG= ****** GX S.FDB = 000140
C.DSDS= 000006 FO.MFY= 000002 GE.COM= 000001 LF = 000012 S.FIDS= 000014
C.FILD= 000016 FO.RD = 000001 GE.EOF= 177766 MAXHED= 000113 S.FNAM= 000006
C.MKW1= 000024 FO.UPD= 000006 GE.IND= 000002 MDBIT = 000010 S.FNB = 000036
C.MKW2= 000026 FO.WRT= 000016 GE.IOR= 177777 MOPRM = ****** GX S.FNBW= 000017
C.SIZE= 000054 FP.DEL= 000010 GE.LC = 000010 M.CTSZ= 000006 S.FNTY= 000004
C.STAT= 000001 FP.EXT= 000004 GE.MDE= 177774 M.EFNU= 000002 S.FTYP= 000002
C.SWAD= 000022 FP.RAT= 000001 GE.OPR= 177776 M.EFSQ= 000004 S.HDHD= 000056
C.TYPR= 000000 FP.RDV= 000001 G.CMLD= 000146 M.ERVN= 000001 S.IDHD= 000056
DMPBLK 000614RG 002 FP.WRV= 000002 G.DPRM= 000160 M.ESQN= 000000 S.MPHD= 000012
DMPBYT 000720RG 002 F.ALOC= 000040 G.ERR = 000140 M.LBSZ= 000007 S.NFEN= 000020
DMPCTL= ****** GX F.BBFS= 000062 G.ISIZ= 000020 M.MAX = 000011 S.STBK= 000014
EDPUT = ****** GX F.BDB = 000070 G.MODE= 000141 M.RTRV= 000012 TAB = 000011
EOF1MG= ****** GX F.BGBC= 000057 G.PSDS= 000142 M.USE = 000010 UC.CON= 000200
EOF1SZ= ****** GX F.BKDN= 000026 HDBIT = 000002 NB.DEV= 000200 UC.DLK= 000100
EOT1MG= ****** GX F.BKDS= 000020 HEADER= ****** GX NB.DIR= 000100 VBNOMG= ****** GX
EOT1SZ= ****** GX F.BKEF= 000050 HEADSZ= ****** GX NB.NAM= 000004 WRTERR 000602RG 002
ER09MG= ****** GX F.BKP1= 000051 H.CKSM= 000776 NB.SD1= 000400 X = 000026
ER09SZ= ****** GX F.BKST= 000024 H.FCHA= 000014 NB.SD2= 001000 $EDMSG= ****** GX
ER10MG= ****** GX F.BKVB= 000064 H.FLEV= 000006 NB.SNM= 000040 $$ = 000067
ER10SZ= ****** GX F.CNTG= 000034 H.FNUM= 000002 NB.STP= 000020 $$$T1 = 000067
FA.APD= 000100 F.DFNB= 000046 H.FOWN= 000010 NB.SVR= 000010 .FSRPT= ****** GX
FA.CRE= 000010 F.DSPT= 000044 H.FPRO= 000012 NB.TYP= 000002 .PUT = ****** G
FA.EXT= 000004 F.DVNM= 000134 H.FSEQ= 000004 NB.VER= 000001 .READ = ****** G
FA.NSP= 000100 F.EFBK= 000010 H.IDOF= 000000 NXTBLK 000000RG 002 .WAIT = ****** G
FA.RD = 000001 F.EFN = 000050 H.MPOF= 000001 N.DEVD= 000000 .XQIO = ****** GX
FA.SHR= 000040 F.EOBB= 000032 H.PROG= 000010 N.DID = 000024 ...GBL= 000000
FA.TMP= 000020 F.ERR = 000052 H.PROJ= 000011 N.DIRD= 000004 ...TPC= 000012
. ABS. 000000 000
000000 001
DMDMPR M0004, DUMP MAIN PROGRAM MACRO M1108 06-DEC-77 00:07 PAGE 13-2
SYMBOL TABLE
PURE$I 001166 002
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 7272 WORDS ( 29 PAGES)
DYNAMIC MEMORY: 8384 WORDS ( 32 PAGES)
ELAPSED TIME: 00:00:53
[64,10]DMDMPR,[64,20]DMDMPR/-SP=[64,30]PIPMAC,DMPDEF,DMDMPR
DMPMSG M0003, ERROR MESSAGES FO MACRO M1108 06-DEC-77 00:08
TABLE OF CONTENTS
7- 1 **** DMPMSG VERSION M0003 ****
DMPMSG M0003, ERROR MESSAGES FO MACRO M1108 06-DEC-77 00:08 PAGE 7
1 .TITLE DMPMSG M0003, ERROR MESSAGES FOR DMP
.SBTTL **** DMPMSG VERSION M0003 ****
.IDENT /M0003/
2 ; ALTERED:
3 ; ANDREW C. GOLDSTEIN 21 MAR 75 15:00
4 ;
5 ; COPYRIGHT 1973, DIGITAL EQUIPMENT CORP., MAYNARD MASS.
6 ; COPYRIGHT 1974, DIGITAL EQUIPMENT CORP., MAYNARD MASS.
7
8 ; THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A LICENSE FOR USE
9 ; ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH INCLUSION
10 ; OF DEC'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT
11 ; AS MAY OTHERWISE BE PROVIDED IN WRITING BY DEC.
12
13 ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
14 ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
15 ; EQUIPMENT CORPORATION.
16
17 ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY
18 ; OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.
19 ;
20 ; PETER H. LIPMAN 18-SEP-73
21 ; ALTERED 19-DEC-73
22 ; ALTERED FOR RSX11M 12-MAR-74 R.HEINEN
23 ; ALTERED 10-MAR-76 H.B. BOSWELL ADD RAD50 DUMP MODE HBB1
24 ;
25 000015 CR=15
26 000012 LF=12
27 000001 MSGBL.=1 ;FORCE GLOBAL DEFINITIONS
28 000011 TAB=11
29 ;
30 000000 .PSECT MESSAG,D
31 000000 MSG ER01,<FAILURE FROM FINIT$, NOT ENOUGH STACK>
32 000000 MSG1 ER03,<^COMMAND SYNTAX ERROR^<CR><LF>>
33 000000 MSG ER04,<OPEN FAILURE ON INPUT FILE>
34 000000 MSG ER05,<OPEN FAILURE ON OUTPUT FILE>
35 000000 MSG ER06,<CANNOT FIND INPUT FILE>
36 000000 MSG ER07,<ILLEGAL SWITCH>
37 000000 MSG ER08,<NO LISTS OR WILD CARDS ALLOWED>
38 000000 MSG ER09,<I/O ERROR ON INPUT FILE>
39 000000 MSG ER10,<I/O ERROR ON OUTPUT FILE>
40 000000 MSG ER11,<FAILED TO READ ATTRIBUTES>
41 000000 MSG ER12,<BAD DEVICE NAME>
42 000000 MSG ER13,<FAILED TO ASSIGN LUN>
43 000000 MSG ER14,<NO INPUT FILE SPECIFIED>
44 000000 MSG ER15,<BLOCK SWITCH REQUIRED IN LOGICAL BLOCK MODE>
45 ;
46 000000 MSG1 EOF1,<<CR><LF><CR><LF>^*** EOF ***^<CR><LF>>
47 000000 MSG1 EOT1,<<CR><LF><CR><LF>^*** EOT ***^<CR><LF>>
48 000000 MSG1 BADP,<^***** THIS BLOCK HAS BAD PARITY *****^<CR><LF><CR><LF>>
49 ;
50 ; FORMAT STRING FOR EDIT MESSAGE
51 000000 MSGZ FM01,<DUMP OF %2A%O:>
52 000000 MSGZ FM02,<DUMP OF %2A%O:%VA%X - FILE ID %O,%O,%O>
53 000000 MSG1 FM03,<<CR><LF><TAB><TAB>>
54 000000 MSGZ FM04,<%N%P %P %P %P %P %P %P %P %P>
55 000000 MSGZ FM05,<%N%P >
DMPMSG M0003, ERROR MESSAGES FO MACRO M1108 06-DEC-77 00:08 PAGE 7-1
**** DMPMSG VERSION M0003 ****
56 ;
57 000000 MSGZ FM06,<%N%P %R %R %R %R %R %R %R %R>;***HBB1
58 000000 MSGZ VBNO,<%VA VIRTUAL BLOCK %O,%P - SIZE %D. BYTES%N%N>
59 000000 MSGZ LBNO,<%VA LOGICAL BLOCK %O,%P - SIZE %D. BYTES%N%N>
60 000000 MSGZ FLBL,<%N STARTING BLOCK NUMBER = %O,%P%VA%N>
61 000000 MSGZ FLHD,<%VA FILE HEADER%N%N>
62 ;
63 ; FATAL ERROR MESSAGES
64 000000 MSG FA01,<FATAL - PAGE HEADER LINE TOO LONG>
65 ;
66 ;
67 000001 .END
DMPMSG M0003, ERROR MESSAGES FO MACRO M1108 06-DEC-77 00:08 PAGE 7-2
SYMBOL TABLE
BADPMG= 000601RG 003 ER05MG= 000125RG 003 ER11SZ= 000031 G FLHDMG= 001253RG 003 FM06SZ= 000040 G
BADPSZ= 000051 G ER05SZ= 000033 G ER12MG= 000372RG 003 FLHDSZ= 000026 G LBNOMG= 001130RG 003
CR = 000015 ER06MG= 000160RG 003 ER12SZ= 000017 G FM01MG= 000652RG 003 LBNOSZ= 000055 G
EOF1MG= 000537RG 003 ER06SZ= 000026 G ER13MG= 000411RG 003 FM01SZ= 000017 G LF = 000012
EOF1SZ= 000021 G ER07MG= 000206RG 003 ER13SZ= 000024 G FM02MG= 000671RG 003 MSGBL.= 000001
EOT1MG= 000560RG 003 ER07SZ= 000016 G ER14MG= 000435RG 003 FM02SZ= 000047 G R$$DPB= 000001
EOT1SZ= 000021 G ER08MG= 000224RG 003 ER14SZ= 000027 G FM03MG= 000740RG 003 R$$DYM= 000001
ER01MG= 000000RG 003 ER08SZ= 000036 G ER15MG= 000464RG 003 FM03SZ= 000004 G R$$EIS= 000000
ER01SZ= 000045 G ER09MG= 000262RG 003 ER15SZ= 000053 G FM04MG= 000744RG 003 R$$MSG= 000000
ER03MG= 000045RG 003 ER09SZ= 000027 G FA01MG= 001301RG 003 FM04SZ= 000040 G R$$11M= 000001
ER03SZ= 000026 G ER10MG= 000311RG 003 FA01SZ= 000041 G FM05MG= 001004RG 003 TAB = 000011
ER04MG= 000073RG 003 ER10SZ= 000030 G FLBLMG= 001205RG 003 FM05SZ= 000007 G VBNOMG= 001053RG 003
ER04SZ= 000032 G ER11MG= 000341RG 003 FLBLSZ= 000046 G FM06MG= 001013RG 003 VBNOSZ= 000055 G
. ABS. 000000 000
000000 001
MESSAG 000000 002
MSGSTR 001342 003
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 2913 WORDS ( 12 PAGES)
DYNAMIC MEMORY: 4160 WORDS ( 16 PAGES)
ELAPSED TIME: 00:00:28
[64,10]DMPMSG,[64,20]DMPMSG/-SP=[64,30]PIPMAC,DMPMSG
DMPDEF MACRO M1108 06-DEC-77 00:08
TABLE OF CONTENTS
7- 16 MACRO INVOCATION AND ASSEMBLY PARAMETERS
9- 1 **** DMPSTP VERSION M0003 ****
DMPDEF MACRO M1108 06-DEC-77 00:08 PAGE 7
1 .TITLE DMPDEF
2 .IDENT /V02/
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 ;
16 .SBTTL MACRO INVOCATION AND ASSEMBLY PARAMETERS
17 ;
19 .MCALL FDOFF$,FCSBT$,QIOSY$,CSI$,GCMLD$
20 .MCALL FHDOF$
21 .MCALL SVTK$S
27 ;
28 .MCALL FINIT$,OFNB$,READ$,WAIT$,PUT$,CLOSE$
29 .MCALL FSRSZ$,FDBDF$,NMBLK$,FDAT$A,FDRC$A,FDBK$A,FDOP$A
30 .MCALL CSI$1,CSI$2,CSI$SW,CSI$SV,CSI$ND,ALUN$S
31 .MCALL GCMLB$,CALL,RETURN,EXIT$S
32
33 000014 FF=14 ;FORM FEED CHARACTER
34 000015 CR=15 ;CARRIAGE RETURN CHARCTER
35 000012 LF=12 ;LINE FEED CHARACTER
36 000011 TAB=11 ;TAB CHARACTER
37 000003 INLUN=3 ;LUN FOR INPUT FILE
38 000004 OUTLUN=4 ;LUN FOR LISTING FILE
39 000113 MAXHED=75. ;MAXIMUM HEADER SIZE IN BYTES
40 ;
41 000014 S.STBK=12. ;SIZE OF STATISTICS BLOCK IN BYTES
42 000040 CS.SWF=40 ;CSI$2 STATUS BIT FOR "SWITCH FOUND"
43
44 ;
45 ; BITS IN DMPCTL
46 000001 BLBIT=1 ;SET IF BLOCK SWITCH WAS SPECIFIED
47 000002 HDBIT=2 ;SET IF HEADER SWITCH WAS SPECIFIED
48 000004 IDBIT=4 ;SET TO PRINT THE IDENT MESSAGE
49 000010 MDBIT=10 ;SET IF NUMBERING FOR MEMORY DUMP
50 000020 FIDBIT=20 ;FILE ID SPECIFIED
51 000040 ASCBIT=40 ;DUMP IN ASCII MODE
52 000100 BYTBIT=100 ;DUMP BYTE ORIENTED (VERSUS WORD)
53 000200 BABIT=200 ; BASE BLOCK NUMBER:N:N
54 000400 LBBIT=400 ; START BLOCK NUMBER BIT
55 001000 R50BIT=1000 ;***HBB1 DUMP IN RAD50 MODE
56 100000 LBNBIT=100000 ;SET IF IN LOGICAL BLOCK MODE
57 ; DEFINITION TO AVOID GLOBAL ARITHMETIC PROBLEMS
58 000001 FO.RD=1
59 000040 FA.SHR=40
DMPSTP M0003, DUMP SETUP ROUTIN MACRO M1108 06-DEC-77 00:08 PAGE 9
MACRO INVOCATION AND ASSEMBLY PARAMETERS
1 .TITLE DMPSTP M0003, DUMP SETUP ROUTINES
.SBTTL **** DMPSTP VERSION M0003 ****
.IDENT /M0003/
2 ; ALTERED:
3 ; ANDREW C. GOLDSTEIN 21 MAR 75 15:04
4 ; ALTERED WEDNESDAY 30-JAN-74 21:10
5 ;
6 ; COPYRIGHT 1974, DIGITAL EQUIPMENT CORP., MAYNARD MASS.
7
8 ; THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A LICENSE FOR USE
9 ; ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH INCLUSION
10 ; OF DEC'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT
11 ; AS MAY OTHERWISE BE PROVIDED IN WRITING BY DEC.
12
13 ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
14 ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
15 ; EQUIPMENT CORPORATION.
16
17 ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY
18 ; OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.
19 ;
20 ; PETER H. LIPMAN 30-MARCH-73
21 ;
22 .MCALL FDBK$R
DMPSTP M0003, DUMP SETUP ROUTIN MACRO M1108 06-DEC-77 00:08 PAGE 10
**** DMPSTP VERSION M0003 ****
24 000000 PURE.I
25
26 ;
27 ; GOT A COMMAND, CHECK IT'S SYNTAX
28 000000 CHECK:: CSI$1 #CSIBLK,GCMLCB+G.CMLD+2,GCMLCB+G.CMLD
29 000024 016067 000002 000146G MOV C.CMLD(R0),GCMLCB+G.CMLD
30 000032 103004 BCC T25
31 000034 CALL .SYNER ; SEND SYNTAX ERROR
32 000040 000167 000000G AGAI: JMP AGAIN
33
34 ; GOT A SYNTACTICALLY CORRECT COMMAND LINE
35 ; NOW GET THE INPUT SPEC AND OPEN THE FILE
36 000044 012701 000000G T25: MOV #IFNPT,R1
37 000050 CALL INCSI ;GET THE INPUT SPEC
38 000054 103421 BCS 32$
39 000056 012701 000000G MOV #OFNPT,R1
40 000062 CALL OUTCSI ;GET THE OUTPUT SPEC
41 000066 103414 BCS 32$
42 000070 032767 000030 000000G BIT #CS.MOR!CS.WLD,INSPEC
43 000076 001004 BNE 30$
44 000100 032767 000030 000000G BIT #CS.MOR!CS.WLD,OUSPEC
45 000106 001410 BEQ 35$
46 ;
47 ; NO WILD CARDS OR LISTS ALLOWED IN INPUT OR OUTPUT SPEC
48 000110 30$: ERROUT ER08
000110 104402 TRAP X
000112 000000G .WORD ER08SZ
000114 000000G .WORD ER08MG
49 000116 000750 BR AGAI
50 ;
51 ; BAD SWITCH OR VALUE ERROR FROM CSI$2
52 000120 32$: ERROUT ER07
000120 104402 TRAP X
000122 000000G .WORD ER07SZ
000124 000000G .WORD ER07MG
53 000126 000744 BR AGAI
54 ;
55 ; NO ILLEGAL SWITCHESPRESENT
56 000130 032767 000004 000000G 35$: BIT #IDBIT,DMPCTL ;TYPE THE IDENT MESSAGE?
57 000136 001404 BEQ 37$
58 000140 ERROUT IDNT ;YES
000140 104402 TRAP X
000142 000000G .WORD IDNTSZ
000144 000000G .WORD IDNTMG
59 000146 000734 BR AGAI
60 ;
61 000150 032767 000200 000000G 37$: BIT #BABIT,DMPCTL ; IF /BA SPEC THEN ACCEPT VALUES
62 ; AND GO ON
63 000156 001330 BNE AGAI
64 000160 005767 000000G TST INSPEC
65 000164 001004 BNE 40$
66 000166 ERROUT ER14 ;NO INPUT FILE SPECIFIED
000166 104402 TRAP X
000170 000000G .WORD ER14SZ
000172 000000G .WORD ER14MG
67 000174 000721 BR AGAI
68 000176 032767 000003 000000G 40$: BIT #CS.NMF!CS.DIF,INSPEC
DMPSTP M0003, DUMP SETUP ROUTIN MACRO M1108 06-DEC-77 00:08 PAGE 10-1
**** DMPSTP VERSION M0003 ****
69 000204 001070 BNE 50$ ;BRANCH IF FILE NAME WAS SPECIFIED
70 ;
71 ; NO FILE NAME SPECIFIED, EITHER FILE ID OR LOGICAL BLOCK MODE
72 ; PARSE THE DEVICE NAME FIRST
73 ;
74 000206 012700 000000G MOV #FDBIN,R0
75 000212 012701 000102G MOV #FDBIN+F.FNB,R1
76 000216 016002 000044 MOV F.DSPT(R0),R2
77 000222 016003 000046 MOV F.DFNB(R0),R3
78 000226 CALL .PRSDV ;PARSE THE DEVICE NAME AND UNIT
79 000232 103005 BCC 42$
80 000234 ERROUT ER12 ;BAD DEVICE NAME
000234 104402 TRAP X
000236 000000G .WORD ER12SZ
000240 000000G .WORD ER12MG
81 000242 000167 177572 JMP AGAI
82 000246 132760 000041 000017 42$: BITB #FD.SQD!FD.REC,F.RCTL(R0) ; SEE IF THIS IS A SEQUENTIAL DEVICE
83 000254 001407 BEQ 62$ ; I.E., MAGTAPE
84 000256 FDBK$R R0,,#2048. ; SET UP FOR LARGE BLOCK READ
85 000264 012767 004000 000000G MOV #2048.,BYTCNT
86 000272 000406 BR 63$
87 000274 012767 001000 000000G 62$: MOV #512.,BYTCNT
88 000302 FDBK$R R0,,#512.
89 000310 062702 000016 63$: ADD #N.FLID,R2 ;R2=FILE ID ADR IF /FI WAS USED
90 000314 012221 MOV (R2)+,(R1)+ ;MOVE TO FILE NAME BLOCK
91 000316 001403 BEQ 44$ ;BRANCH IF /FI NOT SPECIFIED
92 000320 012221 MOV (R2)+,(R1)+ ;MOVE REMAINING FILE ID WORDS
93 000322 012221 MOV (R2)+,(R1)+
94 000324 000420 BR 50$ ;OPEN THE FILE BY ITS FILE ID
95 ;
96 ; MUST BE LOGICAL BLOCK MODE, NO FILE NAME OR FILE ID
97 ;
98 000326 032767 000001 000000G 44$: BIT #BLBIT,DMPCTL ;REQUIRE /BLOCK SWITCH
99 000334 001005 BNE 46$
100 000336 ERROUT ER15 ;/BLOCK SWITCH NOT PRESENT
000336 104402 TRAP X
000340 000000G .WORD ER15SZ
000342 000000G .WORD ER15MG
101 000344 000167 177470 JMP AGAI
102 000350 052767 100000 000000G 46$: BIS #LBNBIT,DMPCTL ;NOTE LOGICAL BLOCK MODE
103 000356 042767 000002 000000G BIC #HDBIT,DMPCTL
104 000364 000457 BR 60$ ;GO DUMP THE BLOCKS
105 ;
106 ; VIRTUAL BLOCK MODE, DUMP SPECIFIED FILE
107 ;
108 000366 012767 000000G 000036G 50$: MOV #STBLK,FDBIN+F.STBK
109 000374 012700 000000G MOV #FDBIN,R0 ; ADDR FDB
110 000400 005760 000102 TST F.FNB+N.FID(R0) ; FID PRESENT?
111 000404 001011 BNE 61$ ; BR IF YES
112 000406 012701 000102G MOV #F.FNB+FDBIN,R1
113 000412 016002 000044 MOV F.DSPT(R0),R2
114 000416 016003 000046 MOV F.DFNB(R0),R3
115 000422 CALL .PARSE
116 000426 103471 BCS 90$
117 000430 61$: OFNB$ R0,#<FA.SHR!FO.RD>
118 000442 103463 BCS 90$ ;BRANCH IF CAN'T OPEN FILE
119 ;
DMPSTP M0003, DUMP SETUP ROUTIN MACRO M1108 06-DEC-77 00:08 PAGE 10-2
**** DMPSTP VERSION M0003 ****
120 ; CHECK TO SEE IF FILE APPEARS TO BE EMPTY, IF SO USE SIZE FROM
121 ; STATISTICS BLOCK TO SET THE END OF FILE.
122 ; EFBK =0 IF FILE WASN'T WRITTEN BY FCS, EFBK = 1 AND FFBY =0
123 ; IF FILE WAS PARTIALLY WRITTEN AND NOT CLOSED PROPERLY.
124 000444 005760 000010 TST F.EFBK(R0)
125 000450 001025 BNE 60$
126 000452 016001 000012 MOV F.EFBK+2(R0),R1
127 000456 001405 BEQ 55$ ;BRANCH IF EFBK=0
128 000460 005760 000014 TST F.FFBY(R0)
129 000464 001017 BNE 60$
130 ;
131 ; FFBY = 0, IF EFBK=1, THE FILE IS EMPTY
132 000466 005301 DEC R1
133 000470 001015 BNE 60$
134 000472 016760 000004G 000010 55$: MOV STBLK+4,F.EFBK(R0)
135 000500 016760 000006G 000012 MOV STBLK+6,F.EFBK+2(R0)
136 000506 062760 000001 000012 ADD #1,F.EFBK+2(R0)
137 000514 005560 000010 ADC F.EFBK(R0)
138 000520 005060 000014 CLR F.FFBY(R0)
139 ;
140 ; NOW OPEN THE LISTING FILE
141 000524 012767 001000 000030G 60$: MOV #512.,FDBOUT+F.OVBS ;FOR LARGE LOCATE MODE RECORDS
142 000532 012700 000000G MOV #FDBOUT,R0 ; ADDR OUTPUT FDB
143 000536 005760 000102 TST F.FNB+N.FID(R0) ; IF FID PRESENT
144 000542 001011 BNE 71$ ; NO INITIAL PARSE
145 000544 012701 000102G MOV #F.FNB+FDBOUT,R1
146 000550 016002 000044 MOV F.DSPT(R0),R2
147 000554 016003 000046 MOV F.DFNB(R0),R3
148 000560 CALL .PARSE
149 000564 103406 BCS 72$
150 000566 71$: OFNB$ R0,#<FO.WRT>
151 000600 103021 BCC 98$ ;BRANCH IF SUCCESSFUL
152 ;
153 ; FAILED TO OPEN OUTPUT FILE
154 000602 72$: ERROUT ER05,0,0
000602 104426 TRAP X
000604 000000G .WORD ER05SZ
000606 000000G .WORD ER05MG
155 000610 000413 BR 95$
156 ;
157 ; FAILED TO OPEN INPUT FILE
158 000612 122760 000000G 000052 90$: CMPB #IE.NSF,F.ERR(R0) ;IF "NO SUCH FILE" ERROR
159 000620 001004 BNE 92$
160 000622 ERROUT ER06,0 ;GIVE THAT ERROR MESSAGE
000622 104406 TRAP X
000624 000000G .WORD ER06SZ
000626 000000G .WORD ER06MG
161 000630 000403 BR 95$
162 000632 92$: ERROUT ER04,0,0 ;OTHERWISE GIVE THE GENERAL ONE
000632 104426 TRAP X
000634 000000G .WORD ER04SZ
000636 000000G .WORD ER04MG
163 000640 000167 000000G 95$: JMP RSTART
164 000644 000167 000000G 98$: JMP RODUMP ; GOTO DUMP VIA ROOT
DMPSTP M0003, DUMP SETUP ROUTIN MACRO M1108 06-DEC-77 00:08 PAGE 11
**** DMPSTP VERSION M0003 ****
166 000001 .END
DMPSTP M0003, DUMP SETUP ROUTIN MACRO M1108 06-DEC-77 00:08 PAGE 11-1
SYMBOL TABLE
AGAI 000040R 002 FA.SHR= 000040 F.FNAM= 000110 H.UCHA= 000014 N.FNMD= 000010
AGAIN = ****** GX FA.TMP= 000020 F.FNB = 000102 H.UFAT= 000016 N.FTYP= 000014
ASCBIT= 000040 FA.WRT= 000002 F.FTYP= 000116 IDBIT = 000004 N.FVER= 000016
BABIT = 000200 FDBIN = ****** GX F.FVER= 000120 IDNTMG= ****** GX N.NEXT= 000022
BLBIT = 000001 FDBOUT= ****** GX F.HIBK= 000004 IDNTSZ= ****** GX N.SPEC= 000014
BYTBIT= 000100 FD.BLK= 000010 F.LUN = 000042 IE.NSF= ****** GX N.STAT= 000020
BYTCNT= ****** GX FD.CCL= 000002 F.MBCT= 000054 IFNPT = ****** GX N.UNIT= 000034
CHECK 000000RG 002 FD.CR = 000002 F.MBC1= 000055 INCSI = ****** GX OFNPT = ****** GX
CR = 000015 FD.DIR= 000010 F.MBFG= 000056 INLUN = 000003 OUSPEC= ****** GX
CSIBLK= ****** GX FD.FTN= 000001 F.NRBD= 000024 INSPEC= ****** GX OUTCSI= ****** GX
CS.DIF= 000002 FD.INS= 000010 F.NREC= 000030 I.CRDT= 000031 OUTLUN= 000004
CS.DVF= 000004 FD.PLC= 000004 F.OVBS= 000030 I.CRTI= 000040 PAR$$$= 000000
CS.EQU= 000040 FD.RAH= 000001 F.RACC= 000016 I.DASZ= 000007 RODUMP= ****** GX
CS.INP= 000001 FD.RAN= 000002 F.RATT= 000001 I.EXDT= 000046 RSTART= ****** GX
CS.MOR= 000020 FD.REC= 000001 F.RCNM= 000034 I.FNAM= 000000 R$$DPB= 000001
CS.NMF= 000001 FD.RWM= 000001 F.RCTL= 000017 I.FTYP= 000006 R$$DYM= 000001
CS.OUT= 000002 FD.SDI= 000020 F.RSIZ= 000002 I.FVER= 000010 R$$EIS= 000000
CS.SWF= 000040 FD.SQD= 000040 F.RTYP= 000000 I.RVDT= 000014 R$$11M= 000001
CS.WLD= 000010 FD.TTY= 000004 F.STBK= 000036 I.RVNO= 000012 R.FIX = 000001
C.CMLD= 000002 FD.WBH= 000002 F.UNIT= 000136 I.RVTI= 000023 R.VAR = 000002
C.DEVD= 000006 FF = 000014 F.URBD= 000020 I.TISZ= 000006 R50BIT= 001000
C.DIRD= 000012 FIDBIT= 000020 F.VBN = 000064 LBBIT = 000400 SC.BAD= 000100
C.DSDS= 000006 FO.APD= 000106 F.VBSZ= 000060 LBNBIT= 100000 SC.MDL= 000200
C.FILD= 000016 FO.MFY= 000002 GCMLCB= ****** GX LF = 000012 STBLK = ****** GX
C.MKW1= 000024 FO.RD = 000001 GE.BIF= 177775 MAXHED= 000113 S.APPD= 000010
C.MKW2= 000026 FO.UPD= 000006 GE.CLO= 000004 MDBIT = 000010 S.FATT= 000016
C.SIZE= 000054 FO.WRT= 000016 GE.COM= 000001 M.CTSZ= 000006 S.FDB = 000140
C.STAT= 000001 FP.DEL= 000010 GE.EOF= 177766 M.EFNU= 000002 S.FIDS= 000014
C.SWAD= 000022 FP.EXT= 000004 GE.IND= 000002 M.EFSQ= 000004 S.FNAM= 000006
C.TYPR= 000000 FP.RAT= 000001 GE.IOR= 177777 M.ERVN= 000001 S.FNB = 000036
DMPCTL= ****** GX FP.RDV= 000001 GE.LC = 000010 M.ESQN= 000000 S.FNBW= 000017
ER04MG= ****** GX FP.WRV= 000002 GE.MDE= 177774 M.LBSZ= 000007 S.FNTY= 000004
ER04SZ= ****** GX F.ALOC= 000040 GE.OPR= 177776 M.MAX = 000011 S.FTYP= 000002
ER05MG= ****** GX F.BBFS= 000062 G.CMLD= 000146 M.RTRV= 000012 S.HDHD= 000056
ER05SZ= ****** GX F.BDB = 000070 G.DPRM= 000160 M.USE = 000010 S.IDHD= 000056
ER06MG= ****** GX F.BGBC= 000057 G.ERR = 000140 NB.DEV= 000200 S.MPHD= 000012
ER06SZ= ****** GX F.BKDN= 000026 G.ISIZ= 000020 NB.DIR= 000100 S.NFEN= 000020
ER07MG= ****** GX F.BKDS= 000020 G.MODE= 000141 NB.NAM= 000004 S.STBK= 000014
ER07SZ= ****** GX F.BKEF= 000050 G.PSDS= 000142 NB.SD1= 000400 TAB = 000011
ER08MG= ****** GX F.BKP1= 000051 HDBIT = 000002 NB.SD2= 001000 T25 000044R 002
ER08SZ= ****** GX F.BKST= 000024 H.CKSM= 000776 NB.SNM= 000040 UC.CON= 000200
ER12MG= ****** GX F.BKVB= 000064 H.FCHA= 000014 NB.STP= 000020 UC.DLK= 000100
ER12SZ= ****** GX F.CNTG= 000034 H.FLEV= 000006 NB.SVR= 000010 X = 000026
ER14MG= ****** GX F.DFNB= 000046 H.FNUM= 000002 NB.TYP= 000002 $$ = 000067
ER14SZ= ****** GX F.DSPT= 000044 H.FOWN= 000010 NB.VER= 000001 .CSI1 = ****** G
ER15MG= ****** GX F.DVNM= 000134 H.FPRO= 000012 N.DEVD= 000000 .OPFNB= ****** G
ER15SZ= ****** GX F.EFBK= 000010 H.FSEQ= 000004 N.DID = 000024 .PARSE= ****** GX
FA.APD= 000100 F.EFN = 000050 H.IDOF= 000000 N.DIRD= 000004 .PRSDV= ****** GX
FA.CRE= 000010 F.EOBB= 000032 H.MPOF= 000001 N.DVNM= 000032 .SYNER= ****** GX
FA.EXT= 000004 F.ERR = 000052 H.PROG= 000010 N.FID = 000000 ...GBL= 000000
FA.NSP= 000100 F.FACC= 000043 H.PROJ= 000011 N.FLID= 000016 ...TPC= 000012
FA.RD = 000001 F.FFBY= 000014 H.SCHA= 000015 N.FNAM= 000006
. ABS. 000000 000
000000 001
PURE$I 000650 002
ERRORS DETECTED: 0
DMPSTP M0003, DUMP SETUP ROUTIN MACRO M1108 06-DEC-77 00:08 PAGE 11-2
SYMBOL TABLE
VIRTUAL MEMORY USED: 7456 WORDS ( 30 PAGES)
DYNAMIC MEMORY: 8384 WORDS ( 32 PAGES)
ELAPSED TIME: 00:00:53
[64,10]DMPSTP,[64,20]DMPSTP/-SP=[64,30]PIPMAC,DMPDEF,DMPSTP
DMPDEF MACRO M1108 06-DEC-77 00:09
TABLE OF CONTENTS
7- 16 MACRO INVOCATION AND ASSEMBLY PARAMETERS
9- 1 **** DUMDUM VERSION M03 ****
10- 22 INITIALIZE THE DUMP HEADER
10- 65 DUMP THE FILE HEADER IF REQUESTED
DMPDEF MACRO M1108 06-DEC-77 00:09 PAGE 7
1 .TITLE DMPDEF
2 .IDENT /V02/
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 ;
16 .SBTTL MACRO INVOCATION AND ASSEMBLY PARAMETERS
17 ;
19 .MCALL FDOFF$,FCSBT$,QIOSY$,CSI$,GCMLD$
20 .MCALL FHDOF$
21 .MCALL SVTK$S
27 ;
28 .MCALL FINIT$,OFNB$,READ$,WAIT$,PUT$,CLOSE$
29 .MCALL FSRSZ$,FDBDF$,NMBLK$,FDAT$A,FDRC$A,FDBK$A,FDOP$A
30 .MCALL CSI$1,CSI$2,CSI$SW,CSI$SV,CSI$ND,ALUN$S
31 .MCALL GCMLB$,CALL,RETURN,EXIT$S
32
33 000014 FF=14 ;FORM FEED CHARACTER
34 000015 CR=15 ;CARRIAGE RETURN CHARCTER
35 000012 LF=12 ;LINE FEED CHARACTER
36 000011 TAB=11 ;TAB CHARACTER
37 000003 INLUN=3 ;LUN FOR INPUT FILE
38 000004 OUTLUN=4 ;LUN FOR LISTING FILE
39 000113 MAXHED=75. ;MAXIMUM HEADER SIZE IN BYTES
40 ;
41 000014 S.STBK=12. ;SIZE OF STATISTICS BLOCK IN BYTES
42 000040 CS.SWF=40 ;CSI$2 STATUS BIT FOR "SWITCH FOUND"
43
44 ;
45 ; BITS IN DMPCTL
46 000001 BLBIT=1 ;SET IF BLOCK SWITCH WAS SPECIFIED
47 000002 HDBIT=2 ;SET IF HEADER SWITCH WAS SPECIFIED
48 000004 IDBIT=4 ;SET TO PRINT THE IDENT MESSAGE
49 000010 MDBIT=10 ;SET IF NUMBERING FOR MEMORY DUMP
50 000020 FIDBIT=20 ;FILE ID SPECIFIED
51 000040 ASCBIT=40 ;DUMP IN ASCII MODE
52 000100 BYTBIT=100 ;DUMP BYTE ORIENTED (VERSUS WORD)
53 000200 BABIT=200 ; BASE BLOCK NUMBER:N:N
54 000400 LBBIT=400 ; START BLOCK NUMBER BIT
55 001000 R50BIT=1000 ;***HBB1 DUMP IN RAD50 MODE
56 100000 LBNBIT=100000 ;SET IF IN LOGICAL BLOCK MODE
57 ; DEFINITION TO AVOID GLOBAL ARITHMETIC PROBLEMS
58 000001 FO.RD=1
59 000040 FA.SHR=40
DUMDUM M03, DUMP DUMP ROUTINE MACRO M1108 06-DEC-77 00:09 PAGE 9
MACRO INVOCATION AND ASSEMBLY PARAMETERS
1 .TITLE DUMDUM M03, DUMP DUMP ROUTINE
.SBTTL **** DUMDUM VERSION M03 ****
.IDENT /M03/
2 ;
3 ; ALTERED WEDNESDAY 30-JAN-74 21:10
4 ;
5 ; COPYRIGHT 1974, DIGITAL EQUIPMENT CORP., MAYNARD MASS.
6
7 ; THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A LICENSE FOR USE
8 ; ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH INCLUSION
9 ; OF DEC'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT
10 ; AS MAY OTHERWISE BE PROVIDED IN WRITING BY DEC.
11
12 ; THE INFORMATION IN THIS DOCUMENT 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
17 ; OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.
18 ;
19 ; PETER H. LIPMAN 30-MARCH-73
20 ;
DUMDUM M03, DUMP DUMP ROUTINE MACRO M1108 06-DEC-77 00:09 PAGE 10
INITIALIZE THE DUMP HEADER
22 .SBTTL INITIALIZE THE DUMP HEADER
23
24 000000 PURE.I
25
26 ;
27 ; INITIALIZE FOR DUMPING THE FILE
28 000000 032767 000400 000000G DUMP:: BIT #LBBIT,DMPCTL ; IF /LB THEN SKIP
29 000006 001134 BNE 50$
30 000010 012700 000000G MOV #FDBIN,R0
31 000014 066767 000000G 000002G ADD FBLOCK,BLKNUM+2 ; INSERT FIRST BLOCK NUMBER INTO DOUBLE WORD
32 000022 005567 000000G ADC BLKNUM
33 000026 016760 000000G 000064 MOV BLKNUM,F.BKVB(R0)
34 000034 016760 000002G 000066 MOV BLKNUM+2,F.BKVB+2(R0)
35 000042 012705 000000G MOV #MOPRM,R5 ;R5=PARAM BLOCK POINTER
36 000046 012725 000134G MOV #FDBIN+F.DVNM,(R5)+ ;ADDRESS OF DEVICE NAME
37 000052 016725 000136G MOV FDBIN+F.UNIT,(R5)+ ;UNIT NUMBER
38 000056 012701 000000G MOV #FM01MG,R1 ;PREPARE TO USE BLOCK MODE HEADER
39 000062 032767 100000 000000G BIT #LBNBIT,DMPCTL
40 000070 001022 BNE 20$ ;BRANCH IF LOGICAL BLOCK MODE
41 ;
42 ; SET UP FOR REST OF FILE DUMP HEADER
43 ;
44 000072 012704 000004G MOV #IFNPT+N.DIRD,R4 ; POINT TO DIRECTORY STRING
45 000076 CALL .GDRNM
46 000102 012703 000110G MOV #FDBIN+F.FNAM,R3 ;R3=ADDRESS OF FILE NAME
47 000106 012702 000005 MOV #S.FNTY+1,R2 ;WORD CNT OF FILE NAME, TYPE, VER
48 000112 012325 10$: MOV (R3)+,(R5)+ ;PUT FILE NAME, TYPE, AND VERSION
49 000114 SOB R2,10$
50 000120 012703 000102G MOV #FDBIN+F.FNB,R3 ;R3=ADDRESS OF FILE ID
51 000124 012325 MOV (R3)+,(R5)+ ;MOVE FILE ID TO PARAM BLOCK
52 000126 012325 MOV (R3)+,(R5)+
53 000130 012325 MOV (R3)+,(R5)+
54 000132 012701 000000G MOV #FM02MG,R1
55 000136 012700 000000G 20$: MOV #HEAD1,R0
56 000142 012702 000000G MOV #MOPRM,R2
57 000146 CALL $EDMSG ;GENERATE THE HEADER MESSAGE
58 000152 022701 000113 CMP #MAXHED,R1
59 000156 002005 BGE 25$
60 000160 ERROUT FA01 ;HEADER MESSAGE OVERFLOW
000160 104402 TRAP X
000162 000000G .WORD FA01SZ
000164 000000G .WORD FA01MG
61 000166 000167 000000G JMP EXIT
62 000172 062701 000000C 25$: ADD #HEAD1-HEADER,R1
63 000176 010167 000000G MOV R1,HEADSZ ;SAVE HEADER SIZE
64 ;
65 .SBTTL DUMP THE FILE HEADER IF REQUESTED
66 ;
67 ; SEE IF USER ASKED TO HAVE THE FILE HEADER DUMPED TOO
68 000202 032767 000002 000000G BIT #HDBIT,DMPCTL
69 000210 001451 BEQ 70$ ;BRANCH IF NO
70 000212 PUT$ #FDBOUT,#HEADER,HEADSZ
71 000236 103005 BCC 30$
72 000240 ERROUT ER10,0,0
000240 104426 TRAP X
000242 000000G .WORD ER10SZ
000244 000000G .WORD ER10MG
DUMDUM M03, DUMP DUMP ROUTINE MACRO M1108 06-DEC-77 00:09 PAGE 10-1
DUMP THE FILE HEADER IF REQUESTED
73 000246 000167 000000G JMP RSTART
74 000252 012702 000000G 30$: MOV #MOPRM,R2 ;R2=PARAM BLOCK ADDRESS
75 000256 012712 000000G MOV #FM03SZ,@R2 ;FORM "FILE HEADER" MESSAGE
76 000262 012762 000000G 000002 MOV #FM03MG,2(R2)
77 000270 012701 000000G MOV #FLHDMG,R1
78 000274 CALL EDPUT
79 ;
80 ; READ THE HEADER
81 000300 012700 000000G 50$: MOV #FDBIN,R0
82 000304 012701 000000G MOV #IO.RAT,R1
83 000310 012702 000003 MOV #3,R2
84 000314 012703 000000G MOV #RATTBK,R3
85 000320 CALL .XQIO
86 000324 103005 BCC 60$
87 000326 ERROUT ER11,0,0 ;FAILED TO READ ATTRIBUTES
000326 104426 TRAP X
000330 000000G .WORD ER11SZ
000332 000000G .WORD ER11MG
88 000334 000167 000000G 70$: JMP RNXTB
89 000340 032767 000400 000000G 60$: BIT #LBBIT,DMPCTL ; IF /LB THEN SKIP
90 000346 001053 BNE 90$
91 000350 016700 000026G MOV FDBOUT+F.NRBD+2,R0
92 000354 012701 000000G MOV #INBUF,R1
93 000360 012702 000000G MOV #STBLK,R2
94 000364 012703 000003 MOV #3,R3
95 000370 CALL HDRMG
96 000374 112720 000015 MOVB #CR,(R0)+
97 000400 112720 000012 MOVB #LF,(R0)+
98 000404 112720 000012 MOVB #LF,(R0)+
99 000410 062701 000003 ADD #3,R1
100 000414 PUT$ #FDBOUT,,R1
101 000430 103005 BCC 61$
102 000432 ERROUT ER10,0,0
000432 104426 TRAP X
000434 000000G .WORD ER10SZ
000436 000000G .WORD ER10MG
103 000440 000167 000000G JMP RSTART
104 000444 016746 000000G 61$: MOV BYTNUM,-(SP)
105 000450 005067 000000G CLR BYTNUM
106 000454 016746 000000G MOV DMPCTL,-(SP)
107 000460 005067 000000G CLR DMPCTL
108 000464 012767 001000 000002G MOV #512.,IOSTBK+2 ; SET BYTE COUNT FOR 1 BLOCK
109 000472 000167 000000G JMP ROHEAD ; DUMP THE FILE HEADER
110 ;
111 000476 005001 90$: CLR R1 ; GET THE STARTING BLOCK NUMBER
112 000500 156701 000001G BISB INBUF+H.MPOF,R1
113 000504 006301 ASL R1
114 000506 012702 000000G MOV #MOPRM,R2
115 000512 116112 000012G MOVB INBUF+M.RTRV(R1),(R2)
116 000516 016162 000014G 000002 MOV INBUF+M.RTRV+2(R1),2(R2)
117 000524 005062 000004 CLR 4(R2)
118 000530 132767 000200 000014G BITB #UC.CON,INBUF+H.UCHA ; CONTIGUOUS?
119 000536 001403 BEQ 91$ ; IF YES MENTION IT
120 000540 062762 000003 000004 ADD #3,4(R2)
121 000546 012762 000000G 000006 91$: MOV #CONTIG,6(R2)
122 000554 012701 000000G MOV #FLBLMG,R1
123 000560 016700 000026G MOV FDBOUT+F.NRBD+2,R0
DUMDUM M03, DUMP DUMP ROUTINE MACRO M1108 06-DEC-77 00:09 PAGE 10-2
DUMP THE FILE HEADER IF REQUESTED
124 000564 CALL $EDMSG
125 000570 PUT$ #FDBOUT,,R1
126 000604 000167 000000G JMP RSTART
DUMDUM M03, DUMP DUMP ROUTINE MACRO M1108 06-DEC-77 00:09 PAGE 11
DUMP THE FILE HEADER IF REQUESTED
128 000001 .END
DUMDUM M03, DUMP DUMP ROUTINE MACRO M1108 06-DEC-77 00:09 PAGE 11-1
SYMBOL TABLE
ASCBIT= 000040 FD.DIR= 000010 F.FNB = 000102 H.PROG= 000010 N.FID = 000000
BABIT = 000200 FD.FTN= 000001 F.FTYP= 000116 H.PROJ= 000011 N.FLID= 000016
BLBIT = 000001 FD.INS= 000010 F.FVER= 000120 H.SCHA= 000015 N.FNAM= 000006
BLKNUM= ****** GX FD.PLC= 000004 F.HIBK= 000004 H.UCHA= 000014 N.FNMD= 000010
BYTBIT= 000100 FD.RAH= 000001 F.LUN = 000042 H.UFAT= 000016 N.FTYP= 000014
BYTNUM= ****** GX FD.RAN= 000002 F.MBCT= 000054 IDBIT = 000004 N.FVER= 000016
CONTIG= ****** GX FD.REC= 000001 F.MBC1= 000055 IFNPT = ****** GX N.NEXT= 000022
CR = 000015 FD.RWM= 000001 F.MBFG= 000056 INBUF = ****** GX N.SPEC= 000014
CS.DIF= 000002 FD.SDI= 000020 F.NRBD= 000024 INLUN = 000003 N.STAT= 000020
CS.DVF= 000004 FD.SQD= 000040 F.NREC= 000030 IOSTBK= ****** GX N.UNIT= 000034
CS.EQU= 000040 FD.TTY= 000004 F.OVBS= 000030 IO.RAT= ****** GX OUTLUN= 000004
CS.INP= 000001 FD.WBH= 000002 F.RACC= 000016 I.CRDT= 000031 PAR$$$= 000027
CS.MOR= 000020 FF = 000014 F.RATT= 000001 I.CRTI= 000040 RATTBK= ****** GX
CS.NMF= 000001 FIDBIT= 000020 F.RCNM= 000034 I.DASZ= 000007 RNXTB = ****** GX
CS.OUT= 000002 FLBLMG= ****** GX F.RCTL= 000017 I.EXDT= 000046 ROHEAD= ****** GX
CS.SWF= 000040 FLHDMG= ****** GX F.RSIZ= 000002 I.FNAM= 000000 RSTART= ****** GX
CS.WLD= 000010 FM01MG= ****** GX F.RTYP= 000000 I.FTYP= 000006 R$$DPB= 000001
C.CMLD= 000002 FM02MG= ****** GX F.STBK= 000036 I.FVER= 000010 R$$DYM= 000001
C.DEVD= 000006 FM03MG= ****** GX F.UNIT= 000136 I.RVDT= 000014 R$$EIS= 000000
C.DIRD= 000012 FM03SZ= ****** GX F.URBD= 000020 I.RVNO= 000012 R$$11M= 000001
C.DSDS= 000006 FO.APD= 000106 F.VBN = 000064 I.RVTI= 000023 R.FIX = 000001
C.FILD= 000016 FO.MFY= 000002 F.VBSZ= 000060 I.TISZ= 000006 R.VAR = 000002
C.MKW1= 000024 FO.RD = 000001 GE.BIF= 177775 LBBIT = 000400 R50BIT= 001000
C.MKW2= 000026 FO.UPD= 000006 GE.CLO= 000004 LBNBIT= 100000 SC.BAD= 000100
C.SIZE= 000054 FO.WRT= 000016 GE.COM= 000001 LF = 000012 SC.MDL= 000200
C.STAT= 000001 FP.DEL= 000010 GE.EOF= 177766 MAXHED= 000113 STBLK = ****** GX
C.SWAD= 000022 FP.EXT= 000004 GE.IND= 000002 MDBIT = 000010 S.APPD= 000010
C.TYPR= 000000 FP.RAT= 000001 GE.IOR= 177777 MOPRM = ****** GX S.FATT= 000016
DMPCTL= ****** GX FP.RDV= 000001 GE.LC = 000010 M.CTSZ= 000006 S.FDB = 000140
DUMP 000000RG 002 FP.WRV= 000002 GE.MDE= 177774 M.EFNU= 000002 S.FIDS= 000014
EDPUT = ****** GX F.ALOC= 000040 GE.OPR= 177776 M.EFSQ= 000004 S.FNAM= 000006
ER10MG= ****** GX F.BBFS= 000062 G.CMLD= 000146 M.ERVN= 000001 S.FNB = 000036
ER10SZ= ****** GX F.BDB = 000070 G.DPRM= 000160 M.ESQN= 000000 S.FNBW= 000017
ER11MG= ****** GX F.BGBC= 000057 G.ERR = 000140 M.LBSZ= 000007 S.FNTY= 000004
ER11SZ= ****** GX F.BKDN= 000026 G.ISIZ= 000020 M.MAX = 000011 S.FTYP= 000002
EXIT = ****** GX F.BKDS= 000020 G.MODE= 000141 M.RTRV= 000012 S.HDHD= 000056
FA.APD= 000100 F.BKEF= 000050 G.PSDS= 000142 M.USE = 000010 S.IDHD= 000056
FA.CRE= 000010 F.BKP1= 000051 HDBIT = 000002 NB.DEV= 000200 S.MPHD= 000012
FA.EXT= 000004 F.BKST= 000024 HDRMG = ****** GX NB.DIR= 000100 S.NFEN= 000020
FA.NSP= 000100 F.BKVB= 000064 HEADER= ****** GX NB.NAM= 000004 S.STBK= 000014
FA.RD = 000001 F.CNTG= 000034 HEADSZ= ****** GX NB.SD1= 000400 TAB = 000011
FA.SHR= 000040 F.DFNB= 000046 HEAD1 = ****** GX NB.SD2= 001000 UC.CON= 000200
FA.TMP= 000020 F.DSPT= 000044 H.CKSM= 000776 NB.SNM= 000040 UC.DLK= 000100
FA.WRT= 000002 F.DVNM= 000134 H.FCHA= 000014 NB.STP= 000020 X = 000026
FA01MG= ****** GX F.EFBK= 000010 H.FLEV= 000006 NB.SVR= 000010 $EDMSG= ****** GX
FA01SZ= ****** GX F.EFN = 000050 H.FNUM= 000002 NB.TYP= 000002 $$ = 000067
FBLOCK= ****** GX F.EOBB= 000032 H.FOWN= 000010 NB.VER= 000001 .GDRNM= ****** GX
FDBIN = ****** GX F.ERR = 000052 H.FPRO= 000012 N.DEVD= 000000 .PUT = ****** G
FDBOUT= ****** GX F.FACC= 000043 H.FSEQ= 000004 N.DID = 000024 .XQIO = ****** GX
FD.BLK= 000010 F.FFBY= 000014 H.IDOF= 000000 N.DIRD= 000004 ...GBL= 000000
FD.CCL= 000002 F.FNAM= 000110 H.MPOF= 000001 N.DVNM= 000032 ...TPC= 000012
FD.CR = 000002
. ABS. 000000 000
000000 001
PURE$I 000610 002
ERRORS DETECTED: 0
DUMDUM M03, DUMP DUMP ROUTINE MACRO M1108 06-DEC-77 00:09 PAGE 11-2
SYMBOL TABLE
VIRTUAL MEMORY USED: 6920 WORDS ( 28 PAGES)
DYNAMIC MEMORY: 8384 WORDS ( 32 PAGES)
ELAPSED TIME: 00:00:45
[64,10]DUMDUM,[64,20]DUMDUM/-SP=[64,30]PIPMAC,DMPDEF,DUMDUM