root/as/app/mull_timestab.casl

/* [<][>][^][v][top][bottom][index][help] */
   1 MAIN    START
   2         LD      GR1,XMIN
   3 LOOPX   CPL     GR1,XMAX
   4         JPL     FIN
   5         OUT     SEP,SLEN
   6         CALL    OUTL
   7         OUT     SEP,SLEN        
   8         LD      GR2,YMIN
   9 LOOPY   CPL     GR2,YMAX
  10         JPL     XNEXT
  11         CALL    MULL
  12         PUSH    0,GR1
  13         LD      GR1,GR0
  14         CALL    OUTL
  15         POP     GR1
  16         LAD     GR2,1,GR2
  17         JUMP    LOOPY
  18 XNEXT   LAD     GR1,1,GR1
  19         JUMP    LOOPX
  20 FIN     RET
  21 XMIN    DC      0        
  22 XMAX    DC      19
  23 YMIN    DC      0        
  24 YMAX    DC      19
  25 SEP     DC      '--------------------'
  26 SLEN    DC      20
  27         END

/* [<][>][^][v][top][bottom][index][help] */