ishl = 0x78:
        H = 1
    H = H << 8
    H = H >> 1
    H = H >> 1
    H = OPC = H >> 1
    H = OPC - 1
    TOS = TOS AND H
    MAR = SP = SP -1; rd
    empty
    H = OPC = MDR; goto while
while:
    TOS = TOS; if(Z) goto end; else goto loop
loop:
    OPC = H = OPC + H
    TOS = TOS -1; goto while

end:
    MDR = TOS = OPC; wr; goto main

ishr = 0x7A:
    H = 1
    H = H << 8
    H = H >> 1
    H = H >> 1
    H = OPC = H >> 1
    H = OPC - 1
    TOS = TOS AND H
    MAR = SP = SP -1; rd
    empty
    H = OPC = MDR; goto while2
while2:
    TOS = TOS; if(Z) goto end2; else goto loop2
loop2:
    OPC = OPC >> 1
    TOS = TOS - 1; goto while2
end2:
    MDR = TOS = OPC; wr; goto main

iushr = 0x7C:
    H = 1 << 8
    H = H >> 1
    H = H >> 1
    H = OPC = H >> 1
    H = OPC - 1
    TOS = TOS AND H

    H = 1
    H = H << 8
    H = H >> 1
    H = H << 8
    H = H << 8
    H = OPC = H << 8
    H = OPC - 1

    MAR = SP = SP -1; rd
    empty

while3:
    TOS = TOS; if(Z) goto end3; else goto loop3
loop3:
    OPC = OPC >> 1
    OPC = H AND OPC
    TOS = TOS - 1; goto while3
end3:
    MDR = TOS = OPC; wr; goto main