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