.;
.;		F F D G E N . C M D
.;
	.ENABLE SUBSTITUTION
	.DISABLE LOWERCASE
;
; FFDGEN -- Generate FFD - '<DATE>' '<TIME>'.
.;
.; SET DEFAULTS.
.;
	.SETS DLS "NL:"
	.SETS DTK "SY:"
	.SETS DMP "NL:"
;
	.ASKS LS List file device [ddu: D: 'DLS']
	.IF <STRLEN> EQ 0 .SETS LS DLS
	.TEST LS
	.IFT <ALPHAN> .SETS LS "'LS':"
	.ASKS TK Task image file device [ddu: D: 'DTK']
	.IF <STRLEN> EQ 0 .SETS TK DTK
	.TEST TK
	.IFT <ALPHAN> .SETS TK "'TK':"
	.ASKS MP Map file device [ddu: D: 'DMP']
	.IF <STRLEN> EQ 0 .SETS MP DMP
	.TEST MP
	.IFT <ALPHAN> .SETS MP "'MP':"
	.ASK FCS Build with resident FCS library
	.ASK KCMD Retain command files
	.ASK KOBJ Retain object files
;
	ASN 'LS'=LS:
	ASN 'TK'=TK:
	ASN 'MP'=MP:
;
	.OPEN FFDASM.CMD
	.ENABLE DATA
;
;		F F D A S M . C M D
;
; FFDASM -- Assemble FFDISK.
;
FFDISK,LS:FFDISK/CR/-SP=LB:[1,1]EXEMC/ML,[11,10]RSXMC/PA:1,-
SY:'<UIC>'FFDISK
.DISABLE DATA
	.CLOSE
.;
	MAC @FFDASM
	.IFF KCMD PIP FFDASM.CMD;0/DE
;
	.OPEN FFDBLD.CMD
	.ENABLE DATA
;
;		F F D B L D . C M D
;
; FFDBLD -- Build FFDISK.
;
TK:FFDISK/CP/PR:5,MP:FFDISK/MA/CR/-SP=FFDISK
LB:[1,1]EXELIB/LB
LB:[1,54]RSX11M.STB/SS
/
TASK=...FFD
PAR=GEN
PRI=50
STACK=256
UNITS=5
ASG=NL0:1:2:3:4,TI0:5
.DISABLE DATA
	.IFT FCS .DATA LIBR=FCSRES:RO
	.DATA /
	.CLOSE
.;
	.XQT TKB @FFDBLD
.;
	.SETS S LS[1:2]
	.IF S EQ "NL" .GOTO 91
	.WAIT CRF...
;
	PRINT LS:FFDISK.LST/DE
;
.91:	.WAIT ...TKB
	.IFF KOBJ PIP FFDISK.OBJ;0/DE
	.IFF KCMD PIP FFDBLD.CMD;0/DE
	.SETS S MP[1:2]
	.IF S EQ "NL" .GOTO 99
	.WAIT CRF...
;
	PRINT MP:FFDISK.MAP/DEL
.99:
;
	ASN =LS:
	ASN =TK:
	ASN =MP:
;
; FFDGEN -- Completed '<DATE>' '<TIME>'.
;
