# use16-specific INTeL-specific deformity bandaid-on-cancer. 
# 32 bit code though.
# AC tually, it bites me in the rmode IDT more than in use16.


L schmegment
			#	linear addy in A  <!  schmegged addy in A
			#	bits 16-19 become bits 28-31. 
			#	low dual stays the same.
			#       bits 16-27 become zeros
	push B
	= A to B
	downshift 16 to B
	maskdual A	
	upshift 28 to B
	OR B to A
	pull B
return


