1$Log Output: Mike Alexander, MTS., Job#=9598, Host=UM, 00:40:48 Wed Jul 24/96
 #mou xxx 9tp *in* timer=off uam=off 'd2.2'
 #*IN* (XXX): Mounted on T920 
 #r wsg:tt
 #00:42:14 
& Ready: 
  a *in*
  TYPE=9TP , INLEN=32767, OUTLEN=32767, WIDTH=unknown
& Ready: 
  r
  *** Input notify.
  LEN=04000
  %DELETE '00012000'                                                              &NAME    $GETBUF &NONE,&DUMMY,&TYPE=T                             UM3.0 00012000%DELETE '00078000'                                                              &NAME    $FREUNIT                 &LOC                            UM3.0 00078000%DELETE '00082500' '00084000'                                                            BAL   LINK,$FREUNIT                                      UM3.0 00084000%DELETE '00100000'                                                              &NAME    $TRACK &NONE,&DUMMY                                      UM3.0 00100000         AIF   ('&NONE' NE '$WAIT').A                             UM3.0 00100400&NAME    BAL   LINK,$TRACK         LINK TO TRACK SUBROUTINE       UM3.0 00100800         AGO   .END                                               UM3.0 00101200.A       ANOP                                                     UM3.0 00101600%DELETE '00102000'                                                              &NAME    LA    LINK,$TRACK         LINK TO                        UM3.0 00102000         BALR  LINK,LINK            TRACK SUBROUTINE              UM3.0 00103000%DELETE '00106000'                                                              .END     MEND                                                     UM3.0 00106000%DELETE '00200000'                                                              &NAME    $WAIT &WHY,&ENABLE,&WHAT                                 UM3.0 00200000%DELETE '00206000'                                                                       MVI   &WHAT,0                                            UM3.0 00206000%AFTER '00258000'                                                               *                                                                 H02.0 00258100***** $EXTP    *****          INITIATE TP LOGICAL I/O             H02.0 00258200*                                                                 H02.0 00258300*                                                                 H02.0 00258400         MACRO                                                    H02.0 00258500&NAME    $EXTP &TYPE,&DCT,&REC                                    H02.0 00258600         LCLC  &TP                                                H02.0 00258700         $CHEK &TYPE,&DCT                                         H02.0 00258800         AIF   ('&TYPE' NE 'GET' AND '&TYPE' NE 'PUT').A          H02.0 00258900         $CHEK X,&REC                                             H02.0 00259000.A       ANOP                                                     H02.0 00259100&NAME    $DECODE &DCT,&REC,OPA=L                                  H02.0 00259200&TP      SETC  '&TYPE'(1,3)                                       H02.0 00259300         BAL   LINK,$EXTP&TP       GO TO LINE MANAGER             H02.0 00259400         MEND                                                     H02.0 00259500         EJECT                                                    H02.0 00259600%DELETE '00270000'                                                              &NAME    $WTO  &MSG,&L,&ROUTE=$MAIN,&CLASS=$NORMAL,&PRI=$ST,      UM3.0C00270000               &JOB=YES,&WAIT=YES,&REMOTE=NO                      UM3.0 00271000%DELETE '00278000'                                                                       AIF   ('&JOB' NE 'YES').A0                               UM3.0 00278000%DELETE '00280000'                                                              &JOB1    SETA  X'01'                                              UM3.0 00280000.A0      AIF   ('&WAIT' EQ 'YES').A1                              UM3.0 00280500&JOB1    SETA  &JOB1+X'02'                                        UM3.0 00281500%AFTER '00282000'                                                                        CNOP  0,4                                                UM3.0 00283000         L     R0,*+8                                             UM3.0 00283500
& Ready: 
  r
  LEN=04000
  %DELETE '00284000'                                                                       BAL   LINK,$WTO                                          UM3.0 00284000         DC    AL1(&JOB1,&ROUTE,&L,&CLASS+&PRI)                   UM3.0 00284500%AFTER '00290000'                                                                        CNOP  0,4                                                UM3.0 00291000         O     R0,*+8                                             UM3.0 00291500%DELETE '00292000'                                                                       BAL   LINK,$WTO                                          UM3.0 00292000         DC    AL1(&JOB1,&ROUTE,0,&CLASS+&PRI)                    UM3.0 00292500%DELETE '00294000'                                                              .A3      AIF   ('&WAIT' EQ 'YES' OR '&WAIT' EQ 'NO').END          UM3.0 00294000         BC    8,&WAIT                                            UM3.0 00295000%DELETE '00296000'                                                              .END     MEND                                                     UM3.0 00296000%DELETE '00334000' '00338000'                                                   &NAME   DS 0H                                                     UM3.0 00334000%DELETE '00356000' '00360000'                                                   &NAME   DS 0H                                                     UM3.0 00356000%DELETE '00378000'                                                                       LCLA  &N,&D1,&D2                                         H02.0 00378000%DELETE '00398000'                                                              .A2      AIF   ('&COUNT' NE '').A3                                H02.0 00398000%DELETE '00408000'                                                              &NAME1   &OP   &T(1)+&D1.(256&C&T(2)),&F(1)+&D2&L&F(2)&R          H02.0 00408000%DELETE '00412000'                                                              &N       SETA  &N-256                                             H02.0 00412000&D1      SETA  &D1+256                                            H02.0 00413000%DELETE '00414000'                                                                       AIF   ('&OP' EQ 'TR').A5                                 H02.0 00414000&D2      SETA  &D1                                                H02.0 00415000%DELETE '00418000'                                                              &NAME1   &OP   &T(1)+&D1.(&N&C&T(2)),&F(1)+&D2&L&F(2)&R           H02.0 00418000%AFTER '00422000'                                                               *                                                                 H02.0 00422200***** $CCW     *****          TP CCW BUILD MACRO                  H02.0 00422400*                                                                 H02.0 00422600*                                                                 H02.0 00422800         MACRO                                                    H02.0 00423000&NAME    $CCW  &OP,&AD,&FL,&LN,&CD                                H02.0 00423200&NAME    DC    AL1(&OP),AL3(&AD),AL1(&FL,&CD),AL2(&LN)            H02.0 00423400         MEND                                                     H02.0 00423600         SPACE 4                                                  H02.0 00423800%DELETE '00472000'                                                              &NAME    $QGET &CUE,&NONE,&PRROUTE=NO,&PUROUTE=NO,&CLASS=N0,      UM3.0C00471000               &FORMS=NO                                          H02.0 00472000%DELETE '00474100'                                                                       AIF   ('&PRROUTE' NE 'YES').A0                           UM3.0 00474100%DELETE '00474500'                                                              .A0      AIF   ('&PUROUTE' NE 'YES').A1                           H02.0 00474500%DELETE '00474900' 
& Ready: 
  c fsf
& Ready: 
  r
  LEN=04000
  HASP     TITLE 'S P O O L  '                                      UM1.0 00000000*                                                                       00002000***** $GETBUF  *****          GET A BUFFER                              00004000*                                                                       00006000*                                                                       00008000         MACRO                                                          00010000&NAME    $GETBUF &NONE,&DUMMY,&TYPE=T                             UM3.0 00012000&NAME    BAL   LINK,$GE&TYPE.BUF   LINK TO ROUTINE                V02.0 00014000         $NPEXIT &NONE             SET UP NON-PROCESS EXIT              00016000         MEND                                                           00018000         SPACE 4                                                  V02.0 00020000*                                                                       00022000***** $FREEBUF *****          FREE A BUFFER                             00024000*                                                                       00026000*                                                                       00028000         MACRO                                                          00030000&NAME    $FREEBUF &LOC                                                  00032000         $CHEK X,&LOC                                                   00034000&NAME    $DECODE &LOC,OPA=L        SET LOCATION IN R1                   00036000         BAL   LINK,$FREEBUF       LINK TO SUBROUTINE                   00038000         MEND                                                           00040000         SPACE 4                                                  V02.0 00042000         MACRO                                                    UM1.0 00042100&SL      $GETLBN  &NRLBE                                          UM1.0 00042200&SL      SR    R1,R1                                              UM1.0 00042300         TRT  AALBN(NRLB),ALNTRT                                  UM1.0 00042400         BZ   &NRLBE               NONE LEFT                      UM1.0 00042500         MVI   0(R1),X'00'         MARK IN USE                    UM1.0 00042600         LA    R0,AALBN                                           UM1.0 00042700         SR    R1,R0               COMPUTE NUMBER                 UM1.0 00042800         LR    R0,R1                                              UM1.0 00042900         MEND                                                     UM1.0 00043000         SPACE 4                                                  UM1.0 00043100*                                                                       00044000***** $GETUNIT *****          GET A UNIT                                00046000*                                                                       00048000*                                                                       00050000         MACRO                                                          00052000&NAME    $GETUNIT &TYPE,&NONE                                           00054000         $CHEK X,&TYPE                                                  00056000&NAME    $DECODE &TYPE,HA=DCT      SET DCT TYPE IN R1                   00058000         BAL   LINK,$GETUNIT       LINK TO SUBROUTINE                   00060000         $NPEXIT &NONE             SET UP NON-PROCESS EXIT              00062000         MEND                                                           00064000         SPACE 4                                                  V02.0 00066000*                                                                       00068000***** $FREUNIT *****          FREE A UNIT                               00070000*                                                                       00072000*                                                                       00074000         MACRO                                                          00076000
& Ready: 
  s
0 T920(9TP ) RACK= 
  FILE=0002, BLK=00001, RCD=00000001, FMT=U  (32767,32767)
  MODE=160(C3), BPI= 1600, BPMM=  63.0, RETRY=10
  SNS=01:004200040040 2D0000080000 003EA021E991 700E001A0000
  STATUS:  BLK,DTCHK
& Ready: 
 #00:42:51  T=0.052  $0.02 
 #f ?.log
  DIST1.LOG   DIST2.LOG   DIST2.1.LOG DIST2.2.LOG D1MOD1.LOG 
 #p ?.log r (mta) 
  "DIST1.LOG" access: R MTA., U Owner, N Others
  "DIST2.LOG" access: R MTA., U Owner, N Others
  "DIST2.1.LOG" access: R MTA., U Owner, N Others
  "DIST2.2.LOG" access: R MTA., U Owner, N Others
  "D1MOD1.LOG" access: R MTA., U Owner, N Others
 #f nline
  NLINE             Type=Line, IdleDays=4, RPM=0, UseCnt=77, Owner=MTS., 
   Create=Jan11/70, LastRef=Jul20/96, LastCatalog=Jun14/93, 
   LastData=02:05:34 Jul20/96, FullAccess=U Owner, N Others 
 #mou xxx 3480 *out* ring=in timer=off uam=off 'output tape'
 #*OUT* (XXX): Mounted on TC07 
 #r *tapecopy 0=*in* 1=*out*
 #00:46:06 
0   File number        Blocks
     In    Out      Read   Written
      1      1        86        86
      2      2       249       249
      3      3         8         8
      4      4         7         7
      5      5         4         4
      6      6        49        49
      7      7        48        48
      8      8         5         5
      9      9        19        19
     10     10        18        18
     11     11         6         6
     12     12         2         2
     13     13         2         2
     14     14         1         1
     15     15       158       158
     16     16       151       151
     17     17        16        16
     18     18        33        33
     19     19        33        33
     20     20         1         1
     21     21       103       103
     22     22        98        98
     23     23         9         9
     24     24         1         1
     25     25         6         6
     26     26         7         7
     27     27        13        13
     28     28        16        16
     29     29       102       102
     30     30        89        89
     31     31         5         5
     32     32        39        39
     33     33         8         8
     34     34        46        46
     35     35         1         1
     36     36         2         2
     37     37        22        22
     38     38        75        75
     39     39         7         7
     40     40         2         2
     41     41         2         2
     42     42         6         6
     43     43         2         2
     44     44         2         2
     45     45         2         2
     46     46         2         2
     47     47        49        49
     48     48        13        13
     49     49         3         3
     50     50         1         1
     51     51         3         3
     52     52         1         1
     53     53         5         5
     54     54         7         7
     55     55        13        13
     56     56        21        21
     57     57         3         3
     58     58        18        18
     59     59         1         1
     60     60         1         1
     61     61         2         2
     62     62        23        23
     63     63        13        13
     64     64        16        16
     65     65         2         2
     66     66         1         1
     67     67         1         1
     68     68         1         1
     69     69         1         1
     70     70         1         1
     71     71         1         1
     72     72         2         2
     73     73         1         1
     74     74         1         1
     75     75         1         1
     76     76         5         5
     77     77         1         1
     78     78         1         1
     79     79         1         1
     80     80         2         2
     81     81         3         3
     82     82         4         4
     83     83        21        21
     84     84         8         8
     85     85         2         2
     86     86         2         2
     87     87        13        13
     88     88         4         4
     89     89        16        16
     90     90       164       164
     91     91        52        52
     92     92        28        28
     93     93        16        16
     94     94         2         2
     95     95         5         5
     96     96         3         3
     97     97        22        22
     98     98        68        68
     99     99       160       160
    100    100       166       166
    101    101         3         3
    102    102         7         7
    103    103         3         3
    104    104        23        23
    105    105         6         6
    106    106         7         7
    107    107         4         4
    108    108        11        11
    109    109        11        11
    110    110         1         1
    111    111        68        68
    112    112        13        13
    113    113        45        45
    114    114        11        11
    115    115        13        13
    116    116        15        15
    117    117         4         4
    118    118         2         2
    119    119         9         9
    120    120        45        45
    121    121        13        13
    122    122        35        35
    123    123        10        10
    124    124       121       121
    125    125       306       306
    126    126       204       204
    127    127         1         1
    128    128         1         1
    129    129        14        14
    130    130         1         1
 #00:48:16  T=1.808  $0.67 
 #cre dist2.2.5line
  Filename "DIST2.2.5LINE" truncated to "DIST2.2.5LIN".
  Done.
 #renme dist2.25line d2.2.5line
 #"RENAME" for "RENME"?
 ?ok
  "DIST2.25LINE" does not exist.
 #rename dist2.2.5line d2.2.5line
  Filename "DIST2.2.5LINE" truncated to "DIST2.2.5LIN".
  OK? "DIST2.2.5LIN" as "D2.2.5LINE"
 ?ok
 #r nline(1000) sprint=d2.2.5line par=10 *out*@ic
 #00:50:05 
0 #### QSAM ERROR: *OUT*@IC RETURN CODE GREATER THAN 4 FROM READ IN GET.
  #### Blocking error on "*OUT*@IC"
 #00:50:36  RC=8  T=8.727  $3.13 
 #d *out*
  *OUT* on TC07(3480): Tape receipt=XXX
  File=124, Block=1, Record=0, Fmt=FB(6400,80)
  Mode=STR(10), Bpi=38000, Bpmm=1496.3, Retry=10
  Statistics (Read,Write,Control):
    Total tape operations (CCWs): 3022,3545,668
    Recovered errors: 0,0,1  Fatal errors: 0,0,0
  Sense=01:00404000000B CD2000000000 000000000000 007000000000
  Status: BLK ON, date checking, ring IN.
 #r wsg:tt
 #00:50:58 
& Ready: 
  a *out*
  TYPE=3480, INLEN=00080, OUTLEN=00080, WIDTH=unknown
& Ready: 
  s
0 TC07(3480) RACK= 
  FILE=0124, BLK=00001, RCD=00000000, FMT=FB (06400,00080)
  MODE=STR(10), BPI=38000, BPMM=1496.3, RETRY=10
  SNS=01:00404000000B CD2000000000 000000000000 007000000000
  STATUS:  BLK,DTCHK,RING
& Ready: 
  c posn *
& Ready: 
  c fmt u(32767)
& Ready: 
  r
  *** Input notify.
  LEN=13200
   10  100100MARGIN0  10  100200DEPTH53   8  100300HEADB  11  100400SWIDTH76  11  100500LENGTH76   7  100600DATE   8  100700OFOOT  22  100800DEFINE?1=S1$@HCS4X1  22  100900DEFINE?2=S1$@HCS2X2  22  101000DEFINE?3=S0$@HCS2X3  20  101100DEFINE?4=S3$HS2X4  20  101200DEFINE?5=S3$HS2X5  21  101300DEFINE?6=S2@HCS2X4  20  101400DEFINE?13=S0$HCX3  20  101500DEFINE?14=S0$HCX4  12  101610S5CM T S  000000111110 35  101710S3CThe Michigan Terminal System  00000111111111111111111111111111110 46  101810S10CVOLUME 1: MTS AND THE COMPUTING CENTER  0000000111111111111111111111111111111111111110 21  101910S15CThird Edition  000000111111111111110 20  102010S0CFebruary1971  00000111111111111110 50  102110S5CThe University of Michigan Computing Center  00000111111111111111111111111111111111111111111110 26  102210S0CAnn Arbor, Michigan  00000111111111111111111110  5  200110N  00010 18  200210S12CDISCLAIMER  000000111111111110 77  200310S5I3This manual is intended to represent the current state of the Michigan 00000011111111111111111111111111111111111111111111111111111111111111111111111 77  200410Terminal System (MTS), but because the system is constantly being developed, 11111111111111111111111111111111111111111111111111111111111111111111111111110 73  200510extended, and refined, sections of this manual will become obsolete. The 1111111111111111111111111111111111111111111111111111111111111111111111111 68  200610user should refer to Computing Center News and Memos for the latest 11111111111111111111111111111111111111111111111111111111111111111111 35  200710information about changes to MTS.  11111111111111111111111111111111110  5  300110N  00010 44  300200TITLEMTS 1:  MTS AND THE COMPUTING CENTER  20  300300DATEFebruary 1971  34  300411?1Preface to the Third Edition  00001111111111111111111111111111100000000000000000000000000000000000 77  300510PThe software developed by the Computing Center staff for the operation of 00011111111111111111111111111111111111111111111111111111111111111111111111110 73  300610the 360/67 dual-processor computer can be described as a multi-processor 1111111111111111111111111111111111111111111111111111111111111111111111111 74  300710supervisor which handles a number of resident, re-entrant programs. Among 11111111111111111111111111111111111111111111111111111111111111111111111111 71  300810these is a large subsystem, called MTS (Michigan Terminal System), for 11111111111111111111111111111111111111111111111111111111111111111111111 72  300910command interpretation, execution control, file handling and accounting 111111111111111111111111111111111111111111111111111111111111111111111111 74  301010maintenance. The majority of users interact with the computer's resources 11111111111111111111111111111111111111111111111111111111111111111111111111 72  301110by means of the latter operating subsystem. The various MTS manuals are 111111111111111111111111111111111111111111111111111111111111111111111111 66  301210concerned principally with describing the use of this subsystem.  111111111111111111111111111111111111111111111111111111111111111110 70  301310PThis, the Third Edition of the MTS manual, is a major revision and 0001111111111111111111111111111111111111111111111111111111111111111111 75  301410reorganization of the Second Edition (December 1, 1967). The third edition 111111111111111111111111111111111111111111111111111111111111111111111111111 76  301510will consist of a series of 10 or more separate, self-contained volumes, to 1111111111111111111111111111111111111111111111111111111111111111111111111111 70  301610be published over a period of many months. Three volumes in the third 1111111111111111111111111111111111111111111111111111111111111111111111 76  301711edition have already appeared: Public File Descriptions (Volume 2, November 11111111111111111111111111111111111111111111111111111111111111111111111111100000000000000000000000000000000111111111111111111111111000000000000000000000 76  3018111969), Subroutine and Macro Descriptions (Volume 3, June 1970), and SNOBOL4 11111111111111111111111111111111111111111111111111111111111111111111111111110000000111111111111111111111111111111111000000000000000000000000000011111110 74  301910(Volume 9, March 1969). Others are in preparation. The numerical order of 11111111111111111111111111111111111111111111111111111111111111111111111111 77  302010the volumes is not necessarily the chronological order; for example, Volumes 11111111111111111111111111111111111111111111111111111111111111111111111111110 74  3021102, 3, and 9 appeared before Volume 1. However, in general, the higher the 11111111111111111111111111111111111111111111111111111111111111111111111111 67  302210number, the more specialized the volume is. Volume 1, for example, 1111111111111111111111111111111111111111111111111111111111111111111 74  302310introduces the user to MTS and the Computing Center, while Volume 9 deals 11111111111111111111111111111111111111111111111111111111111111111111111111 70  302410exclusively with SNOBOL4. The attempt to make each volume mostly self-1111111111111111111111111111111111111111111111111111111111111111111111 75  302510contained naturally results in a certain amount of repetition. Such things 111111111111111111111111111111111111111111111111111111111111111111111111111 77  302610a public file descriptions, for example, may appear in more than one volume. 11111111111111111111111111111111111111111111111111111111111111111111111111110 77  302710However, with this arrangement, the user is not forced to buy the entire set 11111111111111111111111111111111111111111111111111111111111111111111111111110 75  302810of manuals, but only those that serve his immediate needs. And, hopefully, 111111111111111111111111111111111111111111111111111111111111111111111111111 72  302910each volume will be smaller and of a more manageable size than before.  111111111111111111111111111111111111111111111111111111111111111111111110 27  303010S2I45DonaldW.Boettner  000000011111111111111111110 22  303110S0I45Lynn R. Marvin 0000000111111111111110 29  303210S0I45RichardA.Salisbury  00000001111111111111111111110 24  303310S1I50General Editors  000000011111111111111110  5  400110N  00010 25  400211?1Preface to Volume 1  00001111111111111111111100000000000000000000000000 76  400310PWe welcome you, at long last, to Volume 1 of the MTS manuals. This first 0001111111111111111111111111111111111111111111111111111111111111111111111110 77  400410volume is the only volume of the series that contains writeups not about MTS 11111111111111111111111111111111111111111111111111111111111111111111111111110 73  400510as such, but about MTS as it is practiced at the University of Michigan. 1111111111111111111111111111111111111111111111111111111111111111111111111 76  400610The two writeups that fall in this category have been placed first and last 1111111111111111111111111111111111111111111111111111111111111111111111111111 70  400710in this volume. The first, "University of Michigan Computing Center", 1111111111111111111111111111111111111111111111111111111111111111111111 74  400810describes the administrative and operating procedures. MTS users at other 11111111111111111111111111111111111111111111111111111111111111111111111111 76  400910installations should substitute a local reading of the equivalent for this. 1111111111111111111111111111111111111111111111111111111111111111111111111110 76  401010The last writeup in the volume, "Model 20 Services", describes the tab-shop 1111111111111111111111111111111111111111111111111111111111111111111111111111 70  401110services (listing cards, reproducing cards, interpreting cards, etc.) 1111111111111111111111111111111111111111111111111111111111111111111111 51  401210available on a stand-alone 360 Model 20 computer.  111111111111111111111111111111111111111111111111110 74  401310PUnlike previous volumes issued, the writeups in this volume anticipate 00011111111111111111111111111111111111111111111111111111111111111111111111 75  401410certain system changes scheduled to be installed "sometime in the vicinity 111111111111111111111111111111111111111111111111111111111111111111111111111 75  401510of" the issuing of this volume. They are included because of the wholesale 111111111111111111111111111111111111111111111111111111111111111111111111111 73  401610effects they would have on the content and organization of the volume if 1111111111111111111111111111111111111111111111111111111111111111111111111 72  401710issued later as updates to the volume. Other imminent changes that will 111111111111111111111111111111111111111111111111111111111111111111111111 71  401810impact the volume, such as the move to the new building, have not been 11111111111111111111111111111111111111111111111111111111111111111111111 74  401910anticipated because no one really knows at this time exactly what to say. 11111111111111111111111111111111111111111111111111111111111111111111111111 77  402010The two anticipated changes are the embedding of the context editor into the 11111111111111111111111111111111111111111111111111111111111111111111111111110 69  402110command language (EDIT command) and the ability of terminal users to 111111111111111111111111111111111111111111111111111111111111111111111 71  402210schedule "immediate" printing, card punching, and batch job submission 11111111111111111111111111111111111111111111111111111111111111111111111 71  402310(*PRINT*, *BATCH*, and *PUNCH* pseudo-device names). In the event that 11111111111111111111111111111111111111111111111111111111111111111111111 70  402410either or both of these features is not available when this volume is 1111111111111111111111111111111111111111111111111111111111111111111111 75  402510issued, the Computing Center News announcing this volume will so indicate. 111111111111111111111111111111111111111111111111111111111111111111111111111 71  402610In that case, users will have to continue using RUN*ED or RUN*BATCH, 11111111111111111111111111111111111111111111111111111111111111111111111 70  402710respectively, as in the past, until the feature is installed. A third 1111111111111111111111111111111111111111111111111111111111111111111111 74  402810future change, the installation of the Symbolic Debugging System into the 11111111111111111111111111111111111111111111111111111111111111111111111111 69  402910command language, has been partially anticipated by inclusion of the 111111111111111111111111111111111111111111111111111111111111111111111 72  403010debugging commands in the command language section, but the description 111111111111111111111111111111111111111111111111111111111111111111111111 72  403110still indicates that it is to be run as a program. This change will not 111111111111111111111111111111111111111111111111111111111111111111111111 27  403210occur for several months.  111111111111111111111111110 77  403310PThe writeups in this volume refer occasionally to other volumes that have 00011111111111111111111111111111111111111111111111111111111111111111111111110 72  403410not been published. While this is regrettable, we felt that it would be 111111111111111111111111111111111111111111111111111111111111111111111111 76  403510better to issue each volume as soon as it was ready, rather than wait until 1111111111111111111111111111111111111111111111111111111111111111111111111111 56  403610all were complete (or doomsday, whichever came first).  11111111111111111111111111111111111111111111111111111110 74  403710PWhile we would like to acknowledge the contributions of many people to 00011111111111111111111111111111111111111111111111111111111111111111111111 77  403810this volume, it is the sad truth that at this point the editors (and others) 11111111111111111111111111111111111111111111111111111111111111111111111111110 72  403910have rewritten and restructured each others writeups and other people's 111111111111111111111111111111111111111111111111111111111111111111111111 73  404010writeups over and over to the extent that it is impossible to assign the 1111111111111111111111111111111111111111111111111111111111111111111111111 73  404110exclusive blame for any part of this manual to anybody. We would like to 1111111111111111111111111111111111111111111111111111111111111111111111111 77  404210mention, however, that several of the writeups that were raw fodder for this 11111111111111111111111111111111111111111111111111111111111111111111111111110 77  404310process came from the University of Alberta Computing Centre, the University 11111111111111111111111111111111111111111111111111111111111111111111111111110 75  404410of British Columbia Computing Centre, and Susan Bloch of the University of 111111111111111111111111111111111111111111111111111111111111111111111111111 76  500110Michigan Computing Center, as well as from the editors (who had to write it 1111111111111111111111111111111111111111111111111111111111111111111111111111 29  500210because no one else would).  11111111111111111111111111110 76  500310PThe layout of this volume has been designed so that each section and MTS 000111111111111111111111111111111111111111111111111111111111111111111111
