* COPY - COPY PTR TO PTP
*
*  
*
*
	SUBR	COPY,STRT
	REL		ASSEMBLE IN RELOCATABLE MODE
	ORG	0
*
***********************
* MAIN LOOP
STRT	
	
	OCP	'102	START PTR ???
	OCP	'104	START PTP ???
	LDA	ABUF	FIRST BUFFER ADDRESS
	STA	WBUF	TO WRITE POINTER
	STA	RBUF	TO READ POINTER
		
	JST	READ
	JST	WRIT
	JMP	STRT
*	
*
***********************
* READ ROUTINE
READ	DAC	**
	SS1		SKIP IF SW1 SET
	JMP*	READ	RETURN
	LDA	RPTR	READ POINTER
	CMP	WPTR	COMPARE WRITE POINTER
	SKP		SKIP
		
	
***********************
* WRITE ROUTINE
WRIT	DAC	**
	SS2		SKIP IF SW1 SET
	JMP*	WRIT	RETURN


RPTR	DAC	**	READ POINTER
WPTR	DAC	**	WRITE POINTER
ABUF	OCT	'1000	FIRST BUFFER LOCATION
EBUF	OCT	'2000	LAST BUFFER LOCATION



STRT	JMP	ST2     JUMP OVER CONSTANTS
ANFA	OCT	20
ENDE	DAC	STRT-1
ST2	LDA	ANFA	LOAD START ADDRESS
	STA	PTR
LOOP	CRA
	STA*	PTR	STORE THE ZERO
	LDA	PTR
	SUB	ENDE    TEST FOR
	SNZ		LAST LOCATION?
	JMP	RDY	IF LAST LOCATION, END 
	IRS	PTR
	JMP	LOOP	NO OVERFLOW
	HLT		OVERFLOW OCCURED
RDY	OCP	'104	ASR START
*
	LDA	KO	
	JST	PRNT
	LDA	LFCR
	JST	PRNT
	HLT
	JMP	STRT	RESTART :-)
*******
KO	BCI	1,KO
LFCR	OCT     '6412
*******
PRNT	DAC	**
	OTA	4	OUTPUT CHAR
	JMP	*-1	REPEAT UNTIL POSSIBLE
	ICA		NEXT CHAR
	OTA	4
	JMP	*-1
	JMP*	PRNT	RETURN
*****
PTR	DEC	0	LOCATION POINTER
*****
	END