LD GR5,='.' ; 「.」をSTR領域に格納
ST GR5,STR,GR4 ; ↓
LAD GR4,1,GR4 ; ↓ GR4 <- GR4 + 1
-;; GR1の内容を小数値と見なし、10進数æ\96\87å\97ã\81«å¤\89æ\8f\9bã\81\97ã\81¦STRã\81«æ ¼ç´\8d
+;; GR1の内容を小数値と見なし、10進数ã\81®æ\96\87å\97å\88\97ã\81«å¤\89æ\8f\9bã\81\97ã\81¦STRã\81«æ ¼ç´\8d
TODIG AND GR1,GR1 ; GR1が0の場合は、ループを脱出
JZE PRT ; ↓
CALL MUL ; GR1とGR2の、積をGR1、オーバーフロー値をGR3に格納
LEN DS 1
END
;; GR1の値を10倍にし、GR3にオーバーフロー値を格納
-MUL START
+MUL START
PUSH 0,GR5
PUSH 0,GR6
LAD GR3,0 ; GR3は、オーバーフロー値を格納