as/multi.casl

   1 MAIN    START   BEGIN
   2 BEGIN   LD      GR1,X
   3         LD      GR2,Y
   4         LAD     GR3,0
   5     LAD GR4,1
   6 LOOP    CPA     GR4,GR2
   7         JPL     FIN
   8         AND     GR2,GR4
   9         JZE     NEXT
  10     ADDA        GR3,GR1
  11         JOV     FIN
  12 NEXT    SLA     GR1,1
  13         JOV     FIN
  14         LD      GR2,Y
  15     SLA GR4,1
  16     JUMP        LOOP
  17 FIN     ST      GR3,A
  18         RET
  19 X       DC      6
  20 Y       DC      5
  21 A       DS      1
  22         END