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

diff --git a/as/itoa2.casl b/as/itoa2.casl
deleted file mode 100644
index 73f6977..0000000
--- a/as/itoa2.casl
+++ /dev/null
@@ -1,66 +0,0 @@
-MAIN	START
-	LD	GR1,I
-	LAD	GR2,10
-    LAD	GR5,0
-LOOP	CPA	GR1,GR2
-	JMI	NEXT
-	CALL	DIV
-    ADDA	GR4,Z
-    ST	GR4,STR,GR5
-    LAD	GR5,1,GR5
-    LD	GR1,GR3
-    JUMP	LOOP
-NEXT	ADDA	GR1,Z
-	ST	GR1,STR,GR5
-	LAD	GR5,1,GR5
-	ST	GR5,LEN
-    OUT	STR,LEN
-    LAD	GR1,STR
-    LD	GR2,LEN
-    CALL	REV
-PRT OUT	STR,LEN
-	RET
-I	DC	15342
-Z	DC	'0'
-STR	DS	5
-LEN	DS	1
-    END
-;GR1をGR2で割ったときの商をGR3、剰余をGR4に格納
-DIV	LD	GR4,GR1
-	LAD	GR3,0
-DLOOP	CPA	GR4,GR2
-	JMI	DFIN
-    SUBL GR4,GR2
-    LAD	GR3,1,GR3
-    JUMP	DLOOP
-DFIN RET
-	END
-;アドレスがGR1、長さがGR2の文字列を逆順に並べ替える
-;例: 12345 -> 54321
-REV	START
-	PUSH	0,GR3
-    PUSH	0,GR4
-    PUSH	0,GR5
-	LAD	GR3,1
-RPU	CPA	GR2,GR3
-	JMI	RNEXT
-    LD	GR4,GR1
-    ADDA	GR4,GR3
-    LD	GR4,-1,GR4
-	PUSH 0,GR4
-    LAD	GR3,1,GR3
-    JUMP	RPU
-RNEXT    LAD	GR3,1
-RPO	CPA	GR2,GR3
-	JMI	PFIN
-    POP	GR4
-    LD	GR5,GR1
-    ADDA	GR5,GR3
-    ST	GR4,-1,GR5
-    LAD	GR3,1,GR3
-    JUMP	RPO
-PFIN	POP	GR5
-	POP	GR4
-    POP	GR3
-	RET
-	END