1 /KS33 PTR/PTP HANDLER FOR LOW SPEED
4 /COPYRIGHT (C) 1974,1975 BY DIGITAL EQUIPMENT CORPORATION
8 / REV B 15-FEB-83 FIXES "LOSS OF BYTE" ERROR WITH PIP ON PTR HANDLER
10 /THIS SOFTWARE IS BLAH BLAH BLAH ...
13 \fTTI= 3 /CONSOLE TERMINAL ( FOR ^C ABORT )
14 TTI1= IPTR /CONSOLE TERMINAL FOR "^ TO START PTP/PTR
15 TTO1= TTI1+1 /CONSOLE TERMINAL FOR "^ TO START PTP/PTR
16 IPTR= 35 /LOW SPEED PAPER TAPE READER (ASR 33)
17 OPTP= IPTR+1 /LOW SPEED PAPER TAPE PUNCH (ASR 33)
31 TTLS= 10^TTO1+6006 /OUTPUTS ^
32 TKSF= 10^TTI1+6001 /WAIT FOR ANY CHAR TO START PTR/PTP
37 DEVICE KS33;DEVICE PTP;1020;PTP&177;ZBLOCK 2
38 DEVICE KS33;DEVICE PTR;2010;PTR&177;ZBLOCK 2
41 CLA CLL CML /SET LINK ON TO INDICATE PUNCH
42 JMS PSETUP /DO COMMON CRAP
44 JMP PTPCNT /KEYBORD FLAG OFF - DON'T WORRY ABOUT ^C
48 SZA CLA /IS THERE A ^C IN THE TTY BUFFER?
53 JMS PTPPCH /FIRST CHAR IN LOW ORDER 8 BITS OF WORD 1
58 JMS PTPPCH /SECOND CHAR IN LOW ORDER 8 BITS OF WORD 2
63 RTR /THIRD CHAR NOW IN AC
66 PT70, 70 /JUST IN CASE WHERE PUNCHING PG 7600 KEEP THIS LITERAL
71 RDF /GET FIELD OF CALLING PROGRAM
73 DCA PTPXIT /SET UP RETURN SEQUENCE
78 RAR /GET LINK (1=PTP,0=PTR)
79 TAD I PTP /GET FUNCTION WORD
81 SPA /CHECK CORRECT MODE
82 JMP PTPERR /SIGNAL "UNRECOVERABLE DEVICE ERROR"
84 CMA /SET UP -(WORD COUNT)/2-1
86 TAD I PTP /SET UP STARTING ADDRESS
90 PTPCDF, 0 /SET DATA FIELD TO ACCESS BUFFER
95 PKCF /CLEAR READER RUN FLIP FLOP
96 TAD PTP336 /INPUT INITIALIZATION - TYPE "^" AND WAIT
102 JMP I PSETUP /LOOP FOR BUFFER SIZE (128 WORDS)
105 SZA CLA /DID WE RUN OUT OF TAPE?
108 PTPXIT, HLT /EXIT CDF GOES HERE
114 PTSF /NOTICE THE GLORIOUS LACK OF OVERLAP
119 PTR, VERSION /**** CORRECT ENTRY IN MAIN ASSEMBLY IF THIS IS MOVED!
123 JMS PSETUP /SET UP ADDRESS, COUNT. FIELDS
124 PTRLP, JMS PTRGCH /READ FIRST CHAR OF 3
135 DCA I PTPCA /HIGH ORDER 4 BITS INTO WORD 1
136 TAD PTR /GET THE CHAR FROM THE PTR BUFFER
143 DCA I PTPCA /LOW ORDER 4 BITS INTO WORD 2
149 PKCC /START THE READER
156 PTTIME, ISZ PTR /TIME OUT LOOP FOR LOW SPEED READER
158 ISZ PTPEOF /TIME OUT IN 132 MS (8/E) OR 205 MS (PDP 8)
161 JMP I PTRGCH /OVERFLOWED - PTPEOF IF NOW 0, RETURN ^Z
162 PTP232, 232 /WASTE SOME TIME
165 JMP PTTIME /READER NOT READY - CONTINUE TIMEOUT
166 CLA /LOAD THE CHAR --> AC
167 PKRS /WITHOUT SWITCHING ON THE READER RUN FLIP FLOP
168 PKCF /SWITCH OFF THE READER RUN FLIP FLOP TO AVOID LOSS OF CHARACTERS
169 JMP I PTRGCH /RETURN WITH CHARACTER
172 PTPERR, CLA CLL CML RAR /SIGNAL A "PERMANENT I/O ERROR" ON THE DEVICE