情報処理試験2011(平成23)年のフォルダーを更新
[YACASL2.git] / as / fe_tests / 2011_06 / Q12 / call_rotate.casl
1 ;;; 「五」を90度回転させた16 x 16のpbm画像を出力する
2 ;;; 呼び出し方:
3 ;;;   casl2 call_rotate.casl rotate.casl pbm16.casl
4 MAIN    START
5         LAD     GR1,GRAPH
6         LAD     GR2,RES
7         CALL    ROTATE
8         LAD     GR1,RES
9         CALL    PBM16
10         RET
11 GRAPH   DC      #FFFC
12         DC      #FFFC
13         DC      #FFFC
14         DC      #0700
15         DC      #0700
16         DC      #0700
17         DC      #FFFC
18         DC      #FFFC
19         DC      #FFFC
20         DC      #071C
21         DC      #071C
22         DC      #071C
23         DC      #FFFF
24         DC      #FFFF
25         DC      #FFFF
26         DC      #0000
27 RES     DS      16
28         END