From 2dd227534f4baa6c5396b07a248b2e2f85913c02 Mon Sep 17 00:00:00 2001
From: cuz <cuz@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Thu, 26 Jul 2001 20:08:10 +0000
Subject: [PATCH] Remove/cleanup

git-svn-id: svn://svn.cc65.org/cc65/trunk@825 b7a2c559-68d2-44c3-8de9-860c34a00d81
---
 libsrc/runtime/Makefile |  1 -
 libsrc/runtime/ldai.s   | 11 ++++++-----
 libsrc/runtime/ldaui.s  | 10 ++++------
 libsrc/runtime/staspp.s | 26 --------------------------
 4 files changed, 10 insertions(+), 38 deletions(-)
 delete mode 100644 libsrc/runtime/staspp.s

diff --git a/libsrc/runtime/Makefile b/libsrc/runtime/Makefile
index 803a31765..27b037a27 100644
--- a/libsrc/runtime/Makefile
+++ b/libsrc/runtime/Makefile
@@ -170,7 +170,6 @@ OBJS = 	add.o		\
        	shreax3.o	\
 	shreax4.o	\
 	staspidx.o	\
-	staspp.o	\
        	staxsp.o	\
 	staxspi.o	\
 	staxspp.o	\
diff --git a/libsrc/runtime/ldai.s b/libsrc/runtime/ldai.s
index 0dc1ef28d..ec3a99610 100644
--- a/libsrc/runtime/ldai.s
+++ b/libsrc/runtime/ldai.s
@@ -4,15 +4,16 @@
 ; CC65 runtime: Load a indirect from address in ax
 ;
 
-	.export		ldai, ldaidx
+	.export		ldaidx
 	.importzp	ptr1
 
-ldai:	ldy	#$00
-ldaidx:	sta	ptr1
+.proc	ldaidx
+	sta 	ptr1
 	stx	ptr1+1
 	ldx	#$00
 	lda	(ptr1),y
-	bpl	L9
+	bpl	@L1
 	dex
-L9:	rts
+@L1:	rts
+.endproc
 
diff --git a/libsrc/runtime/ldaui.s b/libsrc/runtime/ldaui.s
index b61ff1f3e..b84783df3 100644
--- a/libsrc/runtime/ldaui.s
+++ b/libsrc/runtime/ldaui.s
@@ -4,15 +4,13 @@
 ; CC65 runtime: Load a unsigned indirect from address in ax
 ;
 
-	.export		ldaui, ldauidx
+	.export		ldauidx
 	.importzp	ptr1
-	   
-ldaui:	
-	ldy	#0
-ldauidx:
+
+.proc	ldauidx
 	sta	ptr1
 	stx	ptr1+1
 	ldx	#0
 	lda	(ptr1),y
 	rts
-
+.endproc
diff --git a/libsrc/runtime/staspp.s b/libsrc/runtime/staspp.s
deleted file mode 100644
index a664dde9b..000000000
--- a/libsrc/runtime/staspp.s
+++ /dev/null
@@ -1,26 +0,0 @@
-;
-; Ullrich von Bassewitz, 25.10.2000
-;
-; CC65 runtime: Store a indirect into address at top of stack
-;
-
-       	.export	       	staspp
-	.import		incsp2
-	.importzp	sp, ptr1
-
-.proc	staspp
-
-	ldy   	#1
-	pha
-	lda   	(sp),y
-	sta   	ptr1+1
-	dey
-	lda   	(sp),y
-	sta	ptr1
-	pla
-	sta	(ptr1),y
-       	jmp	incsp2	       	; Drop address
-
-.endproc
-
-
-- 
2.39.5