as/itoa1.casl

   1 MAIN    START
   2         LD      GR1,I
   3         LAD     GR2,10
   4     LAD GR5,0
   5 LOOP    CPA     GR1,GR2
   6         JMI     NEXT
   7         CALL    DIV
   8     ADDA        GR4,Z
   9     ST  GR4,STR,GR5
  10     LAD GR5,1,GR5
  11     LD  GR1,GR3
  12     JUMP        LOOP
  13 NEXT    ADDA    GR1,Z
  14         ST      GR1,STR,GR5
  15         LAD     GR5,1,GR5
  16         ST      GR5,LEN
  17 PRT OUT STR,LEN
  18         RET
  19 I       DC      12345
  20 Z       DC      '0'
  21 STR     DS      5
  22 LEN     DS      1
  23     END
  24 ;GR1をGR2で割ったときの商をGR3、剰余をGR4に格納
  25 DIV     LD      GR4,GR1
  26         LAD     GR3,0
  27 DLOOP   CPA     GR4,GR2
  28         JMI     DFIN
  29     SUBL GR4,GR2
  30     LAD GR3,1,GR3
  31     JUMP        DLOOP
  32 DFIN RET
  33         RET
  34         END