X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=as%2Fexam_fe%2F2018_04%2Fdtob.casl;fp=as%2Fexam_fe%2F2018_04%2Fdtob.casl;h=0000000000000000000000000000000000000000;hb=e21c536987c4bfbff61ea627e2bc27c46910ec53;hp=91d4ca3012b195b323d28efee81cc164e7f6be3d;hpb=8627c1a803480336f0670257ac991dfeb9b5bf34;p=YACASL2.git

diff --git a/as/exam_fe/2018_04/dtob.casl b/as/exam_fe/2018_04/dtob.casl
deleted file mode 100644
index 91d4ca3..0000000
--- a/as/exam_fe/2018_04/dtob.casl
+++ /dev/null
@@ -1,18 +0,0 @@
-DTOB    START
-        RPUSH
-        ADDL   GR2,GR1
-        LAD    GR0,0           ; 戻り値の初期化
-LP      CPL    GR1,GR2         ; 変換終了？
-        JZE    FIN
-        LD     GR4,0,GR1       ; 数字1文字の取出し
-        SUBL   GR4,='0'        ; 1 桁を数値に変換
-        SLL    GR0,1           ; GR0を10倍してGR4を加算
-        LD     GR5,GR0
-        SLL    GR5,2
-        ADDL   GR0,GR5
-        ADDL   GR0,GR4
-        LAD    GR1,1,GR1
-        JUMP   LP
-FIN     RPOP
-        RET
-        END