root/as/app/pbm/five_nn_part_pbm.casl

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