+++ /dev/null
-BTOD START
- RPUSH
- LD GR6,GR3
- LAD GR7,4,GR3
- LAD GR3,UDAT ; 除数の初期設定
-LP CALL DIV
- OR GR2,='0'
- ST GR2,0,GR6 ; 10進数字1文字格納
- CPL GR6,GR7
- JZE FIN
- LAD GR6,1,GR6
- LD GR1,GR4 ; 被除数の再設定
- LD GR2,GR5
- LAD GR3,2,GR3
- JUMP LP
-FIN RPOP
- RET
-UDAT DC 0
- DC 10000
- DC 0
- DC 1000
- DC 0
- DC 100
- DC 0
- DC 10
- DC 0
- DC 1
- END