X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?p=YACASL2.git;a=blobdiff_plain;f=as%2Ffe_tests%2F2011_06%2FQ12%2Fcall_rotate.casl;h=40b6ef4157e04297ed1c707025a759f6b4a13b53;hp=375e5dbcb0ead5ee54a5c882efcca8061eb99d61;hb=fe3360c6043b31888d5a0ce928096ed0c57905f6;hpb=624b3647b7e85ff83585e8acd6eaf2f276ecf282

diff --git a/as/fe_tests/2011_06/Q12/call_rotate.casl b/as/fe_tests/2011_06/Q12/call_rotate.casl
index 375e5db..40b6ef4 100644
--- a/as/fe_tests/2011_06/Q12/call_rotate.casl
+++ b/as/fe_tests/2011_06/Q12/call_rotate.casl
@@ -1,5 +1,28 @@
-        MAIN    START
-        RPUSH
-        LD      GR1,ORG
+;;; 「五」を90度回転させた16 x 16のpbm画像を出力する
+;;; 呼び出し方:
+;;;   casl2 call_rotate.casl rotate.casl pbm16.casl
+MAIN    START
+        LAD     GR1,GRAPH
         LAD     GR2,RES
-ORG     DC      #FC,#FC,#FC,#70,#70,#70,#FC,#FC,#FC,
+        CALL    ROTATE
+        LAD     GR1,RES
+        CALL    PBM16
+        RET
+GRAPH   DC      #FFFC
+        DC      #FFFC
+        DC      #FFFC
+        DC      #0700
+        DC      #0700
+        DC      #0700
+        DC      #FFFC
+        DC      #FFFC
+        DC      #FFFC
+        DC      #071C
+        DC      #071C
+        DC      #071C
+        DC      #FFFF
+        DC      #FFFF
+        DC      #FFFF
+        DC      #0000
+RES     DS      16
+        END