initial
[fpgammix.git] / workloads / triptester.mms
blob47e76074d28b08550d604b0acfe7401e56f93887
1 foo     GREG
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
18 1H      SETL    $11,'+'
19         LDTU    $10,$9,4
20         PBOD    $10,1B
21         STBU    $11,$9,7
23         RESUME
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
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