# Digital Equipment Corporation PDP9/PDP15
Advanced Software System source code
Version V5A

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 |