[h316.git] / programs / tools / src / copy.asm

* 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
Commit	Line	Data
2ccfbbf4	1	* COPY - COPY PTR TO PTP
	2	*
	3	*
	4	*
	5	*
	6	SUBR COPY,STRT
	7	REL ASSEMBLE IN RELOCATABLE MODE
	8	ORG 0
	9	*
	10	***********************
	11	* MAIN LOOP
	12	STRT
	13
	14	OCP '102 START PTR ???
	15	OCP '104 START PTP ???
	16	LDA ABUF FIRST BUFFER ADDRESS
	17	STA WBUF TO WRITE POINTER
	18	STA RBUF TO READ POINTER
	19
	20	JST READ
	21	JST WRIT
	22	JMP STRT
	23	*
	24	*
	25	***********************
	26	* READ ROUTINE
	27	READ DAC **
	28	SS1 SKIP IF SW1 SET
	29	JMP* READ RETURN
	30	LDA RPTR READ POINTER
	31	CMP WPTR COMPARE WRITE POINTER
	32	SKP SKIP
	33
	34
	35	***********************
	36	* WRITE ROUTINE
	37	WRIT DAC **
	38	SS2 SKIP IF SW1 SET
	39	JMP* WRIT RETURN
	40
	41
	42	RPTR DAC ** READ POINTER
	43	WPTR DAC ** WRITE POINTER
	44	ABUF OCT '1000 FIRST BUFFER LOCATION
	45	EBUF OCT '2000 LAST BUFFER LOCATION
	46
	47
	48
	49	STRT JMP ST2 JUMP OVER CONSTANTS
	50	ANFA OCT 20
	51	ENDE DAC STRT-1
	52	ST2 LDA ANFA LOAD START ADDRESS
	53	STA PTR
	54	LOOP CRA
	55	STA* PTR STORE THE ZERO
	56	LDA PTR
	57	SUB ENDE TEST FOR
	58	SNZ LAST LOCATION?
	59	JMP RDY IF LAST LOCATION, END
	60	IRS PTR
	61	JMP LOOP NO OVERFLOW
	62	HLT OVERFLOW OCCURED
	63	RDY OCP '104 ASR START
	64	*
65	LDA KO
66	JST PRNT
67	LDA LFCR
68	JST PRNT
69	HLT
70	JMP STRT RESTART :-)
71	*******
72	KO BCI 1,KO
73	LFCR OCT '6412
74	*******
75	PRNT DAC **
76	OTA 4 OUTPUT CHAR
77	JMP *-1 REPEAT UNTIL POSSIBLE
78	ICA NEXT CHAR
79	OTA 4
80	JMP *-1
81	JMP* PRNT RETURN
82	*****
83	PTR DEC 0 LOCATION POINTER
84	*****
85	END