.label ISHR10 0x20
.label ISHR11 0x30
.label ISHR13 0x130
.label def 0x140
	
.default goto def

	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 ISHR 11 
ISHR11   MDR = MDR >> 1 
	OPC = OPC - 1; goto ISHR10 
ISHR13	TOS = MDR; wr; goto Main1