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=0000000000000000000000000000000000000000;hb=8987c22715397eda101c25fb6ca1c37852db4adf;hp=2b9404a46c00fdbcf64a9469c9e786f3a49e2886;hpb=1d7dc3419989a77ace5a2777169f1f15f06a875c;p=YACASL2.git

diff --git a/as/app/pbm/pbm16.casl b/as/app/pbm/pbm16.casl
deleted file mode 100644
index 2b9404a..0000000
--- a/as/app/pbm/pbm16.casl
+++ /dev/null
@@ -1,31 +0,0 @@
-;;; 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