1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
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:
grx->ar
ar-pm->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->ar
ar+'ir->ar
ar->pc, 0->upc
bne:
pc->ar
z=1? bne_done
ar+'ir->ar
bne_done:
ar->pc, 0->upc
halt:
halt
cmp:
grx->ar
ar-pm->ar, 0->upc
bge:
pc->ar
; if grx < pm
n=1? checko1
o=1? bge_done
; N, N -> yes
b bge_jump
checko1:
o=1? bge_jump
b bge_done
bge_jump:
ar+'ir->ar
bge_done:
ar->pc, 0->upc
beq:
pc->ar
z=1? beq_yes
b beq_no
beq_yes:
ar+'ir->ar
beq_no:
ar->pc, 0->upc
end:
b end
|
