RMDRIV.MAC;2/AU=RMDRIV.OLD;1/-BF
\
-2,2
	.IDENT	/V01N/
-12
;	NAPC -- ALLOW SPLIT BIN/DEC ADDRESSING ON SAME TERM
%
-74,74,/;NAPC/
	.MCALL	TTSYM$
	TTSYM$
OUT:	QIO$	IO.WLB!TF.WAL,$DLUN	; OUTPUT QIO GETS FILLED IN AS WE GO
-179,180,;/NAPC/
	TSTB	$DEC		; DECIMAL X ADDRESS?
	BPL	3$		; NO - OLD FASHIONED BINARY
-187,,/;NAPC/
	TSTB	$DEC+1		;; TEMPORARY FUDGE FOR ADDS
	BMI	2$		;; NOT ADDS
	BIC	#4000,R2	;; REDUCE FIELD WIDTH TO 2 CHARS
2$:				;; 
-188,,/;NAPC/
	MOV	(SP)+,R2
	MOV	(SP)+,R1
	MOV	(SP)+,R0
-194,195,/;NAPC/
	TSTB	$DEC+1		; DECIMAL Y ADDRESS?
	BPL	7$		; NO - OLD FASHIONED BINARY
	MOV	R0,-(SP)
	MOV	R1,-(SP)
	MOV	R2,-(SP)
/