1 /1 HI SPEED READER/PUNCH HANDLER
11 /COPYRIGHT (C) 1974,1975 BY DIGITAL EQUIPMENT CORPORATION
22 /THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
23 /AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
24 /CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
25 /FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
27 /THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER
28 /UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
29 /(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
30 /SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
32 /DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
33 /OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
45 \f/1 HI SPEED READER/PUNCH HANDLER
48 DEVICE PT8E;DEVICE PTP;1020;0;ZBLOCK 2
49 DEVICE PT8E;DEVICE PTR;2010;112;ZBLOCK 2
54 /THIS IS THE REAL HIGH SPEED HANDLER.
55 /HIGH SPEED PAPER TAPE HANDLER FOR BLEEP MONITOR
56 /PACKS 3 CHARACTERS IN 2 WORDS ON INPUT, UNPACKS ON OUTPUT
59 CLA CLL CML /SET LINK ON TO INDICATE PUNCH
60 JMS PSETUP /DO COMMON CRAP
62 JMS PTPPCH /FIRST CHAR IN LOW ORDER 8 BITS OF WORD 1
67 JMS PTPPCH /SECOND CHAR IN LOW ORDER 8 BITS OF WORD 2
72 RTR /THIRD CHARACTER NOW IN AC
75 PT70, 70 /JUST IN CASE WERE PUNCHING PG 7600 KEEP THIS LITERAL HERE
77 JMP PTPISZ /KEYBOARD FLAG OFF - DON'T WORRY ABOUT ^C
81 SZA CLA /IS THERE A ^C IN THE TTY BUFFER?
87 RDF /GET FIELD OF CALLING PROGRAM
89 DCA PTPXIT /SET UP RETURN SEQUENCE
94 RAR /GET LINK(1=PTP,0=PTR)
95 TAD I PTP /GET FUNCTION WORD
97 SPA /CHECK CORRECT MODE
98 JMP PTPERR /SIGNAL "UNRECOVERABLE DEVICE ERROR"
100 CMA /SET UP -(WORD COUNT)/2-1
102 TAD I PTP /SET UP STARTING ADDRESS
106 PTPCDF, 0 /SET DATA FIELD TO ACCESS BUFFER
111 TAD PTP336 /INPUT INITIALIZATION - TYPE "^" AND WAIT
115 JMS PTRGCH /INITIALIZE THE PTR BUFFER CHAR
116 6032 /CLEAR AC AND KEYBOARD FLAG
117 JMP PTPKRS /CHECK FOR ^C
119 JMP I PSETUP /LOOP FOR BUFFER SIZE (128 WORDS)
121 SZA CLA /DID WE RUN OUT OF TAPE?
124 PTPXIT, HLT /EXIT CDF GOES HERE
127 PLS /NOTICE THE GLORIOUS LACK OF OVERLAP
133 PTR, PTVERSION /*** CORRECT ENTRY IN MAIN ASSEMBLY IF THIS IS MOVED!
137 JMS PSETUP /SET UP ADDRESS, COUNT, FIELDS
138 PTRLP, JMS PTRGCH /READ FIRST CHARACTER OF 3
147 DCA I PTPCA /HIGH ORDER 4 BITS INTO WORD 1
148 TAD PTR /GET THE CHAR FROM THE PTR BUFFER
151 RAR /PUT THE LOW ORDER BITS INTO AC 0-3
156 DCA I PTPCA /LOW ORDER 4 BITS INTO WORD 2
161 JMP PT0BFR /MAKE SURE BUFFER IS ZEROED
164 PTTIME, ISZ PTPEOF /THIS LOOP OVERFLOWS IN APPROX. 100 MS ON A PDP-8,
165 JMP PGCHLP /72 MS ON A PDP-8/E
166 TAD PTP232 /SEND ^Z TO BUFFER
168 JMP PTRXX /AND 0 GARBAGE CHARACTER
172 PTP336, 336 /FALL THROUGH CONSTANTS TO STALL FOR TIME
175 JMP PTTIME /READER NOT READY - CHECK TIMING
176 RRB /READER READY - READ CHAR
177 PTRXX, DCA PTPTMP /BUFFER READER BY ONE CHARACTER TO ELIMINATE
178 TAD PTR /GARBAGE CHARACTER AT END OF TAPE
179 JMP I PTRGCH /AND RETURN
180 PTPERR, CLA CLL CML RAR /SIGNAL A "PERMANENT I/O ERROR" ON THE DEVICE