;ASSEMBLE KLDCP IN LOW CORE
PRGSRT=20000
COREND=100000
STACK=COREND-2
CONSOL=PRGSRT
%%DDT==1	;DEFINING THIS SYMBOL MAKES KLDCP
		;NOT MESS AROUND WITH BPT VECTOR
.INSRT KLDCP