as/fe_tests/2011_10/Q12/btod1.casl

   1  BTOD    START
   2              RPUSH
   3              LD     GR6,GR3
   4              LAD    GR7,4,GR3
   5              LAD    GR3,UDAT    ; 除数の初期設定
   6      LP      CALL   DIV
   7              OR     ,='0'
   8              ST     ,0,GR6    ; 10 進数字１文字格納
   9              CPL    GR6,GR7
  10              JZE    FIN
  11              LAD    GR6,1,GR6
  12              LD     GR1,GR4     ; 被除数の再設定
  13              LD     GR2,GR5
  14
  15              JUMP   LP
  16      FIN     RPOP
  17              RET
  18      UDAT    DC     0
  19              DC     10000
  20              DC     0
  21              DC     1000
  22              DC     0
  23              DC     100
  24              DC     0
  25              DC     10
  26              DC     0
  27              DC     1
  28              END