workloads/triptester.mms

   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