X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=as%2Fexam_fe%2F2011_10%2FQ12%2Fcall_btod.casl;fp=as%2Fexam_fe%2F2011_10%2FQ12%2Fcall_btod.casl;h=a36354cad138fa2e96cdd909dec43577965f24e7;hb=bce17a4fab0759bd0818c44bdf3cd17edb388267;hp=0000000000000000000000000000000000000000;hpb=8b9bafa8e8927ad19968969f466c756f0aeac8a3;p=YACASL2.git

diff --git a/as/exam_fe/2011_10/Q12/call_btod.casl b/as/exam_fe/2011_10/Q12/call_btod.casl
new file mode 100644
index 0000000..a36354c
--- /dev/null
+++ b/as/exam_fe/2011_10/Q12/call_btod.casl
@@ -0,0 +1,10 @@
+MAIN    START
+        LAD     GR1,#0000
+        LAD     GR2,#054D
+        LAD     GR3,STR
+        CALL    BTOD
+        OUT     STR,LEN
+        RET
+STR     DS      5
+LEN     DC      5
+        END