.TITLE STB IO SECTION
	.SBTTL TITLE PAGE
	.IDENT /VD0.0/
;+
;
;	AUTHOR: 1LT JOEL IRWIN
;
;
;	DATE: 21 NOV 1977
;
;
;	SYSTEM: OISS			SUBSYSTEM: PROGRAMMER AID
;
;
;	FUNCTIONAL DESCRIPTION:
;
;	THIS SECTION CONTAINS ALL THE IO DATA.
;	IO PROCESSING ROUTINES.
;
;
;
;	RECORD OF MODIFICATIONS
;
;	VERSION		DATE		BY			DESCRIPTION
;	_______		____		__			___________
;
;	
;
;
;
;	GLOBAL EVENT FLAG USAGE:
;
;
;-
	.SBTTL MACROS,SYMBOLS,AND DATA
	.PAGE
;
;
;	LOCAL MACRO DEFINITIONS AND SYSTEM MACRO CALLS
;
;
	.MCALL	FSRSZ$,CSI$,FDBDF$,FDAT$A,FDRC$A,FDOP$A,GCMLB$,NMBLK$

;	IO INITIALIZATIONS
	FSRSZ$	2
	CSI$
;
;	GLOBAL SYMBOL DEFINITIONS AND DATA
;
	.PAGE
	.NLIST	BIN
	.PSECT	IODATA,RW		;PSECT FOR THE IO DATA SECTION

;	FDBS FOR THE INPUT AND OUTPUT FILES

INFDB::	FDBDF$				;INPUT FILE
	FDRC$A	,INPUT,121.		;RECORD IO,MOVE MODE,SEQUENTIAL
	FDOP$A	INLUN,CSIBLK+C.DSDS,INDEF,FO.RD
					;READ ONLY

STBFDB::FDBDF$				;THE STB FILE
	FDAT$A	R.VAR			;VARIABLE RECORDS
	FDRC$A	,OUTPUT,10.		;RECORD IO,MOVE MODE,SEQUENTIAL
	FDOP$A	STBLUN,CSIBLK+C.DSDS,STBDEF,FO.WRT
					;NEW FILE FOR WRITING

;	DEFAULT INPUT AND OUTPUT NAME BLOCKS

INDEF::	NMBLK$	,MAP,,SY,0		;INPUT
STBDEF::NMBLK$	,STB,,SY,0		;OUTPUT

;	USER INPUT

GCLBLK::GCMLB$

;	CSI CONTROL BLOCK

CSIBLK::.BLKB	C.SIZE

	.END