as/casl2lib/test/mula/mula.casl

   1 MAIN    START
   2         LAD     GR3,0           ; Xのインデックス
   3 LOOPX   CPA     GR3,XCNT
   4         JZE     FIN
   5         LD      GR1,X,GR3
   6         LAD     GR4,0           ; Yのインデックス
   7 LOOPY   CPA     GR4,YCNT
   8         JZE     XNEXT
   9         LD      GR2,Y,GR4
  10         CALL    OUTA
  11         PUSH    0,GR1
  12         LD      GR1,GR2
  13         CALL    OUTA
  14         POP     GR1
  15         CALL    MULA
  16         JOV     WOV
  17         PUSH    0,GR1
  18         LD      GR1,GR0
  19         CALL    OUTA
  20         POP     GR1
  21 YNEXT   OUT     SEP,SLEN
  22         LAD     GR4,1,GR4
  23         JUMP    LOOPY
  24 WOV     OUT     YOMSG,YLEN
  25         JUMP    YNEXT
  26 XNEXT   LAD     GR3,1,GR3
  27         JUMP    LOOPX
  28 FIN     RET
  29 X       DC      0,1,2,127,128,151,217,255,256,257,32767,-32768,-32767,-257,-256,-255,-217,-151,-128,-127,-2,-1
  30 Y       DC      0,1,2,127,128,151,217,255,256,257,32767,-32768,-32767,-257,-256,-255,-217,-151,-128,-127,-2,-1
  31 XCNT    DC      22
  32 YCNT    DC      22
  33 SEP     DC      '--------------------'
  34 SLEN    DC      20
  35 YOMSG   DC      'Warning: overflow'
  36 YLEN    DC      17
  37         END