	.SETS LIST ""
	.ENABLE SUBSTITUTION
	.ASK YN LIST
	.IFT YN .SETS LIST ",LP"
	.ASK YN REASSEMBLE TEST PROGRAM
	.IFF YN .GOTO 1
	PIP FPNOS.OBJ;*/DE
	MAC FPNOS'LIST'=FPNOS
.1:	.ASK YN REASSEMBLE FPODT
	.IFF YN .GOTO 2
	PIP FPODT.POB;*/DE/NM,ODT.OBJ;2
	MAC FPODT.POB'LIST'=FPODT.PAT
.2:	PAT ODT.OBJ;2=ODT.OBJ;1,FPODT.POB
	PIP FPNOS.TSK;*/DE/NM,FPNOS.MAP;*
	FTB FPNOS,TI:=FPNOS,ODT/DA
	.XQT RUN FPNOS
