repo.or.cz
/
fpgammix.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
initial
[fpgammix.git]
/
workloads
/
triptester.mms
blob
47e76074d28b08550d604b0acfe7401e56f93887
1
foo GREG
2
3
; Overflow handler
4
LOC #0
5
GET $8,rY
6
GET $9,rX
7
GET $10,rZ
8
GET $11,rW
9
; Change the result
10
ADDU $8,$8,$0
11
ADDU $8,$8,$10
12
ADDU $8,$8,$11
13
PUT rZ,$8
14
ANDNH $9,#FF00
15
ORH $9,#0200
16
SETH $9,1
17
18
1H SETL $11,'+'
19
LDTU $10,$9,4
20
PBOD $10,1B
21
STBU $11,$9,7
22
23
RESUME
24
25
LOC #250
26
Main SETL $0,#FF00
27
PUT rA,$0
28
TRIP
29
SETL foo,#16c1
30
INCML foo,#7777
31
INCMH foo,#7777
32
INCH foo,#7777
33
SETL $3,#1
34
35
L:2 MUL $0,foo,2
36
ADD $3,$3,1
37
ADD foo,$0,foo
38
CMP $0,$3,30
39
PBNZ $0,L:2
40
POP 1,0