ドキュメントの修正

[YACASL2.git] / as / yakuwa / binout.casl

diff --git a/as/yakuwa/binout.casl b/as/yakuwa/binout.casl
index d25b188..2be0a45 100644 (file)
--- 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           ; ↓