& Ready: 
  c fsf
& Ready: 
  r
  LEN=13200
  1001C V5.0                                                                                                                          -029                                                                                                                             104-                                                                                                                                    016 S5C   +              |                                    M T S                                                                  S                                                                                                                                   S                                                                                                                                   S                                                                                                                                  017 S3C   +              |                        The Michigan Terminal System                                                       S                                                                                                                                   S                                                                                                                                   S                                                                                                                                   S                                                                                                                                   S                                                                                                                                   S                                                                                                                                   S                                                                                                                                   S                                                                                                                                   S                                                                                                                                   S                                                                                                                                  018 S10C  +              |                   VOLUME 1:  MTS AND THE COMPUTING CENTER                                                 S                                                                                                                                   S                                                                                                                                   S                                                                                                                                   S                                                                                                                                   S                                                                                                                                   S                                                                                                                                   S                                                                                                                                   S                                                                                                                                   S                                                                                                                                   S                                                                                                                                   S                                                                                                                                   S                                                                                                                                   S                                                                                                                                   S                                                                                                                                   S                                                                                                                                  019 S15C  +              |                                Third Edition                                                             020#S0C   +              |                                February 1971                                                              S                                                                                                                                   S                                                                                                                                   S                                                                                                                                   S                                                                                                                                   S                                                                                                                                  021 S5C   +              |                 The University of Michigan Computing Center                                              022 S0C   +              |                             Ann Arbor, Michigan                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      001                                                                                                   1                            1002C V5.0                                                                                                                          -029                                                                                                                             104-                                                                                                                                    001 N     +              |                                                                                                           S                                                                                                                                   S                                                                                                                                   S                                                                                                                                   S                                                                                                                                   S                                                                                                                                   S                                                                                                                                   S                                                                                                                                   S                                                                                                                                   S                                                                                                                                   S                                                                                                                                   S                                                                                                                                   S                                                                                                                                  002 S12C  +              |                                 DISCLAIMER                                                                S                                                                                                                                   S                                                                                                                                   S                                                                                                                                   S                                                                                                                                   S                                                                                                                                  003 S5I3  +              |    This manual is intended to represent the current state  of  the  Michigan                             004       +              | Terminal System (MTS), but because the system is constantly being developed,                             005       +              | extended,  and  refined,  sections of this manual will become obsolete.  The                             006       +              | user should refer  to  Computing  Center  News  and  Memos  for  the  latest                             007       +              | information about changes to MTS. 
& Ready: 
  c fsf
& Ready: 
  r
  LEN=08000
  +PAGE+                                                                          +MARGIN0+ /                                                                     +DEPTH53+ /                                                                     +HEADB+ /                                                                       +SWIDTH76+ /                                                                    +LENGTH76+ /                                                                    +DATE+ /                                                                        +OFOOT+ /                                                                       +DEFINE?1=S1$@HCS4X1+ /                                                         +DEFINE?2=S1$@HCS2X2+                                                           +DEFINE?3=S0$@HCS2X3+  /                                                        +DEFINE?4=S3$HS2X4+                                                             +DEFINE?5=S3$HS2X5+                                                             +DEFINE?6=S2@HCS2X4+ /                                                          +DEFINE?13=S0$HCX3+/                                                            +DEFINE?14=S0$HCX4+/                                                            -S5C-@M T S@@  /                                                                -S3C-*THE *MICHIGAN *TERMINAL *SYSTEM  /                                        -S10C-@VOLUME 1:  MTS AND THE COMPUTING CENTER@@ /                              -S15C-*THIRD *EDITION  /                                                        -S0C-*FEBRUARY/I1971 /                                                          -S5C-*THE *UNIVERSITY OF *MICHIGAN *COMPUTING *CENTER /                         -S0C-*ANN *ARBOR, *MICHIGAN  /                                                  -N-  /                                                                          -S12C-@DISCLAIMER@@  /                                                          -S5I3-*THIS  MANUAL IS INTENDED TO REPRESENT THE CURRENT STATE OF  THE           *MICHIGAN *TERMINAL *SYSTEM (@MTS@@), BUT BECAUSE THE SYSTEM IS CONSTANTLY      BEING DEVELOPED, EXTENDED, AND REFINED, SECTIONS OF THIS MANUAL WILL            BECOME OBSOLETE.  *THE USER  SHOULD REFER TO *COMPUTING *CENTER *NEWS           AND *MEMOS FOR THE LATEST INFORMATION ABOUT CHANGES TO @MTS@@.                 -N- /                                                                           +TITLE+@MTS 1:  MTS AND THE COMPUTING CENTER@@ /                                +DATE+*FEBRUARY 1971 /                                                          -?1- *PREFACE TO THE *THIRD *EDITION /                                          -P-*THE SOFTWARE DEVELOPED BY THE  /                                            *COMPUTING *CENTER STAFF FOR THE OPERATION OF THE 360/Z67 DUAL/SPROCESSOR COMPUTER CAN BE DESCRIBED AS A MULTI/SPROCESSOR SUPERVISOR WHICH                                                              HANDLES A NUMBER OF RESIDENT,           RE/SENTRANT PROGRAMS.  *AMONG THESE /                                                 IS A LARGE SUBSYSTEM, CALLED @MTS@@ (*MICHIGAN *TERMINAL *SYSTEM), FOR COMMAND INTERPRETATION, EXECUTION CONTROL, FILE HANDLING AND ACCOUNTING  MAINTENANCE. /                                                                            *THE MAJORITY OF USERS INTERACT WITH THE COMPUTER'S RESOURCES BY MEANS OF THE LATTER OPERATING SUBSYSTEM.  *THE VARIOUS @MTS@@ MANUALS ARE CONCERNED PRINCIPALLY WITH DESCRIBING THE USE OF THIS SUBSYSTEM.  /                                  -P-/                                                                            *THIS, /                                                                              THE *THIRD *EDITION OF THE @MTS@@ MANUAL, IS A MAJOR REVISION AND REORGANIZATION OF THE *SECOND *EDITION (*DECEMBER 1, 1967).                              *THE THIRD EDITION WILL CONSIST OF A SERIES OF 10 OR MORE SEPARATE,             SELF/SCONTAINED VOLUMES, TO BE PUBLISHED OVER A PERIOD OF MANY MONTHS.          *THREE VOLUMES IN THE THIRD EDITION      HAVE ALREADY APPEARED: $*PUBLIC *FILE *DESCRIPTIONS$$ (*VOLUME 2, *NOVEMBER 1969), $*SUBROUTINE AND *MACRO *DESCRIPTIONS$$  (*VOLUME 3, *JUNE 1970), AND $@SNOBOL4@@$$ (*VOLUME 9, *MARCH 1969).       *OTHERS ARE IN PREPARATION.   *THE NUMERICAL ORDER OF THE VOLUMES IS NOT        NECESSARILY THE CHRONOLOGICAL ORDER; FOR EXAMPLE, *VOLUMES 2, 3, AND 9          APPEARED BEFORE *VOLUME 1.  *HOWEVER, IN GENERAL, THE HIGHER THE NUMBER,        THE MORE SPECIALIZED THE VOLUME IS.  *VOLUME 1, FOR EXAMPLE, INTRODUCES THE     USER TO @MTS@@ AND THE *COMPUTING *CENTER, WHILE *VOLUME 9 DEALS EXCLUSIVELY    WITH @SNOBOL4@@.   *THE ATTEMPT TO MAKE EACH VOLUME MOSTLY                      SELF/SCONTAINED NATURALLY /                                                     RESULTS IN A CERTAIN AMOUNT OF REPETITION.  *SUCH THINGS A PUBLIC FILE          DESCRIPTIONS, FOR EXAMPLE, MAY  APPEAR IN MORE THAN ONE VOLUME.                 *HOWEVER, WITH THIS ARRANGEMENT, THE USER IS NOT FORCED TO BUY THE ENTIRE SET   OF MANUALS, BUT ONLY THOSE THAT SERVE HIS IMMEDIATE NEEDS.                      *AND, HOPEFULLY, EACH VOLUME WILL BE SMALLER AND OF A MORE MANAGEABLE SIZE      THAN BEFORE.                                                                   -S2I45-*DONALD/I*W./I*BOETTNER   /                                              -S0I45-*LYNN *R. *MARVIN/                                                       -S0I45-*RICHARD/I*A./I*SALISBURY    /                                           -S1I50-*GENERAL *EDITORS /                                                      -N- /                                                                           -?1-/                                                                           *PREFACE TO *VOLUME 1 /                                                         -P-/                                                                            *WE WELCOME YOU, AT LONG LAST, TO  *VOLUME 1 OF THE @MTS@@ MANUALS.  *THIS FIRST VOLUME IS THE ONLY VOLUME OF THE SERIES THAT CONTAINS  WRITEUPS NOT ABOUT       @MTS@@ AS SUCH, /                                                                       BUT ABOUT @MTS@@ AS IT IS PRACTICED AT THE *UNIVERSITY OF               *MICHIGAN.                    *THE TWO WRITEUPS THAT FALL IN THIS CATEGORY      HAVE BEEN PLACED FIRST AND LAST IN THIS VOLUME.  *THE FIRST, "*UNIVERSITY OF    *MICHIGAN *COMPUTING *CENTER", DESCRIBES THE ADMINISTRATIVE AND OPERATING       PROCEDURES.  @MTS@@ USERS AT OTHER INSTALLATIONS SHOULD SUBSTITUTE A LOCAL READING OF THE EQUIVALENT          FOR THIS.  *THE LAST WRITEUP IN THE VOLUME,       "*MODEL 20 *SERVICES", DESCRIBES THE TAB/SSHOP SERVICES (LISTING CARDS,         REPRODUCING CARDS, INTERPRETING CARDS, ETC.) AVAILABLE ON A STAND/SALONE        360 *MODEL 20 COMPUTER.                                                        -P-/                                                                            *UNLIKE PREVIOUS VOLUMES ISSUED, THE WRITEUPS IN THIS VOLUME ANTICIPATE CERTAIN  SYSTEM CHANGES SCHEDULED TO BE INSTALLED "SOMETIME IN THE VICINITY OF" THE      ISSUING OF THIS VOLUME.  *THEY ARE INCLUDED BECAUSE OF THE WHOLESALE EFFECTS    THEY WOULD HAVE ON THE CONTENT AND ORGANIZATION OF THE VOLUME IF ISSUED LATER   AS UPDATES TO THE VOLUME.  *OTHER IMMINENT CHANGES THAT WILL IMPACT THE         VOLUME, SUCH AS THE MOVE TO THE NEW BUILDING, HAVE NOT BEEN ANTICIPATED         BECAUSE NO ONE REALLY KNOWS AT THIS TIME EXACTLY WHAT TO SAY.   *THE TWO        ANTICIPATED CHANGES ARE THE EMBEDDING OF THE CONTEXT EDITOR INTO THE COMMAND    LANGUAGE (@EDIT@@ COMMAND) AND THE ABILITY OF TERMINAL USERS TO                  SCHEDULE "IMMEDIATE" PRINTING, CARD PUNCHING, AND BATCH JOB SUBMISSION (/X@PRINT/X, /XBATCH/X,@@ AND /X@PUNCH@@/X PSEUDO/SDEVICE NAMES).  *IN THE EVENT THAT   EITHER OR BOTH OF THESE FEATURES IS NOT AVAILABLE WHEN THIS VOLUME IS ISSUED, 
& Ready: 
  c fsf
& Ready: 
  r
  LEN=10640
  1                                                                                                                                    $ERRORDUMP                                                                                                                           $RUN QUADTEST+QUAD MAP                                                                                                                                                                                                                                                      ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ..                                                                                                                                                                                                    ENTRY = 5000D8  SIZE = 003752                                                                                                                                                                                                                                           NAME     VALUE  T RF    NAME     VALUE  T RF    NAME     VALUE  T RF                                                                                                                                                                                                      GETSPACE 2137E6 *       FREESPAC 213AE6 *       ERROR#   21B5E0 *                                                                    MTS#     21B5FC *       CANREPLY 21DE82 *       GDINFO   21DED6 *                                                                    POINT    21E488 *       SCARDS#  21EBB8 *       SPRINT#  21EBCA *                                                                    SPUNCH#  21EBDC *       SERCOM#  21EBEE *       SERCOM   21EBEE *                                                                    READ#    21EC6C *       WRITE#   21EC88 *       LCSYMBOL 21F848 *                                                                              5000D8  5000D8 QUAD     500190  500190 REWIND#  5002B0 *5002B0                                                             IHCSSQRT 500458 *500458 SQRT     500458 *       IBCOM#   503000 *503000                                                              ADCON#   505000 *505000 FCVZO    505154 *       FCVAO    5051FA *                                                                    FCVLO    505282 *       FCVIO    5055A8 *       FCVEO    505A9A *                                                                    FCVCO    505CAC *       FIOCS#   5060A0 *5060A0                                                                                                                                                                                                                             ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ..                                                             0 DATE  02-02-71      TIME  21:49.42                                                                                                 0 PSW    =  07150006 905001EC                                                                                                                                                                                                                                                       GENERAL REGISTERS 0...15                                                                                                                     F0C3CF82   41B3A243   00500120   00500124   00500128   0050012C   00500130   00000000                                                00000000   FFFFFFFF   00000000   00000000   00500190   0050025C   605001DA   00500458                                                                                                                                                                             FLOATING POINT REGISTERS                                                                                                                     41B00000 00000000     41400000 00000000     C1400000 00000000     00000000 00000000                                                                                                                                                                                                                                                                                                          0                STORAGE INDEX: 0000                                                                                                    LA     RA                                                                                                                          500000          00000000  00000000  80500000  002158AE    005000D8  81818181  00000000  00500134  *.........&.......&.QAAAA.....&..* 500020 000020   002158AE  005000D8  00000000  00500008    00000000  00000000  00000000  00000000  *.....&.Q.....&..................* 500040 000040   00000000  00000000  00000000  00000000    00000000  00000000  00000000  81818181  *............................AAAA* 500060 000060   1C818181  81818181                                                                *.AAAAAAA*                                                                                                                                                             0                STORAGE INDEX: 0080                                                                                                    LA     RA                                                                                                                          5000C0                                                                        90ECD00C  18CF41F0                          *.......0* 5000E0 000008   C05C50F0  D00850D0  F00418DF  5890C0A8    5810C0AC  58F0C0B0  05EF58D0  D00498EC  *.*&0..&.0......Y.....0........Q.* 500100 000028   D00C92FF  D00C1BFF  07FE0000  00500120    00500124  00500128  0050012C  00500130  *..K..........&...&...&...&...&..* 500120 000048   41200000  41500000  C1C00000  40000000    00000000  0000641C  00500014  0050025C  *.....&..A... ............&...&.** 500140 000068   405000FA  00500190  00000000  0050010C    00000000  00000000  00000000  00000000  * &...&.......&..................* 500160 000088   00000000  00000000  00000000  FFFFFFFF    00000000  00000000  005000D8  C3F0F5F0  *.........................&.QC050* 500180 0000A8   FFFFFFFF  0050010C  00500190  E6F0F7F3                                            *.....&...&..W073*                                                                                                                                                     0                STORAGE INDEX: 0080                                                                                                    LA     RA                                                                                                                          500180                                                    90ECD00C  18CF41F0  C0CC50F0  D00850D0                  *.......0..&0..&.* 5001A0 000010   F00418DF  98261000  78003000  3C007820    C1187C20  20007C20  40003B02  4740C078  *0...Q...........A.@...@. .... ..* 5001C0 000030   7000C0C8  47F0C03C  00500458  4510C044    00500258  58F0C038  05EF7820  20003A22  *...H.0...&.......&...0..........* 5001E0 000050   33407B40  30003D42  70409000  7B003000    3D027000  500058D0  D00498EC  D00C92FF  *. # ..... ..#.......&.....Q...K.* 500200 000070   D00C1BFF  07FE0700  58F0C11C  4510C0B2    00500222  00500220  0050021C  00000000  *.........0A......&...&...&......* 500220 000090   001F405C  5C5C40C5  D8E4C1E3  C9D6D540    C8C1E240  C3D6D4D7  D3C5E740  D9D6D6E3  *.. *** EQUATION HAS COMPLEX ROOT* 500240 0000B0   E20005EF  58D0D004  98ECD00C  92FFD00C    41F00004  07FEC5E6  42790000  F2404040  *S.......Q...K....0....EW....2   * 500260 0000D0   00500134  F1F0F900  FF5001DA  00500458    0F8064F5  00000034  00000000  98000000  *.&..109..&...&.....5........Q...* 500280 0000F0   00000000  00006479  80E6F0F7  F3D7D9C9    D5E3F24B  E5F24040  40D4E3E2  F1F0F400  *.........W073PRINT2.V2   MTS104.* 5002A0 000110   00000107  E6F0F7F3  41400000  0021EBEE                                            *....W073. ......*                                                                                                                                                     0                STORAGE INDEX: 0080                                                                                                    LA     RA                                                                                                                          5002A0                                                    90ECD00C  18CF41F0  C11050F0  D00850D0                  *.......0A.&0..&.* 5002C0 000010   F00418DF  47F0C01C  0021DED6  58F0C018    05EF12FF  4770C072  58201000  58302008  *0....0.....O.0..................* 5002E0 000030   5B302014  5030200C  D503C180  10044780    C084D503  C1841004  4780C084  D503C188  *$...&...N.A......DN.AD.....DN.AH* 500300 000050   10044780  C0CAD503  C18C1004  4780C0CA    D503C190  10044780  C0B21B00  58F0C194  *......N.A.......N.A..........0AM* 500320 000070   05EF58D0  D00498EC  D00C92FF  D00C41F0    000407FE  94DF2000  D703201C  201C5830  *......Q...K....0....M...P.......* 500340 000090   20049110  30314780  C0B21831  5020C158    4110C15C  58F0C198  05EF12FF  18134770  *..J.........&.A...A*.0AQ........* 500360 0000B0   C0721B00  58F0C194  05EF58D0  D00498EC    D00C92FF  D00C1BFF  07FE5010  C0FC4110  *.....0AM......Q...K.......&.....* 500380 0000D0   C0EC58F0  C19C9140  20004710  C0E258F0    C1A005EF  5810C0FC  47F0C0B2  005003B0  *...0A.J .....S.0A........0...&..* 5003A0 0000F0   005003B4  005003B8  005003BC  00000000    D9C5E600  00030000  00000080  00000000  *.&...&...&......REW.............* 5003C0 000110   81818181  81818181  81818181  81818181    81818181  81818181  81818181  81818181  *AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA* ...... ......   ........                                                                                                             500400 000150   81818181  81818181  81818181  00500408    00500418  00500428  FFFFFFFF  00000000  *AAAAAAAAAAAA.&...&...&..........* 500420 000170   FFFFFFFF  FFFFFFFF  00000002  81818181    C6C9D3C5  E2C5D8C6  F9E3D740  F7E3D740  *............AAAAFILESEQF9TP 7TP * 500440 000190   C4E4D4E8  00213AE6  0021E488  0021EC88    0021EC6C  40000000                      *DUMY...W..UH...H...% ...* 
& Ready: 
  s
0 TC07(3480) RACK= 
  FILE=0127, BLK=00001, RCD=00000001, FMT=U  (32767,00080)
  MODE=STR(10), BPI=38000, BPMM=1496.3, RETRY=10
  SNS=01:00402000000E 472000000000 000000000000 007000000000
  STATUS:  BLK,DTCHK,RING
& Ready: 
  r
  *** RC=004
