1 /1 PTR/PTP HANDLER FOR LOW SPEED
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
47 DEVICE KS33;DEVICE PTP;1020;0;ZBLOCK 2
48 DEVICE KS33;DEVICE PTR;2010;110;ZBLOCK 2
54 CLA CLL CML /SET LINK ON TO INDICATE PUNCH
55 JMS PSETUP /DO COMMON CRAP
57 JMP PTPCNT /KEYBOARD FLAG OFF - DON'T WORRY ABOUT ^C
61 SZA CLA /IS THERE A ^C IN THE TTY BUFFER?
66 JMS PTPPCH /FIRST CHAR IN LOW ORDER 8 BITS OF WORD 1
71 JMS PTPPCH /SECOND CHAR IN LOW ORDER 8 BITS OF WORD 2
76 RTR /THIRD CHARACTER NOW IN AC
79 PT70, 70 /JUST IN CASE WERE PUNCHING PG 7600 KEEP THIS LITERAL HERE
82 RDF /GET FIELD OF CALLING PROGRAM
84 DCA PTPXIT /SET UP RETURN SEQUENCE
89 RAR /GET LINK(1=PTP,0=PTR)
90 TAD I PTP /GET FUNCTION WORD
92 SPA /CHECK CORRECT MODE
93 JMP PTPERR /SIGNAL "UNRECOVERABLE DEVICE ERROR"
95 CMA /SET UP -(WORD COUNT)/2-1
97 TAD I PTP /SET UP STARTING ADDRESS
101 PTPCDF, 0 /SET DATA FIELD TO ACCESS BUFFER
106 TAD PTP336 /INPUT INITIALIZATION - TYPE "^" AND WAIT
112 JMP I PSETUP /LOOP FOR BUFFER SIZE (128 WORDS)
114 SZA CLA /DID WE RUN OUT OF TAPE?
117 PTPXIT, HLT /EXIT CDF GOES HERE
121 TSF /NOTICE THE GLORIOUS LACK OF OVERLAP
126 PTR, VERSION /*** CORRECT ENTRY IN MAIN ASSEMBLY IF THIS IS MOVED!
130 JMS PSETUP /SET UP ADDRESS, COUNT, FIELDS
131 PTRLP, JMS PTRGCH /READ FIRST CHARACTER OF 3
142 DCA I PTPCA /HIGH ORDER 4 BITS INTO WORD 1
143 TAD PTR /GET THE CHAR FROM THE PTR BUFFER
150 DCA I PTPCA /LOW ORDER 4 BITS INTO WORD 2
159 PTTIME, ISZ PTR /TIMEOUT LOOP FOR LOW SPEED READER
161 ISZ PTPEOF /TIMES OUT IN 132 MS(PDP 8/E) OR 205 MS(PDP 8)
164 JMP I PTRGCH /OVERFLOWED - PTPEOF IS NOW 0, RETURN ^Z
165 PTP232, 232 /WASTE SOME TIME
168 JMP PTTIME /READER NOT READY - CONTINUE TIMEOUT
170 JMP I PTRGCH /RETURN WITH CHARACTER
171 PTPERR, CLA CLL CML RAR /SIGNAL A "PERMANENT I/O ERROR" ON THE DEVICE