.TITLE	LBNIMP
	.IDENT	/V1.0/
	.PSECT	LBNIMP,RW

;+
;	MACHINE/SYSTEM	- PDP-11/70 / IAS V3.0
;	AUTHOR		- JOHN GUIDI
;	DATE		- 22-SEPTEMBER-80
;	RESIDENCE	- LBNIMP.MAC
;	TYPE/LANGUAGE	- IMPURE DATA DECLARATIONS / MACRO-11
;	ABSTRACT	- THIS MODULE DECLARES THE DATA AREAS USED BY THE
;			  LBN MAPPING DISPLAY UTILITY
;-
	.SBTTL	LBNIMP	-> .MCALLS AND FSR SPACE DECLARATION
	.MCALL	FSRSZ$
	.MCALL	GCMLB$,GCMLD$

	.MCALL	CSI$
	.MCALL	CSI$SW,CSI$ND

	.MCALL	QIOW$

	.MCALL	FDBDF$,FDAT$A,FDRC$A,FDOP$A
	.MCALL	FDBF$A,NMBLK$,FDBK$A
	.MCALL	NBOF$L

	FSRSZ$	3			; MAX NUMBER RECORD I/O FILES OPEN


	.SBTTL	LBNIMP	-> GCML AND CSI DECLARATIONS
;
; GCML AND CSI DECLARATIONS
;
	CMLLUN=1			; GCML LUN
	CMLEFN=1			; GCML EVENT FLAG
GCML::	GCMLB$	CMLLUN,LBN,CMLADR,CMLEFN,,CMLSIZ ; GET COMMAND LINE BLOCK

CMLADR:: .BLKB	162.			; BUFFER FOR COMMAND LINE
	CMLSIZ==.-CMLADR

	CSI$				; DEFINE CSI$ OFFSETS
	.EVEN
CSIBLK:: .BLKB	C.SIZE			; CSI BLOCK FOR GET COMMAND LINE

	.EVEN
CSIIND:: .BLKB	C.SIZE			; CSI BLOCK FOR INDIRECT FILE ENTRIES

CSIPTR:: .WORD				; POINTER CONTAINING @ CSI BLOCK

; MASK SETTINGS FOR SWITCHES IN COMMAND LINE
	INMSK==^B0000000000000001

SWMASK:: .WORD	; SWITCH SETTINGS MASK WORD

; SWITCH TABLE FOR CSI
SWTABL:: CSI$SW	IN,INMSK,SWMASK,SET	; /IN FOR INDIRECT FILE
	CSI$ND

	.SBTTL	LBNIMP	-> TERMINAL DECLARATIONS
	TTLUN==2			; TERMINAL LUN FOR ERRORS, MESSAGES
	TTEFN==2			; TERMINAL EVENT FLAG
WRITE::	QIOW$	IO.WVB,TTLUN,TTEFN,,,,<0,0,0> ; QIO TO WRITE TO TERMINAL

	.SBTTL	LBNIMP	-> LISTING FILE DECLARATIONS
;
; LISTING FILE DECLARATIONS
;
	LSTLUN=3			; LIST FILE LUN
	LSTEFN=3			; LIST FILE EVENT FLAG
LSTBUF:: .BLKB	160.			; LISTING FILE RECORD BUFFER
	LSTSIZ=.-LSTBUF

LSTFDB:: FDBDF$				; LIST FILE FDB
	FDAT$A	R.VAR,FD.CR		; V LENGTH RECORDS. IMPLIED <CR><LF>
	FDRC$A	FD.PLC,LSTBUF,LSTSIZ	; LOCATE MODE
	FDOP$A	LSTLUN,,LSTNMB,FO.WRT	; ATTACH DEFAULT NAME BLOCK
	FDBF$A	LSTEFN			; EVENT FLAG FOR PUT$S

LSTNMB:: NMBLK$	LBNLST,LST,,TI,0	; DEFAULT NAME BLOCK FOR LIST FILE

	.SBTTL	LBNIMP	-> INDIRECT FILE DECLARATIONS
;
; INDIRECT FILE DECLARATIONS
;
	INDLUN=4
	INDEFN=4
INDBUF:: .BLKB	160.			; INDIRECT FILE RECORD BUFFER
	INDSIZ=.-INDBUF

INDFDB:: FDBDF$				; INDIRECT FILE FDB
	FDRC$A	,INDBUF,INDSIZ		; MOVE MODE
	FDOP$A	INDLUN,<CSIBLK+C.DSDS>,INDNMB,FO.RD ; ATTACH DEF NAME BLOCK
	FDBF$A	INDEFN			; EVENT FLAG FOR GET$S

INDNMB:: NMBLK$	LBNLST,CMD,,SY,0	; DEFAULT NAME BLOCK FOR INDIRECT FILE


	.SBTTL	LBNIMP	-> EXAMINATION FILE DECLARATIONS
;
; EXAMINATION FILE DECLARATIONS
;
	EXMLUN=5
	EXMEFN=5