& Ready: 
  r
  LEN=08640
                                                                                                                                   'DECLARE' 'DEFAULT' 'INTEGER';                                                                                                                                                                                                                  'DECLARE' TRACE 'EXTERNAL' 'BOOLEAN';                                                                                   'DECLARE' TERMINAL 'EXTERNAL' 'BOOLEAN';                                                                                'DECLARE' EDITOK 'EXTERNAL' 'BOOLEAN';                                                                                                                                                                                                          'DECLARE' OLDOMHD 'EXTERNAL' 'INTEGER';                                                                                 'DECLARE' NEWOMHD 'EXTERNAL' 'INTEGER';                                                                                 'DECLARE' VALIDTBB 'EXTERNAL' 'POINTER';                                                                                'DECLARE' OLDOMHDB 'EXTERNAL' 'INTEGER';                                                                                'DECLARE' NEWOMHDB 'EXTERNAL' 'INTEGER';                                                                                                                                                                                                        'DECLARE' (OLDOM,NEWOM) 'BASED' 'COMPONENT STRUCTURE'('INTEGER','CHARACTER'(8),                                             'INTEGER SHORT','INTEGER SHORT','INTEGER','I','INTEGER','INTEGER','INTEGER','BIT'(1));                                      'SUBSTITUTE' OMPTR (1) 'ENDSUB'                                                                                         'SUBSTITUTE' OMNAME (2) 'ENDSUB'                                                                                        'SUBSTITUTE' OMENTRYTYPE (3) 'ENDSUB'                                                                                   'SUBSTITUTE' OMENTRYESID (4) 'ENDSUB'                                                                                   'SUBSTITUTE' OMENTRYADR (5) 'ENDSUB'                                                                                    'SUBSTITUTE' OMESDPTR (6) 'ENDSUB'                                                                                      'SUBSTITUTE' OMPTRB (7) 'ENDSUB'                                                                                   'SUBSTITUTE' OMPTRPCH(8) 'ENDSUB'                                                                                        'SUBSTITUTE' OMCARD (9) 'ENDSUB'                                                                                      'SUBSTITUTE' OMPCHED (10) 'ENDSUB'                                                                                             'SUBSTITUTE' OMBEADL 40 'ENDSUB'                                                                                                                                                                                                       'DECLARE' (ESDBEAD,ESDBEAD2) 'BASED' 'COMPONENT STRUCTURE'('INTEGER','INTEGER','CHARACTER'(8),                              'BIT'(8),'BIT'(24),'BIT'(8),'BIT'(24),'INTEGER SHORT','INTEGER SHORT','INTEGER',                                        'INTEGER','INTEGER','INTEGER','INTEGER','INTEGER','INTEGER','BIT'(1));                                                      'SUBSTITUTE' ESDBOLDOMPTR (1) 'ENDSUB'                                                                                  'SUBSTITUTE' ESDBNEWOMPTR (2) 'ENDSUB'                                                                                  'SUBSTITUTE' ESDBNAME (3) 'ENDSUB'                                                                                      'SUBSTITUTE' ESDBTYPE (4) 'ENDSUB'                                                                                      'SUBSTITUTE' ESDBADR (5) 'ENDSUB'                                                                                       'SUBSTITUTE' ESDBALIGN (6) 'ENDSUB'                                                                                     'SUBSTITUTE' ESDBLEN (7) 'ENDSUB'                                                                                       'SUBSTITUTE' ESDBOLDESID (8) 'ENDSUB'                                                                                   'SUBSTITUTE' ESDBNEWESID (9) 'ENDSUB'                                                                                   'SUBSTITUTE' ESDBSAMENAME (10) 'ENDSUB'                                                                                 'SUBSTITUTE' ESDBFTXT (11) 'ENDSUB'                                                                                     'SUBSTITUTE' ESDBLTXT (12) 'ENDSUB'                                                                                     'SUBSTITUTE' ESDBFRLD (13) 'ENDSUB'                                                                                     'SUBSTITUTE' ESDBARLD (14) 'ENDSUB'                                                                                     'SUBSTITUTE' ESDBCOMBPTR (15) 'ENDSUB'                                                                                  'SUBSTITUTE' ESDBRF (16) 'ENDSUB'                                                                                  'SUBSTITUTE' ESDBDROP (17) 'ENDSUB'                                                                                          'SUBSTITUTE' ESDBEADL 60 'ENDSUB'                                                                                                                                                                                                       'DECLARE' (TXTBEAD,TXTBEAD2) 'BASED' 'COMPONENT STRUCTURE'('INTEGER','INTEGER','INTEGER SHORT',                             'ALIGN'(4) 'FIXED ARRAY'(32768) 'CHARACTER'(1));                                                                            'SUBSTITUTE' TXTBPTR (1) 'ENDSUB'                                                                                       'SUBSTITUTE' TXTBADR (2) 'ENDSUB'                                                                                       'SUBSTITUTE' TXTBLEN (3) 'ENDSUB'                                                                                       'SUBSTITUTE' TXTBTXT (4) 'ENDSUB'                                                                                        'SUBSTITUTE' TXTBEADHL 12 'ENDSUB'                                                                                                                                                                                                     'DECLARE' (RLDBEAD,RLDBEAD2) 'BASED' 'COMPONENT STRUCTURE'('INTEGER','INTEGER','INTEGER SHORT',                             'INTEGER SHORT','FIXED ARRAY'(16) 'INTEGER');                                                                               'SUBSTITUTE' RLDBPTR (1) 'ENDSUB'                                                                                       'SUBSTITUTE' RLDBAPTR (2) 'ENDSUB'                                                                                      'SUBSTITUTE' RLDBESID (3) 'ENDSUB'                                                                                      'SUBSTITUTE' RLDBN (4) 'ENDSUB'                                                                                         'SUBSTITUTE' RLDBITEM (5) 'ENDSUB'                                                                                       'SUBSTITUTE' RLDBEADL 76 'ENDSUB'                                                                                                                                                                                                      'DECLARE' (CARDBEAD) 'BASED' 'CS'('I','FA'(256) 'C'(1));                                                                    'SUBSTITUTE' CARDBLEN (1) 'ENDSUB'                                                                                      'SUBSTITUTE' CARDBTXT (2) 'ENDSUB'                                                                                                                                                                                                          'INCLUDE' "LNK.BITDEFS" 
& Ready: 
  r
  *** RC=004
& Ready: 
  r
  LEN=10000
  BREAKPOINT      (115,140)                                                                           P:BREAKPOINT    (116,118.1)                                                                         X:BREAKPOINT    (119,137)                                                                           EX:BREAKPOINT   (138,139)                                                                           BYE             (141,153)                                                                           P:BYE           (142,146)                                                                           X:BYE           (147,150)                                                                           EX:BYE          (151,152)                                                                           CONTINUE        (218,232)                                                                           P:CONTINUE      (219,219)                                                                           X:CONTINUE      (220,229)                                                                           EX:CONTINUE     (230,231)                                                                           CATALOG         (154,165)                                                                           CATALOG.NEW     (90000,90026)                                                                       P:CATALOG       (155,158.1)                                                                         X:CATALOG       (159,162)                                                                           EX:CATALOG      (163,164)                                                                           COMPILE         (166,217)                                                                           P:COMPILE       (167,198)                                                                           X:COMPILE       (199,212)                                                                           EX:COMPILE      (213,216)                                                                           COPY            (1000,1032)                                                                         P:COPY          (1001,1017.1)                                                                       X:COPY          (1018,1025.25)                                                                      EX:COPY         (1026,1031)                                                                         DISPLAY         (254,270)                                                                           P:DISPLAY       (255,257)                                                                           X:DISPLAY       (258,266)                                                                           EX:DISPLAY      (267,269)                                                                           DEBUG           (233,253)                                                                           P:DEBUG         (234,237)                                                                           X:DEBUG         (238,249)                                                                           EX:DEBUG        (250,252)                                                                           DESTROY         (1040,1072.25)                                                                      P:DESTROY       (1041,1060.01)                                                                      X:DESTROY       (1060.1,1068)                                                                       EX:DESTROY      (1069,1072)                                                                         EDIT            (271,288)                                                                           P:EDIT          (272,278.1)                                                                         X:EDIT          (279,284.1)                                                                         EX:EDIT         (285,287)                                                                           EMPTY           (1178,1204)                                                                         P:EMPTY         (1179,1191)                                                                         X:EMPTY         (1192,1199)                                                                         EX:EMPTY        (1200,1203)                                                                         ENDFILE         (289,300)                                                                           P:ENDFILE       (290,290)                                                                           X:ENDFILE       (291,295.1)                                                                         EX:ENDFILE      (296,299)                                                                           EXECUTE         (301,326)                                                                           P:EXECUTE       (302,308)                                                                           X:EXECUTE       (309,321)                                                                           EX:EXECUTE      (323,325)                                                                           FREE            (1073,1096)                                                                         P:FREE          (1074,1081.001)                                                                     X:FREE          (1083,1089)                                                                         EX:FREE         (1091,1095)                                                                         FILESNIFF       (327,354)                                                                           P:FILESNIFF     (328,341)                                                                           X:FILESNIFF     (342,350)                                                                           EX:FILESNIFF    (351,353)                                                                           HELP            (101,113)                                                                           P:HELP          (102,104)                                                                           X:HELP          (105,108)                                                                           EX:HELP         (109,112)                                                                           GOTO            (410,423)                                                                           P:GOTO          (411,413)                                                                           X:GOTO          (414,420)                                                                           EX:GOTO         (421,422)                                                                           GOODBYE         (355,367)                                                                           P:GOODBYE       (356,360)                                                                           X:GOODBYE       (361,364.25)                                                                        EX:GOODBYE      (365,366)                                                                           SET             (662,730)                                                                           P:SET           (663,667)                                                                           X:SET           (668,722.81)                                                                        EX:SET          (723,729)                                                                           SET:LINELEN     (673,677)                                                                           SET:EDITCHAR    (678,681)                                                                           SET:CONFIRM     (682,686)                                                                           SET:TERSE       (687,691)                                                                           SET:STRCON      (692,696)                                                                           SET:VARCON      (697,700)                                                                           SET:DEFDIM      (701,705)                                                                           SET:PERMFILE    (706,710)                                                                           SET:UNDFLOW     (711,715)                                                                           SET:RESTORE     (716,722.81)                                                                        SAVE            (1097,1122)                                                                         P:SAVE          (1098,1109)                                                                         X:SAVE          (1110,1114)                                                                         EX:SAVE         (1118,1121)                                                                         SINGLESTEP      (567,583)                                                                           P:SINGLESTEP    (568,570.25)                                                                        X:SINGLESTEP    (571,579)                                                                           EX:SINGLESTEP   (580,582)                                                                           SIGNOFF         (368,381)                                                                           P:SIGNOFF       (369,373)                                                                           X:SIGNOFF       (374,378)                                                                           EX:SIGNOFF      (379,380)                                                                           QUIT            (382,395) 
& Ready: 
  s
0 TC07(3480) RACK= 
  FILE=0129, BLK=00001, RCD=00000001, FMT=U  (32767,00080)
  MODE=STR(10), BPI=38000, BPMM=1496.3, RETRY=10
  SNS=01:00402000000E 4B2000000000 000000000000 007000000000
  STATUS:  BLK,DTCHK,RING
& Ready: 
  c fsf
& Ready: 
  r
  LEN=26536
   ڭYUPDATE REQURIED TO CHANGE DISTRIBUTION 2.0 HASP INTO DISTRIBUTION 2.2 HASP ڭ2THE OUTPUT OF THIS WILL COPY SEVERAL FILES INCLUDED BELOW.  SEE PAPER DOCUMENTATION. *ڭTHE MASTER SOURCE FOR THE VARIOUS COPY SECTIONS IS THE MTS VERSION WHICH APPEARS FIRST BELOW ڰTHIS VERSION OF HASP CORRESPONDS TO VERSION 2.3 OF HASP II }OUTPUT FROM ABOVE UPDATE.  THIS IS THE NEW OFFICIAL MASTER FOR HASP. ɸREMOTE TERMINAL CONSOLE PROCESSOR.  COPIED AS 'HRTPCONP.U'. THIS IS THE MTS VERSION OS VERSION hUPDATE TO GO FROM OS HRTPCONP TO MTS HRTPCONP REMOTE TERMINAL ACESS METHOD. COPIED AS 'HRTPRTAM.U'.  THIS IS MTS VERSION OS VERSION  UPDATE TO GO FROM OS VERSION TO MTS VERSION ډMULTI-LEAVING LINE MANAGER. COPIED AS 'HRTPMLLM.U'. THIS IS MTS VERSION ڋOS VERSION ږ8UPDATE TO GO FROM OS VERSION TO MTS VERSION (\INTERFACE TO RTAM.  COPIED AS 'HRTPEXTP.U'. MTS VERSION ڎHOS VERSION ڒ^UPDATE TO GO FROM OS TO MTS VERSION ڧqREMOTE TERMINAL PROGRAM FOR 1130. THIS IS OS VERSION WITH A FEW BUGS FIXED )OS VERSION /UPDATE TO GO FROM 387/16 TO 387/15 &LOADER FOR REMOTE 1130 PROGRAM !OS VERSION WITH A FEW BUGS FIXED ڄOS VERSION _UPDATE TO GO FROM 387/19 TO 387/18 &ڃREMOTE PROGRAM FOR 360'S (BOTH MODEL 20 AND OTHER).  OS VERSION WITH BUGS FIXED. 0OS VERSION QUPDATE TO GO FROM 387/22 TO 387/21 @{BOOTSTRAP LOADER FOR 1130 REMOTE PROGRAM.  THIS IS SIX BINARY CARDS THAT THE HASP @MANUAL TELLS YOU TO HAND PUNCH. @M*****NOTE***** THIS FILE IS REALLY FORMAT FB(4000,160) NOT FB(4000,80) LIKE ALL THE REST. @THE CARDS SHOULD BE COPIED TO *PUNCH*@BIN گyOBJECT ONLY FOR PROGRAM TO CONVERT 1130 PROGRAMS FROM ASMG FORMAT TO FORMAT REQUIRED گFOR LOADING ON THE 1130.  READS SCARDS AND WRITES SPUNCH.  SOURCE IS NOT AVAILABLE. dUPDATE TO GO FROM DIST 2.0 HASPLING TO DIST 2.2 HASPLING. hNEW MASTER SOURCE FOR THE HASPLING. -SEE UPDATE TO MTS MANUAL VOLUME 2 FOR DESCRIPTION.  MODIFICATION OF A UBC PROGRAM. ڡFILES 182/1 THROUGH 182/6 ARE MASTER SOURCE FOR VERSION 3 SNOBOL BLOCKS. ڡTHEY ARE THE SAME AS DISTRIBUTED BY BELL LABS EXCEPT THAT THEY HAVE BEEN SEQUENCED. ڡ*THE UPDATE DECK IN 182/9 IS REQUIRED TO MAKE THIS RUN IN MTS. !mSOURCE FOR A PROGRAM TO PROCESS THE MACRO LIBRARY AND COPY SECTIONS FOR A SNOBOL ASSMEBLY. qOBJECT FOR 182/7.  REQUIRES *PL1LIB  ھ UPDATE DECK AND MTS COMMANDS TO GENERATE A MTS VERSION OF SNOBOL ھTHIS REQUIRES A MASTER TAPE CONSISTING OF 182/1 THROUGH 182/6 AND THE FOLLOWING FILES ھ   MACLEAN   OBJECT FOR MACLEAN  (182/8) ھ   S4        NEW OBJECT DECK ھ   SUBR      NEW SUBROUTINE SOURCE ھ   MACROS1   MACRO LIBRARY ھ   MDATA     COPY SECTION ھ   MLINK     COPY SECTION ھ&   PARMS     COPY SECTION YSOURCE FOR NEW TSFO. THIS IS THE NEW MASTER SOURCE FOR TSFO.  INCLUDES STANDARD AND APL 2GOLFBALLS. ALSO CORRESPONDENCE KEYBOARDS. ۆ  ڵWHEN IT ASNWERS THE PHONE IT ASKS FOR AN "A" TO IDENTIFY THE KEYBORAD TYPE. IF YOU ڵENTER "ANNN" WHERE NNN IS A DEFINED GOLF BALL TYPE THEN IT WILL SET UP FOR THAT GOLFBALL +ڵTYPE.  THE GOLFBALL TYPE CAN BE CHANGED LATER BY A "%GOLF=NNN" DEVICE COMMAND. ڵ  ڵTHERE ARE A FEW OTHER NEW DEVICE COMMANDS WHICH YOU WILL HAVE TO LOOK AT THE LISTING FOR. ڵ  *ڵWHEN YOU CHANGE THE GOLF BALL TYPE YOU ALSO CHANGE THE CHARACTERS USED FOR LINE DELETE, ETC. ڵ<CHARACTERS USED FOR APL ARE  ڵ  DEVICE COMMAND   UP ARROW ڵ-  LITERAL NEXT     RIGHT ARROW ڵ  END OF FILE      DOWN ARROW ڵ  DELETE LINE      UNDERSCORE ڵ=  DELETE CHARACTER BACKSPACE ڵhOF COURSE, WHEN APL ITSELF IS RUNNING THE CHARACTERS ARE AS DEFINED BY APL. THIS SET IS ڵkUSED ONLY WHEN USING THE APL GOLFBALL WITH PROGRAMS OTHER THAN APL. ڵ  ڵwTHERE ARE SEVERAL OTHER CHANGES IN TSFO, NONE OF WHICH CASUSES MAJOR OPERATIONAL  ڵ^DIFFERENCES. t}PROGRAM TO GENERATE TRANSLATE TABLES FOR USE WITH TSFO. IT WAS USED TO GENERATE THE APL tTABLES INCLUDED IN THE DECK DISTRIBUTED, AND CAN VERY EASILY BE USED TO GENERATE ANY tUARBITRARY TRANSLATE TABLE.  LOGICAL I/O UNITS USED ARE t  1         DEFINITION OF NAMES OF CHARACTERS.  SHOULD BE 038/5 !t8  2         DEFINITION OF CHARACTER SET ON THE GOLFBALL.  038/6 THROUGH 038/9 ARE EXAMPLES u  3         DEFINITION OF THE CODE SET BEGIN USED.  SHOULD BE EITHER 038/3 OR 038/4 u  SPRINT    PRINTED OUTPUT  AND ERROR COMMENTS u  SPUNCH    NEW TRANSLATE TABLE u  uTHE PROGRAM DOES EXTENSIVE ERROR CHECKING AND IF ANY OUTPUT OCCURS ON SPUNCH IT IS PROBABLY OK. u  xSEE 038/2 SEE 038/2. THIS IS THE DEFINITION OF THE EBCD CODE SET ڨhSEE 038/2. THIS IS DEFINITION OF CORRESPONDENCE CODE SET. &SEE 038/2. THIS IS THE DEFINITION OF THE NAMES USED FOR CHARACTERS IN THE INPUT. ڹSEE 038/2. THIS IS THE STANDARD EBCD GOLF BALL ] SEE 038/2. THIS IS THE EBCD APL GOLF BALL. IT IS THE SAME AS 038/9. SEE 038/2 CSEE 038/2. THIS IS THE STANDARD CORRESPONDENCE GOLF BALL. (F8SEE 038/2. THIS IS THE CORRESPONDENCE APL GOLF BALL.  IT IS THE SAME AS 038/7 \MACROS FOR SIMULATION OF OS STUFF IN MTS ڗHMACROS TO ASSEMBLE PL1 K^COPY SECTION FOR OS SIMULATION PACKAGE. COPIED BY SEVERAL PARTS OF PL1 SOURCE (163) OqMODULE TO INSERT PATCHES INTO PL1 COMPILER AS IT IS LOADED կSUBROUTINE "FDNAME" NOW IN SEGMENT 2 ڜYES IT REALLY IS A TIOT. S&SIMULATE OS GETMAIN/FREEMAIN WPROCESS DDEF COMMANDS (WOW) ӥSIMULATE OS OPEN LIST OF VARIOUS ROUTINES 10SIMULATE OS CLOSE 5QSIMULATE OS LINK/LOAD/XCTL WITH GOODIES. 9{DO SOMETHING (?) FOR STIMER AND TTIMER yQUIT ONLY IN BATCH FAKE I/O ROUTINES |	INPUT TO 163/36 TO UPDATE THE COMPILER. REQUIRES RELEASE 18.0 OS SOURCE FOR PL1 |-INPUT TO 163/36 TO UPDATE THE LIBRARY.  REQUIRES RELEASE 18.0 OS SOURCE FOR PL1 I/O ROUTINES FOR COMPILER NEXTKEY AND LASTKEY TABLE OF SOMETHING OR OTHER  RUN TIME SUBROUTINE TO CALL CANREPLY YRUN TIME SUBROUTINE }RUN TIME SUBROUTINE RANDOM NUMBER GENERATOR õPROGRAM TO CALL DDEF AT RUN TIME hREPLACEMENT FOR AN IBM SUBR ƿMAIN PROGRAM IF USER DOES NOT GIVE ONE IHEREAD AND IHERITE  RUN TIME SUBR SYSTEM AND ERROR  RUN TIME SUBR 8THE SYSGEN MACRO FOR PL1. \A MAGIC PROGRAM TO UPDATE OS SOURCE TAPES THAT ARE IN SOME FUNNY FORMAT. WRITTEN IN PL1. .HMAY OR MAY NOT BE STANDARD GENLIB |^MAY OR MAY NOT BE STANDARD OBJSCAN qPROGRAM TO SET UP *PL1DIRECTORY FOR THE COMPILER $SUPER-SQUASH FOR PL1 &GO FROM OS LOAD MODULE  TO AN OBJECT MODULE. CALLS 038/43 SUBROUTINE TO READ AN OS UNLOADED DATA SET FOR 038/42 NEW UPDATE DECK FOR ASMG.  MAINLY CHANGES ASMGBUFF.  SAME FORMAT AND MASTER TAPE AS IN DISTRIBUTION 2.0. ,NEW UPDATE DECK FOR WATFOR.  INCLUDES SIZE=N JUNK. SAME FORMAT AND MASTER TAPE AS  ,IN DISTRIBUTION 2.0. |>0UPDATE DECK TO PUT WATFIV INTO MTS. INCLUDES QUITE A BIT MORE THAN UBC VERSION, >PRIMARILY IN THE AREA OF TERMINAL USE OF WATFIV AND DIRECT ACCESS I/O. ?  ?THIS FILE EMPTIES AND FILLS THE FOLLOWING FILES, WHICH MUST ALREADY EXIST. ?         STARTA    COPY SECTION  ?         STARTB    COPY SECTION  ?         COMMR     COPY SECTION ?         SYS       COPY SECTION ?          ACCT      COPY SECTION ?         EXTRN     COPY SECTION ?         ERRTEXTS  COPY SECTION  ?;         CDEFN     COPY SECTION ?         OPTIONS   COPY SECTION  ?         -MAC      WORK FILE 
