X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?p=YACASL2.git;a=blobdiff_plain;f=as%2Fyakuwa%2Fbinout.casl;h=2be0a45fc090ee2b7bf5a4bef5a9580e0cd6f2d0;hp=d25b188d497a4f3c1a008b67ccd01042fbe953e5;hb=24247dc8307fec822a07b6f9efa12656e961e417;hpb=93cd1261d2f4247c3324a2bcb69dc4a077a4aa77

diff --git a/as/yakuwa/binout.casl b/as/yakuwa/binout.casl
index d25b188..2be0a45 100644
--- a/as/yakuwa/binout.casl
+++ b/as/yakuwa/binout.casl
@@ -1,20 +1,6 @@
 ;;; BINOUT: 主プログラムから渡された1語の内容を、
 ;;;         ゼロ抑制を行った2進表記で出力する
 ;;;     八鍬幸信『基本情報処理試験 らくらく突破 CASL II』172ページ
-;;; BINOUTを呼び出す
-MAIN    START
-        LAD     GR2,0
-MLOOP   CPA     GR2,MLEN
-        JZE     MFIN
-        LD      GR1,MWORD,GR2
-        CALL    BINOUT
-        LAD     GR2,1,GR2
-        JUMP    MLOOP
-MFIN    RET
-MWORD   DC      #0000,#0001,#09CD,#8001
-MLEN    DC      4
-        END
-;;; BINOUT
 BINOUT  START
         PUSH    0,GR1           ; レジスタの退避
         PUSH    0,GR2           ; ↓