as/itoa0.casl

   1 MAIN    START
   2 BEGIN   LAD     GR1,765
   3         CALL    DIV10
   4     ADDA        GR3,Z
   5     ST  GR3,A
   6     LAD GR1,A
   7     LAD GR2,1
   8     SVC 2
   9     LAD GR1,=#A
  10     SVC 2
  11         RET
  12 Z       DC      '0'
  13 A       DS      1
  14     END