X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=as%2Fapp%2Fpbm%2Fpbm16.casl;fp=as%2Fapp%2Fpbm%2Fpbm16.casl;h=2b9404a46c00fdbcf64a9469c9e786f3a49e2886;hb=e46d8634095f166ac28f03b17a8e0676e6c275a0;hp=0000000000000000000000000000000000000000;hpb=d4abcd7b0d3f4e84c6c0209ceba563f2a9c5b8a0;p=YACASL2.git

diff --git a/as/app/pbm/pbm16.casl b/as/app/pbm/pbm16.casl
new file mode 100644
index 0000000..2b9404a
--- /dev/null
+++ b/as/app/pbm/pbm16.casl
@@ -0,0 +1,31 @@
+;;; PBM16
+;;; GR1で指定されたアドレス以降のメモリを 16×16 の
+;;; 白黒ビットマップ画像データ（白:0 黒:1）とみなし、
+;;; PBM画像ファイルとして出力
+;;; 入力: GR1 画像データの先頭アドレス
+;;; 依存副プログラム: outl.casl
+PBM16   START
+        PUSH    0,GR1
+        PUSH    0,GR2
+        ST      GR1,BEG
+        OUT     L1,L1LEN
+        OUT     L2,L2LEN
+        XOR     GR2,GR2
+LOOP    CPL     GR2,HEIGHT
+        JZE     FIN
+        LD      GR1,BEG
+        ADDL    GR1,GR2
+        LD      GR1,0,GR1
+        CALL    OUTB
+        LAD     GR2,1,GR2
+        JUMP    LOOP
+FIN     POP     GR2
+        POP     GR1
+        RET
+L1      DC      'P1'
+L1LEN   DC      2
+L2      DC      '16 16'
+L2LEN   DC      5
+HEIGHT  DC      16
+BEG     DS      1
+        END