as/casl2lib/src/outpbm.casl

   1 ;;; PBM画像ファイルを出力
   2 ;;;   GR1: 画像ビット列の先頭アドレス
   3 ;;;   GR2: 画像の幅
   4 ;;;   GR3: 画像の高さ
   5 OUTPBM  START
   6         OUT     HEADER,HLEN
   7         PUSH    0,GR1
   8         PUSH    0,GR2
   9         PUSH    0,GR3
  10         PUSH    0,GR4
  11         XOR     GR4,GR4
  12         LD      GR1,GR2
  13         LAD     GR2,WIDTH
  14         CALL    L2STR
  15         LD      GR4,GR0
  16         LAD     GR4,1,GR4
  17         LD      GR1,SPC
  18         ST      GR1,WIDTH,GR4
  19         LAD     GR4,1,GR4
  20         LD      GR1,GR3
  21         LAD     GR2,WIDTH,GR4
  22         CALL    L2STR
  23         ADDL    GR4,GR0
  24         ST      GR4,WHLEN
  25         OUT     WIDTH,WHLEN
  26         POP     GR4
  27         POP     GR3
  28         POP     GR2
  29         POP     GR1
  30         RET
  31 HEADER  DC      'P1'
  32 HLEN    DC      2
  33 WIDTH   DS      32
  34 SPC     DC      ' '
  35 HEIGHT  DS      1
  36 WHLEN   DS      1