?@         WAT5.FUNMAC    MACRO LIBRARY ?f         WAT5.OBJECT    NEW OBJECT DECK ?  ?THE FOLLOWING TAPES ARE USED: ?u         S314 (WATFIV SOURCE) - CONTAINS THE RESULT OF *IEHMOVE APPLIED TO WATFIV.SOURCE ON WATBAK ?         S416 (LP UPDATE) - OUTPUT FROM UPDATE ?         S424 (WATFIV LISTING) - ASSEMBLY LISTING ?B  ?THE FOLLOWING FILES ARE USED BUT NOT CHANGED: |?O         WAT5.MACLIB - MACRO LIBRARY WATFIV.MACLIB FROM TAPE WATBAK (UNCHANGED) ?\         WAT5.FIOCS - MTS VERSION OF FIOCS# ?         WAT5.DIOCS - MTS VERSION OF DIOCS# ?4  ?  QMTS VERSION OF FIOCS {MTS VERSION OF DIOCS :yTEST DECKS SET UP FOR USE IN MTS =WATLIB SET UP FOR USE IN MTS &bUPDATE DECK TO GET FORTRANH INTO MTS.  MASTER TAPE IS 298/2 WHICH IS A SUBSET OF |bbRELEASE 18.0 FORTRANH.  MODULES NOT INCLUDED IN 298/1 AND 298/2 ARE NOT CHANGED bOR RECOMPILED IN MTS.  163/42 WAS USED TO GET THEM OUT OF OS. f-MASTER TAPE FOR 298/1 <ǍOBJECT MODULES FOR THOSE PARTS OF FORTRANH UNCHANGED FROM OS.  NO PTF'S ARE  ǐINCLUDED IN THIS FILE. SAME AS 298/3 WITH SEVEN PTF'S INCLUDED. THE PTF'S ARE 40249, 40037, 
40447, 40328, 40267, 40194, AND 40190 <kOBJECT DECK FROM 298/1 AND 298/2 WITH A REP CARD TO CHANGE THE MODEL NUMBER. kINCLUDES AN "MDL ON" CARD ALSO.  THE OBJECT FOR FORTRANH IS 298/12+298/3 o UPDATE DECK TO MAKE PLC CONTROL MODULE RUN IN MTS. CORRESPONDS TO VERSION 4 OF PLC oASSUMES OS VERSION OF ZZSR IS IN FILE "PLC.ZZSR" oCREATES SEVERAL TEMPORARY FILES AS COPY SECTIONS. oPUTS MTS VERSION IN "-INPUT". oPUTS MACRO LIBRARY IN "-MACROS(1000)" WHICH THEN MUST BE USED AS INPUT TO *MACGEN. rYLOADER CONTROL CARDS AND $CONTINUE WITH LINES TO COLLECT OBJECT FOR PLC. r2OTHER PATCH CARDS NEEDED ARE:  r  REP  0005A4  0147F0F014    TAKE OUT PROTECT KLUDGE   (IN ZZSR)    REP  000E9C  01,00010004   ?                         (IN ZZSR)   REP  0005A4  01,D501C7D3C52A  FIX MONTH CHECK        (IN PLCCONT)   REP  00003E  01,1222,4780A0D6,D201C9382002,47000000  FIX PAGE 0 REF (IN PLCRVRS) }NEW MASTER SOURCE FOR TAPE ROUTINES. INCLUDES LABEL AND BLOCKING SUPPORT. SEE THE FOLLOWING MEMOS FOR USER DOCUMENTATION U  M67   OLD TAPE USER'S GUIDE   C149  CHANGES TO M67 8  C196  CHANGES TO M67   C233  CHANGES TO M67   M162  BLOCKING   M163  LABELING   THERE IS AN UNADVERTISED COMMAND TO BYPASS LABEL CHECKING. IT WORKS ONLY WHEN SIGNED &ON AS USER "MTS.".  IF THE COMMAND "NLC" IS GIVEN BEFORE ANY OTHER ACTION ON THE TAPE, THE VOLUME LABEL WILL NOT BE CHECKED.   THERE ARE SEVERAL ASSEMBLY PARAMTERS WHICH ARE DESCRIBED IN "INSTALLATION CHANGE NOTES" *IN THE FIRST PAGE OF THE ASSEMBLY LISTING.   ~NEW UNTI CHECK ROUTINES WHICH ARE REQUIRED FOR NEW TAPE ROUTINES. EXTENSIVE CHANGES &~BINCLUDING COMMAND CHAINING SUPPORT, READ BACKWARD SUPPORT, COMMON ENTRY FOR READ |~AND WRITE, AND MORE CLOSE APPROXIMATION TO IBM RECOMMENDED RECOVERY PROCEDURES. vNEW MASTER FOR *MOUNT REQUIRED FOR NEW TAPE ROUTINES.  ALL THE LABELING AND BLOCKING vPARAMETERS THAT USED TO BE FAKE NOW WORK. THE ASSEMBLY PARAMTERS ARE THE SAME AS BEFORE. zhNEW TAPECOPY MASTER FOR LABELED AND BLOCKED TAPES. THERE IS A "REBLOCK" PARAMETER THAT +zkFORCES TAPECOPY TO TURN BLOCKING ON. OTHERWISE IT TURNS IT OFF FOR EFFICIENCY. NEW MASTER FOR TAPEDUMP.  NO REAL SIGNIFICANT CHANGES. NEW MASTER FOR *FSAVE. OLD ONE WILL NOT WORK ON LABELED TAPES.  SOURCE FOR BOTH USER TAPE LABELING PROGRAM (*LABEL) AND OPERATOR LABELING PROGRAM (*LBL). AS DISTRIBUTED IT ASSEMBLES *LABEL. TO GET *LBL INSERT NEAR THE FRONT "&OPER  SETB 1". FUNNY SUBROUTINE TO SIMULATE THE NEW MTS CONTROL SUBROUTINE (WHICH CALLS A NEW 8TH ENTRY TO A DSR).  NO DISTRIBUTED VERSION OF MTS HAS INCLUDED THIS NEW SUBROUTINE YET, BUT IT IS USED BY *MOUNT, *TAPECOPY, *TAPEDUMP, AND TT.  THIS VERSION OF CONTROL WORKS ONLY FOR MAGNETIC AND PAPER TAPES.  (WHEN THE REAL CONTROL IS DISTRIBUTED ALL NON-MICHIGAN DSRS &&WILL HAVE TO BE CHANGED TO INCLUDE AN 8TH ENTRY OR ZERO IN THE TRANSFER VECTOR.) PROGRAM TO TEST THE TAPE ROUTINES AND DO OTHER FUNNY THINGS. SEE WRITEUP ENCLOSED. {8NEW MASTER FOR *ANALYSIS. UNDERSTANDS MULTI-PROCESSORS AND INCLUDES OTHER CHANGES. D\NEW MASTER FOR STAT JOB.  NEARLY THE SAME AS DISTRIBUTION 2.1 HHEXAMPLE STP2 SUBROUTINE FOR USE WITH *ANALYSIS 
^PROGRAM SENT TO ALBERTA BY KIP MOORE. }qMASTER TAPE FOR VOLUME 1. WRITTEN IN FORMAT FB(13200,132) MPRINT TAPE FOR VOLUME 1.  WRITTEN IN FORMAT FB(13200,132) QINPUT DECK USED TO PRODUCE VOLUME 1, WRITTEN IN FORMAT FB(8000,80) &AN EXAMPLE USED ON PAGE 368 OF VOLUME 1. WRITTEN IN FORMAT FB(13300,133) !\COPY SECTION MISSING FROM DISTRIBUTION 2.0 FOR *LINKEDIT.  WRITTEN IN FORMAT FB(12000,120) \SINCE IT CONTAINS LINES LONGER THAN 80 BYTES UBASIC HELP COMMAND FILE. WRITTEN IN FORMAT FB(10000,100) YCOPY OF DESCRIPTOR FILE FROM DTAPE AND DDCOM (COMMENTS IN SAME FILE). WRITTEN IN *FSAVE YFORMAT. EACH LINE IS HALF WORD LENGTH, FULL WORD LINE NUMBER, AND DATA IN THAT ORDER YAND UNALLIGNED. NO LINE IS SPLIT INTO TWO RECORDS. 0HANDLE THE DELAY STATEMENT AT RUN TIME QPRODUCE NEAT DUMPS OF PL1 PROGRAMS   Y HASP UPDATE                   1 387 U PIRKOLA             MTS:HASP2UPDATES         D2.2 001  99999    } HASP NEW SOURCE               2 387 S PIRKOLA   1         S096 HASP SOURCE         D2.2 002  99998     HASP HRTPCONP                 3 387 S PIRKOLA             MTS:HRTPCONP.U           D2.2 003  99997     HASP HRTPCONP                 4 387 S PIRKOLA             W092:HRTPCONP.S          D2.2 004  99996    h HASP HRTPCONP                 5 387 U PIRKOLA             W092:CONPUPDATES         D2.2 005  99995     HASP HRTPRTAM                 6 387 S PIRKOLA             MTS:HRTPRTAM.U           D2.2 006  99994     HASP HRTPRTAM                 7 387 S PIRKOLA             W092:HRTPRTAM.S          D2.2 007  99993      HASP HRTPRTAM                 8 387 U PIRKOLA             W092:RTAMUPDATES         D2.2 008  99992     HASP HRTPMLLM                 9 387 S PIRKOLA             MTS:HRTPMLLM.U           D2.2 009  99991     HASP HRTPMLLM                10 387 S PIRKOLA             W092:HRTPMLLM.S          D2.2 010  99990    8 HASP HRTPMLLM                11 387 U PIRKOLA             W092:MLLMUPDATES         D2.2 011  99989    \ HASP HRTPEXTP                12 387 S PIRKOLA             MTS:HRTPEXTP.U           D2.2 012  99988    H HASP HRTPEXTP                13 387 S PIRKOLA             W092:HRTPEXTP.S          D2.2 013  99987    ^ HASP HRTPEXTP                14 387 U PIRKOLA             W092:EXTPUPDATES         D2.2 014  99986    q HASP HRTP1130                15 387 S PIRKOLA             MTS:HRTP1130.U           D2.2 015  99985     HASP HRTP1130                16 387 S PIRKOLA             W092:HRTP1130.S          D2.2 016  99984     HASP HRTP1130                17 387 U PIRKOLA             W092:1130UPDATES         D2.2 017  99983    & HASP HRTPLOAD                18 387 S PIRKOLA             MTS:HRTPLOAD.U           D2.2 018  99982     HASP HRTPLOAD                19 387 S PIRKOLA             W092:HRTPLOAD.S          D2.2 019  99981    + HASP HRTPLOAD                20 387 U PIRKOLA             W092:LOADUPDATES         D2.2 020  99980     HASP HRPTB360                21 387 S PIRKOLA             MTS:HRTPB360.U           D2.2 021  99979    0 HASP HRTPB360                22 387 S PIRKOLA             W092:HRTPB360.S          D2.2 022  99978    Q HASP HRPTB360                23 387 U PIRKOLA             W092:B360UPDATES         D2.2 023  99977    ){ HASP RTPBOOT                 24 387 O PIRKOLA             W092:RTPBOOT             D2.2 024  99976    /y LETRRIP                      25 387 O MTA                 MTA:LETRRIP              D2.2 025  99975     HASPLING                      1 388 U PIRKOLA             W092:HASPLUPDATES        D2.2 026  99974     HASPLING                      2 388 S PIRKOLA        HSPL MTS:HASPLING             D2.2 027  99973    _-*HBQ                             486 S PIRKOLA        HBQ0 W092:MYHBQ               D2.2 028  99972    `*SNOBOL4B S4                   1 182 S DE JONG   1         S322 SNOBOL MASTER       D2.2 029  99971  )  ' *SNOBOL4B BLOCKS               2 182 S DE JONG   2         S322 SNOBOL MASTER       D2.2 030  )  Y*SNOBOL4B NEW MACROS           3 182 S DE JONG   3         S322 SNOBOL MASTER       D2.2 031  )  d}*SNOBOL4B BASIC MACROS         4 182 S DE JONG   4         S322 SNOBOL MASTER       D2.2 032  )  h*SNOBOL4B CLEANIO              5 182 S DE JONG   5         S322 SNOBOL MASTER       D2.2 033  )  ݵ*SNOBOL4B SUBR                 6 182 S DE JONG   6         S322 SNOBOL MASTER       D2.2 034    h*SNOBOL4B MACLEAN              7 182 S DE JONG             MTS:MACLEAN              D2.2 035  99970    m*SNOBOL4B MACLEAN              8 182 O DE JONG             W086:MACLEAN             D2.2 036  99969    q*SNOBOL4B UPDATE               9 182 U DE JONG             MTS:SNOBOL.U             D2.2 037  99968      TSFO                          1 038 S EMERY          TSFO W032:TSFOSOUEB221        D2.2 038  99967     TSFO TRTBLGEN                 2 038 S EMERY          TGEN W032:TRTBLGEN(1,999)     D2.2 039  99966    u TSFO KBD2741PTTC              3 038 M EMERY               W032:KBD2741PTTC         D2.2 040  99964    x8 TSFO KBD2741CORR              4 038 M EMERY               W032:KBD2741CORR         D2.2 041  99963    \ TSFO EBCDDEFN                 5 038 M EMERY               W032:EBCDDEFN            D2.2 042  99962    H TSFO GOLFBALL963              6 038 M EMERY               W032:GOLFBALL963         D2.2 043  99961    ^ TSFO GOLFBALL988              7 038 M EMERY               W032:GOLFBALL987         D2.2 044  99960    q TSFO GOLFBALL087              8 038 M EMERY               W032:GOLFBALL087         D2.2 045  99958    ] TSFO GOLFBALL987              9 038 M EMERY               W032:GOLFBALL987         D2.2 046  99957    ׂ*PL1 MACLIB                    1 163 S LBT       1         S260 PL1                 D2.2 047  99956    C&*PL1 MACROS                    2 163 S LBT       2         S260 PL1                 D2.2 048  99955    G*PL1 SAMEQU                    3 163 S LBT       3         S260 PL1                 D2.2 049  99954    *PL1 PATCHER                   4 163 S LBT       4         S260 PL1                 D2.2 050  99953    *PL1 FDNAME                    5 163 S LBT       5         S260 PL1                 D2.2 051  99952    K0*PL1 TIOT                      6 163 S LBT       6         S260 PL1                 D2.2 052  99951    OQ*PL1 GETMAIN/FREEMAIN          7 163 S LBT       7         S260 PL1                 D2.2 053  99950    {*PL1 DDEF                      8 163 S LBT       8         S260 PL1                 D2.2 054  99949    y*PL1 OPEN                      9 163 S LBT       9         S260 PL1                 D2.2 055  99948    S*PL1 ROUT                     10 163 S LBT       10        S260 PL1                 D2.2 056  99947    W*PL1 CLOSE                    11 163 S LBT       11        S260 PL1                 D2.2 057  99946    -*PL1 LOAD                     12 163 S LBT       12        S260 PL1                 D2.2 058  99945    *PL1 STIMER                   13 163 S LBT       13        S260 PL1                 D2.2 059  99944    2*PL1 QUIT                     14 163 S LBT       14        S260 PL1                 D2.2 060  99943    6*PL1 $                        15 163 S LBT       15        S260 PL1                 D2.2 061  99942     *PL1 COMPILER UPDATE          16 163 S LBT       16        S260 PL1                 D2.2 062  99941    Y*PL1 LIBRARY UPDATE           17 163 S LBT       17        S260 PL1                 D2.2 063  99940   }*PL1 UN-QSAM                  18 163 S LBT       18        S260 PL1                 D2.2 064  99939   	*PL1 KEY                      19 163 S LBT       19        S260 PL1                 D2.2 065  99938   ٵ*PL1 ESDLIST                  20 163 S LBT       20        S260 PL1                 D2.2 066  99937   h*PL1 BATCH                    21 163 S LBT       21        S260 PL1                 D2.2 067  99936   *PL1 CPUTIME                  22 163 S LBT       22        S260 PL1                 D2.2 068  99935   *PL1 ELAPSED                  23 163 S LBT       23        S260 PL1                 D2.2 069  99934    *PL1 RAND                     24 163 S LBT       24        S260 PL1                 D2.2 070  99933   *PL1 ATTACH                   25 163 S LBT       25        S260 PL1                 D2.2 071  99932   *PL1 DISPLAY                  26 163 S LBT       26        S260 PL1                 D2.2 072  99931   8*PL1 IHEMAIN                  27 163 S LBT       27        S260 PL1                 D2.2 073  99930   \*PL1 DELAY                    28 163 S LBT       28        S260 PL1                 D2.2 074  99882  ) H*PL1 IHEOST                   29 163 S LBT       29        S260 PL1                 D2.2 075   ^*PL1 READ/WRITE               30 163 S LBT       30        S260 PL1                 D2.2 076  99929   q*PL1 SIGNOFF                  31 163 S LBT       31        S260 PL1                 D2.2 077  99928   *PL1 SYSERR                   32 163 S LBT       32        S260 PL1                 D2.2 078  99927   *PL1 USERID                   33 163 S LBT       33        S260 PL1                 D2.2 079  99926    &*PL1 SNAP                     34 163 S LBT       34        S260 PL1                 D2.2 080  99881   *PL1 SYSGEN                   35 163 S LBT       35        S260 PL1                 D2.2 081  99925   *PL1 IEBUPDAT                 36 163 S LBT       36        S260 PL1                 D2.2 082  99924   *PL1 GENLIB                   37 163 S LBT       37        S260 PL1                 D2.2 083  99923   <*PL1 OBJSCAN                  38 163 S LBT       38        S260 PL1                 D2.2 084  99922   |0*PL1 SETUP DIRECTORY          39 163 S LBT       39        S260 PL1                 D2.2 085  99921   Q*PL1 TRANSLATE TBLS           40 163 S LBT       40        S260 PL1                 D2.2 086  99920   {*PL1 SQUASH                   41 163 S LBT       41        S260 PL1                 D2.2 087  99919   $y*PL1 UNLINK                   42 163 S LBT       42        S260 PL1                 D2.2 088  99918   ¡*PL1 BLKRTN                   43 163 S LBT       43        S260 PL1                 D2.2 089  99917   *ASMG                            066 U MTA                 MTS:ASMG.U               D2.2 090  99916   -*WATFOR                          051 U MTA                 MTS:WATFOR.U             D2.2 091  99915   ,*WATFIV                        1 483 U MTA                 WATF:WAT5.UPD            D2.2 092  99914   ?*WATFIV                        2 483 S MTA            FIOC WATF:WAT5.FIOCS          D2.2 093  99913   *WATFIV                        3 483 S MTA            DIOC WATF:WAT5.DIOCS          D2.2 094  99912    *WATFIV                        4 483 S MTA                 WATF:WAT5.TESTS          D2.2 095  99911   :Y*WATFIV                        5 483 S MTA                 WATF:WAT5.WATLIB(100)    D2.2 096  99910   =}*FORTRANH UPDATE               1 298 U SRODAWA             RON:FTNH.18.UDS          D2.2 097  99909   b*FORTRANH MASTER               2 298 S SRODAWA             RON:FTNH.18.UDIN         D2.2 098  99908   f*FORTRANH OS OBJ               3 298 O SRODAWA             RON:FTNH.18.OSOM         D2.2 099  99907   h*FORTRANH OS OBJ W/ PTF        4 298 O SRODAWA             RON:FTNH.18N.OSM         D2.2 100  99906  ) ߿*FORTRANH PTF                  5 298 O SRODAWA             RON:PTF.40249            D2.2 101  ) k*FORTRANH PTF                  6 298 O SRODAWA             RON:PTF.40037            D2.2 102  ) o *FORTRANH PTF                  7 298 O SRODAWA             RON:PTF.40447            D2.2 103  ) *FORTRANH PTF                  8 298 O SRODAWA             RON:PTF.40328            D2.2 104  ) *FORTRANH PTF                  9 298 O SRODAWA             RON:PTF.40267            D2.2 105  ) ~8*FORTRANH PTF                 10 298 O SRODAWA             RON:PTF.40194            D2.2 106  ) v\*FORTRANH PTF                 11 298 O SRODAWA             RON:PTF.40190            D2.2 107   zH*FORTRANH MTS OBJ             12 298 O SRODAWA             RON:FTNH.18N.MTS         D2.2 108  99905   ^*PLC                           1 485 U SRODAWA             RON:PLC.ZZSR.U           D2.2 109  99904   q*PLC                           2 485 M SRODAWA             RON:PLC.LOAD             D2.2 110  99903    TAPERTN                         135 S WSG            TAPE WSG:TAPE                 D2.2 111  99902    TAPEUC                          012 S MTA            TPUC MTA:TAPEUC               D2.2 112  99901   [*MOUNT                           101 S WSG            MOUN WSG:MOUNT                D2.2 113  99900   ]**TAPECOPY                        358 S WSG            TCPY WSG:TAPECOPY(1,999)      D2.2 114  99899   ]{*TAPEDUMP                        414 S WSG            TDMP WSG:TAPEDUMP(1,999)      D2.2 115  99898   *FSAVE                           392 S MTA            FSAV MTA:FSAVE.S              D2.2 116  99897   h*LABEL AND *LBL                  487 S WSG            LBL0 WSG:LABEL(1,999)         D2.2 117  99896   k CONTROL                         488 S WSG            CTRL WSG:CONTROL(1,999)       D2.2 118  99895    TT                              489 S WSG            TT00 WSG:TT(1,999)            D2.2 119  99894   &*ANALYSIS                        140 S KIP            ANAL W091:ANALSOU             D2.2 120  99893   A STATJOB                         079 S KIP            STAT W091:STATSOU             D2.2 121  99892   E STP2                                S KIP            STP2 W091:STP2SOU             D2.2 122  99891   I HISTOGRAM                           S KIP            HIST W091:HISTOSOU            D2.2 123  99890     VOLUME 1 MASTER               1 XXX M                     # FB(13200,132)                    99889    VOLUME 1 PRINT                2 XXX M                     # FB(13200,132)                    99888    VOLUME 1 INPUT                3 XXX M                     # FB(8000,80)                      99887   (8 VOMUME 1 DUMP EXAMPLE         4 XXX M                     # FB(13300,133)                    99886   \ LNK.COM                         297 S SRODAWA             # FB(12000,120)                    99885   H*BASICHELPC                      484 S EJF                 # FB(10000,100)                    99884   ^ D2.2DESCR                       XXX M MTA                 # FSAVE FORMAT                     99883 
& Ready: 
  r
  *** RC=004
& Ready: 
  c posn *130*
& Ready: 
  s
0 TC07(3480) RACK= 
  FILE=0130, BLK=00000, RCD=00000000, FMT=U  (32767,00080)
  MODE=STR(10), BPI=38000, BPMM=1496.3, RETRY=10
  SNS=01:00402000000E 592000000000 000000000000 007000000000
  STATUS:  BLK,DTCHK,RING
& Ready: 
 #00:53:41  T=0.149  $0.08 
 #c *out* -lastfile
 #ed -lastfile
 :v
 :p
 :     1      ڭYUPDATE REQURIED TO CHANGE DISTRIBUTION 2.0 HASP INTO DISTRIBUTION 2.2 HASP ڭ2THE OUTPUT OF THIS WILL COPY SEVERAL FILES INCLUDED BELOW.  SEE PAPER DOCUMENTATION. *ڭTHE MASTER SOURCE FOR THE VARIOUS COPY SECTIONS IS THE MTS VERSION 
 -           WHICH APPEARS FIRST BELOW ڰTHIS VERSION OF HASP CORRESPONDS TO VERSION 2.3 OF HASP II }OUTPUT FROM ABOVE UPDATE.  THIS IS THE NEW OFFICIAL MASTER FOR HASP. ɸREMOTE TERMINAL CONSOLE PROCESSOR.  COPIED AS 'HRTPCONP.U'. THIS IS THE MT
 -           S VERSION OS VERSION hUPDATE TO GO FROM OS HRTPCONP TO MTS HRTPCONP REMOTE TERMINAL ACESS METHOD. COPIED AS 'HRTPRTAM.U'.  THIS IS MTS VERSION OS VERSION  UPDATE TO GO FROM OS VERSION TO MTS VERSION ډMULTI-LEAVING LI
 -           NE MANAGER. COPIED AS 'HRTPMLLM.U'. THIS IS MTS VERSION ڋOS VERSION ږ8UPDATE TO GO FROM OS VERSION TO MTS VERSION (\INTERFACE TO RTAM.  COPIED AS 'HRTPEXTP.U'. MTS VERSION ڎHOS VERSION ڒ^UPDATE TO GO FROM OS TO MTS VERSION ڧ
 -           qREMOTE TERMINAL PROGRAM FOR 1130. THIS IS OS VERSION WITH A FEW BUGS FIXED )OS VERSION /UPDATE TO GO FROM 387/16 TO 387/15 &LOADER FOR REMOTE 1130 PROGRAM !OS VERSION WITH A FEW BUGS FIXED ڄOS VERSION _UPDATE TO GO FRO
 -           M 387/19 TO 387/18 &ڃREMOTE PROGRAM FOR 360'S (BOTH MODEL 20 AND OTHER).  OS VERSION WITH BUGS FIXED. 0OS VERSION QUPDATE TO GO FROM 387/22 TO 387/21 @{BOOTSTRAP LOADER FOR 1130 REMOTE PROGRAM.  THIS IS SIX BINARY CARDS THAT THE 
 -           HASP @MANUAL TELLS YOU TO HAND PUNCH. @M*****NOTE***** THIS FILE IS REALLY FORMAT FB(4000,160) NOT FB(4000,80) LIKE ALL THE REST. @THE CARDS SHOULD BE COPIED TO *PUNCH*@BIN گyOBJECT ONLY FOR PROGRAM TO CONVERT 1130 PROGRAMS FROM 
 -           ASMG FORMAT TO FORMAT REQUIRED گFOR LOADING ON THE 1130.  READS SCARDS AND WRITES SPUNCH.  SOURCE IS NOT AVAILABLE. dUPDATE TO GO FROM DIST 2.0 HASPLING TO DIST 2.2 HASPLING. hNEW MASTER SOURCE FOR THE HASPLING. -SEE UPDATE TO 
 -           MTS MANUAL VOLUME 2 FOR DESCRIPTION.  MODIFICATION OF A UBC PROGRAM. ڡFILES 182/1 THROUGH 182/6 ARE MASTER SOURCE FOR VERSION 3 SNOBOL BLOCKS. ڡTHEY ARE THE SAME AS DISTRIBUTED BY BELL LABS EXCEPT THAT THEY HAVE BEEN SEQUENCED. ڡ*TH
 -           E UPDATE DECK IN 182/9 IS REQUIRED TO MAKE THIS RUN IN MTS. !mSOURCE FOR A PROGRAM TO PROCESS THE MACRO LIBRARY AND COPY SECTIONS FOR A SNOBOL ASSMEBLY. qOBJECT FOR 182/7.  REQUIRES *PL1LIB  ھ UPDATE DECK AND MTS COMMANDS TO GENERATE 
 -           A MTS VERSION OF SNOBOL ھTHIS REQUIRES A MASTER TAPE CONSISTING OF 182/1 THROUGH 182/6 AND THE FOLLOWING FILES ھ   MACLEAN   OBJECT FOR MACLEAN  (182/8) ھ   S4        NEW OBJECT DECK ھ   SUBR      NEW SUBROUTINE SOURCE ھ 
 -           MACROS1   MACRO LIBRARY ھ   MDATA     COPY SECTION ھ   MLINK     COPY SECTION ھ&   PARMS     COPY SECTION YSOURCE FOR NEW TSFO. THIS IS THE NEW MASTER SOURCE FOR TSFO.  INCLUDES STANDARD AND APL 2GOLFBALLS. ALSO CORRESPONDEN
 -           CE KEYBOARDS. ۆ  ڵWHEN IT ASNWERS THE PHONE IT ASKS FOR AN "A" TO IDENTIFY THE KEYBORAD TYPE. IF YOU ڵENTER "ANNN" WHERE NNN IS A DEFINED GOLF BALL TYPE THEN IT WILL SET UP FOR THAT GOLFBALL +ڵTYPE.  THE GOLFBALL TYPE CAN BE CHA
 -           NGED LATER BY A "%GOLF=NNN" DEVICE COMMAND. ڵ  ڵTHERE ARE A FEW OTHER NEW DEVICE COMMANDS WHICH YOU WILL HAVE TO LOOK AT THE LISTING FOR. ڵ  *ڵWHEN YOU CHANGE THE GOLF BALL TYPE YOU ALSO CHANGE THE CHARACTERS USED FOR LINE DELET
 -           E, ETC. ڵ<CHARACTERS USED FOR APL ARE  ڵ  DEVICE COMMAND   UP ARROW ڵ-  LITERAL NEXT     RIGHT ARROW ڵ  END OF FILE      DOWN ARROW ڵ  DELETE LINE      UNDERSCORE ڵ=  DELETE CHARACTER BACKSPACE ڵhOF COURSE, WHEN APL ITS
 -           ELF IS RUNNING THE CHARACTERS ARE AS DEFINED BY APL. THIS SET IS ڵkUSED ONLY WHEN USING THE APL GOLFBALL WITH PROGRAMS OTHER THAN APL. ڵ  ڵwTHERE ARE SEVERAL OTHER CHANGES IN TSFO, NONE OF WHICH CASUSES MAJOR OPERATIONAL  ڵ^DIFFER
 -           ENCES. t}PROGRAM TO GENERATE TRANSLATE TABLES FOR USE WITH TSFO. IT WAS USED TO GENERATE THE APL tTABLES INCLUDED IN THE DECK DISTRIBUTED, AND CAN VERY EASILY BE USED TO GENERATE ANY tUARBITRARY TRANSLATE TABLE.  LOGICAL I/O UNITS US
 -           ED ARE t  1         DEFINITION OF NAMES OF CHARACTERS.  SHOULD BE 038/5 !t8  2         DEFINITION OF CHARACTER SET ON THE GOLFBALL.  038/6 THROUGH 038/9 ARE EXAMPLES u  3         DEFINITION OF THE CODE SET BEGIN USED.  SHOULD BE EITH
 -           ER 038/3 OR 038/4 u  SPRINT    PRINTED OUTPUT  AND ERROR COMMENTS u  SPUNCH    NEW TRANSLATE TABLE u  uTHE PROGRAM DOES EXTENSIVE ERROR CHECKING AND IF ANY OUTPUT OCCURS ON SPUNCH IT IS PROBABLY OK. u  xSEE 038/2 S
 -           EE 038/2. THIS IS THE DEFINITION OF THE EBCD CODE SET ڨhSEE 038/2. THIS IS DEFINITION OF CORRESPONDENCE CODE SET. &SEE 038/2. THIS IS THE DEFINITION OF THE NAMES USED FOR CHARACTERS IN THE INPUT. ڹSEE 038/2. THIS IS THE STANDARD EBC
 -           D GOLF BALL ] SEE 038/2. THIS IS THE EBCD APL GOLF BALL. IT IS THE SAME AS 038/9. SEE 038/2 CSEE 038/2. THIS IS THE STANDARD CORRESPONDENCE GOLF BALL. (F8SEE 038/2. THIS IS THE CORRESPONDENCE APL GOLF BALL.  IT IS THE SAME AS 038
 -           /7 \MACROS FOR SIMULATION OF OS STUFF IN MTS ڗHMACROS TO ASSEMBLE PL1 K^COPY SECTION FOR OS SIMULATION PACKAGE. COPIED BY SEVERAL PARTS OF PL1 SOURCE (163) OqMODULE TO INSERT PATCHES INTO PL1 COMPILER AS IT IS LOADED կSUBROUTI
 -           NE "FDNAME" NOW IN SEGMENT 2 ڜYES IT REALLY IS A TIOT. S&SIMULATE OS GETMAIN/FREEMAIN WPROCESS DDEF COMMANDS (WOW) ӥSIMULATE OS OPEN LIST OF VARIOUS ROUTINES 10SIMULATE OS CLOSE 5QSIMULATE OS LINK/LOAD/XCTL WITH GOODI
 -           ES. 9{DO SOMETHING (?) FOR STIMER AND TTIMER yQUIT ONLY IN BATCH FAKE I/O ROUTINES |	INPUT TO 163/36 TO UPDATE THE COMPILER. REQUIRES RELEASE 18.0 OS SOURCE FOR PL1 |-INPUT TO 163/36 TO UPDATE THE LIBRARY.  REQUIRES RELEASE 1
 -           8.0 OS SOURCE FOR PL1 I/O ROUTINES FOR COMPILER NEXTKEY AND LASTKEY TABLE OF SOMETHING OR OTHER  RUN TIME SUBROUTINE TO CALL CANREPLY YRUN TIME SUBROUTINE }RUN TIME SUBROUTINE RANDOM NUMBER GENERATOR õPROGRA
 -           M TO CALL DDEF AT RUN TIME hREPLACEMENT FOR AN IBM SUBR ƿMAIN PROGRAM IF USER DOES NOT GIVE ONE IHEREAD AND IHERITE  RUN TIME SUBR SYSTEM AND ERROR  RUN TIME SUBR 8THE SYSGEN MACRO FOR PL1. \A MAGIC PROGRAM TO
 -            UPDATE OS SOURCE TAPES THAT ARE IN SOME FUNNY FORMAT. WRITTEN IN PL1. .HMAY OR MAY NOT BE STANDARD GENLIB |^MAY OR MAY NOT BE STANDARD OBJSCAN qPROGRAM TO SET UP *PL1DIRECTORY FOR THE COMPILER $SUPER-SQUASH FOR PL1 &GO 
 -           FROM OS LOAD MODULE  TO AN OBJECT MODULE. CALLS 038/43 SUBROUTINE TO READ AN OS UNLOADED DATA SET FOR 038/42 NEW UPDATE DECK FOR ASMG.  MAINLY CHANGES ASMGBUFF.  SAME FORMAT AND MASTER TAPE AS IN DISTRIBUTION 2.0. ,NEW UPDAT
 -           E DECK FOR WATFOR.  INCLUDES SIZE=N JUNK. SAME FORMAT AND MASTER TAPE AS  ,IN DISTRIBUTION 2.0. |>0UPDATE DECK TO PUT WATFIV INTO MTS. INCLUDES QUITE A BIT MORE THAN UBC VERSION, >PRIMARILY IN THE AREA OF TERMINAL USE OF WATFIV AND D
 -           IRECT ACCESS I/O. ?  ?THIS FILE EMPTIES AND FILLS THE FOLLOWING FILES, WHICH MUST ALREADY EXIST. ?         STARTA    COPY SECTION  ?         STARTB    COPY SECTION  ?         COMMR     COPY SECTION ?         SYS       C
 -           OPY SECTION ?          ACCT      COPY SECTION ?         EXTRN     COPY SECTION ?         ERRTEXTS  COPY SECTION  ?;         CDEFN     COPY SECTION ?         OPTIONS   COPY SECTION  ?         -MAC      WORK FILE 
?@ 
 -               WAT5.FUNMAC    MACRO LIBRARY ?f         WAT5.OBJECT    NEW OBJECT DECK ?  ?THE FOLLOWING TAPES ARE USED: ?u         S314 (WATFIV SOURCE) - CONTAINS THE RESULT OF *IEHMOVE APPLIED TO WATFIV.SOURCE ON WATBAK ?         S416 
 -           (LP UPDATE) - OUTPUT FROM UPDATE ?         S424 (WATFIV LISTING) - ASSEMBLY LISTING ?B  ?THE FOLLOWING FILES ARE USED BUT NOT CHANGED: |?O         WAT5.MACLIB - MACRO LIBRARY WATFIV.MACLIB FROM TAPE WATBAK (UNCHANGED) ?\ 
 -             WAT5.FIOCS - MTS VERSION OF FIOCS# ?         WAT5.DIOCS - MTS VERSION OF DIOCS# ?4  ?  QMTS VERSION OF FIOCS {MTS VERSION OF DIOCS :yTEST DECKS SET UP FOR USE IN MTS =WATLIB SET UP FOR USE IN MTS &bUPDATE DECK TO
 -            GET FORTRANH INTO MTS.  MASTER TAPE IS 298/2 WHICH IS A SUBSET OF |bbRELEASE 18.0 FORTRANH.  MODULES NOT INCLUDED IN 298/1 AND 298/2 ARE NOT CHANGED bOR RECOMPILED IN MTS.  163/42 WAS USED TO GET THEM OUT OF OS. f-MASTER TAPE FOR 298
 -           /1 <ǍOBJECT MODULES FOR THOSE PARTS OF FORTRANH UNCHANGED FROM OS.  NO PTF'S ARE  ǐINCLUDED IN THIS FILE. SAME AS 298/3 WITH SEVEN PTF'S INCLUDED. THE PTF'S ARE 40249, 40037, 
40447, 40328, 40267, 40194, AND 40190 <kOBJECT D
 -           ECK FROM 298/1 AND 298/2 WITH A REP CARD TO CHANGE THE MODEL NUMBER. kINCLUDES AN "MDL ON" CARD ALSO.  THE OBJECT FOR FORTRANH IS 298/12+298/3 o UPDATE DECK TO MAKE PLC CONTROL MODULE RUN IN MTS. CORRESPONDS TO VERSION 4 OF PLC oASS
 -           UMES OS VERSION OF ZZSR IS IN FILE "PLC.ZZSR" oCREATES SEVERAL TEMPORARY FILES AS COPY SECTIONS. oPUTS MTS VERSION IN "-INPUT". oPUTS MACRO LIBRARY IN "-MACROS(1000)" WHICH THEN MUST BE USED AS INPUT TO *MACGEN. rYLOADER CONTROL
 -            CARDS AND $CONTINUE WITH LINES TO COLLECT OBJECT FOR PLC. r2OTHER PATCH CARDS NEEDED ARE:  r  REP  0005A4  0147F0F014    TAKE OUT PROTECT KLUDGE   (IN ZZSR)    REP  000E9C  01,00010004   ?                         (IN ZZSR)   RE
 -           P  0005A4  01,D501C7D3C52A  FIX MONTH CHECK        (IN PLCCONT)   REP  00003E  01,1222,4780A0D6,D201C9382002,47000000  FIX PAGE 0 REF (IN PLCRVRS) }NEW MASTER SOURCE FOR TAPE ROUTINES. INCLUDES LABEL AND BLOCKING SUPPORT. SEE THE 
 -           FOLLOWING MEMOS FOR USER DOCUMENTATION U  M67   OLD TAPE USER'S GUIDE   C149  CHANGES TO M67 8  C196  CHANGES TO M67   C233  CHANGES TO M67   M162  BLOCKING   M163  LABELING   THERE IS AN UNADVERTISED COM
 -           MAND TO BYPASS LABEL CHECKING. IT WORKS ONLY WHEN SIGNED &ON AS USER "MTS.".  IF THE COMMAND "NLC" IS GIVEN BEFORE ANY OTHER ACTION ON THE TAPE, THE VOLUME LABEL WILL NOT BE CHECKED.   THERE ARE SEVERAL ASSEMBLY PARAMTERS WH
 -           ICH ARE DESCRIBED IN "INSTALLATION CHANGE NOTES" *IN THE FIRST PAGE OF THE ASSEMBLY LISTING.   ~NEW UNTI CHECK ROUTINES WHICH ARE REQUIRED FOR NEW TAPE ROUTINES. EXTENSIVE CHANGES &~BINCLUDING COMMAND CHAINING SUPPORT, READ BACK
 -           WARD SUPPORT, COMMON ENTRY FOR READ |~AND WRITE, AND MORE CLOSE APPROXIMATION TO IBM RECOMMENDED RECOVERY PROCEDURES. vNEW MASTER FOR *MOUNT REQUIRED FOR NEW TAPE ROUTINES.  ALL THE LABELING AND BLOCKING vPARAMETERS THAT USED TO BE 
 -           FAKE NOW WORK. THE ASSEMBLY PARAMTERS ARE THE SAME AS BEFORE. zhNEW TAPECOPY MASTER FOR LABELED AND BLOCKED TAPES. THERE IS A "REBLOCK" PARAMETER THAT +zkFORCES TAPECOPY TO TURN BLOCKING ON. OTHERWISE IT TURNS IT OFF FOR EFFICIENCY. 
 -           NEW MASTER FOR TAPEDUMP.  NO REAL SIGNIFICANT CHANGES. NEW MASTER FOR *FSAVE. OLD ONE WILL NOT WORK ON LABELED TAPES.  SOURCE FOR BOTH USER TAPE LABELING PROGRAM (*LABEL) AND OPERATOR LABELING PROGRAM (*LBL). AS DISTRIBUTED IT AS
 -           SEMBLES *LABEL. TO GET *LBL INSERT NEAR THE FRONT "&OPER  SETB 1". FUNNY SUBROUTINE TO SIMULATE THE NEW MTS CONTROL SUBROUTINE (WHICH CALLS A NEW 8TH ENTRY TO A DSR).  NO DISTRIBUTED VERSION OF MTS HAS INCLUDED THIS NEW SUBROUTINE YE
 -           T, BUT IT IS USED BY *MOUNT, *TAPECOPY, *TAPEDUMP, AND TT.  THIS VERSION OF CONTROL WORKS ONLY FOR MAGNETIC AND PAPER TAPES.  (WHEN THE REAL CONTROL IS DISTRIBUTED ALL NON-MICHIGAN DSRS &&WILL HAVE TO BE CHANGED TO INCLUDE AN 8TH 
 -           ENTRY OR ZERO IN THE TRANSFER VECTOR.) PROGRAM TO TEST THE TAPE ROUTINES AND DO OTHER FUNNY THINGS. SEE WRITEUP ENCLOSED. {8NEW MASTER FOR *ANALYSIS. UNDERSTANDS MULTI-PROCESSORS AND INCLUDES OTHER CHANGES. D\NEW MASTER FOR STAT JOB
 -           .  NEARLY THE SAME AS DISTRIBUTION 2.1 HHEXAMPLE STP2 SUBROUTINE FOR USE WITH *ANALYSIS 
^PROGRAM SENT TO ALBERTA BY KIP MOORE. }qMASTER TAPE FOR VOLUME 1. WRITTEN IN FORMAT FB(13200,132) MPRINT TAPE FOR VOLUME 1.  WRITTEN IN FORM
 -           AT FB(13200,132) QINPUT DECK USED TO PRODUCE VOLUME 1, WRITTEN IN FORMAT FB(8000,80) &AN EXAMPLE USED ON PAGE 368 OF VOLUME 1. WRITTEN IN FORMAT FB(13300,133) !\COPY SECTION MISSING FROM DISTRIBUTION 2.0 FOR *LINKEDIT.  WRITTEN IN F
 -           ORMAT FB(12000,120) \SINCE IT CONTAINS LINES LONGER THAN 80 BYTES UBASIC HELP COMMAND FILE. WRITTEN IN FORMAT FB(10000,100) YCOPY OF DESCRIPTOR FILE FROM DTAPE AND DDCOM (COMMENTS IN SAME FILE). WRITTEN IN *FSAVE YFORMAT. EACH 
 -           LINE IS HALF WORD LENGTH, FULL WORD LINE NUMBER, AND DATA IN THAT ORDER YAND UNALLIGNED. NO LINE IS SPLIT INTO TWO RECORDS. 0HANDLE THE DELAY STATEMENT AT RUN TIME QPRODUCE NEAT DUMPS OF PL1 PROGRAMS   Y HASP UPDATE 
 -                1 387 U PIRKOLA             MTS:HASP2UPDATES         D2.2 001  99999    } HASP NEW SOURCE               2 387 S PIRKOLA   1         S096 HASP SOURCE         D2.2 002  99998     HASP HRTPCONP                 3 387 S PIRKOLA 
 -             MTS:HRTPCONP.U           D2.2 003  99997     HASP HRTPCONP                 4 387 S PIRKOLA             W092:HRTPCONP.S          D2.2 004  99996    h HASP HRTPCONP                 5 387 U PIRKOLA             W092:CONPUPDATES         D2.2
 -            005  99995     HASP HRTPRTAM                 6 387 S PIRKOLA             MTS:HRTPRTAM.U           D2.2 006  99994     HASP HRTPRTAM                 7 387 S PIRKOLA             W092:HRTPRTAM.S          D2.2 007  99993      HASP HRTPRTA
 -           M                 8 387 U PIRKOLA             W092:RTAMUPDATES         D2.2 008  99992     HASP HRTPMLLM                 9 387 S PIRKOLA             MTS:HRTPMLLM.U           D2.2 009  99991     HASP HRTPMLLM                10 387 S PIRKO
 -           LA             W092:HRTPMLLM.S          D2.2 010  99990    8 HASP HRTPMLLM                11 387 U PIRKOLA             W092:MLLMUPDATES         D2.2 011  99989    \ HASP HRTPEXTP                12 387 S PIRKOLA             MTS:HRTPEXTP.U 
 -                    D2.2 012  99988    H HASP HRTPEXTP                13 387 S PIRKOLA             W092:HRTPEXTP.S          D2.2 013  99987    ^ HASP HRTPEXTP                14 387 U PIRKOLA             W092:EXTPUPDATES         D2.2 014  99986    q
 -            HASP HRTP1130                15 387 S PIRKOLA             MTS:HRTP1130.U           D2.2 015  99985     HASP HRTP1130                16 387 S PIRKOLA             W092:HRTP1130.S          D2.2 016  99984     HASP HRTP1130                1
 -           7 387 U PIRKOLA             W092:1130UPDATES         D2.2 017  99983    & HASP HRTPLOAD                18 387 S PIRKOLA             MTS:HRTPLOAD.U           D2.2 018  99982     HASP HRTPLOAD                19 387 S PIRKOLA             W09
 -           2:HRTPLOAD.S          D2.2 019  99981    + HASP HRTPLOAD                20 387 U PIRKOLA             W092:LOADUPDATES         D2.2 020  99980     HASP HRPTB360                21 387 S PIRKOLA             MTS:HRTPB360.U           D2.2 021 
 -            99979    0 HASP HRTPB360                22 387 S PIRKOLA             W092:HRTPB360.S          D2.2 022  99978    Q HASP HRPTB360                23 387 U PIRKOLA             W092:B360UPDATES         D2.2 023  99977    ){ HASP RTPBOOT 
 -                       24 387 O PIRKOLA             W092:RTPBOOT             D2.2 024  99976    /y LETRRIP                      25 387 O MTA                 MTA:LETRRIP              D2.2 025  99975     HASPLING                      1 388 U PIRKOLA 
 -                     W092:HASPLUPDATES        D2.2 026  99974     HASPLING                      2 388 S PIRKOLA        HSPL MTS:HASPLING             D2.2 027  99973    _-*HBQ                             486 S PIRKOLA        HBQ0 W092:MYHBQ 
 -               D2.2 028  99972    `*SNOBOL4B S4                   1 182 S DE JONG   1         S322 SNOBOL MASTER       D2.2 029  99971  )  ' *SNOBOL4B BLOCKS               2 182 S DE JONG   2         S322 SNOBOL MASTER       D2.2 030  )  Y*SNOBOL4B NE
 -           W MACROS           3 182 S DE JONG   3         S322 SNOBOL MASTER       D2.2 031  )  d}*SNOBOL4B BASIC MACROS         4 182 S DE JONG   4         S322 SNOBOL MASTER       D2.2 032  )  h*SNOBOL4B CLEANIO              5 182 S DE JONG   5 
 -             S322 SNOBOL MASTER       D2.2 033  )  ݵ*SNOBOL4B SUBR                 6 182 S DE JONG   6         S322 SNOBOL MASTER       D2.2 034    h*SNOBOL4B MACLEAN              7 182 S DE JONG             MTS:MACLEAN              D2.2 035  99970  
 -             m*SNOBOL4B MACLEAN              8 182 O DE JONG             W086:MACLEAN             D2.2 036  99969    q*SNOBOL4B UPDATE               9 182 U DE JONG             MTS:SNOBOL.U             D2.2 037  99968      TSFO 
 -               1 038 S EMERY          TSFO W032:TSFOSOUEB221        D2.2 038  99967     TSFO TRTBLGEN                 2 038 S EMERY          TGEN W032:TRTBLGEN(1,999)     D2.2 039  99966    u TSFO KBD2741PTTC              3 038 M EMERY 
 -            W032:KBD2741PTTC         D2.2 040  99964    x8 TSFO KBD2741CORR              4 038 M EMERY               W032:KBD2741CORR         D2.2 041  99963    \ TSFO EBCDDEFN                 5 038 M EMERY               W032:EBCDDEFN            D2.2 
 -           042  99962    H TSFO GOLFBALL963              6 038 M EMERY               W032:GOLFBALL963         D2.2 043  99961    ^ TSFO GOLFBALL988              7 038 M EMERY               W032:GOLFBALL987         D2.2 044  99960    q TSFO GOLFBALL
 -           087              8 038 M EMERY               W032:GOLFBALL087         D2.2 045  99958    ] TSFO GOLFBALL987              9 038 M EMERY               W032:GOLFBALL987         D2.2 046  99957    ׂ*PL1 MACLIB                    1 163 S LBT 
 -               1         S260 PL1                 D2.2 047  99956    C&*PL1 MACROS                    2 163 S LBT       2         S260 PL1                 D2.2 048  99955    G*PL1 SAMEQU                    3 163 S LBT       3         S260 PL1 
 -                   D2.2 049  99954    *PL1 PATCHER                   4 163 S LBT       4         S260 PL1                 D2.2 050  99953    *PL1 FDNAME                    5 163 S LBT       5         S260 PL1                 D2.2 051  99952    K0*
 -           PL1 TIOT                      6 163 S LBT       6         S260 PL1                 D2.2 052  99951    OQ*PL1 GETMAIN/FREEMAIN          7 163 S LBT       7         S260 PL1                 D2.2 053  99950    {*PL1 DDEF                      8
 -            163 S LBT       8         S260 PL1                 D2.2 054  99949    y*PL1 OPEN                      9 163 S LBT       9         S260 PL1                 D2.2 055  99948    S*PL1 ROUT                     10 163 S LBT       10        S260
 -            PL1                 D2.2 056  99947    W*PL1 CLOSE                    11 163 S LBT       11        S260 PL1                 D2.2 057  99946    -*PL1 LOAD                     12 163 S LBT       12        S260 PL1                 D2.2 058 
 -           99945    *PL1 STIMER                   13 163 S LBT       13        S260 PL1                 D2.2 059  99944    2*PL1 QUIT                     14 163 S LBT       14        S260 PL1                 D2.2 060  99943    6*PL1 $ 
 -                      15 163 S LBT       15        S260 PL1                 D2.2 061  99942     *PL1 COMPILER UPDATE          16 163 S LBT       16        S260 PL1                 D2.2 062  99941    Y*PL1 LIBRARY UPDATE           17 163 S LBT       1
 -           7        S260 PL1                 D2.2 063  99940   }*PL1 UN-QSAM                  18 163 S LBT       18        S260 PL1                 D2.2 064  99939   	*PL1 KEY                      19 163 S LBT       19        S260 PL1 
 -              D2.2 065  99938   ٵ*PL1 ESDLIST                  20 163 S LBT       20        S260 PL1                 D2.2 066  99937   h*PL1 BATCH                    21 163 S LBT       21        S260 PL1                 D2.2 067  99936   *PL1 C
 -           PUTIME                  22 163 S LBT       22        S260 PL1                 D2.2 068  99935   *PL1 ELAPSED                  23 163 S LBT       23        S260 PL1                 D2.2 069  99934    *PL1 RAND                     24 163 
 -           S LBT       24        S260 PL1                 D2.2 070  99933   *PL1 ATTACH                   25 163 S LBT       25        S260 PL1                 D2.2 071  99932   *PL1 DISPLAY                  26 163 S LBT       26        S260 PL1 
 -                           D2.2 072  99931   8*PL1 IHEMAIN                  27 163 S LBT       27        S260 PL1                 D2.2 073  99930   \*PL1 DELAY                    28 163 S LBT       28        S260 PL1                 D2.2 074  99882
 -             ) H*PL1 IHEOST                   29 163 S LBT       29        S260 PL1                 D2.2 075   ^*PL1 READ/WRITE               30 163 S LBT       30        S260 PL1                 D2.2 076  99929   q*PL1 SIGNOFF                  3
 -           1 163 S LBT       31        S260 PL1                 D2.2 077  99928   *PL1 SYSERR                   32 163 S LBT       32        S260 PL1                 D2.2 078  99927   *PL1 USERID                   33 163 S LBT       33        S26
 -           0 PL1                 D2.2 079  99926    &*PL1 SNAP                     34 163 S LBT       34        S260 PL1                 D2.2 080  99881   *PL1 SYSGEN                   35 163 S LBT       35        S260 PL1                 D2.2 081 
 -            99925   *PL1 IEBUPDAT                 36 163 S LBT       36        S260 PL1                 D2.2 082  99924   *PL1 GENLIB                   37 163 S LBT       37        S260 PL1                 D2.2 083  99923   <*PL1 OBJSCAN 
 -                       38 163 S LBT       38        S260 PL1                 D2.2 084  99922   |0*PL1 SETUP DIRECTORY          39 163 S LBT       39        S260 PL1                 D2.2 085  99921   Q*PL1 TRANSLATE TBLS           40 163 S LBT 
 -           40        S260 PL1                 D2.2 086  99920   {*PL1 SQUASH                   41 163 S LBT       41        S260 PL1                 D2.2 087  99919   $y*PL1 UNLINK                   42 163 S LBT       42        S260 PL1 
 -               D2.2 088  99918   ¡*PL1 BLKRTN                   43 163 S LBT       43        S260 PL1                 D2.2 089  99917   *ASMG                            066 U MTA                 MTS:ASMG.U               D2.2 090  99916   -*WATF
 -           OR                          051 U MTA                 MTS:WATFOR.U             D2.2 091  99915   ,*WATFIV                        1 483 U MTA                 WATF:WAT5.UPD            D2.2 092  99914   ?*WATFIV                        2 483
 -            S MTA            FIOC WATF:WAT5.FIOCS          D2.2 093  99913   *WATFIV                        3 483 S MTA            DIOC WATF:WAT5.DIOCS          D2.2 094  99912    *WATFIV                        4 483 S MTA                 WATF:WAT
 -           5.TESTS          D2.2 095  99911   :Y*WATFIV                        5 483 S MTA                 WATF:WAT5.WATLIB(100)    D2.2 096  99910   =}*FORTRANH UPDATE               1 298 U SRODAWA             RON:FTNH.18.UDS          D2.2 097  9990
 -           9   b*FORTRANH MASTER               2 298 S SRODAWA             RON:FTNH.18.UDIN         D2.2 098  99908   f*FORTRANH OS OBJ               3 298 O SRODAWA             RON:FTNH.18.OSOM         D2.2 099  99907   h*FORTRANH OS OBJ W/ PTF
 -                   4 298 O SRODAWA             RON:FTNH.18N.OSM         D2.2 100  99906  ) ߿*FORTRANH PTF                  5 298 O SRODAWA             RON:PTF.40249            D2.2 101  ) k*FORTRANH PTF                  6 298 O SRODAWA             RO
 -           N:PTF.40037            D2.2 102  ) o *FORTRANH PTF                  7 298 O SRODAWA             RON:PTF.40447            D2.2 103  ) *FORTRANH PTF                  8 298 O SRODAWA             RON:PTF.40328            D2.2 104  ) *FORTRA
 -           NH PTF                  9 298 O SRODAWA             RON:PTF.40267            D2.2 105  ) ~8*FORTRANH PTF                 10 298 O SRODAWA             RON:PTF.40194            D2.2 106  ) v\*FORTRANH PTF                 11 298 O SRODAWA 
 -                  RON:PTF.40190            D2.2 107   zH*FORTRANH MTS OBJ             12 298 O SRODAWA             RON:FTNH.18N.MTS         D2.2 108  99905   ^*PLC                           1 485 U SRODAWA             RON:PLC.ZZSR.U           D2.2 1
 -           09  99904   q*PLC                           2 485 M SRODAWA             RON:PLC.LOAD             D2.2 110  99903    TAPERTN                         135 S WSG            TAPE WSG:TAPE                 D2.2 111  99902    TAPEUC 
 -                             012 S MTA            TPUC MTA:TAPEUC               D2.2 112  99901   [*MOUNT                           101 S WSG            MOUN WSG:MOUNT                D2.2 113  99900   ]**TAPECOPY                        358 S WSG 
 -                   TCPY WSG:TAPECOPY(1,999)      D2.2 114  99899   ]{*TAPEDUMP                        414 S WSG            TDMP WSG:TAPEDUMP(1,999)      D2.2 115  99898   *FSAVE                           392 S MTA            FSAV MTA:FSAVE.S 
 -                  D2.2 116  99897   h*LABEL AND *LBL                  487 S WSG            LBL0 WSG:LABEL(1,999)         D2.2 117  99896   k CONTROL                         488 S WSG            CTRL WSG:CONTROL(1,999)       D2.2 118  99895    T
 -           T                              489 S WSG            TT00 WSG:TT(1,999)            D2.2 119  99894   &*ANALYSIS                        140 S KIP            ANAL W091:ANALSOU             D2.2 120  99893   A STATJOB 
 -           079 S KIP            STAT W091:STATSOU             D2.2 121  99892   E STP2                                S KIP            STP2 W091:STP2SOU             D2.2 122  99891   I HISTOGRAM                           S KIP            HIST W091:
 -           HISTOSOU            D2.2 123  99890     VOLUME 1 MASTER               1 XXX M                     # FB(13200,132)                    99889    VOLUME 1 PRINT                2 XXX M                     # FB(13200,132)                    9
 -           9888    VOLUME 1 INPUT                3 XXX M                     # FB(8000,80)                      99887   (8 VOMUME 1 DUMP EXAMPLE         4 XXX M                     # FB(13300,133)                    99886   \ LNK.COM 
 -                        297 S SRODAWA             # FB(12000,120)                    99885   H*BASICHELPC                      484 S EJF                 # FB(10000,100)                    99884   ^ D2.2DESCR                       XXX M MTA 
 -                   # FSAVE FORMAT                     99883 
 :window 1 10
 :p@w 
 :     1      ڭYUPDA
 :p@x@w
 :     1     004AFA0A 22E8E4D7 C4C1
 :$calc '004afa0a'
 =4913674
 :ed d2.2.5line
 :v
 :$f fsave
  File doesn't exist - file FSAVE 
 :$f ?fsave?
 :$f *fsave?
  *FSAVE 
 :$f fs?
  FSCON.3480  FSM.FOLDERS FSMESSARCH  FSORT       FSORT2 
 :$f dist:fs?
  DIST:FS          DIST:FSM.ARCHIVE DIST:FS5L*OA 
 :$f dist:fs
  DIST:FS           Type=Line, IdleDays=28, RPM=1, UseCnt=146, Owner=DIST, 
   Create=Jul30/87, LastRef=Jun26/96, LastCatalog=Jun27/88, 
   LastData=01:45:38 Aug11/87, FullAccess=U Owner, N Others 
 :ed dist:fs
 :v
 :$calc 'fa0a22e8'
 =-99999000
 :ed d2.2.5line
 :v
 :MTS
 #d *out*
  *OUT* on TC07(3480): Tape receipt=XXX
  File=131, Block=0, Record=0, Fmt=U(32767,80)
  Mode=STR(10), Bpi=38000, Bpmm=1496.3, Retry=10
  Statistics (Read,Write,Control):
    Total tape operations (CCWs): 3035,3545,686
    Recovered errors: 0,0,1  Fatal errors: 0,0,0
  Sense=01:00406000000E 5B2000000000 000000000000 007000000000
  Status: BLK ON, date checking, ring IN.
 #con *out* posn *130*
 #d -? 
  "-? " is invalid.
  Enter replacement, "CANCEL", or a help command.
 ?
 ?Attn!
 #f -?
  -LASTFILE 
 #r *fsave 0=-lastfile
 #01:09:23 
  *** LOGICAL UNIT 0 IS NOT A 9-TRACK TAPE
 #01:09:23  RC=8  T=0.003  $0.00 
 #dup *fsave fsave.3480
  File access not copied to file "FSAVE.3480".
  2p; Pkey=*FSAVE.
 #ed fsave.3480
 :s@a@ntx@pc /f '9tp '
 :Col=145
 :     4 
 :c@a@ntx@pc /f '9tp '3480'
 :Col=145
 :     4 
 :v
 :MTS
 #mou pool 3480 *P* uam=off timer=off
 #">TC06": released.
 #*P* (POOL): Mounted on TC06 
 #mou xxx 3480 *2.1* uam=off '2.1 fsave'
 #*2.1* (XXX): Mounted on TC05 
 #con *2.1* posn *84*
 #c *2.1* -2.1dir
 #ed -2.1dir
 :v
 :window 1 16
 :p@w
 :     1     D2.1DESCR 
 :window 17 32
 :p@w
 :     1     *REDUCE 
 :window 1 16
 :p@w /f
 :     1     D2.1DESCR 
 :     2                     
 :p@w@x /f
 :     1     C4F24BF1 C4C5E2C3 D9404040 40404040
 :     2     00000000 00000000 00000000 00000000
 :$f *?*
  *ARG4*     *BATCH*    *EXPORT*   *IMPORT*   *IN*       *OUT*      *P* 
  *PLUSLIST* *PORTRAIT* *PRINT*    *PUNCH*    *RMPRINT*  *2.1* 
 :$d *out*
  *OUT* on TC07(3480): Tape receipt=XXX
  File=130, Block=0, Record=0, Fmt=U(32767,80)
  Mode=STR(10), Bpi=38000, Bpmm=1496.3, Retry=10
  Statistics (Read,Write,Control):
    Total tape operations (CCWs): 3035,3545,691
    Recovered errors: 0,0,1  Fatal errors: 0,0,0
  Sense=01:00402000000E 592000000000 000000000000 007000000000
  Status: BLK ON, date checking, ring IN.
 :MTS
 #f -?
  -LASTFILE -2.1DIR 
 #con *P* rew
 #c -lastfile *P*
 #con *P* wtm
 #dup -2.1dir -2.2dir
  3p; access=U Owner, N Others
 #ed -2.2dir
 :c 1 pos(16) rem = ''
 :     1     D2.1DESCR 
 :c '1'2'
 :     1     D2.2DESCR 
 :c 2 pos(16) rem = ''
 :     2                     
 :p@x
 :     2     00000000 00000000 00000000 00000000
 :MTS
 #c -2.2dir *P*
 #con *P* rew
 #r fsave.3480 0=*P*
 #01:16:49 
 +Logical end of labeled cartridge on "*P*"
 +I/O Error interrupt at 901F38
 #con *P* posn *eot*
 #con *P* wtm 5
 #r fsave.3480 0=*P*
 #01:17:19 
  *** TAPE ON LOGICAL UNIT 0 NOT A FILESAVE TAPE
 #01:17:27  RC=8  T=0.017  $0.01 
 #d *2.1*
  *2.1* on TC05(3480): Tape receipt=XXX
  File=85, Block=0, Record=0, Fmt=U(32767,32767)
  Mode=STR(10), Bpi=38000, Bpmm=1496.3, Retry=10
  Statistics (Read,Write,Control):
    Total tape operations (CCWs): 4,0,96
    Recovered errors: 0,0,1  Fatal errors: 0,0,0
  Sense=01:004280000001 352000000000 000000000000 007000000000
  Status: BLK ON, date checking.
 #con *2.1* posn *84*
 #con *2.1* rew
 #r fsave.3480 0=*2.1*
 #01:18:46 
 %list (1)
 %*** FILE NAMES MUST BE PRECEEDED BY A COMMAND
 %..list (1)
 %*** FILE NAMES MUST BE PRECEEDED BY A COMMAND
 %list
 %*** FILE NAMES MUST BE PRECEEDED BY A COMMAND
 %..list
 %*** FILE NAMES MUST BE PRECEEDED BY A COMMAND
 %help
 %*** FILE NAMES MUST BE PRECEEDED BY A COMMAND
 %restore
 %*** FILE NAMES MUST BE PRECEEDED BY A COMMAND
 %..restore
 %*** FILE NAMES MUST BE PRECEEDED BY A COMMAND
 %.restore
 %*** FILE NAMES MUST BE PRECEEDED BY A COMMAND
 %MTS
 %*** FILE NAMES MUST BE PRECEEDED BY A COMMAND
 #01:20:26  T=0.075  $0.04 
 #help *fsave
 #ed fsave.3480
 :v
 :MTS
 #deb fsave.3480
 #Program key has been set to default value (*EXEC). 
 +mpa
 +Invalid SDS command
 +map
 +  Name            Type  Length   Address   Reloc  SI#
 +FSAVE              CS   0145A0  00901000  901000  80
 +$d map
   ENTRY = 00901000  Size = 000145A0
 
   Pre-Defined Symbols
 
     Name  SI#  Value      Name  SI#  Value      Name  SI#  Value 
 
   LCSYMBOL 80 001F86B8  <LODTAB> 00 00643000  ERROR    80 801D6256 
   CANREPLY 80 801DDD8C  GDINFO   80 801DE510  SETPFX   80 801DF3D4 
   EMPTY    80 801DF53C  GETFD    80 801DFAEC  FREEFD   80 801DFE4E 
   GUSER    80 802096D0  READ     80 80209830  SCARDS   80 80209888 
   SERCOM   80 802098E0  SPRINT   80 80209938  WRITE    80 802099E8 
   FREESPAC 80 80212AE0 
 
   Section Definitions
 
     Name  SI#  Value   Reloc  Length Fl T 
 
   FSAVE    80 00901000 901000 0145A0 00 
 +d 901000@t=i...+100
 +901000@t=i...+100
 +FSAVE         I:   STM   R14,R12,X'C'(R13)
 +FSAVE+4       I:   LR    R12,R15
 +FSAVE+6       I:   LA    R11,X'800'(,R12)
 +FSAVE+A       I:   LA    R11,X'800'(,R11)
 +FSAVE+E       I:   LA    R15,X'144'(,R11)
 +FSAVE+12      I:   ST    R15,X'8'(,R13)
 +FSAVE+16      I:   ST    R13,X'4'(,R15)
 +FSAVE+1A      I:   LR    R13,R15
 +FSAVE+1C      I:   LA    R11,X'800'(,R12)
 +FSAVE+20      I:   LA    R11,X'800'(,R11)
 +FSAVE+24      I:   MVI   X'20A'(R11),0
 +FSAVE+28      I:   MVI   X'20B'(R11),0
 +FSAVE+2C      I:   L     R9,X'630'(,R11)
 +FSAVE+30      I:   L     R8,X'634'(,R11)
 +FSAVE+34      I:   L     R1,0(,R1)
 +FSAVE+38      I:   LH    R0,0(,R1)
 +FSAVE+3C      I:   LTR   R0,R0
 +FSAVE+3E      I:   BEQ   X'12A'(,R12)
 +FSAVE+42      I:   CLC   X'2'(4,R1),X'638'(R11)
 +FSAVE+48      I:   BNE   X'12A'(,R12)
 +FSAVE+4C      I:   BALR  R0,R0
 +FSAVE+4E      I:   BAL   R7,X'3A'(,R11)
 +FSAVE+52      I:   B     X'8A'(,R12)
 +FSAVE+56      I:   LCER  FR4,FR0
 +FSAVE+58      I:   DC    X'C6E2'    Invalid instr
 +FSAVE+5A      I:   DC    X'C1E5'    Invalid instr
 +FSAVE+5C      I:   DC    X'C540'    Invalid instr
 +FSAVE+5E      I:   DC    X'C9E2'    Invalid instr
 +FSAVE+60      I:   STH   R12,X'540'(R1,R13)
 +FSAVE+64      I:   OC    X'440'(212,R12),X'1D5'(R12)
 +FSAVE+6A      I:   DC    X'C440'    Invalid instr
 +FSAVE+6C      I:   DC    X'E4D5'    Invalid instr
 +FSAVE+6E      I:   MVCK  X'3C9'(198,R13),X'1C2'(R12)
 +FSAVE+74      I:   MVZ   X'D7'(198,R4),X'9D6'(R13)
 +FSAVE+7A      I:   DC    X'C7D9'    Invalid instr
 +FSAVE+7C      I:   DC    X'C1D4'    Invalid instr
 +FSAVE+7E      I:   SH    R4,X'8D6'(,R14)
 +FSAVE+82      I:   DC    X'E440'    Invalid instr
 +FSAVE+84      I:   DC    X'E2C8'    Invalid instr
 +FSAVE+86      I:   OC    X'3C4'(229,R13),X'570'(R4)
 +FSAVE+8C      I:   DC    X'B03A'    Invalid instr
 +FSAVE+8E      I:   B     X'C2'(,R12)
 +FSAVE+92      I:   SWR   FR4,FR0
 +FSAVE+94      I:   DC    X'E4E2'    Invalid instr
 +FSAVE+96      I:   DC    X'C540'    Invalid instr
 +FSAVE+98      I:   M     R12,X'240'(R6,R14)
 +FSAVE+9C      I:   DC    X'E2C9'    Invalid instr
 +FSAVE+9E      I:   CLC   X'540'(196,R12),X'8D6'(R14)
 +FSAVE+A4      I:   DC    X'E440'    Invalid instr
 +FSAVE+A6      I:   DC    X'C1D9'    Invalid instr
 +FSAVE+A8      I:   DC    X'C540'    Invalid instr
 +FSAVE+AA      I:   DC    X'E2E3'    Invalid instr
 +FSAVE+AC      I:   DC    X'C1D9'    Invalid instr
 +FSAVE+AE      I:   DC    X'E3C9'    Invalid instr
 +FSAVE+B0      I:   CLC   X'C1'(200,R4),X'D5'(R4)
 +FSAVE+B6      I:   DC    X'C5E6'    Invalid instr
 +FSAVE+B8      I:   STH   R14,X'1D7'(R3,R12)
 +FSAVE+BC      I:   DC    X'C54B'    Invalid instr
 +FSAVE+BE      I:   STH   R14,X'5C5'(R2,R12)
 +FSAVE+C2      I:   BAL   R7,X'3A'(,R11)
 +FSAVE+C6      I:   B     X'100'(,R12)
 +FSAVE+CA      I:   LRER  FR4,FR0
 +FSAVE+CC      I:   DC    X'E5D6'    Invalid instr
 +FSAVE+CE      I:   MVZ   X'4C5'(229,R13),X'F2'(R4)
 +FSAVE+D4      I:   STH   R13,X'640'(R6,R12)
 +FSAVE+D8      I:   DC    X'E3C8'    Invalid instr
 +FSAVE+DA      I:   DC    X'C540'    Invalid instr
 +FSAVE+DC      I:   NC    X'240'(228,R14),X'4C1'(R13)
 +FSAVE+E2      I:   CLC   X'1D3'(229,R12),X'C6'(R4)
 +FSAVE+E8      I:   OC    X'C1'(218,R4),X'C4'(R4)
 +FSAVE+EE      I:   DC    X'C5E2'    Invalid instr
 +FSAVE+F0      I:   DC    X'C3D9'    Invalid instr
 +FSAVE+F2      I:   DC    X'C9D7'    Invalid instr
 +FSAVE+F4      I:   DC    X'E3C9'    Invalid instr
 +FSAVE+F6      I:   OC    X'D6'(214,R4),X'640'(R12)
 +FSAVE+FC      I:   M     R12,X'24B'(R6,R14)
 +FSAVE+100     I:   BAL   R7,X'D8C'(,R12)
 +d 902638@t=cl4
 +902638@t=cl4  C'INIT'
 +d 90112a@t=i...+100
 +90112a@t=i...+100
 +FSAVE+12A     I:   BAL   R10,X'EF4'(,R12)
 +FSAVE+12E     I:   LM    R5,R7,X'1A4'(R11)
 +FSAVE+132     I:   XC    0(16,R5),0(R5)
 +FSAVE+138     I:   BXLE  R5,R6,X'132'(R12)
 +FSAVE+13C     I:   LR    R7,R9
 +FSAVE+13E     I:   AL    R7,X'1F4'(,R11)
 +FSAVE+142     I:   L     R6,0(,R7)
 +FSAVE+146     I:   ST    R6,X'1E8'(,R11)
 +FSAVE+14A     I:   ALR   R6,R9
 +FSAVE+14C     I:   ST    R6,X'1E4'(,R11)
 +FSAVE+150     I:   TM    X'20A'(R11),X'10'
 +FSAVE+154     I:   BNE   X'EDA'(,R12)
 +FSAVE+158     I:   B     X'160'(,R12)
 +FSAVE+15C     I:   DC    X'801D'    Invalid instr
 +FSAVE+15E     I:   UNPK  X'510'(14,R4),X'16C'(5,R12)
 +FSAVE+164     I:   DC    X'0090'    Invalid instr
 +FSAVE+166     I:   DC    X'220C'    Invalid instr
 +FSAVE+168     I:   DC    X'0090'    Invalid instr
 +FSAVE+16A     I:   DC    X'21B0'    Invalid instr
 +FSAVE+16C     I:   L     R15,X'15C'(,R12)
 +FSAVE+170     I:   BALR  R14,R15
 +FSAVE+172     I:   NOPR  R0
 +FSAVE+174     I:   L     R15,X'63C'(,R11)
 +FSAVE+178     I:   BAL   R1,X'190'(,R12)
 +FSAVE+17C     I:   DC    X'0090'    Invalid instr
 +FSAVE+17E     I:   DC    X'24F9'    Invalid instr
 +FSAVE+180     I:   DC    X'0090'    Invalid instr
 +FSAVE+182     I:   DC    X'21BA'    Invalid instr
 +FSAVE+184     I:   DC    X'0000'    Invalid instr
 +FSAVE+186     I:   DC    X'0000'    Invalid instr
 +FSAVE+188     I:   DC    X'0090'    Invalid instr
 +FSAVE+18A     I:   LNR   R8,R12
 +FSAVE+18C     I:   DC    X'0000'    Invalid instr
 +FSAVE+18E     I:   DC    X'0000'    Invalid instr
 +FSAVE+190     I:   BALR  R14,R15
 +FSAVE+192     I:   LTR   R15,R15
 +FSAVE+194     I:   BNE   X'21A'(,R12)
 +FSAVE+198     I:   LH    R1,X'1BA'(,R11)
 +FSAVE+19C     I:   LTR   R1,R1
 +FSAVE+19E     I:   BEQ   X'150'(,R12)
 +FSAVE+1A2     I:   OI    X'20A'(R11),X'8'
 +FSAVE+1A6     I:   CH    R1,X'684'(,R11)
 +FSAVE+1AA     I:   BLT   X'1B8'(,R12)
 +FSAVE+1AE     I:   CLC   X'4F9'(3,R11),X'69E'(R11)
 +FSAVE+1B4     I:   BEQ   X'6A6'(,R12)
 +FSAVE+1B8     I:   TM    X'20A'(R11),X'40'
 +FSAVE+1BC     I:   BNE   X'222'(,R12)
 +FSAVE+1C0     I:   TM    X'20A'(R11),X'20'
 +FSAVE+1C4     I:   BNE   X'5EE'(,R12)
 +FSAVE+1C8     I:   BALR  R0,R0
 +FSAVE+1CA     I:   BAL   R7,X'3A'(,R11)
 +FSAVE+1CE     I:   B     X'1FE'(,R12)
 +FSAVE+1D2     I:   ADR   FR4,FR0
 +FSAVE+1D4     I:   DC    X'C6C9'    Invalid instr
 +FSAVE+1D6     I:   MVZ   X'D5'(198,R4),X'1D4'(R12)
 +FSAVE+1DC     I:   DC    X'C5E2'    Invalid instr
 +FSAVE+1DE     I:   STH   R13,X'4E2'(R4,R14)
 +FSAVE+1E2     I:   DC    X'E340'    Invalid instr
 +FSAVE+1E4     I:   DC    X'C2C5'    Invalid instr
 +FSAVE+1E6     I:   STH   R13,X'9C5'(R7,R13)
 +FSAVE+1EA     I:   DC    X'C3C5'    Invalid instr
 +FSAVE+1EC     I:   DC    X'C5C4'    Invalid instr
 +FSAVE+1EE     I:   DC    X'C5C4'    Invalid instr
 +FSAVE+1F0     I:   STH   R12,X'840'(R2,R14)
 +FSAVE+1F4     I:   DC    X'C140'    Invalid instr
 +FSAVE+1F6     I:   DC    X'C3D6'    Invalid instr
 +FSAVE+1F8     I:   NC    X'1D5'(213,R12),X'481'(R12)
 +FSAVE+1FE     I:   NOPR  R0
 +FSAVE+200     I:   B     X'208'(,R12)
 +FSAVE+204     I:   DC    X'801D'    Invalid instr
 +FSAVE+206     I:   TRT   X'8F0'(141,R5),X'204'(R12)
 +FSAVE+20C     I:   BALR  R14,R15
 +FSAVE+20E     I:   LTR   R15,R15
 +FSAVE+210     I:   BEQ   X'150'(,R12)
 +FSAVE+214     I:   L     R15,X'640'(,R11)
 +FSAVE+218     I:   BALR  R14,R15
 +FSAVE+21A     I:   OI    X'20A'(R11),X'10'
 +FSAVE+21E     I:   B     X'6A6'(,R12)
 +FSAVE+222     I:   TM    X'20A'(R11),X'4'
 +FSAVE+226     I:   BNE   X'22E'(,R12)
 +FSAVE+22A     I:   BAL   R10,X'EF4'(,R12)
 +d 901160@t-i...+80
 +"t" must be given with an "=" and a value.
 +d 901160@t=i...+80
 +901160@t=i...+80
 +FSAVE+160     I:   BAL   R1,X'16C'(,R12)
 +FSAVE+164     I:   DC    X'0090'    Invalid instr
 +FSAVE+166     I:   DC    X'220C'    Invalid instr
 +FSAVE+168     I:   DC    X'0090'    Invalid instr
 +FSAVE+16A     I:   DC    X'21B0'    Invalid instr
 +FSAVE+16C     I:   L     R15,X'15C'(,R12)
 +FSAVE+170     I:   BALR  R14,R15
 +FSAVE+172     I:   NOPR  R0
 +FSAVE+174     I:   L     R15,X'63C'(,R11)
 +FSAVE+178     I:   BAL   R1,X'190'(,R12)
 +FSAVE+17C     I:   DC    X'0090'    Invalid instr
 +FSAVE+17E     I:   DC    X'24F9'    Invalid instr
 +FSAVE+180     I:   DC    X'0090'    Invalid instr
 +FSAVE+182     I:   DC    X'21BA'    Invalid instr
 +FSAVE+184     I:   DC    X'0000'    Invalid instr
 +FSAVE+186     I:   DC    X'0000'    Invalid instr
 +FSAVE+188     I:   DC    X'0090'    Invalid instr
 +FSAVE+18A     I:   LNR   R8,R12
 +FSAVE+18C     I:   DC    X'0000'    Invalid instr
 +FSAVE+18E     I:   DC    X'0000'    Invalid instr
 +FSAVE+190     I:   BALR  R14,R15
 +FSAVE+192     I:   LTR   R15,R15
 +FSAVE+194     I:   BNE   X'21A'(,R12)
 +FSAVE+198     I:   LH    R1,X'1BA'(,R11)
 +FSAVE+19C     I:   LTR   R1,R1
 +FSAVE+19E     I:   BEQ   X'150'(,R12)
 +FSAVE+1A2     I:   OI    X'20A'(R11),X'8'
 +FSAVE+1A6     I:   CH    R1,X'684'(,R11)
 +FSAVE+1AA     I:   BLT   X'1B8'(,R12)
 +FSAVE+1AE     I:   CLC   X'4F9'(3,R11),X'69E'(R11)
 +FSAVE+1B4     I:   BEQ   X'6A6'(,R12)
 +FSAVE+1B8     I:   TM    X'20A'(R11),X'40'
 +FSAVE+1BC     I:   BNE   X'222'(,R12)
 +FSAVE+1C0     I:   TM    X'20A'(R11),X'20'
 +FSAVE+1C4     I:   BNE   X'5EE'(,R12)
 +FSAVE+1C8     I:   BALR  R0,R0
 +FSAVE+1CA     I:   BAL   R7,X'3A'(,R11)
 +FSAVE+1CE     I:   B     X'1FE'(,R12)
 +FSAVE+1D2     I:   ADR   FR4,FR0
 +FSAVE+1D4     I:   DC    X'C6C9'    Invalid instr
 +FSAVE+1D6     I:   MVZ   X'D5'(198,R4),X'1D4'(R12)
 +FSAVE+1DC     I:   DC    X'C5E2'    Invalid instr
 +FSAVE+1DE     I:   STH   R13,X'4E2'(R4,R14)
 #r fsave.3480 0=*2.1*
 #01:25:22 
 %LIST
 %*** FILE NAMES MUST BE PRECEEDED BY A COMMAND
 %..LIST
 %*** FILE NAMES MUST BE PRECEEDED BY A COMMAND
 %.LIST
 %*** FILE NAMES MUST BE PRECEEDED BY A COMMAND
 %...list
 %*** ILLEGAL COMMAND
 %...restore
 %*** ILLEGAL COMMAND
 %...LIST
-%*** TABLE OF CONTENTS FOR THIS TAPE:
 % 
 %D2.1DESCR 
 %*REDUCE 
 %*RDCCHKPOINT     SEQF
 %*LISP            SEQF
 %*LISPCOM         SEQF
 %*SCRAMBLE 
 %*ASMG 
 %*ASMGFPP         SEQF
 %*ASMGF2          SEQF
 %*ASMGF3          SEQF
 %*ASMGRTA         SEQF
 %*ASMGF7          SEQF
 %*ASMGF8          SEQF
 %*ASMGIS00 
 %*ASMGIS09        SEQF
 %*ASMGIS01 
 %*ASMGIS20 
 %*ASMGIS44 
 %*ASMGIS67        SEQF
 %*CATALOG 
 %*DCALC           SEQF
 %*TALLY           SEQF
 %*CSMPTRAN        SEQF
 %*CSMPEXEC        SEQF
 %*CSMPLIB         SEQF
 %*FORTRANH        SEQF
 %*SNAP            SEQF
 %*STATUS 
 %*SYSMAC 
 %SUPERUPD 
 %*FCBEQU 
 %*CATEQU 
 %CATL 
 %OPEN 
 %GRDSK 
 %GTZ 
 %TRAK 
 %FLIN 
 %WRIT 
 %READ 
 %RWSEQ 
 %READL 
 %MOVE 
 %VTOC 
 %MTS.EQU2 
 %DASDUC 
 %FILESAVE 
 %RESTORE 
 %DUMP 
 %*FSAVE           SEQF
 %TAPERTN          SEQF
 %MOUNT            SEQF
 %TAPEDUMP 
 %*TAPEDUMP 
 %*MOUNT 
 %TSSCN 
 %SAVTS 
 %TAPESTAT 
 %BILLRFT          SEQF
 %BILLING          SEQF
 %BILPRNT          SEQF
 %BILLWRITEUP 
 %BILLWUOUT 
 %BILLSOURCE 
 %BILLTABLES 
 %DIVISION 
 %COVER 
 %RESTART 
 %BILLLIB 
 %FLNM 
 %APLS 
 %DPLB 
 %DPCOPY 
 %FLUSH 
 %GTFL 
 %BPFL 
 %PNLIST 
 %PEXT 
 %STAT             SEQF
 %ANALYSIS-S       SEQF
 %*ANALYSIS 
 %*LLMPSEQU 
 %NEWM.V3          SEQF
-%
 %...RESTORE
 %D2.1DESCR
 %
 +Attention interrupt at 000192 in section FSAVE 
 #d *2.1*
  *2.1* on TC05(3480): Tape receipt=XXX
  File=84, Block=0, Record=0, Fmt=U(32767,32767)
  Mode=STR(10), Bpi=38000, Bpmm=1496.3, Retry=10
  Statistics (Read,Write,Control):
    Total tape operations (CCWs): 176,0,286
    Recovered errors: 0,0,1  Fatal errors: 0,0,0
  Sense=01:004240000001 322000000000 000000000000 007000000000
  Status: BLK ON, date checking.
 #$f -?
  -LASTFILE -2.1DIR   -2.2DIR 
 #ed -lastfile
 :p@len@ntx /f
 :     1     len=26536
 :ed -2.1dir
 :p@len@ntx /f
 :     1     len= 4004
 :     2     len= 4000
 :p 1
 :     1     D2.1DESCR       *REDUCE         *RDCCHKPOINT    *LISP           *LISPCOM        *SCRAMBLE       *ASMG           *ASMGFPP        *ASMGF2         *ASMGF3         *ASMGRTA        *ASMGF7         *ASMGF8         *ASMGIS00       *ASMGIS09       *AS
 -           MGIS01       *ASMGIS20       *ASMGIS44       *ASMGIS67       *CATALOG        *DCALC          *TALLY          *CSMPTRAN       *CSMPEXEC       *CSMPLIB        *FORTRANH       *SNAP           *STATUS         *SYSMAC         SUPERUPD        *FCBEQ
 -           U         *CATEQU         CATL            OPEN            GRDSK           GTZ             TRAK            FLIN            WRIT            READ            RWSEQ           READL           MOVE            VTOC            MTS.EQU2        DASDUC 
 -                  FILESAVE        RESTORE         DUMP            *FSAVE          TAPERTN         MOUNT           TAPEDUMP        *TAPEDUMP       *MOUNT          TSSCN           SAVTS           TAPESTAT        BILLRFT         BILLING         BILPRNT 
 -               BILLWRITEUP     BILLWUOUT       BILLSOURCE      BILLTABLES      DIVISION        COVER           RESTART         BILLLIB         FLNM            APLS            DPLB            DPCOPY          FLUSH           GTFL            BPFL 
 -            PNLIST          PEXT            STAT            ANALYSIS-S      *ANALYSIS       *LLMPSEQU       NEWM.V3                                                                                                                                           
 -                                                                                                                                                                                                                                                              
 -                                                                                                                                                                                                                                                              
 -                                                                                                                                                                                                                                                              
 -                                                                                                                                                                                                                                                              
 -                                                                                                                                                                                                                                                              
 -                                                                                                                                                                                                                                                              
 -                                                                                                                                                                                                                                                              
 -                                                                                                                                                                                                                                                              
 -                                                                                                                                                                                                                                                              
 -                                                                                                                                                                                                                                                              
 -                                                                                                                             	
 :window 4000
 :p@w@x 1
 :     1     00000005 30
 :$calc '530'
 =1328
 :$calc '53'
 =83
 :$dup -2.1dir -2.2dir
 :ed -2.2dir
 :c pos(4000) hex('0530') = hex('0010')
 :Search failed
 :c 1
 :Search failed
 :p@x 1
 :     1     C4F24BF1 C4C5E2C3 D9404040 40404040 5CD9C5C4 E4C3C540 40404040 40404040 5CD9C4C3 C3C8D2D7 D6C9D5E3 40404040 5CD3C9E2 D7404040 40404040 40404040 5CD3C9E2 D7C3D6D4 40404040 40404040 5CE2C3D9 C1D4C2D3 C5404040 40404040 5CC1E2D4 C7404040
 -           40404040 40404040 5CC1E2D4 C7C6D7D7 40404040 40404040 5CC1E2D4 C7C6F240 40404040 40404040 5CC1E2D4 C7C6F340 40404040 40404040 5CC1E2D4 C7D9E3C1 40404040 40404040 5CC1E2D4 C7C6F740 40404040 40404040 5CC1E2D4 C7C6F840 40404040 40404040
 -           5CC1E2D4 C7C9E2F0 F0404040 40404040 5CC1E2D4 C7C9E2F0 F9404040 40404040 5CC1E2D4 C7C9E2F0 F1404040 40404040 5CC1E2D4 C7C9E2F2 F0404040 40404040 5CC1E2D4 C7C9E2F4 F4404040 40404040 5CC1E2D4 C7C9E2F6 F7404040 40404040 5CC3C1E3 C1D3D6C7
 -           40404040 40404040 5CC4C3C1 D3C34040 40404040 40404040 5CE3C1D3 D3E84040 40404040 40404040 5CC3E2D4 D7E3D9C1 D5404040 40404040 5CC3E2D4 D7C5E7C5 C3404040 40404040 5CC3E2D4 D7D3C9C2 40404040 40404040 5CC6D6D9 E3D9C1D5 C8404040 40404040
 -           5CE2D5C1 D7404040 40404040 40404040 5CE2E3C1 E3E4E240 40404040 40404040 5CE2E8E2 D4C1C340 40404040 40404040 E2E4D7C5 D9E4D7C4 40404040 40404040 5CC6C3C2 C5D8E440 40404040 40404040 5CC3C1E3 C5D8E440 40404040 40404040 C3C1E3D3 40404040
 -           40404040 40404040 D6D7C5D5 40404040 40404040 40404040 C7D9C4E2 D2404040 40404040 40404040 C7E3E940 40404040 40404040 40404040 E3D9C1D2 40404040 40404040 40404040 C6D3C9D5 40404040 40404040 40404040 E6D9C9E3 40404040 40404040 40404040
 -           D9C5C1C4 40404040 40404040 40404040 D9E6E2C5 D8404040 40404040 40404040 D9C5C1C4 D3404040 40404040 40404040 D4D6E5C5 40404040 40404040 40404040 E5E3D6C3 40404040 40404040 40404040 D4E3E24B C5D8E4F2 40404040 40404040 C4C1E2C4 E4C34040
 -           40404040 40404040 C6C9D3C5 E2C1E5C5 40404040 40404040 D9C5E2E3 D6D9C540 40404040 40404040 C4E4D4D7 40404040 40404040 40404040 5CC6E2C1 E5C54040 40404040 40404040 E3C1D7C5 D9E3D540 40404040 40404040 D4D6E4D5 E3404040 40404040 40404040
 -           E3C1D7C5 C4E4D4D7 40404040 40404040 5CE3C1D7 C5C4E4D4 D7404040 40404040 5CD4D6E4 D5E34040 40404040 40404040 E3E2E2C3 D5404040 40404040 40404040 E2C1E5E3 E2404040 40404040 40404040 E3C1D7C5 E2E3C1E3 40404040 40404040 C2C9D3D3 D9C6E340
 -           40404040 40404040 C2C9D3D3 C9D5C740 40404040 40404040 C2C9D3D7 D9D5E340 40404040 40404040 C2C9D3D3 E6D9C9E3 C5E4D740 40404040 C2C9D3D3 E6E4D6E4 E3404040 40404040 C2C9D3D3 E2D6E4D9 C3C54040 40404040 C2C9D3D3 E3C1C2D3 C5E24040 40404040
 -           C4C9E5C9 E2C9D6D5 40404040 40404040 C3D6E5C5 D9404040 40404040 40404040 D9C5E2E3 C1D9E340 40404040 40404040 C2C9D3D3 D3C9C240 40404040 40404040 C6D3D5D4 40404040 40404040 40404040 C1D7D3E2 40404040 40404040 40404040 C4D7D3C2 40404040
 -           40404040 40404040 C4D7C3D6 D7E84040 40404040 40404040 C6D3E4E2 C8404040 40404040 40404040 C7E3C6D3 40404040 40404040 40404040 C2D7C6D3 40404040 40404040 40404040 D7D5D3C9 E2E34040 40404040 40404040 D7C5E7E3 40404040 40404040 40404040
 -           E2E3C1E3 40404040 40404040 40404040 C1D5C1D3 E8E2C9E2 60E24040 40404040 5CC1D5C1 D3E8E2C9 E2404040 40404040 5CD3D3D4 D7E2C5D8 E4404040 40404040 D5C5E6D4 4BE5F340 40404040 40404040 00000000 00000000 00000000 00000000 00000000 00000000
 -           00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000
 -           00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000
 -           00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000
 -           00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000
 -           00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000
 -           00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000
 -           00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000
 -           00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000
 -           00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000
 -           00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000
 -           00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000
 -           00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000
 -           00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000
 -           00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000
 -           00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000
 -           00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000
 -           00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000
 -           00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000
 -           00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000
 -           00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000
 -           00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000
 -           00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000
 -           00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000
 -           00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000
 -           00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000
 -           00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000530
 :c pos(4002) hex('0530') = hex('0010')
 :     1     D2.1DESCR       *REDUCE         *RDCCHKPOINT    *LISP           *LISPCOM        *SCRAMBLE       *ASMG           *ASMGFPP        *ASMGF2         *ASMGF3         *ASMGRTA        *ASMGF7         *ASMGF8         *ASMGIS00       *ASMGIS09       *AS
 -           MGIS01       *ASMGIS20       *ASMGIS44       *ASMGIS67       *CATALOG        *DCALC          *TALLY          *CSMPTRAN       *CSMPEXEC       *CSMPLIB        *FORTRANH       *SNAP           *STATUS         *SYSMAC         SUPERUPD        *FCBEQ
 -           U         *CATEQU         CATL            OPEN            GRDSK           GTZ             TRAK            FLIN            WRIT            READ            RWSEQ           READL           MOVE            VTOC            MTS.EQU2        DASDUC 
 -                  FILESAVE        RESTORE         DUMP            *FSAVE          TAPERTN         MOUNT           TAPEDUMP        *TAPEDUMP       *MOUNT          TSSCN           SAVTS           TAPESTAT        BILLRFT         BILLING         BILPRNT 
 -               BILLWRITEUP     BILLWUOUT       BILLSOURCE      BILLTABLES      DIVISION        COVER           RESTART         BILLLIB         FLNM            APLS            DPLB            DPCOPY          FLUSH           GTFL            BPFL 
 -            PNLIST          PEXT            STAT            ANALYSIS-S      *ANALYSIS       *LLMPSEQU       NEWM.V3                                                                                                                                           
 -                                                                                                                                                                                                                                                              
 -                                                                                                                                                                                                                                                              
 -                                                                                                                                                                                                                                                              
 -                                                                                                                                                                                                                                                              
 -                                                                                                                                                                                                                                                              
 -                                                                                                                                                                                                                                                              
 -                                                                                                                                                                                                                                                              
 -                                                                                                                                                                                                                                                              
 -                                                                                                                                                                                                                                                              
 -                                                                                                                                                                                                                                                              
 -                                                                                                                              
 :c '1'2'
 :     1     D2.2DESCR       *REDUCE         *RDCCHKPOINT    *LISP           *LISPCOM        *SCRAMBLE       *ASMG           *ASMGFPP        *ASMGF2         *ASMGF3         *ASMGRTA        *ASMGF7         *ASMGF8         *ASMGIS00       *ASMGIS09       *AS
 -           MGIS01       *ASMGIS20       *ASMGIS44       *ASMGIS67       *CATALOG        *DCALC          *TALLY          *CSMPTRAN       *CSMPEXEC       *CSMPLIB        *FORTRANH       *SNAP           *STATUS         *SYSMAC         SUPERUPD        *FCBEQ
 -           U         *CATEQU         CATL            OPEN            GRDSK           GTZ             TRAK            FLIN            WRIT            READ            RWSEQ           READL           MOVE            VTOC            MTS.EQU2        DASDUC 
 -                  FILESAVE        RESTORE         DUMP            *FSAVE          TAPERTN         MOUNT           TAPEDUMP        *TAPEDUMP       *MOUNT          TSSCN           SAVTS           TAPESTAT        BILLRFT         BILLING         BILPRNT 
 -               BILLWRITEUP     BILLWUOUT       BILLSOURCE      BILLTABLES      DIVISION        COVER           RESTART         BILLLIB         FLNM            APLS            DPLB            DPCOPY          FLUSH           GTFL            BPFL 
 -            PNLIST          PEXT            STAT            ANALYSIS-S      *ANALYSIS       *LLMPSEQU       NEWM.V3                                                                                                                                           
 -                                                                                                                                                                                                                                                              
 -                                                                                                                                                                                                                                                              
 -                                                                                                                                                                                                                                                              
 -                                                                                                                                                                                                                                                              
 -                                                                                                                                                                                                                                                              
 -                                                                                                                                                                                                                                                              
 -                                                                                                                                                                                                                                                              
 -                                                                                                                                                                                                                                                              
 -                                                                                                                                                                                                                                                              
 -                                                                                                                                                                                                                                                              
 -                                                                                                                              
 :MTS
 #con *P* posn *2*
 #c -2.2dir *P*
 #con *P* wtm 5
 #r fsave.3480 0=*P*
 #01:31:30 
 %...LIST
-%*** TABLE OF CONTENTS FOR THIS TAPE:
 % 
 %D2.2DESCR 
-%
 %...RESTORE
 %D2.2DESCR 
 %*** FILE 'D2.2DESCR' NOT ON DISK
 #01:32:55  T=0.042  $0.03 
 #f d2.2?
  D2.2.5LINE 
 #f d2.1?
  D2.1DESCR 
 #cre d2.2descr
  Done.
 #rer
 #$Run fsave.3480 0=*P*
 #01:34:12 
 %...RESTORE
 %D2.2DESCR 
 %*** FILE 'D2.2DESCR' RESTORED
 #01:34:33  T=0.112  $0.04 
 #ed d2.2descr
 :v
 :p
 :    94     *WATFIV                        2 483 S MTA            FIOC WATF:WAT5.FIOCS          D2.2 093  99913 
 :p@len
 :    94     len=  100 *WATFIV                        2 483 S MTA            FIOC WATF:WAT5.FIOCS          D2.2 093  99913 
 :ed dist:driver
 :p@len 1
 :There are no lines in line range given
 :1
 :   548.002 *FS                       FS SOURCE     002 SA UM  G0548  W930:FS#SA                                                           MADISON   6.0T2  479 FS.BASE_SOURCE.SA.002              1 LINE     80 129 PAGE APR. 20, 1988 21:53:40 98181 
 -                                            00404C0035A3
 :p@len
 :   548.002 len=  288 *FS                       FS SOURCE     002 SA UM  G0548  W930:FS#SA                                                           MADISON   6.0T2  479 FS.BASE_SOURCE.SA.002              1 LINE     80 129 PAGE APR. 20, 1988 21:53:40 9818
 -                     1                                          00404C0035A3
 :MTS
 #l d2.2descr(1,1)
9 
9      1      HASP UPDATE                   1 387 U PIRKOLA             MTS:HAS
9            P2UPDATES         D2.2 001  99999
 #l dist:driver(548.002,548.002)
9 
9    548.002 *FS                       FS SOURCE     002 SA UM  G0548  W930:FS#
9            SA                                                           MADIS
9            ON   6.0T2  479 FS.BASE_SOURCE.SA.002              1 LINE     80 1
9            29 PAGE APR. 20, 1988 21:53:40 98181 
9                        00404C0035A3
 #ed d2.2descr
 :MTS
 #r *tpaedump 0=d2.2descr(1,1)
 #"*TPAEDUMP": does not exist.
 #Enter a new file/device name, "CANCEL", or "HELP".
 ?*tapedump
 #01:39:55 
1 Dump of d2.2descr(1,1) on WED JUL 24/96 at 01:39:56
0 Record=1, Line=1, Length=100
0      0 0000   40C8C1E2 D740E4D7 C4C1E3C5 40404040    40404040 40404040 40404040 404040F1    * HASP UPDATE                   1*
      32 0020   40F3F8F7 40E440D7 C9D9D2D6 D3C14040    40404040 40404040 404040D4 E3E27AC8    * 387 U PIRKOLA             MTS:H*
      64 0040   C1E2D7F2 E4D7C4C1 E3C5E240 40404040    40404040 C4F24BF2 40F0F0F1 4040F9F9    *ASP2UPDATES         D2.2 001  99*
      96 0060   F9F9F940                                                                      *999 * 
- <<<<<< End Of File >>>>>>
 #01:39:55  T=0.003  $0.00 
 #ed
 :1
 :    95     *WATFIV                        3 483 S MTA            DIOC WATF:WAT5.DIOCS          D2.2 094  99912 
 :v1
 :l 1
 :     1      HASP UPDATE                   1 387 U PIRKOLA             MTS:HASP2UPDATES         D2.2 001  99999 
 :s@pc 'd2.2'
 :Col=85
 :     1      HASP UPDATE                   1 387 U PIRKOLA             MTS:HASP2UPDATES         D2.2 001  99999 
 :s@pc '001'
 :Col=90
 :     1      HASP UPDATE                   1 387 U PIRKOLA             MTS:HASP2UPDATES         D2.2 001  99999 
 :MTS
 #f d2.2?
  D2.2.5LINE D2.2DESCR 
 #dup d2.2descr -driver
  8p; access=U Owner, N Others
 #r dist:dedit 
 #"DIST:DEDIT": does not exist.
 #Enter a new file/device name, "CANCEL", or "HELP".
 ?*dedit
 #01:52:19 
 ==Enter driver file name: -driver
 ==Enter comment file name: -driver
 ==*** The driver file directories are in error or their format is not current.
 ==    Is it OK to reformat the directories?
 ?ok
 ==*** Bad component number (    /IRK) while reformating driver file.
 #01:52:35  T=0.011  $0.01 
 #ed d2.1descr
 :v1
 :ed d2.2descr
 :v
 :MTS
 #r *tapedump 0=d2.2descr(28,31)
 #01:58:03 
1 Dump of d2.2descr(28,31) on WED JUL 24/96 at 01:58:04
0 Record=1, Line=28, Length=100
0      0 0000   5CC8C2D8 40404040 40404040 40404040    40404040 40404040 40404040 40404040    **HBQ                            *
      32 0020   40F4F8F6 40E240D7 C9D9D2D6 D3C14040    40404040 4040C8C2 D8F040E6 F0F9F27A    * 486 S PIRKOLA        HBQ0 W092:*
      64 0040   D4E8C8C2 D8404040 40404040 40404040    40404040 C4F24BF2 40F0F2F8 4040F9F9    *MYHBQ               D2.2 028  99*
      96 0060   F9F7F240                                                                      *972 * 
0 Record=2, Line=31, Length=100
0      0 0000   5CE2D5D6 C2D6D3F4 C240E2F4 40404040    40404040 40404040 40404040 404040F1    **SNOBOL4B S4                   1*
      32 0020   40F1F8F2 40E240C4 C540D1D6 D5C74040    40F14040 40404040 404040E2 F3F2F240    * 182 S DE JONG   1         S322 *
      64 0040   E2D5D6C2 D6D340D4 C1E2E3C5 D9404040    40404040 C4F24BF2 40F0F2F9 4040F9F9    *SNOBOL MASTER       D2.2 029  99*
      96 0060   F9F7F140                                                                      *971 * 
- <<<<<< End Of File >>>>>>
 #01:58:03  T=0.004  $0.00 
 #p d2.2? r me
  "D2.2.5LINE" access: R Owner, N Others
  "D2.2DESCR" access: R Owner, N Others
 #f credate>-5days
  DIST1.LOG         Create=Jul20/96 
  DIST1.5LINE       Create=Jul20/96 
  DIST2.LOG         Create=Jul20/96 
  DIST2.1.LOG       Create=Jul23/96 
  DIST2.2.LOG       Create=Jul24/96 
  DIST2.5LINE       Create=Jul20/96 
  D1MOD1.LOG        Create=Jul20/96 
  D1MOD1.5LINE      Create=Jul20/96 
  D2.1DESCR         Create=Jul24/96 
  D2.2.5LINE        Create=Jul24/96 
  D2.2DESCR         Create=Jul24/96 
  FSAVE.3480        Create=Jul24/96 
  FSCON.3480        Create=Jul24/96 
 #p dist?.log r me
  "DIST1.LOG" access: R (MTA., Owner), N Others
  "DIST2.LOG" access: R (MTA., Owner), N Others
  "DIST2.1.LOG" access: R (MTA., Owner), N Others
1$Log Output: Mike Alexander, MTS., Job#=9598, Host=UM, 02:04:35 Wed Jul 24/96
 #p d1mod1? r me
  "D1MOD1.LOG" access: R (MTA., Owner), N Others
  "D1MOD1.5LINE" access: R Owner, N Others
 #p d2.?  r me
  "D2.1DESCR" access: R Owner, N Others
  "D2.2.5LINE" access: R Owner, N Others
  "D2.2DESCR" access: R Owner, N Others
 #f credate>-5days fa
 #f credate>-5days
  DIST1.LOG         Create=Jul20/96 
  DIST1.5LINE       Create=Jul20/96 
  DIST2.LOG         Create=Jul20/96 
  DIST2.1.LOG       Create=Jul23/96 
  DIST2.2.LOG       Create=Jul24/96 
  DIST2.5LINE       Create=Jul20/96 
  D1MOD1.LOG        Create=Jul20/96 
  D1MOD1.5LINE      Create=Jul20/96 
  D2.1DESCR         Create=Jul24/96 
  D2.2.5LINE        Create=Jul24/96 
  D2.2DESCR         Create=Jul24/96 
  FSAVE.3480        Create=Jul24/96 
  FSCON.3480        Create=Jul24/96 
 #f credate>-5days fa
 #f credate>-5days 
  DIST1.LOG         Create=Jul20/96 
  DIST1.5LINE       Create=Jul20/96 
  DIST2.LOG         Create=Jul20/96 
  DIST2.1.LOG       Create=Jul23/96 
  DIST2.2.LOG       Create=Jul24/96 
  DIST2.5LINE       Create=Jul20/96 
  D1MOD1.LOG        Create=Jul20/96 
  D1MOD1.5LINE      Create=Jul20/96 
  D2.1DESCR         Create=Jul24/96 
  D2.2.5LINE        Create=Jul24/96 
  D2.2DESCR         Create=Jul24/96 
  FSAVE.3480        Create=Jul24/96 
  FSCON.3480        Create=Jul24/96 
 #f credate>-5days fullaccess
  DIST1.LOG         Create=Jul20/96, FullAccess=R Owner, N Others, R MTA. 
  DIST1.5LINE       Create=Jul20/96, FullAccess=U Owner, N Others 
  DIST2.LOG         Create=Jul20/96, FullAccess=R Owner, N Others, R MTA. 
  DIST2.1.LOG       Create=Jul23/96, FullAccess=R Owner, N Others, R MTA. 
  DIST2.2.LOG       Create=Jul24/96, FullAccess=U Owner, N Others, R MTA. 
  DIST2.5LINE       Create=Jul20/96, FullAccess=U Owner, N Others 
  D1MOD1.LOG        Create=Jul20/96, FullAccess=R Owner, N Others, R MTA. 
  D1MOD1.5LINE      Create=Jul20/96, FullAccess=R Owner, N Others 
  D2.1DESCR         Create=Jul24/96, FullAccess=R Owner, N Others 
  D2.2.5LINE        Create=Jul24/96, FullAccess=R Owner, N Others 
  D2.2DESCR         Create=Jul24/96, FullAccess=R Owner, N Others 
  FSAVE.3480        Create=Jul24/96, FullAccess=U Owner, N Others 
  FSCON.3480        Create=Jul24/96, FullAccess=U Owner, N Others 
 #p ?.5line r me
  "DIST1.5LINE" access: R Owner, N Others
  "DIST2.5LINE" access: R Owner, N Others
  "D1MOD1.5LINE" access: R Owner, N Others
  "D2.2.5LINE" access: R Owner, N Others
 #f credate>-5days fullaccess
  DIST1.LOG         Create=Jul20/96, FullAccess=R Owner, N Others, R MTA. 
  DIST1.5LINE       Create=Jul20/96, FullAccess=R Owner, N Others 
  DIST2.LOG         Create=Jul20/96, FullAccess=R Owner, N Others, R MTA. 
  DIST2.1.LOG       Create=Jul23/96, FullAccess=R Owner, N Others, R MTA. 
  DIST2.2.LOG       Create=Jul24/96, FullAccess=U Owner, N Others, R MTA. 
  DIST2.5LINE       Create=Jul20/96, FullAccess=R Owner, N Others 
  D1MOD1.LOG        Create=Jul20/96, FullAccess=R Owner, N Others, R MTA. 
  D1MOD1.5LINE      Create=Jul20/96, FullAccess=R Owner, N Others 
  D2.1DESCR         Create=Jul24/96, FullAccess=R Owner, N Others 
  D2.2.5LINE        Create=Jul24/96, FullAccess=R Owner, N Others 
  D2.2DESCR         Create=Jul24/96, FullAccess=R Owner, N Others 
  FSAVE.3480        Create=Jul24/96, FullAccess=U Owner, N Others 
  FSCON.3480        Create=Jul24/96, FullAccess=U Owner, N Others 
 #r *mvc scards=d2.2descr spunch=-d2.2driv par=1-26,t42,31-32,t54,34-36,t45,38,t128,40-48,t59,60-84,t138,85-99,t145,90-92,t230,95-99,t118,49-50,t118,55-58
 #02:08:37 
0 PATTERN LENGTH = 234 
      130 RECORDS.
 #02:08:37  T=0.096  $0.03 
 #l -d2.2driv(1,1)
9 
9      1      HASP UPDATE                              1 U        387  MTS:HASP
9            2UPDATES                                                     PIRKO
9            LA   D2.2 0000199999 
9                                           99999
 #l dist:driver(1,1.001)
9 
9      1.001  UMLOAD                   UMLOAD SOURCE 001 SA UM  G0001  UMLD:UML
9            OAD#SA                                                       VALER
9            IO   6.0T1    1 UMLOAD.SOURCE.SA.001               1 LINE     72 
9            95 PAGE APR. 20, 1988 19:55:42 99999          C 
9              5.0T1    1      0106E3
 #r *dedit 
 #02:10:36 
 ==Enter driver file name: -d2.2driv
 ==Enter comment file name: d2.2descr
 ==*** Warning! You do not have WRITE access to this comment file.
 ==*** The driver file directories are in error or their format is not current.
 #02:10:45  T=0.009  $0.00 
 #f -?
  -DRIVER   -D2.2DRIV -LASTFILE -2.1DIR   -2.2DIR 
 #dup d2.2descr -driver
  Done.
 #p -driver u me
  "-DRIVER" access: U Owner, N Others
 #ed -driver
 :d 1 *l
 :Is deletion of 130 lines OK?
 ?y
 :130 lines deleted
 :MTS
 #c -d2.2driv -driver@i
 #ed -driver
 :count 1 *l
 :130 lines
 :1
 :     2      HASP NEW SOURCE                          2 S        387  S096 HASP SOURCE                                                     PIRKOLA   D2.2 0000299998                                                                             99998
 :-1
 :     1      HASP UPDATE                              1 U        387  MTS:HASP2UPDATES                                                     PIRKOLA   D2.2 0000199999                                                                             99999
 :-1
 :-99881     PRODUCE NEAT DUMPS OF PL1 PROGRAMS
 :MTS
 #r *dedit
 #02:15:22 
 ==Enter driver file name: -driver
 ==Enter comment file name: -driver
 ==*** The driver file directories are in error or their format is not current.
 ==    Is it OK to reformat the directories?
 ?ok
 ==*** Bad component number (    /   ) while reformating driver file.
 #02:15:34  T=0.061  $0.02 
 #ed -driver
 :v 
 :MTS
 #rer
 #$Run *dedit
 #02:20:37 
 ==Enter driver file name: -driver
 ==Enter comment file name: -driver
 ==*** The driver file directories are in error or their format is not current.
 ==    Is it OK to reformat the directories?
 ?ok
 ==help
1==*DEDIT is used to build a distribution driver file which, when used in
9==conjunction with the DRIVE command in the *FS program, will generate a
9==distribution tape.
0==To obtain more information, type
0==     EXPLAIN INTRODUCTION or
0==     EXPLAIN COMMANDS
 ==     EXPLAIN COMMANDS
0==The following is a list of all *DEDIT commands:
0==  ASSIGN        Defines  mount information for a previous distribution
9==                tape. See also REDISTRIBUTE.
0==  COMMENT       Used to change  the  descriptive  comments  associated
9==                with a subcomponent.
0==  COMPONENT     Make a specified subcomponent active so that it can be
9==                edited.
0==  CPRINT        Print the comments for the active subcomponent.
0==  DELETE        Delete specified subcomponents.
0==  DUPLICATE     Insert duplicate subcomponents after the active one.
0==  EDIT          Cause *DEDIT to edit a different driver file.
0==  FOR           Modify  a  specified driver file field for a specified
9==                list of subcomponents.
0==  INIT          Regenerate the DEDIT internal directories.
0==  INSERT        Insert a new subcomponent into a driver file.
0==  LIST          Produce a formated listing of the driver file.
0==  MERGE         Add subcomponents from another driver file.
0==  MOVE          Move subcomponents within the driver file.
0==  MTS           Return to MTS command mode.
0==  PLIST         Produce  a  formated  listing  of  the   subcomponents
9==                assigned to specified persons.
0==  PRINT         Print out the active subcomponent.
0==  REDISTRIBUTE  For the active subcomponent, make the current location
9==                be the tape on which it was last distributed,
0==  SET           Allow  the global setting of several command modifiers
9==                and global switches.
0==  STATISTICS    Print several statistics about the driver file.
0==  STOP          Stop execution of *DEDIT and  return  to  MTS  command
9==                mode.
0==  UPDATE        Prompt  for  replacements  of specified fields for the
9==                active subcomponent.
0==  VISUAL        Enter  full-screen  (visual)  editing   mode   for   a
9==                specified component (or the active component).
9==
9==  [-]n          Change  the active subcomponent forward or backward by
9==                n subcomponents.
9==
9==  $string       Issue an MTS command.
9==
9==  /commands     Used  to  modify  specified  fields  for  the   active
9==                subcomponent.
9==
9==To obtain more information about a command, type
9==
9==  EXPLAIN <command name>
 ==help list
0==LIST [ON FDname] [item, item, ...]
0==     This   command  produces  a  listing  of  components  with  their
9==     associated comments on "FDname" (or SPRINT, if omitted)  for  the
9==     specified  person(s),  components  with  the  specified  revision
9==     level(s), components with the specified save  control(s),  and/or
9==     component  numbers. If no items are given, the entire contents of
9==     the driver file is listed. The listing is  ordered  by  component
9==     number.
0==     Each item may consist of:
0==          n - an entire component
9==          n/m - a specific subcomponent
9==          n[/m]...n[/m] - a range of components or subcomponents
9==          person - a person name (up to 9 characters)
9==          REVL="a" - restrict to revision level "a"
9==          SAVE="b" - restrict to save control "b"
0==     Note that each item must be followed by a comma.
0==     More  than  one  item  of  the same type may be given in order to
9==     produce a listing  consisting  of  several  components,  persons,
9==     revision levels, and/or save controls.
0==     Several  modifiers  may be given with the LIST command to control
9==     the form of the listing. These are described with  the  COMMENTS,
9==     LISTING, and REFERENCES keywords of the SET command.
 ==list on -d2.2list
 ==MTS
 #ed -d2.2list
 :v
 :MTS
 #c -d2.2list(1,10)
1>                                                                                               WED JUL 24/96   02:21:30   Page    1
0>  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+>_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
 >         6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+>         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
 >         1600 tape-file       Disk Name
+>         ______________ _____________________
0>0012       TAPEUC                                   S              MTA:TAPEUC                                                  TPUC
 >           D2.2 1 1112  9901                                                            MTA 
0>          NEW UNTI CHECK ROUTINES WHICH ARE REQUIRED FOR NEW TAPE ROUTINES. EXTENSIVE CHANGES
 #res
 ==print
0==0012       TAPEUC                                   S              MTA:TAPEUC                                                  TPUC
 ==           D2.2 1 1112  9901                                                            MTA 
 ==MTS
 #r *mvc scards=d2.2descr spunch=-d2.2dri2 par=1-26,t42,31-32,t54,34-36,t45,38,t128,40-48,t59,60-84,t138,85-89,t145,90-92,t230,95-99,t118,49-50,t123,55-58
 #02:28:46 
0 PATTERN LENGTH = 234 
      130 RECORDS.
 #02:28:47  T=0.098  $0.04 
 #f -?
  -DRIVER   -D2.2DRIV -D2.2DRI2 -D2.2LIST -LASTFILE -2.1DIR   -2.2DIR 
 #ed -driver
 :d 0 *l
 :Is deletion of 133 lines OK?
 ?y
 :133 lines deleted
 :MTS
 #c -d2.2dri2 -driver@i
 #r *dedit
 #02:29:21 
 ==Enter driver file name: -driver
 ==Enter comment file name: -driver
 ==*** The driver file directories are in error or their format is not current.
 ==    Is it OK to reformat the directories?
 ?y
 ==*** Bad component number (    /   ) while reformating driver file.
 #02:29:28  T=0.057  $0.02 
 #ed -driver
 :v
 :MTS
 #rer
 #$Run *dedit
 #02:30:40 
 ==Enter driver file name: -driver
 ==Enter comment file name: -driver
 ==*** The driver file directories are in error or their format is not current.
 ==    Is it OK to reformat the directories?
 ?y
 ==list
1==                                                                                               WED JUL 24/96   02:30:50   Page    1
0==  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+==_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
 ==         6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+==         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
 ==         1600 tape-file       Disk Name
+==         ______________ _____________________
0==0012       TAPEUC                                   S      TPUC    MTA:TAPEUC 
 ==           D2.2    112                                                                  MTA 
0==          NEW UNTI CHECK ROUTINES WHICH ARE REQUIRED FOR NEW TAPE ROUTINES. EXTENSIVE CHANGES
 ==          INCLUDING COMMAND CHAINING SUPPORT, READ BACKWARD SUPPORT, COMMON ENTRY FOR READ
 ==          AND WRITE, AND MORE CLOSE APPROXIMATION TO IBM RECOMMENDED RECOVERY PROCEDURES.
0==0038/1     TSFO                                     S      TSFO    W032:TSFOSOUEB221 
 ==           D2.2    038                                                                  EMERY 
0==          SOURCE FOR NEW TSFO. THIS IS THE NEW MASTER SOURCE FOR TSFO.  INCLUDES STANDARD AND APL
 ==          GOLFBALLS. ALSO CORRESPONDENCE KEYBOARDS.
 == 
 ==          WHEN IT ASNWERS THE PHONE IT ASKS FOR AN "A" TO IDENTIFY THE KEYBORAD TYPE. IF YOU
 ==          ENTER "ANNN" WHERE NNN IS A DEFINED GOLF BALL TYPE THEN IT WILL SET UP FOR THAT GOLFBALL
 ==          TYPE.  THE GOLFBALL TYPE CAN BE CHANGED LATER BY A "%GOLF=NNN" DEVICE COMMAND.
 == 
 ==          THERE ARE A FEW OTHER NEW DEVICE COMMANDS WHICH YOU WILL HAVE TO LOOK AT THE LISTING FOR.
 == 
 ==          WHEN YOU CHANGE THE GOLF BALL TYPE YOU ALSO CHANGE THE CHARACTERS USED FOR LINE DELETE, ETC.
 ==          CHARACTERS USED FOR APL ARE 
 ==            DEVICE COMMAND   UP ARROW
 ==            LITERAL NEXT     RIGHT ARROW
 ==            END OF FILE      DOWN ARROW
 ==            DELETE LINE      UNDERSCORE
 ==            DELETE CHARACTER BACKSPACE
 ==          OF COURSE, WHEN APL ITSELF IS RUNNING THE CHARACTERS ARE AS DEFINED BY APL. THIS SET IS
 ==          USED ONLY WHEN USING THE APL GOLFBALL WITH PROGRAMS OTHER THAN APL.
 == 
 ==          THERE ARE SEVERAL OTHER CHANGES IN TSFO, NONE OF WHICH CASUSES MAJOR OPERATIONAL 
 ==*** ATTN
 ==p
 ==*** Ambiguous DEDIT command.
 ==print
0==0012       TAPEUC                                   S      TPUC    MTA:TAPEUC 
 ==           D2.2    112                                                                  MTA 
 ==$cre d2.2list
 ==list on d2.2list
 ==stop
 #02:31:59  T=0.373  $0.15 
 #rename -driver d2.2driver
 #t d2.2?
  File "D2.2.5LINE" - required access not allowed.
  File "D2.2DESCR" - required access not allowed.
    D2.2DRIVER  D2.2LIST 
  OK? (2 files)
 ?ok
  File "D2.2DRIVER": 13p, no truncation possible.
  File "D2.2LIST":   17p, no truncation possible.
  0 files, 0p recovered, truncation not possible for 2 files.
 #p (d2.2driver,d2.2list) r me
  "D2.2DRIVER" access: R Owner, N Others
  "D2.2LIST" access: R Owner, N Others
 #log off
