1 * CLEANUP - REVISED 2006-04-23
5 * THIS LITTLE ROUTINE CAN BE LOADED ANYWHERE IN CORE.
12 REL ASSEMBLE IN RELOCATABLE MODE
14 STRT JMP ST2 JUMP OVER CONSTANTS
17 ST2 LDA ANFA LOAD START ADDRESS
20 STA* PTR STORE THE ZERO
24 JMP RDY IF LAST LOCATION, END
28 RDY OCP '104 ASR START
42 JMP *-1 REPEAT UNTIL POSSIBLE
48 PTR DEC 0 LOCATION POINTER