*
* 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