X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=as%2Fexam_fe%2F2008_04%2FQ09%2Ftoken_call.casl;fp=as%2Fexam_fe%2F2008_04%2FQ09%2Ftoken_call.casl;h=9ed899bc7a0c7f21ce8e3dab22cc9d42ae9a2c70;hb=bce17a4fab0759bd0818c44bdf3cd17edb388267;hp=0000000000000000000000000000000000000000;hpb=8b9bafa8e8927ad19968969f466c756f0aeac8a3;p=YACASL2.git

diff --git a/as/exam_fe/2008_04/Q09/token_call.casl b/as/exam_fe/2008_04/Q09/token_call.casl
new file mode 100644
index 0000000..9ed899b
--- /dev/null
+++ b/as/exam_fe/2008_04/Q09/token_call.casl
@@ -0,0 +1,9 @@
+MAIN    START
+        LAD     GR1,STR
+        LAD     GR2,TBL
+        CALL    TOKEN
+        RET
+        DS      93
+STR     DC      '  THIS 1234  AN9999.'
+TBL     DS      100
+        END