*** empty log message ***

[h316.git] / programs / tools / src / cleanup2.asm

diff --git a/programs/tools/src/cleanup2.asm b/programs/tools/src/cleanup2.asm
index 8479bbb9208d782f1239b4a1dec4d41f41a8c04b..70e9fd563dde0029ad09b4e215b3af6792681e79 100644 (file)
--- 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