X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=as%2Fbinout.casl;fp=as%2Fbinout.casl;h=0000000000000000000000000000000000000000;hb=fb54b1c9d2fbc3d4a62c6b4d38ff68e9d3b25c26;hp=23577fc823ed266cb7c3756ef0d6c162784f0478;hpb=b4e48008c95b35c692827326191698c22b06124f;p=YACASL2.git

diff --git a/as/binout.casl b/as/binout.casl
deleted file mode 100644
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