;;; 「五」を表す16 x 16のpbm画像を出力する
;;; 呼び出し方:
;;;   casl2 call_pbm.casl ../pbm16.casl
MAIN    START
        LAD     GR1,GRAPH
        CALL    PBM16
        RET
GRAPH   DC      #FFFC           ; 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0
        DC      #FFFC           ; 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0
        DC      #FFFC           ; 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0
        DC      #0700           ; 0 0 0 0 0 1 1 1 0 0 0 0 0 0 0 0
        DC      #0700           ; 0 0 0 0 0 1 1 1 0 0 0 0 0 0 0 0
        DC      #0700           ; 0 0 0 0 0 1 1 1 0 0 0 0 0 0 0 0
        DC      #FFFC           ; 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0
        DC      #FFFC           ; 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0
        DC      #FFFC           ; 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0
        DC      #071C           ; 0 0 0 0 0 1 1 1 0 0 0 1 1 1 0 0
        DC      #071C           ; 0 0 0 0 0 1 1 1 0 0 0 1 1 1 0 0
        DC      #071C           ; 0 0 0 0 0 1 1 1 0 0 0 1 1 1 0 0
        DC      #FFFF           ; 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
        DC      #FFFF           ; 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
        DC      #FFFF           ; 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
        DC      #0000           ; 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
        END