$	SET NOON
$	LIST = ""
$	INQUIRE/NOPUNCT YN "Generate assembly listings? "
$	IF YN THEN LIST = ",LP:"
$	INQUIRE/NOPUNCT YN "Reassemble test program? "
$	IF .NOT.YN THEN GOTO L1
$	DELETE FPNOS.OBJ;*
$	MCR MAC FPNOS'LIST'=FPNOS
$L1:	INQUIRE YN/NOPUNCT "Reassemble FPODT? "
$	IF .NOT.YN THEN GOTO L2
$	DELETE FPODT.POB;*,ODT.OBJ;2
$	MCR MAC FPODT.POB'LIST'=FPODT.PAT
$	MCR PAT ODT.OBJ;2=ODT.OBJ;1,FPODT.POB
$L2:	DELETE FPNOS.EXE;*
$	MCR TKB FPNOS,TT:=FPNOS,ODT/DA
$!	DEFINE/NOLOG TI0: SYS$COMMAND
$!	DEFINE/NOLOG TI: SYS$COMMAND
$	DEFINE/USER/NOLOG SYS$INPUT SYS$COMMAND
$	RUN FPNOS