100 /	ASSEMBLER TESTS
 110 
 120 	*7000			/WHERE THIS LOADS
 130 
 140 	RELOC	200		/WHERE THIS THINKS IT IS
 150 
 160 CODE,	.-.
 170 	TAD	(.)		/A LITERAL, THE CURRENT LOC
 180 	CMA IAC
 190 	TAD	(CODE)		/A LITERAL
 200 	JMP I	CODE		/A REF ON CURRENT PAGE
 210 
 220 	PAGE			/FORCE OUT THEE LITERALS
 230 
 240 	RELOC			/TURN OFF RELOCATION
 250 
 260 	.			/PROVE THINGS ARE BACK TO NORMAL
 270 
 280 	$