File: PT8E.LS of Disk: V50/Init/Build-Init
(Source file text)
/HI SPEED READER/PUNCH HANDLER PAL8-V50X 31-MAY-87 PAGE 1 /HI SPEED READER/PUNCH HANDLER / / / / / / / / / /COPYRIGHT (C) 1974,1975 BY DIGITAL EQUIPMENT CORPORATION / AND 2015 W. VAN DER MARK / / / / / / / / / / /THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE /AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT /CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY /FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. / /THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER /UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED /(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH /SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. / /DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE /OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY /DIGITAL. / / / / / / / / / / /HI SPEED READER/PUNCH HANDLER PAL8-V50X 31-MAY-87 PAGE 2 /HI SPEED READER/PUNCH HANDLER 0000 *0 000000 7776 -2 000001 2024 DEVICE PT8E;DEVICE PTP;1020;PTP&177;ZBLOCK 2 000002 7005 000003 2024 000004 2000 000005 1020 000006 0000 000007 0000 000011 2024 DEVICE PT8E;DEVICE PTR;2010;PTR&177;ZBLOCK 2 000012 7005 000013 2024 000014 2200 000015 2010 000016 0112 000017 0000 0030 VERSION="X&77 /HI SPEED READER/PUNCH HANDLER PAL8-V50X 31-MAY-87 PAGE 3 0200 *200 000200 0030 PTP, VERSION 000201 7320 CLA CLL CML /SET LINK ON TO INDICATE PUNCH 000202 4234 JMS PSETUP /DO COMMON CRAP 000203 1711 PTPLP, TAD I PTPCA 000204 4303 JMS PTPPCH /FIRST CHAR IN LOW ORDER 8 BITS OF WORD 1 000205 3312 DCA PTR 000206 2311 ISZ PTPCA 000207 7700 PT7700, 7700 000210 1711 TAD I PTPCA 000211 4303 JMS PTPPCH /SECOND CHAR IN LOW ORDER 8 BITS OF WORD 2 000212 7112 CLL RTR 000213 7012 RTR 000214 1312 TAD PTR 000215 7012 RTR 000216 7012 RTR /THIRD CHARACTER NOW IN AC 000217 4303 JMS PTPPCH 000220 2311 PTPEND, ISZ PTPCA 000221 0070 PT70, 70 /JUST IN CASE WERE PUNCHING PG 7600 /KEEP THIS LITERAL HERE 000222 6031 KSF 000223 5273 JMP PTPISZ /KEYBOARD FLAG OFF - DON'T WORRY ABOUT ^C 000224 6034 PTPKRS, KRS 000225 0362 AND PTP177 000226 1376 TAD PTPM3 000227 7640 SZA CLA /IS THERE A ^C IN THE TTY BUFFER? 000230 5273 JMP PTPISZ /NO 000231 6203 PTPCIF, CDF CIF 0 000232 5633 JMP I .+1 000233 7600 7600 /HI SPEED READER/PUNCH HANDLER PAL8-V50X 31-MAY-87 PAGE 4 000234 0000 PSETUP, 0 000235 6214 RDF /GET FIELD OF CALLING PROGRAM 000236 1231 TAD PTPCIF 000237 3301 DCA PTPXIT /SET UP RETURN SEQUENCE 000240 1600 TAD I PTP 000241 0221 AND PT70 000242 1373 TAD PCDF 000243 3260 DCA PTPCDF 000244 7010 RAR /GET LINK(1=PTP,0=PTR) 000245 1600 TAD I PTP /GET FUNCTION WORD 000246 2200 ISZ PTP 000247 7510 SPA /CHECK CORRECT MODE 000250 5371 JMP PTPERR /SIGNAL "UNRECOVERABLE DEVICE ERROR" 000251 0207 AND PT7700 000252 7040 CMA /SET UP -(WORD COUNT)/2-1 000253 3375 DCA PTPWC 000254 1600 TAD I PTP /SET UP STARTING ADDRESS 000255 2200 ISZ PTP 000256 3311 DCA PTPCA 000257 1600 TAD I PTP 000260 0000 PTPCDF, 0 /SET DATA FIELD TO ACCESS BUFFER 0260 PTPEOF=PTPCDF 000261 7650 SNA CLA 000262 7430 SZL 000263 5224 JMP PTPKRS 000264 1361 TAD PTP336 /INPUT INITIALIZATION - TYPE "^" AND WAIT 000265 6046 TLS 000266 6031 KSF 000267 5266 JMP .-1 000270 4343 JMS PTRGCH /INITIALIZE THE PTR BUFFER CHAR 000271 6032 6032 /CLEAR AC AND KEYBOARD FLAG 000272 5224 JMP PTPKRS /CHECK FOR ^C 000273 2375 PTPISZ, ISZ PTPWC 000274 5634 JMP I PSETUP /LOOP FOR BUFFER SIZE (128 WORDS) 000275 1260 PTPRTN, TAD PTPEOF 000276 7640 SZA CLA /DID WE RUN OUT OF TAPE? 000277 2200 ISZ PTP 000300 2200 ISZ PTP 000301 7402 PTPXIT, HLT /EXIT CDF GOES HERE 000302 5600 JMP I PTP 000303 0000 PTPPCH, 0 000304 6026 PLS /NOTICE THE GLORIOUS LACK OF OVERLAP 000305 6021 PSF 000306 5305 JMP .-1 000307 0340 AND PT7400 000310 5703 JMP I PTPPCH 000311 0000 PTPCA, 0 /HI SPEED READER/PUNCH HANDLER PAL8-V50X 31-MAY-87 PAGE 5 000312 0030 PTR, VERSION /*** CORRECT ENTRY IN MAIN ASSEMBLY IF THIS IS MOVED! 000313 7300 CLA CLL 000314 1312 TAD PTR 000315 3200 DCA PTP 000316 4234 JMS PSETUP /SET UP ADDRESS, COUNT, FIELDS 000317 4343 PTRLP, JMS PTRGCH /READ FIRST CHARACTER OF 3 000320 3711 DCA I PTPCA 000321 4343 JMS PTRGCH 000322 3303 DCA PTPPCH 000323 4343 JMS PTRGCH 000324 7006 RTL 000325 7006 RTL 000326 0340 AND PT7400 000327 1711 TAD I PTPCA 000330 3711 DCA I PTPCA /HIGH ORDER 4 BITS INTO WORD 1 000331 1312 TAD PTR /GET THE CHAR FROM THE PTR BUFFER 000332 7012 RTR 000333 7012 RTR 000334 7010 RAR /PUT THE LOW ORDER BITS INTO AC 0-3 000335 0340 AND PT7400 000336 1303 TAD PTPPCH 000337 2311 ISZ PTPCA 000340 7400 PT7400, 7400 000341 3711 DCA I PTPCA /LOW ORDER 4 BITS INTO WORD 2 000342 5220 JMP PTPEND 000343 0000 PTRGCH, 0 000344 1260 TAD PTPEOF 000345 7650 SNA CLA 000346 5354 JMP PT0BFR /MAKE SURE BUFFER IS ZEROED 000347 6014 RFC 000350 3260 DCA PTPEOF 000351 2260 PTTIME, ISZ PTPEOF /THIS LOOP OVERFLOWS IN APPROX. 100 MS ON A PDP-8, 000352 5356 JMP PGCHLP /72 MS ON A PDP-8/E 000353 1360 TAD PTP232 /SEND ^Z TO BUFFER 000354 3312 PT0BFR, DCA PTR 000355 5366 JMP PTRXX /AND 0 GARBAGE CHARACTER 000356 1374 PGCHLP, TAD PTPTMP 000357 3312 DCA PTR 000360 0232 PTP232, 232 000361 0336 PTP336, 336 /FALL THROUGH CONSTANTS TO STALL FOR TIME 000362 0177 PTP177, 177 000363 6011 RSF 000364 5351 JMP PTTIME /READER NOT READY - CHECK TIMING 000365 6012 RRB /READER READY - READ CHAR 000366 3374 PTRXX, DCA PTPTMP /BUFFER READER BY ONE CHARACTER TO ELIMINATE 000367 1312 TAD PTR /GARBAGE CHARACTER AT END OF TAPE 000370 5743 JMP I PTRGCH /AND RETURN 000371 7330 PTPERR, CLA CLL CML RAR /SIGNAL A "PERMANENT I/O ERROR" ON THE DEVICE 000372 5277 JMP PTPXIT-2 000373 6201 PCDF, CDF 0 000374 0000 PTPTMP, 0 000375 0000 PTPWC, 0 000376 7775 PTPM3, -3 $$$$$$$$ /HI SPEED READER/PUNCH HANDLER PAL8-V50X 31-MAY-87 PAGE 6 PCDF 0373 PGCHLP 0356 PSETUP 0234 PTP 0200 PTPCA 0311 PTPCDF 0260 PTPCIF 0231 PTPEND 0220 PTPEOF 0260 PTPERR 0371 PTPISZ 0273 PTPKRS 0224 PTPLP 0203 PTPM3 0376 PTPPCH 0303 PTPRTN 0275 PTPTMP 0374 PTPWC 0375 PTPXIT 0301 PTP177 0362 PTP232 0360 PTP336 0361 PTR 0312 PTRGCH 0343 PTRLP 0317 PTRXX 0366 PTTIME 0351 PT0BFR 0354 PT70 0221 PT7400 0340 PT7700 0207 VERSIO 0030 ERRORS DETECTED: 0 LINKS GENERATED: 0