-STDN PUSH 0,GR1 ; GR1を退避
- LD GR1,='0' ; 「0」をSTR領域に格納
- CALL STSTR ; ↓
- LD GR1,='.' ; 「.」をSTR領域に格納
- CALL STSTR ; ↓
- POP GR1 ; GR1を復元
-;; GR1の内容を小数値と見なし、10進数æ\96\87å\97ã\81«å¤\89æ\8f\9bã\81\97ã\81¦STRã\81«æ ¼ç´\8d
-TODIG AND GR1,GR1 ; GR4が0の場合は、ループを脱出
+STDN LD GR5,='0' ; 「0」をSTR領域に格納
+ ST GR5,STR,GR4 ; ↓
+ LAD GR4,1,GR4 ; ↓ GR4 <- GR4 + 1
+ LD GR5,='.' ; 「.」をSTR領域に格納
+ ST GR5,STR,GR4 ; ↓
+ LAD GR4,1,GR4 ; ↓ GR4 <- GR4 + 1
+;; GR1の内容を小数値と見なし、10進数ã\81®æ\96\87å\97å\88\97ã\81«å¤\89æ\8f\9bã\81\97ã\81¦STRã\81«æ ¼ç´\8d
+TODIG AND GR1,GR1 ; GR1が0の場合は、ループを脱出