X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=as%2FFUNC%2Foutd_q15.casl;h=4728936d181eaa043e8524945833e1bddb4aa632;hb=bbc3d71fec11bbd5654a04719436135035835ba3;hp=9792d4d37052dd376cba0e11a487edbfc6a8f7d2;hpb=17d01b5658f2cdad6839ab55d27cf1ed4824309b;p=YACASL2.git diff --git a/as/FUNC/outd_q15.casl b/as/FUNC/outd_q15.casl index 9792d4d..4728936 100644 --- a/as/FUNC/outd_q15.casl +++ b/as/FUNC/outd_q15.casl @@ -23,7 +23,7 @@ STDN LD GR5,='0' ; 「0」をSTR領域に格納 LD GR5,='.' ; 「.」をSTR領域に格納 ST GR5,STR,GR4 ; ↓ LAD GR4,1,GR4 ; ↓ GR4 <- GR4 + 1 -;; GR1の内容を小数値と見なし、10進数文字に変換してSTRに格納 +;; GR1の内容を小数値と見なし、10進数の文字列に変換してSTRに格納 TODIG AND GR1,GR1 ; GR1が0の場合は、ループを脱出 JZE PRT ; ↓ CALL MUL ; GR1とGR2の、積をGR1、オーバーフロー値をGR3に格納 @@ -43,7 +43,7 @@ STR DS 20 LEN DS 1 END ;; GR1の値を10倍にし、GR3にオーバーフロー値を格納 -MUL START +MUL START PUSH 0,GR5 PUSH 0,GR6 LAD GR3,0 ; GR3は、オーバーフロー値を格納