root/as/app/pbm/five_cw90_pbm.casl

   1 ;;; 「五」を表す画像を時計方向へ90度回転させた結果をPBMファイルとして出力する
   2 ;;; 呼び出し方:
   3 ;;;   casl2 -M 1024 five_cw90_pbm.casl $CASL2LIB/pbm16.casl $CASL2LIB/outb_w.casl $CASL2LIB/divl.casl $CASL2LIB/rev.casl rotate_cw90.casl >five_cw90.pbm
   4 MAIN    START
   5         RPUSH
   6         LAD     GR1,GRAPH
   7         LAD     GR2,RES
   8         CALL    ROTATE
   9         LAD     GR1,RES
  10         CALL    PBM16
  11         RPOP
  12 FIN     RET
  13 GRAPH   DC      #FFFC
  14         DC      #FFFC
  15         DC      #FFFC
  16         DC      #0700
  17         DC      #0700
  18         DC      #0700
  19         DC      #FFFC
  20         DC      #FFFC
  21         DC      #FFFC
  22         DC      #071C
  23         DC      #071C
  24         DC      #071C
  25         DC      #FFFF
  26         DC      #FFFF
  27         DC      #FFFF
  28         DC      #0000
  29 RES     DS      16
  30         END