job  01B3B                                                  01B3
               job  6611
     x1        equ  89
               org  420
  420start     CS   332
  424          CS
  425          CS
  426loop      SW   1000
  430          ZA   D1,D2
  437          ZS   D2,D1
  444          S    seven,four
  451          SW   d3,d4
  458inner     A    d3,d4
  465M1        MCW  d5,d3
  472M2        MCW  d6,d4
  479          SW   M1&1,M2&1
  486          A    two,m1&3
  493          A    two,m2&3
  500          CW   M1&1,M2&1
  507          BCE  etest,d3,U
  515          B    inner
  519etest     BSS  muldiv,E
  524ftest     BSS  index,F
  529move      MCW  a1,m1&3
  536          MCW  a2,m2&3
  543          MCW  seven,d3
  550          MCW  four,d4
  557          WRP
  558          B    loop
  562muldiv    M    three,c9
  569          D    three2,p11-1
  576          LCA  c9a,c9
  583          LCA  p11a,p11
  590          B    ftest
  594index     SW   x1-2,889&X1
  601          LCA  k222,x1
  608A8891k    A    889&X1,1000
  615          LCA  A889&3,A8891k&3
  622          B    move
  626D1        DSA  12821
  629D2        DSA  4472
  632seven     DCW  7
  633four      DCW  4
  634D3        DCW  0
  635D4        DCW  0
  636D5        DCW  0
  637D6        DCW  0
               DC   01020304081214182122232428334142
               DC   444882848861626468263646668677
               DC   @AAAKASKAKKKSSASKSSUU@
  720two       DCW  002
  723three     DCW  3
  724c9        DCW  900
  727three2    DCW  3
  728p11       DCW  @001A@
  732c9a       DCW  900
  735p11a      DCW  @001A@
  739k222      DSA  222
  742A889      A    889&X1
  746A1        DSA  D1&1
  749A2        DSA  D1&2
               end  start