pc->asr
pm->ir, pc++
k2->upc

direct:
ir->asr, k1->upc

immediate:
pc->asr, pc++, k1->upc

indirect:
ir->asr
pm->asr, k1->upc

indexed:
ir->ar
; ar+gr3->ar
!1184000
ar->asr, k1->upc

load:
pm->grx, 0->upc

store:
grx->pm, 0->upc

add:
pm->ar
ar+grx->ar
ar->grx, 0->upc

sub:
pm->ar
ar-grx->ar
ar->grx, 0->upc

and:
grx->ar
ar&pm->ar
ar->grx, 0->upc

lsr:
grx->ar
pm->lc
lsr_loop:
l=1? lsr_exit
lc--, lsr, b lsr_loop
lsr_exit:
ar->grx, 0->upc

bra:
pc->asr
pm->ar, pc++
ar+pc->ar
ar->pc, 0->upc

bne:
0->upc

halt:
halt

cmp:
pm->ar
ar-grx->ar, 0->upc

bge:
0->upc

beq:
0->upc

end:
b end