|@
#7#683-6	9--#=9!8+6;*+-8!'9< /)6(6+*616/#5.<(+#..866
+6/,**;<02/0??>4>4?>
>- 8URCE & DESTINATION ADDRESSES-1

MOVEBL,	0000
	TAD I MOVEBL
	DCA XR10
	ISZ MOVEBL
	TAD I MOVEBL
	DCA XR11
	ISZ MOVEBL
	TAD (-400
	DCA TMP

	CDF 0
	TAD I XR10
	CDF 10
	DCA I XR11~t@DA0H%@DB0H!	 zz @E?D0& 3(K
p3~8@tJC
j0`
7$@^\
8m.Zt1W@
0?Votrqpn}ePdKr
2*wV)AR?v(iAs`
pWM v@X?zf~ '}i5f qiga$.Fb!b3(XzqcXzE+
G)j
%r!n$&bB(|,&07BV
lW0&D(/T3":d3#:zpr	
q3
J
>
`$
'0FbH
r	g37	#	3y#z3("p&Zmfuh&p0Htrvo&p>unppCqpdpf6pLd&rCy /a+flfgH.j
nk@h
^XwXs`mm	Fmm&@Hank-V+jm!gbP o@i2hRkRj-q-oX(un"(cznkx
][-Xl4*X.ptpK_sU44p@-8	JMS CHMSK	/ COMPARE VALUE TO MASK VALUE
	TAD I IWD1	/ REGET WORD & SEND IT OUT
	CDF 10
	JMS OCTOUT
	 LPACK1
	JMP COMN

CDMP2,	TAD I IWD2
	JMS CHMSK	/ CHECK AGAINST MASK
	TAD I IWD2