sw/src/life/L.PA

   1
   2 /---------------------------------------------------------------------
   3 / CALCULATE INTEGER DIVISION AND MODULO AT ONCE
   4 / RESULT IN LOCATIONS DIV AND MOD
   5 / DIVIDENT IN AC
   6 MOD12,  0
   7         DCA     MOD
   8         DCA     DIV
   9
  10         TAD     MOD
  11         TAD     KN48
  12
  13         SMA
  14         SKP
  15         JMP     IGN48
  16         DCA     MOD
  17         ISZ     DIV
  18 IGN48,  CLA
  19         TAD     DIV
  20         RAL
  21         DCA     DIV
  22         TAD     MOD
  23         TAD     KN24
  24         SMA
  25         SKP
  26         JMP     IGN24
  27         DCA     MOD
  28         ISZ     DIV
  29 IGN24,  CLA
  30         TAD     DIV
  31         RAL
  32         DCA     DIV
  33         TAD     MOD
  34         TAD     KN12
  35         SMA
  36         SKP
  37         JMP     IGN12
  38         DCA     MOD
  39         ISZ     DIV
  40 IGN12,  CLA
  41         JMP I   MOD12
  42
  43 KN48,   -60
  44 KN24,   -30
  45 KN12,   -14
  46
  47
  48
  49         *1000
  50 DIV,    0               / INTEGER DIVISION RESULT
  51 MOD,    0               / INTIGER DIVISION'S REST
  52