as/exam_fe/2011_06/Q12/call_rotate2.casl

   1 ;;; 「五」を90度回転させた16 x 16のpbm画像を出力する
   2 ;;; 呼び出し方:
   3 ;;;   casl2 call_rotate2.casl rotate2.casl pbm16.casl
   4 MAIN    START
   5         LAD     GR1,GRAPH
   6         LAD     GR2,RES
   7         LAD     GR3,8
   8         CALL    ROTATE
   9         LAD     GR1,RES
  10         CALL    PBM16
  11         RET
  12 GRAPH   DC      #FFFC
  13         DC      #FFFC
  14         DC      #FFFC
  15         DC      #0700
  16         DC      #0700
  17         DC      #0700
  18         DC      #FFFC
  19         DC      #FFFC
  20         DC      #FFFC
  21         DC      #071C
  22         DC      #071C
  23         DC      #071C
  24         DC      #FFFF
  25         DC      #FFFF
  26         DC      #FFFF
  27         DC      #0000
  28 RES     DS      16
  29         END