|
Last updated 6 Jan 2003 21:30
Email : hansp@aconit.org |
|
The source code was found on 16 DECtapes in the collection of ACONIT. The tapes were clearly copies, all labels were hand-written with the following annotation (# = tape number (1-16)):
DEC15-SWZA-V#
Below are the PIP directory listimgs taken from each tape. The links on the first line of each listing is to a binary tape image suitable for use with the SIMH emulator. Each image files is 576 Kbytes, all 16 images, as a .zip file may be loaded here (~ 2.5Mb)
Each directory listing line links to the ASCII text of that file recovered from the DECtape. A complete set of ASCII text files can be recovered as a .zip file here (~1.2 Mb). In file names containing a '.' or '/' these character is replaced by a '_' in the source file tree.
DIRECTORY LISTING TAPE 1 43 FREE BLKS 6 USER FILES 10 SYSTEM BLKS SGEN 005 1 140 .SGEN2 009 2 132 KM9/15 013 3 424 .SGEN3 002 356 75 SGNBLK 000 745 6 SKPBLK 000 1003 4 DIRECTORY LISTING TAPE 2 13 FREE BLKS 4 USER FILES 10 SYSTEM BLKS CHAIN 133 1 334 F4 007 2 335 PATCH 008 3 136 EXECUT 041 4 26 DIRECTORY LISTING TAPE 3 5 FREE BLKS 6 USER FILES 10 SYSTEM BLKS PIP13A 002 1 257 8TRAN 000 2 137 89TRAN 000 3 140 DUMPV7 004 4 44 MTDUMP 000 5 214 DTCOP 005 274 25 DIRECTORY LISTING TAPE 4 44 FREE BLKS 23 USER FILES 10 SYSTEM BLKS RFA. 011 1 116 RFB. 007 2 74 RFC. 007 3 34 RFD. 012 4 113 RFE. 011 5 106 RFF. 022 230 44 RFSAV 010 467 26 .RFSBT 007 502 10 VPA.S 000 552 36 KM15BT 001 572 10 PPA. 000 606 21 PPB. 000 642 14 PPC. 000 657 12 PRA. 000 707 27 PRB. 000 736 20 LINE SRC 741 3 VPA. 000 762 35 FORT 000 756 6 NUVAL SRC 760 1 DIRECTORY LISTING TAPE 5 10 FREE BLKS 11 USER FILES 10 SYSTEM BLKS DTA. 003 3 117 DTB. 003 313 75 DTC. 002 1 36 DTD. 006 2 115 DTE. 006 4 106 DTF. 007 233 46 MTA. 000 5 166 MTC. 000 245 51 MTF. 000 617 56 DIRECTORY LISTING TAPE 6 6 FREE BLKS 2 USER FILES 10 SYSTEM BLKS F4 007 1 641 EDITVP 000 3 221 DIRECTORY LISTING TAPE 7 201 FREE BLKS 5 USER FILES 10 SYSTEM BLKS .SYSLD 030 1 75 UPDAT8 001 2 105 DDT 003 3 133 .LOAD 007 4 126 EDIT8A 005 5 204 DIRECTORY LISTING TAPE 8 63 FREE BLKS 3 USER FILES 10 SYSTEM BLKS MACR15 036 1 602 IMBD02 001 3 114 CREF 005 4 67 DIRECTORY LISTING TAPE 9 121 FREE BLKS 17 USER FILES 10 SYSTEM BLKS DYA.4 000 1 46 MAINFL 000 2 37 SUBPVA 000 3 40 INTPT 000 4 15 TRCK2 000 5 24 BLANK 000 116 4 DYLDR 000 142 16 DYCHR 000 162 11 SUBPIC 000 237 40 DRA. 000 246 120 DRB. 000 250 72 DRC. 000 254 30 DRD. 000 303 111 CDB. 000 444 34 BCDB. 002 477 37 DIRECTORY LISTING TAPE 10 40 FREE BLKS 12 USER FILES 10 SYSTEM BLKS FOCAL 023 1 221 FNEW 003 2 14 SRCCOM 005 3 150 DKA. 002 4 113 DKB. 002 5 71 DKC. 001 107 30 DKD. 000 272 106 DSKSAV 001 453 30 .DKSBT 001 604 10 AREA 004 650 21 |
DIRECTORY LISTING TAPE 11 632 FREE BLKS 62 USER FILES 10 SYSTEM BLKS ATAN2 003 1 3 .DC 000 2 5 INTRIN 002 3 6 ABS 000 4 2 IABS 000 5 2 DABS 000 16 2 AINT 000 17 2 INT 000 30 2 IDINT 000 31 2 AMOD 000 32 3 MOD 000 33 3 DMOD 000 34 2 FLOAT 000 42 2 IFIX 000 43 2 SIGN 002 210 3 DSIGN 002 46 3 ISIGN 000 52 2 DIM 000 54 2 IDIM 000 55 2 SNGL 000 64 3 DBLE 000 65 2 EXTERN 001 66 3 DATAN2 003 20 3 SIN 001 70 2 COS 001 107 2 ATAN 001 112 2 SQRT 003 104 5 EXP 001 115 2 ALOG 001 121 2 ALOG10 001 124 2 TANH 001 125 3 .EB 002 51 6 .ED 002 127 6 .EE 000 133 5 .EF 000 136 7 .EC 000 151 5 DSQRT 002 161 5 DSIN 000 164 2 DCOS 000 165 2 DATAN 000 176 2 DLOG 002 113 2 DEXP 000 201 2 DLOG10 000 202 2 .DD 002 130 6 .DB 002 160 6 .DE 000 213 5 .DF 000 214 7 ADJ1 000 231 2 ADJ2 000 234 2 ADJ3 000 242 3 DIRECTORY LISTING TAPE 12 264 FREE BLKS 41 USER FILES 10 SYSTEM BLKS IMNMX 03P 1 10 RMNMX 03P 2 10 DMNMX 04P 3 7 .DA 01P 4 5 BCDIO 011 5 170 FIOPS 005 35 11 TIME 007 46 5 TIME10 006 51 5 RELEAE 08P 52 60 RELNON 07P 107 60 IFLOW 001 111 3 IDZERO 001 122 2 INTEAE 06P 130 10 INTNON 06P 141 16 .SS 004 134 5 .BB 002 225 4 .BC 002 242 4 .BD 002 251 4 .BE 003 266 3 .BF 003 275 3 .BG 003 305 3 .BH 003 314 3 ISENSW 001 324 3 BINIO 004 200 20 AUXIO 004 343 6 GOTO 003 401 3 STOP 003 420 2 DOUBLE 004 432 16 OTSER 003 446 4 FILE 003 450 11 PAUSE 005 471 3 SPMSG 004 472 7 .CB 003 475 2 DIRECTORY LISTING TAPE 13 262 FREE BLKS 41 USER FILES 10 SYSTEM BLKS BCDIO 011 1 170 FIOPS 005 2 11 TIME 007 3 5 TIME10 006 4 5 RELEAE 014 5 60 RELNON 012 34 60 IFLOW 001 35 3 IDZERO 001 52 2 INTNON 007 60 17 INTEAE 007 64 11 .SS 004 155 5 .BB 002 200 4 .BC 002 206 4 .BD 002 224 4 .BE 003 232 3 .BF 003 250 3 .BG 003 251 3 .BH 003 267 3 ISENSW 001 270 3 BINIO 004 307 20 AUXIO 004 313 6 GOTO 003 351 3 STOP 003 370 2 DOUBLE 004 373 16 OTSER 003 402 4 FILE 003 425 11 IMNMX 03B 426 10 DMNMX 03B 441 7 .CB 003 427 2 RMNMX 04B 476 10 .DA 01B 501 5 PAUSE 005 502 3 SPMSG 004 504 7 DIRECTORY LISTING TAPE 14 237 FREE BLKS 10 USER FILES 10 SYSTEM BLKS DPA. 007 1 123 DPB. 006 2 101 DPF. 007 3 47 DPD. 003 4 116 DPE. 014 5 111 DPC. 003 317 40 LPA.15 029 520 25 DIRECTORY LISTING TAPE 15 531 FREE BLKS 1 USER FILES 10 SYSTEM BLKS F4STP1 010 1 337 DIRECTORY LISTING TAPE 16 213 FREE BLKS 1 USER FILES 10 SYSTEM BLKS F4STP2 010 1 655 |
|
Last updated 6 Jan 2003 21:30
Email : hansp@aconit.org |
|