as/FUNC/mula_timestab.casl

   1 MAIN    START
   2         LAD     GR1,0
   3         SUBA    GR1,XMAX
   4 LOOPX   CPA     GR1,XMAX
   5         JPL     FIN
   6         OUT     SEP,SLEN
   7         CALL    OUTA
   8         OUT     SEP,SLEN
   9         LAD     GR2,0
  10         SUBA    GR2,YMAX
  11 LOOPY   CPA     GR2,YMAX
  12         JPL     XNEXT
  13         CALL    MULA
  14         JOV     WOV
  15         PUSH    0,GR1
  16         LD      GR1,GR0
  17         CALL    OUTA
  18         POP     GR1
  19 YNEXT   OUT     SEP,SLEN
  20         LAD     GR2,1,GR2
  21         JUMP    LOOPY
  22 WOV     OUT     YOMSG,YLEN
  23         JUMP    YNEXT
  24 XNEXT   LAD     GR1,1,GR1
  25         JUMP    LOOPX
  26 FIN     RET
  27 XMAX    DC      9
  28 YMAX    DC      9
  29 SEP     DC      '--------------------'
  30 SLEN    DC      20
  31 YOMSG   DC      'Warning: overflow'
  32 YLEN    DC      17
  33         END