35: ac := rshift (ac)
36: ac := ac + 1; if z goto 38
37: mar := 1; mbr := sp; wr; goto 39
38: mar := 0; mbr := sp; wr
39: wr; goto 0