< SOMETIMES GOT USERS LOCKED IN SQR AFTER HEAVY RBBAT ACTIVITY   E00#294
/COOP+.2C0/BEZ $+2(BNEZ 0,4)/          1-5 TSM 051677            E00#294
/COOP+.293/LI,1 2(LB,7 *6)/            2-5 TSM 051677            E00#294
/COOP+.294/LB,7 *6(STB,7 COMBAT+.2B)/    3-5 TSM 051677          E00#294
/COOP+.295/STB,7 COMBAT+.2B(BNEZ 0,4)/ 4-5 TSM 051677            E00#294
/COOP+.296/BNEZ 0,4(LI,1 2)/           5-5 TSM 051677            E00#294
< THIS PATCH IS TO MODIFY COOP TO DISCARD BLANK LINES
< BEING SENT TO HASP WORK STATIONS THRU HSPM AND COOP
< SUPPLIED BY MIKE TREAT OF TELEFILE INSERTED BY S. LEA ESD189
< COOP HAD TO BE REASSEMBLED TO DEF COP09CM: AND COP09H:
< CUTS PRINT CYCLE TIME     6/01/78 S.LEA
/COOP+.A1/B @(B COP09CM)/
/@/LB,10 15/    1/6  FIRST BYTE OF SOURCE BUFFER
/@/CI,10 .60/   2/6  UPSPACE ZERO LINES
/@/BNE COP09CM/  3/6 NO GO TO HASP COMPRESSION
/@/CI,1  0/     4/6  IS SOURCE BUFFER SIZE = ZERO
/@/BNE COP09CM/  5/6 NO GO TO HASP COMPRESSION
/@/B COP09H/    6/6  YES DONT PUT THIS LINE IN BLOCK BUFFER
/HOTCARD/NOP(B CLOCK4+.71)/  ENABLE HOT CARD DDL E00
< THIS PATCH ALLOWS QUEUE TO ACCESSED ONLINE FROM SNOOP
/COMBAT+.3/.0A0A0A0A/                   5/17/76 DDL 1/1
<ALLOW DC-32-Q AS PACK SWAPPER
<PATCH ACQUIRED FROM DAVE BRUMLEY, TELEFILE
/TBOOT+.204/NOP(BE *10/
/TBOOT+.27A/NOP(BE ;Q/
<************************* S S T # 9 - 7 7 **********************
<  FIX VARIABLE SPACING BEFORE AND AFTER COC PAGE HEADINGS.       #28688
<  PORTIONS OF PATCH GO TO THE JIT, REGCOCR/TPCOCR, AND TEL.      #28688
<  THE FOLLOWING PATCH TO THE JIT SHOULD GO AT THE                #28688
<  BEGINNING OF THE PATCH DECK                                    #28688
/JITLOC+.3A/.0505(0)/ DFLT LNS BEFORE & AFTER HEADING = 5  .01-35 #28688
< WHEN IN TEL AND USING THE 'MC DEVICE' IF A TIMEOUT OCCURS THE   #29729
<MESSAGE REPEATS INDEFINITELY AND THE  RESOUUCE CAN NOT BE AQUIRED#29729
<WITHOUT OPERATOR RECOVERY                                        #29729
#RAS                                                                        SKIP
/RAS+.90/B @(B RAS+.51)/                 MRS E00 08/05/77 001-006 #29729    SKIP
/@/LB,13 DCT3,1/                         MRS E00 08/05/77 002-006 #29729    SKIP
/@/AND,13 @+3/                           MRS E00 08/05/77 003-006 #29729    SKIP
/@/STB,13 DCT3,1/                        MRS E00 08/05/77 004-006 #29729    SKIP
/@/B RAS+.51/                            MRS E00 08/05/77 005-006 #29729    SKIP
/@/.000000EF/                            MRS E00 08/05/77 006-006 #29729    SKIP
#
<WHEN IN TEL AND USING THE 'MC DEVICE' IF THE BREAK KEY IS HIT TEL#29730
<SCREECHED WITH A COD OF 61-40.                                   #29730
#RAS                                                                        SKIP
/@/LI,15 0/                              MRS E00 08/05/77 002-003 #29730    SKIP
/@/B RAS+.49/                            MRS E00 08/05/77 003-003 #29730    SKIP
#
<IN TEL AND USING THE 'MC' DEVICE, IF THE CONTROL-Y KEYS ARE      #29728
<PRESSED REPEATEDLY THE 'MC ERROR' REPORTED IS GARBLED.           #29728
#RAS                                                                        SKIP
/RAS+.DD/B @(22C0C008)/                  MRS E00 08/05/77 001-006 #29728    SKIP
/@/LI,12 .C008/                          MRS E00 08/05/77 002-006 #29728    SKIP
/@/LB,13 IOQ11,3/                        MRS E00 08/05/77 003-006 #29728    SKIP
/@/BNE RAS+.51/                          MRS E00 08/05/77 004-006 #29728    SKIP
/@/LI,13 IOQM+.115/                      MRS E00 08/05/77 005-006 #29728    SKIP
/@/B IOQ+.2B1/                           MRS E00 08/05/77 006-006 #29728    SKIP
#
<FOUR BREAKS SHOULD RETURN TO TEL WHEN USING THE 'MC' DEVICE.     #29727
#RAS                                                                        SKIP
/RAS+.44/BCR,8  RAS+.47(BCR,8 RAS+.49)/  MRS E00 08/05/77 001-008 #29727    SKIP
/RAS+.58/LI,13 RAS+.47(LI,13 RAS+.49)/   MRS E00 08/05/77 002-008 #29727    SKIP
/RAS+.5D/B @(LI,6 E:CBK)/                MRS E00 08/05/77 003-008 #29727    SKIP
/@/LI,6 E:CBK/                           MRS E00 08/05/77 004-008 #29727    SKIP
/@/MTB,-1 RAS:DOL+1/                     MRS E00 08/05/77 005-008 #29727    SKIP
/@/BNE $+2/                              MRS E00 08/05/77 006-008 #29727    SKIP
/@/LI,6 E:CEC/                           MRS E00 08/05/77 007-008 #29727    SKIP
#
#PWP                                                                        SKIP
<ERROR IN PWP CODE CAUSES IT TO ACQUIRE TWICE THE # OF PHYSICAL             SKIP
<PAGES THAT IT NEEDS                                                        SKIP
/PWP+.3B/B PWP+.3E(LW,2 TABLES+.3F)/   .LA 01 OF 01 08/24/77 E00  #29817    SKIP
#
#PWP                                                                        SKIP
<ERROR IN PWP CODE CAUSES IT TO ACQUIRE TWICE THE # OF PHYSICAL             SKIP
<PAGES THAT IT NEEDS                                                        SKIP
/PWP+.3B/B PWP+.3E(LW,2 S:STL#)/       .LA 08/05/77 01 OF 01 E00  #29817    SKIP
#
< M:DEVICE (NLINES) MUST LOOK TO JIT FOR NON-SYMB COC DEVICE      #27691
< 'ME'.                                                           #27691
/IOD+.130/B @(LI,1 .18/                  PRY E00 06/24/77 001-012 #27691
/@/LI,0 .1000/                           PRY E00 06/24/77 002-012 #27691
/@/LI,1 .3F00/                           PRY E00 06/24/77 003-012 #27691
/@/CS,0 1,6/                             PRY E00 06/24/77 004-012 #27691
/@/BE .+3/                               PRY E00 06/24/77 005-012 #27691
/@/LI,1 .18/                             PRY E00 06/24/77 006-012 #27691
/@/B IOD+.131/                           PRY E00 06/24/77 007-012 #27691
/@/LB,3 .8C46/                           PRY E00 06/24/77 008-012 #27691
/@/LI,1 1/                               PRY E00 06/24/77 009-012 #27691
/@/SW,3 1/                               PRY E00 06/24/77 011-012 #27691
/@/B IOD+.139/                           PRY E00 06/24/77 012-012 #27691
<REPLACEMENT FOR 29077 OF 3/7/77 TO MAKE READREVERSE WORK AGAIN.  #29077
/RDF .206/INT,2 20,6(LW,2 20,6/          PAR E00 06/01/77 001-007 #29077
/RDF .207/LI,3 .FFFF(LH,2 2/             PAR E00 06/01/77 002-007 #29077
/RDF .208/STS,2 20,6(STW,2 20,6/         PAR E00 06/01/77 003-007 #29077
< PROPERLY DECRYPT KEYED FILE RECORDS >= 2048 BYTES               #29457
/RDF+.676/B @(CI,9 .800/                 JFJ E00 05/18/77 001-006 #29457
/@/LI,0 .1FFFF/                          JFJ E00 05/18/77 002-006 #29457
/@/AND,0 .10,6/                          JFJ E00 05/18/77 003-006 #29457
/@/BNEZ RDF+.678/                        JFJ E00 05/18/77 004-006 #29457
/@/CI,9 .800/                            JFJ E00 05/18/77 005-006 #29457
/@/B RDF+.677/                           JFJ E00 05/18/77 006-006 #29457
<MANAGED DEVICES (LT,AT,FILE) SHOULD NOT ABORT BECAUSE OF         #27812
<UNCHECKED ERROR TYCS.                                            #27812
/IORT .3F5/BAL,4 @(BAL,4 ;Q/             PAR E00 03/31/77 001-005 #27812
/@/LI,3 1/                               PAR E00 03/31/77 002-005 #27812
/@/CW,3 0,6/                             PAR E00 03/31/77 003-005 #27812
/@/BAZ IORT .3FF/                        PAR E00 03/31/77 004-005 #27812
/@/B IORT .1A/                           PAR E00 03/31/77 005-005 #27812
<NO-WAIT M:READ/WRITE SHOULD JUST QUEUE THE I/O TO FT IF CURRENTLY#29027
<SPACING (BUT NOT REWINDING).                                     #29027
/@/LW,9 11/                              PAR E00 03/31/77 002-004 #29027
/@/B IORT .281/                          PAR E00 03/31/77 003-004 #29027
/IORT .3C7/BGE ;Q(B ;Q/                  PAR E00 03/31/77 004-004 #29027
< RBT'S DIED AFTER SOME KINDS OF CRASHES.                      E00#28872
/COMBAT+.2C/.05000019(.05000000)/      1-1 TSM 040177          E00#28872
< SYMBIONTS WENT CRAZY WHEN FORCED TO USE CYLINDERS.           E00#29047
<   3 TO ROOT, 3 TO MISOV, 3 TO RBBAT.                         E00#29047
/REQDC+1/AND,8 MASKS+24(AI,8 0)/                 1-9 TSM040177 E00#29047
/COOP+.258/AND,0 MASKS+24(PLW,11 TSTACK)/        2-9 TSM040177 E00#29047
/COOP+.259/B COOP+.1F9(B *11)/                   3-9 TSM040177 E00#29047
#PWP                                                                        SKIP
<SC 7E-40 WHEN TIC REQUIRES MORE WORK PAGES THAN AVAILABLE    E00 #29156    SKIP
/PWP+.28/BAL,11 @(BAL,11 MM+.EB)/      .LA  03/11/77 01 OF 09 E00 #29156    SKIP
/@/MTB,1 .8D1E/                        .LA  03/11/77 02 OF 09 E00 #29156    SKIP
/@/B MM+.EB/                           .LA  03/11/77 03 OF 09 E00 #29156    SKIP
/PWP+.29/B @(B PWP+.43)/               .LA  03/11/77 04 OF 09 E00 #29156    SKIP
/@/MTB,-1 .8D1E/                       .LA  03/11/77 05 OF 09 E00 #29156    SKIP
/@/B PWP+.21/                          .LA  03/11/77 06 OF 09 E00 #29156    SKIP
/PWP+.2E/BAL,11 @(BAL,11 MM+.AF)/      .LA  03/11/77 07 OF 09 E00 #29156    SKIP
/@/MTB,-1 .8D1E/                       .LA  03/11/77 08 OF 09 E00 #29156    SKIP
/@/B MM+.AF/                           .LA  03/11/77 09 OF 09 E00 #29156    SKIP
#
<CAUSES BOOTSUBR TO WRITE THE ROOT TO SWAPPER IN FOUR PIECES      #29105
<INSTEAD OF THREE. THIS PATCH MAKES FOUR WORK PROPERLY.           #29105
/TBOOT .1DE/;Q-4(LI,5 ;Q/                PAR E00 03/07/77 001-013 #29105
/TBOOT .52E/;Q-2(PLW ;Q/                 PAR E00 03/07/77 002-013 #29105
/BOOTSUBR .DA/LI,4 @(LI,4 ;Q/            PAR E00 03/07/77 003-013 #29105
/@/LI,3/                                 PAR E00 03/07/77 004-013 #29105
/@/STD,3 TABLES .E6/                     PAR E00 03/07/77 005-013 #29105
/@/B BOOTSUBR .E3/                       PAR E00 03/07/77 006-013 #29105
/TABLES .E4/.30000DC/                    PAR E00 03/07/77 007-013 #29105
/TABLES .E5/.2E000004(/                  PAR E00 03/07/77 008-013 #29105
/TABLES .E6/.2000000(/                   PAR E00 03/07/77 009-013 #29105
/TABLES .E7/LPSD(/                       PAR E00 03/07/77 010-013 #29105
/TABLES .E8/;Q+4(.30000DC/               PAR E00 03/07/77 011-013 #29105
/TABLES .EB/LPSD(WAIT/                   PAR E00 03/07/77 012-013 #29105
/TABLES .EC/;Q+4(.30000E0/               PAR E00 03/07/77 013-013 #29105
< GET BANNER PAGE BACK LIKE IT WAS IN D00. (1 PAGE +           E00#27105
< 1 LINE  INSTEAD OF 1 PAGE - 1 LINE)                          E00#27105
< 7 TO WRTD; 12 TO MULOV/OPNLD; 12 TO UMOV/OUTSYM.             E00#27105
< ALSO NSLP PRINTS ONE LINE TOO MANY FOR X'40' VFC CODE.       E00#27105
#NSLP                                            01-31TSM030177E00#27105    SKIP
/WRTD+.58/BAL,4 @(BAL,4 WRTD+.6E)/               02-31TSM030177E00#27105    SKIP
/@/CI,14 .40/                                    03-31TSM030177E00#27105    SKIP
/@/BNE $+2/                                      04-31TSM030177E00#27105    SKIP
/@/LI,14 .C0/                                    05-31TSM030177E00#27105    SKIP
/@/B WRTD+.6E/                                   06-31TSM030177E00#27105    SKIP
#                                                07-31TSM030177E00#27105
#MOCIOP                                                                     SKIP
<IOQ CHANGE MUST BE REFLECTED IN MOCIOP      .LA 2/22/77      E00 #29108    SKIP
/MOCIOP+.D4/BAL,4 .D7+MOCIOP(BAL,5 .D7+MOCIOP)  . 2/22/77 1-3 E00 #29108    SKIP
/MOCIOP+.D7/LCI 4(LCI 9)                      .LA 2/22/77 2-3 E00 #29108    SKIP
/MOCIOP+.D8/PSM,1 TSTACK(PSM,13 TSTACK)       .LA 2/22/77 3-3 E00 #29108    SKIP
#
<SC 7E-42 ON M:CHECK OF AT FROM LDLNK                             #27318
/CALPROC .7A/BE @(BE ;Q/                 PAR E00 01/04/77 001-003 #27318
/@/LI,15 IORT .2F3/                      PAR E00 01/04/77 002-003 #27318
/@/B CALPROC .88/                        PAR E00 01/04/77 003-003 #27318
<  GET NUMBER OF RETRIES FOR 3270 IO FROM THE DCB.                #28874
<  SET NUMBER OF RETRIES TO 1 (WAS 10).                           #28874
< 1 SECTION OF PATCH GOES TO MOCIOP, THE OTHER TO THE TIC.        #28874
#MOCIOP                                    .25JAN77 PLS E00 01-09 #28874    SKIP
/MOCIOP+.4F/LW,12 2,6(LI,12 .FF)/          .25JAN77 PLS E00 02-09 #28874    SKIP
/MOCIOP+.50/SLS,12 -16(AND,12 1,6)/        .25JAN77 PLS E00 03-09 #28874    SKIP
/MOCIOP+.51/B @(AI,12 .500)/               .25JAN77 PLS E00 04-09 #28874    SKIP
/@/LI,13 .FF/                              .25JAN77 PLS E00 05-09 #28874    SKIP
/@/LS,12 1,6/                              .25JAN77 PLS E00 06-09 #28874    SKIP
/@/B MOCIOP+.52/                           .25JAN77 PLS E00 07-09 #28874    SKIP
<  FIX VARIABLE SPACING BEFORE AND AFTER COC PAGE HEADINGS.       #28688
<  PORTIONS OF PATCH GO TO THE JIT, REGCOCR/TPCOCR, AND TEL.      #28688
<PREVENT EXTRANEOUS BUFFER MAPPING   TWM  E00E  12/8  5 CARDS     #28789
/RDF+.BB/BCS,2 @(BCS,2 RDF+.BD)/        TWM E00E 12/08/76 001-005 #28789
/@/EXU RDF+.158/                        TWM E00E 12/08/76 002-005 #28789
/@/CW,0 16,6/                           TWM E00E 12/08/76 003-005 #28789
/@/BCR,4 RDF+.C2/                       TWM E00E 12/08/76 004-005 #28789
/@/BCS,4 RDF+.BD/                       TWM E00E 12/08/76 005-005 #28789
<DON'T SUA 7F-2D WHEN LDEV'D BATCH QUEUE IS INTERRUPTED AND       #28696
<SUPERCLOSED.                                                     #28696
/IORT+.19A/ANLZ,8 $-2(LI,8 .1FFFF)/      TSM E00 12/01/76 001-008 #28696
/IORT+.19B/BAL,2 @(AND,8 6)/             TSM E00 12/01/76 002-008 #28696
/@/LI,3 .FF/                             TSM E00 12/01/76 003-008 #28696
/@/AND,3 12,6/                           TSM E00 12/01/76 004-008 #28696
/@/BEZ 0,2/                              TSM E00 12/01/76 005-008 #28696
/@/INT,3 *.8C2A,3/                       TSM E00 12/01/76 006-008 #28696
/@/BCS,2 0,2/                            TSM E00 12/01/76 007-008 #28696
/@/B 8,2/                                TSM E00 12/01/76 008-008 #28696
<PREVENT HOT CARD READER FROM STARTING B4 INITIAL CLEARS SPOOL.   #28755
/INITIAL+.49/LI,1 0(LI,1 .80)/           LLF E00 12/01/76 001-004 #28755
/INITIAL+.4A/STW,1 *SSDAT+.12(WD,1 .1700)/   E00 12/01/76 002-004 #28755
/INITIAL+.4B/LI,1 .80(LI,1 0)/           LLF E00 12/01/76 003-004 #28755
< OCCASIONALLY MOCIOP WOULD GIVE 4A-05 ERROR BECAUSE           E00#28333
< IT LOST ECB ADDRESS BEFORE POSTING.                          E00#28333
#MOCIOP                                        1-5 TSM 110976  E00#28333    SKIP
/MOCIOP+.52/OR,12 LITERALS+.7F(LB,3 .4F)/Y00FF 2-5 TSM 110976  E00#28333    SKIP
/MOCIOP+.53/LW,5 1,7(STH,3 12)/                3-5 TSM 110976  E00#28333    SKIP
/MOCIOP+.67/LW,2 5(LW,2 1,7)/                  4-5 TSM 110976  E00#28333    SKIP
#                                              5-5 TSM 110976  E00#28333
< PREVENT SCREECH 2E-00    E00E  TWM  11/1  3 CARDS               #28480
/WRTF+.125/BCR,4 @(BCR,4 WRTF+.128)/   1 OF 3  E00E  TWM  11/1    #28480
/@/BAL,0 RDF+.14B/  CLRBFUB            2 OF 3  E00E  TWM  11/1    #28480
/@/B WRTF+.128/                        3 OF 3  E00E  TWM  11/1    #28480
<RETRIES FOR TAPE SPACING OPERATIONS                              #28827
/IORT .3DF/LI,12 12(LB,12 12/            PAR E00 12/01/76 001-001 #SDR03
<DONT QUEUE ALLYCAT FOR ITSELF                                   #28826
/GRAN+.59/LCH,4 ;Q+4,1(LH,4 ;Q,1//     1 OF 3 PAR E00 12/16/76   #28826
/GRAN .5A/BGE . 2(SH,4 ;Q,1/           2 OF 3 PA- E00 12/16/76   #28826
/GRAN .5B/LI,4(AND,4 ;Q,1/             3 OF 3 PAR E00 12/16/76   #28826
< FIXUP THE BLKNG BFR CONTENTS  TWM  E00E  10/28  17 CARDS        #28474
/WRTF+.4EE/B @(BCR,3 WRTF+.48B)/  1 OF 17  E00E  10/28  TWM       #28474
/@/BCR,3 WRTF+.48B/               2 OF 17  E00E  10/28  TWM       #28474
/@/LI,4 WRTF+.4EF/                3 OF 17  E00E  10/28  TWM       #28474
/@/B $+3/                         4 OF 17  E00E  10/28  TWM       #28474
/@/.2530020F/                     6 OF 17  E00E  10/28  TWM       #28474
/@/LI,4 WRTF+.48B/                7 OF 17  E00E  10/28  TWM       #28474
/@/CI,3 .7D8/                     8 OF 17  E00E  10/28  TWM       #28474
/@/BCS,1 0,4/                     9 OF 17  E00E  10/28  TWM       #28474
/@/LCW,0 3/                      10 OF 17  E00E  10/28  TWM       #28474
/@/AI,0 .800/                    11 OF 17  E00E  10/28  TWM       #28474
/@/CW,0 13,6/  RWS               12 OF 17  E00E  10/28  TWM       #28474
/@/BCR,1 0,4/                    13 OF 17  E00E  10/28  TWM       #28474
/@/LW,3 1,6/                     14 OF 17  E00E  10/28  TWM       #28474
/@/LI,1 .F0000/                  15 OF 17  E00E  10/28  TWM       #28474
/@/STS,0 4,3/                    16 OF 17  E00E  10/28  TWM       #28474
/@/B WRTF+.4CF/                  17 OF 17  E00E  10/28  TWM       #28474
<MM PROBLEM                                                       #28475
/MM+.A2/STM,11 .1F6,7/                   KDR E00 10/22/76 001-001 #28475
<LOCAT1/         STD,12  QTSZ+.D2,7   STM,11 .1F6,7/                   KDR E00 1
<*******************************************************************************
<                      F I N A L   C O N F I G U R A T I O N
<*******************************************************************************
<            D E V I C E   R E S O U R C E   C O N F I G U R A T I O N
<DEV-TYP : DEV-ID : DEV-ADDR :DCT-CIT: PUB/PRIV : TYPE : RTOT : GENERAL INFORMAT
<-------------------------------------------------------------------------------
<
< CR7121    CRA03     0003     02-05               CR            SYMBIONT
< LP7463    LPA02     0002     03-02               LP            SYMBIONT
< LP7463    LPB02     0102     04-03                             SYMBIONT
< LP7463    LPB03     0103     05-04                             SYMBIONT
< DC7212    DCCF0     02F0     06-07               DC            NO-PART-DEV
< DC7212    DCCF1     02F1     07-07                             NO-PART-DEV
< 9T7315    9TA80     0080     08-06               9T     02
< 9T7315    9TA81     0081     09-06
< DP7275    DPAC0     00C0     0A-08     PUB       DP            NO-PART-DEV
<   DUAL    DPAC0     01C0     0A-08     PUB                     NO-PART-DEV
< DP7275    DPAC1     00C1     0B-08     PUB                     NO-PART-DEV
<   DUAL    DPAC1     01C1     0B-08     PUB                     NO-PART-DEV
< DP7275    DPAC2     00C2     0C-08     PUB                     NO-PART-DEV
<   DUAL    DPAC2     01C2     0C-08     PUB                     NO-PART-DEV
< DP7275    DPAC3     00C3     0D-08     PUB                     NO-PART-DEV
<   DUAL    DPAC3     01C3     0D-08     PUB                     NO-PART-DEV
< DP7275    DPAC4     00C4     0E-08     PUB                     NO-PART-DEV
<   DUAL    DPAC4     01C4     0E-08     PUB                     NO-PART-DEV
< DP7275    DPAC5     00C5     0F-08     PUB                     NO-PART-DEV
<   DUAL    DPAC5     01C5     0F-08     PUB                     NO-PART-DEV
< DP7275    DPAC6     00C6     10-08     PUB                     NO-PART-DEV
<   DUAL    DPAC6     01C6     10-08     PUB                     NO-PART-DEV
<   DUAL    DPAC7     01C7     11-08     PUB                     NO-PART-DEV
< DP7275    DPAC8     00C8     12-08     PUB                     NO-PART-DEV
<   DUAL    DPAC8     01C8     12-08     PUB                     NO-PART-DEV
< RB7605    RBA06     0006     13-0C               RB
< MEFFFF    MEA05     0005     14-09               ME            NO-PART-DEV
< MEFFFF    MEA07     0007     15-0A                             NO-PART-DEV
<
<*******************************************************************************
ALLOCAT1//
<REPLACEMENT FOR PATCH #29204 DATED 3/31 WHICH SHOULD BE REMOVED. #29718
<THIS ONE SHOULD REDUCE EXCESS ALLOCAT EXECUTION AND I/O.         #29718
ALLOCAT1/ALLYCAT .1D1/BAL,6 @(BAL,6 ;Q/  PAR E00 07/27/77 001-004 #29718
/@/MTW *ALLYCAT .1CA/                    PAR E00 07/27/77 002-004 #29718
/@/BNE ALLYCAT .1CD/                     PAR E00 07/27/77 003-004 #29718
/@/B ALLYCAT .1DA/                       PAR E00 07/27/77 004-004 #29718
FIX0//
FIX1//
<FIX CAN'T RESTART RABBIT WHEN IT DIES, BECAUSE THE COMMUNICATION
<BUFFERS END UP IMPROPERLY LINKED
FIX1/FIXHGP+.F0/B @(LW,4 .1FFFE)/
/@/LI,5 0/
/@/STB,5 COMBAT+.2C/ ...SGCHD+1
/@/B FIXHGP+.F1/
< RESET ZAPDUMP FLAG ON NO ZAP PATH                               #29363
FIX1/FIXHGP+.2A6/BNEZ @(BNEZ 0,5/        JFJ E00 04/25/77 001-007 #29363
FIX1/FIXHGP+.2AC/BNEZ @(BNEZ 0,5/        JFJ E00 04/25/77 002-007 #29363
FIX1/FIXHGP+.2B6/BE @(BE 0,5/            JFJ E00 04/25/77 003-007 #29363
FIX1/FIXHGP+.2B8/BNE @(BNE 0,5/          JFJ E00 04/25/77 004-007 #29363
/@/LI,8 0/                               JFJ E00 04/25/77 005-007 #29363
/@/STW,8 FIXHD+.23/                      JFJ E00 04/25/77 006-007 #29363
/@/B 0,5/                                JFJ E00 04/25/77 007-007 #29363
<REPLACEMENT FOR 29188 PATCH OF 3/10 WHICH DIDNT FIX              #29188
<A BAD GAVAL/NGAVAL PROBLEM.                                      #29188
<FIX SHOULD NOT DESTROY FILE DIRECTORIES, EVEN IF FILE MANAGEMENT #29188
<OR HARDWARE TRIED TO DO SO.                                      #29188
FIX1/P .24E/B PT 52(BE ;Q/               PAR E00 04/26/77 001-028 #29188
FIX1/PT 52/BE P .252(/                   PAR E00 04/26/77 002-028 #29188
FIX1/PT 53/LI,11(/                       PAR E00 04/26/77 003-028 #29188
FIX1/PT 54/STB,11 D .268,7(/             PAR E00 04/26/77 004-028 #29188
FIX1/PT 55/B P .24F(/                    PAR E00 04/26/77 005-028 #29188
FIX1/P .5D1/;Q+510(LW,8 1,6/             PAR E00 04/26/77 006-028 #29188
FIX1/P .5D5/MTW 1,6(STW,8 ;Q/            PAR E00 04/26/77 007-028 #29188
FIX1/P .5D6/BE . 3(BE ;Q/                PAR E00 04/26/77 008-028 #29188
FIX1/P .5D8/;Q-1(BCS,15 ;Q/              PAR E00 04/26/77 009-028 #29188
FIX1/P .5DD/;Q-1(BE ;Q/                  PAR E00 04/26/77 010-028 #29188
FIX1/FIXSUB .162/NOP(BANZ . 3/           PAR E00 04/26/77 011-028 #29188
FIX1/FIXSUB .2EE/MTW ;Q(LW,15 ;Q/        PAR E00 04/26/77 012-028 #29188
FIX1/FIXSUB .315/MTW ;Q(LW,15 ;Q/        PAR E00 04/26/77 013-028 #29188
FIX1/FIXSUB .325/NOP(BAL,10 ;Q/          PAR E00 04/26/77 014-028 #29188
FIX1/FIXSUB .63D/B PT 56(B ;Q/           PAR E00 04/26/77 015-028 #29188
FIX1/PT 56/BAL,11 FIXSUB .FB(/           PAR E00 04/26/77 016-028 #29188
FIX1/PT 57/LW,6 D .229,7(/               PAR E00 04/26/77 017-028 #29188
FIX1/PT 58/BAL,10 FIXSUB .2D4(/          PAR E00 04/26/77 018-028 #29188
FIX1/PT 59/BE FIXSUB .644(/              PAR E00 04/26/77 019-028 #29188
FIX1/PT 60/B FIXSUB .3D8(/               PAR E00 04/26/77 020-028 #29188
FIX1/FIXSUB .3D9/LW,15 BITS 32(CW,8 ;Q/  PAR E00 04/26/77 021-028 #29188
FIX1/. 1/STS,15 D .218,7(BAZ ;Q/         PAR E00 04/26/77 022-028 #29188
FIX1/. 5/BAL,10 FIXSUB .E1(LI,15/        PAR E00 04/26/77 023-028 #29188
FIX1/. 1/B FIXSUB .646(STW,15 ;Q,7/      PAR E00 04/26/77 024-028 #29188
FIX1/FIXSUB .22E/BAL,5 PT 61(LI,7 HGP/   PAR E00 04/26/77 025-028 #29188
FIX1/. 1/B . 16(BAL,5 ;Q/                PAR E00 04/26/77 026-028 #29188
FIX1/PT 61/LI,7 HGP(/                    PAR E00 04/26/77 027-028 #29188
FIX1/PT 62/B FIXHGP .C61(/               PAR E00 04/26/77 028-028 #29188
< THIS PATCH REPLACES A 22 CARD PATCH WITH THE SAME
< SIDR. NUMBER AND DATE.
<RECONSTRUCT SHOULD KEEP ALLOCATING GRANULES IN A SOMEWHAT FAULTY #28394
<FILE UNLESS IT TRUNCATES IT.                                     #28394
FIX1/P .225/B PT 37(B ;Q/                PAR E00 01/24/77 001-023 #28394
FIX1/PT 37/STW,7 D .1B8(/                PAR E00 01/24/77 003-023 #28394
FIX1/PT 38/B P .228(/                    PAR E00 01/24/77 004-023 #28394
FIX1/P .22E/LW,6 D .1BC(STW,8 ;Q,7/      PAR E00 01/24/77 005-023 #28394
FIX1/P .22F/STW,8 D .207,7(LW,2 ;Q/      PAR E00 01/24/77 006-023 #28394
FIX1/. 1/STB,7 ;Q,6(STB,7 ;Q,2/          PAR E00 01/24/77 007-023 #28394
FIX1/. 1/LW,8 ;Q,6(LW,8 ;Q,2/            PAR E00 01/24/77 008-023 #28394
FIX1/P .236/LW,7 ;Q(STW,7 ;Q/            PAR E00 01/24/77 009-023 #28394
FIX1/P .252/LW,6 ;Q(LW,7 ;Q/             PAR E00 01/24/77 010-023 #28394
FIX1/P .253/LB,7 ;Q,6(LB,7 ;Q,7/         PAR E00 01/24/77 011-023 #28394
FIX1/P .256/B PT 39(B ;Q/                PAR E00 01/24/77 012-023 #28394
FIX1/PT 39/LW,7 D .229,6(/               PAR E00 01/24/77 013-023 #28394
FIX1/PT 40/LW,8 1,7(/                    PAR E00 01/24/77 014-023 #28394
FIX1/PT 41/BE P .32B(/                   PAR E00 01/24/77 015-023 #28394
FIX1/PT 42/LI,2 3(/                      PAR E00 01/24/77 016-023 #28394
FIX1/PT 43/BAL,15 FIXSUB .13A(/          PAR E00 01/24/77 017-023 #28394
FIX1/PT 44/BE P .22D(/                   PAR E00 01/24/77 018-023 #28394
FIX1/PT 45/STW,7 D .1B8(/                PAR E00 01/24/77 019-023 #28394
FIX1/PT 46/B P .2FF(/                    PAR E00 01/24/77 020-023 #28394
FIX1/P .5D4/NOP(AND,8 ;Q/                PAR E00 01/24/77 021-023 #28394
FIX1/P .39/NOP(STS,11 ;Q/                PAR E00 01/24/77 022-023 #28394
FIX1/FIXSUB .492/AI,8 -14(AI,8 14/       PAR E00 01/24/77 023-023 #28394
<FIX SHOULD NOT LOOP ON BAD DELETED KEYS.                         #29036
FIX1/FIXSUB+.48F/B PT 47(LI,4/           PAR E00 02/24/77 002-007 #29036
FIX1/PT 47/BNE . 3(/                     PAR E00 02/24/77 003-007 #29036
FIX1/PT 48/LW,8 D .1A5(/                 PAR E00 02/24/77 004-007 #29036
FIX1/PT 49/AI,8 -1(/                     PAR E00 02/24/77 005-007 #29036
FIX1/PT 50/LI,4(/                        PAR E00 02/24/77 006-007 #29036
FIX1/PT 51/B FIXSUB+.490(/               PAR E00 02/24/77 007-007 #29036
<FIX OCCASIONALLY CAUSES 7E-40 WITH BAD END ACTION ADDRESS.      #27982
FIX1/FIXSUB .4D5/B PT 2(SCS,5 -8/      1 OF 8 PAR 11/23/76 E00   #27982
FIX1/PT 2/AW,5 D .171/                 2 OF 8 PAR 11/23/76 E00   #27982
FIX1/PT 3/CI,5 D*4 .5C4(/              3 OF 8 PAR 11/23/76 E00   #27982
FIX1/PT 4/BLE . 2/                     4 OF 8 PAR 11/23/76 E00   #27982
FIX1/PT 5/LI,5 D*4 .5C4(/              5 OF 8 PAR 11/23/76 E00   #27982
FIX1/PT 6/SW,5 D .171/                 6 OF 8 PAR 11/23/76 E00   #27982
FIX1/PT 7/SCS,5 -8(/                   7 OF 8 PAR 11/23/76 E00   #27982
FIX1/PT 8/B FIXSUB .4D6(/              8 OF 8 PAR 11/23/76 E00   #27982
FIX1/P .341/BAL,10 PT(BAL,10 ;Q/       01 OF 55 PAR 11/23/76 E00 #28805
FIX1/PT/AND,8 MASKS 27(/               02 OF 55 PAR 11/23/76 E00 #28805
FIX1/PT 1/B P .35F(/                   03 OF 55 PAR 11/23/76 E00 #28805
FIX1/FIXHGP .A41/NOP(BNE . 4/          04 OF 55 PAR 11/23/76 E00 #28805
FIX1/P .47A/;Q 8(BE ;Q/                05 OF 55 PAR 11/23/76 E00 #28805
FIX1/P .456/;Q .3C00(AI,1 ;Q/          06 OF 55 PAR 11/23/76 E00 #28805
FIX1/FIXHGP+.DDB/LB,3  *7,3/           07 OF 55 PAR 11/23/76 E00 #28805
FIX1/P .174/BAL,11 P .388(NOP/         09 OF 55 PAR 11/23/76 E00 #28805
FIX1/P .727/;Q,7(CI,1 8/               10 OF 55 PAR 11/23/76 E00 #28805
FIX1/P .582/NOP(AI,3 -16/              11 OF 55 PAR 11/23/76 E00 #28805
FIX1/P .346/BE . 3(BG . 3/             12 OF 55 PAR 11/23/76 E00 #28805
FIX1/P .364/LI,11 FIXSUB .7A2(LI,11 ;Q/13 OF 55 PAR 11/23/76 E00 #28805
FIX1/P .366/BAL,11 PT 9(BAL,11 ;Q/     14 OF 55 PAR 11/23/76 E00 #28805
FIX1/PT 9/LI,2(/                       15 OF 55 PAR 11/23/76 E00 #28805
FIX1/. 1/STB,2 D .268,7(/              16 OF 55 PAR 11/23/76 E00 #28805
FIX1/. 1/B FIXSUB .620(/               17 OF 55 PAR 11/23/76 E00 #28805
FIX1/P .336/LW,8 D .1BE(LW,8 ;Q/       18 OF 55 PAR 11/23/76 E00 #28805
FIX1/P .170/BAL,11 PT 12(BAL,11 ;Q/    19 OF 55 PAR 11/23/76 E00 #28805
FIX1/PT 12/STW,6 D .1B2(/              20 OF 55 PAR 11/23/76 E00 #28805
FIX1/PT 13/B FIXHGP .49E(/             21 OF 55 PAR 11/23/76 E00 #28805
FIX1/P .15A/BAL,15 PT 14(BAL,11 ;Q/    22 OF 55 PAR 11/23/76 E00 #28805
FIX1/P .15C/;Q,15(BAL,11 ;Q/           23 OF 55 PAR 11/23/76 E00 #28805
FIX1/PT 14/LW,6 D .207,7(/             24 OF 55 PAR 11/23/76 E00 #28805
FIX1/PT 15/B FIXSUB .14F(/             25 OF 55 PAR 11/23/76 E00 #28805
FIX1/P .15E/B PT 16(B ;Q/              26 OF 55 PAR 11/23/76 E00 #28805
FIX1/PT 16/STW,6 D .207,7(/            27 OF 55 PAR 11/23/76 E00 #28805
FIX1/PT 17/B P .13A(/                  28 OF 55 PAR 11/23/76 E00 #28805
FIX1/FIXSUB .377/;Q+.400(LI,15 ;Q/     29 OF 55 PAR 11/23/76 E00 #28805
FIX1/FIXSUB .3AC/;Q+.400(LI,15 ;Q/     30 OF 55 PAR 11/23/76 E00 #28805
FIX1/PT 18/LW,5 D .1B7(/               32 OF 55 PAR 11/23/76 E00 #28805
FIX1/PT 19/B FIXSUB .381(/             33 OF 55 PAR 11/23/76 E00 #28805
FIX1/FIXSUB .38E/LW,8 ;Q,5(LW,8 ;Q/    34 OF 55 PAR 11/23/76 E00 #28805
FIX1/FIXSUB .3BF/B PT 20(BNE ;Q/       35 OF 55 PAR 11/23/76 E00 #28805
FIX1/PT 20/BNE . 2(/                   36 OF 55 PAR 11/23/76 E00 #28805
FIX1/PT 21/BAL,15 FIXSUB .14F(/        37 OF 55 PAR 11/23/76 E00 #28805
FIX1/PT 22/LCI 5(/                     38 OF 55 PAR 11/23/76 E00 #28805
FIX1/PT 23/PLM,3 D(/                   39 OF 55 PAR 11/23/76 E00 #28805
FIX1/PT 24/STW,3 D .1A6(/              40 OF 55 PAR 11/23/76 E004#28805
FIX1/PT 25/LW,11 BITS 32(/             41 OF 55 PAR 11/23/76 E00 #28805
FIX1/PT 26/EOR,11 D .1B2,5(/           42 OF 55 PAR 11/23/76 E00 #28805
FIX1/PT 27/STW,11 D .1B2,5(/           43 OF 55 PAR 11/23/76 E00 #28805
FIX1/PT 28/BG FIXSUB .367(/            44 OF 55 PAR 11/23/76 E00 #28805
FIX1/FIXSUB .3C1/B PT 29(LB,11 *6,3/   45 OF 55 PAR 11/23/76 E00 #28805
FIX1/PT 29/LI,2 4(/                    46 OF 55 PAR 11/23/76 E00 #28805
FIX1/. 1/CH,3 *6,2(/                   47 OF 55 PAR 11/23/76 E00 #28805
FIX1/. 1/BGE FIXSUB .3E8(/             48 OF 55 PAR 11/23/76 E00 #28805
FIX1/. 1/LB,11 *6,3(/                  49 OF 55 PAR 11/23/76 E00 #28805
FIX1/. 1/B FIXSUB .3C2(/               50 OF 55 PAR 11/23/76 E00 #28805
FIX1/FIXSUB .387/BG ;Q(BGE ;Q/         51 OF 55 PAR 11/23/76 E00 #28805
FIX1/FIXSUB .3AD/BAL,11 PT 34(BAL,15 ;Q/52OF 55 PAR 11/23/76 E00 #28805
FIX1/PT 34/LW,3 D .1AF,5(/             53 OF 55 PAR 11/23/76 E00 #28805
FIX1/. 1/B FIXSUB .620(/               55 OF 55 PAR 11/23/76 E00 #28805
GHOST11//
<  CORRECT PROBLEM RUNNING 7242 PACK SWAPPER WITH FULL PSA        #28929
<ALLOCATION.                                                      #28929
GHOST11/SYSMAK+.1EA/B @(STH,11 8/        KDR E00 03/24/77 001-004 #28929
/@/AI,8 -1/                              KDR E00 03/24/77 002-004 #28929
/@/STH,11 8/                             KDR E00 03/24/77 003-004 #28929
/@/B SYSMAK+.1EB/                        KDR E00 03/24/77 004-004 #28929
<GHOST1 PROBLEM                                                   #28806
GHOST11/GHOST1D .125/.40000(.40003/      PAR E00 12/01/76 001-001 #28806
CLOSE//
<DELREC SHOULD NOT HIDE DISK SPACE, EVEN ON CYLINDER ALLOCATED    #29168
<DEVICES. ! PATCH TO CLOSE.                                       #29168
CLOSE/DLT .7A/NOP(MTB,3 .9600,3/         PAR E00 06/20/77 001-001 #29168
< COUNT RANDOM JOB FILE AGAINST TEMPORARY NOT PERMANENT.          #29515
< 9 CARDS TO OPEN, 5 TO CLOSE.                                    #29515
CLOSE/CLS+.4F0/B @(BLZ .+2/              PRY E00 06/23/77 001-005 #29515
/@/LC 9/                                 PRY E00 06/23/77 002-005 #29515
/@/BCR,8 CLS+.4F1/                       PRY E00 06/23/77 003-005 #29515
/@/BCR,4 CLS+.4F2/                       PRY E00 06/23/77 004-005 #29515
/@/B CLS+.4F1/                           PRY E00 06/23/77 005-005 #29515
< PREVENT S.C. 2E-01 WHEN RELEASING MASTER OF SYNON FILE          #29234
/@/BAL,0 RDF+.14B/                       JFJ E00 04/18/77 002-004 #29234
/@/LI,14 .9600/                          JFJ E00 04/18/77 003-004 #29234
/@/B CLS+.68A/                           JFJ E00 04/18/77 004-004 #29234
<ACCOUNT JOB FILE GRANULE RELEASE TWM E00 3/22/77 6 CARDS         #29196
CLOSE/DLT+.299/B @(LW,1 1,6)/            TWM E00 03/22/77 001-006 #29196
/@/LW,1 1,6/                             TWM E00 03/22/77 002-006 #29196
/@/LW,11 *CLS+.318/                      TWM E00 03/22/77 003-006 #29196
/@/CS,11 5,6/                            TWM E00 03/22/77 004-006 #29196
/@/BE DLT+.29F/                          TWM E00 03/22/77 005-006 #29196
/@/B DLT+.29A/                           TWM E00 03/22/77 006-006 #29196
<PICK RIGHT GRAN SERV LIMIT FOR REL  TWM 3/9 E00 2 CARDS          #28478
CLOSE/DLT+.29A/LW,13 LITERALS+.18(LI,13 .A00)/   03/09/77 001-002 #28478
CLOSE/DLT+.29B/CW,13 1,6(CW,13 0,1)/     TWM E00 03/09/77 002-002 #28478
<DELETE OF PRIVATE RANDOM FILE SHOULDNT CRASH OR SUA.            #28935
CLOSE/DLT .DD/LI,13(LI,11/             1 OF 3 E00 PAR 1/13/77    #28935
CLOSE/DLT .DF/;Q-2(BE ;Q/              2 OF 3 E00 PAR 1/13/77    #28935
CLOSE/DLT .F2/LW,11 13(LW,11 2,1/      3 OF 3 E00 PAR 1/13/77    #28935
<PREVENT S/C 2E-01 ON DLT SYNON FILES   E00E  TWM  12-1 4 CARDS   #28789
CLOSE/DLT+.90/B @(PSW,11 TSTACK)/       TWM E00E 12/01/76 001-004 #28789
/@/PSW,11 TSTACK/                       TWM E00E 12/01/76 002-004 #28789
/@/BAL,0 RDF+.14B/                      TWM E00E 12/01/76 003-004 #28789
/@/B DLT+.91/                           TWM E00E 12/01/76 004-004 #28789
<ENABLE CFU SHIFT    E00E   TWM  11/30  4 CARDS                   #28704
CLOSE/CLS+.46D/B @(LW,1 1,6)/           TWM E00E 11/30/76 001-004 #28704
/@/LI,1 .1FFFF/                         TWM E00E 11/30/76 002-004 #28704
/@/AND,1 1,6/                           TWM E00E 11/30/76 003-004 #28704
/@/B CLS+.46E/                          TWM E00E 11/30/76 004-004 #28704
<PREVENT REOPEN DURING UPPER LEVEL BUILD                          #28474
CLOSE/CLS+.311/B @(STS,11 0,1)/         TWM E00E 11/29/76 001-006 #28474
/@/STS,11 0,1/                          TWM E00E 11/29/76 002-006 #28474
/@/LI,11 .F00/                          TWM E00E 11/29/76 003-006 #28474
/@/LI,10 .400/                          TWM E00E 11/29/76 004-006 #28474
/@/STS,10 0,1/                          TWM E00E 11/29/76 005-006 #28474
/@/B CLS+.312/                          TWM E00E 11/29/76 006-006 #28474
<STAR FILE CLOSE OVER CAN GIVE 75-02  TWM 11-23 E00E 5 CARDS      #28704
CLOSE/CLS+.18A/B @(LI,13 0)/            TWM E00E 11/23/76 001-005 #28704
/@/LI,13 .100/                          TWM E00E 11/23/76 002-005 #28704
/@/STS,13 *CLS+.1E4/                    TWM E00E 11/23/76 003-005 #28704
/@/LI,13 0/                             TWM E00E 11/23/76 004-005 #28704
/@/B CLS+.18B/                          TWM E00E 11/23/76 005-005 #28704
<ENABLE EXECUTE ONLY     TWM  E00E  1 CARD ONLY  11-18            #28478
CLOSE/CLS+.714/B CLS+.720(BCS,3 CLS+.720)/  E00E 11/18/76 001-001 #28478
< FIX 75-02 FOR CONSEC SCRATCH FILE   E00E  TWM  11/2  1 CARD     #28474
CLOSE/CLS+.38E/B CLS+.421(LI,4 0)/  E00E  TWM  11/2  1 ONLY       #28474
<LET APL IDENTIFY A WORK SPACE       TWM  E00E  4 CARDS  11-19    #28478
CLOSE/CLS+.718/B @(B CLS+.73B)/         TWM E00E 11/19/76 001-004 #28478
/@/BCR,3 CLS+.720/                      TWM E00E 11/19/76 003-004 #28478
/@/B CLS+.73B/                          TWM E00E 11/19/76 004-004 #28478
< FIX FILE BUSY FOR INPUT FILES   5 CARDS E00E  TWM  10/29        #28478
CLOSE/CLS+.39B/B CLS+.39D(BCR,4 CLS+.39D)/  1 OF 5 TWM E00E 10/29 #28474
CLOSE/CLS+.399/LI,8 .700(LI,8 .400)/        2 OF 5 TWM E00E 10/29 #28474
CLOSE/CLS+.647/LI,8 .400(LI,8 .400)/ NO CHG 3 OF 5 TWM E00E 10/29 #28474
CLOSE/CLS+.56C/B CLS+.56E(BCR,4 CLS+.56E)/  4 OF 5 TWM E00E 10/29 #28474
CLOSE/CLS+.569/LI,4 .700(LI,4 .400)/        5 OF 5 TWM E00E 10/29 #28474
< GET RID OF LOST OUT FILES  TWM  E00E  3 CARDS                   #28478
CLOSE/CLS+.35B/PSW,8 TSTACK/  1 OF 3                              #28478
CLOSE/CLS+.35C/EXU CLS+.358/    2 OF 3                            #28478
CLOSE/CLS+.35D/PLW,8 TSTACK/    3 OF 3                            #28478
< FIX FILE BUSY  7 CARDS  E00E  TWM  11/10                        #28478
CLOSE/CLS+.5A8/B @(B CLS+.421)/        1 OF 7  E00E  TWM  11/10   #28478
CLOSE/CLS+.5B8/B @(B CLS+.421)/        2 OF 7  E00E  TWM  11/10   #28478
CLOSE/CLS+.788/BCS,3 @(BCS,3 CLS+.466)/ 3OF 7  E00E  TWM  11/10   #28478
/@/LI,2 .29/  HAPBD                    4 OF 7  E00E  TWM  11/10   #28478
/@/LH,4 *6,2/                          5 OF 7  E00E  TWM  11/10   #28478
/@/BCR,1 CLS+.421/                     6 OF 7  E00E  TWM  11/10   #28478
/@/B CLS+.60F/                         7 OF 7  E00E  TWM  11/10   #28478
< MORE FIX FILE BUSY  8 CARDS  E00E  TWM  11/10                   #28478
CLOSE/CLS+.371/BCR,4 @(BCR,4 CLS+.466)/    1 OF 8 E00E TWM 11/10  #28478
CLOSE/CLS+.376/BCS,4 @(BCS,4 CLS+.466)/    3 OF 8 E00E TWM 11/10  #28478
/@/LI,4 0/                                 4 OF 8 E00E TWM 11/10  #28478
/@/LI,5 .1FFFF/                            5 OF 8 E00E TWM 11/10  #28478
/@/STS,4 4,1/                              6 OF 8 E00E TWM 11/10  #28478
/@/LI,5 0/                                 7 OF 8 E00E TWM 11/10  #28478
/@/B CLS+.421/                             8 OF 8 E00E TWM 11/10  #28478
< FIX LOST GRANULES &  FILES  TWM  E00E  11/12  2 CARDS           #28478
CLOSE/CLS+.680/NOP(BCR,3 CLS+.421)/  1 OF 2  TWM  E00DE  11/12    #28478
CLOSE/CLS+.684/B CLS+.687(LI,12 4)/  2 OF 2  TWM  E00DE  11/12    #28478
<MORE EFFICIENCY FOR CONSEC FILE CLOSE                            #28824
/RDF+.599/BCS,2 @(BCS,2 RDF+.D8)/        TWM E00 12/01/76 001-007 #28824
/@/LI,0 .1FFFF/                          TWM E00 12/01/76 002-007 #28824
/@/LI,1 1/                               TWM E00 12/01/76 003-007 #28824
/@/AND,0 1,6/                            TWM E00 12/01/76 004-007 #28824
/@/CI,0 BGRCFU/                          TWM E00 12/01/76 005-007 #28824
/@/BCR,1 RDF+.59D/                       TWM E00 12/01/76 006-007 #28824
/@/B RDF+.D8/                            TWM E00 12/01/76 007-007 #28824
DEBUG//
<
< SNAP STEALS MPOOLS WHEN THERE IS NOTHING TO SNAP
<
DEBUG/SNAP+.9D/BL SNAP+.A5(BL SNAP+.A6)/           1/1   EXPER 6/8/77
<SAME SIDR NUMBER.                                                #29018
<THIS PATCH CAUSES DEBUG TO DUMP ONLY THE M:* DCB AND NOT A LOT OF#29018
<MEMORY IN ADDITION; CAUSED BY FACT THAT KBUF AND VLP POINTERS IN #29018
<M:* DCB ARE NOT VALID.                                           #29018
DEBUG/DUMP+.34/BAL,11 DUMP+.1DA(LW,9 DUMP+.1C8)/ 05/02/77 001-009 #29018
DEBUG/DUMP+.35/LW,9 DUMP+.1C8(CW,9 0,7)/ LLF E00 05/02/77 002-009 #29018
DEBUG/DUMP+.36/CW,9 0,1(BE DUMP+.28)/    LLF E00 05/02/77 003-009 #29018
DEBUG/DUMP+.37/B @(BAL,11 DUMP+.1DA)/    LLF E00 05/02/77 004-009 #29018
/@/BNE DUMP+.38/                         LLF E00 05/02/77 005-009 #29018
/@/LW,9 8/                               LLF E00 05/02/77 006-009 #29018
/@/AI,9 39/                              LLF E00 05/02/77 007-009 #29018
/@/BAL,11 DUMP+.E4/                      LLF E00 05/02/77 008-009 #29018
/@/B DUMP+.28/                           LLF E00 05/02/77 009-009 #29018
<CORRECT MULTIPLE LINE ERROR WHEN DUMPING CORE WITH M:SNAP.       #28681
DEBUG/DUMP+.13F/B @(AW,9 3)/             LLF E00 12/01/76 001-004 #28681
/@/AW,9 3/                               LLF E00 12/01/76 002-004 #28681
/@/AW,9 -1,7/                            LLF E00 12/01/76 003-004 #28681
/@/B DUMP+.140/                          LLF E00 12/01/76 004-004 #28681
ENQOV//
<ENQUE PROBLEM                                                    #28813
ENQOV/ENQUE+.173/BANZ $+3(BANZ $+2)/     MPR E00 12/01/76 001-001 #28813
<REMOVE SUSPICIOUS UPDATES....MPR  E00E
<TEMPORARY PATCH TO PICK UP LEFTOVER PEBBLES.                     #28269
ENQOV/ENQO+.259/B  @(LCI 4)/             MPR E00 10/12/76 001-021 #28269
/@/LD,14  QT/                            MPR E00 10/12/76 002-021 #28269
/@/LI,2  1/                              MPR E00 10/12/76 003-021 #28269
/@/LH,1  14,2/                           MPR E00 10/12/76 004-021 #28269
/@/LD,14  QT,1/                          MPR E00 10/12/76 005-021 #28269
/@/LH,1  14,2/                           MPR E00 10/12/76 006-021 #28269
/@/LD,12  QT,1/                          MPR E00 10/12/76 007-021 #28269
/@/LH,1  12,2/                           MPR E00 10/12/76 008-021 #28269
/@/LD,12  QT,1/                          MPR E00 10/12/76 009-021 #28269
/@/LH,1  12,2/                           MPR E00 10/12/76 010-021 #28269
/@/LD,4  QT,1/                           MPR E00 10/12/76 011-021 #28269
/@/AND,5  LITERALS+.62/                  MPR E00 10/12/76 012-021 #28269
/@/STD,4  QT,1/                          MPR E00 10/12/76 013-021 #28269
/@/LH,1  4/                              MPR E00 10/12/76 014-021 #28269
/@/BNEZ  $-4/                            MPR E00 10/12/76 015-021 #28269
/@/LH,1  12/                             MPR E00 10/12/76 016-021 #28269
/@/BNEZ  $-8/                            MPR E00 10/12/76 017-021 #28269
/@/LH,1  14/                             MPR E00 10/12/76 018-021 #28269
/@/BNEZ  $-14/                           MPR E00 10/12/76 019-021 #28269
/@/LCI  4/                               MPR E00 10/12/76 020-021 #28269
/@/B  ENQO+.25A/                         MPR E00 10/12/76 021-021 #28269
<SECOND DIAG KEYIN CAUSES BOTH TO BE ABORTED.  ALLOW ONLY ONE USER#27302
<OF DIAG ON SYSTEM AT ONE TIME                                    #27302
KEYIN/KEYN+.15B/B @(STW,5 TABLES+.1C7)/  MRS E00 05/05/77 001-005 #27302
/@/MTW,0 TABLES+.1C7/                    MRS E00 05/05/77 002-005 #27302
/@/BNEZ KEYN+.6D/                        MRS E00 05/05/77 003-005 #27302
/@/STW,5 TABLES+.1C7/                    MRS E00 05/05/77 004-005 #27302
/@/B  KEYN+.74/                          MRS E00 05/05/77 005-005 #27302
< MAKE SURE SCRATCH BIT IN AVRTBL IS RESET FOR NON-SCRATCH        #29173
< MOUNT.                                                          #29173
KEYIN/KEYN+.275/BNE @+1(BNE KEYN+.277/   PRY E00 03/22/77 001-004 #29173
/@/.EFFFFFFF/                            PRY E00 03/22/77 002-004 #29173
/@/AND,15 .-1/                           PRY E00 03/22/77 003-004 #29173
/@/B KEYN+.277/                          PRY E00 03/22/77 004-004 #29173
< ALLOW ANS TAPES SOLICITED BY FILE NAME ONLY TO BE MOUNTED       #29178
< ON THE REQUESTED DRIVE.                                         #29178
KEYIN/KEYN+.313/BE @/                    PRY E00 03/25/77 001-011 #29178
/@/LB,11 ANSFLGS,5/                      PRY E00 03/25/77 002-011 #29178
/@/CI,11 .40/                            PRY E00 03/25/77 003-011 #29178
/@/BAZ KEYN+.6D/                         PRY E00 03/25/77 004-011 #29178
/@/CI,11 1/                              PRY E00 03/25/77 005-011 #29178
/@/BAZ KEYN+.6D/                         PRY E00 03/25/77 006-011 #29178
/@/B KEYN+.315/                          PRY E00 03/25/77 007-011 #29178
/@/CW,9 *KEYN+.26B/                      PRY E00 03/25/77 009-011 #29178
/@/BNE KEYN+.6D/                         PRY E00 03/25/77 010-011 #29178
/@/B KEYN+.317/                          PRY E00 03/25/77 011-011 #29178
<ERRONEOUS AVR LABEL ERROR ON SOLICITED PACK AVR.                 #28914
KEYIN/KEYN+.3CF/BAL,8 @(BAL,8 . 44/      PAR E00 01/11/77 001-008 #28914
/@/LI,15/                                PAR E00 01/11/77 002-008 #28914
/@/B KEYN+.3FB/                          PAR E00 01/11/77 003-008 #28914
#:BIG                                    PAR E00 01/11/77 004-008 #28914
KEYIN/KEYN+.404/LI @(AI 2/               PAR E00 01/11/77 005-008 #28914
/@/STW,12 *14/                           PAR E00 01/11/77 006-008 #28914
/@/B *11/                                PAR E00 01/11/77 007-008 #28914
#                                        PAR E00 01/11/77 008-008 #28914
<THE REQUIREMENT THAT ANS SERIAL NOS HAVE EXACTLY SIX CHARACTERS  #28624
<IS HEREBY LIFTED. SIX OR LESS NOW PREVAILS.                      #28624
<FIVE PATCHES-ONE EACH TO KEYIN,LABEL,PCL,CCI, AND TEL.           #28624
KEYIN/KEYN+.294/BG ;Q(BNE ;Q/            PAR E00 01/11/77 001-005 #28624
<FIX ANSM SWITCH KEYIN.                                           #28678
KEYIN/KEYN+.25B/BANZ KEYN+.6D(LC ;Q,5/   PAR E00 12/01/76 001-003 #28678
KEYIN/KEYN+.25C/LC ANSFLGS,5(BNE ;Q/     PAR E00 12/01/76 002-003 #28678
KEYIN/KEYN+.25D/BCS,3 ;Q(BCS,4 ;Q/       PAR E00 12/01/76 003-003 #28678
LDLNK//
<THIS PATCH CORRECTS A SECURITY PROBLEM WHICH PERMITTED           #29261
<NON-AUTHORIZED USERS TO ENTER MASTER MODE.                       #29261
<THERE ARE 2 PATCHES TO LDLNK, 5 TO STEPOVR AND PATCH AREA.       #29261
< FIX LOOP IN M:LINK WHEN NO FILE NAME GIVEN                   E00#28581
LTAPE//
<****NOTE:THIS IS A 21 CARD PATCH.  TWO CARDS ARE NOT IN THIS     #29544
<****NOTE:OVERLAY.  THE 20TH CARD GOES IN CCI,THE 21ST IN TEL     #29544
<CORRECT BAD TAB COUNT ON MESSAGES TO OC.  WITH THE INCLUSION  OF #29544
<ACCOUNT/ID SPACING IS OFF BY ONE TAB.                            #29544
#TLGN=@                                  MRS E00 07/22/77 001-021 #29544
/@/=.05D3D6C7/                           MRS E00 07/22/77 002-021 #29544
/@/=.D6D54040/                           MRS E00 07/22/77 003-021 #29544
LTAPE/OCQ+.A4/B @(CI,2 .80)/             MRS E00 07/22/77 004-021 #29544
LTAPE/OCQ+.A5/NOP  (BANZ OCQ+.AD)/       MRS E00 07/22/77 005-021 #29544
/@/LI,1 5/                               MRS E00 07/22/77 006-021 #29544
/@/CI,2 .80/                             MRS E00 07/22/77 007-021 #29544
/@/BAZ OCQ+.A5/                          MRS E00 07/22/77 008-021 #29544
/@/LW,2 S:CUN/                           MRS E00 07/22/77 009-021 #29544
/@/LB,2 UB:ACP,2/                        MRS E00 07/22/77 010-021 #29544
/@/LW,0 TLGN/                            MRS E00 07/22/77 011-021 #29544
/@/SLS,2 1/                              MRS E00 07/22/77 012-021 #29544
/@/CW,0 P:NAME,2/                        MRS E00 07/22/77 013-021 #29544
/@/BNE OCQ+.A5/                          MRS E00 07/22/77 014-021 #29544
/@/LW,0 TLGN+1/                          MRS E00 07/22/77 015-021 #29544
/@/CW,0 P:NAME+1,2/                      MRS E00 07/22/77 016-021 #29544
/@/LI,1 .40/                             MRS E00 07/22/77 018-021 #29544
/@/B OCQ+.AD/                            MRS E00 07/22/77 019-021 #29544
< LIMIT BUFFER LENGTH TO MIN(81,# AVAILABLE BYTES).               #28618
LTAPE/ARDL+.2F/BL ARDL+.32(BG ARDL+.32/  PRY E00 04/07/77 001-001 #28618
<************************ REPLACEMENT PATCH **************************
<**** THIS IS A REPLACEMENT PATCH FOR SIDR.# 28573 DATED 11/03/76 ****
<READREVERSE ON OUTIN LABEL TAPE CAUSES VARIOUS PROBLEMS SINCE IT #28573
<FAILS TO FUNCTION PROPERLY.                                      #28573
<FIRST 24 PATCHES TO LTAPE, LAST 7 TO OPENTP                      #28573
LTAPE/LBLT .C0/BG LBLT .131(BG ;Q/       PAR E00 06/15/77 001-031 #28573
LTAPE/RDL .DD/B @(B IORT .2F0/           PAR E00 06/15/77 002-031 #28573
/@/LH .9400/                             PAR E00 06/15/77 003-031 #28573
/@/LI,1 .29/                             PAR E00 06/15/77 004-031 #28573
/@/STH *6,1/                             PAR E00 06/15/77 005-031 #28573
/@/B IORT .2F0/                          PAR E00 06/15/77 006-031 #28573
LTAPE/LBLT .B6/BL ;Q(BLE LBLT .131/      PAR E00 06/15/77 007-031 #28573
LTAPE/LBLT .E5/B @(BAL ;Q/               PAR E00 06/15/77 008-031 #28573
/@/LI,0 @+3/                             PAR E00 06/15/77 009-031 #28573
/@/B RDF .1BB/                           PAR E00 06/15/77 010-031 #28573
LTAPE/LBLT .117/B @(B LBLT .E6/          PAR E00 06/15/77 011-031 #28573
/@/LI/                                   PAR E00 06/15/77 012-031 #28573
/@/LW,1 BITS 21/                         PAR E00 06/15/77 013-031 #28573
/@/B LBLT .E6/                           PAR E00 06/15/77 015-031 #28573
LTAPE/RDL .12/BNE @(BNE ARDL .B5/        PAR E00 06/15/77 016-031 #28573
/@/LW 5,6/                               PAR E00 06/15/77 017-031 #28573
/@/CI .10/                               PAR E00 06/15/77 018-031 #28573
/@/BAZ ARDL .B5/                         PAR E00 06/15/77 019-031 #28573
/@/B RDL .13/                            PAR E00 06/15/77 020-031 #28573
/RDF .20A/B @(B RDF .1D9/                PAR E00 06/15/77 021-031 #28573
/@/LW,11 BITS .15/                       PAR E00 06/15/77 022-031 #28573
/@/STS,11 16,6/                          PAR E00 06/15/77 023-031 #28573
/@/B RDF .1D9/                           PAR E00 06/15/77 024-031 #28573
<STRANGE CVOL ACTION FOR DCB IN FILE EXTENSION MODE.              #28179
LTAPE/LBLT+.5A/LI,8 ;Q(LI,9 ;Q/          PAR E00 01/11/77 001-001 #28179
<AUTO CVOL GIVES STRANGE ERROR CODES                              #27301
LTAPE/LBLT+.44/B @(B .-.32/              PAR E00 01/04/77 001-004 #27301
/@/SLS,10 -17/                           PAR E00 01/04/77 002-004 #27301
/@/SCS,10 -7/                            PAR E00 01/04/77 003-004 #27301
/@/B LBLT .12/                           PAR E00 01/04/77 004-004 #27301
MISOV//
< LOCK EXCLUSIVE PACK WHEN RELEASED.                              #29542
MISOV/T:DSMNT+.36/BCR,.C @(BCR,12 T:DSMNT+.38/   07/14/77 001-003 #29542
/@/LI,14 -1/                             PRY E00 07/14/77 002-003 #29542
/@/B T:DSMNT+.38/                        PRY E00 07/14/77 003-003 #29542
MISOV/POS+4/.9FFF0000(.9FFFFFFF/         PRY E00 06/23/77 001-001 #29566
< SYMBIONTS WENT CRAZY WHEN FORCED TO USE CYLINDERS.           E00#29047
<   3 TO ROOT, 3 TO MISOV, 3 TO RBBAT.                         E00#29047
MISOV/T:JOBENT+.15C/EXU $+3(LW,11 ;Q)/           4-9 TSM040177 E00#29047
MISOV/T:JOBENT+.15D/AND,8 MASKS+24(CW,11 ;Q)/    5-9 TSM040177 E00#29047
MISOV/T:JOBENT+.15E/B $+2(BG ;Q)/                6-9 TSM040177 E00#29047
< FIX PRIORITY CHECK IN JOBENT TO WORK RIGHT.                  E00#29148
MISOV/T:JOBENT+.B2/LB,14 14,1(LB,15 14,1)/ 1-6 TSM 040177      E00#29148
MISOV/T:JOBENT+.B3/CI,14 .F0(CI,15 .F0)/   2-6 TSM 040177      E00#29148
MISOV/T:JOBENT+.B5/AI,14 9(AI,15 9)/       3-6 TSM 040177      E00#29148
MISOV/T:JOBENT+.B6/LI,15 .F(SLS,15 28)/    4-6 TSM 040177      E00#29148
MISOV/T:JOBENT+.B7/SLD,14 20(SLS,15 -8)/   5-6 TSM 040177      E00#29148
MISOV/T:JOBENT+.B8/CS,14 ;Q(CS,15 ;Q)/     6-6 TSM 040177      E00#29148
< FIX POSSIBLE DUPLICATE GRANULE RELEASE IF SYSTEM             E00#28332
< CRASHES WHILE USER IS BEING RUN DOWN.                        E00#28332
MISOV/T:DSMNT+2/LI,8 0(LW,8 .8D5B)/J:AMR 1-2 TSM 110976        E00#28332
MISOV/T:DSMNT+3/XW,8 .8D5B(BE $+2)/      2-2 TSM 110976        E00#28332
MULOV//
<THIS PATCH FIXES SEVERAL LDEV PROBLEMS CAUSED BY A CLOBBERED     #29476
<REGISTER.                                                        #29476
#HSPM                                    TSM E00 06/06/77 001-007 #29476
MULOV/OPNLD+.3EE/B @(BAL,11 HSPM+3)/     TSM E00 06/06/77 002-007 #29476
/@/BAL,11 HSPM+3/                        TSM E00 06/06/77 004-007 #29476
/@/LW,10 7/                              TSM E00 06/06/77 005-007 #29476
/@/B OPNLD+.3EF/                         TSM E00 06/06/77 006-007 #29476
#                                        TSM E00 06/06/77 007-007 #29476
< PRIVILEGE TEST WRONG FOR RBBAT QUEUE DUMP.                   E00#29106
MULOV/OPNLD+.2E0/LI,0 .C0(PSW,2 TSTACK)/      1-4 TSM 051377   E00#29106
MULOV/OPNLD+.2E1/CB,0 .8C43(LI,2 .C0)/        2-4 TSM 051377   E00#29106
MULOV/OPNLD+.2E2/BG OPNLD+.10A(CB,2 .8C43)/   3-4 TSM 051377   E00#29106
MULOV/OPNLD+.2E3/PSW,2 TSTACK(BL OPNLD+.10A)/ 4-4 TSM 051377   E00#29106
< REPLACEMENT FOR #28072 DATED 111176. FIXES #28851 TOO.       E00#28072
< ATTEMPT TO CHANGE STREAM ATTRIBUTES WITHOUT CHANGING         E00#28072
< DEV CHK'ED DFLT STRM DEV, NOT CURRENT DEV, FOR AUTHORIZED.   E00#28072
MULOV/OPNLD+.E5/BAL,4 @(LI,8 .B708)/    1-6 TSM 051377         E00#28072
/@/LC 15/                               2-6 TSM 051377         E00#28072
/@/BCS,7 0,4/                           3-6 TSM 051377         E00#28072
/@/CI,15 .30/                           4-6 TSM 051377         E00#28072
/@/BAZ 0,4/                             5-6 TSM 051377         E00#28072
/@/B OPNLD+.1B9/                        6-6 TSM 051377         E00#28072
< 7 TO WRTD; 12 TO MULOV/OPNLD; 12 TO UMOV/OUTSYM.             E00#27105
MULOV/OPNLD+.36B/MTW,0 .19,3(AI,1 2)/            08-31TSM030177E00#27105
MULOV/OPNLD+.36C/BNEZ OPNLD+.372(MTW,0 .19,3)/   09-31TSM030177E00#27105
MULOV/OPNLD+.36D/MTW,0 .16,3(BNEZ OPNLD+.372)/   10-31TSM030177E00#27105
/@/BEZ $+2/                                      12-31TSM030177E00#27105
/@/AI,1 -1/                                      13-31TSM030177E00#27105
/@/SCS,1 -1/                                     14-31TSM030177E00#27105
/@/AI,1 2/                                       15-31TSM030177E00#27105
/@/BGEZ $+2/                                     16-31TSM030177E00#27105
/@/AI,9 .10/                                     17-31TSM030177E00#27105
/@/B OPNLD+.36F/                                 18-31TSM030177E00#27105
MULOV/OPNLD+.373/AI,1 1(AI,1 -1)/                19-31TSM030177E00#27105
<PICK UP REMOVEING FIT MODS  TWM  E00E  12/10  1 CARD             #28474
MULOV/MUL+.24F/B MUL+.26F(B MUL+.235)/   TWM E00 12/10/76 001-001 #28474
<LDEV LABEL USERS HANGS SQA.                                      #28680
MULOV/ OPNLD+.159/SLD,8 2(SLS,8 2)/      TSM E00 12/01/76 001-002 #28680
MULOV/ OPNLD+.15A/LW,1 3(SLS,9 2)/       TSM E00 12/01/76 002-002 #28680
< REPORT CORRECT 75 ERROR  TWM  E00E  8 CARDS  10/21              #28474
MULOV/MUL+.F3/B @(LI,1 .100)/     1 OF 8  TWM  E00E  10/21        #28474
/@/LI,1 .100/                     2 OF 8  TWM  E00E  10/21        #28474
/@/LW,2 .9602/                    3 OF 8  TWM  E00E  10/21        #28474
/@/B MUL+.F4/                     4 OF 8  TWM  E00E  10/21        #28474
MULOV/MUL+.108/B @(B MUL+.FA)/    5 OF 8  TWM  E00E  10/21        #28474
/@/LI,2 0/                        6 OF 8  TWM  E00E  10/21        #28474
/@/B MUL+.FA/                     7 OF 8  TWM  E00E  10/21        #28474
MULOV/MUL+.FE/CI,2 .1C00(CW,0 .9602)/  8 OF 8  TWM  E00E  10/21   #28474
< IGNORE RSTORE PARAMETER IF NOT FILE.                            #29575
OPEN/OPN+.1BC/B @(B OPN+.60/             PRY E00 07/13/77 001-004 #29575
/@/CI,11 1/                              PRY E00 07/13/77 002-004 #29575
/@/BE OPN+.60/                           PRY E00 07/13/77 003-004 #29575
/@/B OPN+.67/                            PRY E00 07/13/77 004-004 #29575
< COUNT RANDOM JOB FILE AGAINST TEMPORARY NOT PERMANENT.          #29515
< 9 CARDS TO OPEN, 5 TO CLOSE.                                    #29515
< THESE 9 CARDS MUST BE EXACTLY IN THIS ORDER.                    #29515
OPEN/GRAND+.16/B @(SAS,5 -31/            PRY E00 06/23/77 001-009 #29515
/@/SLS,5 -30/                            PRY E00 06/23/77 002-009 #29515
/@/LH,5 @+3,5/                           PRY E00 06/23/77 003-009 #29515
/@/SAS,5 -1/                             PRY E00 06/23/77 004-009 #29515
/@/B GRAND+.17/                          PRY E00 06/23/77 005-009 #29515
/@/0/                                    PRY E00 06/23/77 006-009 #29515
/@/.FFFE0000/                            PRY E00 06/23/77 007-009 #29515
OPEN/GRAND+.96/SLS,3 -30(BGEZ .+2/       PRY E00 06/23/77 008-009 #29515
OPEN/GRAND+.97/AH,5 @-2,3(AI,5 -2/       PRY E00 06/23/77 009-009 #29515
<FIX 8T-9T INTERCHANGE PROBLEM.                                   #28700
OPEN/OPN+.4D/BAL,0 @(BAL,0 OPN+.237)/    PAR E00 12/01/76 001-004 #28700
/@/LW,3 BITS+23/                         PAR E00 12/01/76 002-004 #28700
/@/B OPN+.237/                           PAR E00 12/01/76 003-004 #28700
OPEN/OPN+.23B/BANZ OPN+.23E(BANZ *0)/    PAR E00 12/01/76 004-004 #28700
< PREVENT JOURNAL/FILE CONFLICT  TWM  11/29  1 ONLY       E00E    #27415
OPEN/OPNF+.297/CI,2 .1400(CI,2 .400)/ 1 ONLY  TWM  11/29  E00     #27415
<SHARED OPEN ABNORMAL CAN CLOBBER CFU  TWM  11-23  E00E  2 CARDS  #28704
OPEN/OBSE+.140/CW,13 @(CW,13 ;Q)/       TWM E00E 11/23/76 001-002 #28704
/@/.00FE8000/                           TWM E00E 11/23/76 002-002 #28704
<FIX FILE BUSY FOR INPUT FILES  TWM  E00E  25 CARDS 11-15         #28474
OPEN/OPNF+.A/B @(LI,11 OPNF+2)/          TWM E00 11/15/76 001-025 #28474
/@/LI,11 $+2/                            TWM E00 11/15/76 002-025 #28474
/@/B OPNF+.B/                            TWM E00 11/15/76 003-025 #28474
/@/EXU OPNF+2/                           TWM E00 11/15/76 004-025 #28474
/@/B 0,1/                                TWM E00 11/15/76 005-025 #28474
OPEN/OPNF+4/B @(BCR,3 OPNF+.C)/          TWM E00 11/15/76 006-025 #28474
/@/BCR,3 OPNF+.C/                        TWM E00 11/15/76 007-025 #28474
/@/LI,1 OPNF+3/                          TWM E00 11/15/76 008-025 #28474
/@/B OPNF+5/                             TWM E00 11/15/76 009-025 #28474
OPEN/OPNF+.28B/B @(LI,1 .FFFF)/          TWM E00 11/15/76 010-025 #28474
/@/LI,4 .F00/                            TWM E00 11/15/76 011-025 #28474
/@/AND,4 2/                              TWM E00 11/15/76 012-025 #28474
/@/LI,1 .FFFF/                           TWM E00 11/15/76 013-025 #28474
/@/CI,4 .700/                            TWM E00 11/15/76 014-025 #28474
/@/BCS,3 OPNF+.28C/                      TWM E00 11/15/76 015-025 #28474
/@/LW,1 *OPNF+.86/                       TWM E00 11/15/76 016-025 #28474
/@/CW,1 5,6/                             TWM E00 11/15/76 017-025 #28474
/@/BCS,4 OPNF+.3B7/                      TWM E00 11/15/76 018-025 #28474
/@/BCS,8 $+3/                            TWM E00 11/15/76 020-025 #28474
/@/LI,1 OPNF+.209/                       TWM E00 11/15/76 021-025 #28474
/@/B OPNF+5/                             TWM E00 11/15/76 022-025 #28474
/@/LW,2 14/                              TWM E00 11/15/76 023-025 #28474
/@/LI,4 OPNF+.224/                       TWM E00 11/15/76 024-025 #28474
/@/B OPNF+.21A/                          TWM E00 11/15/76 025-025 #28474
OPENTP//
< DON'T REWIND 7T FOR EACH OPEN OUT.                              #29520
OPENTP/OPNTP+.55/LW,11 ANSPRT(LW,3 ANSPRT/   E00 07/15/77 001-009 #29520
OPENTP/OPNTP+.56/BLZ @(BLZ OPNTP+.CB/    PRY E00 07/15/77 002-009 #29520
OPENTP/OPNTP+.5D/BE @(BE OPNTP+.CB/      PRY E00 07/15/77 003-009 #29520
/@/LW,11 *./                             PRY E00 07/15/77 004-009 #29520
/@/B OPNTP+.5E/                          PRY E00 07/15/77 005-009 #29520
OPENTP/OPNTP+.75/B @(CI,3 2/             PRY E00 07/15/77 006-009 #29520
/@/BIR,11 OPNTP+.F4/                     PRY E00 07/15/77 007-009 #29520
/@/CI,3 2/                               PRY E00 07/15/77 008-009 #29520
/@/B OPNTP+.76/                          PRY E00 07/15/77 009-009 #29520
< REPLACES 2 CARD PATCH OF SAME # DATED 03/29/77.                 #28302
< FIX PROBLEM OF SECOND ANS SCRATCH BEING RENAMED AFTER FIRST     #28302
< TAPE MOUNTED IS FOUND TO BE EXPIRED.                            #28302
OPENTP/OPNTP+.8F/CI,12 .8000(CI,0 -1/    PRY E00 06/16/77 001-003 #28302
OPENTP/OPNTP+.90/BANZ ;Q(BE ;Q/          PRY E00 06/16/77 002-003 #28302
< 'NOT EXPIRED' MESSAGE. 1 CARD.                                  #28302
OPENTP/OPNTP+.F3/BANZ OPNTP+.51(BANZ OPNTP+.11F/ 06/16/77 003-003 #28302
OPENTP/CLSTP .BD/INT,11 20,6(LW,10 20,6/ PAR E00 06/01/77 004-007 #29077
OPENTP/CLSTP .BE/PSW,9 TSTACK(LCI 2/     PAR E00 06/01/77 005-007 #29077
OPENTP/CLSTP .BF/STW,11 20,6(PSM,9 ;Q/   PAR E00 06/01/77 006-007 #29077
OPENTP/CLSTP .C1/PSW,11 TSTACK(AI,14 -1/ PAR E00 06/01/77 007-007 #29077
< RELEASE OF RELEASED BUFFER FIXED.                               #28617
OPENTP/OPNTP+.21F/B IORT+.26E(B ANSL+.EF/PRY E00 04/07/77 001-001 #28617
< MAKE CODE AGREE WITH ANSI X3.27-1969.                           #29282
< COL   EBCDIC   ASCII  * FOR VOL1 (VOLUME HEADER LABEL)          #29282
<  11     '0'     ' '   * EBCDIC HAS LIMITED ACCESSIBILITY        #29282
<  80     ' '     '1'   * AND NON-STANDARD DATA FORMAT.           #29282
OPENTP/OPLO+.102/BANZ ;Q(BAZ ;Q/         PRY E00 04/06/77 001-003 #29282
OPENTP/OPLO+.107/LI,3 .F1(LI,1 .F1/      PRY E00 04/06/77 002-003 #29282
OPENTP/OPLO+.108/STB,3 0,1(STB,1 0,3/    PRY E00 04/06/77 003-003 #29282
<READREVERSE ON OUTIN LABEL TAPE CAUSES VARIOUS PROBLEMS SINCE IT #28573
<FAILS TO FUNCTION PROPERLY.                                      #28573
<FIRST 24 PATCHES TO LTAPE, LAST 7 TO OPENTP                      #28573
OPENTP/OPNTP 8/B @(B CLSTP .20/          PAR E00 06/15/77 025-031 #28573
/@/PSW,11 TSTACK/                        PAR E00 06/15/77 026-031 #28573
/@/LW,11 9,6/                            PAR E00 06/15/77 027-031 #28573
/@/CI,11 .1F/                            PAR E00 06/15/77 028-030 #28573
/@/B CLSTP .21/                          PAR E00 06/15/77 030-031 #28573
OPENTP/CLSTP .20/BAL RDF .1BB(PSW,11 TSTACK/ E00 06/15/77 031-031 #28573
< OPENTP PROBLEMS                                                 #28820
< REPLACES PREVIOUS 4 CARD PATCH OF SAME AREA BY PAR              #28820
< DATED 12/01/76.                                                 #28820
OPENTP/OPNTP+.BD/BGEZ @(BGEZ OPNTP+.10F/ PRY E00 03/28/77 001-004 #28820
OPENTP/OPNTP+.101/BANZ @(BANZ OPNTP+.10F/PRY E00 03/28/77 002-004 #28820
/@/LI,9 OPNTP+.10F/                      PRY E00 03/28/77 003-004 #28820
/@/B OPNTP+.221/                         PRY E00 03/28/77 004-004 #28820
<OVER KEYIN SHOULD NOT REQUIRE SERIAL#                            #28594
OPENTP/OPNTP .D0/LI,1 2(LI,1 1/          PAR E00 01/04/77 001-001 #28594
<DONT RESET THE BIN BIT ON A CVOL                                #28296
OPENTP/CLSTP .1E/.60BC00(.60F700/      1 OF 1 PAR E00 12/16/76   #28296
<PCL SHOULD BE ABLE TO REMOVE ASCII TAPE                         #28820
<3PATCHES TO OPENTP, 4 YGENMDS TO PCL                            #28820
OPENTP/OPNTP .254/LC ;Q,2(LB ;Q,2/     1 OF 7 PAR E00 12/16/76   #28820
OPENTP/OPNTP .255/BANZ *11(SLS 1/      2 OF 7 PAR E00 12/16/76   #28820
OPENTP/OPNTP .259/NOP(EOR,1/           3 OF 7 PAR E00 12/16/76   #28820
<FIX S/C 19 IN ANS TAPE LOGIC                                     #28821
OPENTP/ANSL+.F1/B @(B BUFF+24)/          PAR E00 12/01/76 001-004 #28821
/@/CI,14 .8000/                          PAR E00 12/01/76 002-004 #28821
/@/BANZ OPNL+.121/                       PAR E00 12/01/76 003-004 #28821
RMAOV//
<THIS PATCH ALLOWS PARTITIONED RESOURCES TO BE RETURNED TO THE    #28763
<SYSTEM WHEN THE DIAGNOSTIC USER IS THROUGH WITH THEM.            #28763
RMAOV/FISH+.407/B @(BAL,11 IORT+.238)/   REJ E00 12/07/76 001-005 #28763
/@/PSW,2 TSTACK/                         REJ E00 12/07/76 002-005 #28763
/@/BAL,11 IORT+.238/                     REJ E00 12/07/76 003-005 #28763
/@/PLW,2 TSTACK/                         REJ E00 12/07/76 004-005 #28763
/@/B FISH+.408/                          REJ E00 12/07/76 005-005 #28763
<THIS PATCH CORRECTS A PROBLEM IN STEP WHICH PREVENTED BATCH JOBS #28468
<THIS PATCH ALLOWS DIAGNOSTIC CALS TO WORK CORRECTLY.             #28648
#DID=TABLES+.1C7                         LLF E00 11/04/76 001-009 #28648
RMAOV/FISH+.E0/B @(LW,4 1)/              LLF E00 11/04/76 002-009 #28648
/@/LW,4 1/                               LLF E00 11/04/76 003-009 #28648
/@/AND,4 MASKS+16/                       LLF E00 11/04/76 004-009 #28648
/@/B FISH+.E1/                           LLF E00 11/04/76 005-009 #28648
RMAOV/FISH+.F8/LW,15 S:CUN(LW,3 S:CUN)/  LLF E00 11/04/76 006-009 #28648
RMAOV/FISH+.FC/CW,15 DID(CW,3 DID)/      LLF E00 11/04/76 007-009 #28648
RMAOV/FISH+.FE/STW,15 DID(STW,3 DID)/    LLF E00 11/04/76 008-009 #28648
#DID;K1                                  LLF E00 11/04/76 009-009 #28648
STEPOVR//
<THIS PATCH CORRECTS A SECURITY PROBLEM.                          #29726
STEPOVR/STPNR+.1CC/B @(STW,10 .8D5C)/    LLF E00 07/25/77 001-004 #29726
/@/STW,10 .8C41/                         LLF E00 07/25/77 003-004 #29726
/@/B STPNR+.1CD/                         LLF E00 07/25/77 004-004 #29726
<THIS PATCH CATCHES BAD LOAD MODULES CREATED BY THE LOADER AS A   #29347
<RESULT OF AN ERRONEOUS LOADER PATCH.  THE PROBLEM WOULD CAUSE    #29347
<WILD STORES TO ANY MONITOR LOCATION IF THE DCB WERE USED BY THE  #29347
<SYSTEM FOR AN OPERATION.  THIS PATCH CATCHES THE BAD DCBS BEFORE #29347
<THEY ARE USED BY THE SYSTEM.  THE RESULTING ERROR IS A B607 ABORT#29347
STEPOVR/STPNR+.7D7/LI,7 .1FF(SLD,2 -9)/  LLF E00 04/25/77 001-004 #29347
STEPOVR/STPNR+.7D8/AND,7 6(SLD,6 -9)/    LLF E00 04/25/77 002-004 #29347
STEPOVR/STPNR+.7D9/CI,7 .1F0(CW,2 6)/    LLF E00 04/25/77 003-004 #29347
STEPOVR/STPNR+.7DA/BLE STPNR+.7DF(B STPNR+.7DD)/ 04/25/77 004-004 #29347
<THIS PATCH CORRECTS A SECURITY PROBLEM WHICH PERMITTED           #29261
<NON-AUTHORIZED USERS TO ENTER MASTER MODE.                       #29261
<THERE ARE 2 PATCHES TO LDLNK, 5 TO STEPOVR AND PATCH AREA.       #29261
STEPOVR/STPNR+.224/B @(LW,6  TSTACK)/    LLF E00 03/30/77 003-007 #29261
/@/LI,6 0/                               LLF E00 03/30/77 004-007 #29261
/@/STW,6 .8D5D/                          LLF E00 03/30/77 005-007 #29261
/@/LW,6 TSTACK/                          LLF E00 03/30/77 006-007 #29261
/@/B STPNR+.225/                         LLF E00 03/30/77 007-007 #29261
<CORRECTION TO PATCH DATED 11/16/76. CHANGES LINE 8 TO LW         #28701
< FROM LI >                                                       #28701
< INSURE THAT USER GETS RUN DOWN AFTER HANGUP WITH TIC SET        #28701
STEPOVR/.80A4/B @(B .80FC/               KDR E00 02/23/77 002-010 #28701
/@/AND,2 XFFFD/                          KDR E00 02/23/77 003-010 #28701
/@/STB,2 .8C48/                          KDR E00 02/23/77 004-010 #28701
/@/LI,2 19/                              KDR E00 02/23/77 005-010 #28701
/@/MSP,2 TSTACK/                         KDR E00 02/23/77 006-010 #28701
/@/LI,1 0/                               KDR E00 02/23/77 007-010 #28701
/@/LW,2 TSTACK/                          KDR E00 02/23/77 008-010 #28701
/@/STW,1 -9,2/                           KDR E00 02/23/77 009-010 #28701
/@/B .821D/                              KDR E00 02/23/77 010-010 #28701
< GOT S/C 7E-40 IF ASSIGN-MERGE BAD GOING TO LOGOFF.           E00#28332
STEPOVR/STPNR+.6AF/BNE @(BNE STPNR+.A4C)/ 1-3 TSM 111076       E00#28332
/@/PLW,6 TSTACK/                          2-3 TSM 111076       E00#28332
/@/B STPNR+.A4C/                          3-3 TSM 111076       E00#28332
STEPOVR/MMNR+.60/B @(LI,1 .80)/        KDR 1/6 11/17/76        E00#27739
/@/LI,1 .80/                           KDR 2/6 11/17/76        E00#27739
/@/LW,2 S:CUN/                         KDR 3/6 11/17/76        E00#27739
/@/CH,1 UH:FLG,2/                      KDR 4/6 11/17/76        E00#27739
/@/BANZ MMNR+.65/                      KDR 5/6 11/17/76        E00#27739
/@/B MMNR+.61/                         KDR 6/6 11/17/76        E00#27739
<FIXES PROBLEM OF STEP CONDITION CODES NOT GETTING SET ON JOB STEP#28575
<ERROR OR ABORT IF AT BEGINNING OF JOB STEP CONDITION CODES WERE  #28575
<SET VIA A STEP COMMAND.                                          #28575
<2 PATCHES TO STEP - 2 PATCHES TO CCI.                            #28575
STEPOVR/STPNR+.68/NOP(LI,15 0)/         .CHK E00 10/29/76 001-002 #28575
STEPOVR/STPNR+.69/NOP(STB,15 0,1)/      .CHK E00 10/29/76 002-002 #28575
<FROM CALLING UNSHARED PROCESSORS.                                #28468
STEPOVR/STPNR+.275/NOP(LW,9 6/           LLF E00 10/20/76 001-007 #28468
STEPOVR/STPNR+.45E/B @(CW,9 LITERALS+.9B/LLF E00 10/20/76 002-007 #28468
/@/LW,6 TSTACK/                          LLF E00 10/20/76 003-007 #28468
/@/LW,6 0,6/                             LLF E00 10/20/76 004-007 #28468
/@/CW,6 LITERALS+.9B/                    LLF E00 10/20/76 005-007 #28468
/@/B STPNR+.45F/                         LLF E00 10/20/76 006-007 #28468
STEPOVR/STPNR+.466/NOP(LW,6 9/           LLF E00 10/20/76 007-007 #28468
TQOV1//                                                                     SKIP
<TWO OR MORE SUCCESSIVE PUTS WITHOUT IMMEDIATE GETS WILL CAUSE A            SKIP
<SOFTWARE CHECK #34-00.                                                     SKIP
#TTP                                                                        SKIP
TQOV1/TPQ1+.179/NOP(BAL,1 TPQ1+.63B)/  .LA 01 OF 06 08/24/77 E00  #29869    SKIP
TQOV1/TPQ1+.17C/B @(PLW,6 TSTACK)/     .LA 02 OF 06 08/24/77 E00  #29869    SKIP
/@/BAL,1 TPQ1+.63B/                    .LA 03 OF 06 08/24/77 E00  #29869    SKIP
/@/LW,14 1,7/                          .LA 04 OF 06 08/24/77 E00  #29869    SKIP
/@/PLW,6 TSTACK/                       .LA 05 OF 06 08/24/77 E00  #29869    SKIP
/@/B TPQ1+.17D/                        .LA 06 OF 06 08/24/77 E00  #29869    SKIP
#
<IF Q IS NOT OPEN AND USERS ARE PERMITTED TO ACCESS IT        E00 #29158
<SYSTEM HANGS AND AN OPERATOR RECOVERY IS NEEDED TO CONTINUE  E00 #29158
#TTP                                                                        SKIP
TQOV1/TPQ1+.2A/B @(BNE TPQ1 +.2C)      .LA 01 OF 06 03/25/77  E00 #29158    SKIP
/@/BE TPQ1+.2B/                        .LA 02 OF 06 03/25/77  E00 #29158    SKIP
/@/LI,5 .21/                           .LA 03 OF 06 03/25/77  E00 #29158    SKIP
/@/LW,2 TTP+14/                        .LA 04 OF 06 03/25/77  E00 #29158    SKIP
/@/BEZ TPQ1+.4FF/                      .LA 05 OF 06 03/25/77  E00 #29155    SKIP
/@/B TPQ1+.2C/                         .LA 06 OF 06 03/25/77  E00 #29158    SKIP
#
#TTP                                                                        SKIP
<THE FOLLOWING PATCHES REPLACE 10 SIMILAR PATCHES FOR SIDR#28937            SKIP
<SYSTEM HANGS ON IRRECOVERABLE WRITE ERR ON JOURNAL TAPE      E00 #28937    SKIP
TQOV1/TPQ1+.31/B @/                    .LA  01/26/77 1-10     E00 #28937    SKIP
/@/BEZ TPQ1+.32/                       .LA  01/26/77 2-10     E00 #28937    SKIP
/@/CI,8 .C/                            .LA  01/26/77 3-10     E00 #28937    SKIP
/@/BNE TPQ1+.36/                       .LA  01/26/77 4-10     E00 #28937    SKIP
/@/B TPQ1+.32/                         .LA  01/26/77 5-10     E00 #28937    SKIP
#
TQOV2//                                                                     SKIP
< THIS PATCH REPLACES #28760 DATED 01DEC76.                       #28760    SKIP
<  TP CODE ALLOWS THE RELEASING OF A MASTER LINE                  #28760    SKIP
#TPCOC                                     .07JUL77 PLS E00 01-09 #28760    SKIP
TQOV2/CNMPROC+.28/B @(LW,4 12)/            .07JUL77 PLS E00 02-09 #28760    SKIP
/@/AI,2 0/                                 .07JUL77 PLS E00 04-09 #28760    SKIP
/@/BGEZ CNMPROC+.29/ B/NOT COC             .07JUL77 PLS E00 05-09 #28760    SKIP
/@/LC MODE5,2/                             .07JUL77 PLS E00 06-09 #28760    SKIP
/@/BCR,8 CNMPROC+.37/  B/MASTER; DISALLOW RELEASE  .PLS E00 07-09 #28760    SKIP
/@/B CNMPROC+.29/  B/OK (SLAVE)            .07JUL77 PLS E00 08-09 #28760    SKIP
#1                                         .07JUL77 PLS E00 09-09 #28760
#TTP                                                                        SKIP
TQOV2/TPQ2+.13C/BEZ @/                 .LA  08/29/77 6-10     E00 #28937    SKIP
/@/LI,7 -2/                            .LA  01/26/77 7-10     E00 #28937    SKIP
/@/AND,7 TTP+.16/                      .LA  01/26/77 8-10     E00 #28937    SKIP
/@/STW,7 TTP+.16/                      .LA  01/26/77 9-10     E00 #28937    SKIP
/@/B TPQ2+.140/                        .LA  01/26/77 10-10    E00 #28937    SKIP
#
UMOV//
< THE FOLLOWING PATCH IS AN ATTEMPT TO FIX POWER-FAIL SAFE
< IT WAS XMITTED FROM TELEFILE TO AL HEFF ON 9/13/77
UMOV/IOQ+.3DE/BAL,11 PFSR+.AA(LI,1 IOQ+.3E2)/              1/3
UMOV/IOQ+.3DF/LI,1 IOQ+.3E2(BAL,11 IOQM+.16E)/             2/3
UMOV/IOQ+.3E0/BAL,11 IOQM+.16E(BAL,11 PFSR+.AA)/           3/3
< THIS PATCH COVERS THE HOLES IN 2780 HANGUP LOGIC
< WHICH WERE NOT INCLUDED IN E00 SOURCE BUT WHICH
< ARE PART OF THE SIDR#28604 D00 PROBLEMS.
#BSCIO
UMOV/BSCIO+.1F4/B @(STS,5 RB:FLAG,1)/
/@/CW,5 RB:FLAG,1/
/@/BANZ BSCIO+.1F8/
/@/STS,5 RB:FLAG,1/
/@/STS,5 RB:BUF,1/
/@/B BSCIO+.1F5/
UMOV/BSCIO+.1FB/B @(B *11)/
/@/AND,6 MASKS+24/
/@/STW,6 RB:BUF,7/
/@/B *11/
#2780IO                                                                     SKIP
UMOV/2780IO+.28A/NOP(B 2780IO+.2AC)/                                        SKIP
#
< THE FOLLOWING IS  A 6 CARD PATCH TO 2780IO TO HANDLE LINE PRINTER
< FORMATTING. IT INTERCEPTS THE X'60' CHARACTER AND SUBSTITUTES
< AN ESC-+ STREAM WHICH IS INTERPRETED BY THE 2780 AS A SUPPFESS SPACE
< CHARACTER. D. LAMPSON 2/25/77 PATCH IS SAME FOR CPV E00
#2780IO                                                                     SKIP
UMOV/2780IO+.12B/B @(LI,2 .61)/        1/6 EXPER                            SKIP
/@/LI,2 .61/                           2/6 EXPER                            SKIP
/@/AI,15 -.60/                         3/6 EXPER                            SKIP
/@/LI,2 .4E/          '+' CHARACTER    5/6 EXPER                            SKIP
/@/B 2780IO+.12D/                        6/6 EXPER                          SKIP
#
< THE FOLLOWING 11 CARD PATCH IS TO HASPIO HANDLER TO              EXPER
< HANDLE LINE PRINTER FORMATTING.                                  EXPER
< IT INTERPRETS THE X'60' CHARACTER AND SUBSTITUTES                EXPER
< AN ESC-+ STREAM  WHICH IS INTERPRETED BY THE                     EXPER
< 4780 AS A SUPPRESS SPACE CHARACTER. S. LEA 10/25/77 FOR CPV E00  EXPER
< AS PER DAVE BRUMLEY TELEFILE 10/25/77                            EXPER
#HASPIO
UMOV/HASPIO+.1C8/B @(LW,2 IOQ8,5)/                1/11             EXPER
/@/LW,2 IOQ8,5/                                   2/11             EXPER
/@/LB,11 STB:TYP,4/            STB:TYP            3/11             EXPER
/@/CI,11 5/                    TUTYP              4/11             EXPER
/@/BE HASPIO+.1C9/        IF CARD PUNCH BYPASS    5/11             EXPER
/@/LB,11 0,2/                                     6/11             EXPER
/@/CI,11 .60/                                     7/11             EXPER
/@/BNE HASPIO+.1C9/                               8/11             EXPER
/@/LI,11 .80/                                     9/11             EXPER
/@/STB,11 0,2/                                   10/11             EXPER
/@/B HASPIO+.1C9/                                11/11             EXPER
#
< IT CAUESES HANDLER TO CHECK FOR A DIFFERENT FLAVOR OF ACKS
<
#2780IO                                                                     SKIP
UMOV/2780IO+.9A/B @(SLS,5 -8)/         1/10 EXPER                           SKIP
/@/LW,0 11/                            2/10 EXPER                           SKIP
/@/EOR,6 BITS+1/                       3/10 EXPER                           SKIP
/@/CH,5 2780IO+.E9,6/                  4/10 EXPER                           SKIP
/@/BE BSCIO+.32/                       5/10 EXPER                           SKIP
/@/SLS,5 -8/                           6/10 EXPER                           SKIP
/@/B 2780IO+.9B/                       7/10 EXPER                           SKIP
< THE FOLLOWING 3 PATCHES CAUSE THE CHAR FOLLOWING THE LAST DLE CHAR TO     SKIP
< BE LOGGED                                                                 SKIP
< FORMAT      RP1  RP2  RP3  RP4                                            SKIP
<             09   07   15   CHAR      NOT ACK                              SKIP
<             00   07    15  CHAR      WRONG KIND OF ACK                    SKIP
UMOV/2780IO+.9F/B @(B BSCIO+.22)/      8/10 EXPER                           SKIP
/@/LH,5 RBH:ACK,1/                     9/10 EXPER                           SKIP
/@/B BSCIO+.22/                       10/10 EXPER                           SKIP
#
< THIS PATCH ALLOWS 2780 HANDLER TO SEND ENQ'S(UP TO RETRY CNT)
< TO A RBT THAT HASN'T RESPONDED WITH AN ACK0 OR ACK1 TO
< CPV DATA XMISSION
UMOV/2780IO+.1B/B @(B BSCIO+.32)/      1/7 EXPER                            SKIP
/@/CI,8 6/                             2/7 EXPER                            SKIP
/@/BE BSCIO+.32/                       3/7 EXPER                            SKIP
/@/LI,0 @+2/                           4/7 EXPER                            SKIP
/@/ B BSCIO+.32/                       5/7 EXPER                            SKIP
/@/LI,5 2/                             6/7 EXPER                            SKIP
/@/B BSCIO+.1F1/                       7/7 EXPER                            SKIP
#
#DPSIO                                                                      SKIP
<ONE OF THE INSTRUCTIONS IN DPSIO DIDNT HANDLE REAL EXT ADDRESSES           SKIP
< AS PER DAVE BRUMLEY TELEFILE  12/20/77                                    SKIP
UMOV/DPSIO+.15D/B @(STW,3 .1FFFF,2/                                         SKIP
/@/AI,2 -1/                                                                 SKIP
/@/STW,3 0,2/                                                               SKIP
/@/AI,2 1/                                                                  SKIP
/@/B DPSIO+.15E/                                                            SKIP
#
#
<THIS PATCH REPLACES PATCHES TO SIDR #29052 DATED 02-07-77        #29263
<AND SIDR #29263 DATED 06-02-77.                                  #29263
<THIS PATCH INSURES THAT A CARRIAGE RESTORE IS DONE FOLLOWING ALL #29263
<ERRORS, INCLUDING SECT UNAVAILABLE, ON DISC PACK BUT NOT ON RAD. #29263
<IT ALSO CORRECTS A PROBLEM IN PREVIOUS PATCH FOR 29052 WHICH     #29263
<PREVENTED SECONDARY ERROR LOG ENTRIES FOLLOWING  TDE, TME ETC.   #29263
UMOV/HANDLERS+.238/.24056624(.2405662A/  KDR E00 07/20/77 001-005 #29263
UMOV/HANDLERS+.24D/B @(B ;Q/             KDR E00 07/20/77 002-005 #29263
/@/CI,0 HANDLERS+.1F8/                   KDR E00 07/20/77 003-005 #29263
/@/BGE HANDLERS+.223/                    KDR E00 07/20/77 004-005 #29263
/@/B HANDLERS+.207/                      KDR E00 07/20/77 005-005 #29263
<THIS PATCH IS THE SAME AS THE ORIGINAL PATCH FOR SIDR 28722      #28722
<EXCEPT THAT IS HAS THE CONDITIONAL -CRDOUT-.                     #28722
<WHEN THE CARD PUNCH GOES FROM "MANUAL" TO "NOT OPERATIONAL"      #28722
<RESTART, YOU WILL LOSE ONE PUNCHED RECORD.                       #28722
#CRDOUT                                  MRS E00 08/02/77 001-005 #28722    SKIP
UMOV/CRDOUT+.40/CI,8 .6600(LH,0 DCT21,1)/MRS E00 08/02/77 002-005 #28722    SKIP
UMOV/CRDOUT+.41/BAZ CRDOUT+.48(CI,0 .6600)/  E00 08/02/77 003-005 #28722    SKIP
UMOV/CRDOUT+.42/LI,12 .C008(BAZ CRDOUT+.48)/ E00 08/02/77 004-005 #28722    SKIP
#                                        MRS E00 08/02/77 005-005 #28722
#7TAP                                                                       SKIP
<CAN NOT READ 7 TRACK PACKED BINARY TAPE BECAUSE BYTE COUNT ON THE#29629    SKIP
<TAPE MUST BE DIVISABLE BY 3                                      #29629    SKIP
UMOV/7TAP+.63/.16000402(.16800402)/      MRS E00 07/11/77 001-001 #29629    SKIP
#
#7TAP                                                                       SKIP
<TAPEMARK IS BEING LOGGED AS AN ERROR ON 7-TRACK TAPES            #29630    SKIP
UMOV/7TAP/NOP  (LW,15 7TAP+.23)/         MRS E00 07/07/77 001-002 #29630    SKIP
#
<SUBSEQUENT VERIFY ON 327X RPM PACKS (BASED ON SS3) WILL ALWAYS   #29296
<FAIL BECAUSE VERIFIES ARE NOT CORRECTED BY RPM                   #29296
UMOV/HANDLERS+.205/B @(RD,0 0)/          MRS E00 06/06/77 001-005 #29296
/@/CW,5 BITS+24/                         MRS E00 06/06/77 002-005 #29296
/@/BANZ  HANDLERS+.20A/                  MRS E00 06/06/77 003-005 #29296
/@/RD,0  0/                              MRS E00 06/06/77 004-005 #29296
/@/B  HANDLERS+.206/                     MRS E00 06/06/77 005-005 #29296
#7TAP                                                                       SKIP
< THIS IS A REPLACEMENT PATCH FOR SIDR #29138 DATED               #29138    SKIP
< 03/09/77.  IT IN TURN REPLACES PATCHES FOR SIDR                 #29138    SKIP
< #29053 TO CORRECT 7-TRACK TAPE PROBLEMS OF BYTE COUNT           #29138    SKIP
< AND BAD CLIST AND ETC.                                          #29138    SKIP
<                                                              >  #29138    SKIP
UMOV/7TAP+.92/SLS,8 2(SLS,8 3)/          LIP E00 05/18/77 001-018 #29138    SKIP
UMOV/7TAP+.95/STD,8 1,7/                 LIP E00 05/18/77 002-018 #29138    SKIP
UMOV/7TAP+.96/STD,12 0,7/                LIP E00 05/18/77 003-018 #29138    SKIP
UMOV/7TAP+.97/B HANDLERS+.E4/            LIP E00 05/18/77 004-018 #29138    SKIP
UMOV/7TAP+.7E/B @/                       LIP E00 05/18/77 005-018 #29138    SKIP
/@/BAL,0 HANDLERS+.195/                  LIP E00 05/18/77 006-018 #29138    SKIP
/@/INT,5 IOQ8,3/                         LIP E00 05/18/77 007-018 #29138    SKIP
/@/BCR,8 $+3/                            LIP E00 05/18/77 008-018 #29138    SKIP
/@/AH,7 IOQ9,3/                          LIP E00 05/18/77 010-018 #29138    SKIP
/@/LD,12 *LITERALS+.5B,7/                LIP E00 05/18/77 011-018 #29138    SKIP
/@/AND,13 7TAP+.9B/                      LIP E00 05/18/77 012-018 #29138    SKIP
/@/OR,13 LITERALS+.23/                   LIP E00 05/18/77 013-018 #29138    SKIP
/@/STD,12 *LITERALS+.5B,7/               LIP E00 05/18/77 014-018 #29138    SKIP
/@/INT,5 IOQ8,3/                         LIP E00 05/18/77 015-018 #29138    SKIP
/@/BCR,8 7TAP+.83/                       LIP E00 05/18/77 016-018 #29138    SKIP
/@/LH,5 IOQ9,3/                          LIP E00 05/18/77 017-018 #29138    SKIP
/@/B 7TAP+.7F/                           LIP E00 05/18/77 018-018 #29138    SKIP
#
< OC TIMEOUT TRIES TO INTERPRET BUFFER                            #28915
UMOV/HANDLERS+.8/B HANDLERS+.26(B HANDLERS+.A)/  05/05/77 001-001 #28915
< THE SIX CARD PATCH FOR SIDR#28847 DATED 3/9/77 IS               #28847
< INCORRECT AND SHOULD BE REPLACED WITH THE FOLLOWING PATCH       #28847
< THAT FIXES SIDR#28847 AND SIDR#29399.                           #28847
< **************************************                          #28847
UMOV/IOQ+.1A8/NOP(STB,9 DCT5,1)/         LIP E00 05/03/77 001-011 #28847
UMOV/IOQ+.352/NOP(WD,0 .27)/             LIP E00 05/03/77 002-011 #28847
UMOV/IOQ+.13D/B @(BCR,8 IOQ+.165)/       LIP E00 05/03/77 003-011 #28847
/@/BCS,4 IOQ+.E4/                        LIP E00 05/03/77 004-011 #28847
/@/BCS,8 IOQ+.13E/                       LIP E00 05/03/77 005-011 #28847
/@/B IOQ+.165/                           LIP E00 05/03/77 006-011 #28847
/@/BNEZ IOQ+.B/                          LIP E00 05/03/77 008-011 #28847
/@/CLM,12 RBLIMS/                        LIP E00 05/03/77 009-011 #28847
/@/BCR,9 IOQ+.9/                         LIP E00 05/03/77 010-011 #28847
/@/B IOQ+.13/                            LIP E00 05/03/77 011-011 #28847
< LOST FIRST LINE OF OUTPUT TO 7670'S SOMETIMES.               E00#28138
#DSCIO                                     1-3 TSM 040177      E00#28138    SKIP
UMOV/DSCIO+.1BE/EOR,13 ;Q(EOR,12 BITS+32)/ 2-3 TSM 040177      E00#28138    SKIP
#                                          3-3 TSM 040177      E00#28138
< RBT'S QUIT IN E00 AFTER ANY TIMEOUT.                         E00#28873
#RBSSS                                  1-6TSM  040177         E00#28873
UMOV/RBSSS+.2D/BANZ @(BANZ RBSSS+.37)/  2-6TSM  040177         E00#28873
/@/AI,5 -.10/                           3-6TSM  040177         E00#28873
/@/STB,5 DCT3,1/                        4-6TSM  040177         E00#28873
/@/B RBSSS+.37/                         5-6TSM  040177         E00#28873
#                                       6-6TSM  040177         E00#28873
<WATCHDOG TIMER TRAP PRINTS INSTRUCTION IN THE LOCATION IMMED     #27662
<PRECEEDING LOCATION OF THE TRAPPED INSTRUCTION                   #27662
UMOV/CSEHAND+.EE/BCR,8 CSEHAND+.F0(BCS,7 CSEHAND+.F0)/    001-001 #27662
< 7 TO WRTD; 12 TO MULOV/OPNLD; 12 TO UMOV/OUTSYM.             E00#27105
UMOV/OUTSYM+.171/B OUTSYM+.17A(B OUTSYM+.178)/   20-31TSM030177E00#27105
UMOV/OUTSYM+.17A/B @(STB,13 *1,6)/               21-31TSM030177E00#27105
/@/STB,13 *1,6/                                  22-31TSM030177E00#27105
/@/BNEZ OUTSYM+.17B/                             24-31TSM030177E00#27105
/@/SW,2 12/                                      25-31TSM030177E00#27105
/@/LB,15 *14,2/                                  26-31TSM030177E00#27105
/@/AW,2 12/                                      27-31TSM030177E00#27105
/@/CI,15 .10/                                    28-31TSM030177E00#27105
/@/BAZ OUTSYM+.184/                              29-31TSM030177E00#27105
/@/MTB,-1 *14,2/                                 30-31TSM030177E00#27105
/@/B OUTSYM+.17B/                                31-31TSM030177E00#27105
<** SET EOT TYC IF NO ERRORS AT EOT MARKER **>                    #29054
UMOV/MAGTAPE+.9C/CI,5 .7C(CB,4 IOQ4,3)/  LIP E00 02/09/77 001-004 #29054
UMOV/MAGTAPE+.9D/BAZ @(BE MAGTAPE+.44)/  LIP E00 02/09/77 002-004 #29054
/@/LI,12 5/                              LIP E00 02/09/77 003-004 #29054
/@/B MAGTAPE+.51/                        LIP E00 02/09/77 004-004 #29054
< LOAD R0 WITH DCT5 TO REQCOM IN IOQ - FIXES OPER KEYINS          #28800
UMOV/IOQ+.431/BAL,4 @(BAL,4 IOQ+.2D3)/   LIP E00 12/01/76 001-003 #28800
/@/LB,0 DCT5,1/                          LIP E00 12/01/76 002-003 #28800
/@/B IOQ+.2D3/                           LIP E00 12/01/76 003-003 #28800
< CORRECT  SWAPPER ADDRESS MASK ERROR.  CAUSED BIG MEMORY      E00#28637
< PACK SWAPPER SYSTEMS TO CRASH WITH S/C 7E UPON BOOTING       E00#28637
UMOV/SWAPPER+.93/AND,6 MASKS+22(AND,6 ;Q)/  KDR  1/1 11/15/76  E00#28637
< GET CORRECT SEEK ADDRESS FOR ERRORLOG.                       E00#28272
UMOV/HANDLERS+.148/BE @(BE ;Q)/        KDR 1/3 11/15/76        E00#28272
/@/B HANDLERS+.17B/                    KDR 3/3 11/15/76        E00#28272
< GOT S/C 7E-40 FROM TIMING WINDOW IN BSCIO.                   E00#28619
#BSCIO                               1-3 TSM 110976            E00#28619
UMOV/BSCIO+.138/LW,7 1(LB,7 IOQ7,3)/ 2-3 TSM 110976            E00#28619
#                                    3-3 TSM 110976            E00#28619
< GOT S/C 7E-40 WHEN RBSWITCHED FILE X'ED BY REMOTE OPERATOR.  E00#28622
UMOV/OUTSYM+.20/LI,13 .3F(LW,13 15,1)/SCSVDGI 1-3 TSM 110976   E00#28622
UMOV/OUTSYM+.21/SLD,12 24(STB,12 13)/         2-3 TSM 110976   E00#28622
UMOV/OUTSYM+.22/STS,12 15,1(STW,13 15,1)/     3-3 TSM 110976   E00#28622
<THIS PATCH BOOSTS TAPE WRITE ERASURES.                           #28818
UMOV/MAGTAPE+.7E/B @(CI,5 .60)/          LIP E00 12/01/76 001-006 #28818
/@/CI,5 .200/                            LIP E00 12/01/76 002-006 #28818
/@/BANZ MAGTAPE+.9E/                     LIP E00 12/01/76 003-006 #28818
/@/CI,5 .60/                             LIP E00 12/01/76 004-006 #28818
/@/B MAGTAPE+.7F/                        LIP E00 12/01/76 005-006 #28818
UMOV/MAGTAPE+.F5/.50445050(.50505050)/   LIP E00 12/01/76 006-006 #28818
<MAGTAPE PROBLEMS                                                 #28812
UMOV/MAGTAPE+.96/SLS,7 18(SLS,7 16)/     LIP E00 12/01/76 001-005 #28812
UMOV/MAGTAPE+.F4/.BC5DDD00(.BCDDDD00)/   LIP E00 12/01/76 002-005 #28812
#NSTAP                                   LIP E00 12/01/76 003-005 #28812    SKIP
UMOV/NSTAP+.90/.236F8500(.23858500)/     LIP E00 12/01/76 004-005 #28812    SKIP
#                                        LIP E00 12/01/76 005-005 #28812
UMOV/HANDLERS+.BF/B @(LW,7 IOQ8,3)/      LIP E00 12/01/76 001-004 #28819
/@/LW,11 7/                              LIP E00 12/01/76 002-004 #28819
/@/LW,7 IOQ8,3/                          LIP E00 12/01/76 003-004 #28819
/@/B HANDLERS+.C0/                       LIP E00 12/01/76 004-004 #28819
<HANDLER PROBLEM                                                  #28817
UMOV/HANDLERS+.D5/LW,7 11(LH,7 DCT7,1)/  LIP E00 12/01/76 001-004 #28817
UMOV/HANDLERS+.C9/LW,0 9(LW,11 9/        LIP E00 12/01/76 002-004 #28817
UMOV/HANDLERS+.CA/AND ;Q(AND,11 ;Q/      LIP E00 12/01/76 003-004 #28817
UMOV/HANDLERS+.CB/STH 1,5(STH,11 1,5/    LIP E00 12/01/76 004-004 #28817
<MAGTAPE PROBLEM                                                  #28814
UMOV/MAGTAPE+.50/B @(LI,12 1)/           LIP E00 12/01/76 001-005 #28814
/@/CLM,12 MAGTAPE+.42/                   LIP E00 12/01/76 002-005 #28814
/@/BCR,9 MAGTAPE+.51/                    LIP E00 12/01/76 003-005 #28814
/@/LI,12 1/                              LIP E00 12/01/76 004-005 #28814
/@/B MAGTAPE+.51/                        LIP E00 12/01/76 005-005 #28814
<IOQ PROBLEM                                                      #28809
UMOV/IOQ+.232/;Q+2/                      LIP E00 12/01/76 001-001 #28809
<TIMING PROBLEM ON RECOVERY                                       #28810
UMOV/INITRCVR+.10D/B @(LI,3 .F0000/      KRD E00 12/01/76 001-005 #28810
/@/LI,3 500000/                          KRD E00 12/01/76 002-005 #28810
/@/BDR,3 $/                              KRD E00 12/01/76 003-005 #28810
/@/LI,3 .F0000/                          KRD E00 12/01/76 004-005 #28810
/@/B INITRCVR+.10E/                      KRD E00 12/01/76 005-005 #28810
<THIS PATCH PREVENTS A S/C 95 ON DISK PACK SWAPPER SYSTEMS.       #28469
#DPSIO                                   KDR E00 10/20/76 001-004 #28469    SKIP
UMOV/DPSIO+.12D/LI,0 4(LI,0 .102)/       KDR E00 10/20/76 002-004 #28469    SKIP
UMOV/DPSIO+.1AA/LI,0 4(LI,0 .102)/       KDR E00 10/20/76 003-004 #28469    SKIP
#                                        KDR E00 10/20/76 004-004 #28469
<CORRECT S/C 3B DUE TO ILL-DESIGNED NSLP HARDWARE.                #28811
UMOV/OUTSYM+.148/LI,0 0(LB,0 *14,2)/     TSM E00 12/01/76 001-001 #28811
RECOVER//
< DON'T CLOBBER PRIVATE PACK VTOCS DURING CRASH RECOVERY          #29360
RECOVER/TSTHGP+.C2/B @(LI,3 .800/        JFJ E00 04/22/77 001-005 #29360
/@/LI,3 .70000/                          JFJ E00 04/22/77 002-005 #29360
/@/STW,3 RCVCTL+.410+6/                  JFJ E00 04/22/77 003-005 #29360
/@/LI,3 .800/                            JFJ E00 04/22/77 004-005 #29360
/@/B TSTHGP+.C3/                         JFJ E00 04/22/77 005-005 #29360
< WAIT FOR I/O TO COMPLETE ON A RMP.                              #29272
RECOVER/CYCUSR+.5E1/B @(BCS,12 CYCUSR+.5DE/  E00 04/13/77 001-009 #29272
/@/BCS,12 CYCUSR+.5DE/                   KRD E00 04/13/77 002-009 #29272
/@/LC 5/                                 KRD E00 04/13/77 003-009 #29272
/@/BCS,6 CYCUSR+.5DE/                    KRD E00 04/13/77 004-009 #29272
/@/B CYCUSR+.5E2/                        KRD E00 04/13/77 005-009 #29272
RECOVER/RCVRIO+.9A/BCR,12 @(BCR,12 RCVRIO+.9E/   04/13/77 006-009 #29272
/@/LC 3/                                 KRD E00 04/13/77 007-009 #29272
/@/BCR,6 RCVRIO+.9E/                     KRD E00 04/13/77 008-009 #29272
< PREVENT TRAP IN RECOVERY ON A 560 WITH LESS THAN 128K           #29326
< OF CORE.                                                        #29326
RECOVER/RCVCTL+.3B9/B @(MTW,1 RCVCTL+.DE/KRD E00 04/14/77 001-005 #29326
/@/LI,0 0/                               KRD E00 04/14/77 002-005 #29326
/@/STW,0 RCVCTL+.3EB/                    KRD E00 04/14/77 003-005 #29326
/@/MTW,1 RCVCTL+.DE/                     KRD E00 04/14/77 004-005 #29326
/@/B RCVCTL+.3BA/                        KRD E00 04/14/77 005-005 #29326
RECOVER/RCVCTL+.7D/NOP(BAL,11 TSTHGP+.557/ E00 KRD 12/14/76 1-1   #28878
<FIX ZAP ON PACK SWAPPER                                          #28815
RECOVER/RCVCTL+.BD/BAL,11 @(BAL,11 CYCUSR+.111)/ 12/01/76 001-009 #28815
/@/LW,7 TABLES .218/                     PAR E00 12/01/76 002-009 #28815
/@/STW,7 CYCUSR .280/                    PAR E00 12/01/76 003-009 #28815
/@/B CYCUSR .111/                        PAR E00 12/01/76 004-009 #28815
RECOVER/CYCUSR .235/LI,4 .40(AI,4 -512/  PAR E00 12/01/76 005-009 #28815
RECOVER/CYCUSR .247/B @(B 0,5/           PAR E00 12/01/76 006-009 #28815
/@/TIO 1/                                PAR E00 12/01/76 007-009 #28815
/@/BCS,12 .-1/                           PAR E00 12/01/76 008-009 #28815
/@/B 0,5/                                PAR E00 12/01/76 009-009 #28815
*
GENMD ANLZ
DELETE
<'SPY ID' NOT WORKING CORRECTLY.                                  #29696
:GENMD,ANALZO7 SPY+18B,6A600010+PATCH(20200001). 08/04/77 002-007 #29696
:GENMD,ANALZ   PATCH+10,33000000+USER.   MRS E00 08/04/77 003-007 #29696
:GENMD,ANALZ   PATCH+11,6920018E+SPY.    MRS E00 08/04/77 004-007 #29696
:GENMD,ANALZ   PATCH+12,20200001.        MRS E00 08/04/77 005-007 #29696
:GENMD,ANALZ   PATCH+13,680C0000.        MRS E00 08/04/77 006-007 #29696
:GENMD,ANALZO7 SPY+199,6A600010+PATCH(20200001). 08/04/77 007-007 #29696
<AN ERROR IN USER SYNTAX DURING ANALZ SNOOP PRIORITY CHANGE WILL  #29425
<CAUSE TO CRASH OF SINGLE USER ABORT.                             #29425
:GENMD,ANALZO6    SNOOP+6B4,6800000C+PATCH . E00 06/30/77 001-005 #29425
:GENMD,ANALZ      PATCH+C,6B700001+STACK. MRS E00 06/30/77 002-005 #2942
:GENMD,ANALZ      PATCH+D,3A700007.      MRS E00 06/30/77 003-005 #29425
:GENMD,ANALZ      PATCH+E,13700000+STACK.MRS E00 06/30/77 004-005 #29425
:GENMD,ANALZ      PATCH+F,68000008+SNOOP.MRS E00 06/30/77 005-005 #29425
<LAST BRANCH ADDRESS IS INCORRECT-SHOULD BE THE CELL TEMP$BREG    #30029
:GENMD,ANALZO4 TRPAGE+6C8,22E00069+TCATCH:(22E00000+J:ALB).       #30029
<BREAK,CONTINUE FROM ANLZ-SPY WILL CRASH BECAUSE ANALZ PUTS        #2933
<ITS OWN SPD IN THE JIT                                           #29338
:GENMD,ANALZ INITIAL+2,02000000.         MRS E00 05/03/77 001-004 #29338
:GENMD,ANALZ PP-99D,00A00000.            MRS E00 05/03/77 002-004 #29338
:GENMD,ANALZ STACK,0000A0C5.             MRS E00 05/03/77 003-004 #29338
:GENMD,ANALZ STACK+1,005E0000.           MRS E00 05/03/77 004-004 #29338
<1. BANNER PAGE OFFSET BY 3                                       #28998
<3. USER JITS DO NOT HAVE USER NAME AND ACCOUNT                   #28998
<  THIS PATCH REPLACES THE PREVIOUS SIMILAR FIX .  LINE 3 OF 8 HAS
<  BEEN MODIFIED
:GENMD,ANALZO3 BLKPRT+C,22300000(22300003).  E00 03/02/77 001-008 #28998
:GENMD,ANALZO5 DISPSTK+5D,6A000007+PATCH.MRS E00 03/02/77 002-008 #28998
:GENMD,ANALZ  PATCH+7,32200000+USER.     MRS E00 03/02/77 003-008 #28998
:GENMD,ANALZ  PATCH+8,68000000+RES:JIT.  MRS E00 03/02/77 004-008 #28998
:GENMD,ANALZO5    +B7CB,68000009+PATCH.  MRS E00 03/02/77 005-008 #28998
:GENMD,ANALZ  PATCH+9,32000000+DUMP:DIR. MRS E00 03/02/77 006-008 #28998
:GENMD,ANALZ  PATCH+A,30000000+JITBURST. MRS E00 03/02/77 007-008 #28998
:GENMD,ANALZ  PATCH+B,6800B7CC.          MRS E00 03/02/77 008-008 #28998
<BF COMMAND TRAPS CAUSE COM:BF DESTROYS ITS LINK REGISTER BEFORE  #28939
<PUSHING IT                                                       #28939
:GENMD,ANALZ  PP+571,330000BA+DATA.      MRS E00 02/23/77 001-001 #28939
<FIX FIN MESSAGE AFTER SNOOP QUE DISPLAY                          #28799
<:GENMD,ANALZ  PP+172,E940C5F0         . LIP E00 12/06/76 001-012 #28799
<:GENMD,ANALZO7 SPY+2C,68000000+PATCH  . LIP E00 12/06/76 002-012 #28799
<:GENMD,ANALZ  PATCH+0,6AB0017D+SPY    . LIP E00 12/06/76 003-012 #28799
<:GENMD,ANALZ  PATCH+1,6AB00190+SPY    . LIP E00 12/06/76 004-012 #28799
<:GENMD,ANALZ  PATCH+2,68000000+SCANNER .LIP E00 12/06/76 005-012 #28799
<:GENMD,ANALZO7 SPY+E8,68000003+PATCH  . LIP E00 12/06/76 006-012 #28799
<:GENMD,ANALZ  PATCH+3,3200A2D0        . LIP E00 12/06/76 007-012 #28799
<:GENMD,ANALZ  PATCH+5,09600000+STACK  . LIP E00 12/06/76 009-012 #28799
<:GENMD,ANALZ  PATCH+6,680000F8+SPY    . LIP E00 12/06/76 010-012 #28799
<:GENMD,ANALZO6 SNOOP+2F8,68000000+SCANNER  .E00 12/06/76 011-012 #28799
<:GENMD,ANALZ RES:JIT,02200000         . LIP E00 12/06/76 012-012 #28799
GENMD BATCH
DELETE
< THE FOLLOWING GENMDS TO BATCH ARE REQUIRED BY DAVE ERBECK
:GENMD,BATCH BATCHPP+10E,02000000. 1/3
:GENMD,BATCH BATCHPP+114,21A00080. 2/3
:GENMD,BATCH BATCHPP+115,6810014F+BATCHPP. 3/3
<DON'T PRINT LP BANNER WHEN BATCH RUNS AS A GHOST.                #28699
,BATCHPP+5E,02000000(0410AA0C).          LLF E00 12/01/76 001-006 #28699
,MOD1+1D,02000000(0410B1FF).             LLF E00 12/01/76 002-006 #28699
,MOD1+C,68400000+PATCH(68400026+MOD1).   LLF E00 12/01/76 003-006 #28699
,PATCH+00,0410AA0C.                      LLF E00 12/01/76 004-006 #28699
,PATCH+01,70300000+JIT.                  LLF E00 12/01/76 005-006 #28699
,PATCH+02,68000026+MOD1.                 LLF E00 12/01/76 006-006 #28699
GENMD CCI
DELETE
< BYPASS PASSWORD CHECK ON BATCH JOB FROM CARD READER
:GENMD,CCI OPLOG+42,68000047+OPLOG. 1/1 S LEA E00
< PREVENT CCI FROM DOING SO MANY TOP OF FORMS
<FIXES PROBLEM OF BATCH USERS BEING PREVENTED FROM USING EXTENDED #29521
<MEMORY (VIRTUAL ADDRESSES 1C000-1FFFF) AFTER EXECUTION OF SET    #29521
<CONTROL COMMANDS.                                                #29521
:GENMD,CCI JCC+11B,68000007+CCIPCH(680000AC+JCC).06/07/77 001-014 #29521
:GENMD,CCI CCIPCH+7,2221C000.            CHK E00 06/07/77 002-014 #29521
:GENMD,CCI CCIPCH+8,25200077.            CHK E00 06/07/77 003-014 #29521
:GENMD,CCI CCIPCH+9,2231FFFF.            CHK E00 06/07/77 004-014 #29521
:GENMD,CCI CCIPCH+A,25300077.            CHK E00 06/07/77 005-014 #29521
:GENMD,CCI CCIPCH+B,22500000+FPMC.       CHK E00 06/07/77 006-014 #29521
:GENMD,CCI CCIPCH+C,75540000+JX:CMAP.    CHK E00 06/07/77 007-014 #29521
#:BIG                                    CHK E00 06/07/77 008-014 #29521
:GENMD,CCI CCIPCH+C,55540000+JX:CMAP.    CHK E00 06/07/77 009-014 #29521
#                                        CHK E00 06/07/77 010-014 #29521
:GENMD,CCI CCIPCH+D,20200001.            CHK E00 06/07/77 011-014 #29521
:GENMD,CCI CCIPCH+E,31200003.            CHK E00 06/07/77 012-014 #29521
:GENMD,CCI CCIPCH+F,6820000C+CCIPCH.     CHK E00 06/07/77 013-014 #29521
:GENMD,CCI CCIPCH+10,680000AC+JCC.       CHK E00 06/07/77 014-014 #29521
<FIXES PROBLEM OF SUA-61-40 WHEN EXECUTING BOTH SET AND ASSIGN    #29152
<COMMANDS WITH SET COMMANDS BEING EXECUTED FROM COMMAND FILE.     #29152
:GENMD,CCI ASSG+167,6800016D+ASSG       .CHK E00 03/31/77 001-001 #29152
<FIXES PROBLEM OF F:-- DCB ASSIGNMENTS BEING IGNORED WHEN MADE VIA#29059
<A SET COMMAND IN BATCH.                                          #29059
<ENABLE LOADER TO USE ALL OF CORE, INCLUDING THE SPECIAL SHARED   #28862
<PROCESSOR AREA.                                                  #28862
:GENMD,CCI JCC+27D,68000016+CCIPCH(6AB0028E+JCC).01/25/77 001-010 #28862
:GENMD,CCI CCIPCH+15,0D000100.           CHK E00 01/25/77 002-010 #28862
:GENMD,CCI CCIPCH+16,04800015+CCIPCH.    CHK E00 01/25/77 003-010 #28862
:GENMD,CCI CCIPCH+17,32C00000+XFF.       CHK E00 01/25/77 004-010 #28862
:GENMD,CCI CCIPCH+18,35C00000+J:EUP.     CHK E00 01/25/77 005-010 #28862
:GENMD,CCI CCIPCH+19,35C00000+J:DDUL.    CHK E00 01/25/77 006-010 #28862
:GENMD,CCI CCIPCH+1A,22100000+JBBCP.     CHK E00 01/25/77 007-010 #28862
:GENMD,CCI CCIPCH+1B,F5C20005.           CHK E00 01/25/77 008-010 #28862
:GENMD,CCI CCIPCH+1C,6AB0028E+JCC.       CHK E00 01/25/77 009-010 #28862
:GENMD,CCI CCIPCH+1D,6800027E+JCC.       CHK E00 01/25/77 010-010 #28862
<THE REQUIREMENT THAT ANS SERIAL NOS HAVE EXACTLY SIX CHARACTERS  #28624
<IS HEREBY LIFTED. SIX OR LESS NOW PREVAILS.                      #28624
<FIVE PATCHES-ONE EACH TO KEYIN,LABEL,PCL,CCI, AND TEL.           #28624
,HEXCK+87,69200082+HEXCK(69300082+HEXCK).PAR E00 01/11/77 004-005 #28624
<FIXES PROBLEM OF NOT BEING ABLE TO RESET DCB ASSIGNMENTS FOR     #28876
<SN,EXECUTE,UNDER,READ, AND WRITE OPTIONS ON ASSIGN COMMAND       #28876
<WHEN OPTION IS SPECIFIED WITHOUT ARGUMENTS. 4 CARD PATCH TO CCI  #28876
<AND 14 CARD PATCH TO TEL.                                        #28876
:GENMD,CCI ASSG+27D,6800006D+ASSG          .06JAN77 CHK E00 01-04 #28876
:GENMD,CCI ASSG+2BC,6800006D+ASSG          .06JAN77 CHK E00 02-04 #28876
:GENMD,CCI ASSG+2EF,6980006D+ASSG          .06JAN77 CHK E00 03-04 #28876
:GENMD,CCI ASSG+317,6980006D+ASSG          .06JAN77 CHK E00 04-04 #28876
<FIXES PROBLEM OF BAD A/M RECORD BEING GENERATED WHEN EXECUTING   #28741
<COMMAND FILES CONTAINING ASSIGN CONTROL COMMANDS.                #28741
:GENMD,CCI ASSG+501,321C0000+AM:LNK.     CHK E00 11/18/76 001_003 #28741
:GENMD,CCI ASSG+502,21100008+:AMHED.     CHK E00 11/18/76 002_003 #28741
:GENMD,CCI ASSG+503,6830051F+ASSG.       CHK E00 11/18/76 003-003 #28741
<ELIMINATES SETTING OF EXECUTE ATTRIBUTES TO 'NONE' BY DEFAULT    #28742
<WHEN CREATING A LOAD MODULE.                                     #28742
:GENMD,CCI LDR+D6,680000DC+LDR.          CHK E00 11/19/76 001-001 #28742
<FIXES PROBLEM OF BATCH JOB ABORTING WITH 'INVALID PASSWORD'      #28649
<MESSAGE WHEN LEGAL PASSWORD SPECIFIED ON JOB CONTROL COMMAND.    #28649
:GENMD,CCI JOBP+D6,68000004+CCIPCH.      CHK E00 11/10/76 001-004 #28649
:GENMD,CCI CCIPCH+4,693000D0+JOBP.       CHK E00 11/10/76 002-004 #28649
:GENMD,CCI CCIPCH+5,2280006B.            CHK E00 11/10/76 003-004 #28649
:GENMD,CCI CCIPCH+6,680000DE+JOBP.       CHK E00 11/10/76 004-004 #28649
<FIXES PROBLEM OF STEP CONDITION CODES NOT GETTING SET ON JOB STEP#28575
<ERROR OR ABORT IF AT JOB STEP BEGINNING CONDITION CODES WERE SET #28575
<VIA A STEP COMMAND.                                              #28575
<2 PATCHES TO CCI - 2 PATCHES TO STEP.                            #28575
:GENMD,CCI JCC+61,02000000(32100522+JCC).CHK E00 10/29/76 001-002 #28575
:GENMD,CCI JCC+62,02000000(47100000+J:EXTENT).   10/29/76 002-002 #28575
<PREVENTS SUA 61 WHEN EXECUTING A LOAD MODULE WITH A BAD HEAD     #28481
<RECORD IN BATCH.                                                 #28481
:GENMD,CCI CCIPCH,6B340005.              CHK E00 11/03/76 002-005 #28481
:GENMD,CCI CCIPCH+1,2130000C.            CHK E00 11/03/76 003-005 #28481
:GENMD,CCI CCIPCH+2,69100306+JCC.        CHK E00 11/03/76 004-005 #28481
:GENMD,CCI CCIPCH+3,680002DD+JCC.        CHK E00 11/03/76 005-005 #28481
GENMD DELTA
DELETE
<DELTA USES WRONG MASK FOR 'S' OPCODE                             #29086
:GENMD DEL+240,02000000(68000242+DEL).   JTA E00 07/26/77 001-001 #29086
<CELL MODIFICATION WILL NOT WORK FROM 2741'S                      #29610
:GENMD DEL+DB0,52400004+M:UC(52000004+M:UC). E00 07/27/77 001-010 #29610
:GENMD DEL+DB1,2540007F(2500007F).       JTA E00 07/27/77 002-010 #29610
:GENMD DEL+DB2,68000006+PCH(3500010D+VDUC).  E00 07/27/77 003-010 #29610
:GENMD PCH+6,204FFFFF,;.                 JTA E00 07/27/77 004-010 #29610
:          720800EE+VDUC,;.              JTA E00 07/27/77 005-010 #29610
:          21000004,;.                   JTA E00 07/27/77 006-010 #29610
:          6830000B+PCH,;.               JTA E00 07/27/77 007-010 #29610
:          20400001,;.                   JTA E00 07/27/77 008-010 #29610
:          3540010D+VDUC,;.              JTA E00 07/27/77 009-010 #29610
:          68000DB3+DEL.,.               JTA E00 07/27/77 010-010 #29610
<N;V  ;B  PR;B,PR;B  DONT WORK PROPERLY                           #28470
,DEL+684,68000000+PCH(68000795+DEL).     PAR E00 11/18/76 001-009 #28470
,PCH,22A00000.                           PAR E00 11/18/76 002-009 #28470
,DEL+A7B,3251C0C0(3551C0C0).             PAR E00 11/18/76 004-009 #28470
,DEL+B93,68000002+PCH(20600001).         PAR E00 11/18/76 005-009 #28470
,PCH+2,3121C0AE.                         PAR E00 11/18/76 006-009 #28470
,PCH+3,68380000.                         PAR E00 11/18/76 007-009 #28470
,PCH+4,20600001.                         PAR E00 11/18/76 008-009 #28470
,PCH+5,68000B94+DEL.                     PAR E00 11/18/76 009-009 #28470
GENMD DRSP
DELETE
<FIXES PROBLEM OF A PROCESSOR, TEMPORARILY REPLACED VIA DRSP, NOT #29136
<GETTING REPLACED ON THE SWAPPING RAD BY ITS :SYS COUNTERPART     #29136
<AFTER SYSTEM CRASHES.                                            #29136
:GENMD,DRSP DOG+74A,68000000+XPATCH(6930074C+DOG).        001-012 #29136
:GENMD,DRSP XPATCH,6930074C+DOG.         CHK E00 06/27/77 002-012 #29136
:GENMD,DRSP XPATCH+1,0460005A+DOG.       CHK E00 06/27/77 003-012 #29136
:GENMD,DRSP XPATCH+2,21800000+QUEUE.     CHK E00 06/27/77 004-012 #29136
:GENMD,DRSP XPATCH+3,68300007+XPATCH.    CHK E00 06/27/77 005-012 #29136
:GENMD,DRSP XPATCH+4,22E00003.           CHK E00 06/27/77 006-012 #29136
:GENMD,DRSP XPATCH+5,6AF0019B+DOG.       CHK E00 06/27/77 007-012 #29136
:GENMD,DRSP XPATCH+6,68000184+DOG.       CHK E00 06/27/77 008-012 #29136
:GENMD,DRSP XPATCH+7,22100000.           CHK E00 06/27/77 009-012 #29136
:GENMD,DRSP XPATCH+8,35100000+SMAKFLG.   CHK E00 06/27/77 010-012 #29136
:GENMD,DRSP XPATCH+9,6AC00191+DOG.       CHK E00 06/27/77 011-012 #29136
GENMD EDIT
DELETE
< IF TABS ARE SET, TAB EXPANSION IS ON, AND A RECORD CONTAINING   #29094
< TABS IS READ, EDITTING OPERATIONS AFFECT THE PORTION OF THE     #29094
< RECORD CORRESPONDING TO THE UNEXPANDED SIZE, RATHER THAN        #29094
< THE ENTIRE RECORD.                                              #29094
,SECT5+FE0,68000015+PATCH(02200070).       .18FEB77 PLS E00 01-06 #29094
,PATCH+15,321000EA+SECT1(0),;.  LW,X3 RECSIZE      .PLS E00 02-06 #29094
201FFFFF(0),;.  AI,X3 -1                   .18FEB77 PLS E00 03-06 #29094
351001BD+SECT1(0),;.  STW,X3 EODCLMN       .18FEB77 PLS E00 04-06 #29094
02200070(0),;. REPL INST                   .18FEB77 PLS E00 05-06 #29094
68000FE1+SECT5.  RETURN                    .18FEB77 PLS E00 06-06 #29094
<  WHEN IN SS/ST MODE, EDIT DOESN'T CHECK FOR COMMANDS            #29067
<  THAT ARE ILLEGAL IN SS/ST MODE                                 #29067
,SECT5+3CE,68000012+PATCH(69300402+SECT5). .16FEB77 PLS E00 01-04 #29067
,PATCH+12,33000294+SECT1(0),;.  MTW,0 STEPFLAG     .PLS E00 02-04 #29067
69300402+SECT5(0),;.  BNEZ EXC30           .16FEB77 PLS E00 03-04 #29067
680003CF+SECT5(0).                         .16FEB77 PLS E00 04-04 #29067
<  DE COMMAND ON SS/ST DOESN'T INHIBIT RE-WRITING THE RECORD      #29066
,SECT5+80D,6A70113C+SECT5(6A701140+SECT5)  .16FEB77 PLS E00 01-02 #29066
,SECT5+989,6A70113C+SECT5(6A701140+SECT5)  .16FEB77 PLS E00 02-02 #29066
<  EDIT DOESN'T RECOGNIZE IT'S INITIAL COMMAND IF CALLED FROM     #29048
,SECT5+F50,6800000B+PATCH(210000C2).       .11FEB77 PLS E00 01-09 #29048
,PATCH+A,00000040(0),;.  CONVERT LOWER CASE TO UPPER   .E00 02-09 #29048
4900000A+PATCH(0),;.  OR,0 PATCH+.A        .11FEB77 PLS E00 03-09 #29048
210000C2(0),;.  CI,0 'B'                   .11FEB77 PLS E00 04-09 #29048
68000F51+SECT5(0).  B SECT5+.F51           .11FEB77 PLS E00 05-09 #29048
,SECT5+F58,6800000F+PATCH(210000C5).       .11FEB77 PLS E00 06-09 #29048
,PATCH+F,4900000A+PATCH(0),;.  OR,0 PATCH+.A       .PLS E00 07-09 #29048
210000C5(0),;.  CI,0 'E'                   .11FEB77 PLS E00 08-09 #29048
68000F59+SECT5(0).  B SECT5+.F59           .11FEB77 PLS E00 09-09 #29048
<  SS/ST COMMANDS YIELD STRANGE RESULTS IF BLANKS PRECEDE         #29041
<  CARRIAGE-RETURN ON 'NULL' INPUT LINE                           #29041
,SECT5+2A,68000000+PATCH(35B000EB+SECT1).  .03FEB77 PLS E00 01-12 #29041
,PATCH,;.                                  .03FEB77 PLS E00 02-12 #29041
3230000B      (0),;.  LW,X1  R1            .03FEB77 PLS E00 03-12 #29041
22800040      (0),;.  LI,T1  X'40'         .03FEB77 PLS E00 04-12 #29041
68000005+PATCH(0),;.  B      B             .03FEB77 PLS E00 05-12 #29041
71860068+SECT1(0),;.A CB,T1  TTYIMG,X1     .03FEB77 PLS E00 06-12 #29041
69300007+PATCH(0),;.  BNE    C             .03FEB77 PLS E00 07-12 #29041
203FFFFF      (0),;.B AI,X1  -1            .03FEB77 PLS E00 08-12 #29041
68100003+PATCH(0),;.  BGEZ   A             .03FEB77 PLS E00 09-12 #29041
20300001      (0),;.C AI,X1  1             .03FEB77 PLS E00 10-12 #29041
353000EB+SECT1(0),;.  STW,X1 TTYIMGSZ      .03FEB77 PLS E00 11-12 #29041
GENMD ELLA
DELETE
< LET ELLA USER DETERMINE PAGE WIDTH VIA PLATEN COMMAND
:GENMD,ELLAROOT RT+CE1,02000000. 1/1 EOO DDL 4/26/77
< THIS PATCH AND THE 13 CARD PATCH FOR SIDR #28579 FIX DATE PROBLEM IN E
:GENMD,ELLAROOT RT+B5B,68000B64+RT     .BH 03/22/77 01OF01 #E00   #28579
:GENMD,ELLAROOT RT+33A,68000000+PAT    .BH 10/26/76 01OF13 #E00E  #28579
:GENMD,ELLAROOT PAT+00,6AF00EF3+RT     .BH 10/26/76 02OF13 #E00E  #28579
:GENMD,ELLAROOT PAT+01,22F0001C        .BH 10/26/76 03OF13 #E00E  #28579
:GENMD,ELLAROOT PAT+02,32E00380+RT     .BH |0/26/76 04OF13 #E00E  #28579
:GENMD,ELLAROOT PAT+03,4BE002C1+RT     .BH 10/26/76 05OF13 #E00E  #28579
:GENMD,ELLAROOT PAT+04,21E00100        .BH 10/26/76 06OF13 #E00E  #28579
:GENMD,ELLAROOT PAT+05,68400007+PAT    .BH 10/26/76 07OF13 #E00E  #28579
:GENMD,ELLAROOT PAT+06,20E00002        .BH 10/26/76 08OF13 #E00E  #28579
:GENMD,ELLAROOT PAT+07,21E00003        .BH 03/22/77 09OF13 #E00   #28579
:GENMD,ELLAROOT PAT+08,6940000A+PAT    .BH 10/26/76 10OF13 #E00E  #28579
:GENMD,ELLAROOT PAT+09,22F0001D        .BH 10/26/76 11OF13 #E00E  #28579
:GENMD,ELLAROOT PAT+0A,35F00B74+RT     .BH 10/26/76 12OF13 #E00E  #28579
:GENMD,ELLAROOT PAT+0B,6800033B+RT     .BH 10/26/76 13OF13 #E00E  #28579
GENMD FILL
DELETE
<THIS PATCH GETS THE ACCOUNT RIGHT IN SELECTIVE FILL MESSAGES     #30032
,FILL+40E,02200040(1240005E+FILLD).      LLF E00 07/01/77 001-008 #30032
,FILL+40F,AACC009C+FILLD(61400000).      LLF E00 07/01/77 002-008 #30032
,FILL+410,22500080(12400056+FILLD).      LLF E00 07/01/77 003-008 #30032
,FILL+411,4750000F(61400000).            LLF E00 07/01/77 004-008 #30032
,FILL+412,1240005E+FILLD(02200040).      LLF E00 07/01/77 005-008 #30032
,FILL+413,61400000(AACC009C+FILLD).      LLF E00 07/01/77 006-008 #30032
,FILL+414,12400056+FILLD(22500080).      LLF E00 07/01/77 007-008 #30032
,FILL+415,61400000(4750000F).            LLF E00 07/01/77 008-008 #30032
<THIS PATCH PREVENTS FILL FROM LOOPING DURING A SELECTIVE FILL    #29202
<WHICH IS RUNNING AT THE SAME TIME AS FSAVE.  PROBLEM IS          #29202
<CONTENTION OVER THE F:BREC FILE AND INAPPROPRIATE ERR/ABN        #29202
<ADDRESSES IN F:BREC DCB.                                         #29202
,FILL+24,04100296+FILLD(04100289+FILLD). LLF E00 06/28/77 001-014 #29202
,FILLD+298,0+BREC:ERR(A6+FILL).          LLF E00 06/28/77 002-014 #29202
,FILLD+299,0+BREC:ABN(A6+FILL).          LLF E00 06/28/77 003-014 #29202
,BACKUP+9,04100324+BACKUPD(04100320+BACKUPD).E00 06/28/77 004-014 #29202
,BACKUPD+326,0+BREC:ERR(0+BSR1).         LLF E00 06/28/77 005-014 #29202
,BACKUPD+327,0+BREC:ABN(0+BSR1).         LLF E00 06/28/77 006-014 #29202
,BACKUP+B,7250000A(04100335+BACKUPD).    LLF E00 06/28/77 007-014 #29202
,BACKUP+C,70320000+F:BREC(68000000+SELFILL). E00 06/28/77 008-014 #29202
,BACKUP+D,6820000F+BACKUP(72A0000A).     LLF E00 06/28/77 009-014 #29202
,BACKUP+E,04100335+BACKUPD(21A00007).    LLF E00 06/28/77 010-014 #29202
,BACKUP+F,04100308+BACKUPD(6830000B+BACKUP). E00 06/28/77 011-014 #29202
,BACKUP+10,21500007(70320000+F:BREC).    LLF E00 06/28/77 012-014 #29202
,BACKUP+11,68300000+SELFILL(68200013+BACKUP).E00 06/28/77 013-014 #29202
,BACKUP+12,02000000(04100335+BACKUPD).   LLF E00 06/28/77 014-014 #29202
<THIS PATCH PREVENTS FILL FROM LOOPING WHEN FSAVE IS CONCURRENTLY #29509
<RUNNING.  ABNORMAL ADDRESSES IN F:BREC WERE NOT THE CORRECT ONES #29509
<TO HANDLE THE 4714 ERROR TRYING TO WRITE THE 'SAV' RECORD INTO   #29509
<F:BREC                                                           #29509
,BACKUPD+371,2(0).                       LLF E00 06/29/77 001-021 #29509
,BACKUP+46E,04100010+PATCH(04100372+BACKUPD).E00 06/29/77 002-021 #29509
,PATCH+10,14000000+F:BACKUP.             LLF E00 06/29/77 003-021 #29509
,PATCH+11,C1400009.                      LLF E00 06/29/77 004-021 #29509
,PATCH+12,0+BSR1.                        LLF E00 06/29/77 005-021 #29509
,PATCH+13,0+BSR1.                        LLF E00 06/29/77 006-021 #29509
,PATCH+14,2.                             LLF E00 06/29/77 007-021 #29509
,PATCH+15,2.                             LLF E00 06/29/77 008-021 #29509
,PATCH+16,01010303.                      LLF E00 06/29/77 009-021 #29509
,PATCH+17,08C67AC2.                      LLF E00 06/29/77 010-021 #29509
,PATCH+18,C1C3D2E4.                      LLF E00 06/29/77 011-021 #29509
,PATCH+19,D7404040.                      LLF E00 06/29/77 012-021 #29509
,BACKUP+470,6800001A+PATCH(68000000+RELEASE).E00 06/29/77 013-021 #29509
,PATCH+1A,0410001C+PATCH.                LLF E00 06/29/77 014-021 #29509
,PATCH+1B,68000000+RELEASE.              LLF E00 06/29/77 015-021 #29509
,PATCH+1C,14000000+F:BACKUP.             LLF E00 06/29/77 016-021 #29509
,PATCH+1E,C1000000.                      LLF E00 06/29/77 018-021 #29509
,PATCH+1F,0+BCK:ERR.                     LLF E00 06/29/77 019-021 #29509
,PATCH+20,0+BCK:ABN.                     LLF E00 06/29/77 020-021 #29509
,PATCH+21,4.                             LLF E00 06/29/77 021-021 #29509
<THIS PATCH CONSOLIDATES THE TAPE REMOVAL LOGIC OF FILL AND WILL  #28990
<CAUSE ALL REWINDS TO BE DONE OFF-LINE TO SPEED PROCESSING.       #28990
,FILL+DD,3310009E+FILLD(3510009E+FILLD). LLF E00 07/01/77 001-025 #28990
,FILL+E3,68000022+PATCH(35000000+SEL:BUF).   E00 07/01/77 002-025 #28990
,PATCH+22,35000000+SEL:BUF.              LLF E00 07/01/77 003-025 #28990
,PATCH+23,3500009E+FILLD.                LLF E00 07/01/77 004-025 #28990
,PATCH+24,680000E4+FILL.                 LLF E00 07/01/77 005-025 #28990
,FILL+F6,68000025+PATCH(22700000).       LLF E00 07/01/77 006-025 #28990
,PATCH+25,3110009E+FILLD.                LLF E00 07/01/77 007-025 #28990
,PATCH+26,691000F8+FILL.                 LLF E00 07/01/77 008-025 #28990
,PATCH+27,22700000.                      LLF E00 07/01/77 009-025 #28990
,PATCH+28,680000F7+FILL.                 LLF E00 07/01/77 010-025 #28990
,FILL+177,681003FF+FILL(68100184+FILL).  LLF E00 07/01/77 011-025 #28990
,FILL+17D,680003FF+FILL(68000184+FILL).  LLF E00 07/01/77 012-025 #28990
,FILL+185,70320000+F:TI(32A0052F+FILL).  LLF E00 07/01/77 013-025 #28990
,FILL+186,68200188+FILL(31A00000+F:TI).  LLF E00 07/01/77 014-025 #28990
,FILL+187,041002DD+FILLD(69400189+FILL). LLF E00 07/01/77 015-025 #28990
,FILL+18A,68000029+PATCH(E800000B).      LLF E00 07/01/77 016-025 #28990
,PATCH+2A,E800000B.                      LLF E00 07/01/77 018-025 #28990
,FILL+401,6AB00185+FILL(52700000+F:TI).  LLF E00 07/01/77 019-025 #28990
,FILL+402,68000406+FILL(21700020).       LLF E00 07/01/77 020-025 #28990
,FILL+445,680000DD+FILL(68000090+FILL).  LLF E00 07/01/77 021-025 #28990
,FILL+450,6AB00185+FILL(041002DD+FILLD). LLF E00 07/01/77 022-025 #28990
,FILL+451,68000454+FILL(041002E6+FILLD). LLF E00 07/01/77 023-025 #28990
,FILL+490,6AB00185+FILL(52500000+F:TI).  LLF E00 07/01/77 024-025 #28990
,FILL+491,68000499+FILL(21500020).       LLF E00 07/01/77 025-025 #28990
<THIS PATCH CHANGES THE DEFAULT EXECUTE ACCOUNT FROM ALL TO JUST  #28830
<NOT THERE SO THAT DATA FILES ARE ACCESSIBLE TO THEIR PROCESSORS. #28830
,BACKUP+3F8,14000000(14000202).          LLF E00 12/10/76 001-004 #28830
,BACKUP+3F9,15000000(C1D3D340).          LLF E00 12/10/76 002-004 #28830
,BACKUP+3FA,09000000(40404040).          LLF E00 12/10/76 003-004 #28830
,BACKUP+3FB,00010000(15000000).          LLF E00 12/10/76 004-004 #28830
<THIS PATCH PREVENTS THE FIRST FILE SAVED BY A BACKUP OPERATION   #28476
<FROM LOSING ITS ACCOUNT AND DATE INFORMATION.  WHEN RESTORED THE #28476
<FILE WOULD GO TO A GARBAGE ACCOUNT IF IT CAME IN AT ALL.         #28476
,BACKUP+417,68000000+PATCH(22500004).    LLF E00 10/26/76 001-009 #28476
,PATCH+00,0BB00000+ENVIR.                LLF E00 10/26/76 002-009 #28476
,PATCH+01,22500004.                      LLF E00 10/26/76 003-009 #28476
,PATCH+02,68000418+BACKUP.               LLF E00 10/26/76 004-009 #28476
,BACKUP+432,0AB00000+ENVIR(2BB00000+BLABL).  E00 10/26/76 005-009 #28476
,PATCH+03,02200050.                      LLF E00 10/26/76 007-009 #28476
,PATCH+04,2BB00000+BLABL.                LLF E00 10/26/76 008-009 #28476
,PATCH+05,E8000009.                      LLF E00 10/26/76 009-009 #28476
<PATCH CORRECTS A FILL TRAP WHEN ATTEMPTING TO RESTORE AN         #28479
<INCREMENTAL TAPE.                                                #28479
,FILL+144,6A40036E+FILL(6A50036E+FILL).  LLF E00 10/29/76 001-006 #28479
,FILL+18B,6A40036E+FILL(6A50036E+FILL).  LLF E00 10/29/76 002-006 #28479
,FILL+1E0,6A40036E+FILL(6A50036E+FILL).  LLF E00 10/29/76 003-006 #28479
,FILL+36F,69380000(693A0000).            LLF E00 10/29/76 004-006 #28479
,FILL+379,68080000(680A0000).            LLF E00 10/29/76 005-006 #28479
,FILL+37D,68080000(680A0000).            LLF E00 10/29/76 006-006 #28479
<THIS PATCH CLEARS THE SELECT CELL WHEN A QUIT COMMAND IS ISSUED  #28477
<WHILE A SELECTIVE FILL OPERATION IS ACTIVE.  FAILURE TO CLEAR    #28477
<CAUSED ANY SUBSEQUENT OPERATOR INITIATED FILL TO TRAP.           #28477
,BACKUP+198,68000006+PATCH(52800000+F:BREC). E00 10/28/76 001-004 #28477
,PATCH+06,3500009E+FILLD.                LLF E00 10/28/76 002-004 #28477
,PATCH+07,52800000+F:BREC.               LLF E00 10/28/76 003-004 #28477
,PATCH+08,68000199+BACKUP.               LLF E00 10/28/76 004-004 #28477
<THIS PATCH COUSES FILL WITH START ACCOUNTS TO WORK CORRECTLY.    #28400
,FILL+24A,32600009+PATCH(12600156+FILLD).LLF E00 11/04/76 001-012 #28400
,FILL+24B,3270000A+PATCH(68300256+FILL). LLF E00 11/04/76 002-012 #28400
,FILL+24C,60600000(11600001+BLABL).      LLF E00 11/04/76 003-012 #28400
,PATCH+0A,8000004+BA(BLABL).             LLF E00 11/04/76 005-012 #28400
,FILL+158,6800000B+PATCH(32500156+FILLD).LLF E00 11/04/76 006-012 #28400
,PATCH+0B,32600009+PATCH.                LLF E00 11/04/76 007-012 #28400
,PATCH+0C,3270000A+PATCH.                LLF E00 11/04/76 008-012 #28400
,PATCH+0D,60600000.                      LLF E00 11/04/76 009-012 #28400
,PATCH+0E,69200527+FILL.                 LLF E00 11/04/76 010-012 #28400
,PATCH+0F,6800015A+FILL.                 LLF E00 11/04/76 011-012 #28400
,PURGEP+D7,61400000(61400001).           LLF E00 11/04/76 012-012 #28400
GENMD FLAG
DELETE
< FOR PROPER FUNCTION OF EASY WITH CP-V D00 OR LATER, THIS        #28895
< RELEASE OF EASY, THE D03 RELEASE OF BASIC, AND A GENMD          #28895
< PATCH TO FLAG ARE REQUIRED.                                     #28895
:GENMD,ULOAD LOADCODE+8,35B000AA+L0DSEC00(35F000AA+L0DSEC00).     #28895
GENMD FRES
DELETE
< FOLLOWING PATCH REMOVES TOP OF FORM ON NEW ACCT
:GENMD,FRES START+278,02000000.   1/1
< THIS PATCH PREVENTS FRES FROM DUMPING WHEN AN 03                #29110
< ABNORMAL OCCURS RESTORING A SYNON FILE WITH PARENT MISSING.     #29110
,START+29A,68000050+PATCH.               BH  E00 02/23/77 001-015 #29110
,PATCH+50,6830028C+START.                BH  E00 02/23/77 002-015 #29110
,PATCH+52,6830029B+START.                BH  E00 02/23/77 004-015 #29110
,PATCH+53,04200055+PATCH.                BH  E00 02/23/77 005-015 #29110
,PATCH+54,680002A6+START.                BH  E00 02/23/77 006-015 #29110
,PATCH+55,01000000.                      BH  E00 02/23/77 007-015 #29110
,PATCH+56,80000000.                      BH  E00 02/23/77 008-015 #29110
,PATCH+57,00000058+PATCH.                BH  E00 02/23/77 009-015 #29110
,PATCH+58,16E2E8D5.                      BH  E00 02/23/77 010-015 #29110
,PATCH+59,D6D540D7.                      BH  E00 02/23/77 011-015 #29110
,PATCH+5A,C1D9C5D5.                      BH  E00 02/23/77 012-015 #29110
,PATCH+5B,E340D4C9.                      BH  E00 02/23/77 013-015 #29110
,PATCH+5C,E2E2C9D5.                      BH  E00 02/23/77 014-015 #29110
,PATCH+5D,C7404040.                      BH  E00 02/23/77 015-015 #29110
< FIX DATA CARDS INPUT FROM UC.                                   #28106
:GENMD,FRES START+156,61000139+BA(EAADDR) .  E00 10/28/76 001-014 #28106
:GENMD,FRES START+1E4,61000139+BA(EAADDR) .  E00 10/28/76 002-014 #28106
:GENMD,FRES START+1E6,68000003+PATCH   . BH  E00 10/28/76 003-014 #28106
:GENMD,FRES PATCH+03,32100004+M:SI     . BH  E00 10/28/76 004-014 #28106
:GENMD,FRES PATCH+04,2510006F          . BH  E00 10/28/76 005-014 #28106
:GENMD,FRES PATCH+05,201FFFFF          . BH  E00 10/28/76 006-014 #28106
:GENMD,FRES PATCH+06,72720232+EAADDR   . BH  E00 10/28/76 007-014 #28106
:GENMD,FRES PATCH+07,2170000D          . BH  E00 10/28/76 008-014 #28106
:GENMD,FRES PATCH+08,6830000B+PATCH    . BH  E00 10/28/76 009-014 #28106
:GENMD,FRES PATCH+0A,E930000C          . BH  E00 10/28/76 011-014 #28106
:GENMD,FRES PATCH+0B,22700040          . BH  E00 10/28/76 012-014 #28106
:GENMD,FRES PATCH+0C,75720232+EAADDR   . BH  E00 10/28/76 013-014 #28106
:GENMD,FRES PATCH+0D,E800000C          . BH  E00 10/28/76 014-014 #28106
< FIX TAPE CHECK
:GENMD,FRES START+16D,68000171+START   .BH 11/04/76 01OF01 E00E   #28636
< THIS PATCH FIXES A BAD UPDATE FOR SIDR #28220            E00E   #28220
:GENMD,FRES START+312,68000000+PATCH  .BH 10/19/76 01OF05 E00E    #28220
:GENMD,FRES PATCH+0,68300324+START    .BH 10/19/76 02OF05 E00E    #28220
:GENMD,FRES PATCH+1,33F00083+EAADDR   .BH 10/19/76 03OF05 E00E    #28220
:GENMD,FRES PATCH+2,68000313+START    .BH 10/19/76 04OF05 E00E    #28220
:GENMD,FRES START+274,02000000         .BH 10/19/76 05OF05 E00    #28220
<FIX GHOST PROMPT                                                 #28816
:GENMD,FRES  DBUF+2C,2C00007A         .  BH  E00 12/01/76 001-002 #28816
:GENMD,FRES  START+154,02000000       .  BH  E00 12/01/76 002-002 #28816
GENMD FSAVE
DELETE
< THIS PATCH FIXES A CAL3 PROBLEM IN FSAVE THAT CAUSES            #29321
< S. C. 7E'S - BAD END ACTION ADDR SENT TO NEWQ.                  #29321
:GENMD,FSAVE FSTART+896,15000002+FEAPATCH.BH E00 08/22/77 001-007 #29321
:GENMD,FSAVE FSTART+89A,47000000+FEAPATCH.BH E00 08/22/77 002-007 #29321
:GENMD,FSAVE FSTART+89C,12000002+FEAPATCH.BH E00 08/22/77 003-007 #29321
:GENMD,FSAVE FSTART+89D,0E000000+FEAPATCH.BH E00 08/22/77 004-007 #29321
:GENMD,FSAVE FEAPATCH+00,0040093C+FSTART.BH  E00 08/22/77 005-007 #29321
:GENMD,FSAVE FEAPATCH+01,07000000.       BH  E00 08/22/77 006-007 #29321
:GENMD,FSAVE FEAPATCH+02,0,0.            BH  E00 08/22/77 007-007 #29321
< THIS PATCH PREVENTS FSAVE FROM ABORTING WHEN CERTAIN            #29788
< COMBINATIONS OF INVALID KEYS ARE PROCESSED.                     #29788
:GENMD,FSAVE FSTART+4ED,6A000571+FSTART. BH  E00 07/27/77 001-001 #29788
< THIS PATCH FIXES PROBLEMS USING +START +SKIP +STOP TOGETHER.    #29391
:GENMD,FSAVE FSTART+32D,22E0030E+FSTART. BH  E00 07/06/77 001-008 #29391
:GENMD,FSAVE FSTART+3A5,68000038+FPATCH. BH  E00 07/06/77 002-008 #29391
:GENMD,FSAVE FPATCH+38,321000EA+DATASEC. BH  E00 07/06/77 003-008 #29391
:GENMD,FSAVE FPATCH+39,3510003C+FPATCH.  BH  E00 07/06/77 004-008 #29391
:GENMD,FSAVE FPATCH+3A,22100007.         BH  E00 07/06/77 005-008 #29391
:GENMD,FSAVE FPATCH+3B,680003A6+FSTART.  BH  E00 07/06/77 006-008 #29391
:GENMD,FSAVE FPATCH+3C,0.                BH  E00 07/06/77 007-008 #29391
:GENMD,FSAVE FSTART+3AE,3210003C+FPATCH. BH  E00 07/06/77 008-008 #29391
< THIS PATCH FIXES SOME PROBLEMS USING +SKIP.                     #29391
:GENMD,FSAVE FSTART+3AD,02000000.        BH  E00 06/24/77 001-001 #29391
< THIS  PATCH FIXES RANDOM FILE READ AHEAD.                       #29353
:GENMD,FSAVE FSTART+664,3210009A+DATASEC.BH  E00 04/19/77 001-015 #29353
:GENMD,FSAVE FSTART+665,32C20669+DATASEC.BH  E00 04/19/77 002-015 #29353
:GENMD,FSAVE FSTART+666,7020000C.        BH  E00 04/19/77 003-015 #29353
:GENMD,FSAVE FSTART+667,69800665+FSTART. BH  E00 04/19/77 004-015 #29353
:GENMD,FSAVE FSTART+668,68000020+FPATCH. BH  E00 04/19/77 005-015 #29353
:GENMD,FSAVE FPATCH+21,35020674+DATASEC. BH  E00 04/19/77 007-015 #29353
:GENMD,FSAVE FPATCH+22,64100665+FSTART.  BH  E00 04/19/77 008-015 #29353
:GENMD,FSAVE FPATCH+23,68000669+FSTART.  BH  E00 04/19/77 009-015 #29353
:GENMD,FSAVE FSTART+6A2,68000024+FPATCH. BH  E00 04/19/77 010-015 #29353
:GENMD,FSAVE FPATCH+24,322006C8+DATASEC. BH  E00 04/19/77 011-015 #29353
:GENMD,FSAVE FPATCH+25,32F40669+DATASEC. BH  E00 04/19/77 012-015 #29353
:GENMD,FSAVE FPATCH+26,49F00E02+FSTART.  BH  E00 04/19/77 013-015 #29353
:GENMD,FSAVE FPATCH+27,35F40669+DATASEC. BH  E00 04/19/77 014-015 #29353
:GENMD,FSAVE FPATCH+28,680006A3+FSTART.  BH  E00 04/19/77 015-015 #29353
< FREE TAPE BUFFERS THAT ARE IN TRANSIT AFTER EACH FILE IS SAVED. #29325
:GENMD,FSAVE FSTART+8C9,69300014+FPATCH. BH  E00 04/13/77 001-013 #29325
:GENMD,FSAVE FPATCH+14,3210009B+DATASEC. BH  E00 04/13/77 002-013 #29325
:GENMD,FSAVE FPATCH+15,32020664+DATASEC. BH  E00 04/13/77 003-013 #29325
:GENMD,FSAVE FPATCH+16,6910001D+FPATCH.  BH  E00 04/13/77 004-013 #29325
:GENMD,FSAVE FPATCH+17,31000F2F+FSTART.  BH  E00 04/13/77 005-013 #29325
:GENMD,FSAVE FPATCH+18,6840001D+FPATCH.  BH  E00 04/13/77 006-013 #29325
:GENMD,FSAVE FPATCH+19,4B00001F+FPATCH.  BH  E00 04/13/77 007-013 #29325
:GENMD,FSAVE FPATCH+1A,35020664+DATASEC. BH  E00 04/13/77 008-013 #29325
:GENMD,FSAVE FPATCH+1B,33100664+DATASEC. BH  E00 04/13/77 009-013 #29325
:GENMD,FSAVE FPATCH+1C,33F00663+DATASEC. BH  E00 04/13/77 010-013 #29325
:GENMD,FSAVE FPATCH+1D,64100015+FPATCH.  BH  E00 04/13/77 011-013 #29325
:GENMD,FSAVE FPATCH+1E,680008D1+FSTART.  BH  E00 04/13/77 012-013 #29325
<THE FOLLOWING GENMD'S APPLY TO THE NEWLY ASSEMBLED VERSION       #29117
<OF FSAVE E00 FROM SI THAT WAS INCLUDED ON THE MARCH SST TAPE.    #20117
<THE NEW FSAVE IS A DEPATCHED VERSION OF THE ORIGINAL E00 FSAVE.. #29117
<THEREFORE ALL GENMD'S TO FSAVE DATED PRIOR TO 03/16/77 SHOULD    #29117
<BE DISCARDED.                                                    #29117
< FIX SELECT PROBLEM WHERE FILES SELECTED ARE SKIPPED.            #29117
:GENMD,FSAVE FSTART+3D9,69100398+FSTART. BH  E00 03/23/77 001-029 #29117
:GENMD,FSAVE FSTART+3DA,02000000.        BH  E00 03/23/77 002-029 #29117
< FIX FSAVE LOOPING WHEN DATA BUFFERS ARE FULL.                   #29117
:GENMD,FSAVE FSTART+5FB,21300000.        BH  E00 03/23/77 003-029 #29117
:GENMD,FSAVE FSTART+6DC,68000004+FPATCH. BH  E00 03/23/77 004-029 #29117
:GENMD,FSAVE FPATCH+04,6AF00701+FSTART.  BH  E00 03/23/77 005-029 #29117
:GENMD,FSAVE FPATCH+05,32400669+DATASEC. BH  E00 03/23/77 006-029 #29117
:GENMD,FSAVE FPATCH+06,680006DD+FSTART.  BH  E00 03/23/77 007-029 #29117
< CLEAR COUNTERS AT END OF EACH FILE.                             #29117
:GENMD,FSAVE FSTART+8D4,68000000+FPATCH. BH  E00 03/23/77 008-029 #29117
:GENMD,FSAVE FPATCH+00,35100668+DATASEC. BH  E00 03/23/77 009-029 #29117
:GENMD,FSAVE FPATCH+01,3510068A+DATASEC. BH  E00 03/23/77 010-029 #29117
:GENMD,FSAVE FPATCH+02,3210009A+DATASEC. BH  E00 03/23/77 011-029 #29117
:GENMD,FSAVE FPATCH+03,680008D5+FSTART.  BH  E00 03/23/77 012-029 #29117
< FIX RANDOM FILE READ AHEAD.                                     #29117
:GENMD,FSAVE FSTART+669,32500669+DATASEC.BH  E00 03/23/77 013-029 #29117
:GENMD,FSAVE FSTART+5D8,68000007+FPATCH. BH  E00 03/23/77 014-029 #29117
:GENMD,FSAVE FPATCH+07,227003FF.         BH  E00 03/23/77 015-029 #29117
:GENMD,FSAVE FPATCH+08,4B700745+DATASEC. BH  E00 03/23/77 016-029 #29117
:GENMD,FSAVE FPATCH+09,318E0745+DATASEC. BH  E00 03/23/77 017-029 #29117
:GENMD,FSAVE FPATCH+0A,683005D9+FSTART.  BH  E00 03/23/77 018-029 #29117
:GENMD,FSAVE FPATCH+0B,64700009+FPATCH.  BH  E00 03/23/77 019-029 #29117
:GENMD,FSAVE FPATCH+0C,09800744+DATASEC. BH  E00 03/23/77 020-029 #29117
:GENMD,FSAVE FPATCH+0D,68C005D9+FSTART.  BH  E00 03/23/77 021-029 #29117
:GENMD,FSAVE FPATCH+0E,223FFFFE.         BH  E00 03/23/77 022-029 #29117
:GENMD,FSAVE FPATCH+0F,13300744+DATASEC. BH  E00 03/23/77 023-029 #29117
:GENMD,FSAVE FPATCH+10,02000000.         BH  E00 03/23/77 024-029 #29117
:GENMD,FSAVE FPATCH+11,33100013+FPATCH.  BH  E00 03/23/77 025-029 #29117
:GENMD,FSAVE FPATCH+12,6800000C+FPATCH.  BH  E00 03/23/77 026-029 #29117
:GENMD,FSAVE FPATCH+13,0.                BH  E00 03/23/77 027-029 #29117
< TAKE SLEEP OUT OF FSAVE                                         #29117
:GENMD,FSAVE FSTART+815,02000000.        BH  E00 03/23/77 028-029 #29117
< DONT TAKE DUP DATA GRANULES OUT OF READ AHEAD STACK - FOR NOW.  #29117
:GENMD,FSAVE FSTART+737,68000747+FSTART. BH  E00 03/23/77 029-029 #29117
:GENMD,FSAVE FSTART+338,02000000
GENMD GOOSE
DELETE
<THIS PATCH CORRECTS PROBLEMS ARISING FROM THE FAILURE OF GOOSE TO#29394
,GOOSE+F,68000000+PATCH(1280008C+GOOSE). LLF E00 05/05/77 001-004 #29394
,PATCH+00,1280008C+GOOSE.                LLF E00 05/05/77 002-004 #29394
,PATCH+01,1200008C+GOOSE.                LLF E00 05/05/77 003-004 #29394
,PATCH+02,68000010+GOOSE.                LLF E00 05/05/77 004-004 #29394
<THIS PATCH PREVENTS GOOSE ERROR WHEN READING M:GHOST FILE BUILT  #29289
<BY PASS2.                                                        #29289
,GOOSE+59,69200072+GOOSE(69300072+GOOSE).LLF E00 04/07/77 001-001 #29289
GENMD LABEL
DELETE
<THE REQUIREMENT THAT ANS SERIAL NOS HAVE EXACTLY SIX CHARACTERS  #28624
<IS HEREBY LIFTED. SIX OR LESS NOW PREVAILS.                      #28624
<FIVE PATCHES-ONE EACH TO KEYIN,LABEL,PCL,CCI, AND TEL.           #28624
,START+8B,692000FF+START(693000FF+START).PAR E00 01/11/77 002-005 #28624
GENMD LDEV
DELETE
< LDEV COMPLAINED ABOUT SECOND 'SPACE' VALUE.                  E00#29216
:GENMD,LDEV SECT4+102,22D00003(22D00002).1-1 TSM 040177        E00#29216
GENMD LEMUR
DELETE
<THIS PATCH MAKES LEMUR WORK WHEN COMMENTARY EXISTS ON            #29714
<CONTINUATIONS.                                                   #29714
,LEMUR+5C,6930000B+PATCH(6930005F+LEMUR).WTW E00 08/11/77 001-017 #29714
,PATCH+0C,35E00000+CHPT(BAD).            WTW E00 08/11/77 003-017 #29714
,PATCH+0D,30E00000+YFF(BAD).             WTW E00 08/11/77 004-017 #29714
,PATCH+0E,7210000E(BAD).                 WTW E00 08/11/77 005-017 #29714
,PATCH+0F,68300017+PATCH(BAD).           WTW E00 08/11/77 006-017 #29714
,PATCH+10,3010000E(BAD).                 WTW E00 08/11/77 007-017 #29714
,PATCH+11,201FFFFF(BAD).                 WTW E00 08/11/77 008-017 #29714
,PATCH+12,72120000(BAD).                 WTW E00 08/11/77 009-017 #29714
,PATCH+13,2110005E(BAD).                 WTW E00 08/11/77 010-017 #29714
,PATCH+14,6930000D+PATCH(BAD).           WTW E00 08/11/77 011-017 #29714
,PATCH+15,20F00001(BAD).                 WTW E00 08/11/77 012-017 #29714
,PATCH+16,6800000C+PATCH(BAD).           WTW E00 08/11/77 013-017 #29714
,PATCH+17,32E00000+CHPT(BAD).            WTW E00 08/11/77 014-017 #29714
,PATCH+18,21F00000(BAD).                 WTW E00 08/11/77 015-017 #29714
,PATCH+19,6830005F+LEMUR(BAD).           WTW E00 08/11/77 016-017 #29714
,PATCH+1A,68000057+LEMUR(BAD).           WTW E00 08/11/77 017-017 #29714
< UPDATE TO LEMUR
< LEMUR MISHANDLES THE DECLARE DUMMY CONTROL SECTION CONTROL
<BYTE AND SENDS THE MESSAGE "ILLEGAL ROM" OR "UNEXPECTED
< END OF ROM
, ADD#+72,6802B42F(6802B430)           .SBL 08/04/77 01 OF 01 E00 #29258
GENMD LINK
DELETE
:GENMD,LINK PPLINK+453,68000AEF+PPLINK(6AB00A97+PPLINK).  001-004 #28897
:GENMD,LINK PPLINK+AEF,6AB00A97+PPLINK.  JFR E00 12/28/76 002-004 #28897
:GENMD,LINK PPLINK+AF0,32A00007.         JFR E00 12/28/76 003-004 #28897
:GENMD,LINK PPLINK+AF1,68000454+PPLINK.  JFR E00 12/28/76 004-004 #28897
#TTP                                                                        SKIP
GENMD LISTQIP                                                               SKIP
DELETE                                                                      SKIP
<UNDER CERTAIN CIRCUMSTANCES, LISTQIP DOES NOT ACCESS THE                   SKIP
<CORRECT DATA BLOCK. INSTEAD IT ERRONEOUSLY USES THE CURRENT ONE            SKIP
, LISTQIP+1F6,45280000(4528000A)       .LA 08/05/77 E00 01 OF 01  #29814    SKIP
#
GENMD LOADER
DELETE
<LOADER LOOPS IF LIBNAME IS MORE THAN 7 CHARS.                    #29172
LDR,M:LM+48,B000003(B000202).            PAR E00 06/20/77 001-002 #29172
LDR,M:LM+4C,14010013(0).                 PAR E00 06/20/77 002-002 #29172
< TURN OFF FASTSRCH WHEN SYMBOL TABLE OVERLAPS BINSTK.            #29359
EVL,MCEV+285,6800008D+PATCH(203FFFFD).   PRY E00 05/03/77 001-008 #29359
LDR,PATCH+8D,203FFFFD.                   PRY E00 05/03/77 002-008 #29359
LDR,PATCH+8E,32B00000+RDPTRS.            PRY E00 05/03/77 003-008 #29359
LDR,PATCH+8F,30B00000+RDSYMS.            PRY E00 05/03/77 004-008 #29359
LDR,PATCH+90,3130000B.                   PRY E00 05/03/77 005-008 #29359
LDR,PATCH+91,69200286+MCEV.              PRY E00 05/03/77 006-008 #29359
LDR,PATCH+92,33100000+FASTSRCH.          PRY E00 05/03/77 007-008 #29359
LDR,PATCH+93,68000286+MCEV.              PRY E00 05/03/77 008-008 #29359
< ONLY LOAD MODULES CAN BE MAPPED                                 #29372
< THIS PATCH REPLACES 13 CARDER WITH SAME # AND RESTRICTS         #29372
< MAPPABLE LOAD MODULES TO THOSE WHICH HAVE 'HEAD' AND 'TREE'     #29372
< RECORDS.                                                        #29372
IN1,INIT1+66,68000089+PATCH(22500000+M:LM).  E00 04/29/77 001-018 #29372
IN1,INIT1+6D,68000076+PATCH(04100000+READLM).E00 04/29/77 002-018 #29372
LDR,PATCH+45,F0FFFFFF.                   PRY E00 04/29/77 003-018 #29372
LDR,PATCH+46,8000FF30.                   PRY E00 04/29/77 004-018 #29372
LDR,PATCH+76,B5500005.                   PRY E00 04/29/77 005-018 #29372
LDR,PATCH+77,04100000+READLM.            PRY E00 04/29/77 006-018 #29372
LDR,PATCH+78,B2300005.                   PRY E00 04/29/77 007-018 #29372
LDR,PATCH+79,4B300045+PATCH.             PRY E00 04/29/77 008-018 #29372
LDR,PATCH+7A,31300046+PATCH.             PRY E00 04/29/77 009-018 #29372
LDR,PATCH+7B,6830006E+INIT1.             PRY E00 04/29/77 010-018 #29372
LDR,PATCH+7C,32300017+M:LM.              PRY E00 04/29/77 011-018 #29372
LDR,PATCH+7D,35300000+CODE.              PRY E00 04/29/77 012-018 #29372
LDR,PATCH+7E,22300032.                   PRY E00 04/29/77 013-018 #29372
LDR,PATCH+7F,68000000+MESSAGE.           PRY E00 04/29/77 014-018 #29372
LDR,PATCH+89,2250007C+PATCH.             PRY E00 04/29/77 015-018 #29372
LDR,PATCH+8A,35580003.                   PRY E00 04/29/77 016-018 #29372
LDR,PATCH+8B,22500000+M:LM.              PRY E00 04/29/77 017-018 #29372
< REPLACEMENT FOR 11 CARD PATCH DATED 04/06/77 WITH SAME #        #27943
< WHICH REPLACED A 6 CARD PATCH DATED 01/05/77 WITH SAME #.       #27943
< DCB SPACE WILL NOT BE OVERALLOCATED; BAD LOAD MODULES WILL      #27943
< NOT BE PRODUCED.  THE TREE'S 01 LOCATIONS WILL NOT BE           #27943
< MODIFIED BECAUSE THERE IS NOTHING TO MODIFY.                    #27943
PS1,MCP1+101,69300042+PATCH(69300108+MCP1).  E00 04/26/77 001-011 #27943
PS1,MCP1+106,68000042+PATCH(25600010).   PRY E00 04/26/77 002-011 #27943
LDR,PATCH+42,20600008,25600010.          PRY E00 04/26/77 003-011 #27943
LDR,PATCH+44,68000107+MCP1.              PRY E00 04/26/77 004-011 #27943
WRT,MCAL+146,2260000F(22600018).         PRY E00 04/26/77 005-011 #27943
WRT,MCAL+14E,2200040(21700010).          PRY E00 04/26/77 006-011 #27943
WRT,MCAL+9C,6810003D+MCAL(6820003D+MCAL).PRY E00 04/26/77 007-011 #27943
WRT,MCAL+A6,2550047F(2550007F).          PRY E00 04/26/77 008-011 #27943
< DON'T EXECUTE CODE TO ADJUST 01 LOCS AND BUFFERS.               #27943
WRT,MCAL+A8,25500010(32700001).          PRY E00 04/26/77 009-011 #27943
WRT,MCAL+A9,66520009(6B8E0004).          PRY E00 04/26/77 010-011 #27943
WRT,MCAL+AA,6800003D+MCAL(21800000).     PRY E00 04/26/77 011-011 #27943
<THIS PATCH REPLACES SAME# PATCH OF 2/24/77                       #29109
PS1,MCP1+345,69300080+PATCH(69300351+MCP1).  E00 03/31/77 001-009 #29109
LDR,PATCH+80,72500000+BUF,21500083.      PAR E00 03/31/77 002-009 #29109
LDR,PATCH+82,69300351+MCP1,33100000+CSECFLG. E00 03/31/77 003-009 #29109
LDR,PATCH+84,6800036E+MCP1.              PAR E00 03/31/77 004-009 #29109
PS1,MCP1+34E,68400083+PATCH(6840036E+MCP1).  E00 03/31/77 006-009 #29109
EVL,MCEV+F2,69800085+PATCH(698000F5+MCEV).   E00 03/31/77 007-009 #29109
LDR,PATCH+85,72500000+BUF,21500083.      PAR E00 03/31/77 008-009 #29109
LDR,PATCH+87,683001F4+MCEV,680000F5+MCEV.PAR E00 03/31/77 009-009 #29109
< BREFS FROM LIBRARY LOAD MODULES WILL NOW WORK                   #29056
LDR,PATCH+47,21B001B3+MCEV.              PRY E00 03/18/77 001-066 #29056
,PATCH+48,6930004A+MCEV.                 PRY E00 03/18/77 002-066 #29056
,PATCH+49,02200050.                      PRY E00 03/18/77 003-066 #29056
,PATCH+4A,8B400000.                      PRY E00 03/18/77 004-066 #29056
,PATCH+4B,B27C000C.                      PRY E00 03/18/77 005-066 #29056
,PATCH+4C,32E00000+LOADER.               PRY E00 03/18/77 006-066 #29056
,PATCH+4D,6A8006A9+MCEV.                 PRY E00 03/18/77 007-066 #29056
,PATCH+4E,02200050.                      PRY E00 03/18/77 008-066 #29056
,PATCH+4F,8A400000.                      PRY E00 03/18/77 009-066 #29056
,PATCH+50,6800004A+MCEV.                 PRY E00 03/18/77 010-066 #29056
,PATCH+51,35700000+XCSEG1.               PRY E00 03/18/77 011-066 #29056
,PATCH+52,6800005E+PATCH.                PRY E00 03/18/77 012-066 #29056
,PATCH+53,32E00001.                      PRY E00 03/18/77 013-066 #29056
,PATCH+54,35E00000+LOADER.               PRY E00 03/18/77 014-066 #29056
,PATCH+55,E800000B.                      PRY E00 03/18/77 015-066 #29056
,PATCH+56,20A00000.                      PRY E00 03/18/77 016-066 #29056
,PATCH+57,68300768+MCEV.                 PRY E00 03/18/77 017-066 #29056
,PATCH+59,20700001.                      PRY E00 03/18/77 019-066 #29056
,PATCH+5A,25700002.                      PRY E00 03/18/77 020-066 #29056
,PATCH+5B,35700000+LOC.                  PRY E00 03/18/77 021-066 #29056
,PATCH+5C,32700002.                      PRY E00 03/18/77 022-066 #29056
,PATCH+5D,68000768+MCEV.                 PRY E00 03/18/77 023-066 #29056
,PATCH+5E,88100000.                      PRY E00 03/18/77 024-066 #29056
,PATCH+5F,20100000.                      PRY E00 03/18/77 025-066 #29056
,PATCH+60,E9300001.                      PRY E00 03/18/77 026-066 #29056
,PATCH+61,6800047E+MCEV.                 PRY E00 03/18/77 027-066 #29056
,PATCH+63,89500000.                      PRY E00 03/18/77 028-066 #29056
,PATCH+64,6AA003AB+MCEV.                 PRY E00 03/18/77 029-066 #29056
,PATCH+65,88500000.                      PRY E00 03/18/77 030-066 #29056
,PATCH+66,680001EC+MCEV.                 PRY E00 03/18/77 031-066 #29056
,PATCH+67,89A00000.                      PRY E00 03/18/77 032-066 #29056
,PATCH+68,680003DD+MCEV.                 PRY E00 03/18/77 033-066 #29056
,PATCH+69,22800000.                      PRY E00 03/18/77 034-066 #29056
,PATCH+6A,35800000+RFLDSG.               PRY E00 03/18/77 035-066 #29056
,PATCH+6B,68000005+MCEV.                 PRY E00 03/18/77 036-066 #29056
,PATCH+6C,8B600000.                      PRY E00 03/18/77 037-066 #29056
,PATCH+6D,6A8006A9+MCEV.                 PRY E00 03/18/77 038-066 #29056
,PATCH+6E,88800000.                      PRY E00 03/18/77 039-066 #29056
,PATCH+6F,32400000+LOCCT.                PRY E00 03/18/77 040-066 #29056
,PATCH+71,20A00000.                      PRY E00 03/18/77 042-066 #29056
,PATCH+72,683003D2+MCEV.                 PRY E00 03/18/77 043-066 #29056
,PATCH+73,33000000+MREFLAG.              PRY E00 03/18/77 044-066 #29056
,PATCH+74,E930000A.                      PRY E00 03/18/77 045-066 #29056
,PATCH+75,680003D2+MCEV.                 PRY E00 03/18/77 046-066 #29056
EVL,MCEV+4,68000069+PATCH(22800000).     PRY E00 03/18/77 047-066 #29056
,MCEV+1A,68000047+PATCH(6800004A+MCEV).  PRY E00 03/18/77 048-066 #29056
,MCEV+F5,6AB00053+PATCH(32E00001).       PRY E00 03/18/77 049-066 #29056
,MCEV+1EB,68000063+PATCH(6AA003AB+MCEV). PRY E00 03/18/77 050-066 #29056
,MCEV+248,6AB00053+PATCH(32E00001).      PRY E00 03/18/77 051-066 #29056
,MCEV+3C3,6AB00056+PATCH(6AB00768+MCEV). PRY E00 03/18/77 052-066 #29056
,MCEV+3D1,68000071+PATCH(21A00000).      PRY E00 03/18/77 053-066 #29056
,MCEV+3D2,89A00000(E930000A).            PRY E00 03/18/77 054-066 #29056
,MCEV+3D7,6830005E+PATCH(6830047E+MCEV). PRY E00 03/18/77 055-066 #29056
,MCEV+3D9,6910005E+PATCH(6910047E+MCEV). PRY E00 03/18/77 056-066 #29056
,MCEV+3DC,6830005E+PATCH(6830047E+MCEV). PRY E00 03/18/77 057-066 #29056
,MCEV+3DD,32500000+LOADER(3250000E).     PRY E00 03/18/77 058-066 #29056
,MCEV+45F,6800005E+PATCH(6800047E+MCEV). PRY E00 03/18/77 059-066 #29056
,MCEV+47D,68000051+PATCH(35700000+XCSEG1).   E00 03/18/77 060-066 #29056
,MCEV+49B,6800005E+PATCH(6800047E+MCEV). PRY E00 03/18/77 061-066 #29056
,MCEV+5CA,68100067+PATCH(681003DD+MCEV). PRY E00 03/18/77 062-066 #29056
,MCEV+5CD,69300067+PATCH(693003DD+MCEV). PRY E00 03/18/77 063-066 #29056
,MCEV+6A8,6800006C+PATCH(8B600000).      PRY E00 03/18/77 065-066 #29056
,MCEV+6D4,E8000008(32400000+LOCCT).      PRY E00 03/18/77 066-066 #29056
<LOADER SOMETIMES ABORTS WITH 'BAD ENTRY IN LIBRARY REF/DEF       #29149
<STACK'...WITHOUT GOOD REASON.                                    #29149
PS1,MCP1+36,32600000+RFDFBAS(21400006).  PAR E00 04/06/77 001-005 #29149
PS1,MCP1+37,21400006(6930003A+MCP1).     PAR E00 04/06/77 002-005 #29149
PS1,MCP1+38,6830004C+MCP1(32600000+RFDFBAS). E00 04/06/77 003-005 #29149
PS1,MCP1+39,3260A002(6800004C+MCP1).     PAR E00 04/06/77 004-005 #29149
PS1,MCP1+3A,356C0001(3260A002).          PAR E00 04/06/77 005-005 #29149
<LOADER TRAPS USING OLD LIBRARIES SOMETIMES.                      #28804
IN1,SAT+55,410014B+SAT(4100000+READEF).  PAR E00 12/29/76 001-004 #28804
IN1,SAT+14B,10000000+M:EF,7C000010.      PAR E00 12/29/76 002-004 #28804
IN1,SAT+14D,57+SAT,80000004.             PAR E00 12/29/76 003-004 #28804
IN1,SAT+14F,80000006,80000005,0.         PAR E00 12/29/76 004-004 #28804
<LOADER TRAP.                                                    #28697
FIN,MCFN+80,2200030(2200070).          1 OF 5 PAR E00 12/16/76   #28697
FIN,MCFN+1B1,6AB00040+PATCH(6AB0058D+MCFN).2 OF 5 E00 12/16/76   #28697
LDR,PATCH+40,33060040.                 3 OF 5 PAR E00 12/16/76   #28697
LDR,PATCH+41,6800058D+MCFN.            4 OF 5 PAR E00 12/16/76   #28697
LDR,MCRT+112,21300017(21300008).       5 OF 5 PAR E00 12/16/76   #28697
GENMD LOGON
DELETE
<USER TYPES IN A PASSWORD EXCEEDING EIGHT CHARACTERS IN LENGTH AT #29543
<LOGON TIME.                                                      #29543
:GENMD,LOGON SECTION1+43C,692002E9+SECTION1. E00 06/27/77 001-001 #29543
<PREVENTS SUA-61 IF A USER IS DISCONNECTED, RECONNECTS TO A HELD  #29346
<PROGRAM AFTER LOGGING BACK ON AND SUBSEQUENTLY EXECUTES THE WHERE#29346
<COMMAND.                                                         #29346
:GENMD,LOGON SECTION1+54D,55400000+RECORD.   E00 04/27/77 001-001 #29346
<THIS PATCH PREVENTS THE POSSIBILITY OF THE :USERS FILE BEING     #28781
<OPENED SHARED INSTEAD OF EXCLUSIVE AT LOGON AND LOGOFF TIME.     #28781
:GENMD,LOGON SECTION1+3CC,00000201.      CHK E00 11/23/76 001-002 #28781
:GENMD,LOGON SECTION2+4D4,00000204.      CHK E00 11/23/76 002-002 #28781
<REPLACE HONEYWELL WITH ESD-189 IN BANNER TAIL PAGE   S. LEA 2-1-78
:GENMD,LOGON SECTION2+1,C5E2C460,F1F8F940,40404040.
GENMD LYNX
DELETE
<LYNX DOES NOT ALLOW USER TO FORCE ASSOCIATION OF :P0 OR :P1      #29827
,LYNXPP+27F,02000000(682001E4+LYNXPP).   JTA E00 08/19/77 001-001 #29827
<REPLACEMENT FOR PATCH OF SAME # DATED 4/27/77 THAT CORRECTS A NEW#29144
<SYNTAX ERROR FOR OPTIONS FIRST.                                  #29144
,LYNXPP+2A,69300003+PATCH(69300030+LYNXPP).  E00 07/06/77 001-032 #29144
,LYNXPP+2E,68300003+PATCH(68300030+LYNXPP).  E00 07/06/77 002-032 #29144
,PATCH+3,2210006B,7510004C+LYNX00.       PAR E00 07/06/77 003-032 #29144
,PATCH+5,6800001C+PATCH.                 PAR E00 07/06/77 004-032 #29144
,LYNXPP+33,6AB00006+PATCH(6AB00375+LYNXPP).  E00 07/06/77 005-032 #29144
,PATCH+6,7210004C+LYNX00.                PAR E00 07/06/77 006-032 #29144
,PATCH+7,68000375+LYNXPP.                PAR E00 07/06/77 007-032 #29144
,LYNXPP+35,68000008+PATCH(68100129+LYNXPP).  E00 07/06/77 008-032 #29144
,PATCH+8,68100129+LYNXPP.                PAR E00 07/06/77 009-032 #29144
,PATCH+9,68000038+LYNXPP.                PAR E00 07/06/77 010-032 #29144
,LYNXPP+36,22100040(2180006B).           PAR E00 07/06/77 011-032 #29144
,LYNXPP+38,2180006B(32100041+LYNX00).    PAR E00 07/06/77 012-032 #29144
,LYNXPP+39,68300030+LYNXPP(35100042+LYNX00). E00 07/06/77 013-032 #29144
,LYNXPP+3B,6830000A+PATCH(683001BA+LYNXPP).  E00 07/06/77 014-032 #29144
,PATCH+A,3510004C+LYNX00.                PAR E00 07/06/77 015-032 #29144
,PATCH+B,680001BA+LYNXPP.                PAR E00 07/06/77 016-032 #29144
,LYNXPP+129,2110006B(33000042+LYNX00).   PAR E00 07/06/77 017-032 #29144
,LYNXPP+1E8,6800000C+PATCH(68000030+LYNXPP). E00 07/06/77 018-032 #29144
,PATCH+C,3210004C+LYNX00,7510004C+LYNX00.PAR E00 07/06/77 019-032 #29144
,PATCH+E,68000030+LYNXPP.                PAR E00 07/06/77 020-032 #29144
,LYNXPP+3A1,6800000F+PATCH(20100001).    PAR E00 07/06/77 021-032 #29144
,PATCH+F,20100001,21800040,693003A2+LYNXPP.  E00 07/06/77 022-032 #29144
,PATCH+12,31100010+LYNX00,681003A6+LYNXPP.   E00 07/06/77 023-032 #29144
,PATCH+14,71820011+LYNX00,6830000F+PATCH.PAR E00 07/06/77 024-032 #29144
,PATCH+16,72220011+LYNX00,72240049+LYNX01.   E00 07/06/77 025-032 #29144
,PATCH+18,683003A2+LYNXPP,72820011+LYNX00.   E00 07/06/77 026-032 #29144
,PATCH+1A,20100001,680003A2+LYNXPP.      PAR E00 07/06/77 027-032 #29144
,PATCH+1C,21800040,68300030+LYNXPP.      PAR E00 07/06/77 029-032 #29144
,PATCH+1E,68000038+LYNXPP.               PAR E00 07/06/77 030-032 #29144
,LYNXPP+2C,22800040(72120011+LYNX00).    PAR E00 07/06/77 031-032 #29144
,LYNXPP+2D,71820011+LYNX00(21100040).    PAR E00 07/06/77 032-032 #29144
<OCCASIONAL 100 ABN FROM LYNX WHEN (GO) IS IMPLIED.               #28694
,LYNXPP+BE,225000FF(22500040).               E00 02/24/77 001-001 #28694
<LYNX SHOULD CHECK ON/OVER ALWAYS SINCE TEL DOESNT (EVER).        #28984
,LYNXPP+169,2000000(3510004B+LYNX00).    PAR E00 01/24/77 001-004 #28984
,LYNXPP+16D,2200000(70208C00).           PAR E00 01/24/77 002-004 #28984
,LYNXPP+3C1,2000000(3310004B+LYNX00).    PAR E00 01/24/77 003-004 #28984
,LYNXPP+5A,2000000(3310004B+LYNX00).     PAR E00 01/24/77 004-004 #28984
<LYNX SHOULD BUILD INT SYMS BY DEFAULT                            #28632
,LYNX01+31,6040308(E040308).             PAR E00 01/04/77 001-001 #28632
<LYNX SHOULD CLOSE M:LL BEFORE GOING TO LOADER                    #28643
,LYNXPP+E8,B5100009(3232B000).           PAR E00 01/04/77 001-006 #28643
,LYNXPP+E9,3232B000(B5320009).           PAR E00 01/04/77 002-006 #28643
,LYNXPP+EA,B5320009(641000E8+LYNXPP).    PAR E00 01/04/77 003-006 #28643
,LYNXPP+EB,641000E9+LYNXPP(3230B000).    PAR E00 01/04/77 004-006 #28643
,LYNXPP+EC,4100000+PATCH(B5300009).      PAR E00 01/04/77 005-006 #28643
,PATCH,15000000+M:LL,80000000,2.         PAR E00 01/04/77 006-006 #28643
GENMD PASS2
DELETE
:GENMD,IMC +B0BC,21C00008(21C00005)    .LA 03/17/77 01 OF 04  E00 #29131
:GENMD,IMC +AF97,F8404040(F5404040)    .LA 03/17/77 02 OF 04  E00 #29131
:GENMD,IMC +B320,22100008(22100007)    .LA 03/17/77 03 OF 04  E00 #29131
:GENMD,IMC +B333,209FFFF8(209FFFF9)    .LA 03/17/77 04 OF 04  E00 #29131
GENMD PCL
DELETE
<PCL SHOULDNT SAY EH? TO AT#' '/' '                               #29774
,GETARG+74,69300040+GETARG(6930003E+GETARG). E00 08/12/77 001-002 #29774
,GETARG+78,69300040+GETARG(6930003E+GETARG). E00 08/12/77 002-002 #29774
<PCL SHOULDNT INTERPRET DEN(1600) AS DEN(800).                    #29554
,COPYTRAN+E7,25300078(25300077).         PAR E00 06/22/77 001-001 #29554
<COPYSTD IN PCL THAT REPLACES STD FILE SHOULD CLOSE THE NEW FILE  #29628
<LAST AND THEN COPY THE REST OF THE FILES.                        #29628
,COPYALL+15A,2000000(6AB00000+CLOSEO).   PAR E00 07/06/77 001-003 #29628
,COPYALL+172,6AB00037+PATCH(35200004+SFARG). E00 07/06/77 002-003 #29628
,PATCH+37,35200004+SFARG,68000000+CLOSEO.PAR E00 07/06/77 003-003 #29628
<IN PCL, 20 ERRORS THE SAME SHOULD BE PER COMMAND OR UNDEFINED    #29364
<COMMANDS, NOT PER SESSION. X'0' SHOULD BE X'00' NOT '.           #29364
,PCL+F2,221000AD(221000AC).              PAR E00 05/18/77 001-003 #29364
,GETARG+6C,21F00010(21F00011).           PAR E00 05/18/77 002-003 #29364
,GETARG+6D,69400070+GETARG(68300084+GETARG). E00 05/18/77 003-003 #29364
<PCL SHOULD REPORT SEV. 3 ERRORS ON COPYSTD.                      #29496
<PCL SHOULD NOT ASK FOR VOL 2 OF A TAPE SET JUST BECAUSE A PRIVATE#29342
<DISK FILE HAD THE SAME SERIAL#.                                  #29342
,CLOSEI+4,6800002B+PATCH(320FFFFF+M:EISN).   E00 06/20/77 001-010 #29342
,PATCH+2B,21100002,E840000B,320FFFFF+M:EISN. E00 06/20/77 002-010 #29342
,PATCH+2E,68000005+CLOSEI.               PAR E00 06/20/77 003-010 #29342
,CLOSEO+4,6800002F+PATCH(320FFFFF+M:EOSN).   E00 06/20/77 004-010 #29342
,PATCH+2F,21100002,E840000B,320FFFFF+M:EOSN. E00 06/20/77 005-010 #29342
,PATCH+32,68000005+CLOSEO.               PAR E00 06/20/77 006-010 #29342
,BLDCB+4B,68000033+PATCH(B138000B).      PAR E00 06/20/77 007-010 #29342
,PATCH+33,64400049+BLDCB,32400001,B138000B.  E00 06/20/77 008-010 #29342
,PATCH+36,6800004C+BLDCB.                PAR E00 06/20/77 009-010 #29342
,BLDCB+4D,64400035+PATCH(64400049+BLDCB).PAR E00 06/20/77 010-010 #29342
<IN PCL, 20 ERRORS THE SAME SHOULD BE PER COMMAND OR UNDEFINED    #29364
<COMMANDS, NOT PER SESSION. X'0' SHOULD BE X'00' NOT '.           #29364
,PCL+F2,221000AD(221000AC).              PAR E00 05/18/77 001-003 #29364
,GETARG+6C,21F00010(21F00011).           PAR E00 05/18/77 002-003 #29364
,GETARG+6D,69400070+GETARG(68300084+GETARG). E00 05/18/77 003-003 #29364
<PCL STACK IS TOO SMALL FOR BREAK DURING COPY(X) OR (C).          #29153
,PCL+1B,68800025+PATCH(6880002C+PCL).    PAR E00 04/06/77 001-005 #29153
,PATCH+25,22100001+OV:NMSZ.              PAR E00 04/06/77 002-005 #29153
,PATCH+26,2510000F,6610002F+BREAK.       PAR E00 04/06/77 003-005 #29153
,PATCH+28,5A100001,6610002E+BREAK.       PAR E00 04/06/77 004-005 #29153
<PCL WRONGLY INTERPRETS BIN/PK/UNPK FOR 7T.                       #29186
,BLDCB+1DB,4B4E001D(4B4E001E).           PAR E00 03/31/77 001-003 #29186
,BLDCB+1E4,203FFFF0(20300010).           PAR E00 03/31/77 002-003 #29186
,BLDCB+280,360030(360020).               PAR E00 03/31/77 003-003 #29186
<PCL COMPRESSION SHOULD FINISH THE JOB, EVEN IF RECORD SELECTION  #29251
<WAS USED.                                                        #29251
,RDWRT+144,69300411+RDWRT(693001F7+RDWRT).   E00 03/31/77 001-001 #29251
<PCL COPY INTO SHOULD EXTEND CONSEC FILES, NOT REWRITE THEM.      #29024
,BLDCB+1AF,1C000000+M:EO(1D000000+M:EO). PAR E00 02/24/77 001-001 #29024
<COPYALL AT IN PCL SAYS: FILE 0300 OUT INSTEAD OF WORKING.        #28889
,BLDCB+169,68000021+PATCH(2140000B).     PAR E00 01/11/77 001-006 #28889
,PATCH+21,F304000A.                      PAR E00 01/11/77 002-006 #28889
,PATCH+22,6830018B+BLDCB.                PAR E00 01/11/77 003-006 #28889
,PATCH+23,2140000B.                      PAR E00 01/11/77 004-006 #28889
,PATCH+24,6800016A+BLDCB.                PAR E00 01/11/77 005-006 #28889
,RDWRT+496,5560000B(75600005).           PAR E00 01/11/77 006-006 #28889
<THE REQUIREMENT THAT ANS SERIAL NOS HAVE EXACTLY SIX CHARACTERS  #28624
<IS HEREBY LIFTED. SIX OR LESS NOW PREVAILS.                      #28624
<FIVE PATCHES-ONE EACH TO KEYIN,LABEL,PCL,CCI, AND TEL.           #28624
,TEXTARG+13,3000106(3000606).            PAR E00 01/11/77 003-005 #28624
<PCL LOOPS COPYING AT/LT TO AT/LT ON INPUT ERROR                  #28616
,RDWRT+1FA,33000000+GRANCNT(6AB001CE+RDWRT). E00 01/04/77 001-003 #28616
,RDWRT+1FC,6AB001CE+RDWRT(693001FE+RDWRT).   E00 01/04/77 003-003 #28616
<RECORD SELECTION SOMETIMES FAILS.                               #28887
,RDWRT+9A,75000009(683001C2+RDWRT).    1 OF 2 PAR E00 12/16/76   #28887
,RDWRT+9E,681001C2+RDWRT(683001C2+RDWRT).2- 2 PAR E00 12/16/76   #28887
<PCL SHOULD BE ABLE TO REMOVE ASCII TAPE                         #28820
<3PATCHES TO OPENTP, 4 YGENMDS TO PCL                            #28820
,REW+4C,20100400(20100004).            4 OF 7 PAR E00 12/16/76   #28820
,REW+52,6920005A+REW(6920026A+LIST).   5 OF 7 PAR E00 12/16/76   #28820
,REW+5C,6930026A+LIST(69300062+REW).   6 OF 7 PAR E00 12/16/76   #28820
,REW+5D,35000000+ERRFLAG(21C00006).    7 OF 7 PAR E00 12/16/76   #28820
<EXISTANT DEVICES (E.G. PLOTTERS) SHOULD BE LEGAL IN PCL.         #28687
,FIXARG+3B,6800001B+PATCH(E800000B).     PAR E00 12/01/76 001-004 #28687
,PATCH+1B,E930000B,213FD5D6,E830000B.    PAR E00 12/01/76 002-004 #28687
,PATCH+1E,72140020+PATCH,E800000B.       PAR E00 12/01/76 003-004 #28687
,PATCH+20,20B00.                         PAR E00 12/01/76 004-004 #28687
<COPY TO IN BATCH SHOULDNT DELETE FILES.                          #28336
,BLDCB+19C,2200010(33008C00).            PAR E00 11/30/76 001-001 #28336
<PERMITS THE REC(N) OPTION FOR ANY OUTPUT DEVICE, THEREBY         #27374
<TRUNCATING OR PADDING (TO 140 WITH BLANKS) EACH RECORD.          #27374
,COPYTRAN+2A5,FF8019(80019).             PAR E00 11/30/76 001-007 #27374
,RDWRT+82,6800000E+PATCH(22300006).      PAR E00 11/30/76 002-007 #27374
,PATCH+E,32300001+ANSBLK.                PAR E00 11/30/76 003-007 #27374
,PATCH+10,353E0005+WRTFPT.               PAR E00 11/30/76 005-007 #27374
,PATCH+11,22300006.                      PAR E00 11/30/76 006-007 #27374
,PATCH+12,68000083+RDWRT.                PAR E00 11/30/76 007-007 #27374
<FIX MANY PCL INCONSISTENCIES AND MAKE IT WORK BETTER.            #28471
,PCL+4A,2000000(204FFFFF).               PAR E00 12/06/76 001-103 #28471
,COPYTRAN+FF,2000000(20130000).          PAR E00 12/06/76 002-103 #28471
,COPYTRAN+102,2000000(6930023A+COPYTRAN).PAR E00 12/06/76 003-103 #28471
,COPYALL+107,35200002+TLABEL(35300002+TLABEL).   12/06/76 004-103 #28471
,COPYALL+49,2000000(6AB00084+COPYTRAN).  PAR E00 12/06/76 005-103 #28471
,REVIEW+17,2000000(68300023+REVIEW).     PAR E00 12/06/76 006-103 #28471
,COPYTRAN+9E,69200000+PATCH(69200108+COPYTRAN).  12/06/76 007-103 #28471
,PATCH,326E0000+TERM.                    PAR E00 12/06/76 008-103 #28471
,PATCH+1,68000108+COPYTRAN.              PAR E00 12/06/76 009-103 #28471
,COPYTRAN+108,46600001(32600001).        PAR E00 12/06/76 010-103 #28471
,COPYALL+10D,41000EE+COPYALL(22300000+M:EO). E00 12/06/76 011-103 #28471
,COPYALL+10C,22300000+M:EO(41000EE+COPYALL). E00 12/06/76 012-103 #28471
,COPYALL+EE,84000003(4000000+M:EO).      PAR E00 12/06/76 013-103 #28471
,COPYALL+148,69100002+PATCH(69100099+COPYALL).   12/06/76 014-103 #28471
,PATCH+2,6AB00000+CLOSEI.                PAR E00 12/06/76 015-103 #28471
,PATCH+3,68000099+COPYALL.               PAR E00 12/06/76 016-103 #28471
,PCL+3F,68C00061+PCL(68C0004B+PCL).      PAR E00 12/06/76 017-103 #28471
,SPE+63,68000060+SPE(68000061+SPE).      PAR E00 12/06/76 018-103 #28471
,RDWRT+108,221FFFEE(22100002).           PAR E00 12/06/76 019-103 #28471
,RDWRT+109,661E0007+WRTFPT(351E0007+WRTFPT). E00 12/06/76 020-103 #28471
,RDWRT+122,221FFFF7(22100003).           PAR E00 12/06/76 021-103 #28471
,RDWRT+123,661E0007+WRTFPT(351E0007+WRTFPT). E00 12/06/76 022-103 #28471
,RDWRT+130,3A300003(38200003).           PAR E00 12/06/76 023-103 #28471
,RDWRT+131,663E0005+WRTFPT(68200139+RDWRT).  E00 12/06/76 024-103 #28471
,RDWRT+132,68200139+RDWRT(352E0005+WRTFPT).  E00 12/06/76 025-103 #28471
,BLDCB+3C,22200003(22200001).            PAR E00 12/06/76 026-103 #28471
,COPYALL+81,32F0000A(21D00001).          PAR E00 12/06/76 027-103 #28471
,COPYALL+83,21D00001(32F0000A).          PAR E00 12/06/76 028-103 #28471
,COPYALL+84,69200088+COPYALL(69300088+COPYALL).  12/06/76 029-103 #28471
,WEOF+1E,22100001(22100000).             PAR E00 12/06/76 030-103 #28471
,PCL+BB,22000F0(21200002).               PAR E00 12/06/76 031-103 #28471
,PCL+C2,683000A7+PCL(683000BD+PCL).      PAR E00 12/06/76 032-103 #28471
,PCL+A9,683000BD+PCL(683000B4+PCL).      PAR E00 12/06/76 033-103 #28471
,PCL+BD,2120005E(222000E8).              PAR E00 12/06/76 034-103 #28471
,PCL+BE,683000C3+PCL(352E0039).          PAR E00 12/06/76 035-103 #28471
<REPLACEMENT FOR 36-103 OF 1206 PATCH#28471 TO PCL.(A... HANGS UP)#29773
,PCL+BF,680000B0+PCL(680000A5+PCL).      PAR E00 08/12/77 036-103 #28471
,BLDCB+18B,F246000A(F242000A).           PAR E00 12/06/76 037-103 #28471
,BLDCB+18C,68300191+BLDCB(69300191+BLDCB).   E00 12/06/76 038-103 #28471
,BLDCB+18D,20A00001(F246000A).           PAR E00 12/06/76 039-103 #28471
,BLDCB+18F,F242000A(20A00001).           PAR E00 12/06/76 040-103 #28471
,BLDCB+190,68300166+BLDCB(68000166+BLDCB).   E00 12/06/76 041-103 #28471
,RDWRT+326,72200002(322E0007+WRTFPT).    PAR E00 12/06/76 043-103 #28471
,RDWRT+327,6830032A+RDWRT(32100040).     PAR E00 12/06/76 044-103 #28471
,RDWRT+328,202FFFFF(75140000).           PAR E00 12/06/76 045-103 #28471
,RDWRT+329,32300002(6800032E+RDWRT).     PAR E00 12/06/76 046-103 #28471
,BLDCB+10C,353AA1F0(353A0000+ANSBLK).    PAR E00 12/06/76 047-103 #28471
,RDWRT+35,3110A1F1(31100002+ANSBLK).     PAR E00 12/06/76 048-103 #28471
,RDWRT+37,3210A1F1(32100002+ANSBLK).     PAR E00 12/06/76 049-103 #28471
,RDWRT+38,3230A1F0(32300000+ANSBLK).     PAR E00 12/06/76 050-103 #28471
,RDWRT+39,3520A1F3(35200001+ANSBLK).     PAR E00 12/06/76 051-103 #28471
,RDWRT+53,3220A1F2(32200002+ANSBLK).     PAR E00 12/06/76 052-103 #28471
,RDWRT+261,73F0A1F0(73F00000+ANSBLK).    PAR E00 12/06/76 053-103 #28471
,RDWRT+262,3230A1F3(32300001+ANSBLK).    PAR E00 12/06/76 054-103 #28471
,RDWRT+265,3220A1F2(32200002+ANSBLK).    PAR E00 12/06/76 055-103 #28471
,RDWRT+270,3110A1F0(31100000+ANSBLK).    PAR E00 12/06/76 056-103 #28471
,RDWRT+275,3230A1F3(32300001+ANSBLK).    PAR E00 12/06/76 057-103 #28471
,RDWRT+278,3240A1F3(32400001+ANSBLK).    PAR E00 12/06/76 058-103 #28471
,RDWRT+281,7230A1F0(72300000+ANSBLK).    PAR E00 12/06/76 059-103 #28471
,RDWRT+286,3210A1F0(32100000+ANSBLK).    PAR E00 12/06/76 060-103 #28471
,RDWRT+2D9,680002E5+RDWRT(693002E5+RDWRT).   E00 12/06/76 061-103 #28471
,BLDCB+D7,3500A1F2(22100000+M:EO).       PAR E00 12/06/76 062-103 #28471
,COPYALL+C8,69300004+PATCH(693000CA+COPYALL).E00 12/06/76 063-103 #28471
,PATCH+4,694000CA+COPYALL.               PAR E00 12/06/76 064-103 #28471
,PATCH+6,49200008+PATCH.                 PAR E00 12/06/76 066-103 #28471
,PATCH+7,680000CA+COPYALL.               PAR E00 12/06/76 067-103 #28471
,PATCH+8,F10000.                         PAR E00 12/06/76 068-103 #28471
,RDWRT+181,6AB0000B+PATCH(6AB00000+ERROR).   E00 12/06/76 069-103 #28471
,PATCH+9,33000000+COPYSK.                PAR E00 12/06/76 070-103 #28471
,PATCH+A,68300000+ERROR.                 PAR E00 12/06/76 071-103 #28471
,PATCH+B,32A00001.                       PAR E00 12/06/76 072-103 #28471
,PATCH+C,25A00018.                       PAR E00 12/06/76 073-103 #28471
,PATCH+D,E800000B.                       PAR E00 12/06/76 074-103 #28471
,RDWRT+184,680001F2+RDWRT(680001F7+RDWRT).   E00 12/06/76 075-103 #28471
,RDWRT+1A4,6AB00009+PATCH(6AB00000+ERROR).   E00 12/06/76 076-103 #28471
,RDWRT+4EC,6AB0000B+PATCH(6AB00000+ERROR).   E00 12/06/76 077-103 #28471
,RDWRT+4EE,680001F2+RDWRT(2200000).      PAR E00 12/06/76 078-103 #28471
,RDWRT+29C,350E0006+WRTFPT(2000000).     PAR E00 12/06/76 079-103 #28471
,BLDCB+BD,21900404(21900004).            PAR E00 12/06/76 080-103 #28471
,COPYTO+45,22100402(22100006).           PAR E00 12/06/76 081-103 #28471
,LIST+1E3,21B001F0+LIST(330E0000+ATTRB). PAR E00 12/06/76 082-103 #28471
,LIST+1E4,6830022F+LIST(6930022F+LIST).  PAR E00 12/06/76 083-103 #28471
,LIST+1E5,68000013+PATCH(6800008C+LIST). PAR E00 12/06/76 084-103 #28471
,PATCH+13,75000000+DELETEF.              PAR E00 12/06/76 085-103 #28471
,PATCH+14,6800008C+LIST.                 PAR E00 12/06/76 086-103 #28471
,LIST+C0,22100050+TLABEL(3210000E).      PAR E00 12/06/76 087-103 #28471
,DELETEAL+59,68000015+PATCH(6800025E+LIST).  E00 12/06/76 089-103 #28471
,PATCH+15,350E0000+ATTRB.                PAR E00 12/06/76 090-103 #28471
,PATCH+16,6800025E+LIST.                 PAR E00 12/06/76 091-103 #28471
,BLDCB+170,69200017+PATCH(69200173+BLDCB).   E00 12/06/76 092-103 #28471
,PATCH+17,326E0003+MODE.                 PAR E00 12/06/76 093-103 #28471
,PATCH+18,21600400.                      PAR E00 05/18/77 094-103 #28471
,PATCH+19,6940018B+BLDCB.                PAR E00 12/06/76 095-103 #28471
,PATCH+1A,68000173+BLDCB.                PAR E00 12/06/76 096-103 #28471
,RDWRT+215,68000000+RELPAGES(E800000B).  PAR E00 12/06/76 097-103 #28471
,GETARG+19,69400035+GETARG(68100035+GETARG). E00 12/06/76 098-103 #28471
,LIST+34A,2000000(E830000B).             PAR E00 12/06/76 099-103 #28471
,REW+2D,69300070+REW(69300042+REW).      PAR E00 12/06/76 100-103 #28471
,REW+39,69300070+REW(69300042+REW).      PAR E00 12/06/76 101-103 #28471
,REW+5E,6930026A+LIST(69300062+REW).     PAR E00 12/06/76 102-103 #28471
,RDWRT+1DB,72100001(31100689+RDWRT).     PAR E00 12/06/76 103-103 #28471
GENMD RBBAT
DELETE
<FOLLOWING GENMDS TO RBBAT WERE TRANSMITTED BY TED MARTENER
< ON 5/7/77 AND SHOULD APPER ON SST TAPE LATER.
GENMD RBBAT
:GENMD,RBBAT RBG+E1D,68300000+RBBP(68300E20+RBG).
:GENMD,RBBAT RBBP+0,EB3A0E37+RBG.
:GENMD,RBBAT RBBP+2,68000E1E+RBG.
:GENMD,RBBAT RBG+E38,68000003+RBBP(68300E4A+RBG).
:GENMD,RBBAT RBBP+3,4B300000+M24.
:GENMD,RBBAT RBBP+4,68300E4A+RBG.
:GENMD,RBBAT RBBP+5,68000E39+RBG.
:GENMD,RBBAT RBG+E6B,22800006+RBBP(22800020+RBG).
:GENMD,RBBAT RBBP+6,22500000+LCLX.
:GENMD,RBBAT RBBP+7,68000020+RBG.
< THE FOLLOWING PATCH WAS TRANSMITTED BY TED MARTENER ON 7/7/77
< IN RESPONSE TO DUMPS WHICH HAD CIRCULAR QUEUES IN STB:LNK
< IT ALSO ENTAILED REMOVING THE OLD GENMD TO RECVRY +D5.
:GENMD,RBBAT RBG+E18,319014E6+RBG(319014EF+RBG).    EXPER****
< SYMBIONTS WENT CRAZY WHEN FORCED TO USE CYLINDERS.           E00#29047
<   3 TO ROOT, 3 TO MISOV, 3 TO RBBAT.                         E00#29047
:GENMD,RBBAT RBG+DE2,3200010F+GRAN:(22070B00).   7-9 TSM040177 E00#29047
:GENMD,RBBAT RBG+DE7,4B800000+M24(358000DC+SDAA).8-9 TSM040177 E00#29047
:GENMD,RBBAT RBG+DE8,68000E9C+RBG(E800000A).     9-9 TSM040177 E00#29047
< RBBAT MESSAGE FILES SOMETIMES WENT CONCURRENT.               E00#28226
:GENMD,RBBAT RBG+2E6,692002A8+RBG(692002AC+RBG).1-1TSM111576   E00#28226
< BATCH USER DOING MULTIPLE SUPER-CLOSES CREATED BAD           E00#28734
< SYMBIONT FILE ENTRIES.                                       E00#28734
:GENMD,RBBAT RBG+38F,680003BA+RBG(680003BC+RBG).|-2 TSM 111776 E00#28734
GENMD SHOW
DELETE
<THIS PATCH LETS SHOW DISPLAY USER PRIORITY IF ON-LINE            #29145
:GENMD,SHOW SHOW+119,32100000+J:JIT(72100000+J:JIT).      001-001 #29145
<THIS PATCH MAKES SHOW RECOGNIZE 'JOB' FILES.                     #28683
:GENMD,SHOW SHOW+357,68000000+PATCH(2540001F).   12/08/76 001-010 #28683
:GENMD,SHOW PATCH+0,21400003.            JFR E00 12/08/76 002-010 #28683
:GENMD,SHOW PATCH+1,69300005+PATCH.      JFR E00 12/08/76 003-010 #28683
:GENMD,SHOW PATCH+2,22D00020+BA(PATCH).  JFR E00 12/08/76 004-010 #28683
:GENMD,SHOW PATCH+3,22E00004.            JFR E00 12/08/76 005-010 #28683
:GENMD,SHOW PATCH+4,68000322+SHOW.       JFR E00 12/08/76 006-010 #28683
:GENMD,SHOW PATCH+5,21400002.            JFR E00 12/08/76 007-010 #28683
:GENMD,SHOW PATCH+6,6930035C+SHOW.       JFR E00 12/08/76 008-010 #28683
:GENMD,SHOW PATCH+7,68000359+SHOW.       JFR E00 12/08/76 009-010 #28683
:GENMD,SHOW PATCH+8,5ED1D6C2.            JFR E00 12/08/76 010-010 #28683
GENMD STATS
DELETE
<STATS PUTS AN EXTRA RWORD IN THE SNAPSHOT RECORD.  THIS RESULTS  #28505
<IN THE SUMMARY FOR DISPLAYS 8-12 BEING SKEWED TO THE RIGHT BY ONE#28505
<VALUE.                                                           #28505
:GENMD,STATS CSPROC+81E,68000010+PATCH(22700001).08/12/77 001-005 #28505
:GENMD,STATS PATCH+10,20200000.          MRS E00 08/12/77 002-005 #28505
:GENMD,STATS PATCH+12,22700001.          MRS E00 08/12/77 004-005 #28505
:GENMD,STATS PATCH+13,6800081F+CSPROC.   MRS E00 08/12/77 005-005 #28505
GENMD SUPER
DELETE
<THIS PATCH IS TO REPLACE 'CP' FOR '#' IN WRKSTN LIST. OF 3780'S. #29513
<IF THE WRKSTN HAS A '#', THAT WRKSTN WILL HAVE TO BE DELETED AND #29513
<REBUILT TO REPLACE THE '#'.  THIS PATCH ALSO STOPS IRBT'S FROM   #29513
<BEING LISTED AS 3780'S IF N3 IS SPECIFIED.  AND FINALLY, TO HAVE #29513
<N3 PRINT OUT IF IT IS SPECIFIED WITH IRBT.                       #29513
,PATCH+04,00300000.                      WTW E00 06/20/77 001-005 #29513
,PATCH+05,02100000.                      WTW E00 06/20/77 002-005 #29513
,DATA+11C,D3D7C3D7(D3D70CEB).            WTW E00 06/20/77 003-005 #29513
,SECT1+574,32100004+PATCH(32100105+DATA).WTW E00 06/20/77 004-005 #29513
,SECT1+598,32100005+PATCH(32100105+DATA).WTW E00 06/20/77 005-005 #29513
<THIS PATCH PREVENTS LOOP ON RBLOG ERROR MESSAGE.                 #29233
,SUPERP+9AD,68000000+PATCH(330003D3+SUPERD). E00 03/30/77 001-005 #29233
,PATCH+00,52800000+M:EO.                 WTW E00 03/30/77 002-005 #29233
,PATCH+01,21800020.                      WTW E00 03/30/77 003-005 #29233
,PATCH+02,694009AF+SUPERP.               WTW E00 03/30/77 004-005 #29233
,PATCH+03,680007EB+SUPERP.               WTW E00 03/30/77 005-005 #29233
<THIS PATCH PREVENTS A LOOP IN SUPER 'LIST' COMMAND PROCESSING    #28651
:GENMD,SUPER BUILDKEY+8,2230000C(2230000B)..11NOV76 JFR E00 01-01 #28651
GENMD TEL
DELETE
<PREVENTS THE POSSIBILITY OF A SESSION BEING CHARGED TO :SYS      #29604
<INSTEAD OF CURRENT USER IF LINE HANGUP OCCURS DURING EXECUTION OF#29604
<BACKUP, SHOW, OR PASSWORD COMMANDS.                              #29604
:GENMD,TEL TEL+75A,72E00000+JB:PRIV.     CHK E00 07/13/77 001-016 #29604
:GENMD,TEL TEL+75B,22F000C0.             CHK E00 07/13/77 002-016 #29604
:GENMD,TEL TEL+75C,75F00000+JB:PRIV.     CHK E00 07/13/77 003-016 #29604
:GENMD,TEL TEL+75D,02000000.             CHK E00 07/13/77 004-016 #29604
:GENMD,TEL TEL+760,75E00000+JB:PRIV.     CHK E00 07/13/77 005-016 #29604
:GENMD,TEL TEL+761,02000000.             CHK E00 07/13/77 006-016 #29604
:GENMD,TEL TEL+776,75E00000+JB:PRIV.     CHK E00 07/13/77 007-016 #29604
:GENMD,TEL TEL+777,02000000.             CHK E00 07/13/77 008-016 #29604
:GENMD,TEL TEL+77D,75E00000+JB:PRIV.     CHK E00 07/13/77 009-016 #29604
:GENMD,TEL TEL+77E,02000000.             CHK E00 07/13/77 010-016 #29604
:GENMD,TEL TEL+97A,72E00000+JB:PRIV.     CHK E00 07/13/77 011-016 #29604
:GENMD,TEL TEL+97B,22F000C0.             CHK E00 07/13/77 012-016 #29604
:GENMD,TEL TEL+97C,75F00000+JB:PRIV.     CHK E00 07/13/77 013-016 #29604
:GENMD,TEL TEL+97D,02000000.             CHK E00 07/13/77 014-016 #29604
:GENMD,TEL TEL+980,75E00000+JB:PRIV.     CHK E00 07/13/77 015-016 #29604
:GENMD,TEL TEL+981,02000000.             CHK E00 07/13/77 016-016 #29604
<FIXES PROBLEM OF FILE EXTENSION OCCURRING ON GO FILE WHEN !RUN   #29830
<EXECUTED VIA A COMMAND FILE.                                     #29830
:GENMD,TEL TEL+945,68000014+PATCH.       CHK E00 08/11/77 001-005 #29830
:GENMD,TEL PATCH+15,4B500000+FEXTIMG.    CHK E00 08/11/77 003-005 #29830
:GENMD,TEL PATCH+16,35500000+FEXTIMG.    CHK E00 08/11/77 004-005 #29830
:GENMD,TEL PATCH+17,68000946+TEL.        CHK E00 08/11/77 005-005 #29830
:GENMD,TEL  TEL+730,0040405C(0005055C).  MRS E00 07/22/77 021-021 #29544
<FIXES RANDOM PROBLEM OF FILES NOT GETTING SAVED WHEN SAVE COMMAND#29008
<EXECUTED.                                                        #29008
:GENMD,TEL SAVE,68000010+PATCH.          CHK E00 02/07/77 001-005 #29008
:GENMD,TEL PATCH+10,22500000.            CHK E00 02/07/77 002-005 #29008
:GENMD,TEL PATCH+11,35500021+M:TEL.      CHK E00 02/07/77 003-005 #29008
:GENMD,TEL PATCH+12,32500000+J:TELFLGS.  CHK E00 02/07/77 004-005 #29008
:GENMD,TEL PATCH+13,68000001+SAVE.       CHK E00 02/07/77 005-005 #29008
<THE REQUIREMENT THAT ANS SERIAL NOS HAVE EXACTLY SIX CHARACTERS  #28624
<IS HEREBY LIFTED. SIX OR LESS NOW PREVAILS.                      #28624
<FIVE PATCHES-ONE EACH TO KEYIN,LABEL,PCL,CCI, AND TEL.           #28624
,RESET+33F,2200000(21700006).            PAR E00 01/11/77 005-005 #28624
<FIXES PROBLEM OF BEING UNABLE TO RESET DCB ASSIGNMENTS FOR SN,EX #28876
<RD,UN, AND WR OPTIONS VIA A SET COMMAND WHEN OPTION IS SPECIFIED #28876
<WITHOUT ARGUMENTS. 4 CARD PATCH TO CCI AND 14 CARD PATCH TO TEL  #28876
:GENMD,TEL RESET+360,32F00000+Y07          .06JAN77 CHK E00 01-14 #28876
:GENMD,TEL RESET+361,35F8001E              .06JAN77 CHK E00 02-14 #28876
:GENMD,TEL RESET+362,68000366+RESET        .06JAN77 CHK E00 03-14 #28876
:GENMD,TEL RESET+3E9,6800000C+PATCH        .06JAN77 CHK E00 04-14 #28876
:GENMD,TEL PATCH+D,680003EE+RESET          .06JAN77 CHK E00 06-14 #28876
:GENMD,TEL RESET+3EB,6800000E+PATCH        .06JAN77 CHK E00 07-14 #28876
:GENMD,TEL PATCH+E,32C00000+Y06            .06JAN77 CHK E00 08-14 #28876
:GENMD,TEL PATCH+F,680003EE+RESET          .06JAN77 CHK E00 09-14 #28876
:GENMD,TEL RESET+3ED,32C00000+PLIST        .06JAN77 CHK E00 10-14 #28876
:GENMD,TEL RESET+3F2,680003F5+RESET        .06JAN77 CHK E00 11-14 #28876
:GENMD,TEL RESET+3B2,32F00000+Y15          .06JAN77 CHK E00 12-14 #28876
:GENMD,TEL RESET+3B3,35F80055              .06JAN77 CHK E00 13-14 #28876
:GENMD,TEL RESET+3B4,680003B8+RESET        .06JAN77 CHK E00 14-14 #28876
<  FIX VARIABLE SPACING BEFORE AND AFTER COC PAGE HEADINGS.       #28688
<  PORTIONS OF PATCH GO TO THE JIT, REGCOCR/TPCOCR, AND TEL.      #28688
,TEL+509,225230EB(225230E1).               .05JAN77 PLS E00 25-35 #28688
,TEL+4E7,683004EF+TEL(68300000+SYNTAX).    .05JAN77 PLS E00 26-35 #28688
,TEL+4F5,683004FD+TEL(68300000+SYNTAX).    .05JAN77 PLS E00 27-35 #28688
,TEL+50E,68000520+TEL(2252311A).           .05JAN77 PLS E00 28-35 #28688
,TEL+869,230EB(230E1).                     .05JAN77 PLS E00 34-35 #28688
<FIXES PROBLEM OF FILES NOT GETTING BACKED UP DUE TO GARBAGE      #28861
<REMAINING IN DCB FROM PREVIOUS BACKUP.                           #28861
:GENMD,TEL TEL+747,68000008+PATCH.       CHK E00 12/09/76 001-005 #28861
:GENMD,TEL PATCH+8,22100000.             CHK E00 12/09/76 002-005 #28861
:GENMD,TEL PATCH+9,35100021+M:TEL.       CHK E00 12/09/76 003-005 #28861
:GENMD,TEL PATCH+A,6AB00995+TEL.         CHK E00 12/09/76 004-005 #28861
<PREVENTS SUA-61 WHEN EXECUTING THE INFORM COMMAND.               #28638
:GENMD,TEL TEL+69F,47D00000+J:TELFLGS.   CHK E00 11/05/76 001-001 #28638
<FIXES PROBLEM OF NOT BEING ABLE TO EXECUTE A PROGRAM UNDER DELTA #28473
<IF PREVIOUS PROGRAM ABORTED.                                     #28473
:GENMD,TEL TEL+91,49F00000+Y0004.        CHK E00 10/25/76 001-001 #28473
< AN X PRIMITIVE IS NOT HANDLED PROPERLY                      E00 #28703
#TTP                                                                        SKIP
GENMD TFDUTL                                                                SKIP
DELETE                                                                      SKIP
, TFDUTL+3A7,6930A9C9(30D0B7C8)        .LA  11/16/76 01 OF 02 E00 #28703    SKIP
, TFDUTL+3A8,30D0B7C8(6930A9DB)        .LA  11/16/76 02 OF 02 E00 #28703    SKIP
#
#TTP                                                                        SKIP
GENMD TIC                                                                   SKIP
DELETE                                                                      SKIP
<  GET NUMBER OF RETRIES FOR 3270 IO FROM THE DCB.                #28874    SKIP
< 1 SECTION OF PATCH GOES TO MOCIOP, THE OTHER TO THE TIC.        #28874    SKIP
TICROOT,F:4000+2,01000000.  1 RETRY        .25JAN77 PLS E00 09-09 #28874    SKIP
#
GENMD VOLINIT
DELETE
<CHANGE TIMING OF HEADER WRITE                                    #29040
:GENMD,VOLINIT VTOC+10A1,0+PATCH.        ULS E00 02/22/77 001-006 #29040    SKIP
:GENMD,VOLINIT VTOC+10AE,0+PATCH.        ULS E00 02/22/77 002-006 #29040    SKIP
:GENMD,VOLINIT PATCH,030305E0.           ULS E00 02/22/77 003-006 #29040    SKIP
:GENMD,VOLINIT PATCH+1,2C000004.         ULS E00 02/22/77 004-006 #29040    SKIP
:GENMD,VOLINIT PATCH+2,09030800.         ULS E00 02/22/77 005-006 #29040    SKIP
:GENMD,VOLINIT PATCH+3,1C000060.         ULS E00 02/22/77 006-006 #29040    SKIP
#
GENMD XDELTA
DELETE
< DON'T THROW OUT HIGH ORDER ADDRESS BIT.                         #29572
,XDLT:+94C,2131FF00(2130FF00).           PRY E00 07/14/77 001-001 #29572
!
