X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=as%2Ffe_tests%2F2011_10%2FQ12%2Fbtod1.casl;h=537b16eb173c9855806da8616b050ecb77b8df2a;hb=26d2b1e3f1b8d08b4089d2442784be654cdf2226;hp=f67c7f49a9c3b3efa457d5fef4ddfabe5435420d;hpb=fe2de04b9021faae69c6b98d401797c9728e15dc;p=YACASL2.git diff --git a/as/fe_tests/2011_10/Q12/btod1.casl b/as/fe_tests/2011_10/Q12/btod1.casl index f67c7f4..537b16e 100644 --- a/as/fe_tests/2011_10/Q12/btod1.casl +++ b/as/fe_tests/2011_10/Q12/btod1.casl @@ -1,28 +1,28 @@ - BTOD START - RPUSH - LD GR6,GR3 - LAD GR7,4,GR3 - LAD GR3,UDAT ; 除数の初期設定 - LP CALL DIV - OR ,='0' - ST ,0,GR6 ; 10 進数字1文字格納 - CPL GR6,GR7 - JZE FIN - LAD GR6,1,GR6 - LD GR1,GR4 ; 被除数の再設定 - LD GR2,GR5 - - 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 +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