#DPSIO                                                                      SKIP
:SAVE                                                                       SKIP
:TYPE 9T7322,A80,A81                                                        SKIP
:REMOVE CONT,AE0                                                            SKIP
:REMOVE A0F                                                                 SKIP
:TYPE ME7611,A05                                                            SKIP
:END                                                                        SKIP
#
<#UMOV=0 DOESNT WORK C00G PAR 2 CARDS 11/14                       #23677
/XDLT .915/AI,3 0(AI,0 -2/   1 OF 2 PAR 11/14                     #23677
/XDLT .916/BE . 4(LC 0/      2 OF 2 PAR 11/14                     #23677
#560X=1
#560X=0
#7E=1
#7E=0
#7D=0
#7D=1
#7T=1
#7T=0
#9B=1
#9B=0
#PRIV=0   (SET TO 1 IF PRIVATE PACKS IN SYSTEM)
#PRIV=1
:SAVE                                                                       SKIP
:TYPE 9T7322,B80,B81,B82,B83                                                SKIP
:TYPE DC7212,CF0                                                            SKIP
:TYPE DC7232,BF0                                                            SKIP
:TYPE DP7242,A80,A81,A82,A83                                                SKIP
:TYPE ME7611,A10                                                            SKIP
:REMOVE AF0                                                                 SKIP
:TYPE DP7271,AE0                                                            SKIP
:REMOVE BF1                                                                 SKIP
:REMOVE AE0                                                                 SKIP
:REMOVE AF1                                                                 SKIP
:REMOVE A0F                                                                 SKIP
:REMOVE A16                                                                 SKIP
:REMOVE A0D                                                                 SKIP
:REMOVE AE1                                                                 SKIP
:REMOVE CF0                                                                 SKIP
:END                                                                        SKIP
#
#7E                                                                         SKIP
:SAVE                                                                       SKIP
:TYPE DC7212,BF0                                                            SKIP
:TYPE RBFFFF,A14                                                            SKIP
:REMOVE A84                                                                 SKIP
:REMOVE A85                                                                 SKIP
:REMOVE CONT,AF0                                                            SKIP
:REMOVE CONT,AE0                                                            SKIP
:TYPE DP7242,D80,D81,D82,D83                                                SKIP
:TYPE ME7611,A10                                                            SKIP
:END                                                                        SKIP
#
#7D
:SAVE
:REMOVE A0F
:REMOVE A16
:TYPE DC7212,BF0
:REMOVE CONT,AF0
:REMOVE CF1
:REMOVE CONT,AE0
:TYPE 9T7322,A80,A81
:TYPE DP7242,D80,D81
:TYPE ME7611,A05
:END
#
#7T                                                                         SKIP
:REMOVE CONT,D80                                                            SKIP
:END                                                                        SKIP
#
<<<<<<MONITOR ROOT PATCHES
< IF JB:LPP IS FROM 2 THRU 11 A 7E-40 CAN RESULT                  #23691
/COC+.641/BDR,12 $-1(BDR,12 COC+.689)/      PLS 20NOV74 1-1 C00   #23691
< IOQ DISABLES TOO SOON AT CLEANUP     C00 EAI 11/15/74 7 PATCHES #23676
/IOQ+.35A/ B IOQ+.35C(LB,5 DCT15,1)/   C00 EAI 11/15/74 1 OF 7    #23676
#RTROOT                                C00 EAI 11/15/74 2 OF 7    #23676
/IOQ+.358/STB,0 1(WD,0 .27)/           C00 EAI 11/15/74 3 OF 7    #23676
/.+1/LB,5 DCT15,1(STB,0 1)/            C00 EAI 11/15/74 4 OF 7    #23676
/.+1/BNEZ RTROOT+.247(B IOQ+.35C)/     C00 EAI 11/15/74 5 OF 7    #23676
/.+1/WD,0 .27(BNEZ RTROOT+.247)/       C00 EAI 11/15/74 6 OF 7    #23676
#                                      C00 EAI 11/15/74 7 OF 7    #23676
<  I/O ERROR 75-07 ON PRIVATE KEYED FILES                     C00 #23556
#PRIV                        JFJ 11/15 I/O ERR 75-07  1 OF 6  C00 #23556
/RDF+.6CD/B @(CW,4 2)/       JFJ 11/15 I/O ERR 75-07  2 OF 6  C00 #23556
/@/BEZ RDF+.6CF/             JFJ 11/15 I/O ERR 75-07  3 OF 6  C00 #23556
/@/CW,4 2/                   JFJ 11/15 I/O ERR 75-07  4 OF 6  C00 #23556
/@/B RDF+.6CE/               JFJ 11/15 I/O ERR 75-07  5 OF 6  C00 #23556
#                            JFJ 11/15 I/O ERR 75-07  6 OF 6  C00 #23556
< WELL, HERE WE GO AGAIN GANG... TRY TO GET ECB:ARS RIGHT.     C00#22994
< PEAK COUNT OFF BY ONE
/MM+.B7/PLW,12 TSTACK(PLW,3 TSTACK)/     001/019 LLA 11/13/74 C0G #23806
/MM+.B8/B @(B *11)/                      002/019 LLA 11/13/74 C0G #23806
/@/PLW,3 TSTACK/                         003/019 LLA 11/13/74 C0G #23806
/@/B *11/                                004/019 LLA 11/13/74 C0G #23806
/MM+.CF/B @(SW,12 2)/                    005/019 LLA 11/13/74 C0G #23806
/@/SW,12 2/                              006/019 LLA 11/13/74 C0G #23806
/@/PSW,12 TSTACK/                        007/019 LLA 11/13/74 C0G #23806
/@/B MM+.D0/                             008/019 LLA 11/13/74 C0G #23806
/MM+.F4/B @(LI,2 .234B9)/                009/019 LLA 11/13/74 C0G #23806
/@/LI,2 3/                               010/019 LLA 11/13/74 C0G #23806
/@/B MM+.F9/                             011/019 LLA 11/13/74 C0G #23806
/MM+.143/B @(PLW,3 TSTACK/               012/019 LLA 11/13/74 C0G #23806
/@/PLW,12 TSTACK/                        013/019 LLA 11/13/74 C0G #23806
/@/AI,12 1/                              014/019 LLA 11/13/74 C0G #23806
/@/LI,2 .234B9/                          015/019 LLA 11/13/74 C0G #23806
/@/B MM+.F5/                             016/019 LLA 11/13/74 C0G #23806
/MM+.F8/B @(LI,2 3)/                     017/019 LLA 11/13/74 C0G #23806
/@/PLW,3 TSTACK/                         018/019 LLA 11/13/74 C0G #23806
/@/B MM+.144/                            019/019 LLA 11/13/74 C0G #23806
< FIX GRANULE CLEANING FOR BIG9 REAL EXTENDED MODE #23664
/WRTF+.611/B @(LW,2 4,1)/              C00G NEM 11/14/74 1 OF 4 #23664
/@/AND,2 4,1/                          C00G NEM 11/14/74 3 OF 4 #23664
/@/B WRTF+.612/                        C00G NEM 11/14/74 4 OF 4 #23664
< NSLP HANDLER (7446) CAUSES S/C19 WHEN LISTING GENMODS        C00#23653
<  DURING BOOT.  (ALSO WHENEVER IT'S NON-SYMBIONT).            C00#23653
/IOQ+.3EB/LW,14 MASKS+24(LB,8 IOQ3,3)/    1-4 TSM 11/12/74     C00#23653
/IOQ+.3EC/LCF,2 IOQ3,3(CI,8 .20)/         2-4 TSM 11/12/74     C00#23653
/IOQ+.3ED/BCR,2 IOQ+.3F5(BCR,4 IOQ+.3F5)/ 3-4 TSM 11/12/74     C00#23653
/IOQ+.3EE/AND,14 IOQ8,3(LW,14 IOQ8,3)/    4-4 TSM 11/12/74     C00#23653
/COMBAT .2/.1(.0)/           SMK 11/8/74 1 OF 1  TURN ON SCHED BY GRAN C
< COC INIT WAS CLOBBERING LINE 0'S USER#.                      C00#23654
#TTP                                  01-11 TSM 11/12/74       C00#23654
#COA13=.A13                           02-11 TSM 11/12/74       C00#23654
#ELSE                                 03-11 TSM 11/12/74       C00#23654    SKIP
#COA13=.825                           04-11 TSM 11/12/74       C00#23654    SKIP
#COC                                  05-11 TSM 11/12/74       C00#23654
/COC+COA13+0/LD,4 COD:LPC,3(AI,7 1)/  06-11 TSM 11/12/74       C00#23654
/COC+COA13+1/SW,5 4(LD,4 COD:LPC,3)/  07-11 TSM 11/12/74       C00#23654
/COC+COA13+2/AW,4 7(SW,5 4)/          08-11 TSM 11/12/74       C00#23654
/COC+COA13+3/AI,7 1(AW,4 7)/          09-11 TSM 11/12/74       C00#23654
#                                     10-11 TSM 11/12/74       C00#23654
#COA13;K1                             11-11 TSM 11/12/74       C00#23654
<THIS PATCH RESETS THE NUMBER OF LINES USED ON THE CURRENT  > C00 #23535
<DEVICE                                                     > C00 #23535
/WRTD+.6D/B @(LI,2 4)/                   001/006 JFR 10/30/74 C00 #23535
/@/LI,11 1/                              002/006 JFR 10/30/74 C00 #23535
/@/LI,2 .18/                             003/006 JFR 10/30/74 C00 #23535
/@/STH,11 *6,2/                          004/006 JFR 10/30/74 C00 #23535
/@/LI,2 4/                               005/006 JFR 10/30/74 C00 #23535
/@/B WRTD+.6E/                           006/006 JFR 10/30/74 C00 #23535
<  FIX MISCELLANEOUS M:TRTN UPDATE ERRORS.                     C00#23606
/ALTCP+.1BB/LW,8 1,5(LH,8 1,5)/            1OF6 TSM 11/15/74   C00#23606
/ALTCP+.1BC/OR,8 BITS+32(AND,8 MASKS+15)/  2OF6 TSM 11/15/74   C00#23606
/ALTCP+.1BD/SAS,8 -16(SW,8 7)/             3OF6 TSM 11/15/74   C00#23606
/ALTCP+.1BE/SW,8 7(CI,8 .7FFF)/            4OF6 TSM 11/15/74   C00#23606
/ALTCP+.1BF/BGE ;Q(BG ;Q)/  T:ABORTM       5OF6 TSM 11/15/74   C00#23606
/ALTCP+.1C0/MSP,7 *5(MSP,7 0,5)/           6OF6 TSM 11/15/74   C00#23606
/ERHNDLR+.6F/B ERHNDLR+.54(B ERHNDLR+.56)/       .LIP C00G 1 OF 1 #21779
<C00G DON'T HOLD CHANNEL WHEN MAG TAPE RETRIES ARE ZERO.          #23051
/IOQ+.39C/CW,9 IOQ+.2C7,4(LW,9 IOQ+.2C7,4)/C00G AIS 11/05/74 1OF1 #23051
< SUPER-TRUNC WILL EAT USER'S JIT IF HE HAD >1 FILE BUFFER.      C00#228
/ALTCP+.51/B $-7(B $-5)/                1 OF 1 TSM 10/29/74      C00#228
< PREVENT DUPLICATE KEYS                                     C00G #22886
/RDF+.397/LI,2 RDF+.394(LI,2 RDF+.3A0)/  JFJ 10/30 01-09     C00G #22886
/WRTF+.1CB/B @(STS,7 .8D50)/             JFJ 10/30 02-09     C00G #22886
/@/STS,7 .8D50/                          JFJ 10/30 03-09     C00G #22886
/@/LW,7 .14,6/                           JFJ 10/30 04-09     C00G #22886
/@/LH,7 7/                               JFJ 10/30 05-09     C00G #22886
/@/CH,7 .9602/                           JFJ 10/30 06-09     C00G #22886
/@/BNE WRTF+.1CC/                        JFJ 10/30 07-09     C00G #22886
/@/BAL,0 *WRTF+.1A5/                     JFJ 10/30 08-09     C00G #22886
/@/B WRTF+.473/                          JFJ 10/30 09-09     C00G #22886
< PREVENT FILES FROM DISAPPEARING                            C00G #23614
/WRTF+.18B/B @(BL WRTF+.1AB)/                 JFJ 10/31 01-05 C0G #23614
/@/BL WRTF+.1AB/                              JFJ 10/31 02-05 C0G #23614
/@/BE WRTF+.18C/                              JFJ 10/31 03-05 C0G #23614
/@/LH,3 *14,2/                                JFJ 10/31 04-05 C0G #23614
/@/B WRTF+.18C/                               JFJ 10/31 05-05 C0G #23614
ALLOCAT0//
ALLOCAT1//
<ALLYCAT NEVER STARTS USING PER AREA 2 CARD PAR 11/14 C00G        #23670
ALLOCAT1/ALLYCAT .EE/NOP(BL .-.33/     PAR C0G 1 OF 2 11/14       #23670
ALLOCAT1/ALLYCAT .EB/STH,5 ;Q,1(STH,11 ;Q,1/   2 OF 2 11/14       #23670
FIX0//
< TURN ON FREPORT                                            C00G #EXP
FIX0/D1+.21F/1(0)/ TURN ON FREPORT  JFJ 11/1 1 OF 1          C00G #EXP
FIX1//
< DON'T LOSE BATCH QUEUE ON PACK SWAPPING SYSTEMS             C00 #23679
#DPSIO                    JFJ 11/17 BATCH Q LOST  1 OF 6      C00 #23679    SKIP
/@/LW,9 2/                JFJ 11/17 BATCH Q LOST  3 OF 6      C00 #23679    SKIP
/@/LI,2 0/                JFJ 11/17 BATCH Q LOST  4 OF 6      C00 #23679    SKIP
/@/B P1+.4EF/             JFJ 11/17 BATCH Q LOST  5 OF 6      C00 #23679    SKIP
#                         JFJ 11/17 BATCH Q LOST  6 OF 6      C00 #23679
GHOST10//
GHOST12//
<TAPE FILE DATES TOO RECENT 3 CARDS PAR 11/14 C00G                #23668
GHOST12/M:TM .25/.E000202(.4000002/    PAR C00G 11/14 1 OF 3      #23668
GHOST12/M:TM .26/'0101'/ (RES)         PAR C00G 11/14 2 OF 3      #23668
GHOST12/M:TM .27/'0000'/ (RES)         PAR C00G 11/14 3 OF 3      #23668
GHOST11//
#SL:PWP
<< INCREASE SL:STLM BY SL:PWP SO AS NOT TO BLOCK SYMBIONTS
<< WHILE TP RUNNING
GHOST11/GHOST1D+.19/B @(STW,1 TABLES+.F2)/  JPK 11/13/74 #23660 1 OF 4
/@/AW,1 SL:PWP/                             JPK 11/13/74 #23660 2 OF 4
/@/STW,1 TABLES+.F2/  (SL:STLM)             JPK 11/13/74 #23660 3 OF 4
/@/B GHOST1D+.1A/                           JPK 11/13/74 #23660 4 OF 4
#
< PREVENT S.C. 7E WHEN FILL EXITS                            C00G #23617
GHOST11/GHOST1D+.EA/B @(LI,0 0)/              JFJ 10/31 01-07 C0G #23617
/@/LI,0 0/                                    JFJ 10/31 02-07 C0G #23617
/@/LB,2 UB:ACP,2/                             JFJ 10/31 04-07 C0G #23617
/@/STB,0 PB:DCBSZ,2/                          JFJ 10/31 05-07 C0G #23617
<     CORRECT SC 96 ON PACK SWAPPER DURING ZAP OR X,4          C0G#23617
/@/STB,0 PB:DSZ,2/    KDR  5.1-7 11/06/74                      C0G#23617
/@/B GHOST1D+.EB/                             JFJ 10/31 06-07 C0G #23617
GHOST11/GHOST1D+.FB/'    '(0)/                JFJ 10/31 07-07 C0G #23617
CLOSE//
<  *PATCH  TO FIX RARE SUA-COPYING P2 TO ME                 > C00 #23385
<  *WHEN NO COOP CNTXT IS PRESENT. USER GETS 4000 CANT READ > C00 #23385
<  *OUTPUT FILE RATHER THAN 7F7E.           RJR             > C00 #23385
CLOSE/CLS+.31A/B @(LW,1 1,1)/            001/004 RJR 11/13/74 C00 #23385
/@/STW,1 .8D4E+3/    .J:BASE+3           002/004 RJR 11/13/74 C00 #23385
/@/LW,1 1,1/         .SCDEVTYP           003/004 RJR 11/13/74 C00 #23385
/@/B CLS+.31B/                    .      004/004 RJR 11/13/74 C00 #23385
< PRINT FREPORT DUMP FOR DUAL DIRECTORY ERRORS               C00G #23615
CLOSE/CLS+.73F/;Q+.E(CI,8 .70)/  JFJ 11/1 1 OF 1 FREPORT     C00G #23615
< PUT CORRECT DISC ADDRESS IN ERRLOG FOR 75 ERRORS           C00G #23618
CLOSE/CLS+.6E8/B @(LW,12 2,1)/                JFJ 10/31 01-04 C0G #23618
/@/LW,1 1,6/                                  JFJ 10/31 02-04 C0G #23618
/@/LW,12 2,1/                                 JFJ 10/31 03-04 C0G #23618
/@/B CLS+.6E9/                                JFJ 10/31 04-04 C0G #23618
< PREVENT MORE THAN 1 OCCURRENCE OF AN ACCOUNT IN DIRECTORY  C00G #22902
/@/BCS,15 CLS+.231/                      JFJ 10/30 02-08     C00G #22902
/@/BAL,11 DLT+.94/                       JFJ 10/30 03-08     C00G #22902
/@/B CLS+.225/                           JFJ 10/30 04-08     C00G #22902
CLOSE/CLS+.2E2/B @(STW,11 FILCFU+9)/     JFJ 10/30 05-08     C00G #22902
/@/STW,11 FILCFU+9/                      JFJ 10/30 06-08     C00G #22902
/@/BAL,11 DLT+.94/                       JFJ 10/30 07-08     C00G #22902
/@/B CLS+.2E3/                           JFJ 10/30 08-08     C00G #22902
DEBUG//
ECBOV//                                                                     SKIP
ENQOV//
KEYIN//
<<DON'T STOP ANSTAPE REQUESTS IN KEYIN FOR ANSPROT SYSTEMS. #23557 3 CAR
KEYIN/KEYN+.2D9/NOP(BG KEYN+.3C)/      AR 11/15/74 1 OF 3         #23557
KEYIN/KEYN+.30D/NOP(BG KEYN+.3C)/      AR 11/15/74 2 OF 3         #23557
KEYIN/KEYN+.3AF/NOP(BG KEYN+.3C)/      AR 11/15/74 3 OF 3         #23557
LDLNK//
LTAPE//
<C00G ANS TAPE RUNS AWAY AND CAUSES SC79 IF ZERO BYTES READ       #23647
LTAPE/LBLT+.17D/BAL,0 @(BNE LBLT+.1A9)/C00G JAS 11/08/74 01 OF 06 #23647
/@/BL LBLT+.1A9/                       C00G JAS 11/08/74 02 OF 06 #23647
/@/MTW,0 13,6/                         C00G JAS 11/08/74 03 OF 06 #23647
/@/BNE *0/                             C00G JAS 11/08/74 04 OF 06 #23647
/@/B *LBLT+.177/                       C00G JAS 11/08/74 06 OF 06 #23647
<C00G ANS, MULTI-VOLUME, READ REVERSE FAILS ON ERROR 4E           #23629
LTAPE/LBLT+.197/STS,2 .11,6(STS,2 .11)/C00G JAS 11/01/74 01 OF 01 #23629
<C00G TAPE SN POINTER(DCB:COS) IS INCORRECT FOLLOWING CVOL ERROR  #23622
LTAPE/LBLT+.159/STB,0 *6,1(STB,2 *6,1)/C00G JAS 11/01/74 01 OF 01 #23622
<C00G AUTO CVOL ERRORS NOT DETECTED UNTIL AFTER NEXT READ         #23621
LTAPE/ARDL+.6C/CI,10 0(AI,11 1)/       C00G JAS 11/01/74 01 OF 05 #23621
LTAPE/ARDL+.6D/B @(B *11)/             C00G JAS 11/01/74 02 OF 05 #23621
/@/BNE *11/                            C00G JAS 11/01/74 03 OF 05 #23621
/@/AI,11 1/                            C00G JAS 11/01/74 04 OF 05 #23621
/@/B *11/                              C00G JAS 11/01/74 05 OF 05 #23621
MISOV//
<<USE PROPER MASK TO FREE TP  SLV LINES
MISOV/T:DSMNT+.81/LW,7 TABLES+.EE(LI,7 TABLES+.EE)/ JPK 11/15/74 #23659
MISOV/T:DSMNT+.98/LW,7 TABLES+.EE(LI,7 TABLES+.EE)/ JPK 11/15/74 #23659
< ASSOC DELTA
MISOV/UCAL+.15E/NOP(BANZ UCAL+.2B5)/   C0F  LLA 11/11/74 1 OF 1 #23070
<C00G  ANS TAPES CAUSE 7E-40 FROM AVR ROUTINE                     #23534
MISOV/AVR+.5A/LH,11 AVRID,5(LH,6 AVRID,5)/C0GJAS11/15/74 01 OF 13 #23534
MISOV/AVR+.5F/CI,14 0(LI,14 0)/        C00G JAS 11/15/74 02 OF 13 #23534
MISOV/AVR+.60/BE AVR+.63(STH,14 AVRID,5)/C0GJAS 11/15/74 03 OF 13 #23534
MISOV/AVR+.61/LI,14 0(BAL,11 AVR+.128)/C00G JAS 11/15/74 04 OF 13 #23534
/@/STH,14 AVRID,5/                     C00G JAS 11/15/74 06 OF 13 #23534
/@/PSW,5 TSTACK/                       C00G JAS 11/15/74 07 OF 13 #23534
/@/PSW,6 TSTACK/                       C00G JAS 11/15/74 08 OF 13 #23534
/@/LW,6 11/                            C00G JAS 11/15/74 09 OF 13 #23534
/@/BAL,11 AVR+.128/                    C00G JAS 11/15/74 10 OF 13 #23534
/@/PLW,6 TSTACK/                       C00G JAS 11/15/74 11 OF 13 #23534
/@/PLW,5 TSTACK/                       C00G JAS 11/15/74 12 OF 13 #23534
/@/B AVR+.58/                          C00G JAS 11/15/74 13 OF 13 #23534
MULOV//
<MAKE TWO JOBS W SAME SHARED PACK RUN TOGETHER WHEN THEYRE SUPPOSED TO
MULOV/PV .1F3/STW,3 SSDAT .208(WD .37/ PAR C00G 10/23 1 OF 1      #22877
MULOV/PV .16B/AI,13 1(PLW,7 TSTACK/ C00G PAR 1 OF 1 10/31 7E7F    #23540
OPEN//
<  PREVENT SPURIOUS I/O ERROR AB.  ALSO CAUSES SORT TO ABORT  C00 #23305
<  FOR REASON 8D WHEN CALLED FROM COBOL.                      C00 #23305
OPEN/OPNF+.43/B @(BEZ OPNF+.48)/       JFJ 11/12/74 1  OF 6 #23305
/@/BEZ OPNF+.48/                       JFJ 11/12/74 2  OF 6 #23305
/@/CI,4 TYPMNSZ/                       JFJ 11/12/74 3  OF 6 #23305
/@/BL OPNF+.44/                        JFJ 11/12/74 4  OF 6 #23305
/@/B OPNF+.4A/                         JFJ 11/12/74 5  OF 6 #23305
OPEN/OPN+.219/B OPN+.21C(LI,10 .AB)/   JFJ 11/12/74 6  OF 6 #23305
< HANDLE CORRECTLY BAD FDA OF DIRECTORY                      C00G #23633
/@/STW,8 ACNCFU+4/                   JFJ 11/2  2 OF 4        C00G #23633
/@/BAL,11 RDF+.201/                  JFJ 11/2  3 OF 4        C00G #23633
/@/B OPNF+.462/                      JFJ 11/2  4 OF 4        C00G #23633
< ALLOW DIAGNOSTIC OPEN TO NON-TAPE DEVICE                   C00G #22887
OPEN/OPN+2/B @(B OPN+4)/                 JFJ 10/30 01-04     C00G #22887
/@/BAL,1 IORT+.2B5/                      JFJ 10/30 02-04     C00G #22887
/@/B OPN+5/                              JFJ 10/30 03-04     C00G #22887
OPEN/OPN+4/B OPNF+.30B(BAL,1 IORT+.2B5)/ JFJ 10/30 04-04     C00G #22887
< COUNT # REOPENS TO DISC FILES                              C00G #EXP
OPEN/OPNF+.18C/B @(B 0,5)/               JFJ 10/30 01-09     C00G #EXP
/@/MTW,1 $+6/                            JFJ 10/30 02-09     C00G #EXP
/@/B 0,5/                                JFJ 10/30 03-09     C00G #EXP
OPEN/OPNF+.11B/B @(LW,11 14,6)/          JFJ 10/30 04-09     C00G #EXP
/@/MTW,1 $+3/                            JFJ 10/30 05-09     C00G #EXP
/@/LW,11 14,6/                           JFJ 10/30 06-09     C00G #EXP
/@/B OPNF+.11C/                          JFJ 10/30 07-09     C00G #EXP
/@/0/ # SCANS, DON'T FIND ACTIVE CFU     JFJ 10/30 08-09     C00G #EXP
/@/0/ # SCANS, FIND INACTIVE             JFJ 10/30 09-09     C00G #EXP
OPENTP//
#PRIV
<C00G IT IS POSSIBLE TO OPEN A PREVIOUSLY USED DISK PACK AS A     #23692
<C00G  TAPE, THEN DISMOUNT THE PACK AS A TAPE, LEAVING THE AVR    #23692
<C00G  TABLES IN A STATE SUCH THAT THE SPINDLE CANNOT BE USED     #23692
OPENTP/OPNL+.1F3/B @(LB,1 DCT3,2)/     C00G JAS 11/20/74 01 OF 06 #23692
/@/EXU OPNL+.213/                      C00G JAS 11/20/74 02 OF 06 #23692
/@/CB,4 DCT4,2/                        C00G JAS 11/20/74 03 OF 06 #23692
/@/BNE OPNL+.216/                      C00G JAS 11/20/74 04 OF 06 #23692
/@/LB,1 DCT3,2/                        C00G JAS 11/20/74 05 OF 06 #23692
/@/B OPNL+.1F4/                        C00G JAS 11/20/74 06 OF 06 #23692
#
<C00G REJECTED KEYINS THAT INCLUDE A UNIT SWITCH SOMETIMES        #23655
<C00G  PERFORM THE UNIT SWITCH AND ARE SOMETIMES ACCEPTED         #23655
OPENTP/TYPR+.A8/LW,7 5(SW,5 2)/        C00G JAS 11/13/74 01 OF 10 #23655
OPENTP/TYPR+.A9/SW,5 2(AWM,5 1,6)/     C00G JAS 11/13/74 02 OF 10 #23655
OPENTP/TYPR+.AA/AWM,5 1,6(LD,4 TABLES)/C00G JAS 11/13/74 03 OF 10 #23655
OPENTP/TYPR+.AB/B @(STD,4 AVRTBL,2)/   C00G JAS 11/13/74 04 OF 10 #23655
/@/LD,4 TABLES/                        C00G JAS 11/13/74 05 OF 10 #23655
/@/STD,4 AVRTBL,2/                     C00G JAS 11/13/74 06 OF 10 #23655
/@/MTB,0 SOLICIT,7/                    C00G JAS 11/13/74 07 OF 10 #23655
/@/BEZ TYPR+.AC/                       C00G JAS 11/13/74 08 OF 10 #23655
/@/LW,2 7/                             C00G JAS 11/13/74 09 OF 10 #23655
/@/B TYPR+.56/                         C00G JAS 11/13/74 10 OF 10 #23655
<C00G  LABEL TAPE EXPIRATION DATE IS INCORRECT                    #23658
OPENTP/OPLO+.F1/LM,2 *7,3(LM,2 *7,2)/  C00G JAS 11/13/74 01 OF 01 #23658
<C00G PCL 'LIST TAPE FILE, SPE, COPY TO TAPE', DESTROYS PREVIOUS  #23648
<C00G  CONTENTS OF TAPE                                           #23648
/@/BAZ OPNTP+.5C/                      C00G JAS 11/08/74 02 OF 03 #23648
/@/B OPNTP+.111/                       C00G JAS 11/08/74 03 OF 03 #23648
<C00G MISC AVRTBL ERRORS IF SYSTEM CONTAINS ANY NS TAPES.         #23620
OPENTP/OPNTP+.131/B @(LW,1 15)/        C00G JAS 11/01/74 01 OF 04 #23620
/@/BAL,3 OPNL+.127/                    C00G JAS 11/01/74 02 OF 04 #23620
/@/LW,1 15/                            C00G JAS 11/01/74 03 OF 04 #23620
/@/B OPNTP+.132/                       C00G JAS 11/01/74 04 OF 04 #23620
<C00G  BRANCH TO 0 DURING TAPE CLOSE                              #23533
OPENTP/CLSTP+.1A/BAL,1 CLSTP+.A0(BAL,9 CLSTP+.A0)/C0F JAS 1OF3    #23533
OPENTP/CLSTP+.38/BAL,1 CLSTP+.A0(BAL,9 CLSTP+.A0)/C0F JAS 2OF3    #23533
OPENTP/CLSTP+.A6/B *1(B *9)/           C00F JAS 10/28/74 03 OF 03 #23533
RMAOV//
RTOV//
STEPOVR//
<PB:REP PROBLEM                                             > C0G #21836
STEPOVR/.8166/NOP(LB,2 UB:ACP,4)/        001/032 LLA 11/13/74 C0G #21836
STEPOVR/.8167/NOP(MTB,-1 PB:REP,2)/      002/032 LLA 11/13/74 C0G #21836
STEPOVR/.83F8/NOP(MTB,-1 PB:REP,5)/      003/032 LLA 11/13/74 C0G #21836
STEPOVR/.84A7/B .84B2(LH,5 UH:FLG,4)/    004/032 LLA 11/13/74 C0G #21836
STEPOVR/.84BA/B @(LI,0 .100)/            005/032 LLA 11/13/74 C0G #21836
/@/LW,7 S:CUN/                           006/032 LLA 11/13/74 C0G #21836
/@/LB,7 UB:ACP,7/                        007/032 LLA 11/13/74 C0G #21836
/@/LI,0 .100/                            009/032 LLA 11/13/74 C0G #21836
/@/B .84BB/                              010/032 LLA 11/13/74 C0G #21836
STEPOVR/.8787/PSW,7 TSTACK(LCI 2)/       011/032 LLA 11/13/74 C0G #21836
STEPOVR/.8788/B @(PSM,0 TSTACK)/         012/032 LLA 11/13/74 C0G #21836
/@/LCI 2/                                013/032 LLA 11/13/74 C0G #21836
/@/PSM,0 TSTACK/                         014/032 LLA 11/13/74 C0G #21836
/@/LB,7 *1,4/                            015/032 LLA 11/13/74 C0G #21836
/@/B .8789/                              016/032 LLA 11/13/74 C0G #21836
STEPOVR/.8792/BCS,8 .8794(BCS,8 *0)/     017/032 LLA 11/13/74 C0G #21836
STEPOVR/.8793/B @(MTB,1 PB:REP,5)/       018/032 LLA 11/13/74 C0G #21836
/@/CW,7 5/                               019/032 LLA 11/13/74 C0G #21836
/@/BE $+3/                               020/032 LLA 11/13/74 C0G #21836
/@/MTB,-1 PB:REP,7/                      021/032 LLA 11/13/74 C0G #21836
/@/MTB,1 PB:REP,5/                       022/032 LLA 11/13/74 C0G #21836
STEPOVR/.8794/B @(B *0)/                 023/032 LLA 11/13/74 C0G #21836
/@/PLW,7 TSTACK/                         024/032 LLA 11/13/74 C0G #21836
/@/B *0/                                 025/032 LLA 11/13/74 C0G #21836
STEPOVR/.8453/BE @(BE .8459)/            026/032 LLA 11/13/74 C0G #21836
/@/MTB,-1 PB:REP,1/                      027/032 LLA 11/13/74 C0G #21836
/@/B .8459/                              028/032 LLA 11/13/74 C0G #21836
STEPOVR/.846D/B @(STB,1 UB:ACP,4)/       029/032 LLA 11/13/74 C0G #21836
/@/STB,1 UB:ACP,4/                       030/032 LLA 11/13/74 C0G #21836
/@/B .846E/                              032/032 LLA 11/13/74 C0G #21836
<<FIX FOR >128 SYSTEMS
#:B9+:B560                                                                  SKIP
#JX:CMAP=.8D7D                                                              SKIP
STEPOVR/.8717/LX,2 JX:CMAP,2(LB,2 JX:CMAP,2)/   C0F LLA 1-1 11/11/74 #22    SKIP
#
STEPOVR/.8360/LW,2 .8C2B(LW,2 10,2)/  #23538  LLA  11/1
TQOV1//
TQOV2//
< FIX QMGR ERROR DURING CONTENTION FOR QUEUE #23605
TQOV2/TPQ2+.246/B @(BAL,0 TPQ2+.455)/  C00G NEM 11/07/74 1 OF 9 #23605
/@/CI,3 255/                           C00G NEM 11/07/74 2 OF 9 #23605
/@/BLE $+2/                            C00G NEM 11/07/74 3 OF 9 #23605
/@/LI,3 255/                           C00G NEM 11/07/74 4 OF 9 #23605
/@/LW,1 12/                            C00G NEM 11/07/74 5 OF 9 #23605
/@/SLS,1 2/                            C00G NEM 11/07/74 6 OF 9 #23605
/@/STB,3 1/                            C00G NEM 11/07/74 7 OF 9 #23605
/@/BAL,0 TQIOREJE+2/                   C00G NEM 11/07/74 8 OF 9 #23605
/@/B TPQ2+.247/                        C00G NEM 11/07/74 9 OF 9 #23605
UMOV//
#.8000-HANDLERS                                                             SKIP
#UMOV=0                                                                     SKIP
<  * BIN CARD WITHOUT BCD CAUSES 7E40
UMOV/INSYM+.54/NOP /                     001/007 TD 11/20/74C0G***#23690
UMOV/INSYM+.56/BAL,5 IOQ+.4E1(BAL,15 IOQ+.4E1)/ 2-7 TD 11-20 C00G***
UMOV/INSYM+.5A/B @(BAL,9 .1F,4)/         003/007 TD 11/20/74C0G***#23690
/@/BAL,9  INSYM+.1F/                     004/007 TD 11/20/74C0G***#23690
/@/PLW,11 TSTACK/                        005/007 TD 11/20/74C0G***#23690
/@/BAL,9 INSYM+.13A/                     006/007 TD 11/20/74C0G***#23690
/@/B  INSYM+.FB/                         007/007 TD 11/20/74C0G***#23690
#DPSIO                                                                      SKIP
<<FIX PREF     2 CARDS  JPK 11/18/74 #23687                                 SKIP
UMOV/DPSIO+.229/AND,14 @(AND,14 0)/    JPK 11/18/74 1 OF 2 #23687           SKIP
/@/.FFFE00/                            JPK 11/18/74 2 OF 2 #23687           SKIP
#
<C00G** 'INCONSISTENT STATUS' MSG IS SOMETIMES ERRONEOUSLY SENT   #23656
<C00G** TO THE OPERATOR'S CONSOLE.                                #23656
UMOV/MTAP+.92/BANZ MAGTAPE+.87(BANZ MAGTAPE+.8B)/C00G AIS  1 OF 6 #23656
UMOV/MTAP+.94/B MAGTAPE+.87(B MAGTAPE+.8B)/C00G AIS        2 OF 6 #23656
UMOV/MAGTAPE+.89/B @(CI,4 .B)/         C00G AIS 11/15/74   3 OF 6 #23656
/@/CI,4 .B/                            C00G AIS 11/15/74   4 OF 6 #23656
/@/BE MAGTAPE+.70/                     C00G AIS 11/15/74   5 OF 6 #23656
/@/B MAGTAPE+.87/                      C00G AIS 11/15/74   6 OF 6 #23656
<THIS PATCH CAUSES THE SYMBIONT TO SCREECH 2D-05 ON ANY NON-> C00 #EXPER
<THE PERMISSION OF KING OR DESANTIS -- SMK                  > C00 #EXPER
UMOV/OUTSYM+.C3/B @(STB,11 14)/          001/008 SMK 11/08/74 C00 #EXPER
/@/STB,11 14/                            002/008 SMK 11/08/74 C00 #EXPER
/@/LI,13 .F/                             003/008 SMK 11/08/74 C00 #EXPER
/@/AND,13 11/                            004/008 SMK 11/08/74 C00 #EXPER
/@/CI,13 2/                              005/008 SMK 11/08/74 C00 #EXPER
/@/BE OUTSYM .C4/                        006/008 SMK 11/08/74 C00 #EXPER
/@/XPSD,0  RCVPSD/                       007/008 SMK 11/08/74 C00 #EXPER
/@/.002D0005/                            008/008 SMK 11/08/74 C00 #EXPER
#DPSIO                                                                      SKIP
UMOV/DPSIO+.189/B @(CI,12 1)/                                               SKIP
/@/LB,12 12/                                                                SKIP
/@/CI,12 1/                                                                 SKIP
/@/B DPSIO .18A/                                                            SKIP
#
<C00G** MAG TAPE WT RECOVERY SOMETIMES GETS INTO A LOOP           #23067
UMOV/MTAP+.19/B @(LH,6 DCT7,1)/        C00G AIS 11/05/74 01 OF 10 #23067
/@/CI,4 .73/                           C00G AIS 11/05/74 02 OF 10 #23067
/@/BE MAGTAPE+.85/                     C00G AIS 11/05/74 03 OF 10 #23067
/@/LH,6 DCT7,1/                        C00G AIS 11/05/74 04 OF 10 #23067
/@/B MTAP+.1A/                         C00G AIS 11/05/74 05 OF 10 #23067
UMOV/MAGTAPE+.33/B @(B MAGTAPE+.69)/   C00G AIS 11/05/74 06 OF 10 #23067
/@/BAL,0 HANDLERS+.183/              C00G** AIS 11/12/74 08 OF 10 #23067
/@/STH,5 DCT17,1/                      C00G AIS 11/05/74 09 OF 10 #23067
/@/B MAGTAPE+.85/                      C00G AIS 11/05/74 10 OF 10 #23067
#:B9+:B560                                                                  SKIP
<<FIX FOR >128 SYSTEMS                                                      SKIP
UMOV/SWAPPER+.1C5/LI,4 .FFE3C(LI,4 .FFE3B)/    C00F NEM 10/31/74   1 OF     SKIP
UMOV/SWAPPER+.1C6/SAS,4 -1(SLS,4 -1)/       C00F NEM 2 OF 2 10/31/74        SKIP
#
<C00G GARBAGE MESSAGE ON OC FOR MAG TAPE READ ERRORS.             #23037
UMOV/MTAP+.59/LD,8 DCT13,1(LD,13 DCT13,1)/C00G AIS 11/07/74 1OF1  #23037
RECOVER//
RECOVER/RCVCTL+.2C1/BLE RCVCTL+.2BB(BLE RCVCTL+.2BC)RMC11/7/741-1 23645
RECOVER/RCVCTL+.16C/B RCVCTL+.175(B RCVCTL+.178)/KRD 10/31/74 1-2 #23627
RECOVER/RCVCTL+.170/B RCVCTL+.175(B RCVCTL+.178)/KRD 10/31/74 2-2 #23627
RECOVER/SYMFILS+.15C/.81EAC05C(.81EC5C5C)/C00G KRD 11/1/74 1 - 4  #23628
RECOVER/SYMFILS+.167/.40(0)/              C00G KRD 11/1/74 2 - 4  #23628
RECOVER/SYMFILS+.2B1/.002B0003(.002D0003)/C00G KRD 11/1/74 3 - 4  #23628
RECOVER/SYMFILS+.2B3/.002D0001(.002F0001)/C00G KRD 11/1/74 4 - 4  #23628
*
GENMD ANLZ
DELETE
:GENMD,ANALZO2     A2PP+49,3220000C              .LIP C0G  1-6    #21779
:GENMD,ANALZO2     A2PP+4A,21208C00              .LIP C0G  2-6    #21779
:GENMD,ANALZO2     A2PP+4B,6820004D+A2PP         .LIP C0G  3-6    #21779
:GENMD,ANALZO2     A2PP+4C,20201000              .LIP C0G  4-6    #21779
:GENMD,ANALZO2     A2PP+4D,4B20000E+PATCH        .LIP C0G  5-6    #21779
:GENMD,ANALZ       PATCH+E,0000F000              .LIP C0G  6-6    #21779
:GENMD,ANALZO1     PARTITIONS+52C,02000000       .LIP C00G 01 OF 22#2177
:GENMD,ANALZO1     PARTITIONS+52D,02000000       .LIP C00G 02 OF 22#2177
:GENMD,ANALZO1     PARTITIONS+5DC,02000000       .LIP C00G 03 OF 22#2177
:GENMD,ANALZO1     PARTITIONS+5DD,02000000       .LIP C00G 04 OF 22#2177
:GENMD,ANALZ       PP+6DC,6A000000+PATCH         .LIP C00G 05 OF 22#2177
:GENMD,ANALZ       PATCH+0,09000000+STACK        .LIP C00G 06 OF 22#2177
:GENMD,ANALZ       PATCH+1,6A000000+UNMAP        .LIP C00G 07 OF 22#2177
:GENMD,ANALZ       PATCH+2,08000000+STACK        .LIP C00G 08 OF 22#2177
:GENMD,ANALZ       PATCH+3,68000000+GETADDR      .LIP C00G 09 OF 22#2177
:GENMD,ANALZ       PP+115B,68000004+PATCH        .LIP C00G 10 OF 22#2177
:GENMD,ANALZ       PATCH+4,33700380+DATA         .LIP C00G 11 OF 22#2177
:GENMD,ANALZ       PATCH+5,6A000FD8+PP           .LIP C00G 12 OF 22#2177
:GENMD,ANALZ       PATCH+6,6800115C+PP           .LIP C00G 13 OF 22#2177
:GENMD,ANALZ       PP+153,6A000007+PATCH         .LIP C00G 14 OF 22#2177
:GENMD,ANALZ       PATCH+7,09000000+STACK        .LIP C00G 15 OF 22#2177
:GENMD,ANALZ       PATCH+8,6A000FD8+PP           .LIP C00G 16 OF 22#2177
:GENMD,ANALZ       PATCH+9,08000000+STACK        .LIP C00G 17 OF 22#2177
:GENMD,ANALZ       PATCH+A,68000000+BUFOUT       .LIP C00G 18 OF 22#2177
:GENMD,ANALZ       PP+567,6800000B+PATCH         .LIP C00G 19 OF 22#2177
:GENMD,ANALZ       PATCH+C,6A000FD8+PP           .LIP C00G 21 OF 22#2177
:GENMD,ANALZ       PATCH+D,68000568+PP           .LIP C00G 22 OF 22#2177
:GENMD,ANALZ      PP+B73,32300006                .LIP C00G 1 OF 5P#21779
:GENMD,ANALZO2     A2PP+543,22300003             .LIP C00G 2 OF 5P#21779
:GENMD,ANALZO2     A2PP+544,32E000A4+A2DATA      .LIP C00G 3 OF 5P#21779
:GENMD,ANALZO2     A2PP+545,6A000000+GETADDR     .LIP C00G 4 OF 5P#21779
:GENMD,ANALZO2     A2PP+55E,68000544+A2PP        .LIP C00G 5 OF 5P#21779
GENMD BATCH
DELETE
<FIX MULTIPLE JOB ENTRY IN GHOST MODE                       > C00 #23550
:GENMD,BATCH BATCHPP+F0, 70000000.           1/4 RS  11/13/74 C00 #23550
:GENMD,BATCH BATCHPP+116,22200000+J:UNAME.   2/4 RS  11/13/74 C00 #23550
:GENMD,BATCH BATCHPP+10E,72340000+J:UNAME.   3/4 RS  11/13/74 C00 #23550
:GENMD,BATCH BATCHPP+26, 00000003+J:UNAME. 4/004 RS  11/13/74 C00 #23550
<FIX 'T' OPTION WITH MULTIPLE JOB GENERATION                > C00 #23096
:GENMD,BATCH BATCHPP+19C,693001C3+BATCHPP. 1/1   RS  10/23/74 C00 #23096
<FIX EXEC OPTION WITH MULTIPLE JOB GENERATION               > C00 #22832
:GENMD,BATCH BATCHPP+199,70000000.       001/001 RS  10/23/74 C00 #22832
<FIX BATCH TO RUN IN GHOST MODE                             > C00 #23643
:GENMD,BATCH SECT1+4E4,68000000+PATCH.   001/004 RS  11/07/74 C00 #23643
:GENMD,BATCH PATCH+0,  22200000.         002/004 RS  11/07/74 C00 #23643
:GENMD,BATCH PATCH+1,  70300000+J:JIT.   003/004 RS  11/07/74 C00 #23643
GENMD CCI
DELETE
<C00G  PREVENTS ABORTING OF JOB WITH LEGAL PMD CONTROL COMMAND.   #23544
:GENMD,CCI HEXCK+FF,69C00148+HEXCK         .C00G CHK 11/5/74 1OF2 #23544
:GENMD,CCI HEXCK+11A,69C00148+HEXCK        .C00G CHK 11/5/74 2OF2 #23544
<C00G  PREVENT RELEASING OF LOAD MODULE WHEN 'MAPONLY' SPECIFIED  #23543
<C00G  ON LOAD OR LOCCT COMMANDS.                                 #23543
:GENMD,CCI LDR+250,68000000+CCIPCH         .C00G CHK 11/1/74 1OF3 #23543
:GENMD,CCI CCIPCH,22100008,49100000+Y004,; .C00G CHK 11/1/74 2OF3 #23543
:68000251+LDR                              .C00G CHK 11/1/74 3OF3 #23543
GENMD DEFCOM
GENMD DELTA
GENMD DRSP
GENMD EDIT
GENMD ELLA
DELETE
:GENMD,ELLACSL ST+EF5,0220027E . GAP 11/14 P23638
:GENMD,ELLACSL ST+CAC,F5F20CAD+ST . GAP 11/14 P23055
GENMD ERR:FIL
DELETE
:GENMD,ERR:FIL     ERR:FIL+112,68000000+PATCH         .LIP 1 OF 9 #21779
:GENMD,ERR:FIL     PATCH+0,73080000+DCT22             .LIP 2 OF 9 #21779
:GENMD,ERR:FIL     PATCH+2,72200018+DATA              .LIP 3 OF 9 #21779
:GENMD,ERR:FIL     PATCH+3,21200015                   .LIP 4 OF 9 #21779
:GENMD,ERR:FIL     PATCH+4,E9300001                   .LIP 5 OF 9 #21779
:GENMD,ERR:FIL     PATCH+5,22200000                   .LIP 6 OF 9 #21779
:GENMD,ERR:FIL     PATCH+6,35260057+DATA              .LIP 7 OF 9 #21779
:GENMD,ERR:FIL     PATCH+7,E8000001                   .LIP 8 OF 9 #21779
:GENMD,ERR:FIL     ERR:FIL+12D,02000000               .LIP 9 OF 9 #21779
GENMD FILL
DELETE
<THIS PATCH PREVENTS AN ERROR SNAP WHEN FILLING A BUSY FILE.> C00 #22884
:GENMD,FILL FILL+329,68000004+PATCH.     001/006 LLF 10/29/74 C00 #22884
:GENMD,FILL PATCH+4,02200030.            002/006 LLF 10/29/74 C00 #22884
:GENMD,FILL PATCH+5,0A800000+ENVIR.      003/006 LLF 10/29/74 C00 #22884
:GENMD,FILL PATCH+6,21A20000.            004/006 LLF 10/29/74 C00 #22884
:GENMD,FILL PATCH+7,69400127+FILL.       005/006 LLF 10/29/74 C00 #22884
:GENMD,FILL PATCH+8,6800032D+FILL.       006/006 LLF 10/29/74 C00 #22884
<THIS PATCH PREVENTS A LOOP IN MAILBOX WHICH OCCURS IF THE  > C00 #22881
<MAILBOX FILE TO BE BUILT/UPDATED GETS A 750X ERROR WHEN    > C00 #22881
<OPENED. FILL WOULD LOOP ON A 0A ABNORMAL FOR MAILBOX.      > C00 #22881
:GENMD,FILL MAIL+3D,68000000+PATCH.      001/005 LLF 10/28/74 C00 #22881
:GENMD,FILL PATCH,52000000+F:MAIL.       002/005 LLF 10/28/74 C00 #22881
:GENMD,FILL PATCH+1,21000020.            003/005 LLF 10/28/74 C00 #22881
:GENMD,FILL PATCH+3,6800003E+MAIL.       005/005 LLF 10/28/74 C00 #22881
GENMD FRES
DELETE
:GENMD,FRES START+435,2240A249         .BH 10/29 1OF1 C00G        #23623
:GENMD,FRES +A074,19000000+PATCH       .BH 11/01 1OF9 C00G        #23624
:GENMD,FRES PATCH+00,0460A168          .BH 11/01 2OF9 C00G        #23624
:GENMD,FRES PATCH+01,32100000+S:CUN    .BH 11/01 3OF9 C00G        #23624
:GENMD,FRES PATCH+02,72220000+UB:MF    .BH 11/01 4OF9 C00G        #23624
:GENMD,FRES PATCH+03,68300439+START    .BH 11/01 5OF9 C00G        #23624
:GENMD,FRES PATCH+04,6A000317+START    .BH 11/01 6OF9 C00G        #23624
:GENMD,FRES PATCH+05,223007D0          .BH 11/01 7OF9 C00G        #23624
:GENMD,FRES PATCH+06,64300006+PATCH    .BH 11/01 8OF9 C00G        #23624
:GENMD,FRES PATCH+07,68000000+PATCH    .BH 11/01 9OF9 C00G        #23624
GENMD FSAVE
DELETE
:GENMD,FSAVE +BBDE,19000000+PATCH       .BH 11/01 1OF11 C00G      #23635
:GENMD,FSAVE PATCH+00,0460AEA1          .BH 11/01 2OF11 C00G      #23635
:GENMD,FSAVE PATCH+01,32100000+S:CUN    .BH 11/01 3OF11 C00G      #23635
:GENMD,FSAVE PATCH+02,72220000+UB:MF    .BH 11/01 4OF11 C00G      #23635
:GENMD,FSAVE PATCH+03,68300008+PATCH    .BH 11/01 5OF11 C00G      #23635
:GENMD,FSAVE PATCH+04,6AF007FA+START    .BH 11/04 6OF11 C00G      #23635
:GENMD,FSAVE PATCH+05,223007D0          .BH 11/01 7OF11 C00G        #236
:GENMD,FSAVE PATCH+07,68000000+PATCH    .BH 11/01 9OF11 C00G      #23635
:GENMD,FSAVE PATCH+08,6AF007FA+START    .BH 11/04 10OF11 C00G     #23635
:GENMD,FSAVE PATCH+09,680008F9+START    .BH 11/01 11OF11 C00G     #23635
GENMD LDEV
GENMD LINK
GENMD LOADER
DELETE
<PATCH TO FIX NEGATIVE MAPPER SIZES
:GENMD,FIN MCFN+68C,6800000C+PATCH    .C00G ZGD 11/19/74 01 OF 9  #20595
:GENMD,LDR PATCH+C,33000000+CSEGNO    .C00G ZGD 11/19/74 02 OF 9  #20595
:GENMD,LDR PATCH+D,69300693+MCFN      .C00G ZGD 11/19/74 03 OF 9  #20595
:GENMD,LDR PATCH+E,21300001           .C00G ZGD 11/19/74 04 OF 9  #20595
:GENMD,LDR PATCH+F,69200693+MCFN      .C00G ZGD 11/19/74 05 OF 9  #20595
:GENMD,LDR PATCH+10,32400000+LOCCT    .C00G ZGD 11/19/74 06 OF 9  #20595
:GENMD,LDR PATCH+11,32D80004          .C00G ZGD 11/19/74 07 OF 9  #20595
:GENMD,LDR PATCH+12,4BD00000+M17      .C00G ZGD 11/19/74 08 OF 9  #20595
:GENMD,LDR PATCH+13,6800068F+MCFN     .C00G ZGD 11/19/74 09 OF 9  #20595
< PATCH CORRECTS EMPTY UMOV SYSGEN PROBLEM   C00G  ZGD   11/06/74
:GENMD,SQZ MCSQ+115,68000000+PATCH    .C00G ZGD 11/06/74 01 OF 10 #EXP
:GENMD,LDR PATCH,21600001             .C00G ZGD 11/06/74 02 OF 10 #EXP
:GENMD,LDR PATCH+1,6840000A+PATCH     .C00G ZGD 11/06/74 03 OF 10 #EXP
:GENMD,LDR PATCH+2,33F00000+KICKOUT   .C00G ZGD 11/06/74 04 OF 10 #EXP
:GENMD,LDR PATCH+5,30700006           .C00G ZGD 11/06/74 06 OF 10 #EXP
:GENMD,LDR PATCH+6,32C00000+Y018      .C00G ZGD 11/06/74 07 OF 10 #EXP
:GENMD,LDR PATCH+7,35CFFFFF,38700006  .C00G ZGD 11/06/74 08 OF 10 #EXP
:GENMD,LDR PATCH+9,2570000F,25600110  .C00G ZGD 11/06/74 09 OF 10 #EXP
:GENMD,LDR PATCH+B,68000116+MCSQ      .C00G ZGD 11/06/74 10 OF 10 #EXP
GENMD LOGON
GENMD PASS2
DELETE
<REMOVE UMOV IF NO HANDLERS2 COMMAND                        > C0G #23682
SPROCS,+AF00,6800AF33.                   001/009 PAR 11/13/74 C0G #23682
,+AED7,226FFFEA,20A00018,32ECAE5B.       002/009 PAR 11/13/74 C0G #23682
,+AF0E,211F0000.                         003/009 PAR 11/13/74 C0G #23682
,+AF2C,20CFFFFE,92A0000C,95A00001.       004/009 PAR 11/13/74 C0G #23682
,+AF2F,22100000,9510000C,B5100008.       005/009 PAR 11/13/74 C0G #23682
,+AF32,6800AF15,22D0AEB4,2200020.        006/009 PAR 11/13/74 C0G #23682
,+AF35,2AA0AE5B,3306005F,6930AF04.       007/009 PAR 11/13/74 C0G #23682
,+AF38,6800AF07.                         008/009 PAR 11/13/74 C0G #23682
,+AEFD,22400005,222FFFFF.                009/009 PAR 11/13/74 C0G #23682
<C00PATCH,PASS2 DOES NOT BUILD M:IOMOD WHEN :COC CC IS MISSING    #23652
:GENMD,P2CCI PASS2+89,21100014.        C00  LA  11/11/74 01 OF 19 #23652
:GENMD,P2CCI PASS2+97,6910A5B8.        C00  LA  11/11/74 02 OF 19 #23652
:GENMD,P2CCI PASS2+AE,21100014.        C00  LA  11/11/74 03 OF 19 #23652
:GENMD,P2CCI P2PATCH+0,32400005.       C00  LA  11/11/74 04 OF 19 #23652
:GENMD,P2CCI P2PATCH+1,330A0007.       C00  LA  11/11/74 05 OF 19 #23652
:GENMD,P2CCI P2PATCH+2,6820AF92.       C00  LA  11/11/74 06 OF 19 #23652
:GENMD,P2CCI P2PATCH+3,6800AF38.       C00  LA  11/11/74 07 OF 19 #23652
:GENMD,P2CCI P2PATCH+4,8A400000.       C00  LA  11/11/74 08 OF 19 #23652
:GENMD,P2CCI P2PATCH+5,33080007.       C00  LA  11/11/74 09 OF 19 #23652
:GENMD,P2CCI P2PATCH+6,6820B249.       C00  LA  11/11/74 10 OF 19 #23652
:GENMD,P2CCI P2PATCH+7,6800AFB5.       C00  LA  11/11/74 11 OF 19 #23652
:GENMD,P2CCI P2PATCH+8,3280B384.       C00  LA  11/11/74 12 OF 19 #23652
:GENMD,P2CCI P2PATCH+9,330A0007.       C00  LA  11/11/74 13 OF 19 #23652
:GENMD,P2CCI P2PATCH+A,6820B2DE.       C00  LA  11/11/74 14 OF 19 #23652
:GENMD,P2CCI P2PATCH+B,6800B2D2.       C00  LA  11/11/74 15 OF 19 #23652
:GENMD,P2CCI PASS2+81D,03C1E201.       C00  LA  11/11/74 16 OF 19 #23652
:GENMD,P2COC +AF37,6800AD0A.           C00  LA  11/11/74 17 OF 19 #23652
:GENMD,P2COC +AFB4,6800AD0E.           C00  LA  11/11/74 18 OF 19 #23652
:GENMD,P2COC +B2D1,6800AD12.           C00  LA  11/11/74 19 OF 19 #23652
<C00PATCH PASS2 NEGLECTS TO BUILD M:SPROCS WHEN SPROCS CC MISSING #23644
:GENMD,P2CCI PASS2+A4,69000000.        C00  LA  11/08/74 1 OF 1   #23644
<C00PATCH DP SWAP FLAG NOT SET FOR 7275 AND 7261 DP SWAPPERS      #23683
:GENMD,UBCHAN +B297,32420001.          C00  LA  11/18/74 01 OF 17 #23683
:GENMD,UBCHAN +B298,4B40C1EA.          C00  LA  11/18/74 02 OF 17 #23683
:GENMD,UBCHAN +B299,3140C1E4.          C00  LA  11/18/74 03 OF 17 #23683
:GENMD,UBCHAN +B29A,6930B2A2.          C00  LA  11/18/74 04 OF 17 #23683
:GENMD,UBCHAN +B29B,224FFFFA.          C00  LA  11/18/74 05 OF 17 #23683
:GENMD,UBCHAN +B29D,31B8BF7E.          C00  LA  11/18/74 07 OF 17 #23683
:GENMD,UBCHAN +B29E,6830B2BA.          C00  LA  11/18/74 08 OF 17 #23683
:GENMD,UBCHAN +B29F,6540B2A0.          C00  LA  11/18/74 09 OF 17 #23683
:GENMD,UBCHAN +B2A0,6540B29D.          C00  LA  11/18/74 10 OF 17 #23683
:GENMD,UBCHAN +B2A1,6800BEA9.          C00  LA  11/18/74 11 OF 17 #23683
:GENMD,UBCHAN +B2A2,3140C1E5.          C00  LA  11/18/74 12 OF 17 #23683
:GENMD,UBCHAN +B2A3,6930BEA9.          C00  LA  11/18/74 13 OF 17 #23683
:GENMD,UBCHAN +B2A4,6800B2A6.          C00  LA  11/18/74 14 OF 17 #23683
:GENMD,UBCHAN +C1EA,00003F00.          C00  LA  11/18/74 15 OF 17 #23683
:GENMD,UBCHAN +BFFB,1E000003.          C00  LA  11/18/74 16 OF 17 #23683
:GENMD,UBCHAN +BFFD,1E000004.          C00  LA  11/18/74 17 OF 17 #23683
<C00PATCH UNDER CERTAIN CONDITIONS 'RAS' WONT BE PUT IN SPEC:HAND #23689
:GENMD,UBCHAN +BC98,3260C0FE.          C00  LA  11/18/74  1 OF 4  #23689
:GENMD,UBCHAN +BC99,20600001.          C00  LA  11/18/74  2 OF 4  #23689
:GENMD,UBCHAN +BC9A,15CCC0FE.          C00  LA  11/18/74  3 OF 4  #23689
:GENMD,UBCHAN +BC9B,3560C0FE.          C00  LA  11/18/74  4 OF 4  #23689
GENMD PASS3
DELETE
<ALLOW 5 NAMES IN OVNAMES RECORD OF SPEC:HAND               > C0G #23682
,+A3FC,6830A40F.                         001/009 PAR 11/13/74 C0G #23682
,+A40F,3270A70C,12AEA70C,15A2A70C.       002/009 PAR 11/13/74 C0G #23682
,+A497,6830A407.                         003/009 PAR 11/13/74 C0G #23682
,+A40A,15C0A722,6800A4D1.                005/009 PAR 11/13/74 C0G #23682
,+A4D7,15C4A718.                         006/009 PAR 11/13/74 C0G #23682
,+A4D9,2000000.                          007/009 PAR 11/13/74 C0G #23682
,+A718,2F404040.                         008/009 PAR 11/13/74 C0G #23682
,+A956,A718.                             009/009 PAR 11/13/74 C0G #23682
<< FIX LOOP ON HANDLERS2 PROCESSING
:GENMD,PASS3 PASS3+29B,E800000B        .JPK 11/06/74 #23646 1 OF 2
:GENMD,PASS3 PASS3+2C6,68000270+PASS3  .JPK 11/06/74 #23646 2 OF 2
GENMD PCL
DELETE
< PCL--TO CORRECT BRANCH ADDRESS IN ANS UNBLOCKING ROUTINE.
:GENMD,PCL RDWRT+2CE,691002D0+RDWRT.   C00G CAI 11/15/74 01 OF 01 #23680
< TO PREVENT COPYSTD FROM PERFORMING EXTRA REWIND
:GENMD,PCL COPYALL+250,6AB00000+CLOSEI.C00G CAI 11/13/74 01 OF 02 #22035
:GENMD,PCL COPYALL+25A,041002B4+COPYTRAN.0G CAI 11/13/74 02 OF 02 #22035
GENMD RBBAT
DELETE
GENMD RBBAT
<PATCH TO ALLOW ONLINE ACCESS TO DISP INFO............      > C00 #EXPER
:GENMD,RBBAT RBBP+1DA,0A0A0A0A.          001/041 SMK 11/12/74 C00 #EXPER
:GENMD,RBBAT RBG+160,680001DB+RBBP.      002/041 SMK 11/12/74 C00 #EXPER
:GENMD,RBBAT RBBP+1DB,22100004.          003/041 SMK 11/12/74 C00 #EXPER
:GENMD,RBBAT RBBP+1DD,69300161+RBG.      005/041 SMK 11/12/74 C00 #EXPER
:GENMD,RBBAT RBBP+1DE,22E01515.          006/041 SMK 11/12/74 C00 #EXPER
:GENMD,RBBAT RBBP+1DF,02200000.          007/041 SMK 11/12/74 C00 #EXPER
:GENMD,RBBAT RBBP+1E0,0B00A088.          008/041 SMK 11/12/74 C00 #EXPER
:GENMD,RBBAT RBBP+1E1,3310A0C4.          009/041 SMK 11/12/74 C00 #EXPER
:GENMD,RBBAT RBBP+1E2,22C00000.          010/041 SMK 11/12/74 C00 #EXPER
:GENMD,RBBAT RBBP+1E3,22500000+LCLX.     011/041 SMK 11/12/74 C00 #EXPER
:GENMD,RBBAT RBBP+1E4,68000E82+RBG.      012/041 SMK 11/12/74 C00 #EXPER
:GENMD,RBBAT RBG+EFF,680001E5+RBBP.      013/041 SMK 11/12/74 C00 #EXPER
:GENMD,RBBAT RBBP+1E5,32F60000.          014/041 SMK 11/12/74 C00 #EXPER
:GENMD,RBBAT RBBP+1E6,4BF00000+M8.       015/041 SMK 11/12/74 C00 #EXPER
:GENMD,RBBAT RBBP+1E7,21F00009.          016/041 SMK 11/12/74 C00 #EXPER
:GENMD,RBBAT RBBP+1E8,683001EB+RBBP.     017/041 SMK 11/12/74 C00 #EXPER
:GENMD,RBBAT RBBP+1E9,32F60001.          018/041 SMK 11/12/74 C00 #EXPER
:GENMD,RBBAT RBBP+1EA,68000F00+RBG.      019/041 SMK 11/12/74 C00 #EXPER
:GENMD,RBBAT RBBP+1EB,22500000+LCLX.     020/041 SMK 11/12/74 C00 #EXPER
:GENMD,RBBAT RBBP+1EC,32FA0000+RB:MFAD.  021/041 SMK 11/12/74 C00 #EXPER
:GENMD,RBBAT RBBP+1ED,683001EF+RBBP.     022/041 SMK 11/12/74 C00 #EXPER
:GENMD,RBBAT RBBP+1EE,6A800C1E+RBG.      023/041 SMK 11/12/74 C00 #EXPER
:GENMD,RBBAT RBBP+1EF,02200000.          024/041 SMK 11/12/74 C00 #EXPER
:GENMD,RBBAT RBBP+1F0,0A00A088.          025/041 SMK 11/12/74 C00 #EXPER
:GENMD,RBBAT RBBP+1F1,680001DB+RBBP.     026/041 SMK 11/12/74 C00 #EXPER
:GENMD,RBBAT RBBP+1F2,3210A002.          028/041 SMK 11/12/74 C00 #EXPER
:GENMD,RBBAT RBBP+1F3,32120000.          029/041 SMK 11/12/74 C00 #EXPER
:GENMD,RBBAT RBBP+1F4,4B100000+M8.       030/041 SMK 11/12/74 C00 #EXPER
:GENMD,RBBAT RBBP+1F5,21100009.          031/041 SMK 11/12/74 C00 #EXPER
:GENMD,RBBAT RBBP+1F6,683001F9+RBBP.     032/041 SMK 11/12/74 C00 #EXPER
:GENMD,RBBAT RBBP+1F7,22100021.          033/041 SMK 11/12/74 C00 #EXPER
:GENMD,RBBAT RBBP+1F8,68000C76+RBG.      034/041 SMK 11/12/74 C00 #EXPER
:GENMD,RBBAT RBBP+1F9,22101515.          035/041 SMK 11/12/74 C00 #EXPER
:GENMD,RBBAT RBBP+1FA,35140000+BW:FORM.  036/041 SMK 11/12/74 C00 #EXPER
:GENMD,RBBAT RBBP+1FB,22100004.          037/041 SMK 11/12/74 C00 #EXPER
:GENMD,RBBAT RBBP+1FC,75140000+BB:DEV.   038/041 SMK 11/12/74 C00 #EXPER
:GENMD,RBBAT RBBP+1FD,22100022.          039/041 SMK 11/12/74 C00 #EXPER
:GENMD,RBBAT RBBP+1FE,22800C80+RBG.      040/041 SMK 11/12/74 C00 #EXPER
:GENMD,RBBAT RBBP+1FF,680002E3+RBG.      041/041 SMK 11/12/74 C00 #EXPER
<WELL, FOR THE THIRD RELEASE IN A ROW I BLEW THE CODE THAT K> C00 #23666
<KEEPS REMOTE TERMINALS RBX'ED ACROSS RECOVERIES.  HERE'S   > C00 #23666
<THE C00 PATCH (WHICH WONT  HURT NON-RP  SYSTEMS).  I HOPE I> C00 #23666
<CAN GET IT RIGHT IN C01 -- SMK                             > C00 #23666
:GENMD,RBBAT RBG+CF3,68000000+RBBP.      001/006 SMK 11/14/74 C00 #23666
:GENMD,RBBAT RBBP,3290A059 .             002/006 SMK 11/14/74 C00 #23666
:GENMD,RBBAT RBBP+1,21900208.            003/006 SMK 11/14/74 C00 #23666
:GENMD,RBBAT RBBP+2,68400020+RBG.        004/006 SMK 11/14/74 C00 #23666
:GENMD,RBBAT RBBP+4,68000CF4+RBG.        006/006 SMK 11/14/74 C00 #23666
#PRIV
<THIS PATCH CORRECTS AN ERROR IN MBS THAT MAY BE RESPONSIBLE> C00 #23612
<FOR VARIOUS PRIVATE PACK PROBLEMS INCLUDING PERHAPS S.C.22'> C00 #23612
<THE ONLY PRROBLEM WE ARE SURE IT CORRECTS IS THE REPORTING > C00 #23612
<OF SPURIOUS I/O ERRORS 20-03 WHEN PACKS TO BE USED SHARED  > C00 #23612
<ARE PREMOUNTED.  WONT HURT NON-PRIVATE PACK SYSTEMS-- SMK  > C00 #23612
:GENMD,RBBAT MBSOP+1B1,530C0000+AVRNOU . 001/001 SMK 11/14/74 C00 #23612
#
GENMD RUNNER
GENMD RVGHOST
GENMD SUPER
DELETE
#7T                                                                         SKIP
<EXPR PATCH TO ALLOW SUPER FROM ANY CO ACCT                 > C00 #EXP
     SKIP
:GENMD,SUPER START+9,6930000D+START.     001/009 RS  09/26/74 C00 #EXP
     SKIP
:GENMD,SUPER START+C,68300010+START.     002/009 RS  09/26/74 C00 #EXP
     SKIP
:GENMD,SUPER UMOD+69,68000020+PATCH.     003/009 RS  09/26/74 C00 #EXP
     SKIP
:GENMD,SUPER PATCH+20,322000FB+SUPERP.   004/009 RS  09/26/74 C00 #EXP
     SKIP
:GENMD,SUPER PATCH+21,323000FC+SUPERP.   005/009 RS  09/26/74 C00 #EXP
     SKIP
:GENMD,SUPER PATCH+22,11200000+INBUFF.   006/009 RS  09/26/74 C00 #EXP
     SKIP
:GENMD,SUPER PATCH+23,683002B6+UMOD.     007/009 RS  09/26/74 C00 #EXP
     SKIP
:GENMD,SUPER PATCH+25,6800006A+UMOD.     009/009 RS  09/26/74 C00 #EXP
     SKIP
#
GENMD SYSCON
DELETE
<ALLOW QUAC TEST IN BATCH MODE.        B00  REJ 01/21/74 1 OF 2
:GENMD,SYSCON BACH:OK,02000000.        B00  REJ 01/21/74 2 OF 2
GENMD TEL
GENMD TPG
!EOD
