{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;