1 * CLEANUP - REVISED 2006-04-23
5 * THIS LITTLE ROUTINE CAN BE LOADED ANYWHERE IN CORE.
11 REL ASSEMBLE IN RELOCATABLE MODE
13 STRT JMP ST2 JUMP OVER CONSTANTS
16 ST2 LDA ANFA LOAD START ADDRESS
19 STA* PTR STORE THE ZERO
23 JMP RDY IF LAST LOCATION, END
27 RDY OCP '104 ASR START
41 JMP *-1 REPEAT UNTIL POSSIBLE
47 PTR DEC 0 LOCATION POINTER