{File name:  ExamineMap.mc
 Description: Examine map after initial
 Author: Sturgis,
 Created: 15-Nov-83 11:53:45}
 
Reserve[ProtectStart, ProtectFence], Reserve[0FE0, 0FFF];	

SetTask[0], StartAddress[go];

go:	rCrh ← 1, CANCELBR[$, 0F],	c1;
	rC ← 0,		c2;
	rE ← 0FF + 1,	c3;
	
	rD ← 0,		c1;
	rF ← 60,	c2;
	{noop}		c3;
	
loop:
	MAR ← [rCrh, rC+0],	c1;
	{noop}		c2;
	rB ← MD,	c3;
	
	{noop}		c1;
	[] ← rD xor rB, ZeroBr,	c2;
	BRANCH[look, dontLook],	c3;

look:	rD ← rB, GOTO[continue],	c1;
dontLook:	GOTO[continue]		c1;
continue:  
	rC ← rC+1,		c2;
	[] ← rB xor rF, ZeroBr,	c3;
	
	BRANCH[$, dontAdd],	c1;    
	rD ← rD + rE, CarryBr,	c2;
	BRANCH[loop, $],	c3;
	
	rD ← rD + 1,		c1;
dontAdd:
	{noop}			c2;
	GOTO[loop],		c3;