.TITLE  GBLDAT -- GLOBAL DATA
	.IDENT	/1/
	.MCALL	FDBDF$,FDRC$A,FDOP$A,GCMLB$,CSI$,ERR$B,CSI$SW,CSI$SV,CSI$ND
	.MCALL	FDAT$A,NMBLK$
;
;	INPUT FDB
;
IN::
	FDBDF$
	FDRC$A	FD.PLC,BUF1,BUF2-BUF1
	FDOP$A	INLUN,CSIBLK+C.DSDS
;
;	OUTPUT FDB
;
OUT::
	FDBDF$
	FDAT$A	R.VAR,FD.FTN
	FDRC$A	FD.PLC,OBUF,LOBUF
	FDOP$A	OUTLUN,CSIBLK+C.DSDS,DNB
DNB:
	NMBLK$	DUMP,LST,0,SY,0
;
;	COMMAND LINE BLOCK
;
BLOCK::
	GCMLB$	3,DUM,,GCLLUN
;
;	COMMAND STRING INTERPRETER BLOCK
;
	CSI$
CSIBLK::.BLKB  C.SIZE
;
;	THE SWITCH BIT VALUES ETC
;
SW.HD== 1				;DUMP HEADER
SW.BY== 2				;DUMP IN BYTE MODE
SW.BL== 4				;DUMP SPECIFIED BLOCKS
SW.FR== 10				;DUMP FROM SPECIFIED RECORD
SW.SP== 20				;SPOOL OUTPUT
SW.FO== 100				;DUMP SPECIFIED NUMBER OF RECORDS
SW.FI== 200				;NUMBER OF FILES TO DUMP
SW.PH== 400				;DUMP PHYSICAL RECORDS
;
;	SWITCH TABLES
;
SWTBL::
	CSI$SW	HD,SW.HD,OPTION
	CSI$SW	BY,SW.BY,OPTION
	CSI$SW	BL,SW.BL,OPTION,,,LIMITS
	CSI$SW	FR,SW.FR,OPTION,,,.FROM
	CSI$SW	FI,SW.FI,OPTION,,,.FILES
	CSI$SW	FO,SW.FR,OPTION,,,.FOR
	CSI$SW	PH,SW.PH!SW.BL,OPTION
	CSI$ND
OSWT::
	CSI$SW	SP,SW.SP,OPTION
	CSI$ND
;
LIMITS:
	CSI$SV	DECIMAL,FROM,2
	CSI$SV	DECIMAL,COUNT,2
	CSI$ND
.FOR:
	CSI$SV	DECIMAL,COUNT,2
	CSI$ND
.FILES:
	CSI$SV	DECIMAL,FILES,2
	CSI$ND
.FROM:
	CSI$SV	DECIMAL,FROM,2
	CSI$ND
;
FROM::	.WORD				;STARTING RECORD TO DUMP
COUNT:: .WORD				;NUMBER OF RECORDS TO DUMP
FILES:: .WORD				;NUMBER OF FILES TO DUMP
OPTION::.WORD				;OPTION FLAG WORD
DOPT::	.WORD				;DEFAULT OPTIONS
QIOP::	.WORD  BUF1			;BUFFER ADDRESS -- QIO PARAMETER LIST
BLKSIZ::.WORD  BUF2-BUF1		;BUFFER SIZE
	.WORD  0			;CARRIAGE CONTROL
	.WORD  0			;HIGH LBN
RCNO::	.WORD  0			;LOW LBN  -- END OF QIO PARAMETER LIST
LINCNT::.WORD  56.			;NUMBER OF LINES PER PAGE
LINE::	.WORD				;CURRENT LINE ON PAGE
PAGE::	.WORD				;CURRENT PAGE NUMBER
IOST::	.BLKW  2			;I/O STATUS BLOCK
FSPEC:: .WORD  IN+F.FNB 		;PARAMETER LIST TO DECODE INPUT FSPEC
	.WORD  LKLUN			;LUN TO DO DIRECTORY CONVERSION ON
	.EVEN
;
;	ERROR CONTROL BLOCK
;
ERR::
	ERR$B  ERRLUN,EFLUN,<SY0:,[1,2],QIOSYM.MSG>,0.
SUB::	.WORD  EF.ASC,DUM,LDUM
SUBL::	.BLKW  10.
DUM:    .ASCII  /DUM -- /
LDUM=	.-DUM
TITLE:: .ASCII  /1			DUMP OF FILE :	/
TFILE:: .ASCII  /                                /
ETFILE::
        .ASCII  /						PAGE /
LTITLE==.-TITLE
	.EVEN
;
;	OUTPUT BUFFER
;
LOBUF== 112.				;LENGTH OF OUTPUT BUFFER
OBUF:	.BLKB  LOBUF			;OUTPUT BUFFER
	.EVEN
;
;	RECORD BUFFER
;
;	TO INCREASE THE SIZE OF THIS BUFFER USE THE TASK BUILDER EXTSCT COMMAND
;
	.PSECT	$$BUF1,OVR
BUF1::	.BLKB  2048.
	.PSECT	$$BUF2,OVR
BUF2::
	.PSECT
	.END