H = -1            
	H = H << 8    
	H = H >> 1    
	H = H >> 1    
	H = H >> 1   
	H = H
	MAR = SP; rd
	MAR = SP = SP - 1; rd
	OPC = H AND MDR     
ISHR10  Z = OPC; if (Z) goto ISHR13; else goto ISHR11 
ISHR11  MDR = MDR >> 1 
	OPC = OPC - 1; goto ISHR10 
ISHR13	TOS = MDR; wr; goto Main1
END     GOTO END
Main1   GOTO (MBR)