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 101610S5CM T S 000000111110 35 101710S3CThe Michigan Terminal System 00000111111111111111111111111111110 46 101810S10CVOLUME 1: MTS AND THE COMPUTING CENTER 0000000111111111111111111111111111111111111110 21 101910S15CThird Edition 000000111111111111110 20 102010S0CFebruary1971 00000111111111111110 50 102110S5CThe University of Michigan Computing Center 00000111111111111111111111111111111111111111111110 26 102210S0CAnn Arbor, Michigan 00000111111111111111111110 5 200110N 00010 18 200210S12CDISCLAIMER 000000111111111110 77 200310S5I3This 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 300110N 00010 44 300200TITLEMTS 1: MTS AND THE COMPUTING CENTER 20 300300DATEFebruary 1971 34 300411?1Preface to the Third Edition 00001111111111111111111111111111100000000000000000000000000000000000 77 300510PThe 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 301310PThis, 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 303010S2I45DonaldW.Boettner 000000011111111111111111110 22 303110S0I45Lynn R. Marvin 0000000111111111111110 29 303210S0I45RichardA.Salisbury 00000001111111111111111111110 24 303310S1I50General Editors 000000011111111111111110 5 400110N 00010 25 400211?1Preface to Volume 1 00001111111111111111111100000000000000000000000000 76 400310PWe 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 401310PUnlike 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 403310PThe 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 403710PWhile 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 500310PThe 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 VERSIONOS VERSIONhUPDATE TO GO FROM OS HRTPCONP TO MTS HRTPCONPREMOTE TERMINAL ACESS METHOD. COPIED AS 'HRTPRTAM.U'. THIS IS MTS VERSIONOS 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 VERSIONQUPDATE 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.qOBJECT 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 SECTIONYSOURCE FOR NEW TSFO. THIS IS THE NEW MASTER SOURCE FOR TSFO. INCLUDES STANDARD AND APL2GOLFBALLS. 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.ڵ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< kOBJECT 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 oUPDATE 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. oPUTS 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 YFORMAT. EACH LINE IS HALF WORD LENGTH, FULL WORD LINE NUMBER, AND DATA IN THAT ORDER YAND UNALLIGNED. NO LINE IS SPLIT INTO TWO RECORDS. 0HANDLE THE DELAY STATEMENT AT RUN TIME QPRODUCE NEAT DUMPS OF PL1 PROGRAMSY 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 VERSIONOS VERSIONhUPDATE TO GO FROM OS HRTPCONP TO MTS HRTPCONPREMOTE TERMINAL ACESS METHOD. COPIED AS 'HRTPRTAM.U'. THIS IS MTS VERSIONOS 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 VERSIONQUPDATE 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.qOBJECT 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 SECTIONYSOURCE FOR NEW TSFO. THIS IS THE NEW MASTER SOURCE FOR TSFO. INCLUDES STANDARD AND APL2GOLFBALLS. 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.ڵ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< kOBJECT 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 oUPDATE 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. oPUTS 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 YFORMAT. EACH - LINE IS HALF WORD LENGTH, FULL WORD LINE NUMBER, AND DATA IN THAT ORDER YAND UNALLIGNED. NO LINE IS SPLIT INTO TWO RECORDS. 0HANDLE THE DELAY STATEMENT AT RUN TIME QPRODUCE NEAT DUMPS OF PL1 PROGRAMSY 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 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 ==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