X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=programs%2Ftools%2Fsrc%2Fcleanup2.asm;h=70e9fd563dde0029ad09b4e215b3af6792681e79;hb=61655ba39f55913eaea68404e36e3c104b30b813;hp=8479bbb9208d782f1239b4a1dec4d41f41a8c04b;hpb=0cd09b3bb9cddfb8b5016200a35d038db8d01d8e;p=h316.git

diff --git a/programs/tools/src/cleanup2.asm b/programs/tools/src/cleanup2.asm
index 8479bbb..70e9fd5 100644
--- a/programs/tools/src/cleanup2.asm
+++ b/programs/tools/src/cleanup2.asm
@@ -4,16 +4,15 @@
 *
 *   THIS LITTLE ROUTINE CAN BE LOADED ANYWHERE IN CORE.
 *
+	SUBR	CLENUP,STRT
 	SUBR	ZSTART,ANFA
 	SUBR	ZEND,ENDE
-	SUBR	LOOP
-	SUBR	ANFA
 *
 	REL		ASSEMBLE IN RELOCATABLE MODE
 	ORG	0
 STRT	JMP	ST2     JUMP OVER CONSTANTS
 ANFA	OCT	20
-ENDE	DAC	STRT-1
+ENDE	OCT	'31777
 ST2	LDA	ANFA	LOAD START ADDRESS
 	STA	PTR
 LOOP	CRA