.; inm.cmd - macro from .mac to .obj
.; p1	name of macro file					foo
.; p2	purpose of macro file			use_SMSG$_to_break_DECnet
.; p3	any existing prefix files	[1,1]rmsmac.mlb/ml,sy:[2,3]foo/ml,
.; #1	command file to clean up
.; #3	file to write requirements
.;
.; cleanup:	delete 'p1'.obj
.;
	.enable substitution
	.enable escape
	.data #3 you will need 'p1'.mac for 'p2'
	@ini ...mac $mac DEC_PDP-11_macro_assembler
.retry:
	mac 'p1'='p3''p1'
	.if <exstat> = <succes> .goto ok
	; PROBLEM - failed to assemble 'p1' for 'p2'
	.asks junk type <ESCAPE> to continue regardless, <RETURN> to retry
	.ift <escape> .goto banzai
	; PAUSING so you can correct the problem before retrying
	.pause
	.goto retry
.banzai:
.ok:
	@ini ...pip $pip DEC_file_utility
	.testfile 'p1'.obj
	.data #1 pip '<filspc>'/de/nm
	.exit <succes>