EXMFDB::
	FDBDF$				; DEFINE FDB FOR EXAMINATION FILE
	FDRC$A	FD.RWM!FD.RAN		; BLOCK I/O AND RANDOM ACCESS
	FDBK$A	,,,EXMEFN		; EVENT FLAG FOR EXMFDB
	FDOP$A	EXMLUN,EXMDSP,EXMNMB,FO.RD ; DEFAULT NAME BLOCK. READ ONLY

EXMDSP:: .WORD	0,0		; DATASET DESCRIPTOR FOR EXMFDB
	.WORD	0,0
	.WORD	0,0
EXMNMB:: NMBLK$	,,,SY,0		; DEFAULT NAME BLOCK FOR EXAMINATION FILE
EXMFIL:: .BLKB	40.		; COMPLETE EXAMINATION FILE DESCRIPTION
EXMFSZ:: .WORD			; SIZE OF EXAMINATION FILE DESCRIPTION
EXMVER:: .WORD			; EXAMINATION FILE VERSION STORAGE


	.SBTTL	LBNIMP	-> WILDCARD FIND ROUTINE DECLARATIONS
;
; WILDCARD FIND ROUTINE DECLARATIONS
;

;***NOTE***
; LUN=6 AND EVENT FLAG=6 ARE RESERVED FOR THE WILDCARD FIND ROUTINES
;***NOTE***
	N.WNM1==S.FNB			; 2 WORD RAD-50 UIC
	N.WNM2==N.WNM1+4		; 5 WORDS ASCII UIC
	S.WUIC==S.FNB+14.		; SIZE OF WILD UIC SCRATCH BLOCK
WLDBLK:: .BLKB	S.WUIC			; WILDCARD UIC SCRATCH BLOCK
	NB.WLV==10000			; WILDCARD VERSION PRESENT FLAG

	.SBTTL	LBNIMP	-> FCS INDEX FILE DECLARATIONS
;
; FCS INDEX FILE DECLARATIONS
;
	INXLUN=7
	INXEFN=7
INXFDB::
	FDBDF$				; DEFINE FDB FOR INDEX FILE
	FDRC$A	FD.RWM!FD.RAN		; BLOCK I/O AND RANDOM ACCESS
	FDBK$A	,512.,,INXEFN,INXSTA	; EVENT FLAG,STATUS. 512. BYTE BLOCKS
	FDOP$A	INXLUN,INXDSP,,FO.RD!FA.SHR ; READ ONLY, SHARED ACCESS

INXSTA:: .BLKW	2			; STATUS BLOCK FOR INDEX FILE
INXSTB:: .BLKW	5			; STATISTICS BLOCK FOR INDEX FILE

	INXSIZ==512.			; SIZE OF INXBUF
INXBUF:: .BLKB	INXSIZ			; I/O BUFFER AREA FOR FCS INDEX FILE
INXVBN:: .WORD	0,0			; DOUBLE WORD VBN FOR FCS INDEX FILE

INXDSP:: .WORD	0,0			; DATA SET DESCRIPTOR FOR INDEX FILE
	.WORD	IUICSZ,IUICNM		; UIC 
	.WORD	IFILSZ,IFILNM		; FILE NAME

IUICNM:	.ASCII	/[0,0]/
	IUICSZ=.-IUICNM
	.EVEN
IFILNM:	.ASCII	/INDEXF.SYS/
	IFILSZ=.-IFILNM
	.EVEN
INXNMB:: NMBLK$	,,,SY,0

	.SBTTL	LBNIMP	-> VARIABLE DECLARATIONS
;
; VARIABLE DECLARATIONS
;
SRCFIL:: .WORD			; ADDRESS OF 'SOURCE' FILE PARSED BY SYNSRC
SRCSIZ:: .WORD			; SIZE OF 'SOURCE' FILE PARSED BY SYNSRC
NUMFIL:: .WORD			; FLAG INDICATING FILE FOUND IF NUMFIL ^= 0
IBITSZ:: .WORD			; INDEX FILE BITMAP SIZE
ARGBLK:: .BLKW	5		; ARGBLK SCRATCH AREA
COUNT::	.WORD			; NUMBER OF LBNS FOR A GIVEN RETRIEVAL POINTER
BOTVBN:: .WORD	0,0		; BOTTOM VBN FOR A GIVEN RETRIEVAL POINTER
TOPVBN:: .WORD	0,0		; TOP VBN FOR A GIVEN RETRIEVAL POINTER
BOTLBN:: .WORD	0,0		; BOTTOM LBN FOR A GIVEN RETRIEVAL POINTER
TOPLBN:: .WORD	0,0		; TOP LBN FOR A GIVEN RETRIEVAL POINTER


	.SBTTL	LBNIMP	-> SST TABLE DEFINITION
;
; SST TABLE DEFINITION
;
SSTTBL:: .WORD	0,0,0,0,0,0		; DEFINE AN SST VECTOR
	.WORD	LBNTRP			; TRAP INSTRUCTION TO PRINT ERRORS
	SSTSIZ==.-SSTTBL

	.END