as/casl2lib/sample/call_pbm16.casl

   1 ;;; 「五」を表す16 x 16のpbm画像を出力する
   2 ;;; 呼び出し方:
   3 ;;;   casl2 call_pbm.casl ../pbm16.casl
   4 MAIN    START
   5         LAD     GR1,GRAPH
   6         CALL    PBM16
   7         RET
   8 GRAPH   DC      #FFFC           ; 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0
   9         DC      #FFFC           ; 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0
  10         DC      #FFFC           ; 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0
  11         DC      #0700           ; 0 0 0 0 0 1 1 1 0 0 0 0 0 0 0 0
  12         DC      #0700           ; 0 0 0 0 0 1 1 1 0 0 0 0 0 0 0 0
  13         DC      #0700           ; 0 0 0 0 0 1 1 1 0 0 0 0 0 0 0 0
  14         DC      #FFFC           ; 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0
  15         DC      #FFFC           ; 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0
  16         DC      #FFFC           ; 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0
  17         DC      #071C           ; 0 0 0 0 0 1 1 1 0 0 0 1 1 1 0 0
  18         DC      #071C           ; 0 0 0 0 0 1 1 1 0 0 0 1 1 1 0 0
  19         DC      #071C           ; 0 0 0 0 0 1 1 1 0 0 0 1 1 1 0 0
  20         DC      #FFFF           ; 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
  21         DC      #FFFF           ; 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
  22         DC      #FFFF           ; 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
  23         DC      #0000           ; 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  24         END