アセンブラファイルとテストの整理

[YACASL2.git] / as / binout.casl

diff --git a/as/binout.casl b/as/binout.casl
deleted file mode 100644 (file)
index 23577fc..0000000
--- a/as/binout.casl
+++ /dev/null
@@ -1,40 +0,0 @@
-BINOUT START
-       LAD     GR1,#09CD
-       LAD     GR2,1
-       PUSH    0,GR1
-       PUSH    0,GR2
-       PUSH    0,GR3
-       PUSH    0,GR4
-       LAD     GR2,0
-       LAD     GR3,15
-       LD      GR4,GR1
-       JZE     OUT1
-LOOP1  JMI     ONE
-       LAD     GR3,-1,GR3
-       SLL     GR1,1
-       JUMP    LOOP1
-LOOP2  JMI     ONE
-ZERO   LAD     GR0,48
-       JUMP    STORE
-ONE    LAD     GR0,49
-STORE  ST      GR0,OBUF,GR2
-       LAD     GR2,1,GR2
-       LAD     GR3,-1,GR3
-       CPA     GR3,NZERO
-       JMI     OUT2
-       SLL     GR1,1
-       JUMP    LOOP2
-OUT1   LAD     GR0,48
-       ST      GR0,OBUF,GR2
-       LAD     GR2,1,GR2
-OUT2   ST      GR2,OLNG
-       OUT     OBUF,OLNG
-       POP     GR4
-       POP     GR3
-       POP     GR2
-       POP     GR1
-       RET
-OBUF   DS      16
-OLNG   DS      1
-NZERO  DC      0
-       END