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