X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?p=YACASL2.git;a=blobdiff_plain;f=as%2Fcasl2lib%2Fsrc%2Foutpbm.casl;fp=as%2Fcasl2lib%2Fsrc%2Foutpbm.casl;h=70803c3b2c5b4e49cf30b6c700f8e080a4d09284;hp=0000000000000000000000000000000000000000;hb=0b153de269505fe25552d3f1ee2a21dc049239c3;hpb=ae04e48ee62a95f6f77794d5611db189a19e70de

diff --git a/as/casl2lib/src/outpbm.casl b/as/casl2lib/src/outpbm.casl
new file mode 100644
index 0000000..70803c3
--- /dev/null
+++ b/as/casl2lib/src/outpbm.casl
@@ -0,0 +1,36 @@
+;;; PBM画像ファイルを出力
+;;;   GR1: 画像ビット列の先頭アドレス
+;;;   GR2: 画像の幅
+;;;   GR3: 画像の高さ
+OUTPBM  START
+        OUT     HEADER,HLEN
+        PUSH    0,GR1
+        PUSH    0,GR2
+        PUSH    0,GR3
+        PUSH    0,GR4
+        XOR     GR4,GR4
+        LD      GR1,GR2
+        LAD     GR2,WIDTH
+        CALL    L2STR
+        LD      GR4,GR0
+        LAD     GR4,1,GR4
+        LD      GR1,SPC
+        ST      GR1,WIDTH,GR4
+        LAD     GR4,1,GR4
+        LD      GR1,GR3
+        LAD     GR2,WIDTH,GR4
+        CALL    L2STR
+        ADDL    GR4,GR0
+        ST      GR4,WHLEN
+        OUT     WIDTH,WHLEN
+        POP     GR4
+        POP     GR3
+        POP     GR2
+        POP     GR1
+        RET
+HEADER  DC      'P1'
+HLEN    DC      2
+WIDTH   DS      32
+SPC     DC      ' '
+HEIGHT  DS      1
+WHLEN   DS      1