1 * COPY - COPY PTR TO PTP
7 REL ASSEMBLE IN RELOCATABLE MODE
10 ***********************
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
25 ***********************
31 CMP WPTR COMPARE WRITE POINTER
35 ***********************
42 RPTR DAC ** READ POINTER
43 WPTR DAC ** WRITE POINTER
44 ABUF OCT '1000 FIRST BUFFER LOCATION
45 EBUF OCT '2000 LAST BUFFER LOCATION
49 STRT JMP ST2 JUMP OVER CONSTANTS
52 ST2 LDA ANFA LOAD START ADDRESS
55 STA* PTR STORE THE ZERO
59 JMP RDY IF LAST LOCATION, END
63 RDY OCP '104 ASR START
77 JMP *-1 REPEAT UNTIL POSSIBLE
83 PTR DEC 0 LOCATION POINTER