;
;THIS IS NOT PHIL STEPHENSON'S MACRO
;IT WAS SUPPLIED AS A KLUDGE USING THE HELP FILE AND THE
;BINASC SOURCE TO GUESS WHAT ITS CONTENTS MUST HAVE BEEN.
;
	.MACRO	$BASTS	WHERE,KEY1,KEY2
	.IIF IDN,KEY1,SIGNED BIS #1,WHERE
	.IIF IDN KEY1,SIGN BIS #1,WHERE
	.IIF IDN KEY1,NOSIGN BIC #1,WHERE
	.IIF IDN,KEY1,UNSIGNED, BIC #1,WHERE
	.IIF IDN,KEY1,LEFT, BIS #4,WHERE
	.IIF IDN,KEY1,RIGHT, BIC #4,WHERE
	.IIF IDN,KEY1,ZEROES, BIS #2,WHERE
	.IIF IDN,KEY1,ZEROS, BIS #2,WHERE
	.IIF IDN,KEY1,BLANKS, BIC #2,WHERE
	.IIF IDN,KEY1,BLANK, BIC #2,WHERE
	.IIF IDN,KEY2,SIGNED BIS #1,WHERE
	.IIF IDN,KEY2,UNSIGNED, BIC #1,WHERE
	.IIF IDN,KEY2,LEFT, BIS #4,WHERE
	.IIF IDN,KEY2,RIGHT, BIC #4,WHERE
	.IIF IDN,KEY2,ZEROES, BIS #2,WHERE
	.IIF IDN,KEY2,ZEROS, BIS #2,WHERE
	.IIF IDN,KEY2,BLANKS, BIC #2,WHERE
	.IIF IDN,KEY2,BLANK, BIC #2,WHERE
	.IIF IDN KEY2,SIGN BIS #1,WHERE
	.IIF IDN KEY2,NOSIGN BIC #1,WHERE
	.ENDM