.TITLE	SIMTRT
	.SBTTL	DEFINITIONS NEEDED
	.NLIST	BEX
;
;	PAUL D. CLAYTON   3/31/80   RMS @ NADC, WARMINSTER, PA.
;
;	THIS IS THE MAIN ROOT SEGMENT CONTAINING ALL DATA STRUCTURES
;		USED BY "SIMTBR". ALL VARIABLES ARE DEFINED AS GLOBAL
;		REFERANCES. NO PROCESS CODE IS LOCATED HERE
;
;
;	FIRST ALL THE MACRO CALLS
;
	.MCALL	$STRUC,FDBDF$,FDAT$A,FDOP$A,FDRC$A,FDBK$A,FDOF$L
	FDOF$L
	$STRUC
;
;	NEXT IS THE MACRO FOR DEFINING THE LOGICAL UNIT STORAGE
;
;
;	NEXT IS THE MACRO FOR GENERATING EACH FDB FOR THE TAPE FILES
;		ON DISK. THERE IS ONE FDB FOR EACH LOGICAL UNIT.
;
        .MACRO  LUFDB LU,BUF,STO        ;FILE SPEC MACRO                        
	.WORD	STO+12.			;ADDR. TO CURRENT POINTER TO BLOCK
	.WORD	STO			;ADDR. OF HEADER STOR. AREA
	.WORD	1			;FILE PROT./STATUS FLAGS
        .WORD   0                       ;STORAGE OF FDB UIC                     
        FDBDF$                          ;FDB FOR 512. BYTE BLOCKS               
        FDAT$A  R.FIX,FD.BLK,512.                                               
        FDOP$A  LU                                                              
        FDRC$A  FD.RWM                                                          
        FDBK$A  BUF,512.                                                        
	.EVEN
BUF:    .BLKB   512.                                                            
STO:	.BLKB	14.			;STORAGE FOR SIMULATED TAPE HEADER
	.ENDM	LUFDB
	.PAGE
	.SBTTL	CONSTANTS
;
;	NEXT ARE THE CONSTANTS THEMSELVES
;
	.SBTTL	CONSTANT STORAGE
;
;
;	ALL THE CONSTANTS NEEDED IN THE PROGRAM ARE STORED HERE. CARE
;		MUST BE TAKEN NOT TO MOVE ITEMS AROUND.
;
;
LU1FDB::LUFDB   7.,LU1BUF,HED1          ;FDB'S FOR SIMULATED TAPE               
LU2FDB::LUFDB   8.,LU2BUF,HED2          ; FILES. ONE FOR EACH LOGICAL           
LU3FDB::LUFDB   9.,LU3BUF,HED3          ; UNIT NO.                              
LU4FDB::LUFDB   10.,LU4BUF,HED4                                                 
LU5FDB::LUFDB   11.,LU5BUF,HED5                                                 
FDBPTR::.WORD   LU1FDB+FDBOFF,LU2FDB+FDBOFF,LU3FDB+FDBOFF  ;TABLE OF ADDR.
        .WORD   LU4FDB+FDBOFF,LU5FDB+FDBOFF                                   
DSD::   .BLKW   6.                      ;COMMON DSD FOR FILE OPEN               
NVBN::	.BLKW	2.			;STORAGE FOR NEW VIRT. BLOCK NO.
NOFFST::.BLKW	1.			;SRORAGE FOR NEW OFFSET
CHARKT::.BLKW	4.			;CHARACTER COUNT
MOVLEN::.BLKW	2.			;NO. OF CHAR. TO READ IN
FLIP::.WORD	0			;FLIP SWITCH FOR MOVE
;
;	THE FOLLOWING IS THE DEFAULT FILE NAME BLOCK USED BY .PARSE
;		DO NOT TOUCH THIS SEQUENCE!!!!!!!!!!!!!!!
;
DFNAM::.ASCII	/TEMP.TAP;0/		;DEFAULT FILE NAME
DFNAML==.-DFNAM				;LENGTH OF STRING
DFUNT::.ASCII	/DB0:/			;DEVICE NAME AND UNIT
DFUNTL==.-DFUNT				;LENGTH OF STRING
;
;	THE DEFAULT UIC DESCRIPTOR FOLLOWS
;
DEFUIC::
	.ASCII	/[201,201]/
UICLEN==.-DEFUIC
;
;	FOLLOWING IS THE DEFUALT DESCR. BLOCK
;
	.EVEN
DEFAL::
	.WORD	DFUNTL,DFUNT		;ADDRESS + LENGTHS
	.WORD	UICLEN,DEFUIC
	.WORD	DFNAML,DFNAM
;
;
;
;	THATS IT FOR NOW
;
	.END