.TITLE	SCANR CMD SCAN FOR Z80 REL ASSEM
	.IDENT	/A/
;	A-B P/N: 724529-01
;	MOD IDT: RZ8GCL01
;	REV: A
;	Z80 REL MACRO ASSEM - SCAN01 PREFIX FILE
	.SBTTL	DEFAULT PARAMETERS
	.PSECT	DEFLT,D,RW,GBL,REL,OVR
;
OBJMKD=	0
LSTMKD=	0
ERRMKD=	0
INPMKD=	0
;
MKSP=	1			;SPOOLED OUTPUT SWITCH
;
	.PSECT	$IDATA,D,RW,GBL,REL,CON
	.MCALL	NMBLK$
OBJDEF:	NMBLK$	,OBJ		;DEFAULT FILESPECS
LSTDEF:	NMBLK$	,LST
ERRDEF:	NMBLK$	,ERR
INPDEF:	NMBLK$	,Z80
;
;	CHANGE PROMPT TO "RZ8> "
PROMPT:	.ASCII	<12>\RZ8> \
PROMPL=.-PROMPT
	.EVEN
;
;	FORTRAN FILE OPEN CHARACTERISTICS:
;		STATUS WORDS 1 & 2 OF THE FFDB
;		FOR EACH OF THE FILESPECS TO BE OPENED
;
	FBLOCK			;FORTRAN IV+ FILE I/O DEFINITIONS
;
OBJSTA=	DV.FNB!DV.FAC!DV.OPN!DV.FMP!DV.ASG!DV.RW
OBJST2=	DV.CC!DV.SAV!DV.NEW
LSTSTA=	DV.FNB!DV.FAC!DV.OPN!DV.FMP!DV.ASG!DV.RW
LSTST2=	DV.CC!DV.SAV!DV.NEW
ERRSTA=	DV.FNB!DV.FAC!DV.OPN!DV.FMP!DV.ASG!DV.RW
ERRST2=	DV.CC!DV.SAV!DV.NEW
INPSTA=	DV.FNB!DV.FAC!DV.OPN!DV.FMP!DV.ASG
INPST2=	DV.CC!DV.SAV!DV.RDO!DV.OLD
;
;	CONSTANTS
;
EVNTFL=	15.			;EVENT FLAG FOR ALL QIO'S AND OPENS
LUNOBJ=	1			;LOGICAL UNIT NUMBERS- OBJECT FILE
LUNLST=	2			; LISTING FILE
LUNERR=	3			; ERROR MESSAGE FILE
LUNINP=	4			; INPUT FILE 
LUNTT=	5			; QIO MESSAGES
LUNGCL=	6			; COMMAND LINE LUN
;
	.NLIST
	.PAGE