Main Module RSHTEST

	Declare ( A : static logical )
	Declare ( B : static 64 bit logical )
	A *= RSH 1
	A *= RSH 70
EndModule