X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=programs%2Ftools%2Fsrc%2Fcleanup2.asm;h=70e9fd563dde0029ad09b4e215b3af6792681e79;hb=52147402c19a69c9774bb256420a16233043d3fe;hp=8479bbb9208d782f1239b4a1dec4d41f41a8c04b;hpb=cf7fb3faa9fd90fd8c366d5e7d207cc403fee986;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