<************************* SST 10-81 ************************
< THIS PATCH FILE CONSISTS OF THE LADC OFFICIAL PATCH FILE, PLUS
< CORRECTIONS AND ADDITIONS WHICH CAME FROM SOURCES OTHER THAN LADC.
< THE USER-SUBMITTED PATCHES FOUND HEREIN ARE ALSO CONTAINED IN
< THE FILES 'CHRONO-USERS' AND 'SELECT-USERS'.
< UNSUPPORTED, USER-SUPPLIED PATCHES CAN BE IDENTIFIED BY AN
< 'X' IN COLUMN 67 (INSTEAD OF THE USUAL '#'), PRECEEDING THE
< SIDR NUMBER.
< AS THIS PATCH FILE IS NOT OFFICIAL, AND AS THE USER-SUPPLIED
< PATCHES HAVE NOT BEEN VERIFIED BY HONEYWELL LADC, EXTREME CARE
< SHOULD BE EXERCISED IN USING THIS FILE.
< **THIS FILE IS NOT SIDRABLE! NOTIFY YOUR FIELD ENGINEERING
< CONTACT (THE TAC) OF ANY PROBLEMS.*********************************
<******************
< NOTE: CONDITIONAL SYMBOL 'ELLAF01' REFERS TO THE NEW VERSION
< DEFINE SYMBOLS FOR THE APPROPRIATE L6G VERSION IF THE MODULE L6R
<   IS PRESENT IN THE MONITOR.
<
#L6R
#L6GA00=0
#L6GB00=0
#L6GC00=0
#
<
< L6R VERSION C01, RELEASED FEBRUARY 1981, DEFINES 'L6GC01' = 1.
<
< 10/4/79                                                         #32289
< NOTE: SIDR#32289, DATED 10/2/79, IS TURNED ON BY SETTING        #32289
<       CONDITIONAL SYMBOL 'X560'. USE '#X560=1'                  #32289
#X560=0
<************************************************************
< VOLINIT VERSION E02 IS THE ONLY VERSION CURRENTLY SUPPORTED:
#E02VOL=1
<
<************************************************************
< ROOT PATCHES FOLLOW
<************************************************************
< STAR FILES SHOULD BE ACCOUNTED FOR AS TEMPORARY GRANS, AND      X32960
< SHOULD BE RELEASED BACK TO TEMP. 3 PATCHES TO ROOT, 5 TO CLOSE  X32960
/WRTF+.32E/BANZ @(BANZ WRTF+.331/        GB  EXP-F 810616 001-009 X32960
/@/LI,5 .132/                            GB  EXP-F 810616 002-009 X32960
/@/B WRTF+.331/                          GB  EXP-F 810616 003-009 X32960
< CAUSE DATE AS WELL AS TIME TO PRINT ON OC:                      X32958
#TEMPT=TABLES+.156                       FHK EXP-F 810106 001-021 X32958
#DATE=LITERALS+.AC                       FHK EXP-F 810106 002-021 X32958
#TEMP2=@@                                FHK EXP-F 810106 003-021 X32958
/@@/0/                                   FHK EXP-F 810106 004-021 X32958
/@/O/                                    FHK EXP-F 810106 005-021 X32958
/@/0/                                    FHK EXP-F 810106 006-021 X32958
/@/0/                                    FHK EXP-F 810106 007-021 X32958
/CLOCK4+.C3/LI,2 .0F15(LI,2 .0715/       FHK EXP-F 810106 008-021 X32958
/CLOCK4+.C5/AI,3 .407A(AI,3 .157A/       FHK EXP-F 810106 009-021 X32958
/CLOCK4+.C7/B @(STD,2 TEMPT/             FHK EXP-F 810106 010-021 X32958
/@/STD,2 TEMPT/                          FHK EXP-F 810106 011-021 X32958
/@/STD,2 TEMP2/                          FHK EXP-F 810106 012-021 X32958
/@/LW,3 DATE/                            FHK EXP-F 810106 013-021 X32958
/@/LI,2 .4040/                           FHK EXP-F 810106 014-021 X32958
/@/SLD,2 16/                             FHK EXP-F 810106 015-021 X32958
/@/AI,3 .1561/                           FHK EXP-F 810106 016-021 X32958
/@/SCS,3 -8/                             FHK EXP-F 810106 017-021 X32958
/@/STD,2 TEMP2+2/                        FHK EXP-F 810106 018-021 X32958
/@/B CLOCK4+.C8/                         FHK EXP-F 810106 019-021 X32958
/CLOCK4+.CE/LI,1 TEMP2(LI,1 TEMPT/       FHK EXP-F 810106 020-021 X32958
#TEMP2;KTEMPT;KDATE;K1                   FHK EXP-F 810106 021-021 X32958
< THE SWAPPER CLOBBERS THE FIRST WORD OF THE SEEK ADDRESS WHEN    X32577
< IT INSERTS THE TIC INTO THE CLIST. SOLUTION IS TO RESTRICT      X32577
< MAXIMUM USER SIZE TO .B7 PAGES.                                 X32577
/BOOTSUBR+.12B/CI,11 .B7(CI,11 .B8/      JBC EXP-F 801112 001-002 X32577
/BOOTSUBR+.12D/LI,11 .B7(LI,11 .B8/      JBC EXP-F 801112 002-002 X32577
< FIX HOTAVR ON FREE TAPES                                        X32393
/HOTAVR+.2E/BCS,6 HOTAVR+.11(BCS,6 HOTAVR+.55/  -F 800905 001-001 X32393
#NSCPU                                   JBC F00 04/22/80 001-008 XE-007
< THIS PATCH WILL RESET THE MASTER-PERM BIT THAT GETS SET         XE-007
< IF THE MP PERFORMANCE PATCH (#31662) IS INSTALLED.  THE BIT     XE-007
<CAN BE RESET BY ANY PROGRAM (MASTER OR SLAVE) BY EXECUTING       XE-007
< A CAL1,6 WITH AN FPT OF X'0B000000' (CAL1,6 =X'0B000000').      XE-007
<THIS IS THE "SET CPU" CAL. NOTE THAT WITH 31662                  XE-007
<INSTALLED A PROGRAM THAT GOES MASTER MODE AND THEN GOES BACK     XE-007
<SLAVE WILL STILL BE BLOCKED TO THE MASTER ONLY. THE COMMENTS     XE-007
<ON #31662 INDICATE THAT YOU NEED TO RESET THE BITS YOURSELF (AND XE-007
<INDICATE THAT YOU CAN RUN ON A SLAVE CPU IN MASTER MODE, WHICH   XE-007
<YOU REALLY CANT DO), THEREFORE YOU HAVE TO REFERENCE UB:MPFLGS   XE-007
<AND LOAD THE PROGRAM WITH MONSTK. IF YOU WILL INCLUDE THIS       XE-007
<PATCH ALL THAT YOUR PROGRAMS WILL HAVE TO DO IS THE CAL1,6 TO    XE-007
<CLEAR THE MASTER-PERM BIT.                                       XE-007
/ALTCP+.E8/B @(B SCHED+.4D/              JBC F00 04/22/80 002-008 XE-007
/@/LB,7 UB:MPFLG,4/                      JBC F00 04/22/80 003-008 XE-007
/@/AND,7 $+3/                            JBC F00 04/22/80 004-008 XE-007
/@/STB,7 UB:MPFLG,4/                     JBC F00 04/22/80 005-008 XE-007
/@/B SCHED+.4D/                          JBC F00 04/22/80 006-008 XE-007
/@/.000000BF/                            JBC F00 04/22/80 007-008 XE-007
#1                                       JBC F00 04/22/80 008-008 XE-007
#NSCPU                                   JBC F00 04/21/80 001-009 XE-008
< THIS PATCH WILL CAUSE ENTRY TO INCLUDE THE PROCESSOR NUMBER     XE-008
< IN THE TRAP INFORMATION THAT IS STORED INTO J:TRAP(16-31).      XE-008
< THE OLD FORMAT WAS :                                            XE-008
<      BITS 16-23 => TRAP CC'S                                    XE-008
<      BITS 24-31 => TRAP LOCATION (X'40',X'41'...)               XE-008
< THE NEW FORMAT WILL BE:                                         XE-008
<        BITS 16-19 => S:PNO (PROCESSOR NUMBER)                   XE-008
<        BITS 20-23 => TRAP CONDITION CODES                       XE-008
<        BITS 24-31 => TRAP LOCATION                              XE-008
<                                                                 XE-008
/ENTRY+.6A/B @(LI,9 .FFFF/               JBC F00 04/21/80 002-009 XE-008
/@/LW,0 TCATCH+.74/                      JBC F00 04/21/80 003-009 XE-008
/@/SLS,0 12/                             JBC F00 04/21/80 004-009 XE-008
/@/LI,1 .F000/                           JBC F00 04/21/80 005-009 XE-008
/@/STS,0 8/                              JBC F00 04/21/80 006-009 XE-008
/@/LI,9 .FFFF/                           JBC F00 04/21/80 007-009 XE-008
/@/B ENTRY+.6B/                          JBC F00 04/21/80 008-009 XE-008
#1                                       JBC F00 04/21/80 009-009 XE-008
< WHEN USER DOES M:DEVICE (PAGE) ON A DCB ASSIGNED TO DISC, USER'SX32072
< BUFFER ADDRESS IN DCB GETS CLOBBERED. REASON IS THAT 10D        X32072
< DOES AN M:WRITE OF A 4-BYTE RECORD WITH '1' IN COLUMN 1. THE    X32072
< IS USING VERTICAL FORMS CONTROL HE IS UNLIKELY TO BE USING M:DEVX32072
< (PAGE).                                                         X32072
/IOD+.A6/B IORT+.29C(B IOD+.BB)/         FHK F00 01/02/80 001-001 X32072
< MAKE COC ECHO THE SUB CHARACTER AS'#', NOT ':'                  X32498
#REGCOC                                  GH  F00 01/02/80 001-004 X32498
/COCR+.6BD/NOP (AI,5 1/                  GH  F00 01/02/80 002-004 X32498
/COCR+.6BE/;Q+1(AI,5 -.14/               GH  F00 01/02/80 003-004 X32498
#                                        GH  F00 01/02/80 004-004 X32498
<** REPLACEMENT PATCH FOR ONE DATED 12/2/80, RELEASED ON JAN SST. #31958
<                                                                 #31958
< DELTA'S ;X (ENTER XCON) COMMAND DOES NOT WORK                   #31958
< PROPERLY.  THE XIT-CONTROL-IN-PROGRESS BIT IN THE JIT           #31958
< IS NOT GETTING SET, THUS THE XCON ROUTINE CAN HAVE              #31958
< PROBLEMS.                                                       #31958
< PATCH IS 2 PARTS - 10 CARDS TO ALTCP/ 8 GENMDS TO DELTA         #31958
<                                                                 #31958
< ALTCP PATCHES FOLLOW                                            #31958
#J:EXTENT=.8C48                          JBC F00 03/26/81 001-018 #31958
/ALTCP+.17D/B @(STH,3 UH:FLG,1/          JBC F00 03/26/81 002-018 #31958
/@/STH,3 UH:FLG,1/                       JBC F00 03/26/81 003-018 #31958
/@/LW,2 TSTACK/                          JBC F00 03/26/81 004-018 #31958
/@/MTW,0 -15,2/                          JBC F00 03/26/81 005-018 #31958
/@/BEZ ALTCP+.17E/                       JBC F00 03/26/81 006-018 #31958
/@/LW,11 LITERALS+.21/                   JBC F00 03/26/81 007-018 #31958
/@/STS,11 J:EXTENT/                      JBC F00 03/26/81 008-018 #31958
/@/B ALTCP+.17E/                         JBC F00 03/26/81 009-018 #31958
#J:EXTENT;K1                             JBC F00 03/26/81 010-018 #31958
#NSCPU                                   JBC F00 04/22/80 001-008 #32566
< SLAVE POWER FAIL SAFE DOES NOT LOAD THE USERS MAPS CORRECTLY    #32566
< ON POWER ON, THIS CAN CAUSE MANY PROBLEMS, MOST HAVE BEEN       #32566
< 7E-40 ON MP SYSTEMS AFTER A POWER FAILURE                       #32566
/SFAULT+.109/B @(BAL,12 SMON+.E/         JBC F00 04/22/80 002-008 #32566
/@/BAL,12 SMON+.E/                       JBC F00 04/22/80 003-008 #32566
/@/LW,4 S:CUN/                           JBC F00 04/22/80 004-008 #32566
/@/BEZ SFAULT+.10A/                      JBC F00 04/22/80 005-008 #32566
/@/LI,11 SFAULT+.10A/                    JBC F00 04/22/80 006-008 #32566
/@/B MM+.3BE/                            JBC F00 04/22/80 007-008 #32566
#1                                       JBC F00 04/22/80 008-008 #32566
< ***********************************************************     #32649
< REPLACEMENT PATCH FOR #31611 DATED 01/11/79 AND FOR             #32649
<        # X31611 DATED 01/19/80                                  #32649
< FIXES PROBLEM OF RCE INITIALIZATION ON SYSTEMS WITH >128 K      #32649
< THAT WOULD CAUSE SOME SBCES NOT TO BE REPORTED                  #32649
<                                                                 #32649
< MAKE MOS INITIALIZATION RUN UNMAPPED..AND THUS USABLE BY GHOST1 #32649
< AND CONTROL                                                     #32649
< 3 PATCHES, 1 TO ROOT/INITIAL, 1 TO GHOST11, 1 GENMD TO CONTROL  #32649
/@@/TUNA! 0/                             JBC F00 04/21/80 001-024 #32649
/@/0/                                    JBC F00 04/21/80 002-024 #32649
/@/INITIAL+.5C/                          JBC F00 04/21/80 003-024 #32649
/@/XPSD,0 TUNA/                          JBC F00 04/21/80 005-024 #32649
/INITIAL+.8F/B @(B *11/                  JBC F00 04/21/80 006-024 #32649
/@/LI,5 .1FFFF/                          JBC F00 04/21/80 007-024 #32649
/@/LW,4 11/                              JBC F00 04/21/80 008-024 #32649
/@/STS,4 TUNA/                           JBC F00 04/21/80 009-024 #32649
/@/LPSD,0 TUNA/                          JBC F00 04/21/80 010-024 #32649
/COCD+.59/B TUNA+.4/                     JBC F00 04/21/80 011-024 #32649
/PFSR+.9F/BAL,11 COCD+.59(BAL,11 INITIAL+.5C/F00 04/21/80 012-024 #32649
#TUNA;K1                                 JBC F00 04/21/80 013-024 #32649
< IF RBBAT OR ALLOCAT TRAPS, SCREECH THE SYSTEM WITH              #32677
< BB-USR# REQUIRED SYSTEM GHOST HAS TRAPPED SCREECH               #32677
< THIS WILL PREVENT LOSE OF BATCH QUE AND OTHER PROBLEMS          #32677
< AND ALLOW BETTER AND FASTER FIX TO THE PROBLEM THAT             #32677
< CAUSED THE TRAP.  THE ACTUAL REASON FOR THE TRAP WILL           #32677
< BE IN J:TRAP.                                                   #32677
/ALTCP+.1F0/BAZ @(BAZ ALTCP+.22C/        GAF F00 12/03/80 001-007 #32677
/@/CI,4 3/                               GAF F00 12/03/80 002-007 #32677
/@/BG ALTCP+.22C/                        GAF F00 12/03/80 003-007 #32677
/@/STW,4 6/                              GAF F00 12/03/80 004-007 #32677
/@/STS,6 @+2/                            GAF F00 12/03/80 005-007 #32677
/@/XPSD,10 RCVPSD/                       GAF F00 12/03/80 006-007 #32677
/@/.00BB0000/                            GAF F00 12/03/80 007-007 #32677
< THE SWAP SCHEDULER CAN GET LOGJAMMED UNDER CERTAIN RATHER       #31209
< RARE CIRCUMSTANCES. IF YOU GET A MODERATE-SIZED USER IN         #31209
< CORE WHO IS WALKING THROUGH THE FILE SYSTEM USING NXTA AND      #31209
< NXTF, AND A REALLY BIG (MAXMEM) USER WHO IS AT JOB STEP         #31209
< (AND THUS ELIGIBLE FOR SPECIAL-COMPUTE STATUS) IS THE HIGHEST-  #31209
< PRIORITY USER ON THE INSWAP LIST, THINGS CAN GO ALL TO HELL     #31209
< SINCE: THE BIG GUY CAN'T BE INSWAPPED UNLESS THE FILE-SYSTEM    #31209
< WALKER GETS OUTSWAPPED ('CAUSE HE'S TOO BIG TO SHARE THE        #31209
< AVAILABLE MEMORY); THE WALKER WON'T GET OUTSWAPPED SINCE        #31209
< HE'S STAYING IN THE OPEN/CLOSE USER STATUS (WHICH HAS A HEALTHY #31209
< PRIORITY BOOST); AND NO ONE ELSE CAN GET IN 'CAUSE THEIR        #31209
< PRIORITIES ARE ALL TOO LOW. THUS, NOBODY BUT THE OPEN-CLOSE     #31209
< DUDE GETS ANY TIME AT ALL. ABORTING ANYBODY OR DOING ANYTHING   #31209
< ELSE TO PUSH SOME SMALL USER'S PRIORITY UP ABOVE THE BIG        #31209
< GUY'S WILL BREAK THE LOGJAM.                                    #31209
<                                                                 #31209
/SCHED+.247/BAL,1 @ (BAL,1 SCHED+.1F5/   DCP F00 01/07/80 001-006 #31209
/@/LB,2 UB:PCT,4/                        DCP F00 01/07/80 002-006 #31209
/@/SLS,2 1/                              DCP F00 01/07/80 003-006 #31209
/@/CW,2 TABLES+.46/                      DCP F00 01/07/80 004-006 #31209
/@/BL SCHED+.1F5/                        DCP F00 01/07/80 005-006 #31209
/@/B SCHED+.246/                         DCP F00 01/07/80 006-006 #31209
< SYSTEM CAN HANG IF CPI IS 0 AND COC DOES ESCAPE-X               #32805
< PROCESSING. ARSZ GETS SET TO X'FF' INCORRECTLY.                 #32805
#TPCOC                                   JBC F00 12/04/80 001-009 #32805
#LN1839=COCR+.2D8                        JBC F00 12/04/80 002-009 #32805
#ELSE                                    JBC F00 12/04/80 003-009 #32805
#LN1839=COCR+.2D4                        JBC F00 12/04/80 004-009 #32805
/LN1839/B @(B *13/                       JBC F00 12/04/80 006-009 #32805
/@/LI,15 0/                              JBC F00 12/04/80 007-009 #32805
/@/B *13/                                JBC F00 12/04/80 008-009 #32805
#LN1839;K1                               JBC F00 12/04/80 009-009 #32805
<*** THIS PATCH REPLACES ONE DATED 08/28/79 ***                   #32442
<*** THE MISSING CONDITIONALS HAVE BEEN ADDED ***                 #32442
<SFAULT SHOULD USE CORRECT REGISTER FOR LRA                       #32442
#NSCPU                                   MSC F00 01/15/80 001-003 #32442
/SFAULT+.B7/LRA,2 0(LRA,7 0/             MSC F00 01/15/80 002-003 #32442
#                                        MSC F00 01/15/80 003-003 #32442
<*** THIS PATCH REPLACES ONE DATED 08/28/79 ***                   #32443
<*** THE MISSING CONDITIONALS HAVE BEEN ADDED ***                 #32443
<KEEP ORIGINAL SCREECH CODE ON SC 78.                             #32443
#NSCPU                                   MSC F00 01/15/80 001-003 #32443
/SCHDSUB+.69/STH,4 2(STH,1 2/            MSC F00 01/15/80 002-003 #32443
#                                        MSC F00 01/15/80 003-003 #32443
<*** THIS PATCH REPLACES ONE DATED 08/28/79 ***                   #32446
<*** THE MISSING CONDITIONALS HAVE BEEN ADDED ***                 #32446
<CORRECT ADDRESS OF ERROR LOG BUFFER  FOR SLAVE FAULT SHUTDOWN    #32446
#NSCPU                                   MSC F00 01/15/80 001-006 #32446
/SFAULT+.F5/B @(SLS,2 9/                 MSC F00 01/15/80 002-006 #32446
/@/SLS,2 9/                              MSC F00 01/15/80 003-006 #32446
/@/LI,0 TCATCH+.A4/                      MSC F00 01/15/80 004-006 #32446
/@/B SFAULT+.F6/                         MSC F00 01/15/80 005-006 #32446
#                                        MSC F00 01/15/80 006-006 #32446
< REPLACEMENT PATCHES FOR THOSE WITH SAME SIDR NUMBER             #31662
< DATED 07/23/79.                                                 #31662
< THE OBJECT OF THESE PATCHES IS TO IMPROVE MULTI-PROCESSOR       #31662
< PERFORMANCE BY SCHEDULING USERS AS MUCH AS POSSIBLE ON          #31662
< THE SLAVE CPUS, THEREBY FREEING THE MASTER TO GIVE BETTER       #31662
< RESPONSE TIME. CONCURRENTLY WITH THIS, USERS WHO ISSUE          #31662
< EITHER AN M:SYS,M:MASTER, OR M:CAL WITH A MASTER MODE PSD       #31662
< WILL BE BLOCKED ON THE MASTER CPU BY SETTING THE MASTER         #31662
< PERMANENT BIT IN UB:MPFLG. THIS BIT WILL ONLY BE                #31662
< RESET AT JOB STEP TIME IN ORDER TO PROTECT AS MUCH AS           #31662
< POSSIBLE USERS WHO RUN IN MASTER MODE. THIS MEANS THAT          #31662
< A USER WANTING TO RUN ON A SLAVE CPU IN MASTER MODE             #31662
< MUST DO SO EXPRESSLY BY RESETTING THAT BIT HIMSELF.             #31662
< THIS BIT WILL BE RESET AT STEP TIME, DURING                     #31662
< USER RUNDOWN, BUT ONLY AFTER PMD'S AND OTHER                    #31662
< DEBUGGING HAS BEEN DONE                                         #31662
< IN ADDITION TO THIS PERFORMANCE IMPROVEMENT PATCH,              #31662
< THE ETMF FOR MP SYSTEMS WILL NOW BE CALCULATED TO REFLECT       #31662
< MORE ACCURATELY THE LOAD, USING THE SAME ALGORITHM AS           #31662
< CP-6 PRESENTLY USES, THAT IS TO SAY:                            #31662
< NEW ETMF=(OLD ETMF + #MEXEC + (#SEXEC/#CPUS))/2                 #31662
< WHERE    #MEXEC IS THE NUMBER OF USERS THAT CAN ONLY            #31662
<                 EXECUTE ON THE MASTER                           #31662
<          #SEXEC IS THE NUMBER OF USERS THAT CAN EXECUTE         #31662
<                 ON ANY OF THE CPUS                              #31662
< THE ALGORITHM FOR SINGLE CPUS OR MP SYSTEMS WITH ONLY           #31662
< ONE ACTIVE CPU WILL REMAIN AS BEFORE.                           #31662
<                                                                 #31662
< THESE PATCHES CONSIST OF 36 LINES TO ROOT                       #31662
<                           10 LINES TO LDLNK                     #31662
<                            9 LINES TO STEPOVR                   #31662
<                           42 LINES TO UMOV                      #31662
< CORRECT ETMF ALGORITHM FOR MP SYSTEMS                           #31662
#C:ETM=LITERALS+.CB                      MSC F00 09/04/79 001-097 #31662
#NSCPU                                   MSC F00 09/04/79 002-097 #31662
/PM .72/B @(LW,6 C:ETM/                  MSC F00 09/04/79 003-097 #31662
/@/LI,2 NSCPU/                           MSC F00 09/04/79 004-097 #31662
/@/LI,6 1/                               MSC F00 09/04/79 005-097 #31662
/@/MTB,0 SB:STATE,2/                     MSC F00 09/04/79 006-097 #31662
/@/BEZ . 2/                              MSC F00 09/04/79 007-097 #31662
/@/AI,6 1/                               MSC F00 09/04/79 008-097 #31662
/@/BDR,2 .-3/                            MSC F00 09/04/79 009-097 #31662
/@/LW,3 C:ETM/                           MSC F00 09/04/79 010-097 #31662
/@/MW,3 6/                               MSC F00 09/04/79 011-097 #31662
/@/B PM .73/                             MSC F00 09/04/79 012-097 #31662
/PM .76/B @(AI,6 1/                      MSC F00 09/04/79 013-097 #31662
/@/LC UB:MPFLG,2/                        MSC F00 09/04/79 014-097 #31662
/@/BCS,12 . 3/                           MSC F00 09/04/79 015-097 #31662
/@/AI,3 1/                               MSC F00 09/04/79 016-097 #31662
/@/B PM .77/                             MSC F00 09/04/79 017-097 #31662
/@/AW,3 6/                               MSC F00 09/04/79 018-097 #31662
/@/B PM .77/                             MSC F00 09/04/79 019-097 #31662
/PM .7C/B @(SLS,6 -1/                    MSC F00 09/04/79 020-097 #31662
/@/SLS,6 1/                              MSC F00 09/04/79 021-097 #31662
/@/DW,3 6/                               MSC F00 09/04/79 022-097 #31662
/@/B PM .7D/                             MSC F00 09/04/79 023-097 #31662
/PM .7D/LW,6 3(AI,6 0/                   MSC F00 09/04/79 024-097 #31662
< SET MASTER PERM BIT FOR M:MASTER,M:SYS                          #31662
/ALTCP .C5/B @ .1(B ALTCP .160/          MSC F00 09/04/79 025-097 #31662
/ALTCP .306/B @(B ALTCP .160/            MSC F00 09/04/79 026-097 #31662
/@/LI,1 1/                               MSC F00 09/04/79 027-097 #31662
/@/LW,4 S:CUN/                           MSC F00 09/04/79 028-097 #31662
/@/WD,0 .37/                             MSC F00 09/04/79 029-097 #31662
/@/LB,2 UB:MPFLG,4/                      MSC F00 09/04/79 030-097 #31662
/@/SLS,1 6/                              MSC F00 09/04/79 031-097 #31662
/@/OR,2 1/                               MSC F00 09/04/79 032-097 #31662
/@/STB,2 UB:MPFLG,4/                     MSC F00 09/04/79 033-097 #31662
/@/WD,0 .27/                             MSC F00 09/04/79 034-097 #31662
/@/B ALTCP .160/                         MSC F00 09/04/79 035-097 #31662
#C:ETM;K1                                MSC F00 09/04/79 036-097 #31662
<PATCHES TO MONITOR ROOT                                          #32439
/COCD+.57/.C0C0C0C0(0)/                  DGH F00 07/19/79 006-007 #32439
/COCD+.58/.C0C0C0C0(0)/                  DGH F00 07/19/79 007-007 #32439
<FIX IOSPIN SO USER CAN'T HANG SYSTEM                             #32418
/IORT .33B/B @(B IORT .336/              MSC F00 07/05/79 001-005 #32418
/@/MTB,0 UB:MF,1/                        MSC F00 07/05/79 003-005 #32418
/@/BE *11/                               MSC F00 07/05/79 004-005 #32418
/@/B IORT .336/                          MSC F00 07/05/79 005-005 #32418
<**************************************************************
<COC WRITE ROUTINE WILL NOT FREE UP MPOOL USED FOR BUFFER IF ESC-W#32347
<MODE IS SET, OR IF ITS A TRANSPARENT WRITE TO TERMINAL           #32347
#TPCOC                                   DGH F00 06/04/79 001-013 #32347
#R@2969=COCR+.5A4                        DGH F00 06/04/79 002-013 #32347
#R@3255=COCR+.672                        DGH F00 06/04/79 003-013 #32347
#REGCOC                                  DGH F00 06/04/79 004-013 #32347
#R@2969=COCR+.570                        DGH F00 06/04/79 005-013 #32347
#R@3255=COCR+.623                        DGH F00 06/04/79 006-013 #32347
#R@2969                                  DGH F00 06/04/79 007-013 #32347
/R@2969/BCS,1 R@3255(BCS,1 STEP+.1D/     DGH F00 06/04/79 008-013 #32347
/R@2969+8/B R@3255(B STEP+.1D/           DGH F00 06/04/79 009-013 #32347
#R@2969;KR@3255;K1                       DGH F00 06/04/79 010-013 #32347
#MINICOC                                 DGH F00 06/04/79 011-013 #32347
/COCR+.4BA/B COCR+.550(B STEP+.1D/       DGH F00 06/04/79 012-013 #32347
#                                        DGH F00 06/04/79 013-013 #32347
< FIX VFC FOR CHANNELS >7.                                        #31540
/WRTD+.89/CI,14 .F(CI,14 .7)/            FJ  F00 04/04/79 001-001 #31540
< ALLOW THE PAGE STATEMENT IN BASIC TO FUNCTION PROPERLY WHEN IT  #32117
< IS DIRECTED TO A COC DEVICE. (M:DEVICE M:UC,(PAGE)) I SURMISE.  #32117
/IOD+.B7/BE @(BE IOD+.AE)/               FJ  F00 01/18/79 001-014 #32117
/@/BAL,11 IORT+.1B1/                     FJ  F00 01/18/79 002-014 #32117
/@/NOP 1/                                FJ  F00 01/18/79 003-014 #32117
/@/MTB,0 .8C46/                          FJ  F00 01/18/79 004-014 #32117
/@/BEZ IOD+.B2/                          FJ  F00 01/18/79 005-014 #32117
/@/LI,1 .10000/                          FJ  F00 01/18/79 006-014 #32117
/@/STS,1 0,6/                            FJ  F00 01/18/79 007-014 #32117
/@/LI,14 .D1/                            FJ  F00 01/18/79 008-014 #32117
/@/BAL,4 WRTD+.6E/                       FJ  F00 01/18/79 009-014 #32117
/@/BAL,11 WRTD+.244/                     FJ  F00 01/18/79 010-014 #32117
/@/LI,15 .D1/                            FJ  F00 01/18/79 011-014 #32117
/@/STB,15 *14/                           FJ  F00 01/18/79 012-014 #32117
/@/LI,2 1/                               FJ  F00 01/18/79 013-014 #32117
/@/B WRTD+.68/                           FJ  F00 01/18/79 014-014 #32117
< FIX 75-02 ERRORS ON SHARED FILES                                #31655
/RDF+.5D2/CW,12 3,1(CS,12 3,1/           JFJ F00 11/28/78 001-004 #31655
/IORT+.66/STW,12 -2,2(STS,12 -2,2/       JFJ F00 11/28/78 002-004 #31655
/WRTF+.400/LW,5 LITERALS+.76(LI,5 .C/    JFJ F00 11/28/78 003-004 #31655
/WRTF+.401/AWM,5 3,2(MTB,1 *2,5/         JFJ F00 11/28/78 004-004 #31655
<                                                                 #29132
<   A timing window exists that can cause batch jobs to           #29132
<   vanish strangely if they are X'ed just after they start       #29132
<   to run (most recorded cases have been caused by a             #29132
<   "!BATCH fid" - "!CANCEL jobid" sequence).                     #29132
<                                                                 #29132
<   The problem is in two parts - both involve fixes in the       #29132
<   root. The problem is first triggered by the fact that a       #29132
<   of the information has to be filled in by LOGON or            #29132
<   by CCI and the ADD/GETI module in the root. When SCHED        #29132
<   goes through the "dispatch user" code it checks to see if     #29132
<   the user has exceeded his (previously-computed) quantum       #29132
<   time. For a newly-created user, this quantum time will        #29132
<   be zero, but that's OK if the job wasn't aborted since        #29132
<   it hasn't used any time at all. However, if the job had       #29132
<   been aborted, SCHED would have gone through the T:OFF         #29132
<   code to record the abort event (it would be defered, though,  #29132
<   since CCI is "in control") and this path can use up enough    #29132
<   time to tick one TMS unit into the JIT. Since the job was     #29132
<   allocated 0 and used 1, it has "quantum ended" (so SCHED      #29132
<   figures) and the user is sent off to T:ACCTEX to compute      #29132
<   the allocation for his next quantum. T:ACCTEX sees that       #29132
<   this is a batch user, and uses the batch quantum time for     #29132
<   the partition that the job is running in. BUT - since         #29132
<   the JIT isn't complete yet, the partition number is zero!     #29132
<   Since the "quantum" on file for "partition" 0 is also         #29132
<   zero, the user's next quantum is extended not at all -        #29132
<   the next time SCHED tries to dispatch it.... lo and behold,   #29132
<   it's exceeded its quantum again (still). The job is now       #29132
<   thoroughly zombified, and will sit there spinning around      #29132
<   in the scheduler until the system crashes or is put           #29132
<   through an operator recovery. To fix this, T:ACCTEX is        #29132
<   changed to detect the "partition 0" condition and use         #29132
<   the default online quantum for the job's next time-slice -    #29132
<   this will give it time to pop up to CCI, jump down to         #29132
<   OPNLD to open the command stream, and two-step over into      #29132
<   ADD/GETI to fill in the blank portions of the JIT including   #29132
<   the real partition number.                                    #29132
<                                                                 #29132
#NSCPU                                   DCP F00 12/28/78 001-017 #29132
#VORPAL=SCHDSUB+.1D                      DCP F00 12/28/78 002-017 #29132
#ELSE                                    DCP F00 12/28/78 003-017 #29132
#VORPAL=SCHDSUB+.16                      DCP F00 12/28/78 004-017 #29132
#                                        DCP F00 12/28/78 005-017 #29132
/VORPAL/B @ (LB,5 0,5/                   DCP F00 12/28/78 006-017 #29132
/@/LB,5 0,5/                             DCP F00 12/28/78 007-017 #29132
/@/BEZ VORPAL+2/                         DCP F00 12/28/78 008-017 #29132
/@/B VORPAL+1/                           DCP F00 12/28/78 009-017 #29132
#VORPAL;K1                               DCP F00 12/28/78 010-017 #29132
<                                                                 #29132
<   So - with the above done, the job will get through the        #29132
<   initialization phases. A further loophole develops due        #29132
<   to the fact that the JIT gets partially re-initialized        #29132
<   by ADD/GETI when the first read to the C device is issued     #29132
<   by CCI. When SCHED saw that the "abort" bit was set in        #29132
<   UH:DL, it cleared the bit and set the run-status to X'10'     #29132
<   to tell CCI to abort things. However, the actual "abort       #29132
<   jobstep and go to command processor" stuff must not be        #29132
<   havoc on the job. Normally, CCI would see the non-zero        #29132
<   run-status and abort the job before reading its next          #29132
<   command; in the case of abort before initialization, the      #29132
<   run-status gets cleared and the abort action gets lost.       #29132
<   This pre-initialization abort can be detected by the fact     #29132
<   that J:JIT=S:CUN - it's the only place that this can be       #29132
<   true. If this happens, we'll get the "abort" bit in           #29132
<   UH:DL again - the next time this job gets dispatched,         #29132
<   the "abort" run-status will be reported again, and            #29132
<   CCI will have finished initialization and be able to          #29132
<   shut down the user in a normal, graceful fashion.             #29132
<                                                                 #29132
/SCHED+.161/B @ (B SCHED+.95/            DCP F00 12/28/78 011-017 #29132
/@/CW,4 JIT/                             DCP F00 12/28/78 012-017 #29132
/@/BNE SCHED+.95/                        DCP F00 12/28/78 013-017 #29132
/@/LH,1 UH:DL,4/                         DCP F00 12/28/78 014-017 #29132
/@/OR,1 LITERALS+.13/                    DCP F00 12/28/78 015-017 #29132
/@/STH,1 UH:DL,4/                        DCP F00 12/28/78 016-017 #29132
/@/B SCHED+.95/                          DCP F00 12/28/78 017-017 #29132
< PREVENT SC 2D-02 WHEN USER CLOSES A STREAM OUT FROM UNDER AN    #31911
< OPEN DCB CONNECTED THRU IT TO A CARD PUNCH, THEN CLOSES THE DCB #31911
<  DOING THIS WILL PREVENT THE !EOD CARD NORMALLY PUNCHED BY      #31911
<  CLOSE BUT THAT IS WHAT WAS REQUESTED BY THE SEQUENCE.          #31911
<    TWO PART PATCH 5 CARDS IN ROOT 8 CARDS IN MULOV OVERLAY.     #31911
/WRTD+.1DF/B @(BAL,3 COOP+.218)/         FJ  F00 11/03/78 001-013 #31911
/@/BAL,3 COOP+.218/                      FJ  F00 11/03/78 002-013 #31911
/@/AI,12 0/                              FJ  F00 11/03/78 003-013 #31911
/@/BNEZ WRTD+.1E9/                       FJ  F00 11/03/78 004-013 #31911
/@/B WRTD+.1E0/                          FJ  F00 11/03/78 005-013 #31911
< MAKE MBS WORK CORRECTLY IF NEGATIVE OFFSET IN IA FIELD OF INSTR #31624
#S5SIM                                   JLJ F00 10/23/78 001-011 #31624
/S5SIM+.E3/B S5SIM+.385(.25200003/       JLJ F00 10/23/78 002-011 #31624
/S5SIM+.385/LW,8 5(0/                    JLJ F00 10/23/78 003-011 #31624
/S5SIM+.386/SW,8 3(0/                    JLJ F00 10/23/78 004-011 #31624
/S5SIM+.387/CI,8 .1FFFE(0/               JLJ F00 10/23/78 005-011 #31624
/S5SIM+.388/BAZ S5SIM+.38B(0/            JLJ F00 10/23/78 006-011 #31624
/S5SIM+.389/.25200003(0/                 JLJ F00 10/23/78 007-011 #31624
/S5SIM+.38A/B S5SIM+.E4(0/               JLJ F00 10/23/78 008-011 #31624
/S5SIM+.38B/.25500002(0/                 JLJ F00 10/23/78 009-011 #31624
/S5SIM+.38C/B S5SIM+.F5(0/               JLJ F00 10/23/78 010-011 #31624
#                                        JLJ F00 10/23/78 011-011 #31624
< REPLACEMENT PATCH FOR ONE DATED 9/26/78.                        #27264
< IMPROVE UTIMER ACCURACY BY CHECKING AFTER EACH MONITOR SERVICE. #27264
/SCHED+.12/BDR,0 @(BDR,0 ;Q/             KDR F00 10/23/78 001-012 #27264
/@/LW,10 .8C24/                          KDR F00 10/23/78 002-012 #27264
/@/BEZ SCHED+.39B/                       KDR F00 10/23/78 003-012 #27264
/@/LH,15 UH:FLG,4/                       KDR F00 10/23/78 004-012 #27264
/@/CI,15 .C0/                            KDR F00 10/23/78 005-012 #27264
/@/BANZ SCHED+.39B/                      KDR F00 10/23/78 006-012 #27264
/@/LCW,13 .8C47/                         KDR F00 10/23/78 007-012 #27264
/@/AW,13 .8C07/                          KDR F00 10/23/78 009-012 #27264
/@/CW,13 .8C25/                          KDR F00 10/23/78 010-012 #27264
/@/BL SCHED+.39B/                        KDR F00 10/23/78 011-012 #27264
/@/B SCHED+.150/                         KDR F00 10/23/78 012-012 #27264
<SC 79 WHEN M:SNAP WITH PAGE HEADING AND TIMING ALGORITHM         #28523
#TPCOC                                   DGH F00 08/29/78 001-019 #28523
#R@3614=COCR+.758                        DGH F00 08/29/78 002-019 #28523
#R@4252=COCR+.890                        DGH F00 08/29/78 003-019 #28523
#REGCOC                                  DGH F00 08/29/78 004-019 #28523
#R@3614=COCR+.707                        DGH F00 08/29/78 005-019 #28523
#R@4252=COCR+.83D                        DGH F00 08/29/78 006-019 #28523
#R@3614                                  DGH F00 08/29/78 007-019 #28523
/R@3614/LW,4 11(LCI 5/                   DGH F00 08/29/78 008-019 #28523
/R@3614 1/LW,9 12(PSM,11 TSTACK/         DGH F00 08/29/78 009-019 #28523
/R@3614 3/LW,11 4(LCI 5/                 DGH F00 08/29/78 010-019 #28523
/R@3614 4/LW,12 9(PLM,11 TSTACK/         DGH F00 08/29/78 011-019 #28523
/R@4252/B @(BAL,11 SCHED .1BC/           DGH F00 08/29/78 012-019 #28523
/@/LCI 2/                                DGH F00 08/29/78 013-019 #28523
/@/PLM,13 TSTACK/                        DGH F00 08/29/78 014-019 #28523
/@/BAL,11 SCHED .1BC/                    DGH F00 08/29/78 015-019 #28523
/@/LCI 2/                                DGH F00 08/29/78 016-019 #28523
/@/PSM,13 TSTACK/                        DGH F00 08/29/78 017-019 #28523
/@/B R@4252 1/                           DGH F00 08/29/78 018-019 #28523
#1                                       DGH F00 08/29/78 019-019 #28523
< REPLACEMENT PATCH FOR THE ONE DATED 9/25/79 WHICH MUST BE       #31634
< REMOVED. 18 CARDS TO WRTD IN ROOT AND 1 CARD TO OPNLD IN MULOV. #31634
< NOTE, IF USING LINES0 OPTION OF 31630, YOU MUST USE THIS        #31634
< VERSION OF 31634, FOR 31630 TO FUNCTION PROPERLY.               #31634
/WRTD+.1C4/B @(LW,12 JIT,1)/             FJ  F00 01/17/79 001-019 #31634
/@/CI,1 .19/                             FJ  F00 01/17/79 002-019 #31634
/@/BE @+05/                              FJ  F00 01/17/79 003-019 #31634
/@/CI,1 .1B/                             FJ  F00 01/17/79 004-019 #31634
/@/BE @+03/                              FJ  F00 01/17/79 005-019 #31634
/@/LW,12 JIT,1/                          FJ  F00 01/17/79 006-019 #31634
/@/B WRTD+.1C5/                          FJ  F00 01/17/79 007-019 #31634
/@/LW,12 .1F,5/                          FJ  F00 01/17/79 008-019 #31634
/@/CI,12 .10/                            FJ  F00 01/17/79 009-019 #31634
/@/BANZ @-4/                             FJ  F00 01/17/79 010-019 #31634
/@/LW,12 JIT,1/                          FJ  F00 01/17/79 011-019 #31634
/@/SLD,12 -17/                           FJ  F00 01/17/79 012-019 #31634
/@/CI,12 0/                              FJ  F00 01/17/79 013-019 #31634
/@/BNE @-8/                              FJ  F00 01/17/79 014-019 #31634
/@/LI,12 1/                              FJ  F00 01/17/79 015-019 #31634
/@/SLD,12 17/                            FJ  F00 01/17/79 016-019 #31634
/@/STW,12 JIT,1/                         FJ  F00 01/17/79 017-019 #31634
/@/B @-.C/                               FJ  F00 01/17/79 018-019 #31634
ALLOCAT1//
<DUAL ALLOCATION AFTER CRASH PROBLEM.                             #31612
ALLOCAT1/ALLYCAT .1DB/STS,11 ;Q(STW,2 ;Q/PAR F00 08/22/78 001-002 #31612
ALLOCAT1/ALLYCAT .238/SW,3 LITERALS .AF(AI,3 -600/        002-002 #31612
FIX0//
<ALLOCAT DUAL MESSAGE SHOULD BE LEGIBLE                           #31613
<9 PATCHES TO FIX0, 5 TO FIX1                                     #31613
FIX0/FIXHD 2/.3815C4C1(.3715C4C1/        PAR F00 08/23/78 001-014 #31613
FIX0/. 1/.E3C14DD5('TA S'/               PAR F00 08/23/78 002-014 #31613
FIX0/. 1/.5DE3C9D4('TAMP'/               PAR F00 08/23/78 003-014 #31613
FIX0/. 1/.C57EF0F0(.407EF0F0/            PAR F00 08/23/78 004-014 #31613
FIX0/FIXHD 9/.FFD584A4('0DUA'/           PAR F00 08/23/78 005-014 #31613
FIX0/. 1/.C1D34DE8('L ST'/               PAR F00 08/23/78 006-014 #31613
FIX0/. 1/.5DE3C9D4('AMP '/               PAR F00 08/23/78 007-014 #31613
FIX0/. 1/.C57EF0F0(.7EF0F0D4/            PAR F00 08/23/78 008-014 #31613
FIX0/. 4/0/(RES)                         PAR F00 08/23/78 009-014 #31613
FIX2//
FIX1//
<PRIVATE RECONSTRUST SHOULDN'T DELETE GOOD RANDOM FILES.          #32090
FIX1/P .324/;Q+2(AND,4 ;Q/               PAR F00 01/05/79 001_024 #32090
FIX1/P .313/MTW,1 ;Q(AWM,11 ;Q/          PAR F00 01/05/79 002_024 #32090
FIX1/FIXHGP .453/NOP(STW,11 *2,6/        PAR F00 01/05/79 003-024 #32090
FIX1/P .255/BAL,11 PT 12(BAL,11 ;Q/      PAR F00 01/05/79 004-024 #32090
FIX1/PT 12/LW,9 D .1A7(/                 PAR F00 01/05/79 005-024 #32090
FIX1/PT 13/AI,9 -3(/                     PAR F00 01/05/79 006-024 #32090
FIX1/PT 14/BNE FIXHGP .C23(/             PAR F00 01/05/79 007-024 #32090
FIX1/PT 15/STW,9 FIXHD .52(/             PAR F00 01/05/79 008-024 #32090
FIX1/PT 16/LCI 3(/                       PAR F00 01/05/79 009-024 #32090
FIX1/PT 17/LM,9 FIXHD .15(/              PAR F00 01/05/79 010-024 #32090
FIX1/PT 18/LM,12 FIXHD .18(/             PAR F00 01/05/79 011-024 #32090
FIX1/PT 19/STM,9 FIXHD .18(/             PAR F00 01/05/79 012-024 #32090
FIX1/PT 20/STM,12 FIXHD .15(/            PAR F00 01/05/79 013-024 #32090
FIX1/PT 21/BAL,11 FIXHGP .C23(/          PAR F00 01/05/79 014-024 #32090
FIX1/PT 22/LW,11 FIXHD .51(/             PAR F00 01/05/79 015-024 #32090
FIX1/PT 23/SW,11 FIXHD .50(/             PAR F00 01/05/79 016-024 #32090
FIX1/PT 24/STW,11 FIXHD .52(/            PAR F00 01/05/79 017-024 #32090
FIX1/PT 25/LCI 3(/                       PAR F00 01/05/79 018-024 #32090
FIX1/PT 26/LM,9 FIXHD .15(/              PAR F00 01/05/79 019-024 #32090
FIX1/PT 27/LM,12 FIXHD .18(/             PAR F00 01/05/79 020-024 #32090
FIX1/PT 28/STM,9 FIXHD .18(/             PAR F00 01/05/79 021-024 #32090
FIX1/PT 29/STM,12 FIXHD .15(/            PAR F00 01/05/79 022-024 #32090
FIX1/PT 30/LC 15(/                       PAR F00 01/05/79 023-024 #32090
FIX1/PT 31/B P .256(/                    PAR F00 01/05/79 024-024 #32090
<BATCH PACK RECONSTRUCT SHOULD NOT CAUSE SC 22'S.                 #31982
FIX1/FIXHGP .BA4/MTH ;Q,5(STH,8 ;Q,5/    PAR F00 11/28/78 001-022 #31982
FIX1/.+1/BAL,11 PT+00(BAL,11 ;Q/         PAR F00 11/28/78 002-022 #31982
FIX1/PT 00/BNE . 2(/                     PAR F00 11/28/78 003-022 #31982
FIX1/PT 01/STH,8 AVRID,5(/               PAR F00 11/28/78 004-022 #31982
FIX1/PT 02/B FIXHGP .BAD(/               PAR F00 11/28/78 005-022 #31982
FIX1/P .76B/BE PT 3(BE *11/              PAR F00 11/28/78 006-022 #31982
FIX1/PT 03/MTB D .141,5(/                PAR F00 11/28/78 007-022 #31982
FIX1/PT 04/BE *11(/                      PAR F00 11/28/78 008-022 #31982
FIX1/PT 05/B P .76C(/                    PAR F00 11/28/78 009-022 #31982
FIX1/FIXHGP .3F0/B PT 6(LW,8 .1FF,6/     PAR F00 11/28/78 010-022 #31982
FIX1/PT 06/MTW D .109(/                  PAR F00 11/28/78 011-022 #31982
FIX1/PT 07/BNE FIXHGP .3F2(/             PAR F00 11/28/78 012-022 #31982
FIX1/PT 08/LW,8 .1FF,6(/                 PAR F00 11/28/78 013-022 #31982
FIX1/PT 09/B FIXHGP .3F1(/               PAR F00 11/28/78 014-022 #31982
FIX1/. 1/LI,4 48(STB,12 0,1/             PAR F00 11/28/78 016-022 #31982
FIX1/. 1/BAL,10 FIXSUB .4C4(AI,1 1/      PAR F00 11/28/78 017-022 #31982
FIX1/. 1/B . 3(SCS,12 8/                 PAR F00 11/28/78 018-022 #31982
FIX1/. 3/CI,5 ;Q(CI,1 ;Q/                PAR F00 11/28/78 019-022 #31982
FIX1/. 3/NOP(STW,1 ;Q/                   PAR F00 11/28/78 020-022 #31982
FIX1/FIXSUB .702/LB,14 0,6(LB,4 0,6/     PAR F00 11/28/78 021-022 #31982
FIX1/FIXSUB .712/BDR,14 ;Q(BDR,4 ;Q/     PAR F00 11/28/78 022-022 #31982
<SOMETIMES FIX'S HGPR SHOULD NOT SAY 'NO SERIAL# SPECIFIED'.      #32070
FIX1/P .CAF/B PT 10(B FIXHGP .63E/       PAR F00 12/19/78 001-003 #32070
FIX1/PT 10/LW,11 D .1FF(/                PAR F00 12/19/78 002-003 #32070
FIX1/PT 11/B FIXHGP .63E(/               PAR F00 12/19/78 003-003 #32070
<ALLOCAT DUAL MESSAGE SHOULD BE LEGIBLE                           #31613
<9 PATCHES TO FIX0, 5 TO FIX1                                     #31613
FIX1/FIXHGP .1CA/BAL,11 ;Q(BAL,15 ;Q/    PAR F00 08/23/78 010-014 #31613
FIX1/FIXHGP .C29/MTW SNAP .AF(STW,8 ;Q/  PAR F00 08/23/78 011-014 #31613
FIX1/. 1/BE . .3F(LW,1 SNAP .AF/         PAR F00 08/23/78 012-014 #31613
FIX1/. 1/STW,8 FIXHD 2(BE . .3E/         PAR F00 08/23/78 013-014 #31613
FIX1/FIXHGP .1C3/AWM,13 4,7(STS,13 4,7/  PAR F00 08/23/78 014-014 #31613
<SET C:MSM RIGHT EVEN IF RECOVERY BLOWS DATE OR TIME.             #31672
FIX1/FIXHGP .189/B .-.23(BAL,7 ;Q/       PAR F00 08/31/78 001-001 #31672
<FIX SHOULD NOT NEED AN ACCOUNT FOR PRIVATE PACKS.                #31229
FIX1/P .628/MTW,-8 ;Q(STW,4 ;Q/          PAR F00 08/31/78 001-002 #31229
FIX1/P .629/B . 3(LM,1 ;Q/               PAR F00 08/31/78 002-002 #31229
GHOST10//
GHOST12//
GHOST11//
< REPLACEMENT PATCH FOR # 31611 DATED 01/11/79                    #32649
< ** AND THE SYSTEM HANG ON PFSR CAUSED BY 01/11/79 VERSION **    #32649
< SOLVES THE "TOPROOT MUST BE BELOW X'8000'" RESTRICTION          #32649
< =====> NOTE: THIS PATCH DEPENDS ON A SPARE CELL AT THE END      #32649
<              OF COCD (COCD+.59)                                 #32649
< ***********************************************************     #32649
GHOST11/GHOST1D+.D8/BAL,11 COCD+.59(BAL,11 INITIAL+.5C/   014-024 #32649
<EXPAND DUMPFILE WHEN CORE IS INCREASED.                          #31690
GHOST11/GHOST1D+.AE/B @(LW,3 5,1/        KRD F00 08/23/78 001-010 #31690
/@/CW,3 5,1/                             KRD F00 08/23/78 002-010 #31690
/@/BLE GHOST1D+.AF/                      KRD F00 08/23/78 003-010 #31690
/@/CAL1,1 $+4/                           KRD F00 08/23/78 004-010 #31690
/@/LI,3 0/                               KRD F00 08/23/78 005-010 #31690
/@/STW,3 *GHOST1D+.6A/                   KRD F00 08/23/78 006-010 #31690
/@/B GHOST1D+.A0/                        KRD F00 08/23/78 007-010 #31690
/@/GHOST1D+.9500006C/                    KRD F00 08/23/78 008-010 #31690
/@/.80000000/                            KRD F00 08/23/78 009-010 #31690
/@/1/                                    KRD F00 08/23/78 010-010 #31690
CLOSE//
< STAR FILES SHOULD BE ACCOUNTED FOR AS TEMPORARY GRANS, AND      X32960
< SHOULD BE RELEASED BACK TO TEMP. 3 PATCHES TO ROOT, 5 TO CLOSE  X32960
CLOSE/DLT+.29F/B @(LW,13 LITERALS+.18/   GB  EXP-F 810616 004-009 X32960
/@/LW,13 16,6/                           GB  EXP-F 810616 005-009 X32960
/@/CI,13 .40000/                         GB  EXP-F 810616 006-009 X32960
/@/BANZ DLT+.2A4/                        GB  EXP-F 810616 007-009 X32960
/@/LW,13 LITERALS+.18/                   GB  EXP-F 810616 008-009 X32960
< FILES OPENED INOUT AND CLOSED WITHOUT MODIFICATIONS WILL        #32432
< STILL GET THE "MODIFIED SINCE LAST BACKUP" DESCRIPTOR BIT       #32432
< SET.  FIX THIS.                                                 #32432
CLOSE/CLS+.156/B @(B CLS+.15A)/          FHK F00 12/02/80 001-008 #32432
/@/LW,1 13,6/                            FHK F00 12/02/80 002-008 #32432
/@/LW,2 0,1/                             FHK F00 12/02/80 003-008 #32432
/@/CI,2 .A00/                            FHK F00 12/02/80 004-008 #32432
/@/BANZ CLS+.15A/                        FHK F00 12/02/80 005-008 #32432
/@/CW,2 LITERALS+.1D/                    FHK F00 12/02/80 006-008 #32432
/@/BAZ CLS+.177/                         FHK F00 12/02/80 007-008 #32432
/@/B CLS+.15A/                           FHK F00 12/02/80 008-008 #32432
< FIX 75-XX ERRORS WHEN A FILE IS OPENED OUTIN                    #32781
< KEYED AND ALL RECORDS WRITTEN ARE DELETED                       #32781
CLOSE/DLT+.1CA/BAZ @(BAZ DLT+.1DE)/      JBC F00 12/02/80 001-004 #32781
/@/MTW,0 .9600/                          JBC F00 12/02/80 002-004 #32781
/@/BNEZ DLT+.1DE/                        JBC F00 12/02/80 003-004 #32781
/@/B DLT+.1CB/                           JBC F00 12/02/80 004-004 #32781
DEBUG//
<PMDE SHOULD WORK EVEN IF A LINK'ED-TO PROGRAM ABORTS.            #27621
DEBUG/PMD+.70/BGE @(BGE PMD+.5C/         PAR F00 11/14/78 001-005 #27621
/@/LB,1 *.8CEC/                          PAR F00 11/14/78 002-005 #27621
/@/AI,1 -4/                              PAR F00 11/14/78 003-005 #27621
/@/BE PMD+.74/                           PAR F00 11/14/78 004-005 #27621
/@/B PMD+.5C/                            PAR F00 11/14/78 005-005 #27621
< IF A GHOST USER IS ABORTED BY THE !ZAP COMMAND, AND IF HE DOES  #27677
< DOING THE PSD/REGISTER SNAPSHOT AS IT'S A WASTE OF EFFORT.  IF  #27677
< GHOST HAS SOMETHING FOR "L1" OR IS ABORTED AT ANY OTHER TIME,   #27677
< DO THE SNAPSHOT 'CAUSE IT MIGHT BE INTERESTING.                 #27677
DEBUG/PMD+.20/BCS,12 @(BCS,8 PMD+.25/    DCP F00 09/07/78 001-010 #27677
/@/BCS,8 PMD+.25/  (ONLY GHOSTS HERE)    DCP F00 09/07/78 002-010 #27677
/@/LW,2 JIT+.2A/ (HAS HE ANY CONTEXT?)   DCP F00 09/07/78 003-010 #27677
/@/BEZ @+4/ (IF NOT, L1 AIN'T HERE!)     DCP F00 09/07/78 004-010 #27677
/@/LW,2 2,2/(HAS CONTEXT - GET L1'S PTR) DCP F00 09/07/78 005-010 #27677
/@/LC 2/ (CHECK THE "Y2" BIT - IF SET,   DCP F00 09/07/78 006-010 #27677
/@/BCS,2 PMD+.21/ L1 STREAM EXISTS)      DCP F00 09/07/78 007-010 #27677
/@/MTW,0 TABLES+.11/ (!ZAP TIME?)        DCP F00 09/07/78 008-010 #27677
/@/BLZ PMD+.CE/ (IF SO DON'T SNAPSHOT)   DCP F00 09/07/78 009-010 #27677
/@/B PMD+.21/ (IF NOT !ZAP, DO SNAP.)    DCP F00 09/07/78 010-010 #27677
ECBOV//
ENQOV//
KEYIN//
< A SPURIOUS TIME KEYIN CAN CLOBBER PART OF THE SYSTEM'S          #32742
< TIME, ALTHOUGH IT TELLS THE OPERATOR 'EH?'.                     #32742
< 7 PATCHES TO KEYIN, USES 3 PATCH LOCATIONS.                     #32742
#TIME=LITERALS+.AE                       SW  F00 12/02/80 001-007 #32742
KEYIN/KEYN+.204/STW,2 5(STH,2 TIME/      SW  F00 12/02/80 002-007 #32742
KEYIN/KEYN+.209/B @(LI,3 0/              SW  F00 12/02/80 003-007 #32742
/@/STH,5 TIME/                           SW  F00 12/02/80 004-007 #32742
/@/LI,3 0/                               SW  F00 12/02/80 005-007 #32742
/@/B KEYN+.20A/                          SW  F00 12/02/80 006-007 #32742
#TIME;K1 DELETE                          SW  F00 12/02/80 007-007 #32742
< A SPURIOUS DATE KEYIN CAN CLOBBER PART OF SYSTEM'S DATE.        #32741
< RESULTS FROM A BOUND 8 PRECEEDING.                              #32741
< 6 PATCHES TO KEYIN, NO PATCH LOCATIONS.                         #32741
#DATE=LITERALS+.AC                       SW  F00 12/02/80 001-006 #32741
KEYIN/KEYN+.21C/STH,2 5(STH,2 DATE/      SW  F00 12/02/80 002-006 #32741
KEYIN/KEYN+.220/STS,2 5(STS,2 DATE/      SW  F00 12/02/80 003-006 #32741
KEYIN/KEYN+.224/STW,5 DATE(B KEYN+.74/   SW  F00 12/02/80 004-006 #32741
KEYIN/KEYN+.225/B KEYN+.74/              SW  F00 12/02/80 005-006 #32741
#DATE;K1                                 SW  F00 12/02/80 006-006 #32741
< A SMALL TIMING WINDOW EXIST IN KEYIN SUCH THAT KEYIN'S          #32700
< AVR ENDACTION ROUTINE CAN CLOBBER OTHER WORDS IN MEMORY         #32700
< USUALLY SHOWS UP AS A TRAP40 WITH TRAP WORD = X'01000001'       #32700
KEYIN/KEYN+.439/B @(LW,1 S:CUN/          JBC F00 04/22/80 001-004 #32700
/@/WD,0 .37/                             JBC F00 04/22/80 002-004 #32700
/@/LW,1 S:CUN/                           JBC F00 04/22/80 003-004 #32700
/@/B KEYN+.43A/                          JBC F00 04/22/80 004-004 #32700
<ANSMOUNT KEYIN SHOULD CLEAR SCRATCH BIT IN AVR TABLE             #31279
KEYIN/KEYN+.290/B @(BCS,14 KEYN+.295/    MRS F00 10/05/78 001-008 #31279
/@/BCS,12 KEYN+.295/                     MRS F00 10/05/78 002-008 #31279
/@/BCR,2 KEYN+.291/                      MRS F00 10/05/78 003-008 #31279
/@/AND,15 KEYN+.6C5/                     MRS F00 10/05/78 004-008 #31279
/@/CW,9 LITERALS+.20/                    MRS F00 10/05/78 005-008 #31279
/@/BANZ KEYN+.295/                       MRS F00 10/05/78 006-008 #31279
/@/LW,9 LITERALS+.20/                    MRS F00 10/05/78 007-008 #31279
/@/B KEYN+.294/                          MRS F00 10/05/78 008-008 #31279
LDLNK//
< SHOULD RELEASE THE ONES IT ALREADY HAS, TO KEEP HIM             X32953
< FROM LOOPING FOREVER ON RETURN FROM M:LINK.                     X32953
< ALSO, LNKTRC SHOULD TURN OFF 'DELTA ASSOCIATED' AND             X32953
< 'DELTA IN CONTROL' BEFORE ABORTING WITH B5-66.                  X32953
< PATCH TO LDLNK: (ALSO GENMDS TO DELTA)                          X32953
LDLNK/LNKTRC+.66A/B @(B LNKTRC+.54E/     FHK EXP-F 810602 009-015 X32953
/@/LW,3 S:CUN/                           FHK EXP-F 810602 010-015 X32953
/@/LH,5 UH:FLG,3/                        FHK EXP-F 810602 011-015 X32953
/@/AND,5 .+3/                            FHK EXP-F 810602 012-015 X32953
/@/STH,5 UH:FLG,3/                       FHK EXP-F 810602 013-015 X32953
/@/B LNKTRC+.54E/                        FHK EXP-F 810602 014-015 X32953
/@/.FBBF/                                FHK EXP-F 810602 015-015 X32953
< STOP A1-01 ABORTS UNDER DELTA WHEN EXECUTE-ONLY LMNS LDTRC      X32819
< TO NON-EXECUTE-ONLY.                                            X32819
LDLNK/LNKTRC+.16E/BAL,11 @(BAL,11 LNKTRC+.5B2/  -F 810603 001-005 X32819
/@/LW,5 LNKTRC+.F/                       DE  EXP-F 810603 002-005 X32819
/@/LI,4 0/                               DE  EXP-F 810603 003-005 X32819
/@/STS,4 JIT+.14/                        DE  EXP-F 810603 004-005 X32819
/@/B LNKTRC+.5B2/                        DE  EXP-F 810603 005-005 X32819
< LNKTRC MUST MASK ADDRESSES TO 17-BITS                           #32712
< INVALID B5 ERRORS CAN OCCUR                                     #32712
#MSK=@                                   JBC F00 12/05/80 001-005 #32712
/@/AND,12 LITERALS+.54/                  JBC F00 12/05/80 002-005 #32712
/@/B LNKTRC+.33F/                        JBC F00 12/05/80 003-005 #32712
LDLNK/LNKTRC+.15A/BAL,13 MSK(BAL,13 LNKTRC+.33F/ 12/05/80 004-005 #32712
< MAKE SURE J:CCBUF DOESNT GET CLOBBERED WHEN A ZERO LENGTH       #32435
< COMMAND STRING IS PASSED.                                       #32435
LDLNK/LNKTRC+.15E/LB,6 *12(LB,2 *12/     JBC F00 12/08/80 001-014 #32435
LDLNK/LNKTRC+.15F/BEZ LNKTRC+.169(SLS,2 -2/  F00 12/08/80 002-014 #32435
LDLNK/LNKTRC+.160/SLS,6 -2(AW,12 2/      JBC F00 12/08/80 003-014 #32435
LDLNK/LNKTRC+.161/AW,12 6(BAL,13 LNKTRC+.33F/F00 12/08/80 004-014 #32435
LDLNK/LNKTRC+.162/BAL,13 MSK(SW,12 2/    JBC F00 12/08/80 005-014 #32435
LDLNK/LNKTRC+.163/SW,12 6(LB,5 *12/      JBC F00 12/08/80 006-014 #32435
LDLNK/LNKTRC+.164/LB,6 *12(BEZ LNKTRC+.16C/  F00 12/08/80 007-014 #32435
LDLNK/LNKTRC+.165/CI,6 79(CI,5 79/       JBC F00 12/08/80 008-014 #32435
LDLNK/LNKTRC+.167/LI,6 79(LI,5 79/       JBC F00 12/08/80 009-014 #32435
LDLNK/LNKTRC+.168/STB,6 *3(STB,5 *3/     JBC F00 12/08/80 010-014 #32435
LDLNK/LNKTRC+.169/LB,13 *12,6(LB,13 *12,5/   F00 12/08/80 011-014 #32435
LDLNK/LNKTRC+.16A/STB,13 *3,6(STB,13 *3,5/   F00 12/08/80 012-014 #32435
LDLNK/LNKTRC+.16B/BDR,6 LNKTRC+.169(BDR,5 LNKTRC+.169/    013-014 #32435
#MSK;K1                                  JBC F00 12/08/80 014-014 #32435
<BAD BRANCH CAUSES B5-4A ABORT TO BECOME A B5-AA                  #32707
LDLNK/LNKTRC+.347/B LNKTRC+.554(B LNKTRC+.54F/   12/02/80 001-001 #32707
<DONT ALLOW A USER WITH :USERS OPEN TO AUTOSAVE                   #32672
< THIS CAN CAUSE :USERS TO BE HUNG OPEN FOR LONG                  #32672
< PERIODS OF TIME                                                 #32672
LDLNK/LNKTRC+.3FD/BAL,5 @(BAL,5 COCR+.9F/JBC F00 12/02/80 001-005 #32672
/@/LH,2 UH:FLG,1/                        JBC F00 12/02/80 002-005 #32672
/@/CI,2 4/                               JBC F00 12/02/80 003-005 #32672
/@/B COCR+.9F/                           JBC F00 12/02/80 005-005 #32672
< IF LINK/LDTRC LMN NAME IS GREATER THAN 11 CHARACTERS            #32434
< ABORT THE ACTION WITH A B504 ERROR INSTEAD OF CONTINUING        #32434
< THE LOAD AND ABORTING LATER WITH A B503                         #32434
< ADD THE APPROIATE MESSAGE TO YOUR ERROR FILE FOR THE B504       #32434
< LMN NAME IS GREATER THAN 11 CHARACTERS FOR LINK/LDTRC           #32434
LDLNK/LNKTRC+.5E/LI,10 4(.7AE2E8E2/      JBC F00 12/02/80 001-007 #32434
LDLNK/LNKTRC+.5F/B LNKTRC+.554(.40404040/JBC F00 12/02/80 002-007 #32434
LDLNK/LNKTRC+.2D7/B LNKTRC+.5E/          JBC F00 12/02/80 003-007 #32434
LDLNK/LNKTRC+.291/LW,13 LITERALS+.A8(LW,13 LNKTRC+.5E/    004-007 #32434
LDLNK/LNKTRC+.292/LW,14 LITERALS+.A9(LW,14 LNKTRC+.5F/    005-007 #32434
LDLNK/LNKTRC+.2E9/CW,13 LITERALS+.A8(CW,13 LNKTRC+.5E/    006-007 #32434
LDLNK/LNKTRC+.2EB/CW,14 LITERALS+.A9(CW,14 LNKTRC+.5F/    007-007 #32434
< THIS PATCH STOPS 7E-40 OR 61-40 IF USER GETS B5-57 ERROR AND    #32560
< THEN REPEATS THE OPERATION THAT GOT THE ERROR.                  #32560
LDLNK/LNKTRC+.3AA/CAL1,1 LNKTRC+.58(CAL1,1 LNKTRC+.3C/    001-001 #32560
#NSCPU                                   MSC F00 09/04/79 037-097 #31662
< THESE PATCHES CONSIST OF 36 LINES TO ROOT                       #31662
<                           10 LINES TO LDLNK                     #31662
<                            9 LINES TO STEPOVR                   #31662
<                           42 LINES TO UMOV                      #31662
< IMPROVE MP PERFOMANCE CONTINUED                                 #31662
< SET MASTER PERM BIT ON M:CAL (MASTER OR MASTER PROT.)           #31662
LDLNK/LNKTRC+.68D/B  @(B LNKTRC .4A9/    MSC F00 09/04/79 038-097 #31662
/@/LW,1 S:CUN/                           MSC F00 09/04/79 039-097 #31662
/@/LB,4 UB:MPFLG,1/                      MSC F00 09/04/79 041-097 #31662
/@/OR,4 LITERALS .A/                     MSC F00 09/04/79 042-097 #31662
/@/STB,4 UB:MPFLG,1/                     MSC F00 09/04/79 043-097 #31662
/@/WD,0 .27/                             MSC F00 09/04/79 044-097 #31662
/@/B LNKTRC .4A9/                        MSC F00 09/04/79 045-097 #31662
#                                        MSC F00 09/04/79 046-097 #31662
< During an M:LDTRC to a previously saved program, the            #32188
< user's procedure may be mysteriously trashed if:                #32188
<                                                                 #32188
<    -  an E:NC event is reported on the user when attempting     #32188
<       to acquire pages for the procedure to be restored;        #32188
<                                                                 #32188
<    -  the user is outswapped in response to the E:NC;           #32188
<                                                                 #32188
<    -  the user has no dynamic pages or Delta context;           #32188
<                                                                 #32188
<    -  the user does not successfully complete some form of      #32188
<       get-page request before being outswapped again.           #32188
<                                                                 #32188
<  If all of the above happen, the user's procedure is not        #32188
<  outswapped after being read from the *N file;  the next        #32188
<  time the user goes through an inswap, garbage from the         #32188
<  user's allocated swap sectors is read into the procedure       #32188
<  area.  The user immediately traps.                             #32188
LDLNK/LNKTRC+.22E/B @ (STS,10 JIT+.14/   DCP F00 08/21/79 001-007 #32188
/@/STS,10 JIT+.14/                       DCP F00 08/21/79 002-007 #32188
/@/LW,6 S:CUN/                           DCP F00 08/21/79 003-007 #32188
/@/LH,11 UH:FLG,6/                       DCP F00 08/21/79 004-007 #32188
/@/OR,11 LITERALS+8/                     DCP F00 08/21/79 005-007 #32188
/@/STH,11 UH:FLG,6/                      DCP F00 08/21/79 006-007 #32188
/@/B LNKTRC+.22F/                        DCP F00 08/21/79 007-007 #32188
<    Reset prompt character back to default during M:LINK         #29755
<    and during non-return M:LDTRCs.                              #29755
LDLNK/LNKTRC+.33A/B @(LI,2 0/            DCP F00 03/07/79 001-006 #29755
/@/LH,2 JIT+.3A/                         DCP F00 03/07/79 002-006 #29755
/@/LI,3 .FF/                             DCP F00 03/07/79 003-006 #29755
/@/STS,2 JIT+.46/                        DCP F00 03/07/79 004-006 #29755
/@/LI,2 0/                               DCP F00 03/07/79 005-006 #29755
/@/B LNKTRC+.33B/                        DCP F00 03/07/79 006-006 #29755
<    If a B507 error occurs, its error code gets printed as a     #31639
<    B567 due to a relative branch that didn't get modified       #31639
<    when code was added to LNKTRC.                               #31639
LDLNK/LNKTRC+.55C/B LNKTRC+.554(B LNKTRC+.54F/   10/04/78 001-001 #31639
< M:LINK TESTS TO ENSURE THAT USER HASN'T BEEN PLAYING FORBIDDEN  #31805
< GAMES WITH HIS DYNAMIC DATA AREA (VIA M:GVP, M:FVP) AREN'T      #31805
< STRICT ENOUGH - USER CAN SOMETIMES GET BY THE TESTS WHEN HE     #31805
< SHOULDN'T BE ABLE TO, AND STRANGE ERRORS OCCUR LATER ON IN      #31805
< THE M:LINK PROCESS.  PATCH ADDS CODE TO ENSURE THAT THE PAGES   #31805
< THAT SHOULD BE PRESENT ACTUALLY ARE.                            #31805
#SEABASS=@                               DCP F00 09/26/78 001-021 #31805
/@/LW,9 3/                               DCP F00 09/26/78 002-021 #31805
/@/BEZ *10/                              DCP F00 09/26/78 003-021 #31805
/@/AW,7 2/                               DCP F00 09/26/78 004-021 #31805
/@/EXU LNKTRC+.538/                      DCP F00 09/26/78 005-021 #31805
/@/CI,8 .20/                             DCP F00 09/26/78 006-021 #31805
/@/BE LNKTRC+.540/                       DCP F00 09/26/78 007-021 #31805
/@/BDR,9 @-4/                            DCP F00 09/26/78 008-021 #31805
/@/B *10/                                DCP F00 09/26/78 009-021 #31805
LDLNK/LNKTRC+.528/BAL,10 @(SW,4 3/       DCP F00 09/26/78 010-021 #31805
/@/SW,4 3/                               DCP F00 09/26/78 011-021 #31805
/@/LW,3 4/                               DCP F00 09/26/78 012-021 #31805
/@/LI,2 1/                               DCP F00 09/26/78 013-021 #31805
/@/LB,7 JIT+.121,2/                      DCP F00 09/26/78 014-021 #31805
/@/B SEABASS/                            DCP F00 09/26/78 015-021 #31805
LDLNK/LNKTRC+.52D/BAL,10 @(AW,4 3/       DCP F00 09/26/78 016-021 #31805
/@/AW,4 3/                               DCP F00 09/26/78 017-021 #31805
/@/LI,2 -1/                              DCP F00 09/26/78 018-021 #31805
/@/LB,7 JIT+.121/                        DCP F00 09/26/78 019-021 #31805
/@/B SEABASS/                            DCP F00 09/26/78 020-021 #31805
#SEABASS;K1                              DCP F00 09/26/78 021-021 #31805
< IMPLICIT RETURN FROM PROGRAM THAT USES :P1 AND IS BEING RUN     #31590
< UNDER DELTA CAUSES LOATHSOME THINGS TO HAPPEN TO :P1'S          #31590
< USAGE COUNT - OTHER PEOPLE GET A300'ED.                         #31590
LDLNK/LNKTRC+.5E8/BNEZ @(BNEZ LNKTRC+.5EA/   F00 08/28/78 001-006 #31590
/@/BAZ LNKTRC+.5EA/ (IF NOT, RETURN)     DCP F00 08/28/78 003-006 #31590
/@/LB,7 UB:ASP,4/   (GET LIBRARY ID)     DCP F00 08/28/78 004-006 #31590
/@/MTB,1 PB:UC,7/(FUDGE COUNT - IT GETS  DCP F00 08/28/78 005-006 #31590
/@/B LNKTRC+.5EA/ DECREMENTED LATER)     DCP F00 08/28/78 006-006 #31590
LTAPE//
< GIVE LTAPE BETTER ABILITY TO HANDLE NOISE RECORDS ON ANS TAPES. #32189
< ALSO LOAD THE PROPER REGISTER BEFORE CALL TO T:RBUF             #32189
LTAPE/ARDL+.B/B @(LW,7 .11,6)/           PAR F00 02/26/79 001-014 #32189
/@/LW,7 .11,6/                           PAR F00 02/26/79 002-014 #32189
/@/CW,1 ARDL+1/                          PAR F00 02/26/79 003-014 #32189
/@/BE ARDL+.C/                           PAR F00 02/26/79 004-014 #32189
/@/CW,1 @+.06/                           PAR F00 02/26/79 005-014 #32189
/@/BE ARDL+.C/                           PAR F00 02/26/79 006-014 #32189
/@/BAL,9 RDL+.F6/                        PAR F00 02/26/79 007-014 #32189
/@/BAL,11 IORT+.336/                     PAR F00 02/26/79 008-014 #32189
/@/LI,10 0/                              PAR F00 02/26/79 009-014 #32189
/@/B ARDL+.5D/                           PAR F00 02/26/79 010-014 #32189
/@/.7AC5D6C6/                            PAR F00 02/26/79 011-014 #32189
LTAPE/ARDL+.AB/BAL,2 @(BAL,2 ;Q)/        PAR F00 02/26/79 012-014 #32189
/@/LW,14 11/                             PAR F00 02/26/79 013-014 #32189
/@/B MM+.4D4/                            PAR F00 02/26/79 014-014 #32189
MISOV//
< THE M:PURGE CAL WITH ONLY THE READ OPTION DOES NOT CLEAR        #32163
< TYPED-AHEAD INPUT CHARACTERS                                    #32163
< SUGGESTED FIX:                                                  #32163
MISOV/UCAL+.1C2/LW,1 6(CI,6 2)/          SR  F00 01/02/80 001-003 #32163
MISOV/UCAL+.1C4/BAZ UCAL+.1C6(LW,1 6)/   SR  F00 01/02/80 003-003 #32163
MPC9210//
MPC9310//
<DONT ERROR IF REWIND AT LOAD POINT.                              #31076
MPC9310/.8003+.94D/.9C(.43A0/            KRD F00 06/15/78 001-002 #31076
MPC9310/.8003+.F00/.08850000(.C5800000/  KRD F00 06/15/78 002-002 #31076
MULOV//
< MAKE FILL/SPILL WORK WITH MORE SYSGENNED STREAMS THAN THE       X32845
< STANDARD L1,C1, AND P1.                                         X32845
MULOV/OPNLD+.399/B @(LB,6 SB:LTY,3/      IK  EXP-F 810417 001-009 X32845
/@/LI,3 TYPMNSZ/                         IK  EXP-F 810417 002-009 X32845
/@/LH,4 OH:NM,3/                         IK  EXP-F 810417 003-009 X32845
/@/CS,4 6/                               IK  EXP-F 810417 004-009 X32845
/@/BE $+3/                               IK  EXP-F 810417 005-009 X32845
/@/BDR,3 $-3/                            IK  EXP-F 810417 006-009 X32845
/@/B OPNLD+.390/                         IK  EXP-F 810417 007-009 X32845
/@/LW,6 3/                               IK  EXP-F 810417 008-009 X32845
/@/B OPNLD+.39A/                         IK  EXP-F 810417 009-009 X32845
< ***** REPLACEMENT PATCH FOR THE ONE DATED 9/20/78 WHICH MUST BE #31630
<       REMOVED. THE SIZE OF THE PATCH MAY BE MISLEADING  ******  #31630
< $$$$$ READ FILE 31630INFO ON THE SST FOR FULL DETAIL.  $$$$$$   #31630
< ##### AS PATCH IS DEFAULT IMPLEMENTED, IT ONLY FIXES A  ######  #31630
< ##### A SLIGHT BUG IN PAGE NUMBER LOGIC. IT ALSO FIXES  #####   #31630
< ##### A MISTAKE IN PAGE ACCOUNTING IN PREVIOUS VERSIONS #####   #31630
< %%%%% 257 CARDS IN MULOV WHICH ALSO PATCHES ROOT        %%%%%%  #31630
< %%%%% 027 CARDS IN LDEV PROCESSOR. SIZE OF PATCH VARIES %%%%%%  #31630
< %%%%% 011 CARDS IN RBBAT (REQUIRES FULL BOOT TO ADD     %%%%%%  #31630
#LINES0-1                                FJ  F00 01/17/79 001-295 #31630
#DFLTPC=@                                FJ  F00 01/17/79 002-295 #31630
/@/0/                                    FJ  F00 01/17/79 003-295 #31630
#GFORML=@                                FJ  F00 01/17/79 004-295 #31630
/@/PSW,5 TSTACK/                         FJ  F00 01/17/79 005-295 #31630
/@/PSW,4 TSTACK/                         FJ  F00 01/17/79 006-295 #31630
/@/AI,5 0/                               FJ  F00 01/17/79 007-295 #31630
/@/BEZ @+.0C/                            FJ  F00 01/17/79 008-295 #31630
/@/LI,4 .FF00/                           FJ  F00 01/17/79 009-295 #31630
/@/SLS,4 8/                              FJ  F00 01/17/79 010-295 #31630
/@/CW,4 .F,5/                            FJ  F00 01/17/79 011-295 #31630
/@/BAZ @+.08/                            FJ  F00 01/17/79 012-295 #31630
/@/LW,4 .18,5/                           FJ  F00 01/17/79 013-295 #31630
/@/SLS,4 -24/                            FJ  F00 01/17/79 014-295 #31630
/@/LI,5 .100/                            FJ  F00 01/17/79 015-295 #31630
/@/CW,5 COMBAT/                          FJ  F00 01/17/79 016-295 #31630
/@/BAZ @+.1A/                            FJ  F00 01/17/79 017-295 #31630
/@/STB,4 *TSTACK/                        FJ  F00 01/17/79 018-295 #31630
/@/B @+.04/                              FJ  F00 01/17/79 019-295 #31630
/@/LI,4 6/                               FJ  F00 01/17/79 020-295 #31630
/@/LB,4 TB:SZ,4/                         FJ  F00 01/17/79 021-295 #31630
/@/STB,4 DFLTPC/                         FJ  F00 01/17/79 022-295 #31630
/@/LI,5 .10/                             FJ  F00 01/17/79 023-295 #31630
/@/CW,5 COMBAT/                          FJ  F00 01/17/79 024-295 #31630
/@/LI,4 0/                               FJ  F00 01/17/79 026-295 #31630
/@/LI,5 -1/                              FJ  F00 01/17/79 027-295 #31630
/@/LW,5 *TSTACK,5/                       FJ  F00 01/17/79 028-295 #31630
/@/AI,5 0/                               FJ  F00 01/17/79 029-295 #31630
/@/BEZ @+2/                              FJ  F00 01/17/79 030-295 #31630
/@/LW,4 .19,5/                           FJ  F00 01/17/79 031-295 #31630
/@/LI,5 S:ZLINE-S:FORMS/                 FJ  F00 01/17/79 032-295 #31630
/@/CW,4 S:FORMS-1,5/                     FJ  F00 01/17/79 033-295 #31630
/@/BE @+2/                               FJ  F00 01/17/79 034-295 #31630
/@/BDR,5 @-2/                            FJ  F00 01/17/79 035-295 #31630
/@/CI,5 S:ZLINE-S:FORMS/                 FJ  F00 01/17/79 036-295 #31630
/@/BE @+6/                               FJ  F00 01/17/79 037-295 #31630
/@/CI,5 0/                               FJ  F00 01/17/79 038-295 #31630
/@/BE @+4/                               FJ  F00 01/17/79 039-295 #31630
/@/LB,4 S:ZLINE,5/                       FJ  F00 01/17/79 040-295 #31630
/@/XW,4 *TSTACK/                         FJ  F00 01/17/79 041-295 #31630
/@/B *4/                                 FJ  F00 01/17/79 042-295 #31630
/@/LB,4 *TSTACK/                         FJ  F00 01/17/79 043-295 #31630
/@/BNEZ @-3/                             FJ  F00 01/17/79 044-295 #31630
/@/LB,4 DFLTPC/                          FJ  F00 01/17/79 045-295 #31630
/@/B @-.05/                              FJ  F00 01/17/79 046-295 #31630
/WRTD+.79/BAL,4 WRTD+.1F8/               FJ  F00 01/17/79 047-295 #31630
/. 1/B @(LI,14 .F1/                      FJ  F00 01/17/79 048-295 #31630
/@/BAL,4 GFORML/                         FJ  F00 01/17/79 049-295 #31630
/@/PLW,4 TSTACK/                         FJ  F00 01/17/79 050-295 #31630
/@/AI,0 0/                               FJ  F00 01/17/79 052-295 #31630
/@/BNEZ @+7/                             FJ  F00 01/17/79 053-295 #31630
/@/AI,5 0/                               FJ  F00 01/17/79 054-295 #31630
/@/BEZ @+4/                              FJ  F00 01/17/79 055-295 #31630
/@/CI,15 0/                              FJ  F00 01/17/79 056-295 #31630
/@/BNEZ WRTD+.7F/                        FJ  F00 01/17/79 057-295 #31630
/@/B @+.08/                              FJ  F00 01/17/79 058-295 #31630
/@/LB,0 DFLTPC/                          FJ  F00 01/17/79 059-295 #31630
/@/CW,4 0/                               FJ  F00 01/17/79 060-295 #31630
/@/BG @+2/                               FJ  F00 01/17/79 061-295 #31630
/@/XW,4 0/                               FJ  F00 01/17/79 062-295 #31630
/@/CI,15 0/                              FJ  F00 01/17/79 063-295 #31630
/@/BEZ @+3/                              FJ  F00 01/17/79 064-295 #31630
/@/CW,0 .F/                              FJ  F00 01/17/79 065-295 #31630
/@/BGE WRTD+.7F/                         FJ  F00 01/17/79 066-295 #31630
/@/LI,14 .F1/                            FJ  F00 01/17/79 067-295 #31630
/@/B WRTD+.7B/                           FJ  F00 01/17/79 068-295 #31630
/WRTD+.95/BAL,4 GFORML/                  FJ  F00 01/17/79 069-295 #31630
/. 1/PLW,4 TSTACK/                       FJ  F00 01/17/79 070-295 #31630
/. 1/PLW,5 TSTACK/                       FJ  F00 01/17/79 071-295 #31630
/. 1/AI,5 0/                             FJ  F00 01/17/79 072-295 #31630
/. 1/BEZ @/                              FJ  F00 01/17/79 073-295 #31630
/. 1/B @+.0E/                            FJ  F00 01/17/79 074-295 #31630
/@/AI,0 0/                               FJ  F00 01/17/79 075-295 #31630
/@/LB,0 DFLTPC/                          FJ  F00 01/17/79 077-295 #31630
/@/CW,4 0/                               FJ  F00 01/17/79 078-295 #31630
/@/BG $+2/                               FJ  F00 01/17/79 079-295 #31630
/@/XW,4 0/                               FJ  F00 01/17/79 080-295 #31630
/@/CW,0 .F/                              FJ  F00 01/17/79 081-295 #31630
/@/BL WRTD+.9F/                          FJ  F00 01/17/79 082-295 #31630
/@/MTB,0 *TSTACK/                        FJ  F00 01/17/79 083-295 #31630
/@/BGZ @+2/                              FJ  F00 01/17/79 084-295 #31630
/@/AI,15 1/                              FJ  F00 01/17/79 085-295 #31630
/@/CW,0 .F/                              FJ  F00 01/17/79 086-295 #31630
/@/BGE WRTD+.9D/                         FJ  F00 01/17/79 087-295 #31630
/@/B WRTD+.9C/                           FJ  F00 01/17/79 088-295 #31630
/@/AI,0 0/                               FJ  F00 01/17/79 089-295 #31630
/@/BNEZ @-.0C/                           FJ  F00 01/17/79 090-295 #31630
/@/MTB,0 *TSTACK/                        FJ  F00 01/17/79 091-295 #31630
/@/BGZ @+2/                              FJ  F00 01/17/79 092-295 #31630
/@/AI,15 1/                              FJ  F00 01/17/79 093-295 #31630
/@/CW,4 .F/                              FJ  F00 01/17/79 094-295 #31630
/@/BGE WRTD+.9D/                         FJ  F00 01/17/79 095-295 #31630
/@/LCI .50/                              FJ  F00 01/17/79 096-295 #31630
/@/PSM,12 TSTACK/                        FJ  F00 01/17/79 097-295 #31630
/@/AI,5 0/                               FJ  F00 01/17/79 098-295 #31630
/@/BEZ @+2/                              FJ  F00 01/17/79 099-295 #31630
/@/MTW,1 .17,5/                          FJ  F00 01/17/79 100-295 #31630
/@/BAL,0 WRTD+.1BF/                      FJ  F00 01/17/79 101-295 #31630
/@/LCI .50/                              FJ  F00 01/17/79 102-295 #31630
/@/PLM,12 TSTACK/                        FJ  F00 01/17/79 103-295 #31630
/@/B WRTD+.9C/                           FJ  F00 01/17/79 104-295 #31630
#ELSE                                    FJ  F00 01/17/79 105-295 #31630
/WRTD+.7A/B @(LI,14 .F1)/                FJ  F00 01/17/79 106-295 #31630
/@/BAL,4 WRTD+.1F8/                      FJ  F00 01/17/79 107-295 #31630
/@/BEZ WRTD+.7F/                         FJ  F00 01/17/79 108-295 #31630
/@/LI,14 .F1/                            FJ  F00 01/17/79 109-295 #31630
/@/B WRTD+.7B/                           FJ  F00 01/17/79 110-295 #31630
/WRTD+.95/B @(CW,0 15)/                  FJ  F00 01/17/79 111-295 #31630
/@/BEZ WRTD+.97/                         FJ  F00 01/17/79 112-295 #31630
/@/CW,0 15/                              FJ  F00 01/17/79 113-295 #31630
/@/BL @-6/                               FJ  F00 01/17/79 114-295 #31630
/@/B WRTD+.97/                           FJ  F00 01/17/79 115-295 #31630
/WRTD+.99/B @(AI,15 1)/                  FJ  F00 01/17/79 116-295 #31630
/@/AI,15 1/                              FJ  F00 01/17/79 117-295 #31630
/@/AI,0 0/                               FJ  F00 01/17/79 118-295 #31630
/@/BNEZ WRTD+.9A/                        FJ  F00 01/17/79 119-295 #31630
/@/PSW,4 TSTACK/                         FJ  F00 01/17/79 120-295 #31630
/@/LI,4 6/                               FJ  F00 01/17/79 121-295 #31630
/@/CB,15 TB:SZ,4/                        FJ  F00 01/17/79 122-295 #31630
/@/BL @+.0B/                             FJ  F00 01/17/79 123-295 #31630
/@/PLW,4 TSTACK/                         FJ  F00 01/17/79 124-295 #31630
/@/AI,5 0/                               FJ  F00 01/17/79 125-295 #31630
/@/BEZ @+2/                              FJ  F00 01/17/79 126-295 #31630
/@/LCI .50/                              FJ  F00 01/17/79 128-295 #31630
/@/PSM,12 TSTACK/                        FJ  F00 01/17/79 129-295 #31630
/@/BAL,0 WRTD+.1BF/                      FJ  F00 01/17/79 130-295 #31630
/@/LCI .50/                              FJ  F00 01/17/79 131-295 #31630
/@/PLM,12 TSTACK/                        FJ  F00 01/17/79 132-295 #31630
/@/B WRTD+.9C/                           FJ  F00 01/17/79 133-295 #31630
/@/PLW,4 TSTACK/                         FJ  F00 01/17/79 134-295 #31630
/@/B WRTD+.9D/                           FJ  F00 01/17/79 135-295 #31630
#                                        FJ  F00 01/17/79 136-295 #31630
/WRTD+.212/B @(LI,1 3)/                  FJ  F00 01/17/79 137-295 #31630
/@/LI,1 3/                               FJ  F00 01/17/79 138-295 #31630
/@/LI,12 0/                              FJ  F00 01/17/79 139-295 #31630
/@/B WRTD+.213/                          FJ  F00 01/17/79 140-295 #31630
/WRTD+.128/LB,0 .C,1(LI,4 0)/            FJ  F00 01/17/79 141-295 #31630
/. 1/STB,0 *.E,3/                        FJ  F00 01/17/79 142-295 #31630
/. 1/CI,1 3/                             FJ  F00 01/17/79 143-295 #31630
/. 1/BGE WRTD+.131/                      FJ  F00 01/17/79 144-295 #31630
/. 1/CI,3 132/                           FJ  F00 01/17/79 145-295 #31630
/. 1/BGE WRTD+.131/                      FJ  F00 01/17/79 146-295 #31630
/. 1/AI,1 1/                             FJ  F00 01/17/79 147-295 #31630
/. 1/AI,3 1/                             FJ  F00 01/17/79 148-295 #31630
/. 1/B .-8(BAL,11 ;Q/                    FJ  F00 01/17/79 149-295 #31630
/WRTD+.218/B @(AI,1 -1/                  FJ  F00 01/17/79 150-295 #31630
/@/BCR,3 WRTD+.21A/                      FJ  F00 01/17/79 151-295 #31630
/@/AI,1 -1/                              FJ  F00 01/17/79 152-295 #31630
/@/B WRTD+.219/                          FJ  F00 01/17/79 153-295 #31630
#LINES0-1                                FJ  F00 01/17/79 154-295 #31630
MULOV/OPNLD+.31E/B @(STS,12 .10,1)/      FJ  F00 01/17/79 155-295 #31630
/@/STS,12 .10,1/                         FJ  F00 01/17/79 156-295 #31630
/@/LW,13 OPNLD+.593/                     FJ  F00 01/17/79 157-295 #31630
/@/SLS,12 16/                            FJ  F00 01/17/79 158-295 #31630
/@/CW,12 13/                             FJ  F00 01/17/79 159-295 #31630
/@/BANZ @+.05/                           FJ  F00 01/17/79 160-295 #31630
/@/SLS,12 8/                             FJ  F00 01/17/79 161-295 #31630
/@/CW,12 13/                             FJ  F00 01/17/79 162-295 #31630
/@/BANZ @+.02/                           FJ  F00 01/17/79 163-295 #31630
/@/LW,12 OPNLD+.58D/                     FJ  F00 01/17/79 164-295 #31630
/@/STS,12 .18,1/                         FJ  F00 01/17/79 165-295 #31630
/@/B OPNLD+.31F/                         FJ  F00 01/17/79 166-295 #31630
MULOV/OPNLD+.44E/BLE @(BLE OPNLD+.451)/  FJ  F00 01/17/79 167-295 #31630
/@/CI,1 0/                               FJ  F00 01/17/79 168-295 #31630
/@/BNEZ OPNLD+.451/                      FJ  F00 01/17/79 169-295 #31630
/@/LI,1 .10/                             FJ  F00 01/17/79 170-295 #31630
/@/CW,1 COMBAT/                          FJ  F00 01/17/79 171-295 #31630
/@/BAZ @+.12/                            FJ  F00 01/17/79 172-295 #31630
/@/LW,1 OPNLD+.58F/                      FJ  F00 01/17/79 173-295 #31630
/@/CW,1 .F,3/                            FJ  F00 01/17/79 174-295 #31630
/@/BAZ @+.04/                            FJ  F00 01/17/79 175-295 #31630
/@/LI,1 .100/                            FJ  F00 01/17/79 176-295 #31630
/@/CW,1 COMBAT/                          FJ  F00 01/17/79 177-295 #31630
/@/LI,1 S:ZLINE-S:FORMS/                 FJ  F00 01/17/79 179-295 #31630
/@/LW,0 .19,3/                           FJ  F00 01/17/79 180-295 #31630
/@/CW,0 S:FORMS-1,1/                     FJ  F00 01/17/79 181-295 #31630
/@/BE @+2/                               FJ  F00 01/17/79 182-295 #31630
/@/BDR,1 @-2/                            FJ  F00 01/17/79 183-295 #31630
/@/CI,1 S:ZLINE-S:FORMS/                 FJ  F00 01/17/79 184-295 #31630
/@/BE @+.05/                             FJ  F00 01/17/79 185-295 #31630
/@/CI,1 0/                               FJ  F00 01/17/79 186-295 #31630
/@/BE @+.03/                             FJ  F00 01/17/79 187-295 #31630
/@/LB,1 S:ZLINE,1/                       FJ  F00 01/17/79 188-295 #31630
/@/B OPNLD+.451/                         FJ  F00 01/17/79 189-295 #31630
/@/LW,1 OPNLD+.58F/                      FJ  F00 01/17/79 190-295 #31630
/@/CW,1 .F,3/                            FJ  F00 01/17/79 191-295 #31630
/@/BAZ OPNLD+.44F/                       FJ  F00 01/17/79 192-295 #31630
/@/LW,1 .18,3/                           FJ  F00 01/17/79 193-295 #31630
/@/SLS,1 -24/                            FJ  F00 01/17/79 194-295 #31630
/@/B OPNLD+.451/                         FJ  F00 01/17/79 195-295 #31630
MULOV/OPNLD+.312/BAL,2 @(BAL,2 OPNLD+.3A7)/  F00 01/17/79 196-295 #31630
/@/LW,12 COMBAT/                         FJ  F00 01/17/79 197-295 #31630
/@/CI,12 .10/                            FJ  F00 01/17/79 198-295 #31630
/@/BAZ OPNLD+.3A7/                       FJ  F00 01/17/79 199-295 #31630
/@/LW,12 0,7/                            FJ  F00 01/17/79 200-295 #31630
/@/CW,12 MASKS-.2B/                      FJ  F00 01/17/79 201-295 #31630
/@/BAZ OPNLD+.3A7/                       FJ  F00 01/17/79 202-295 #31630
/@/INT,13 12/                            FJ  F00 01/17/79 203-295 #31630
/@/BCS,1 @+4/                            FJ  F00 01/17/79 204-295 #31630
/@/AI,0 0/                               FJ  F00 01/17/79 205-295 #31630
/@/BGZ OPNLD+.3A7/                       FJ  F00 01/17/79 206-295 #31630
/@/B @+.0E/                              FJ  F00 01/17/79 207-295 #31630
/@/LI,4 2/                               FJ  F00 01/17/79 208-295 #31630
/@/INT,13 .C/                            FJ  F00 01/17/79 209-295 #31630
/@/BCR,4 @+2/                            FJ  F00 01/17/79 210-295 #31630
/@/AI,4 1/                               FJ  F00 01/17/79 211-295 #31630
/@/INT,13 .C/                            FJ  F00 01/17/79 212-295 #31630
/@/BCR,2 @+.05/                          FJ  F00 01/17/79 213-295 #31630
/@/LI,13 .100/                           FJ  F00 01/17/79 214-295 #31630
/@/CW,13 COMBAT/                         FJ  F00 01/17/79 215-295 #31630
/@/BAZ OPNLD+.3A7/                       FJ  F00 01/17/79 216-295 #31630
/@/AI,4 1/                               FJ  F00 01/17/79 217-295 #31630
/@/LW,4 *7,4/                            FJ  F00 01/17/79 218-295 #31630
/@/CI,4 1/                               FJ  F00 01/17/79 219-295 #31630
/@/BAZ OPNLD+.3A7/                       FJ  F00 01/17/79 220-295 #31630
/@/LI,4 .100/                            FJ  F00 01/17/79 221-295 #31630
/@/CW,4 COMBAT/                          FJ  F00 01/17/79 222-295 #31630
/@/BANZ @+.04/                           FJ  F00 01/17/79 223-295 #31630
/@/LW,4 OPNLD+.58F/                      FJ  F00 01/17/79 224-295 #31630
/@/CW,4 .F,1/                            FJ  F00 01/17/79 225-295 #31630
/@/BANZ OPNLD+.3A7/                      FJ  F00 01/17/79 226-295 #31630
/@/LI,4 11/                              FJ  F00 01/17/79 227-295 #31630
/@/LI,13 1/                              FJ  F00 01/17/79 228-295 #31630
/@/BCR,8 @+2/                            FJ  F00 01/17/79 230-295 #31630
/@/AI,13 1/                              FJ  F00 01/17/79 231-295 #31630
/@/BDR,4 @-3/                            FJ  F00 01/17/79 232-295 #31630
/@/LW,4 13/                              FJ  F00 01/17/79 233-295 #31630
/@/LW,12 *7,4/                           FJ  F00 01/17/79 234-295 #31630
/@/LI,4 S:ZLINE-S:FORMS/                 FJ  F00 01/17/79 235-295 #31630
/@/CW,12 S:FORMS-1,4/                    FJ  F00 01/17/79 236-295 #31630
/@/BE OPNLD+.3A7/                        FJ  F00 01/17/79 237-295 #31630
/@/BDR,4 @-2/                            FJ  F00 01/17/79 238-295 #31630
/@/LW,12 COMBAT/                         FJ  F00 01/17/79 239-295 #31630
/@/CI,12 .40/                            FJ  F00 01/17/79 240-295 #31630
/@/BAZ OPNLD+.3A7/                       FJ  F00 01/17/79 241-295 #31630
/@/CI,12 .20/                            FJ  F00 01/17/79 242-295 #31630
/@/BANZ @+4/                             FJ  F00 01/17/79 243-295 #31630
/@/LB,12 JIT+.43/                        FJ  F00 01/17/79 244-295 #31630
/@/CI,12 .C0/                            FJ  F00 01/17/79 245-295 #31630
/@/BGE OPNLD+.3A7/                       FJ  F00 01/17/79 246-295 #31630
/@/LW,12 0,7/                            FJ  F00 01/17/79 247-295 #31630
/@/CW,12 OPNLD+.293/                     FJ  F00 01/17/79 248-295 #31630
/@/BNE @+.06/                            FJ  F00 01/17/79 249-295 #31630
/@/LW,12 .1F,1/                          FJ  F00 01/17/79 250-295 #31630
/@/CI,12 .4/                             FJ  F00 01/17/79 251-295 #31630
/@/BAZ @+.03/                            FJ  F00 01/17/79 252-295 #31630
/@/AND,12 MASKS-.1D/                     FJ  F00 01/17/79 253-295 #31630
/@/STW,12 .1F,1/                         FJ  F00 01/17/79 254-295 #31630
/@/LI,8 .B704/                           FJ  F00 01/17/79 255-295 #31630
/@/B OPNLD+.28C/                         FJ  F00 01/17/79 256-295 #31630
#                                        FJ  F00 01/17/79 257-295 #31630
< PREVENT INTERMITTENT BAD DISK BLOCKS WHEN FILLING SYMBIONT DATA #31649
< ON AN I/O BOUND SYSTEM, OR ON A HEAVY I/O USAGE SYSTEM.         #31649
MULOV/OPNLD+.194/BANZ @(BANZ OPNLD+.19A)/FJ  F00 11/25/78 001-008 #31649
/@/LCI 0/                                FJ  F00 11/25/78 002-008 #31649
/@/PSM,0 TSTACK/                         FJ  F00 11/25/78 003-008 #31649
/@/LW,6 3/                               FJ  F00 11/25/78 004-008 #31649
/@/BAL,11 IORT+.336/                     FJ  F00 11/25/78 005-008 #31649
/@/LCI 0/                                FJ  F00 11/25/78 006-008 #31649
/@/PLM,0 TSTACK/                         FJ  F00 11/25/78 007-008 #31649
/@/B OPNLD+.19A/                         FJ  F00 11/25/78 008-008 #31649
< FIX OPNLD TO USE THE PROPER DEVICE CODE PROVIDED BY LDEV        #31646
< FOR WORKSTATIONS. !LDEV XX,(DEV,YY),(WSN,Z),(ASAVE). ALSO       #31646
< DISCOVERED THAT THE INDIRECT BIT FOR THE DEV OPTION IS NOT      #31646
< CHECKED. A DOCUMENTATION CHANGE WILL BE REQUESTED TO REFLECT    #31646
< THAT INDIRECT IS NOT VALID ON THE IN/OUT OR THE DEV OPTION      #31646
< WORDS IN THE M:LDEV FPT.  IF THE BIT IS SET THE CAL WILL BE     #31646
< ERRORED WITH A B704 ERROR.                                      #31646
MULOV/OPNLD+.E1/B @(LW,13 *7,4)/         FJ  F00 11/21/78 001-032 #31646
/@/LW,13 *7,4/                           FJ  F00 11/21/78 002-032 #31646
/@/BGEZ OPNLD+.E2/                       FJ  F00 11/21/78 003-032 #31646
/@/B OPNLD+.D7/                          FJ  F00 11/21/78 004-032 #31646
MULOV/OPNLD+.157/B @(B OPNLD+.1BE)/      FJ  F00 11/21/78 005-032 #31646
/@/B OPNLD+.1BE/                         FJ  F00 11/21/78 007-032 #31646
MULOV/OPNLD+.15E/BLZ OPNLD+.D7(BEZ OPNLD+.161)/  11/21/78 008-032 #31646
MULOV/. 1/BEZ OPNLD+.161(LW,2 *7,4)/     FJ  F00 11/21/78 009-032 #31646
MULOV/. 1/B @(B OPNLD+.1CB/              FJ  F00 11/21/78 010-032 #31646
/@/LW,2 *7,4/                            FJ  F00 11/21/78 011-032 #31646
/@/BLZ OPNLD+.D7/                        FJ  F00 11/21/78 012-032 #31646
/@/OR,2 MASKS-.23/                       FJ  F00 11/21/78 013-032 #31646
/@/B OPNLD+.1CB/                         FJ  F00 11/21/78 014-032 #31646
MULOV/OPNLD+.211/LW,4 ;Q,3(LW,2 ;Q,3)/   FJ  F00 11/21/78 015-032 #31646
MULOV/. 2/STW,4 ;Q,3(STW,2 ;Q,3)/        FJ  F00 11/21/78 016-032 #31646
MULOV/. 1/LI,4 ;Q(LI,2 ;Q)/              FJ  F00 11/21/78 017-032 #31646
MULOV/. 2/MTH,0 *3,4(MTH,0 *3,2)/        FJ  F00 11/21/78 018-032 #31646
MULOV/OPNLD+.223/CW,2 MASKS-.23(LI,2 .FF)/   F00 11/21/78 019-032 #31646
MULOV/. 1/BAZ @(AND,2 1,3)/              FJ  F00 11/21/78 020-032 #31646
MULOV/. 1/B @+1(B OPNLD+.227)/           FJ  F00 11/21/78 021-032 #31646
/@/LW,2 1,3/                             FJ  F00 11/21/78 022-032 #31646
/@/AND,2 MASKS+8/                        FJ  F00 11/21/78 023-032 #31646
/@/B OPNLD+.227/                         FJ  F00 11/21/78 024-032 #31646
MULOV/OPNLD+.310/B @(LW,8 2)/            FJ  F00 11/21/78 025-032 #31646
/@/LI,8 .FF/                             FJ  F00 11/21/78 026-032 #31646
/@/AND,8 2/                              FJ  F00 11/21/78 027-032 #31646
/@/B OPNLD+.311/                         FJ  F00 11/21/78 028-032 #31646
MULOV/OPNLD+.2E5/B @(CI,2 5)/            FJ  F00 11/21/78 029-032 #31646
/@/AND,2 MASKS+.8/                       FJ  F00 11/21/78 030-032 #31646
/@/CI,2 5/                               FJ  F00 11/21/78 031-032 #31646
/@/B OPNLD+.2E6/                         FJ  F00 11/21/78 032-032 #31646
< PREVENT SC 2D-02 WHEN USER CLOSES A STREAM OUT FROM UNDER AN    #31911
< OPEN DCB CONNECTED THRU IT TO A CARD PUNCH, THEN CLOSES THE DCB #31911
<  DOING THIS WILL PREVENT THE !EOD CARD NORMALLY PUNCHED BY      #31911
<  CLOSE BUT THAT IS WHAT WAS REQUESTED BY THE SEQUENCE.          #31911
<    TWO PART PATCH 5 CARDS IN ROOT 8 CARDS IN MULOV OVERLAY.     #31911
MULOV/OPNLD+.1F1/B OPNLD+.1F8(LI,13 .70)/FJ  F00 11/03/78 006-013 #31911
MULOV/OPNLD+.200/B @(LCI 2)/             FJ  F00 11/03/78 007-013 #31911
/@/LI,13 .70/                            FJ  F00 11/03/78 008-013 #31911
/@/B OPNLD+.1F2/                         FJ  F00 11/03/78 009-013 #31911
MULOV/OPNLD+.1F7/B @(STS,13 1,1)/        FJ  F00 11/03/78 010-013 #31911
/@/STS,13 1,1/                           FJ  F00 11/03/78 011-013 #31911
/@/LCI 2/                                FJ  F00 11/03/78 012-013 #31911
/@/B OPNLD+.201/                         FJ  F00 11/03/78 013-013 #31911
<    -----> Read file 24562INFO on the SST tape before <-----     #24562
<    ----->     attempting to install this patch!      <-----     #24562
<                                                                 #24562
<     This patch is a replacement for one with the same SIDR      #24562
<     number dated 9/27/78 - the old version must be removed.     #24562
<     This version implements an improved fix for problems        #24562
<     occurring when the system begins to run out of symbiont     #24562
<     output file slots; it contains all of the code provided     #24562
<     by the previous version, as well as (optional) code         #24562
<     for SIDR 31906.                                             #24562
<                                                                 #24562
<     overlay, 7 cards to RECOVER, and 103 cards to RBBAT.        #24562
<                                                                 #24562
<     If you are using either the GUARD=1 or GUARD=2 modes,       #24562
<     you should add the following two messages to ERRMSG         #24562
<     via ERRMWR:                                                 #24562
<                                                                 #24562
<        B71A Can't Superclose - no symbiont file slots left      #24562
<        B71C Can't LDEV - no symbiont file slots left            #24562
<                                                                 #24562
<     This section of the patch is to be installed in the MULOV   #24562
<     overlay. It absolutely *must* be placed *after* the         #24562
<     MULOV patch for SIDR 31911.                                 #24562
<                                                                 #24562
#GUARD                                   FJ  F00 11/18/78 001-153 #24562
#SUCLOG=@                                FJ  F00 11/18/78 002-153 #24562
/@/.D3D6C700/                            FJ  F00 11/18/78 003-153 #24562
/@/.D6D54040/                            FJ  F00 11/18/78 004-153 #24562
/@/.1A0000B7/                            FJ  F00 11/18/78 005-153 #24562
/@/.1C0000B7/                            FJ  F00 11/18/78 006-153 #24562
MULOV/SUPCLS+.3D/B @(LI,14 0)/           FJ  F00 11/18/78 007-153 #24562
/@/LW,14 BL:OFS/                         FJ  F00 11/18/78 008-153 #24562
/@/CI,14 SNDDXSIZ+2/                     FJ  F00 11/18/78 009-153 #24562
/@/BL @+3/                               FJ  F00 11/18/78 010-153 #24562
/@/LI,14 0/                              FJ  F00 11/18/78 011-153 #24562
/@/B SUPCLS+.3E/                         FJ  F00 11/18/78 012-153 #24562
/@/LC JIT/                               FJ  F00 11/18/78 013-153 #24562
/@/BCR,8 @-3/                            FJ  F00 11/18/78 014-153 #24562
/@/LW,14 .8D01/                          FJ  F00 11/18/78 015-153 #24562
/@/SLS,14 8/                             FJ  F00 11/18/78 016-153 #24562
/@/CW,14 SUCLOG/                         FJ  F00 11/18/78 017-153 #24562
/@/BNE @+4/                              FJ  F00 11/18/78 018-153 #24562
/@/LW,14 .8D02/                          FJ  F00 11/18/78 019-153 #24562
/@/CW,14 SUCLOG+1/                       FJ  F00 11/18/78 020-153 #24562
/@/BE @-10/                              FJ  F00 11/18/78 021-153 #24562
/@/LW,14 SUCLOG+2/                       FJ  F00 11/18/78 022-153 #24562
/@/B STEP+.B/                            FJ  F00 11/18/78 023-153 #24562
MULOV/OPNLD+.1F1/B @(B OPNLD+.1F8)/      FJ  F00 11/18/78 024-153 #24562
/@/LW,13 BL:OFS/                         FJ  F00 11/18/78 025-153 #24562
/@/CI,13 SNDDXSIZ+2/                     FJ  F00 11/18/78 026-153 #24562
/@/BL @+2/                               FJ  F00 11/18/78 027-153 #24562
/@/B OPNLD+.1F8/                         FJ  F00 11/18/78 028-153 #24562
/@/LC JIT/                               FJ  F00 11/18/78 029-153 #24562
/@/BCR,8 $-2/                            FJ  F00 11/18/78 030-153 #24562
/@/LI,13 .70/                            FJ  F00 11/18/78 031-153 #24562
/@/AND,13 0,7/                           FJ  F00 11/18/78 032-153 #24562
/@/CI,13 .40/                            FJ  F00 11/18/78 033-153 #24562
/@/BE @-6/                               FJ  F00 11/18/78 034-153 #24562
/@/LW,14 SUCLOG+3/                       FJ  F00 11/18/78 035-153 #24562
/@/B STEP+.B/                            FJ  F00 11/18/78 036-153 #24562
/COOP+.25/B @(LI,1 1)/                   FJ  F00 11/18/78 037-153 #24562
/@/CI,1 SNDDXSIZ+10/                     FJ  F00 11/18/78 039-153 #24562
/@/BL COOP+.43/                          FJ  F00 11/18/78 040-153 #24562
/@/LI,1 1/                               FJ  F00 11/18/78 041-153 #24562
/@/B COOP+.26/                           FJ  F00 11/18/78 042-153 #24562
#                                        FJ  F00 11/18/78 043-153 #24562
< REPLACEMENT PATCH FOR THE ONE DATED 9/25/79 WHICH MUST BE       #31634
< REMOVED. 18 CARDS TO WRTD IN ROOT AND 1 CARD TO OPNLD IN MULOV. #31634
< NOTE, IF USING LINES0 OPTION OF 31630, YOU MUST USE THIS        #31634
< VERSION OF 31634, FOR 31630 TO FUNCTION PROPERLY.               #31634
MULOV/OPNLD+.459/LI,11 .FF(LI,11 2)/     FJ  F00 01/17/79 019-019 #31634
< !LDEV C2,(AINIT) CAN GRAB INPUT FILES AS WELL AS !!NCTL FILES,  #31627
< SO JOBS FALL INTO A BLACK HOLE AND VANISH.                      #31627
MULOV/OPNLD+.95/B @(LI,12 .FF/           DCP F00 09/11/78 001-006 #31627
/@/BDR,4 OPNLD+.94/                      DCP F00 09/11/78 002-006 #31627
/@/LI,12 .FF/                            DCP F00 09/11/78 003-006 #31627
/@/LW,2 @+2/                             DCP F00 09/11/78 004-006 #31627
/@/B OPNLD+.96/                          DCP F00 09/11/78 005-006 #31627
/@/.D0000000/                            DCP F00 09/11/78 006-006 #31627
<FIX SECURITY PROBLEM, ALSO MAKE OPEN SAVE CLOSE DELETE OPERATE   #31609
<THE WAY IT WAS INTENDED.                                         #31609
MULOV/OPNLD+.182/BG ;Q(BL ;Q)/           FJ  F00 08/22/78 001-062 #31609
MULOV/OPNLD+.6F/B @(B OPNLD+.AF)/        FJ  F00 08/22/78 002-062 #31609
/@/LW,14 10,2/                           FJ  F00 08/22/78 003-062 #31609
/@/CI,14 .22/                            FJ  F00 08/22/78 004-062 #31609
/@/BNE $+8/                              FJ  F00 08/22/78 005-062 #31609
/@/LW,1 2/                               FJ  F00 08/22/78 006-062 #31609
/@/SLS,1 1/                              FJ  F00 08/22/78 007-062 #31609
/@/LH,14 13,1/                           FJ  F00 08/22/78 008-062 #31609
/@/SLS,14 1/                             FJ  F00 08/22/78 009-062 #31609
/@/AI,14 -1/                             FJ  F00 08/22/78 010-062 #31609
/@/STH,14 13,1/                          FJ  F00 08/22/78 011-062 #31609
/@/B OPNLD+.AF/                          FJ  F00 08/22/78 012-062 #31609
/@/CI,14 .F0/                            FJ  F00 08/22/78 013-062 #31609
/@/BANZ OPNLD+.AF/                       FJ  F00 08/22/78 014-062 #31609
/@/STW,15 9,2/                           FJ  F00 08/22/78 015-062 #31609
/@/LI,1 .1A/                             FJ  F00 08/22/78 016-062 #31609
/@/STH,15 *2,1/                          FJ  F00 08/22/78 017-062 #31609
/@/LI,1 1/                               FJ  F00 08/22/78 018-062 #31609
/@/STW,1 7,2/                            FJ  F00 08/22/78 019-062 #31609
/@/B OPNLD+.AF/                          FJ  F00 08/22/78 020-062 #31609
MULOV/SUPCLS+.164/BE @(BE SUPCLS+.106)/  FJ  F00 08/22/78 021-062 #31609
/@/LI,4 1/                               FJ  F00 08/22/78 022-062 #31609
/@/STH,12 .E,4/                          FJ  F00 08/22/78 023-062 #31609
/@/B SUPCLS+.106/                        FJ  F00 08/22/78 024-062 #31609
MULOV/SUPCLS+.182/LI,4 .40(LI,4 .12)/    FJ  F00 08/22/78 025-062 #31609
MULOV/SUPCLS+.183/STB,4 *3,5/            FJ  F00 08/22/78 026-062 #31609
MULOV/SUPCLS+.184/LI,4 .12/              FJ  F00 08/22/78 027-062 #31609
MULOV/SUPCLS+.185/STB,4 .E(STB,4 *3,5)/  FJ  F00 08/22/78 028-062 #31609
MULOV/SUPCLS+.130/NOP 1(BAL,6 ;Q)/       FJ  F00 08/22/78 029-062 #31609
MULOV/SUPCLS+.150/NOP 2(BAL,6 ;Q)/       FJ  F00 08/22/78 030-062 #31609
MULOV/SUPCLS+.ED/B SPFIP(CI,14 .F0)/     FJ  F00 08/22/78 032-062 #31609
MULOV/SPFIP/CI,14 .22/                   FJ  F00 08/22/78 033-062 #31609
MULOV/SPFIP+1/BE SUPCLS+.174/            FJ  F00 08/22/78 034-062 #31609
MULOV/SPFIP+2/CI,14 .F0/                 FJ  F00 08/22/78 035-062 #31609
MULOV/SPFIP+3/BANZ SUPCLS+.EF/           FJ  F00 08/22/78 036-062 #31609
MULOV/SPFIP+4/B SUPCLS+.174/             FJ  F00 08/22/78 037-062 #31609
MULOV/SUPCLS+.17A/B SPFIP+5(LI,12 .B)/   FJ  F00 08/22/78 038-062 #31609
MULOV/SPFIP+5/BAL,6 SUPCLS+.17E/         FJ  F00 08/22/78 039-062 #31609
MULOV/SPFIP+6/CB,4 .E/                   FJ  F00 08/22/78 040-062 #31609
MULOV/SPFIP+7/BE $+5/                    FJ  F00 08/22/78 041-062 #31609
MULOV/SPFIP+8/CI,14 .DD/                 FJ  F00 08/22/78 042-062 #31609
MULOV/SPFIP+9/BAZ SUPCLS+.17D/           FJ  F00 08/22/78 043-062 #31609
MULOV/SPFIP+.A/LI,12 .B/                 FJ  F00 08/22/78 044-062 #31609
MULOV/SPFIP+.B/B SUPCLS+.17B/            FJ  F00 08/22/78 045-062 #31609
MULOV/SPFIP+.C/LI,4 0/                   FJ  F00 08/22/78 046-062 #31609
MULOV/SPFIP+.D/STB,4 .D/                 FJ  F00 08/22/78 047-062 #31609
MULOV/SPFIP+.E/LI,12 .C/                 FJ  F00 08/22/78 048-062 #31609
MULOV/SPFIP+.F/B SUPCLS+.17B/            FJ  F00 08/22/78 049-062 #31609
MULOV/OPNLD+.102/B @(CH,12 ;Q)/          FJ  F00 08/22/78 050-062 #31609
/@/SLD,12 -8/                            FJ  F00 08/22/78 051-062 #31609
/@/CI,12 .23/                            FJ  F00 08/22/78 052-062 #31609
/@/BGE OPNLD+.D6/                        FJ  F00 08/22/78 053-062 #31609
/@/CI,12 .10/                            FJ  F00 08/22/78 054-062 #31609
/@/BE OPNLD+.D6/                         FJ  F00 08/22/78 055-062 #31609
/@/LI,12 0/                              FJ  F00 08/22/78 056-062 #31609
/@/SLD,12 8/                             FJ  F00 08/22/78 057-062 #31609
/@/CI,12 .23/                            FJ  F00 08/22/78 058-062 #31609
/@/BGE OPNLD+.D6/                        FJ  F00 08/22/78 059-062 #31609
/@/CI,12 .10/                            FJ  F00 08/22/78 060-062 #31609
/@/BE OPNLD+.D6/                         FJ  F00 08/22/78 061-062 #31609
/@/B OPNLD+.104/                         FJ  F00 08/22/78 062-062 #31609
OPEN//
< OPEN LOGIC SOMETIMES SETS NOU TO 3 WHEN 2 OR MORE USERS TRY     X32815
< TO OPEN IN SHARED MODE.                                         X32815
OPEN/OPNF+.333/B @(STW,9 0,1/            JL  EXP-F 810603 001-005 X32815
/@/AND,9 @+3/                            JL  EXP-F 810603 002-005 X32815
/@/STW,9 0,1/                            JL  EXP-F 810603 003-005 X32815
/@/B OPNF+.334/                          JL  EXP-F 810603 004-005 X32815
/@/.FF01FFFF/                            JL  EXP-F 810603 005-005 X32815
< CFU GARBAGE COLLECTOR CAN TRASH FNE POINTERS IF PAX IS LARGE.   #32769
OPEN/CFUR+.8A/LW,6 LITERALS+.80(LI,6 1/  JBC F00 06/16/81 001-006 #32769
OPEN/CFUR+.8B/LW,7 LITERALS+.9B(LW,7 LITERALS+.80/        002-006 #32769
OPEN/CFUR+.8F/CS,6 2,4(CS,7 2,4/         JBC F00 06/16/81 003-006 #32769
OPEN/CFUR+.95/B @(B CFUR+.7A/            JBC F00 06/16/81 004-006 #32769
/@/LI,6 1/                               JBC F00 06/16/81 005-006 #32769
/@/B CFUR+.7A/                           JBC F00 06/16/81 006-006 #32769
OPENTP//
< RING THE ALARM TO ALERT THE OPERATOR OF A MOUNT REQUEST         X32965
OPENTP/TYPR+.8C/MTW,1 TABLES+.1D(BAL,11 SCHED+.1BC/       001-003 X32965
OPENTP/TYPR+.8D/BAL,11 SCHED+.1BC(BAL,11 TYPR+.90/        002-003 X32965
OPENTP/TYPR+.8E/BAL,11 TYPR+.90(MTW,1 TABLES+.1D/F 810804 003-003 X32965
< IF A READ ERROR OCCURS WHILST PROCESSING THE LABELS OF AN       X32541
< ANS TAPE THE SYSTEM WILL LOOP.                                  X32541
OPENTP/OPNL+.359/CI,3 2(CI,3 6)/         MJH F00 01/02/80 001-002 X32541
OPENTP/OPNL+.35A/BL OPNL+.362(BNE OPNL+.362)/F00 01/02/80 002-002 X32541
RMAOV//
< REPLACEMENT FOR PATCH OF SAME NUMBER DATED 10/02/79.            #32289
< THE ORIGINAL PATCH DID NOT CONSIDER THE (RARE) POSSIBILITY OF   #32289
< RMP DISKS ON A SIGMA, OR OF MIXED RMP-NONRMP PACKS ON ANY CPU.  #32289
< CODE HAS BEEN ADDED TO CHECK THAT THIS OPERATION IS ON AN RMP,  #32289
< BUT THE SIGMA USER OF RMP DISKS WILL HAVE TO REMOVE CONDITIONAL #32289
< CARDS 1,63,64, AND 77 OF 77 TO IMPLEMENT THIS PATCH.            #32289
< A NEW (AND BETTER) VERSION OF VOLINIT HAS                       #32289
< BEEN ON THE SST SINCE 1979.                                     #32289
< FILE NAMES ARE AS FOLLOWS: UP:VOLINIT, BO:VOLINIT, DIAG.        #32289
<THESE PATCHES ARE SOME OF THE SOLUTIONS TO THE RMP PROBLEM       #32289
< WITH VOLINIT                                                    #32289
<                                                                 #32289
<      NOTE:                                                      #32289
<                                                                 #32289
<             THIS PATCH IS ONLY NEEDED ON 560S OR WITH RMP PACKS #32289
<             TO IMPLEMENT THIS PATCH, TURN THE X560 SWITCH ON    #32289
<                                                                 #32289
<                        #X560=1                                  #32289
<                                                                 #32289
<             AT THE BEGINNING OF THE PATCH DECK.                 #32289
#X560                                    GMO F00 03/26/81 001-077 #32289
#CKRMP=@                                 GMO F00 03/26/81 002-077 #32289
/@/LW,12 NSPT,2/                         GMO F00 03/26/81 004-077 #32289
/@/CI,12 .C/                             GMO F00 03/26/81 005-077 #32289
/@/BNE *11/                              GMO F00 03/26/81 006-077 #32289
/@/LW,12 NTPC,2/                         GMO F00 03/26/81 007-077 #32289
/@/CI,12 .13/                            GMO F00 03/26/81 008-077 #32289
/@/BNE *11/                              GMO F00 03/26/81 009-077 #32289
/@/AI,11 .2/                             GMO F00 03/26/81 010-077 #32289
/@/B *11/                                GMO F00 03/26/81 011-077 #32289
RMAOV/FISH+.5BB/B @(LCI 0/               GMO F00 03/26/81 012-077 #32289
/@/BAL,11 CKRMP/                         GMO F00 03/26/81 013-077 #32289
/@/LCI 0/                                GMO F00 03/26/81 014-077 #32289
/@/B FISH+.5BC/                          GMO F00 03/26/81 015-077 #32289
/@/LD,12 DCT13,3/                        GMO F00 03/26/81 016-077 #32289
/@/LC DCT20,3/                           GMO F00 03/26/81 017-077 #32289
/@/B FISH+.5BD/                          GMO F00 03/26/81 018-077 #32289
RMAOV/FISH+.5BE/B @ (LCI 0/              GMO F00 03/26/81 019-077 #32289
/@/BAL,11 CKRMP/                         GMO F00 03/26/81 020-077 #32289
/@/LCI 0/                                GMO F00 03/26/81 021-077 #32289
/@/B FISH+.58F/                          GMO F00 03/26/81 022-077 #32289
/@/LCI 0/                                GMO F00 03/26/81 023-077 #32289
/@/B FISH+.5BC/                          GMO F00 03/26/81 024-077 #32289
< M;DOPEN SETS HIGH ORDER BIT FOR IN CIT4 FOR RMP DEVICE          #32289
RMAOV/FISH .3AB/B @(STW,9 DCT9,2/        GMO F00 03/26/81 025-077 #32289
/@/STW,9 DCT9,2/                         GMO F00 03/26/81 026-077 #32289
/@/BE FISH .3AC/                         GMO F00 03/26/81 028-077 #32289
/@/LB,1 DCT22,2/                         GMO F00 03/26/81 029-077 #32289
/@/LW,8 NSPT,1/                          GMO F00 03/26/81 030-077 #32289
/@/CI,8 .C/                              GMO F00 03/26/81 031-077 #32289
/@/BNE FISH .3AC/                        GMO F00 03/26/81 032-077 #32289
/@/LW,8 NTPC,1/                          GMO F00 03/26/81 033-077 #32289
/@/CI,8 .13/                             GMO F00 03/26/81 034-077 #32289
/@/BNE FISH .3AC/                        GMO F00 03/26/81 035-077 #32289
/@/LB,1 DCT2,2/                          GMO F00 03/26/81 036-077 #32289
/@/LW,9 LITERALS .23/                    GMO F00 03/26/81 037-077 #32289
/@/STS,9 CIT4,1/                         GMO F00 03/26/81 038-077 #32289
/@/B FISH .3AC/                          GMO F00 03/26/81 039-077 #32289
<M:DCLOSE RESETS BIT IN CIT4 WHEN ALL DEVICES ARE NOT IN DIAG MODE#32289
RMAOV/FISH .46C/B @(STW,8 DCT9,2/        GMO F00 03/26/81 040-077 #32289
/@/STW,8 DCT9,2/                         GMO F00 03/26/81 041-077 #32289
/@/LH,5 DCT23,2/                         GMO F00 03/26/81 042-077 #32289
/@/BE FISH .46D/                         GMO F00 03/26/81 043-077 #32289
/@/LB,5 DCT22,2/                         GMO F00 03/26/81 044-077 #32289
/@/LW,8 NSPT,5/                          GMO F00 03/26/81 045-077 #32289
/@/CI,8 .C/                              GMO F00 03/26/81 046-077 #32289
/@/BNE FISH .46D/                        GMO F00 03/26/81 047-077 #32289
/@/LW,8 NTPC,5/                          GMO F00 03/26/81 048-077 #32289
/@/CI,8 .13/                             GMO F00 03/26/81 049-077 #32289
/@/BNE FISH .46D/                        GMO F00 03/26/81 050-077 #32289
/@/LI,5 DCTSIZ/                          GMO F00 03/26/81 051-077 #32289
/@/CB,8 DCT2,5/                          GMO F00 03/26/81 053-077 #32289
/@/BNE . 3/                              GMO F00 03/26/81 054-077 #32289
/@/INT,9 DCT9,5/                         GMO F00 03/26/81 055-077 #32289
/@/BCS,2 FISH .46D/                      GMO F00 03/26/81 056-077 #32289
/@/BDR,5 .-5/                            GMO F00 03/26/81 057-077 #32289
/@/LB,5 DCT2,2/                          GMO F00 03/26/81 058-077 #32289
/@/LW,8 CIT4,5/                          GMO F00 03/26/81 059-077 #32289
/@/AND,8 LITERALS .62/                   GMO F00 03/26/81 060-077 #32289
/@/STW,8 CIT4,5/                         GMO F00 03/26/81 061-077 #32289
/@/B FISH .46D/                          GMO F00 03/26/81 062-077 #32289
#                                        GMO F00 03/26/81 063-077 #32289
<REPLACEMENT PATCH FOR 31 CARD PATCH DATED 05/29/79.  THIS        #32348
<REPLACEMENT PATCH FIXES THE BUG WHICH CAUSED SC/19 ON ANY KIND OF#32348
<ERROR WHEN DOING THE M:BLIST CAL.                                #32348
#MAXW=58                                 DGH F00 08/27/79 001-041 #32348
/@@/JLIM!TSTACK/                         DGH F00 08/27/79 002-041 #32348
/@/.8DFF/                                DGH F00 08/27/79 003-041 #32348
RMAOV/FISH .2B1/B @(BE . 2/              DGH F00 08/27/79 004-041 #32348
/@/BE FISH .2B3/                         DGH F00 08/27/79 005-041 #32348
/@/CLM,14 JLIM/                          DGH F00 08/27/79 006-041 #32348
/@/BCS,9 FISH .2B2/                      DGH F00 08/27/79 007-041 #32348
/@/LI,11 -MAXW/                          DGH F00 08/27/79 008-041 #32348
/@/MSP,11 TSTACK/                        DGH F00 08/27/79 009-041 #32348
/@/B FISH .2B3/                          DGH F00 08/27/79 010-041 #32348
RMAOV/FISH .4F5/LI,5 MAXW-1(LI,5 10/     DGH F00 08/27/79 012-041 #32348
RMAOV/FISH+.4F6/PSW,5 TSTACK(BAL,11 ;Q/  DGH F00 08/27/79 013-041 #32348
RMAOV/FISH+.4F7/LW,14 TSTACK(BNE ;Q/     DGH F00 08/27/79 014-041 #32348
RMAOV/FISH .4F8/B FISH .4FB(BDR,5 ;Q/    DGH F00 08/27/79 015-041 #32348
RMAOV/FISH .4FE/MSP,5 TSTACK(BL FISH .4F9/   F00 08/27/79 016-041 #32348
RMAOV/FISH+.503/MTH,1 *14(MTW,1 *14/     DGH F00 08/27/79 017-041 #32348
RMAOV/FISH .504/B @(LW,2 *14/            DGH F00 08/27/79 018-041 #32348
/@/LH,2 *14/                             DGH F00 08/27/79 019-041 #32348
/@/CI,2 MAXW MAXW/                       DGH F00 08/27/79 020-041 #32348
/@/BL FISH .505/                         DGH F00 08/27/79 021-041 #32348
/@/LI,2 6/                               DGH F00 08/27/79 022-041 #32348
/@/B FISH .2AB/                          DGH F00 08/27/79 023-041 #32348
RMAOV/FISH+.507/B @(STW,0 *14,2/         DGH F00 08/27/79 024-041 #32348
/@/SCS,0 -1/                             DGH F00 08/27/79 025-041 #32348
/@/STH,0 *14,2/                          DGH F00 08/27/79 026-041 #32348
/@/SCS,0 +1/                             DGH F00 08/27/79 027-041 #32348
/@/B FISH+.508/                          DGH F00 08/27/79 028-041 #32348
RMAOV/FISH .51F/NOP(BGE FISH .2AB/       DGH F00 08/27/79 029-041 #32348
RMAOV/FISH .522/LI,14 -MAXW(LW,14 2,6/   DGH F00 08/27/79 030-041 #32348
RMAOV/FISH+.523/MSP,14 TSTACK(BAL,11 ;Q/ DGH F00 08/27/79 031-041 #32348
RMAOV/FISH+.56B/LH,4 *0(LW,4 *0/         DGH F00 08/27/79 032-041 #32348
RMAOV/FISH+.569/B @(SLS,5 1/             DGH F00 08/27/79 033-041 #32348
/@/LW,11 5/                              DGH F00 08/27/79 034-041 #32348
/@/SLS,5 1/                              DGH F00 08/27/79 035-041 #32348
/@/SLS,11 16/                            DGH F00 08/27/79 036-041 #32348
/@/SAS,11 -16/                           DGH F00 08/27/79 037-041 #32348
/@/B FISH .56A/                          DGH F00 08/27/79 038-041 #32348
RMAOV/FISH+.56C/CH,11 *0,4(CW,5 *0,4/    DGH F00 08/27/79 039-041 #32348
RMAOV/FISH+.581/LH,11 *0(LW,11 *0/       DGH F00 08/27/79 040-041 #32348
#MAXW;K1                                 DGH F00 08/27/79 041-041 #32348
<  If a C0 user issues an M:DMOD# or similar service request,     #31843
<  FISH sets DID=S:CUN even if DID wasn't zero (i.e., another     #31843
<  diagnostic user running). This can cause an authorized         #31843
<  diagnostic user to get aborted with 09-0A error when he        #31843
<  shouldn't be - diagnostic DCBs don't get closed properly.      #31843
<  Running a job that needs a private spindle in a C0 account     #31843
<  can induce this since CCI uses a variant of M:DMOD# for its    #31843
<  resource limit check. N.B. and caveat - the design of          #31843
<  the diagnostic I/O system does not permit more than 1          #31843
<  diagnostic user at a time!!                                    #31843
RMAOV/FISH+.106/B @ (STW,15 TABLES+.20D/ DCP F00 01/08/79 001-006 #31843
/@/MTW,0 TABLES+.20D/                    DCP F00 01/08/79 002-006 #31843
/@/BNEZ @+2/                             DCP F00 01/08/79 003-006 #31843
/@/STW,15 TABLES+.20D/                   DCP F00 01/08/79 004-006 #31843
/@/B FISH+.107/                          DCP F00 01/08/79 005-006 #31843
<  Incorrect literal causes 09-0A code to get reported to the     #31843
<  user as an 09-14 error (whazzat?)                              #31843
RMAOV/FISH+.5C7/.0A000009 (.14000009/    DCP F00 01/08/79 006-006 #31843
RTOV//
STEPOVR//
< SJAC CAN BE LOST ON AN EXECUTE ONLY LMN IF USER TRIES TO        #32956
< GET DELTA WITH A CTL-Y DELTA SEQUENCE                           #32956
#J:UPRIV=.8C41                           JBC F00 06/03/81 001-012 #32956
STEPOVR/STPNR+.ADB/B @(LI,1 .A1/         JBC F00 06/03/81 002-012 #32956
/@/LW,1 J:UPRIV/                         JBC F00 06/03/81 003-012 #32956
/@/CW,1 LITERALS+6/                      JBC F00 06/03/81 004-012 #32956
/@/BAZ $+5/                              JBC F00 06/03/81 005-012 #32956
/@/LW,4 S:CUN/                           JBC F00 06/03/81 006-012 #32956
/@/LH,1 UH:FLG,4/                        JBC F00 06/03/81 007-012 #32956
/@/OR,1 LITERALS+.10/                    JBC F00 06/03/81 008-012 #32956
/@/STH,1 UH:FLG,4/                       JBC F00 06/03/81 009-012 #32956
/@/LI,1 .A1/                             JBC F00 06/03/81 010-012 #32956
/@/B STPNR+.ADC/                         JBC F00 06/03/81 011-012 #32956
#J:UPRIV;K1                              JBC F00 06/03/81 012-012 #32956
#NSCPU                                   MSC F00 09/04/79 047-097 #31662
< THESE PATCHES CONSIST OF 36 LINES TO ROOT                       #31662
<                           10 LINES TO LDLNK                     #31662
<                            9 LINES TO STEPOVR                   #31662
<                           42 LINES TO UMOV                      #31662
< IMPROVE MP PERFORMANCE CONTINUED                                #31662
< RESET MASTER PERM BIT IN MPFLG AT USER RUNDOWN                  #31662
STEPOVR/STPNR .17C/B @(LW,7 LITERALS .1A/MSC F00 09/04/79 048-097 #31662
/@/LB,7 UB:MPFLG,4/                      MSC F00 09/04/79 049-097 #31662
/@/AND,7 . 4/                            MSC F00 09/04/79 050-097 #31662
/@/STB,7 UB:MPFLG,4/                     MSC F00 09/04/79 051-097 #31662
/@/LW,7 LITERALS .1A/                    MSC F00 09/04/79 052-097 #31662
/@/B STPNR .17D/                         MSC F00 09/04/79 053-097 #31662
#                                        MSC F00 09/04/79 055-097 #31662
<REPLACEMENT PATCH FOR #32098 DATED 09/04/79 WHICH MUST BE        #32593
<REMOVED. THIS VERSION FIXES ERRONEOUS ERROR MESSAGE WHEN DATA    #32593
<SEGSIZE IS AN EXACT MULTIPLE OF PAGES.  30 CARDS TO STEPOVR.     #32593
<    Security problem - users can re-write load module HEAD       #32593
<    record and get write access to their DCBs.                   #32593
STEPOVR/STPNR+.5D8/B @ (LB,7 .9000/      DCP F00 04/30/80 001-030 #32593
/@/LI,10 .31/                            DCP F00 04/30/80 002-030 #32593
/@/LW,6 .8D14/                           DCP F00 04/30/80 003-030 #32593
/@/CW,6 .8D15/                           DCP F00 04/30/80 004-030 #32593
/@/BG @+6/                               DCP F00 04/30/80 005-030 #32593
/@/LD,6 .8D1C/                           DCP F00 04/30/80 006-030 #32593
/@/CLM,6 .8D14/                          DCP F00 04/30/80 007-030 #32593
/@/BCR,9 STPNR+.AAC/                     DCP F00 04/30/80 008-030 #32593
/@/CLM,7 .8D14/                          DCP F00 04/30/80 009-030 #32593
/@/BCR,9 STPNR+.AAC/                     DCP F00 04/30/80 010-030 #32593
/@/LB,7 .9000/                           DCP F00 04/30/80 011-030 #32593
/@/B STPNR+.5D9/                         DCP F00 04/30/80 012-030 #32593
< Check for data (00) overlapping DCB (10). Users can             #32593
< get write access to DCBs by changing TREE record in LM.         #32593
STEPOVR/STPNR+.57F/B @(LW,7 LITERALS+.21/DCP F00 04/30/80 013-030 #32593
#HBUF=.9000                              DCP F00 04/30/80 014-030 #32593
/@/LW,1 HBUF+.19/                        DCP F00 04/30/80 015-030 #32593
/@/LI,6 .FFFF/                           DCP F00 04/30/80 016-030 #32593
/@/AND,1 6/                              DCP F00 04/30/80 017-030 #32593
/@/SLS,1 1/                              DCP F00 04/30/80 018-030 #32593
/@/LW,6 HBUF+.15/                        DCP F00 04/30/80 019-030 #32593
/@/SLD,6 -16/                            DCP F00 04/30/80 020-030 #32593
/@/SLS,7 -16/                            DCP F00 04/30/80 021-030 #32593
/@/AW,6 7/                               DCP F00 04/30/80 022-030 #32593
/@/SLS,6 1/                              DCP F00 04/30/80 023-030 #32593
/@/CW,1 6/                               DCP F00 04/30/80 024-030 #32593
/@/BGE @+3/                              DCP F00 04/30/80 025-030 #32593
/@/LI,10 .38/                            DCP F00 04/30/80 026-030 #32593
/@/B STPNR+.AAC/                         DCP F00 04/30/80 027-030 #32593
/@/LW,7 LITERALS+.21/                    DCP F00 04/30/80 028-030 #32593
/@/B STPNR+.580/                         DCP F00 04/30/80 029-030 #32593
#HBUF;K1                                 DCP F00 04/30/80 030-030 #32593
#L6R                                     DGH F00 07/24/79 001-028 #32440
< DIAL UP FECP ARE NOT EVER HUNG UP, EVEN AFTER LINE TIMED OUT    #32440
STEPOVR/STPNR .7D6/LH,1 COCOC,2(STB,6 LB:UN,2/   07/24/79 002-028 #32440
STEPOVR/STPNR .7D7/BNE STPNR .7DB(LH,1 COCOC,2/  07/24/79 003-028 #32440
STEPOVR/STPNR .7D8/LB,1 MODE2,2(BNE STPNR .7DC/  07/24/79 004-028 #32440
STEPOVR/STPNR .7D9/AND,1 LITERALS .4A(LB,1 MODE2,2/       005-028 #32440
STEPOVR/STPNR .7DA/B @(AND,1 LITERALS .4A/   F00 07/24/79 006-028 #32440
STEPOVR/STPNR .7DB/STB,6 LB:UN,2(STB,1 MODE2,2/  07/24/79 007-028 #32440
/@/LC MODE2,2/                           DGH F00 07/24/79 008-028 #32440
/@/STB,1 MODE2,2/                        DGH F00 07/24/79 009-028 #32440
<CHECK FOR HANGUP BIT                                             #32440
/@/BCR,8 STPNR .7DB/                     DGH F00 07/24/79 010-028 #32440
<CHECK FOR FECP                                                   #32440
/@/BCS,9 STPNR .7DB/                     DGH F00 07/24/79 012-028 #32440
/@/LB,1 MODE6,2/                         DGH F00 07/24/79 013-028 #32440
< CHECK FOR HARDWIRED                                             #32440
/@/CI,1 1/                               DGH F00 07/24/79 014-028 #32440
/@/BCS,4 STPNR .7DB/                     DGH F00 07/24/79 015-028 #32440
/@/LI,1 LCOC/                            DGH F00 07/24/79 016-028 #32440
/@/CLM,2 COD:LPC,1/                      DGH F00 07/24/79 017-028 #32440
/@/BCR,9 . 2/                            DGH F00 07/24/79 018-028 #32440
/@/BDR,1 .-2/                            DGH F00 07/24/79 019-028 #32440
/@/LD,4 COD:LPC,1/                       DGH F00 07/24/79 020-028 #32440
/@/SW,4 2/                               DGH F00 07/24/79 021-028 #32440
/@/LCW,4 4/                              DGH F00 07/24/79 022-028 #32440
/@/XW,4 7/                               DGH F00 07/24/79 023-028 #32440
<TURN LINE OFF, THEN BACK ON                                      #32440
/@/EXU CO:RCVDO,1/                       DGH F00 07/24/79 024-028 #32440
/@/EXU CO:RCVON,1/                       DGH F00 07/24/79 025-028 #32440
/@/XW,4 7/                               DGH F00 07/24/79 026-028 #32440
/@/B STPNR .7DB/                         DGH F00 07/24/79 027-028 #32440
#                                        DGH F00 07/24/79 028-028 #32440
<                                                                 #31830
<    STEP should catch (and abort) fetches of overlaid load       #31830
<    modules which have overlays extending past J:EUP.            #31830
<                                                                 #31830
<    This patch replaces a 6-card patch with the same SIDR        #31830
<    number - this version will catch the problems at fetch       #31830
<    time rather than at SEGLD time, and will give the standard   #31830
<    "A638 Program biased incorrectly or too big for user area"   #31830
<    message rather than the kludged-up "B109" error that the     #31830
<    old version thought up.                                      #31830
<                                                                 #31830
#HBUF=.9000                              DCP F00 01/29/79 001-013 #31830
#J:EUP=.8D13                             DCP F00 01/29/79 002-013 #31830
STEPOVR/STPNR+.57E/BAL,11 @ (BAL,11 STPNR+.97A/  01/29/79 003-013 #31830
/@/LI,1 .FFFF/                           DCP F00 01/29/79 004-013 #31830
/@/AND,1 HBUF+4/                         DCP F00 01/29/79 005-013 #31830
/@/AH,1 HBUF+4/                          DCP F00 01/29/79 006-013 #31830
/@/SLS,1 -8/                             DCP F00 01/29/79 007-013 #31830
/@/AI,1 -1/                              DCP F00 01/29/79 008-013 #31830
/@/CW,1 J:EUP/                           DCP F00 01/29/79 009-013 #31830
/@/BLE STPNR+.97A/                       DCP F00 01/29/79 010-013 #31830
/@/LI,10 .38/                            DCP F00 01/29/79 011-013 #31830
/@/B STPNR+.AAC/                         DCP F00 01/29/79 012-013 #31830
#HBUF;KJ:EUP;K1                          DCP F00 01/29/79 013-013 #31830
TQOV1//
< DISABLE THE TIC'S BC-23 CHECKER. IT ISN'T NEEDED,               #31665
< AND ABORTS ON SOME LEGITIMATE MESSAGE NAMES.                    #31665
TQOV1/TPQ1+.752/B TPQ1+.760(LI,15 .4B/   JB  F00 01/02/80 001-001 #31665
TQOV2//
UMOV//
#
< PREVENT TPACCESS FROM OVERFLOWING INTO JB:ORG IF TAPE           X32932
< ACCESSES EXCEEDS 65535.                                         X32932
/IOQM+.36/BCR,8 IOQM+.3B(BCR,8 IOQM+.3C/ FHK EXP-F 810507 002-012 X32932
/IOQM+.37/BCR,4 @(BCR,4 IOQM+.3A/        FHK EXP-F 810507 003-012 X32932
/IOQM+.38/BCR,3 IOQM+.3A(BCR,3 IOQM+.3B/ FHK EXP-F 810507 004-012 X32932
/IOQM+.39/AI,1 .FFFFF(AI,1 .108/         FHK EXP-F 810507 005-012 X32932
/IOQM+.3A/MTW,1 JIT,1(AI,1 .FFEF7/       FHK EXP-F 810507 006-012 X32932
/IOQM+.3B/PLW,11 TSTACK(MTW,1 JIT,1/     FHK EXP-F 810507 007-012 X32932
/@/AI,1 .FFEF7/                          FHK EXP-F 810507 008-012 X32932
/@/INT,11 JIT,1/                         FHK EXP-F 810507 009-012 X32932
/@/CI,11 .FFFF/                          FHK EXP-F 810507 010-012 X32932
/@/BNE IOQM+.3A/                         FHK EXP-F 810507 011-012 X32932
/@/B IOQM+.3B/                           FHK EXP-F 810507 012-012 X32932
<****************************************************************
<  TO INSTALL THE FOLLOWING PATCH YOU WILL **HAVE** TO DO A NEW
<  SYSGEN SPECIFYING A CLIST VALUE OF X'1E' FOR YOUR MPC TAPES
<
<*** DO NOT INSTALL THIS PATCH WITHOUT THE NEW SYSGEN ***
<*** IF YOU DO I WILL ASSURE YOU THAT YOUR SYSTEM WILL **
<*** NOT WORK PROPERLY (WILL PROBABLY NOT EVEN WORK)  ***
<*******************************************************************
<
#MPCTIO                                  JBC F00 01/07/80 001-058 XE-001
< THIS PATCH IS TO PROVIDE EXTENDED DEVICE STATUS                 XE-001
< FOR MPC TAPES.  IT WILL CAUSE 2 TYPE 16 ERROR LOG ENTRIES       XE-001
< TO BE GENERATED INSTEAD OF 1, THE 2ND ONE WILL HAVE THE 26 BYTESXE-001
< OF EXTENDED STATUS                                              XE-001
<****NOTICE**** YOU **MUST** HAVE THE SYSTEM GENED WITH A CLIST VAXE-001
< FOR THE MPC TAPES OF AT LEAST X'1E' (30). IF YOU DONT AND YOU   XE-001
< PASS2 OPTION WOULD BE (CLIST,1E)                                XE-001
<                                                                 XE-001
#SEIDCW=@@                               JBC F00 01/07/80 002-058 XE-001
/@@/.A0003808/ EXT. SENSE IDCW           JBC F00 01/07/80 003-058 XE-001
/@/0/                                    JBC F00 01/07/80 004-058 XE-001
< CODE TO GENERATE ANOTHER ERRORLOG ENTRY (TYPE=16)               XE-001
UMOV/MPCTIO+.4B/B @(BAL,5 ERHNDLR+.12/   JBC F00 01/07/80 005-058 XE-001
/@/BAL,5 ERHNDLR+.12/ GEN 1ST ENTRY      JBC F00 01/07/80 006-058 XE-001
/@/LH,6 DCT7,1/ GET CLIST                JBC F00 01/07/80 007-058 XE-001
/@/AI,6 11/ POINT TO NEW SENSE           JBC F00 01/07/80 008-058 XE-001
/@/LW,8 DCT12,1/ AIO WORD                JBC F00 01/07/80 009-058 XE-001
/@/AND,8 LITERALS+.53/ AND WITH M16      JBC F00 01/07/80 010-058 XE-001
/@/LI,9 .1609/ CONTROL INFO              JBC F00 01/07/80 011-058 XE-001
/@/STH,9 8/ PUT IN CONTROL               JBC F00 01/07/80 012-058 XE-001
/@/LI,9 0/ TIME PART                     JBC F00 01/07/80 013-058 XE-001
/@/STD,8 0,6/ PUT IN HEADER              JBC F00 01/07/80 014-058 XE-001
/@/SLS,6 1/ MAKE INTO WORD               JBC F00 01/07/80 015-058 XE-001
/@/LI,5 MPCTIO+.4C/ RETURN ADDRESS       JBC F00 01/07/80 016-058 XE-001
/@/B ERHNDLR+.12/ GOTO ERRLOG            JBC F00 01/07/80 017-058 XE-001
< NEXT PART OF PATCH                                              XE-001
< THIS PART DETECTS WHEN WE ARE GOING TO DO A SENSE (ORDER=04)    XE-001
< IF WE ARE WE BUILD THE FOLLOWING:                               XE-001
< SENSE WITH COMMAND CHAIN                                        XE-001
< TIC TO NEW PART OF CLIST                                        XE-001
< NEW PART OF CLIST HAS                                           XE-001
< CONTROL FOR EXTEND SENSE WITH CC                                XE-001
< READ OF 26 BYTES                                                XE-001
< IDCW FOR SENSE                                                  XE-001
< SENSE BUFFER (7 WORDS)                                          XE-001
UMOV/MPCTIO+.2DD/B @(AND,9 HANDLERS+.105/    F00 01/07/80 018-058 XE-001
/@/AND,9 HANDLERS+.105/ DO IT            JBC F00 01/07/80 019-058 XE-001
/@/LB,0 8/ GET ORDER CODE                JBC F00 01/07/80 020-058 XE-001
/@/CI,0 4/ SENSE?                        JBC F00 01/07/80 021-058 XE-001
/@/BNE MPCTIO+.2DE/ NO GO BACK           JBC F00 01/07/80 022-058 XE-001
/@/BAL,0 HANDLERS+.1D8/ BAL,0 RE:ENT     JBC F00 01/07/80 023-058 XE-001
/@/LD,12 SEIDCW/ GET THE IDCW            JBC F00 01/07/80 024-058 XE-001
/@/BAL,0 MPCTIO+.304/ BAL,0 DEVNUM       JBC F00 01/07/80 025-058 XE-001
/@/LW,9 MPCTIO+.279/ GET WORD WITH CC BIT    F00 01/07/80 026-058 XE-001
/@/AND,9 HANDLERS+.105/ AND,9 NBYT2      JBC F00 01/07/80 027-058 XE-001
/@/STD,8 0,7/ PUT IN IOCD                JBC F00 01/07/80 028-058 XE-001
/@/AI,7 1/ POINT TO NEXT                 JBC F00 01/07/80 029-058 XE-001
/@/LH,5 DCT7,1/ GET CLIST                JBC F00 01/07/80 030-058 XE-001
/@/AI,5 9/                               JBC F00 01/07/80 031-058 XE-001
/@/LW,8 LITERALS+.1F/ LW,8 Y08 GET THE TIC   F00 01/07/80 032-058 XE-001
/@/OR,8 5/ MERGE IN NEW IOCD ADDRS       JBC F00 01/07/80 033-058 XE-001
/@/LI,9 0/                               JBC F00 01/07/80 034-058 XE-001
/@/STD,8 0,7/ PUT IN TIC                 JBC F00 01/07/80 035-058 XE-001
/@/AI,7 8/ POINT TO NEW IOCDS            JBC F00 01/07/80 036-058 XE-001
/@/STD,9 10,5/ ZERO THE CONTROLER        JBC F00 01/07/80 037-058 XE-001
/@/SLS,5 1/                              JBC F00 01/07/80 038-058 XE-001
/@/AI,5 4/ POINT TO IDCW                 JBC F00 01/07/80 040-058 XE-001
/@/SLS,5 2/ MAKE INTO A BA(IDCW)         JBC F00 01/07/80 041-058 XE-001
/@/LD,8 MPCTIO+.278/ GET CONTROL IOCD    JBC F00 01/07/80 042-058 XE-001
/@/AND,8 LITERALS+.9B/ AND,8 YFF         JBC F00 01/07/80 043-058 XE-001
/@/AND,9 HANDLERS+.105/ AND,9 NBYT2      JBC F00 01/07/80 044-058 XE-001
/@/OR,8 5/ MERGE IN IDCW ADDRESS         JBC F00 01/07/80 045-058 XE-001
/@/STD,8 0,7/ PUT IN CONTRL IOCD         JBC F00 01/07/80 046-058 XE-001
/@/AI,7 2/ POINT TO WHERE IDCW GOES      JBC F00 01/07/80 047-058 XE-001
/@/STD,12 0,7/ PUT IN IDCW               JBC F00 01/07/80 048-058 XE-001
/@/WD,0 .27/ ENABLE                      JBC F00 01/07/80 049-058 XE-001
/@/AI,7 -1/ BACK UP POINTER              JBC F00 01/07/80 050-058 XE-001
/@/LD,8 MPCTIO+.27A/ GET THE READ IOCD   JBC F00 01/07/80 051-058 XE-001
/@/AND,8 LITERALS+.9B/ AND,8 YFF         JBC F00 01/07/80 052-058 XE-001
/@/AND,9 HANDLERS+.105/ AND,9 NBYT2      JBC F00 01/07/80 053-058 XE-001
/@/AI,9 26/ PUT IN BC                    JBC F00 01/07/80 054-058 XE-001
/@/AI,5 8/ ADDRS OF SENSE BUFFER         JBC F00 01/07/80 055-058 XE-001
/@/OR,8 5/ MERGE IN BUFFER ADDRS         JBC F00 01/07/80 056-058 XE-001
/@/B MPCTIO+.2DE/ CONTINUE               JBC F00 01/07/80 057-058 XE-001
#SEIDCW;K1                               JBC F00 01/07/80 058-058 XE-001
< MANY NSLP'S (34xx,74xx) HAVE TROUBLE RECOGNIZING PAPER MOTION   XNSLPP
< UNDER SHORT-RECORD ERROR CONDITIONS. THIS PATCH REMOVES THE     XNSLPP
< PAPER MOTION TEST, AND SHOULD STOP THE CASES OF INFINITE        XNSLPP
< REPEAT LINES ON THE LP.                                         XNSLPP
#NSLP                                    DCP F00 09/06/79 001-003 XNSLPP
UMOV/NSLP+.3A/BAZ NSLP+.30(BAZ NSLP+.4B/ DCP F00 09/06/79 002-003 XNSLPP
#                                        DCP F00 09/06/79 003-003 XNSLPP
< **** REPLACEMENT FOR PATCH OF SAME NUMBER                       #32806
< **** DATED 12/4/80.                                             #32806
#MPCFLG=0                                JBC F00 03/27/81 001-032 #32806
#MPCDIO                                  JBC F00 03/27/81 002-032 #32806
#MPCFLG=1                                JBC F00 03/27/81 003-032 #32806
#1                                       JBC F00 03/27/81 004-032 #32806
#MPCTIO                                  JBC F00 03/27/81 005-032 #32806
#MPCFLG=1                                JBC F00 03/27/81 006-032 #32806
#1                                       JBC F00 03/27/81 007-032 #32806
#MPCFLG                                  JBC F00 03/27/81 008-032 #32806
< IF AN MPC CONTROLLER GOES DOWN WHILE THE SYSTEM IS RUNNING AND  #32806
< A RECOVERY OCCURS THE SYSTEM WILL NOT COME BACK UP.  THE REASON #32806
< IS DUE TO INITRCVR'S LONELINESS AND SUBSEQUENT NEED TO TALK TO  #32806
< THE MPC'S AND HE WONT GIVE UP TRYING TO TALK TO THEM.  THIS PATC#32806
< WILL CAUSE INITRCVR TO ACT LIKE RECOVER AND ALLOW YOU TO SKIP   #32806
< DOWNLOADING AN MPC.  THE MPC ADDRESS WILL ALSO BE DISPLAYED.    #32806
< PATCH ALSO MAKES RECOVER ACT LIKE INITRCVR :                    #32806
<      STEP ONCE TO RETRY LOAD/ TWICE TO SKIP LOAD                #32806
< PATCH IS 2 PARTS  23 CARDS TO UMOV;   9 CARDS TO RECOVER        #32806
<                                                                 #32806
< PATCHES TO UMOV, MAKE INITRCVR ACT CORRECTLY                    #32806
UMOV/INITRCVR+.214/B @(HIO,0 1/          JBC F00 03/27/81 009-032 #32806
/@/LW,2 6/                               JBC F00 03/27/81 010-032 #32806
/@/SLS,2 -4/                             JBC F00 03/27/81 011-032 #32806
/@/SLD,2 -4/                             JBC F00 03/27/81 013-032 #32806
/@/SLS,3 -28/                            JBC F00 03/27/81 014-032 #32806
/@/LB,3 LITERALS+.93,3/                  JBC F00 03/27/81 015-032 #32806
/@/STB,3 INITRCVR+.222,4/                JBC F00 03/27/81 016-032 #32806
/@/BDR,4 $-4/                            JBC F00 03/27/81 017-032 #32806
/@/HIO,0 1/                              JBC F00 03/27/81 018-032 #32806
/@/B INITRCVR+.215/                      JBC F00 03/27/81 019-032 #32806
UMOV/INITRCVR+.222/.C34040F0/            JBC F00 03/27/81 020-032 #32806
UMOV/INITRCVR+.21B/B *14/                JBC F00 03/27/81 021-032 #32806
#1                                       JBC F00 03/27/81 022-032 #32806
#X560                                    GMO F00 03/26/81 064-077 #32289
<CONTINUATION OF PATCHES FOR VOLINIT PROBLEM                      #32289
< UMOV OVERLAY ...                                                #32289
UMOV/HANDLERS+.1EA/B @(BAL,10 HANDLERS+.BD/  F00 03/26/81 065-077 #32289
/@/LH,6 DCT1,1/                          GMO F00 03/26/81 066-077 #32289
/@/TIO,8 0,6/                            GMO F00 03/26/81 067-077 #32289
/@/BCS,12 IOQ .E8/                       GMO F00 03/26/81 068-077 #32289
/@/LI,10 HANDLERS+.1EB/                  GMO F00 03/26/81 069-077 #32289
/@/B HANDLERS+.BD/                       GMO F00 03/26/81 070-077 #32289
<DONT DO PRE-SEEKS WHEN A RMP DEVICE ON CONTROLLER IS IN DIAG MODE#32289
UMOV/HANDLERS .27F/B @(B HANDLERS .C5/   GMO F00 03/26/81 071-077 #32289
/@/LB,5 DCT2,1/                          GMO F00 03/26/81 072-077 #32289
/@/MTW,0 CIT4,5/                         GMO F00 03/26/81 073-077 #32289
/@/BGE HANDLERS .C5/                     GMO F00 03/26/81 074-077 #32289
/@/AND,4 LITERALS .62/                   GMO F00 03/26/81 075-077 #32289
/@/B HANDLERS .C5/                       GMO F00 03/26/81 076-077 #32289
#                                        GMO F00 03/26/81 077-077 #32289
< STOP POSSIBLE 7E-40 IF AN RBT SENDS .80 SCB AND NEXT BLOCK      #32674
< CONTAINS SAME RCB.                                              #32674
#HASPIO                                  PLS F00 06/16/80 001-005 #32674
UMOV/HASPIO+.DF/BE @(BE HASPIO+.E5/      PLS F00 06/16/80 002-005 #32674
/@/LB,5 STB:Q,4/                         PLS F00 06/16/80 003-005 #32674
/@/B HASPIO+.E5/                         PLS F00 06/16/80 004-005 #32674
#                                        PLS F00 06/16/80 005-005 #32674
< DONT DISCONNECT LINE IF AN RBT SENDS PEND INSTEAD OF WAB.       #32675
#HASPIO                                  PLS F00 06/16/80 001-005 #32675
UMOV/HASPIO+.28/B @(B BSCIO+6/           PLS F00 06/16/80 002-005 #32675
/@/AND,11 LITERALS+.5B/                  PLS F00 06/16/80 003-005 #32675
/@/B BSCIO+6/                            PLS F00 06/16/80 004-005 #32675
#                                        PLS F00 06/16/80 005-005 #32675
< FORCE OC ERROR MESSAGE AFTER LAST RETRY FAILS ON CERTAIN        #32829
< DISK PACK ERROR CONDITIONS WHICH DIDN'T DO IT BEFORE.           #32829
UMOV/HANDLERS+.255/LI,12 .8008(LI,12 8/  RMS F00 03/26/81 001-001 #32829
< REPLACEMENT FOR PATCH OF SAME NUMBER DATED 01/02/80.            #32438
< USER PATCH FOR SIDR 32156 FIXES PROBLEM DESCRIBED BUT CAUSES    #32438
< HOTAVR TO FORGET A DRIVE ONCE IT HAS BEEN LOOKED AT THE         #32438
< FIRST TIME.  TRY THIS PATCH INSTEAD                             #32438
#HOTAVR                                  JBC F00 03/26/81 001-006 #32438
UMOV/HOTAVR+.2E/BCS,6 @(BCS,6 ;Q)/       JBC F00 03/26/81 002-006 #32438
/@/BCR,4 HOTAVR+.11/                     JBC F00 03/26/81 003-006 #32438
/@/B HOTAVR+.55/                         JBC F00 03/26/81 005-006 #32438
#                                        JBC F00 03/26/81 006-006 #32438
< **** REPLACEMENT PATCH FOR ONE DATED 4/22/80.                   #32701
< I FOUND THE OTHER CASE WHERE DUAL ACCESS 7275'S CAN SEEM TO     #32701
< HANG THE SYSTEM.   7275 FAULTS CAN REPORT BOTH DEV AUTO & NOT OP#32701
<                                                                 #32701
< A FAULT ON A 7275 CAN SOMETIMES SEEM TO HANG THE SYSTEM         #32701
< PATCH IS TO IOQ, DUAL ACCESS REJECT PATH                        #32701
UMOV/IOQ+.247/B @(BAZ IOQ+.253/          JBC F00 03/26/81 001-010 #32701
/@/BAZ IOQ+.253/                         JBC F00 03/26/81 002-010 #32701
/@/LC 13/                                JBC F00 03/26/81 003-010 #32701
/@/BCS,4 $+2/                            JBC F00 03/26/81 004-010 #32701
/@/BCS,2 IOQ+.253/                       JBC F00 03/26/81 005-010 #32701
/@/SCS,13 4/                             JBC F00 03/26/81 006-010 #32701
/@/LC 13/                                JBC F00 03/26/81 007-010 #32701
/@/BCR,6 IOQ+.248/                       JBC F00 03/26/81 008-010 #32701
/@/BCR,4 IOQ+.253/                       JBC F00 03/26/81 009-010 #32701
/@/B IOQ+.248/                           JBC F00 03/26/81 010-010 #32701
#MPCTIO                                  JBC F00 12/05/80 001-017 #31640
< THIS PATCH IS MEANT TO REPLACE PATCH #31640, DATED 11/10/78.    #31640
< THE ORIGINAL PATCH COULD CAUSE 7E-40 WHILE RUNNING THE          #31640
< ONLINE DIAGNOSTICS FOR MPC TAPES.                               #31640
<SET DENSITY AT 1600BPI FOR ALL TAPE MOUNTS OF MPC TAPES.         #31640
UMOV/IOQ+.2B1/BE @(BE IOQ+.27C/          JBC F00 12/05/80 002-017 #31640
/@/INT,13 DCT9,7/                        JBC F00 12/05/80 003-017 #31640
/@/BCS,2 IOQ+.27C/                       JBC F00 12/05/80 004-017 #31640
/@/EXU IOQ+.27C/                         JBC F00 12/05/80 005-017 #31640
/@/LI,2 .20/                             JBC F00 12/05/80 006-017 #31640
/@/WD,2 .1200/                           JBC F00 12/05/80 007-017 #31640
/@/LW,12 $+8/                            JBC F00 12/05/80 008-017 #31640
/@/OR,12 7/                              JBC F00 12/05/80 009-017 #31640
/@/LI,13 0/                              JBC F00 12/05/80 010-017 #31640
/@/LW,15 LITERALS+.23/                   JBC F00 12/05/80 011-017 #31640
/@/LI,0 0/                               JBC F00 12/05/80 012-017 #31640
/@/BAL,11 IOQM+.41/                      JBC F00 12/05/80 013-017 #31640
/@/NOP/                                  JBC F00 12/05/80 014-017 #31640
/@/B IOQ+.280/                           JBC F00 12/05/80 015-017 #31640
/@/.0C000000/                            JBC F00 12/05/80 016-017 #31640
#1                                       JBC F00 12/05/80 017-017 #31640
< INITRCVR SOMETIMES IGNORES WHICH REGISTER BLOCK THE SCREECH     #32667
< CODE IS IN, CAUSING WRONG MESSAGE TO BE PRINTED.                #32667
UMOV/INITRCVR+.4E/B @(LW,13 TABLES+.25D/ GAF F00 12/03/80 001-008 #32667
/@/LW,13 TCATCH+.51/                     GAF F00 12/03/80 002-008 #32667
/@/CI,13 .10/                            GAF F00 12/03/80 003-008 #32667
/@/BAZ $+3/                              GAF F00 12/03/80 004-008 #32667
/@/LW,13 TABLES+.26D/                    GAF F00 12/03/80 005-008 #32667
/@/B INITRCVR+.4F/                       GAF F00 12/03/80 006-008 #32667
/@/LW,13 TABLES+.25D/                    GAF F00 12/03/80 007-008 #32667
/@/B INITRCVR+.4F/                       GAF F00 12/03/80 008-008 #32667
< USER PATCH FOR SIDR 32156 FIXES PROBLEM DESCRIBED BUT CAUSES    #32438
< FIRST TIME.  TRY THIS PATCH INSTEAD                             #32438
< PROBLEMS CAN OCCUR IF A ,F KEYIN IS ISSUED TO A NON-MPC DEVICE  #32513
< THIS IS CAUSED BY IOQ NOT PULLING THE RETURN ADDRESS OFF        #32513
< THE STACK BEFORE HE EXITS TO TP32 TO WRITE THE 'EH?' MSG.       #32513
<   ******** N O T I C E ********                                 #32513
< TO SAVE ON PATCH LOCATIONS, THE ERROR MESSAGE USED FOR          #32513
< ERSEND MSGS BEING TOO LONG - "MESSAGE TRUNCATED" WILL BE        #32513
< SHORTENED TO "MSG TRUNC" IN ORDER TO FREE UP THE PATCH          #32513
< SPACE I NEED.  **PLEASE NOTE THIS CHANGE IN YOUR                #32513
< OPERATIONS DOCUMENTATION**                                      #32513
<                                                                 #32513
/IOQM+.1CC/.0B1505D4(.131505D4)/         JBC F00 12/03/80 001-006 #32513
/IOQM+.1CD/.E2C740E3(.C5E2E2C1)/         JBC F00 12/03/80 002-006 #32513
/IOQM+.1CE/.D9E4D5C3(.C7C540E3)/         JBC F00 12/03/80 003-006 #32513
<                                                                 #32513
/IOQM+.1CF/PLW,11 TSTACK(.D9E4D5C3)/     JBC F00 12/03/80 004-006 #32513
/IOQM+.1D0/B IOQM+.188(.C1E3C5C4)/       JBC F00 12/03/80 005-006 #32513
UMOV/IOQ+.49F/BAZ IOQM+.1CF(BAZ IOQM+.188)/  F00 12/03/80 006-006 #32513
< VISTA HANDLER MUST RESET THE TIME-OUT BIT IN DCT3               #32542
< CAUSE HE EXITS TO IOSCU SAYING RETRY, THUS WILL NEVER GO        #32542
< KEYIN PENDING, THUS NO MESSAGE, THUS NO RETRY KEYIN, THUS       #32542
< IOQ (TP33) WILL NEVER RESET THE T-O BIT.                        #32542
#V2IO                                    JBC F00 12/03/80 001-007 #32542
UMOV/V2IO+.3C/BANZ @(BANZ V2IO+.10E/     JBC F00 12/03/80 002-007 #32542
/@/LB,12 DCT3,1/                         JBC F00 12/03/80 003-007 #32542
/@/AND,12 LITERALS+.67/                  JBC F00 12/03/80 004-007 #32542
/@/STB,12 DCT3,1/                        JBC F00 12/03/80 005-007 #32542
/@/B V2IO+.10E/                          JBC F00 12/03/80 006-007 #32542
#1                                       JBC F00 12/03/80 007-007 #32542
<                                                                 #32807
< FOLLOWING PATCHES WILL FIX MANY MPC TAPE PROBLEMS               #32807
<                                                                 #32807
#MPCTIO                                  JBC F00 12/04/80 001-038 #32807
< FIX PROBLEM OF DENSITY CHANGE CELLS NOT GETTING ZEROED EXCEPT   #32807
< ON TAPE REWINDS.  PATCH ZERO AFTER EACH SUCCESSFUL READ.        #32807
UMOV/MPCTIO+.60/B @(BCR,9 IOQ+.2F5/      JBC F00 12/04/80 002-038 #32807
/@/LI,11 0/                              JBC F00 12/04/80 003-038 #32807
/@/LH,5 DCT7,1/                          JBC F00 12/04/80 004-038 #32807
/@/STD,11 12,5/                          JBC F00 12/04/80 005-038 #32807
/@/EXU MPCTIO+.5F/                       JBC F00 12/04/80 006-038 #32807
/@/BCR,9 IOQ+.2F5/                       JBC F00 12/04/80 007-038 #32807
/@/B MPCTIO+.61/                         JBC F00 12/04/80 008-038 #32807
< SECOND PART OF THIS PATCH WILL CAUSE THE INITIAL READ TO BE     #32807
< RETRIED 3 TIMES.  NORMALLY IF THE INITIAL READ GIVES AN         #32807
< INCOMPATIABLE MODE ERROR (BAD DENSITY), THEN WE JUST SWITCH     #32807
< DENSITY AND TRY ONCE AT THE OTHER DENSITY.                      #32807
UMOV/MPCTIO+.23D/B @(CI,6 2/             JBC F00 12/04/80 009-038 #32807
/@/CI,7 3/                               JBC F00 12/04/80 010-038 #32807
/@/BG $+3/                               JBC F00 12/04/80 011-038 #32807
/@/AI,7 1/                               JBC F00 12/04/80 012-038 #32807
/@/CI,6 2/                               JBC F00 12/04/80 014-038 #32807
/@/BGE MPCTIO+.23F/                      JBC F00 12/04/80 015-038 #32807
/@/LI,7 0/                               JBC F00 12/04/80 016-038 #32807
/@/LW,8 LITERALS+.22/                    JBC F00 12/04/80 017-038 #32807
/@/B MPCTIO+.237/                        JBC F00 12/04/80 018-038 #32807
< IF WE CANT READ THE TAPE MAKE SURE WE ZERO THE CHK              #32807
< CELLS FOR THE NEXT MOUNT TRY                                    #32807
UMOV/MPCTIO+.241/B @(B IOQ+.2F5/         JBC F00 12/04/80 019-038 #32807
/@/LI,7 0/                               JBC F00 12/04/80 020-038 #32807
/@/STD,7 12,5/                           JBC F00 12/04/80 021-038 #32807
/@/B IOQ+.2F5/                           JBC F00 12/04/80 022-038 #32807
< PATCH WILL FORCE ALL MPC TAPE RETRY COUNTS TO 64 IF LESS        #32807
< THAN 64                                                         #32807
UMOV/IOQ+.26/B @(AND,11 12/              JBC F00 12/04/80 023-038 #32807
/@/AND,11 12/                            JBC F00 12/04/80 024-038 #32807
/@/LB,2 IOQ7,3/                          JBC F00 12/04/80 025-038 #32807
/@/LB,8 DCT24,2/                         JBC F00 12/04/80 026-038 #32807
/@/CI,8 4/                               JBC F00 12/04/80 027-038 #32807
/@/BAZ $+8/                              JBC F00 12/04/80 028-038 #32807
/@/LB,2 DCT4,2/                          JBC F00 12/04/80 029-038 #32807
/@/LC TB:FLGS,2/                         JBC F00 12/04/80 030-038 #32807
/@/BCS,4 $+5/                            JBC F00 12/04/80 031-038 #32807
/@/BCR,8 $+4/                            JBC F00 12/04/80 032-038 #32807
/@/CI,11 64/                             JBC F00 12/04/80 033-038 #32807
/@/BGE $+2/                              JBC F00 12/04/80 034-038 #32807
/@/LI,11 64/                             JBC F00 12/04/80 035-038 #32807
/@/LI,2 0/                               JBC F00 12/04/80 036-038 #32807
/@/B IOQ+.27/                            JBC F00 12/04/80 037-038 #32807
#1                                       JBC F00 12/04/80 038-038 #32807
< REPLACEMENT PATCH FOR SIDR # 32238 DATED 06/05/79.              #32238
< CURE NEW DUPLICATED-BLOCK PROBLEMS AND FAILURE TO SUSPEND.      #32238
< PREVENT DUPLICATE PRINT BLOCKS ON PRINTER OUTPUT WHEN THE       #32238
< PRINTER SUSPBIT IS SET AND ANOTHER RECORD IS SENT TO ANY OTHER  #32238
< OUTPUT DEVICE.                                                  #32238
#HASPIO                                  TSM F00 10/23/80 001-042 #32238
UMOV/HASPIO+.1FC/OR,10 @(AI,10 .2000)/   TSM F00 10/23/80 002-042 #32238
/@/.2080/                                TSM F00 10/23/80 003-042 #32238
UMOV/HASPIO+.31F/CI,10 .80(CI,10 .B00)/  TSM F00 10/23/80 004-042 #32238
UMOV/HASPIO+.320/BANZ $+4(BANZ *8)/      TSM F00 10/23/80 005-042 #32238
UMOV/HASPIO+.323/B @(AW,10 11)/          TSM F00 10/23/80 006-042 #32238
/@/CI,10 .B00/                           TSM F00 10/23/80 007-042 #32238
/@/BANZ *8/                              TSM F00 10/23/80 008-042 #32238
/@/OR,10 11/                             TSM F00 10/23/80 009-042 #32238
/@/BDR,11 HASPIO+.332/                   TSM F00 10/23/80 010-042 #32238
/@/B *8/                                 TSM F00 10/23/80 011-042 #32238
UMOV/HASPIO+.324/AI,10 -.80(AI,3 0)/     TSM F00 10/23/80 012-042 #32238
UMOV/HASPIO+.325/OR,10 11(BLZ ;Q)/       TSM F00 10/23/80 013-042 #32238
UMOV/HASPIO+.230/B $+6(LW,1 .1C,6)/      TSM F00 10/23/80 014-042 #32238
UMOV/HASPIO+.280/B $+2(LW,14 ;Q)/        TSM F00 10/23/80 015-042 #32238
UMOV/HASPIO+.282/LI,4 0(STW,14 .16,6)/   TSM F00 10/23/80 016-042 #32238
UMOV/. 1/B @(BAZ HASPIO+.11B)/           TSM F00 10/23/80 018-042 #32238
/@/BAZ HASPIO+.11B/                      TSM F00 10/23/80 019-042 #32238
/@/AI,10 -.80/                           TSM F00 10/23/80 020-042 #32238
/@/CI,10 .2000/                          TSM F00 10/23/80 021-042 #32238
/@/BANZ HASPIO+.28E/                     TSM F00 10/23/80 022-042 #32238
/@/EOR,10 BITS+13/                       TSM F00 10/23/80 023-042 #32238
/@/STH,10 STH:FLG,4/                     TSM F00 10/23/80 024-042 #32238
/@/B HASPIO+.11B/                        TSM F00 10/23/80 025-042 #32238
UMOV/BSCIO .115/B @(OR,15 .16,6/         TSM F00 10/23/80 026-042 #32238
/@/LH,10 STH:FLG,4/                      TSM F00 10/23/80 027-042 #32238
/@/CI,10 .1000/                          TSM F00 10/23/80 028-042 #32238
/@/BAZ .+2/                              TSM F00 10/23/80 029-042 #32238
/@/OR,15 BITS+25/                        TSM F00 10/23/80 030-042 #32238
/@/B BSCIO .116/                         TSM F00 10/23/80 031-042 #32238
<                                                                 #32238
UMOV/HASPIO .C1/.FFFFDEFF(.FFFFCEFF/     TSM F00 10/23/80 032-042 #32238
UMOV/HASPIO .1CE/B @(STW,12 .18,6/       TSM F00 10/23/80 033-042 #32238
/@/STW,12 .18,6/                         TSM F00 10/23/80 034-042 #32238
/@/WD,0 .37/                             TSM F00 10/23/80 035-042 #32238
/@/LH,8 STH:FLG,4/                       TSM F00 10/23/80 036-042 #32238
/@/OR,8 BITS+8/                          TSM F00 10/23/80 037-042 #32238
/@/STH,8 STH:FLG,4/                      TSM F00 10/23/80 038-042 #32238
/@/WD,0 .27/                             TSM F00 10/23/80 039-042 #32238
/@/B HASPIO .1CF/                        TSM F00 10/23/80 040-042 #32238
UMOV/HASPIO .285/B $+2(LW,4 .1D,6/       TSM F00 10/23/80 041-042 #32238
#                                        TSM F00 10/23/80 042-042 #32238
<LET CPV DO THE ERROR CORRECTION ON RMP DISC DRIVES.              #32567
<THE 560 RMP ERROR CORRECTION WAS NOT ALWAYS DOING A GOOD JOB.    #32567
<MOVE THE ERROR CORRECTION BACK INTO CPV WHERE IT RESIDES FOR     #32567
<OTHER DRIVES. TO GET THE FULL BENIFIT OF THIS PATCH YOU          #32567
<SHOULD REALLY RESTORE A COMPLETE FILE SYSTEM ON FRESHLY          #32567
<VOLINITED PACKS.                                                 #32567
#X560                                    DGH F00 10/29/79 001-016 #32567
UMOV/HANDLERS .204/@+;Q(.2000000/        DGH F00 10/29/79 002-016 #32567
UMOV/HANDLERS .205/.200+;Q(.1E800200/    DGH F00 10/29/79 003-016 #32567
/@/AI,9 .200/                            DGH F00 10/29/79 004-016 #32567
<CHECK FOR DISC PACK                                              #32567
/@/CI,10 HANDLERS .1EB/                  DGH F00 10/29/79 005-016 #32567
/@/BNE HANDLERS .C5/                     DGH F00 10/29/79 006-016 #32567
<CHECK FOR RMP DISC                                               #32567
/@/LB,5 DCT22,1/                         DGH F00 10/29/79 007-016 #32567
/@/LW,11 NSPT,5/                         DGH F00 10/29/79 008-016 #32567
/@/CI,11 .C/                             DGH F00 10/29/79 009-016 #32567
/@/BNE HANDLERS .C5/                     DGH F00 10/29/79 010-016 #32567
/@/LW,11 NTPC,5/                         DGH F00 10/29/79 011-016 #32567
/@/CI,11 .13/                            DGH F00 10/29/79 012-016 #32567
/@/BNE HANDLERS .C5/                     DGH F00 10/29/79 013-016 #32567
<ITS AN RMP, MAKE ORDER CODE X'42'                                #32567
/@/OR,8 LITERALS+.22/ Y4                 DGH F00 10/29/79 014-016 #32567
/@/B HANDLERS .C5/                       DGH F00 10/29/79 015-016 #32567
#WHIP=@                                  MSC F00 09/04/79 056-097 #31662
#NSCPU                                   MSC F00 09/04/79 057-097 #31662
< THESE PATCHES CONSIST OF 36 LINES TO ROOT                       #31662
<                           10 LINES TO LDLNK                     #31662
<                            9 LINES TO STEPOVR                   #31662
<                           42 LINES TO UMOV                      #31662
< IMPROVE MP PERFORMANCE CONTINUED                                #31662
< THIS PART OF THE PATCH MUST BE PLACED IN                        #31662
< THE UMOV OVERLAY BECAUSE IT REFERS TO SWPSCED,                  #31662
< A LABEL IN THE UMOV OVERLAY.                                    #31662
/@/STH,2 TSTACK+1/                       MSC F00 09/04/79 058-097 #31662
/@/MTW,0 TCATCH .74/                     MSC F00 09/04/79 059-097 #31662
/@/BNEZ SCHED .3A3/                      MSC F00 09/04/79 060-097 #31662
/@/LW,2 LITERALS .1B/                    MSC F00 09/04/79 061-097 #31662
/@/CW,2 TSTACK 2/                        MSC F00 09/04/79 062-097 #31662
/@/BAZ SCHED .3A3/                       MSC F00 09/04/79 063-097 #31662
/@/CW,4 S:CUN/                           MSC F00 09/04/79 064-097 #31662
/@/BNE SCHED .3A3/                       MSC F00 09/04/79 065-097 #31662
/@/LC UB:MPFLG,4/                        MSC F00 09/04/79 066-097 #31662
/@/BCS,12 SCHED .3A3/                    MSC F00 09/04/79 067-097 #31662
/@/LB,2 UB:MPFLG,4/                      MSC F00 09/04/79 068-097 #31662
/@/AND,2 LITERALS .4A/                   MSC F00 09/04/79 069-097 #31662
/@/STB,2 UB:MPFLG,4/                     MSC F00 09/04/79 070-097 #31662
/@/MTW,0 SB:MPSW/                        MSC F00 09/04/79 071-097 #31662
/@/BEZ SCHED .3A3/                       MSC F00 09/04/79 072-097 #31662
/@/LC SSDAT .12/                         MSC F00 09/04/79 073-097 #31662
/@/BCS,8 SCHED .3A3/                     MSC F00 09/04/79 074-097 #31662
/@/LI,2 19/                              MSC F00 09/04/79 075-097 #31662
/@/MSP,2 TSTACK/                         MSC F00 09/04/79 076-097 #31662
/@/LW,2 JIT/                             MSC F00 09/04/79 077-097 #31662
/@/BEZ . 15/                             MSC F00 09/04/79 078-097 #31662
/@/LI,1 NSCPU-1/                         MSC F00 09/04/79 079-097 #31662
/@/MTW,0 S:PCUN+1,1/                     MSC F00 09/04/79 080-097 #31662
/@/BE . 3/                               MSC F00 09/04/79 081-097 #31662
/@/BDR,1  .-2/                           MSC F00 09/04/79 082-097 #31662
/@/B SCHED .43/                          MSC F00 09/04/79 083-097 #31662
/@/AI,1 1/                               MSC F00 09/04/79 084-097 #31662
/@/MTB,0 SB:MPSW,1/                      MSC F00 09/04/79 085-097 #31662
/@/BEZ SCHED .43/                        MSC F00 09/04/79 086-097 #31662
/@/STW,4 S:PCUN,1/                       MSC F00 09/04/79 087-097 #31662
/@/LI,0 0/                               MSC F00 09/04/79 088-097 #31662
/@/STB,0 SB:MPSW,1/                      MSC F00 09/04/79 089-097 #31662
/@/BAL,1 UNMAP/                          MSC F00 09/04/79 090-097 #31662
/@/BAL,11 SWPSCED/                       MSC F00 09/04/79 091-097 #31662
/@/B SCHED .C5/                          MSC F00 09/04/79 092-097 #31662
/@/BAL,0 SCHED .2B/                      MSC F00 09/04/79 093-097 #31662
/@/B SCHED .39B/                         MSC F00 09/04/79 094-097 #31662
/SCHED .3A2/B WHIP(STH,2 TSTACK 1/       MSC F00 09/04/79 095-097 #31662
/SCHED .3A0/BE WHIP 1(BE SCHED .3A3/     MSC F00 09/04/79 096-097 #31662
#WHIP;K1                                 MSC F00 09/04/79 097-097 #31662
<ALLOW CPV 2780 SOFTWARE TO RECOVER FROM A PAPER FAULT            #31663
<IN THE REMOTE TERMINAL                                           #31663
<                                                                 #31663
<WHEN A 2780 RUNS OUT OF PAPER, THE 2780 WILL SEND 'EOT' TO CPV   #31663
<    CPV USED TO HANG UP THE LINE WHEN THIS HAPPENED              #31663
<                                                                 #31663
<WITH THESE PATCHES CPV WILL NOW SEND 'ENQ' TO THE REMOTE         #31663
<TERMINAL EVERY 10 SECONDS. CPV ASSUMES THE PRINTER IS            #31663
<READY WHEN THE RESPONSE TO THE 'ENQ' IS 'DLE' 'ACK0'             #31663
<CPV NOW SENDS THE ORIGINAL BLOCK THAT WAS RESPONDED TO WITH      #31663
< 'EOT' BY THE REMOTE TERMINAL.  IF YOU DO NOT HAVE THE 'SINGLE   #31663
< RECORD PER BLOCK OPTION' SET ON THE CPV WORKSTATION DEFINITION  #31663
< AND YOU HAVE A DUMB 2780, YOU WILL PROBABLY GET DUPLICATE       #31663
<PRINT LINES ON THE REMOTE PRINTER. THIS SOFTWARE WAS             #31663
<TESTED WITH A DATA 100 WITH ONE RECORD PER BLOCK.                #31663
<                                                                 #31663
<                                                                 #31663
<IF THE RESPONSE TO CPV'S  'ENQ' IS ANOTHER 'ENQ', THE            #31663
<REMOTE TERMINAL IS NOW VIOLATING THE PROTOCOL                    #31663
<AND THE TERMINAL IS DISCONNECTED. (THE REMOTE OPERATOR           #31663
< HAS JUST TRIED TO READ A DECK THRU THE READER.)                 #31663
<                                                                 #31663
<CPV WILL POLL THE REMOTE TERMINAL FOR ABOUT 44 MINUTES, THEN     #31663
<WHEN NO FAVORABLE RESPONSE IS RECEIVED IN THIS TIME, CPV WILL    #31663
<DISCONNECT THE LINE.                                             #31663
<                                                                 #31663
#NEW$FLO=BSCIO+.1F4                      DGH F00 06/21/79 002-055 #31663
#RPT$ORG=BSCIO+.1F3                      DGH F00 06/21/79 003-055 #31663
< ADD 2 NEW DOT TABLE ENTRIES BY MOVING 2 CONSTANTS..             #31663
< XC7 AND MRLPBIT                                                 #31663
< ALSO ADD BRANCH TO PATCH AREA FOR READ AFTER ENQ AFTER EOT      #31663
<                                                                 #31663
UMOV/2780IO+.1F/.43010000(.3B010000/     DGH F00 06/21/79 004-055 #31663
UMOV/2780IO+.20/.3E010107(.36010107/     DGH F00 06/21/79 005-055 #31663
UMOV/2780IO+.21/.3F010207(.37010207/     DGH F00 06/21/79 006-055 #31663
UMOV/2780IO+.22/.3C010309(.34010309/     DGH F00 06/21/79 007-055 #31663
UMOV/2780IO+.23/.42010407(.3A010407/     DGH F00 06/21/79 008-055 #31663
UMOV/2780IO+.24/.3E010507(.36010507/     DGH F00 06/21/79 009-055 #31663
UMOV/2780IO+.25/.3F010607(.37010607/     DGH F00 06/21/79 010-055 #31663
UMOV/2780IO+.26/.40010702(.38010702/     DGH F00 06/21/79 011-055 #31663
UMOV/2780IO+.27/.40010803(.38010803/     DGH F00 06/21/79 012-055 #31663
UMOV/2780IO+.28/.4402090A(.3C02090A/     DGH F00 06/21/79 013-055 #31663
UMOV/2780IO+.29/.45010A09(.3D010A09/     DGH F00 06/21/79 014-055 #31663
UMOV/2780IO+.2A/.3D010B09(.35010B09/     DGH F00 06/21/79 015-055 #31663
UMOV/2780IO+.2B/.41010C00(.39010C00/     DGH F00 06/21/79 016-055 #31663
UMOV/2780IO+.2C/.3F010D0E(.0A0B0C0D/     DGH F00 06/21/79 017-055 #31663
UMOV/2780IO+.2D/.4001070D(.0E0F1011/     DGH F00 06/21/79 018-055 #31663
UMOV/2780IO+.2E/.0A0B0C0D/               DGH F00 06/21/79 019-055 #31663
UMOV/2780IO+.2F/.0E0F1011(.C7/           DGH F00 06/21/79 020-055 #31663
UMOV/2780IO+.30/.12130000(.20000008/     DGH F00 06/21/79 021-055 #31663
UMOV/2780IO+.4D/.CAF22B00/               DGH F00 06/21/79 023-055 #31663
UMOV/2780IO+.51/.AECECE00/               DGH F00 06/21/79 024-055 #31663
<RESUME NORMAL MODE WITH BLOCK THAT GOT EOT                       #31663
/@/BLAAL!LB,5 IOQ10,3/                   DGH F00 06/21/79 025-055 #31663
/@/STB,5 IOQ11,3/                        DGH F00 06/21/79 026-055 #31663
/@/AND,13 LITERALS+.62/                  DGH F00 06/21/79 027-055 #31663
/@/B RPT$ORG/                            DGH F00 06/21/79 028-055 #31663
<SET # OF TRIES TO 256 FOR TESTING PERIOD=256*10 SEC              #31663
/@/BURP!LI,5 0/                          DGH F00 06/21/79 029-055 #31663
/@/STB,5 IOQ11,3/                        DGH F00 06/21/79 030-055 #31663
< READ INTO RBH:ACK, TIMES OUT IN 4.8 SECS                        #31663
< THEN SEND ENQ VIA NORMAL FOLLOWON                               #31663
< THEN READ FOR RESPONSE                                          #31663
/@/PHOEZE!LI,5 .E/                       DGH F00 06/21/79 031-055 #31663
/@/MTB,-1 IOQ11,3/                       DGH F00 06/21/79 032-055 #31663
/@/BNE NEW$FLO/                          DGH F00 06/21/79 033-055 #31663
/@/B 2780IO .D2/                         DGH F00 06/21/79 034-055 #31663
UMOV/2780IO+.31/B @/                     DGH F00 06/21/79 035-055 #31663
<                                                                 #31663
<JUST GOT RESPONSE FROM REMOTE IN EOT RECOVERY MODE               #31663
/@/LH,5 RBH:ACK,1/                       DGH F00 06/21/79 036-055 #31663
/@/CI,5 .1070/                           DGH F00 06/21/79 037-055 #31663
/@/BE BLAAL/                             DGH F00 06/21/79 038-055 #31663
/@/SLS,5 -8/                             DGH F00 06/21/79 039-055 #31663
/@/CI,5 .2D/                             DGH F00 06/21/79 040-055 #31663
/@/BNE  PHOEZE/                          DGH F00 06/21/79 041-055 #31663
/@/B 2780IO .D2/                         DGH F00 06/21/79 042-055 #31663
<                                                                 #31663
UMOV/2780IO+.13D/AND,15 @(AND,15 2780IO+.2F/ F00 06/21/79 043-055 #31663
/@/.C7/                                  DGH F00 06/21/79 044-055 #31663
UMOV/2780IO+.2C5/CW,13 @(CW,13 2780IO+.30/   F00 06/21/79 045-055 #31663
/@/.20000008/                            DGH F00 06/21/79 046-055 #31663
<                                                                 #31663
<GO INTO EOT RECOVERY MODE HERE ...                               #31663
UMOV/2780IO+.C0/BE BURP  (BE 2780IO+.C8/ DGH F00 06/21/79 047-055 #31663
< CHECK FOR TIMEOUT IN EOT RECOVERY MODE                          #31663
UMOV/2780IO+.B/B @(CI,5 0/               DGH F00 06/21/79 048-055 #31663
/@/CI,5  .E/                             DGH F00 06/21/79 049-055 #31663
/@/BE . 3/                               DGH F00 06/21/79 050-055 #31663
/@/CI,5 0/                               DGH F00 06/21/79 051-055 #31663
/@/B 2780IO+.C/                          DGH F00 06/21/79 052-055 #31663
/@/LI,5 .D/                              DGH F00 06/21/79 053-055 #31663
/@/BLAAL;KBURP;KPHOEZE;KRPT$ORG;KB NEW$FLO/  F00 06/21/79 054-055 #31663
#                                        DGH F00 06/21/79 055-055 #31663
< *************************************************************** #31625
< REPLACEMENT PATCH FOR 31625 WHICH WAS ERRONEOUSLY RELEASED AS   #31625
< 31825, DATED 10/24/78                                           #31625
< *************************************************************** #31625
<                                                                 #31625
< MOS SBCE LOG 2 TYPE 43'S ON SIG7'S                              #31625
UMOV/CSECOM+.89/B @(CI,4 0/              JLJ F00 11/21/78 002-007 #31625
/@/CW,9 LITERALS+.20/                    JLJ F00 11/21/78 003-007 #31625
/@/BANZ CSECOM+.93/                      JLJ F00 11/21/78 004-007 #31625
/@/CI,4 0/                               JLJ F00 11/21/78 005-007 #31625
/@/B CSECOM+.8A/                         JLJ F00 11/21/78 006-007 #31625
#                                        JLJ F00 11/21/78 007-007 #31625
<MAKE THE AUTO HANGUP/ AUTO DIALUP CODE WORK FASTER WITH FECP     #32374
<LINES                                                            #32374
#REGCOC                                  DGH F00 04/19/79 001-022 #32374
#U@1492=COCU+.286                        DGH F00 04/19/79 002-022 #32374
#U@1566=COCU+.2B8                        DGH F00 04/19/79 003-022 #32374
#TPCOC                                   DGH F00 04/19/79 004-022 #32374
#U@1492=COCU+.2E8                        DGH F00 04/19/79 005-022 #32374
#U@1566=COCU+.323                        DGH F00 04/19/79 006-022 #32374
#L6R                                     DGH F00 04/19/79 007-022 #32374
#ELSE                                    DGH F00 04/19/79 008-022 #32374
#U@1492=0                                DGH F00 04/19/79 009-022 #32374
#1                                       DGH F00 04/19/79 010-022 #32374
#U@1492                                  DGH F00 04/19/79 011-022 #32374
UMOV/U@1492/B @(LI,11 2/                 DGH F00 04/19/79 012-022 #32374
/@/EXU U@1492+.2DD-.2E8/                 DGH F00 04/19/79 013-022 #32374
/@/BGE . 3/                              DGH F00 04/19/79 014-022 #32374
/@/LI,11 2/                              DGH F00 04/19/79 015-022 #32374
/@/B U@1492+1/                           DGH F00 04/19/79 016-022 #32374
/@/LW,11 L6R,3/                          DGH F00 04/19/79 017-022 #32374
/@/LW,6 10/                              DGH F00 04/19/79 018-022 #32374
/@/LC *11,6/                             DGH F00 04/19/79 019-022 #32374
/@/BCS,3 U@1566/                         DGH F00 04/19/79 020-022 #32374
/@/B U@1492+.290-.286/                   DGH F00 04/19/79 021-022 #32374
#U@1492;KU@1566;K1                       DGH F00 04/19/79 022-022 #32374
<THIS PATCH PUTS BACK A TEST FOR EXTERNAL CLIST WHICH WAS REMOVED #32204
UMOV/HANDLERS+.231/B @(LB,7 IOQ5,3)/     OL  F00 04/09/79 001-005 #32204
/@/INT,7 IOQ8,3/                         OL  F00 04/09/79 002-005 #32204
/@/BCS,4 HANDLERS+.250/                  OL  F00 04/09/79 003-005 #32204
/@/LB,7 IOQ5,3/                          OL  F00 04/09/79 004-005 #32204
/@/B HANDLERS+.232/                      OL  F00 04/09/79 005-005 #32204
<CHANGE DRIVE CHECK(DEVICE FAULT) FROM OPERATOR TO ERROR.         #31668
#MPCTIO                                  KRD F00 02/26/79 001-003 #31668
UMOV/MPCTIO+.12B/.00030000(.01030000/    KRD F00 02/26/79 002-003 #31668
#                                        KRD F00 02/26/79 003-003 #31668
< !EOD CARDS WITHIN JCL DECKS SUBMITTED FROM REMOTE WORKSTATIONS  #32175
< NEED TO BE FLAGGED AS SUCH.                                     #32175
UMOV/INSYM+.7F/B @(CI,13 1)/             FJ  F00 02/14/79 001-004 #32175
/@/BE INSYM+.8B/                         FJ  F00 02/14/79 002-004 #32175
/@/CI,13 1/                              FJ  F00 02/14/79 003-004 #32175
/@/B INSYM+.80/                          FJ  F00 02/14/79 004-004 #32175
< CORRECT SC-0A, SC-0B WHEN SSW4 SET OR DOWTCK SET ON PACK SWAPPER#30301
<< SYSTEM.                                                        #30301
#DPSIO                                   KDR F00 01/19/79 001-009 #30301
UMOV/DPSIO+.276/B @(LI,14 .1E/           KDR F00 01/19/79 002-009 #30301
/@/LI,14 .1E/                            KDR F00 01/19/79 004-009 #30301
/@/B DPSIO+.277/                         KDR F00 01/19/79 005-009 #30301
UMOV/DPSIO+.279/NOP(AI,6 -2/             KDR F00 01/19/79 006-009 #30301
UMOV/DPSIO+.28F/BE DPSIO+.295(BE DPSIO+.292/ F00 01/19/79 007-009 #30301
UMOV/DPSIO+.298/B DPSIO+.292(XPSD,10 ;Q/ KDR F00 01/19/79 008-009 #30301
#                                        KDR F00 01/19/79 009-009 #30301
< CLEAN UP SOME DISCONNECT SEQUENCE PROBLEMS CAUSED BY MODEM SHUT #31647
< OFF JUST AS THE WRITE ORDER STARTS TO THE DSC.                  #31647
#HASPIO                                  FJ  F00 11/16/78 001-012 #31647
UMOV/BSCIO+.4F/B @(B BSCIO+.47)/         FJ  F00 11/16/78 002-012 #31647
/@/MTB,1 IOQ11,3/                        FJ  F00 11/16/78 003-012 #31647
/@/B BSCIO+.47/                          FJ  F00 11/16/78 004-012 #31647
#                                        FJ  F00 11/16/78 005-012 #31647
#2780IO                                  FJ  F00 11/16/78 006-012 #31647
UMOV/2780IO+.D/B @(CI,5 8)/              FJ  F00 11/16/78 007-012 #31647
/@/CI,5 .C/                              FJ  F00 11/16/78 008-012 #31647
/@/BE BSCIO+.44/                         FJ  F00 11/16/78 009-012 #31647
/@/CI,5 .8/                              FJ  F00 11/16/78 010-012 #31647
/@/B 2780IO+.E/                          FJ  F00 11/16/78 011-012 #31647
#                                        FJ  F00 11/16/78 012-012 #31647
< FIX OUTSYM TO PUT THE BAD ADDRESS AND THE STARTING ADDRESS      #31648
< IN THE RIGHT REGISTERS BEFORE CALLING ERRLOG FOR TYPE 1B ENTRY  #31648
UMOV/OUTSYM+.C9/LI,14 0(LW,14 8,1)/      FJ  F00 11/19/78 001-010 #31648
UMOV/. 1/XW,14 4,1/                      FJ  F00 11/19/78 002-010 #31648
UMOV/. 1/STB,11 .E/                      FJ  F00 11/19/78 003-010 #31648
UMOV/. 1/LI,3 .800/                      FJ  F00 11/19/78 004-010 #31648
UMOV/. 1/STS,3 1,1/                      FJ  F00 11/19/78 005-010 #31648
UMOV/. 1/LI,11 .1B04/                    FJ  F00 11/19/78 006-010 #31648
UMOV/. 1/LB,3 *.A/                       FJ  F00 11/19/78 007-010 #31648
UMOV/. 1/LB,12 SNDDX,3/                  FJ  F00 11/19/78 008-010 #31648
UMOV/. 1/STH,11 .C/                      FJ  F00 11/19/78 009-010 #31648
UMOV/. 1/LW,15 8,1(XW,15 4,1)/           FJ  F00 11/19/78 010-010 #31648
<INOPERABLE STATUS-OPERATOR ATTENTION REQUIRED.                   #31897
#MPCDIO                                  KRD F00 11/10/78 001-003 #31897
UMOV/MPCDIO+.56/.00040404(.01040404/     KRD F00 11/10/78 002-003 #31897
#                                        KRD F00 11/10/78 003-003 #31897
<NO NEED TO HOLD CHANNEL FOR MPC DISK I/O.                        #31636
#MPCDIO                                  KRD F00 09/29/78 001-003 #31636
UMOV/MPCDIO+.16E/LI,5 0(LW,5 LITERALS+.21/   F00 09/29/78 002-003 #31636
#                                        KRD F00 09/29/78 003-003 #31636
<PUT NEW Q ENTRY AT BOTTOM OF Q NOT TOP WHEN THERE ARE NO ENTRIES #31896
<FOR THIS DEVICE AND PRIORITY IS LESS .                           #31896
UMOV/IOQ+.6F/BLE @(BLE IOQ+.64/          KRD F00 10/26/78 001-006 #31896
/@/BL IOQ+.64/                           KRD F00 10/26/78 002-006 #31896
/@/EXU $+1,2/                            KRD F00 10/26/78 003-006 #31896
/@/B IOQ+.70/                            KRD F00 10/26/78 004-006 #31896
/@/B IOQ+.64/                            KRD F00 10/26/78 005-006 #31896
/IORT+.3EB/LW,13 SSDAT+.18(LB,13 .4F/    KRD F00 10/26/78 006-006 #31896
<O'24' IS NOT A VALID READ RETRY CORRECTION CODE.                 #31960
#MPCTIO                                  KRD F00 11/10/78 001-012 #31960
/@/CI,10 3/                              KRD F00 11/10/78 003-012 #31960
/@/BLE MPCTIO+.300/                      KRD F00 11/10/78 004-012 #31960
/@/AI,10 1/                              KRD F00 11/10/78 005-012 #31960
/@/AND,10 LITERALS+.46/                  KRD F00 11/10/78 006-012 #31960
/@/CI,10 4/                              KRD F00 11/10/78 007-012 #31960
/@/BNE MPCTIO+.300/                      KRD F00 11/10/78 008-012 #31960
/@/AI,10 1/                              KRD F00 11/10/78 009-012 #31960
/@/AND,10 LITERALS+.46/                  KRD F00 11/10/78 010-012 #31960
/@/B MPCTIO+.300/                        KRD F00 11/10/78 011-012 #31960
#                                        KRD F00 11/10/78 012-012 #31960
< DON'T GENERATE EXTRA BLANK LINES IN RBSWITCHED OUTPUT.          #31856
#HASPIO                                  FJ  F00 10/04/78 001-004 #31856
UMOV/HASPIO+.2F6/CI,15 .1F(CI,15 .80)/   FJ  F00 10/04/78 002-004 #31856
UMOV/. 1/BANZ ;Q(BNE ;Q)/                FJ  F00 10/04/78 003-004 #31856
#                                        FJ  F00 10/04/78 004-004 #31856
<THE SYMBIONT SETS UP ALL LP RECS AS PRINTS WITH FORMAT (VFC).    #31822
<THE NSLP PRE-HANDLER WILL STRIP OFF ANY VFC CHAR OF X'C0' AND    #31822
<CHANGE THE CURRENT FUNCTION CODE TO PRINT W/O FORMAT.            #31822
<(TO UNDERSTAND WHY THIS IS NEEDED, REFER TO SIDR #27105 ON       #31822
<MICROFICHE.)  HOWEVER, UNLESS THE ORIGINAL FUNCTION CODE IS ALSO #31822
<MODIFIED, RETRIES WILL BE PRINT W/ FORMAT USING THE ORIGINAL     #31822
<2ND CHAR FOR VFC.                                                #31822
#NSLP                                    OL  F00 09/29/78 001-005 #31822
UMOV/NSLP+.16/B @(B HANDLERS+.BD/        OL  F00 09/29/78 002-005 #31822
/@/STB,5 IOQ4,3/                         OL  F00 09/29/78 003-005 #31822
/@/B HANDLERS+.BD/                       OL  F00 09/29/78 004-005 #31822
#                                        OL  F00 09/29/78 005-005 #31822
<TEST FOR BUSY MPC TAPE CHANNEL.                                  #31637
#MPCTIO                                  KRD F00 09/29/78 001-014 #31637
/@/CHK! LH,5 DCT1P,1/                    KRD F00 09/29/78 002-014 #31637
/@/TIO,0 0,5/                            KRD F00 09/29/78 003-014 #31637
/@/BCR,12 *15/                           KRD F00 09/29/78 004-014 #31637
/@/BCR,8 IOQ+.E8/                        KRD F00 09/29/78 005-014 #31637
/@/BCR,4 IOQ+.E8/                        KRD F00 09/29/78 006-014 #31637
/@/B *15/                                KRD F00 09/29/78 007-014 #31637
UMOV/MPCTIO+.2DE/B @(B HANDLERS+.FB/     KRD F00 09/29/78 008-014 #31637
/@/BAL,15 CHK/                           KRD F00 09/29/78 009-014 #31637
/@/B HANDLERS+.FB/                       KRD F00 09/29/78 010-014 #31637
UMOV/MPCTIO+.2EE/B @(B IOQ+.1BC/         KRD F00 09/29/78 011-014 #31637
/@/BAL,15 CHK/                           KRD F00 09/29/78 012-014 #31637
/@/CHK;KB IOQ+.1BC/                      KRD F00 09/29/78 013-014 #31637
#                                        KRD F00 09/29/78 014-014 #31637
< CORRECT SC 01 WHEN GETTING AJIT AND THERE IS NO OTHER DATA.     #31771
UMOV/SWAPPER+.351/B @(LB,3 ;Q,1/         KDR F00 09/22/78 001-009 #31771
/@/LB,3 .12F,1/                          KDR F00 09/22/78 002-009 #31771
/@/MTB,0 .12E,1/                         KDR F00 09/22/78 003-009 #31771
/@/BNEZ SWAPPER+.352/                    KDR F00 09/22/78 004-009 #31771
/@/LW,4 SSDATU+.3/                       KDR F00 09/22/78 005-009 #31771
/@/SLS,1 -:BIG/                          KDR F00 09/22/78 006-009 #31771
/@/STX,4 .12B,1/                         KDR F00 09/22/78 007-009 #31771
/@/B SWAPPER+.354/                       KDR F00 09/22/78 009-009 #31771
< PREVENT SC 7E-40 DUE TO HOLE IN OUTSYM.                         #31633
< ALSO FIXES THE BATCH QUEUE WIPEOUT PROBLEM THAT SEEMS TO        #31633
< OCCUR WHEN THE OUTPUT QUEUE GETS FULL AND ATTEMPTS ARE MADE     #31633
< TO FIND OUT WHAT'S IN THERE VIA DISP KEYINS, ETC. ETC.          #31633
UMOV/OUTSYM+.230/LI,4 .-2(AI,4 ;Q)/      FJ  F00 09/25/78 001-001 #31633
<MAKE OC MESSAGE 'NOT OPERATIONAL' FOR MPC.                       #31632
#MPCTIO                                  KRD F00 09/22/78 001-006 #31632
UMOV/MPCTIO+.67/LI,13 IOQM+.130(LI,13 IOQM+.12B/ 09/22/78 002-006 #31632
#                                        KRD F00 09/22/78 003-006 #31632
#MPCDIO                                  KRD F00 09/22/78 004-006 #31632
UMOV/MPCDIO+.F5/LI,13 IOQM+.130(LI,13 IOQM+.12B/ 09/22/78 005-006 #31632
#                                        KRD F00 09/22/78 006-006 #31632
<SET REWIND TYC TO ONE.                                           #31631
#MPCTIO                                  KRD F00 09/22/78 001-003 #31631
UMOV/MPCTIO+.22E/LI,12 1(LI,12 0/        KRD F00 09/22/78 002-003 #31631
#                                        KRD F00 09/22/78 003-003 #31631
< MAKE ESC-W TOGGLE INSTEAD OF ONLY SET OUTPUT IGNORE MODE        #31750
#REGCOC                                    .31AUG78 PLS F00 01-05 #31750
UMOV/COCU+.140/EOR,12 ;Q(OR,12 ;Q)/ COCU891.31AUG78 PLS F00 02-05 #31750
#TPCOC                                     .31AUG78 PLS F00 03-05 #31750
UMOV/COCU+.166/EOR,12 ;Q(OR,12 ;Q)/ COCU891.31AUG78 PLS F00 04-05 #31750
#1                                         .31AUG78 PLS F00 05-05 #31750
< DURING DEVICE-KEYIN PROCESSING, IOQ SETS THE INTER-OP BIT IN    #31621
< DCT5 IF THE DEVICE HANDLER SAYS TO DO SO.  IF THE KEYIN IS      #31621
< AN 'E' OR 'C' (OR AN 'R' WITH RETRY COUNT EXHAUSTED) IOQ CALLS  #31621
< REQCOM1 TO SIGNAL I/O COMPLETE;  REQCOM1 THEN CALLS DRIVEIO TO  #31621
< START ANY FURTHER I/O QUEUED FOR THE DEVICE.  DRIVEIO ASSUMES   #31621
< THAT IF INTER-OP BIT IS SET THE IOQ INDEX IN DCT6 STILL APPLIES;#31621
< THIS ISN'T SO IN THIS CASE 'CAUSE THE IOQ ENTRY HAS ALREADY     #31621
< BEEN RETURNED TO THE FREE CHAIN.  TOTAL DISASTER OCCURS.        #31621
< FIX:  BEFORE CALLING REQCOM1, CLEAR INTER-OP BIT.               #31621
UMOV/IOQ+.49B/BAL,4 @(BAL,4 IOQ+.31C/    DCP F00 08/31/78 001-004 #31621
/@/AND,0 LITERALS+.29/                   DCP F00 08/31/78 002-004 #31621
/@/STB,0 DCT5,1/                         DCP F00 08/31/78 003-004 #31621
/@/B IOQ+.31C/                           DCP F00 08/31/78 004-004 #31621
< FIX HESITATION IN COC INPUT AND OUTPUT                          #31616
#MINCOC                                    .28AUG78 PLS F00 01-16 #31616
UMOV/COCU+.14C/NOP(WD,0 .37)/ COCU1399     .28AUG78 PLS F00 02-16 #31616
UMOV/COCU+.16F/NOP(BAL,13 ;Q)/ COCU1444    .28AUG78 PLS F00 03-16 #31616
UMOV/COCU+.170/LW,6 @(LI,6 6)/ E:CUB COCU1446      .PLS F00 04-16 #31616
/@/.40000006/ DONT-ENABLE-IN-SCHED + E:CUB .28AUG78 PLS F00 05-16 #31616
#REGCOC                                    .28AUG78 PLS F00 06-16 #31616
UMOV/COCU+.23E/NOP(WD,0 .37)/ COCU1399     .28AUG78 PLS F00 07-16 #31616
UMOV/COCU+.26A/NOP(BAL,13 ;Q)/ COCU1444    .28AUG78 PLS F00 08-16 #31616
UMOV/COCU+.26B/LW,6 @(LI,6 6)/ E:CUB COCU1446      .PLS F00 09-16 #31616
/@/.40000006/ DONT-ENABLE-IN-SCHED + E:CUB .28AUG78 PLS F00 10-16 #31616
#TPCOC                                     .28AUG78 PLS F00 11-16 #31616
UMOV/COCU+.2A0/NOP(WD,0 .37)/ COCU1399     .28AUG78 PLS F00 12-16 #31616
UMOV/COCU+.2CC/NOP(BAL,13 ;Q)/ COCU1444    .28AUG78 PLS F00 13-16 #31616
/@/.40000006/ DONT-ENABLE-IN-SCHED + E:CUB .28AUG78 PLS F00 15-16 #31616
#1                                         .28AUG78 PLS F00 16-16 #31616
<BAD REGISTER FIX.                                                #31610
UMOV/IOQ+.48D/;Q-.100000(LB,3 DCT3,1/    KRD F00 08/22/78 001-003 #31610
UMOV/IOQ+.48E/;Q-.100000(AND,3 LITERALS+.67/ F00 08/22/78 002-003 #31610
UMOV/IOQ+.48F/;Q-.100000(STB,3 DCT3,1/   KRD F00 08/22/78 003-003 #31610
RECOVER//
#MPCFLG                                  JBC F00 03/27/81 023-032 #32806
< **** REPLACEMENT PATCH FOR ONE OF SAME NUMBER                   #32806
< **** DATED 12/4/80.                                             #32806
< IF AN MPC CONTROLLER GOES DOWN WHILE THE SYSTEM IS RUNNING AND  #32806
< A RECOVERY OCCURS THE SYSTEM WILL NOT COME BACK UP.  THE REASON #32806
< IS DUE TO INITRCVR'S LONELINESS AND SUBSEQUENT NEED TO TALK TO  #32806
< THE MPC'S AND HE WONT GIVE UP TRYING TO TALK TO THEM.  THIS PATC#32806
< WILL CAUSE INITRCVR TO ACT LIKE RECOVER AND ALLOW YOU TO SKIP   #32806
< DOWNLOADING AN MPC.  THE MPC ADDRESS WILL ALSO BE DISPLAYED.    #32806
< PATCH ALSO MAKES RECOVER ACT LIKE INITRCVR :                    #32806
<      STEP ONCE TO RETRY LOAD/ TWICE TO SKIP LOAD                #32806
< PATCH IS 2 PARTS  23 CARDS TO UMOV;   9 CARDS TO RECOVER        #32806
<                                                                 #32806
<  PATCHES TO RECOVER FOLLOW, CHANGE MPCDUMP SKIP/AND/BRANCH      #32806
< INSTRUCTIONS AND MESSAGE                                        #32806
RECOVER/MPCDUMP+.6D/B MPCDUMP+.5B(B MPCDUMP+.106/03/27/81 024-032 #32806
RECOVER/MPCDUMP+.6E/B MPCDUMP+.106(B MPCDUMP+.5B/03/27/81 025-032 #32806
RECOVER/MPCDUMP+.39B/.D94B40D6(.D94B40E3/JBC F00 03/27/81 026-032 #32806
RECOVER/MPCDUMP+.39D/.E3D640D9(.40E3D640/JBC F00 03/27/81 028-032 #32806
RECOVER/MPCDUMP+.39E/.C5E3D9E8(.D9C5E3D9/JBC F00 03/27/81 029-032 #32806
RECOVER/MPCDUMP+.39F/.404DE3E6(.E8404DD6/JBC F00 03/27/81 030-032 #32806
RECOVER/MPCDUMP+.3A0/.C9C3C540(.D5C3C540/JBC F00 03/27/81 031-032 #32806
#1                                       JBC F00 03/27/81 032-032 #32806
<STOP HEADING FOR MPCDUMP IF NO MPC                               #31635
<REALIGN DISK DUMP DATA WITH HEADINGS                             #31635
#MPCDUMP
RECOVER/MPCDUMP+.29/ NOP ( BAL,15 MPCDUMP+.12A/  11/27/78 001-016 #31635
RECOVER/MPCDUMP+.33/ NOP ( BAL,15 MPCDUMP+.1A8/  11/27/78 002-016 #31635
RECOVER/MPCDUMP+.3E/ B @ ( LI,3 0/       DAL F00 11/27/78 003-016 #31635
/@/ MTW,1 $+6/                           DAL F00 11/27/78 004-016 #31635
/@/ BNEZ $+3/                            DAL F00 11/27/78 005-016 #31635
/@/ BAL,15 MPCDUMP+.12A/                 DAL F00 11/27/78 006-016 #31635
/@/ BAL,15 MPCDUMP+.1A8/                 DAL F00 11/27/78 007-016 #31635
/@/ LI,3 0/                              DAL F00 11/27/78 008-016 #31635
/@/ B MPCDUMP+.3F/                       DAL F00 11/27/78 009-016 #31635
/@/ -1/                                  DAL F00 11/27/78 010-016 #31635
RECOVER/MPCDUMP+.59/ LI,11 RCVCTL-.700 / DAL F00 11/27/78 011-016 #31635
RECOVER/MPCDUMP+.107/ B @ ( BAL,15 MPCDUMP+.12A/ 11/27/78 012-016 #31635
/@/ MTW,1 $-1/                           DAL F00 11/27/78 013-016 #31635
/@/ BEZ $+2/                             DAL F00 11/27/78 014-016 #31635
/@/ BAL,15 MPCDUMP+.12A/                 DAL F00 11/27/78 015-016 #31635
/@/ B MPCDUMP+.108/                      DAL F00 11/27/78 016-016 #31635
<LET CYCUSR DUMP PARTIAL 128K BLOCK.                              #31629
RECOVER/CYCUSR+.5FB/LW,6 CYCUSR+.748(LI,6 .B0/   09/15/78 001-002 #31629
RECOVER/CYCUSR+.5FC/STW,6 ;Q,3(STB,6 CYCUSR+.71E,3/       002-002 #31629
<BAD REG IN CYCUSR.                                               #31614
RECOVER/CYCUSR+.7B8/BAL,3 ;Q(BAL,11 CYCUSR+.85E/ 08/24/78 001-005 #31614
RECOVER/CYCUSR+.7CB/BAL,3 ;Q(BAL,11 CYCUSR+.85E/ 08/24/78 002-005 #31614
RECOVER/CYCUSR+.7E1/BAL,3 ;Q(BAL,11 CYCUSR+.85E/ 08/24/78 003-005 #31614
RECOVER/CYCUSR+.7FA/BAL,3 ;Q(BAL,11 CYCUSR+.85E/ 08/24/78 004-005 #31614
RECOVER/CYCUSR+.863/B 0,3(B *11/         KRD F0D 08/24/78 005-005 #31614
<    -----> Read file 24562INFO on the SST tape before <-----     #24562
<    ----->     attempting to install this patch!      <-----     #24562
<                                                                 #24562
<     This patch is a replacement for one with the same SIDR      #24562
<     number dated 9/27/78 - the old version must be removed.     #24562
<     This version implements an improved fix for problems        #24562
<     occurring when the system begins to run out of symbiont     #24562
<     output file slots; it contains all of the code provided     #24562
<     by the previous version, as well as (optional) code         #24562
<     for SIDR 31906.                                             #24562
<                                                                 #24562
<     This is a three-section patch: 43 cards to the MULOV        #24562
<     overlay, 7 cards to RECOVER, and 103 cards to RBBAT.        #24562
<                                                                 #24562
<     This section of the patch goes in RECOVER. It takes         #24562
<     effect if (and only if) you are using the full-blown        #24562
<     GUARD=2 mode of operation (see the 24562INFO file           #24562
<     for an explanation of this). If you are going to            #24562
<     last patch to RECOVER or dreadful things may happen if      #24562
<     your patch area is low on space. If your site uses          #24562
<     both tape and card patches and you have any card            #24562
<     patches to RECOVER, you should put this section of the      #24562
<     patch in your card deck after your last RECOVER patch       #24562
<     rather than (or as well as) on tape (it won't hurt          #24562
<     to have it in both places). If you're not planning          #24562
<     on using the GUARD=2 mode of operation, then you            #24562
<     don't have to worry about where in RECOVER this patch       #24562
<     goes.                                                       #24562
<                                                                 #24562
#GUARD-1                                 FJ  F00 11/18/78 044-153 #24562
/@/0/                                    FJ  F00 11/18/78 045-153 #24562
/@/0/                                    FJ  F00 11/18/78 046-153 #24562
/@/0/                                    FJ  F00 11/18/78 047-153 #24562
/@/0/                                    FJ  F00 11/18/78 048-153 #24562
/@/0/                                    FJ  F00 11/18/78 049-153 #24562
#1                                       FJ  F00 11/18/78 050-153 #24562
<
<
*
GENMD :P11
DELETE
< REPLACEMENT FOR GENMD OF SAME NUMBER DATED 800804:              X32732
< 9BINREAD CALCULATES CHECKSUM INCORRECTLY WHEN THE               X32732
< BYTE COUNT IS NOT DIVISIBLE BY 4.                               X32732
< GENMD'S TO :P11.                                                X32732
,9BINREAD+A9,22300004(22300001).         FHK EXP-F 801007 001-004 X32732
,9BINREAD+AA,B2460000+8DCBADR(52460000+6BINBUF).-F 801007 002-004 X32732
,9BINREAD+AB,2540006D(2140002C).         FHK EXP-F 801007 003-004 X32732
,9BINREAD+AC,680000AF+9BINREAD(681000AE+9BINREAD).        004-004 X32732
,9BINREAD+AC,680000AF+9BINREAD(681000AE+9BINREAD).        005-005 X32732
GENMD ANLZ
DELETE
< REPLACEMENT FOR GENMD OF SAME NUMBER DATED 06/21/81             XE-009
< (PATCH LOCATIONS CORRECTED, PROPERLY, THIS TIME)                XE-009
< PATCH TO MAKE ANLZ WORK OK FOR TAC USE                          XE-009
< PATCH WILL CAUSE DI AD COMMAND TO CAUSE ANLZ                    XE-009
< TO PRINT OUTPUT AS THOUGH IT WERE GOING TO LP INSTEAD OF UC     XE-009
< YOU MUST DO A !PLATEN 132 BEFORE CALLING ANLZ                   XE-009
< GENMD TO ANLZ:                                                  XE-009
:GENMD,ANALZ PP+766,68000006+PATCH.      JBC EXP-F 810716 001-017 XE-009
:GENMD,ANALZ PATCH+06,22100393+PP(0).    JBC EXP-F 810716 002-017 XE-009
:GENMD,ANALZ PATCH+07,3510000D+PATCH(0). JBC EXP-F 810716 003-017 XE-009
:GENMD,ANALZ PATCH+08,2280E4C3(0).       JBC EXP-F 810716 004-017 XE-009
:GENMD,ANALZ PATCH+09,6800000B+PATCH(0). JBC EXP-F 810716 005-017 XE-009
:GENMD,ANALZ PATCH+0A,2280D3D7(0).       JBC EXP-F 810716 006-017 XE-009
:GENMD,ANALZ PATCH+0B,09100002+DATA(0).  JBC EXP-F 810716 007-017 XE-009
:GENMD,ANALZ PATCH+0C,680008AC+PP(0).    JBC EXP-F 810716 008-017 XE-009
:GENMD,ANALZ PATCH+0D,0.                 JBC EXP-F 810716 009-017 XE-009
:GENMD,ANALZ PP+8AB,6800000A+PATCH(09100002+DATA).        010-017 XE-009
:GENMD,ANALZ PP+8CB,80000008(0000D3D7).  JBC EXP-F 810716 011-017 XE-009
:GENMD,ANALZ PP+206,2200000E+PATCH(22000393+PP).-F 810716 012-017 XE-009
:GENMD,ANALZ PATCH+0E,2210009A+DATA(0).  JBC EXP-F 810716 013-017 XE-009
:GENMD,ANALZ PATCH+0F,22000393+PP(0).    JBC EXP-F 810716 014-017 XE-009
:GENMD,ANALZ PATCH+10,3300000D+PATCH(0). JBC EXP-F 810716 015-017 XE-009
:GENMD,ANALZ PATCH+11,E8300000(0).       JBC EXP-F 810716 016-017 XE-009
:GENMD,ANALZ PATCH+12,68000979+PP(0).    JBC EXP-F 810716 017-017 XE-009
< CORRECT PROBLEM WHICH ALLOWED CERTAIN DUMP FILES TO BE          X32668
< ACCESSED BY LOW-PRIVILEGED USERS.                               X32668
< GENMD TO ANLZ                                                   X32668
,PP+265,04100013+PATCH(04100335+PP).     RMS EXP-F 810624 001-018 X32668
,PATCH+13,11000000+M:EO.                 RMS EXP-F 810624 002-018 X32668
,PATCH+14,F8000030.                      RMS EXP-F 810624 003-018 X32668
,PATCH+15,00000268+PP.                   RMS EXP-F 810624 004-018 X32668
,PATCH+16,00000268+PP.                   RMS EXP-F 810624 005-018 X32668
,PATCH+17,8000019E+BIGBUF.               RMS EXP-F 810624 006-018 X32668
,PATCH+18,00000800.                      RMS EXP-F 810624 007-018 X32668
,PATCH+19,000000BC+BIGBUF.               RMS EXP-F 810624 008-018 X32668
,PP+328,F7480009(F7480001).              RMS EXP-F 810624 009-018 X32668
,PP+332,01000202(01010202).              RMS EXP-F 810624 010-018 X32668
,PP+335,02000002(11000000+M:EO).         RMS EXP-F 810624 011-018 X32668
,PP+336,0(F8000030).                     RMS EXP-F 810624 012-018 X32668
,PP+337,0(00000268+PP).                  RMS EXP-F 810624 013-018 X32668
,PP+338,05010202(00000268+PP).           RMS EXP-F 810624 014-018 X32668
,PP+339,D5D6D5C5(8000019E+BIGBUF).       RMS EXP-F 810624 015-018 X32668
,PP+33A,40404040(00000800).              RMS EXP-F 810624 016-018 X32668
,PP+33B,0(000000BC+BIGBUF).              RMS EXP-F 810624 017-018 X32668
,M:EO+20,05000002(04000002).             RMS EXP-F 810624 018-018 X32668
< PERMIT DISPLAY OF SYMBOLS CONTAINING '$'                        X32826
< GENMD TO ANLZ:                                                  X32826
< PATCH RELOCATION REDONE CORRECTLY, THIS TIME.                   #32229
< FORMAT INSTRUCTION ADDRESS CORRECTLY IN ANALZ TSTACK DISPLAY.   #32229
< 7 GENMDS TO ANLZ:                                               #32229
:GENMD,ANALZO5 PPO5+8CF,68000000+PATCH(4B300002+PPO5).    001-007 #32229
:GENMD,ANALZ PATCH+00,31300005+PATCH(0). SW  F00 07/16/81 002-007 #32229
:GENMD,ANALZ PATCH+01,68400003+PATCH(0). SW  F00 07/16/81 003-007 #32229
:GENMD,ANALZ PATCH+02,4B300000+M17(0).   SW  F00 07/16/81 004-007 #32229
:GENMD,ANALZ PATCH+03,4B300002+PPO5(0).  SW  F00 07/16/81 005-007 #32229
:GENMD,ANALZ PATCH+04,680008D0+PPO5(0).  SW  F00 07/16/81 006-007 #32229
:GENMD,ANALZ PATCH+05,1C000000(0).       SW  F00 07/16/81 007-007 #32229
< REPLACEMENT FOR GENMD OF SAME NUMBER DATED 12/03/80             #32128
< CP5DUMP GETS CREATED IN CURRENT ACCOUNT, FIX OPEN FPT           #32128
< TO OPEN INPUT CP5DUMP IN CURRENT ACCOUNT                        #32128
:GENMD,ANALZ PP+320,02010002(02010202).  JBC F00 01/22/81 001-001 #32128
< ANLZ-SNOOP IMPROPERLY CALLS AN OUTIN CFU 'INOUT'.               #32788
< GENMD TO ANLZ.                                                  #32788
ANALZO6,PPO6+21E,1200025C+PPO6(1200025B+PPO6).   12/03/80 001-001 #32788
<CLEAR BUFFER DURING PASS2 OUTPUT TO AVOID LATER  GARBAGE.        #32761
<GENMD'S TO ANALZ.                                                #32761
ANALZ,PP+657,35100000+PTR(35100000+BUFSIZ).  F00 12/03/80 001-002 #32761
ANALZ,PP+658,6A000000+BUFOUT(04100000+WRITBUF).  12/03/80 002-002 #32761
GENMD BATCH
DELETE
< INCREASE ALLOWED REPLACEMENT COMMANDS TO 470 WORDS, INSTEAD     #32661
< OF 470 BYTES. GENMD TO BATCH:                                   #32661
:GENMD,BATCH BATCH2DD+499,758(1D6).      FHK F00 12/03/80 001-001 #32661
,BATCH2PP+E,40C2C1E3(5AC2C1E3).          MSC F00 10/23/79 001-001 #32495
<BATCH ALLOWS ONLY 25 STRING REPLACEMENTS NOW, EVEN THE MANUAL SAY#32284
<50 AND THERE IS TABLE SPACE FOR 50 IN BATCH.                     #32284
<PATCH THE UPWARD LIMIT TO 50 4-WORD PACKETS FOR A STRING REPLACEM#32284
,BATCH2PP+1E,C8(64).                     DGH F00 08/27/79 001-001 #32284
GENMD CCI
DELETE
<CCI SHOULDN'T SAY 'COMMAND FILE IS BUSY' WHEN IT'S NOT.          X32759
< GENMDS TO CCI:                                                  X32759
,OPNXS+1C,21A00A01(21A00014).            SW  EXP-F 800804 001-006 X32759
,OPNFD+3E,68000000+CCIPCH(25A00079).     SW  EXP-F 800804 002-006 X32759
,CCIPCH+00,21A00A01;.                    SW  EXP-F 800804 003-006 X32759
,68300034+OPNFD;.                        SW  EXP-F 800804 004-006 X32759
,25A00079;.                              SW  EXP-F 800804 005-006 X32759
,6800003F+OPNFD.                         SW  EXP-F 800804 006-006 X32759
< THE BP REF MANUAL (P.34) SAYS THAT M:C CANNOT BE ASSGNED WITH   X32043
< THE ASSIGN COMMAND. HOWEVER, CCI ALLOWS ASSIGNS TO DEVICES, BUT X32043
< CCI LOOPS PRINTING OUT THE ASSIGN COMMAND, AND THE JOB CANNOT BEX32043
< ABORTED WITHOUT AN OPERATOR RECOVERY. SUGGESTED FIX:            X32043
:GENMD,CCI ASSG+FD,6830043F+ASSG(68300117+ASSG). 01/02/80 001-001 X32043
< **REPLACEMENT FOR GENMD OF SAME NUMBER DATED 12/04/80.          #32804
< ****MODIFIED TO USE BEGINNING OF PATCH AREA.                    #32804
< INVALID PUNCH CAN CAUSE CCI TO LOOP                             #32804
< JOB CANNOT BE X'D OR ABORTED                                    #32804
:GENMD JOBP+DD,68000000+CCIPCH(680000D0+JOBP).   02/26/81 001-004 #32804
:GENMD CCIPCH+00,21800015.               TJS F00 02/26/81 002-004 #32804
:GENMD CCIPCH+02,680000D0+JOBP.          TJS F00 02/26/81 004-004 #32804
GENMD COBOL
DELETE
< MOVE OF AN ELEMENTARY DATA ITEM TO A GROUP ITEM                 X32621
< WITH AN OCCURS DEPENDING CLAUSE DOES NOT WORK PROPERLY          X32621
< GENMD IS TO COBOL-F04                                           X32621
:GENMD,COBOL42A MDF01+145,6AA002F4+MDF01(6AB0D122).       001-003 X32621
:GENMD,COBOL42A MDF01+146,02000000(61200000). F04  801125 002-003 X32621
:GENMD,COBOL42A BBA00+1C9,680001AD+BBA00(68000206+BBA00). 003-003 X32621
GENMD COCG
DELETE
< THESE GENMDS TO COCG REMOVE THE NEED TO SET SS2 ON A BOOT       X32595
< TO GET THE GHOST TO RESET TURNAROUND MODE ON COC LINES.         X32595
:GENMD COCG+96,698000A4(69COOOA4).       MK  F00 01/02/80 001-003 X32595
:GENMD COCG+9C,70000000(6C000000).       MK  F00 01/02/80 002-003 X32595
:GENMD COCG+9D,70000000(684000A4).       MK  F00 01/02/80 003-003 X32595
<                                                                 #32439
<INITIALIZE COB:SIOS TABLE TO ALL .C0 ENTRIES.                    #32439
<THEN HAVE COCG NOT MESS WITH THE TABLE COB:SIOS AT ALL FOR FECP  #32439
<DEVICES.  THIS ALLOWS COCG RESTART AFTER POWER FAIL, RIO TO MIOP #32439
< ETC. TO NOT AFFECT THE FRONT END. THIS MAKES L6G THE SOLE       #32439
<MANIPULATOR OF COB:SIOS TABLE ENTRIES FFOR FRONT END DEVICES.    #32439
<                                                                 #32439
< 5 PATCHES TO COCG, 2 PATCHES TO MONITOR ROOT                    #32439
<THE FIRST 5 PATCHES FOR THIS SIDR ARE APPLIED AGAINST COCG.      #32439
,COCG+B2,68000000+PATCH(022000C0).       DGH F00 07/19/79 001-007 #32439
,PATCH+0,21500000+L6#FIRST.              DGH F00 07/19/79 002-007 #32439
,PATCH+1,681000B4+COCG.                  DGH F00 07/19/79 003-007 #32439
,PATCH+2,022000C0.                       DGH F00 07/19/79 004-007 #32439
,PATCH+3,680000B3+COCG.                  DGH F00 07/19/79 005-007 #32439
< IN ORDER FOR A F00 FECP ONLY SYSTEM TO WORK PROPERLY A DCT INDEX#31658
<FOR THE OPLABEL 'ME' TO POINT TO IS REQUIRED. THUS TO SYSGEN     #31658
<A F00 FECP ONLY SYSTEM, A DUMMY :DEVICE MEF00 CARD SHOULD        #31658
<BE PLACED INTO THE PASS2.   THE DEVICE ADDRESS SHOULD NOT        #31658
<CONFLICT WITH ANY OTHERS ON  THE SYSTEM.                         #31658
<THIS PATCH MAKES COCG USE THE INPUT INTERRUPT LEVEL FOR THE      #31658
<FECP IN CALCULATING THE HIGHEST INPUT INTERRUPT LEVEL.           #31658
,COCG+B5,681000FB+COCG(68100102+COCG).   DGH F00 11/28/78 001-001 #31658
GENMD CONTROL
DELETE
< CONTROL MISFORMATS DISPLAYS AND REVISIONS OF MINQX, MAXQX IN    #32794
< MULTI-CPU SYSTEMS. GENMD TO CONTROL:                            #32794
,+AC73,1(0).                             RMS F00 12/03/80 001-006 #32794
,+AC74,1(0).                             RMS F00 12/03/80 002-006 #32794
,+AC75,10000(8000).                      RMS F00 12/03/80 003-006 #32794
,+AC76,10000(8000).                      RMS F00 12/03/80 004-006 #32794
,+AC77,1(0).                             RMS F00 12/03/80 005-006 #32794
,+AC78,1(0).                             RMS F00 12/03/80 006-006 #32794
< THIS GENMD TO CONTROL FIXES A WEE TIMING WINDOW WHERE CONTROL   #32738
< CAN CHANGE PL:CHG WITHOUT CHECKING PL:LK. IF RBBAT FINDS THE    #32738
< CHANGED VALUE THERE AT THE WRONG TIME, RBBAT WILL GET AN        #32738
< A4-04 ON A 560, OR A LATER MBS SCREECH 2C-00 ON SIGMA.          #32738
:GENMD,CONTROL +B129,68000000+PATCH(47510000+PL:CHG).     001-005 #32738
:GENMD,CONTROL PATCH+0,32810000+PL:LK.   GAF F00 12/05/80 002-005 #32738
:GENMD,CONTROL PATCH+1,69300000+PATCH.   GAF F00 12/05/80 003-005 #32738
:GENMD,CONTROL PATCH+2,47510000+PL:CHG.  GAF F00 12/05/80 004-005 #32738
:GENMD,CONTROL PATCH+3,6800B12A.         GAF F00 12/05/80 005-005 #32738
< REPLACEMENT PATCH FOR #X31611 DATED 01/11/79                    #32649
< *** SOLVES 7E-40 DURING PFSR *******************                #32649
< ** AND THE SYSTEM HANG ON PFSR CAUSED BY 01/11/79 VERSION **    #32649
< SOLVES THE "TOPROOT MUST BE BELOW X'8000'" RESTRICTION          #32649
< =====> NOTE: THIS PATCH DEPENDS ON A SPARE CELL AT THE END      #32649
<              OF COCD (COCD+.59)                                 #32649
< ***********************************************************     #32649
< MEMORY.....PERFORM THIS ACTION IN THE MONITOR ROOT...           #32649
< 2 PATCHES, 1 TO ROOT/INITIAL, 1 GENMD TO CONTROL                #32649
:GENMD,CONTROL MOS+1AE,02000000.         JBC F00 04/21/80 015-024 #32649
:GENMD,CONTROL MOS+1AF,02000000.         JBC F00 04/21/80 016-024 #32649
:GENMD,CONTROL MOS+1B0,02000000.         JBC F00 04/21/80 017-024 #32649
:GENMD,CONTROL MOS+1B2,68000000+MOS:PP.  JBC F00 04/21/80 018-024 #32649
:GENMD,CONTROL MOS:PP+0,22400001(00000BAD).  F00 04/21/80 019-024 #32649
:GENMD,CONTROL MOS:PP+1,35B00007(00000BAD).  F00 04/21/80 020-024 #32649
:GENMD,CONTROL MOS:PP+2,6AB00059+COCD:(00000BAD).04/21/80 021-024 #32649
:GENMD,CONTROL MOS:PP+3,32B00007(00000BAD).  F00 04/21/80 022-024 #32649
:GENMD,CONTROL MOS:PP+4,6D000027(00000BAD).  F00 04/21/80 023-024 #32649
:GENMD,CONTROL MOS:PP+5,680001B3+MOS(00000BAD).  04/21/80 024-024 #32649
GENMD DEFCOM
DELETE
<DEFCOM DOESN'T GET ENUFF BUFFER PAGES IF REF/DEF STACK ENDS ON A #31619
<PAGE BOUNDARY                                                    #31619
:GENMD DEFCM+68,20100200(201001FF).      JTA F00 08/30/78 001-001 #31619
GENMD DELTA
DELETE
< SHOULD RELEASE THE ONES IT ALREADY HAS, TO KEEP HIM             X32953
< FROM LOOPING FOREVER ON RETURN FROM M:LINK.                     X32953
< ALSO, LNKTRC SHOULD TURN OFF 'DELTA ASSOCIATED' AND             X32953
< 'DELTA IN CONTROL' BEFORE ABORTING WITH B5-66.                  X32953
< GENMDS TO DELTA: (ALSO PATCHES TO LDLNK)                        X32953
,DEL+63B,6980002C+PCH(698007F5+DEL).     FHK EXP-F 810602 001-015 X32953
,PCH+2C,350000E5+ALPHA.                  FHK EXP-F 810602 002-015 X32953
,PCH+2D,6AF00D56+DEL.                    FHK EXP-F 810602 003-015 X32953
,PCH+2E,680007F5+DEL.                    FHK EXP-F 810602 004-015 X32953
,DEL+5FC,6980002F+PCH(698007F5+DEL).     FHK EXP-F 810602 005-015 X32953
,PCH+2F,3500010B+ALPHA.                  FHK EXP-F 810602 006-015 X32953
,PCH+30,6AF00D67+DEL.                    FHK EXP-F 810602 007-015 X32953
,PCH+31,680007F5+DEL.                    FHK EXP-F 810602 008-015 X32953
GENMD DEVDMP
DELETE
<TAPES GENERATED BY STAND-ALONE DEVDMP ARE UNBOOTABLE W/O THIS    #32150
<FIX. THEREFORE, AFTER GENMDING THE CP-V RESIDENT LM, GENERATE    #32150
<A NEW MASTER TAPE BY RUNNING DEVDMP ON-LINE WITH F:BOOT PROPERLY #32150
<ASSIGNED.                                                        #32150
,+A0B1,6800B2B1(3560AEDB).              OL  F00  01/17/79 001-004 #32150
,+B2B1,3560AEDB.                        OL  F00  01/17/79 002-004 #32150
,+B2B2,3560AEEB.                        OL  F00  01/17/79 003-004 #32150
,+B2B3,6800A0B2.                        OL  F00  01/17/79 004-004 #32150
GENMD EDIT
DELETE
< ALLOW 1-CHARACTER RESPONSES TO EDIT'S 'DELETE...' AND 'X TO ABORX32964
< GENMDS TO EDIT:                                                 X32964
,BPMPT1+10,1(4).                         FHK EXP-F 810804 001-012 X32964
,P+6AB,68000050+PATCHP(72300301+D).      FHK EXP-F 810804 003-012 X32964
,PATCHP+50,6A7016FF+P(0).                FHK EXP-F 810804 004-012 X32964
,PATCHP+51,21B+P(0).                     FHK EXP-F 810804 005-012 X32964
,PATCHP+52,72300301+D(0).                FHK EXP-F 810804 006-012 X32964
,PATCHP+53,680006AC+P(0).                FHK EXP-F 810804 007-012 X32964
,P+A8B,68000054+PATCHP(72300301+D).      FHK EXP-F 810804 008-012 X32964
,PATCHP+54,6A7016FF+P(0).                FHK EXP-F 810804 009-012 X32964
,PATCHP+55,21B+P(0).                     FHK EXP-F 810804 010-012 X32964
,PATCHP+56,72300301+D(0).                FHK EXP-F 810804 011-012 X32964
,PATCHP+57,68000A8C+P(0).                FHK EXP-F 810804 012-012 X32964
< EDIT XEQ FILENAME IN BATCH SHOULD WORK, BUT CAUSES A404.        X32685
< GENMD TO EDIT:                                                  X32685
,P+1557,68000062+PATCHP(68001562+P).     FHK EXP-F 800905 001-003 X32685
,PATCHP+62,3238159A+P.                   FHK EXP-F 800905 002-003 X32685
,PATCHP+63,68001562+P.                   FHK EXP-F 800905 003-003 X32685
< Fix EDIT so it won't loop in BATCH when XEQ'ing a               #32462
< non-existent file.                                              #32462
,P+900,69800025+PATCHP(6980090E+P).      LPH F00 08/26/79 001-006 #32462
,PATCHP+25;                              LPH F00 08/26/79 002-006 #32462
 ,6A7016FF+P(0); +25 BAL,LNK TYPEMSG     LPH F00 08/26/79 003-006 #32462
 ,0000012B+P(0); +26 DATA    ERRM14      LPH F00 08/26/79 004-006 #32462
 ,6A7016A4+P(0); +27 BAL,LNK RESET$XEQ$MODE+4    08/26/79 005-006 #32462
 ,E800000D(0).   +28 B       *F:LNK      LPH F00 08/26/79 006-006 #32462
< Fix EDIT so it will retain the column selections as if          #32506
,P+CDC,68000029+PATCHP.                  LPH F00 08/26/79 001-008 #32506
,PATCHP+29;                              LPH F00 08/26/79 002-008 #32506
 ,35500259+D(0); +29 STW,P1  SV1STSET    LPH F00 08/26/79 003-008 #32506
 ,32B0017C+D(0); +2A LW,R1   FRSTCLMN    LPH F00 08/26/79 004-008 #32506
 ,35B00184+D(0); +2B STW,R1  SEFRSTCLMN  LPH F00 08/26/79 005-008 #32506
 ,32B00187+D(0); +2C LW,R1   LASTCLMN    LPH F00 08/26/79 006-008 #32506
 ,35B00185+D(0); +2D STW,R1  SELASTCLMN  LPH F00 08/26/79 007-008 #32506
 ,68000CDD+P(0). +2E B       TYP5+1      LPH F00 08/26/79 008-008 #32506
< Fix EDIT so it will COPY passworded files over themselves,      #32416
< either implicitly(COPY A..B) or explicitly(COPY A..B OVER A..B) #32416
< Note however it is still not possible to change or remove a     #32416
< password from a file.                                           #32416
,P+876,32200005(693008CD+P).             LPH F00 07/06/79 001-013 #32416
,P+88D,6800001B+PATCHP(693008CD+P).      LPH F00 07/06/79 002-013 #32416
,PATCHP+1B;.                             LPH F00 07/06/79 003-013 #32416
 ,F2300002(0);        LB,3  *2           LPH F00 07/06/79 004-013 #32416
 ,F1300005(0);        CB,3  *5           LPH F00 07/06/79 005-013 #32416
 ,693008CD+P(0);      BNE   P+8CD        LPH F00 07/06/79 006-013 #32416
 ,21300000(0);        CI,3  0            LPH F00 07/06/79 007-013 #32416
 ,6830088E+P(0);      BE    P+88E        LPH F00 07/06/79 008-013 #32416
 ,F2760002(0);        LB,7  *2,3         LPH F00 07/06/79 009-013 #32416
 ,F1760005(0);        CB,7  *5,3         LPH F00 07/06/79 010-013 #32416
 ,693008CD+P(0);      BNE   P+8CD        LPH F00 07/06/79 011-013 #32416
 ,64300020+PATCHP(0); BDR,3 PATCHP+20    LPH F00 07/06/79 012-013 #32416
 ,6800088E+P(0).      B     P+88E        LPH F00 07/06/79 013-013 #32416
<EDIT SHOULD WORK AS A GHOST JOB, TOO.                            #31622
,P+22F,69C00236+P(69800236+P).           PAR F00 11/21/78 001-019 #31622
,P+1526,69C0152B+P(6980152B+P).          PAR F00 11/21/78 002-019 #31622
,P+16A5,69C016A8+P(698016A8+P).          PAR F00 11/21/78 003-019 #31622
,PATCHP+9,B206000C(0).                   PAR F00 11/21/78 004-019 #31622
,PATCHP+A,31300006(0).                   PAR F00 11/21/78 005-019 #31622
,PATCHP+B,6910123C+P(0).                 PAR F00 11/21/78 006-019 #31622
,PATCHP+C,68001241+P(0).                 PAR F00 11/21/78 007-019 #31622
,P+123A,44400009+PATCHP(3240000C).       PAR F00 11/21/78 008-019 #31622
,P+123B,3060017A+D(30400003).            PAR F00 11/21/78 009-019 #31622
,P+1247,6830000A+PATCHP(68301241+P).     PAR F00 11/21/78 010-019 #31622
,P+1260,3160000A(3860000A).              PAR F00 11/21/78 011-019 #31622
,P+1265,6800123B+P(6800123C+P).          PAR F00 11/21/78 012-019 #31622
,P+16A7,6800000D+PATCHP(680E0000).       PAR F00 11/21/78 013-019 #31622
,PATCHP+D,4100098+BPMPT1(0).             PAR F00 11/21/78 014-019 #31622
,PATCHP+E,680E0000(0).                   PAR F00 11/21/78 015-019 #31622
,P+1527,52000000+J:CCBUF(6B000000+J:CCBUF).  F00 11/21/78 016-019 #31622
,P+152B,4900001A+PATCHP(490017A1+P).     PAR F00 11/21/78 017-019 #31622
,PATCHP+1A,4040(0).                      PAR F00 11/21/78 018-019 #31622
,P+152D,210040C5(210000C5).              PAR F00 11/21/78 019-019 #31622
<EDIT'S MATCHANY STRING (?) SHOULD MATCH THE REST OF THE RECORD OR#31904
<THE REST OF THE COLUMN RANGE (WHICHEVER IS SMALLER) BUT AT LEAST #31904
<ONE CHARACTER, IF IT IS LAST IN THE STRING TO BE MATCHED.        #31904
,P+1143,6800000F+PATCHP(68001114+P).     PAR F00 10/31/78 001-012 #31904
,PATCHP+F,F130026F+D(0).                 PAR F00 10/31/78 002-012 #31904
,PATCHP+11,32400176+D(0).                PAR F00 10/31/78 004-012 #31904
,PATCHP+12,20400001(0).                  PAR F00 10/31/78 005-012 #31904
,PATCHP+13,31400187+D(0).                PAR F00 10/31/78 006-012 #31904
,PATCHP+14,68200016+PATCHP(0).           PAR F00 10/31/78 007-012 #31904
,PATCHP+15,32400187+D(0).                PAR F00 10/31/78 008-012 #31904
,PATCHP+16,31400189+D(0).                PAR F00 10/31/78 009-012 #31904
,PATCHP+17,68101114+P(0).                PAR F00 10/31/78 010-012 #31904
,PATCHP+18,32400189+D(0).                PAR F00 10/31/78 011-012 #31904
,PATCHP+19,68001114+P(0).                PAR F00 10/31/78 012-012 #31904
< FIX PROBLEM WHERE EXTRA TRAILING BLANKS ARE APPENDED WHEN       #31617
< TAB COMPRESSION IS DONE.                                        #31617
,P+1645,68000000+PATCHP.                   .28AUG78 PLS F00 01-11 #31617
,PATCHP,;                                  .28AUG78 PLS F00 02-11 #31617
22500040(0),;         LI,P1 X'40'          .28AUG78 PLS F00 03-11 #31617
204FFFFF(0),;         AI,X2 -1             .28AUG78 PLS F00 04-11 #31617
68200006+PATCHP(0),;  BLEZ $+4             .28AUG78 PLS F00 05-11 #31617
71580088+D(0),;       CB,P1 CARDIMG,X2     .28AUG78 PLS F00 06-11 #31617
69300006+PATCHP(0),;  BNE $+2              .28AUG78 PLS F00 07-11 #31617
68000001+PATCHP(0),;  B $-4                .28AUG78 PLS F00 08-11 #31617
20400001(0),;         AI,X2 1              .28AUG78 PLS F00 09-11 #31617
354000C8+D(0),;       STW,X2 RECSIZE       .28AUG78 PLS F00 10-11 #31617
68001646+P(0).        B P+.1646            .28AUG78 PLS F00 11-11 #31617
GENMD ELLA
DELETE
< REPLACEMENT FOR PATCH OF SAME NUMBER DATED 01/03/80.            X32597
< ONE CARD HAS BEEN ADDED TO AVOID ORDER DEPENDENCY, AND THE      X32597
< AND ELLA F01. THE PATCH HAS ALSO BEEN CHANGED TO USE THE LAST   X32597
< 12 PATCH LOCATIONS IN ELLA, RATHER THAN 12 IN THE MIDDLE.       X32597
<SEPARATE ELLA'S OVERFLOW MESSAGE INTO TWO MESSAGES.              X32597
<  "**OVERFLOW OF MOD/IO TABLES."  (AS CURRENT) AND               X32597
<  "**OVERFLOW OF SORT TABLES." WHEN ELLA CANNOT OBTAIN           X32597
<  SUFFICIENT PAGES (CIRCUMVENT WITH A LARGER CORE LIMIT).        X32597
<  NOTE SHOULD BE MADE IN THE CP-V SYSTEMS PROGRAMMING MANUAL.    X32597
< GENMD TO ELLA, USES PATCH LOCATIONS X'1C' THRU X'27':           X32597
ELLAROOT;                                SW  EXP-F 801009 001-021 X32597
,RT+6DE,6800001E+PAT(680006E7+RT).       SW  EXP-F 801009 002-021 X32597
,RT+6E7,6800001C+PAT(22E00023).          SW  EXP-F 801009 003-021 X32597
,RT+6EE,C640E7E7(C640E2D6);              SW  EXP-F 801009 004-021 X32597
,E7E7E7E7(D9E340D6);                     SW  EXP-F 801009 005-021 X32597
,40E3C1C2(D940D4D6);                     SW  EXP-F 801009 006-021 X32597
,D3C5E24B(C461C9D6);                     SW  EXP-F 801009 007-021 X32597
,C640D4D6(40E3C1C2);                     SW  EXP-F 801009 008-021 X32597
,C461C9D6(D3C5E240).                     SW  EXP-F 801009 009-021 X32597
,PAT+1C,22E006F2+RT;                     SW  EXP-F 801009 010-021 X32597
,6800001F+PAT.                           SW  EXP-F 801009 011-021 X32597
,PAT+1E,22E00012+PAT;                    SW  EXP-F 801009 012-021 X32597
,B2F0000E;                               SW  EXP-F 801009 013-021 X32597
,35F006EE+RT;                            SW  EXP-F 801009 014-021 X32597
,20E00001;                               SW  EXP-F 801009 015-021 X32597
,B2F0000E;                               SW  EXP-F 801009 016-021 X32597
,35F006EF+RT;                            SW  EXP-F 801009 017-021 X32597
,22E0001C;                               SW  EXP-F 801009 018-021 X32597
,680006E8+RT.                            SW  EXP-F 801009 019-021 X32597
,PAT+26,C64040E2;                        SW  EXP-F 801009 020-021 X32597
,D6D9E340.                               SW  EXP-F 801009 021-021 X32597
#ELLAF01
< INSERT GENMDS SPECIFIC TO ELLA F01 HERE:
#
GENMD ERR:FIL
DELETE
< ERR:FIL LOOPS IF > 255 ERRORS PER MINUTE. (NOTE: KEY SIZE       #31986
< IS STILL THE SAME AS IT ALWAYS WAS).   JLJ                      #31986
:GENMD,ERR:FIL ERR:FIL+B9,222000FF(75100026+DATA).1/09/79 001-008 #31986
:GENMD,ERR:FIL ERR:FIL+BA,38200001(222000FF).F00 01/09/79 002-008 #31986
:GENMD,ERR:FIL ERR:FIL+BB,352000EB+DATA(38200001).        003-008 #31986
:GENMD,ERR:FIL ERR:FIL+BC,691000C0+ERR:FIL(352000EB+DATA).004-008 #31986
:GENMD,ERR:FIL ERR:FIL+BD,75100026+DATA(691000C0+ERR:FIL).005-008 #31986
:GENMD,ERR:FIL ERR:FIL+16F,33F000EB+DATA(73100026+DATA).  006-008 #31986
:GENMD,ERR:FIL ERR:FIL+170,E9100008(33F000EB+DATA).       007-008 #31986
:GENMD,ERR:FIL ERR:FIL+171,73100026+DATA(E9100008).       008-008 #31986
GENMD FILL
DELETE
< REMOVE UNNECESSARY 4 PAGE LIMIT FOR FILL INCREMENTAL FILELIST.  X32803
< THIS WILL ALLOW MORE REASONABLE ACTION BY RESTORE THAN TO       X32803
< RECREATE DELETED FILES WHEN FILELIST WASN'T WRITTEN DUE TO      X32803
< EXCEEDING 4 PAGES. GENMDS TO FILL:                              X32803
:GENMD,FILL BACKUP+87,70000000(21701FE0).ML  EXP-F 801111 001-002 X32803
:GENMD,FILL BACKUP+88,70000000(6810008C+BACKUP).-F 801111 002-002 X32803
< FILL WILL REQUEST A SECOND TAPE (AND KEEP THE FIRST TAPE FOREVER#32699
< ON BACKUPS, IF HE GETS A 1400 TYPE ERROR ON THE FIRST FILE HE   #32699
< TRIES TO OPEN (WILL ALSO BE FIRST FILE HE IS TRYING TO PUT      #32699
:GENMD,FILL BACKUP+427,6AB00010+PATCH(6AB00154+BACKUP).   001-003 #32699
:GENMD,FILL PATCH+10,35B0016F+BACKUPD.   JBC F00 04/23/80 002-003 #32699
:GENMD,FILL PATCH+11,68000154+BACKUP.    JBC F00 04/23/80 003-003 #32699
<THIS PATCH ALLOWS THE 'DELETE FILES...' MESSAGE TO BE ASKED WHEN #32095
<RESTORING AN INCREMENTAL TAPE WITH A NORMAL FILL.                #32095
,FILL+13F,68300141+FILL(69300141+FILL).  LLF F00 01/05/79 001-001 #32095
<THIS PATCH PREVENTS FILL FROM WRITING THE F:BREC FILE BEFORE HE  #32105
<READS IT; THE RESULT OF THE ERROR WAS TO CLOBBER PREVIOUSLY SET  #32105
<VALUES FOR SERIAL NUMBERS AND OTHER FILL DEFAULTS.               #32105
,BACKUP+D2,68000006+PATCH(33000000+DEBUG).   F00 01/05/79 001-011 #32105
,PATCH+06,04100009+PATCH.                LLF F00 01/05/79 002-011 #32105
,PATCH+07,33000000+DEBUG.                LLF F00 01/05/79 003-011 #32105
,PATCH+08,680000D3+BACKUP.               LLF F00 01/05/79 004-011 #32105
,PATCH+09,10000000+F:BREC.               LLF F00 01/05/79 005-011 #32105
,PATCH+0A,F8000000.                      LLF F00 01/05/79 006-011 #32105
,PATCH+0B,0+BSR1.                        LLF F00 01/05/79 007-011 #32105
,PATCH+0C,0+BSR1.                        LLF F00 01/05/79 008-011 #32105
,PATCH+0D,0+SAVEBUF.                     LLF F00 01/05/79 009-011 #32105
,PATCH+0E,58.                            LLF F00 01/05/79 010-011 #32105
,PATCH+0F,0+SAVKEY.                      LLF F00 01/05/79 011-011 #32105
<INITIALIZE THE KEY FOR MAILBOX FILES BEFORE USING IT             #31935
,FILL+2F,68000000+PATCH(68000000+NO:FILL).   F00 10/30/78 001-007 #31935
,PATCH+00,22A000AB+FILLD.                LLF F00 10/30/78 002-007 #31935
,PATCH+01,35100000+NOPRINT.              LLF F00 10/30/78 003-007 #31935
,PATCH+02,22F00000.                      LLF F00 10/30/78 004-007 #31935
,PATCH+03,6AB00000+MAILBOX.              LLF F00 10/30/78 005-007 #31935
,PATCH+04,35000000+NOPRINT.              LLF F00 10/30/78 006-007 #31935
,PATCH+05,68000000+NO:FILL.              LLF F00 10/30/78 007-007 #31935
GENMD FORT
DELETE
< FIX FORTRAN MULTIPLE DUMMY PROBLEM                              #32561
:GENMD,PASS0F #PATCH,028FCCC5(0),;       RC  F00 01/02/80 001-006 #32561
:             021AA2F0(0),;              RC  F00 01/02/80 002-006 #32561
:             2451A344(0),;              RC  F00 01/02/80 003-006 #32561
:             02480028(0),;              RC  F00 01/02/80 004-006 #32561
:             0003B285(0).               RC  F00 01/02/80 005-006 #32561
:GENMD,PASS2F #PASS2F+FAD,40000+#PATCH(410E3+#PASS2F).    006-006 #32561
GENMD FRES
DELETE
< CORRECT FRES COMPUTATION OF RAD AND DISC CHARGES.               X32933
< GENMD TO FRES:                                                  X32933
,START+4BC,6800005C+PATCH(22300000).     FHK EXP-F 810520 001-009 X32933
,PATCH+5C,72300000+J:EXTENT.             FHK EXP-F 810520 002-009 X32933
,PATCH+5D,21300040.                      FHK EXP-F 810520 003-009 X32933
,PATCH+5E,68400062+PATCH.                FHK EXP-F 810520 004-009 X32933
,PATCH+5F,32300000+SL:EPS.               FHK EXP-F 810520 005-009 X32933
,PATCH+60,66320000+PRDPRM.               FHK EXP-F 810520 006-009 X32933
,PATCH+61,66320000+PRDCRM.               FHK EXP-F 810520 007-009 X32933
,PATCH+62,22300000.                      FHK EXP-F 810520 008-009 X32933
,PATCH+63,680004BD+START.                FHK EXP-F 810520 009-009 X32933
GENMD FSAVE
DELETE
< IN CASE OF MULTIPLE FAILURES ON THE OPEN OF THE DISKPOOL        #32722
< FILE, FOR THE FSAVE 'STATS' OPTION, FSAVE CAN END UP IN         #32722
< A LOOP AT AROUND .BD90.                                         #32722
< UNRELATED MESSAGE " ***FIT DISC ADDRESS IN FILE DIRECTORY       #32722
< KEY***" HAS BEEN SHORTENED TO " FIT DA ERROR IN FD KEY"         #32722
< TO MAKE ROOM FOR A PSEUDO PATCH AREA.                           #32722
< GENMDS TO FSAVE.                                                #32722
,FSTART+D7C,32200008(72F0000A).          RMS F00 12/03/80 001-027 #32722
,FSTART+D7D,72F0000A(21F00003).          RMS F00 12/03/80 002-027 #32722
,FSTART+D7E,21F00003(69300D85+FSTART).   RMS F00 12/03/80 003-027 #32722
,FSTART+D7F,69300F97+FSTART(33E00081+DATASEC).   12/03/80 004-027 #32722
,FSTART+D80,22100F97+FSTART(04100079+DATASEC).   12/03/80 005-027 #32722
,FSTART+D81,3510007B+DATASEC(04100E3C+FSTART).   12/03/80 006-027 #32722
,FSTART+D82,4610007C+DATASEC(33200081+DATASEC).  12/03/80 007-027 #32722
,FSTART+D83,33E00081+DATASEC(04100079+DATASEC).  12/03/80 008-027 #32722
,FSTART+D84,04100079+DATASEC(E8000008).  RMS F00 12/03/80 009-027 #32722
,FSTART+D85,04100E3C+FSTART(22F00000).   RMS F00 12/03/80 010-027 #32722
,FSTART+D86,33200081+DATASEC(35F00100+DATASEC).  12/03/80 011-027 #32722
,FSTART+D87,04100079+DATASEC(22F00F09+FSTART).   12/03/80 012-027 #32722
,FSTART+D88,3510007B+DATASEC(04200E70+FSTART).   12/03/80 013-027 #32722
,FSTART+D89,68000F9C+FSTART(E8000008).   RMS F00 12/03/80 014-027 #32722
,FSTART+F91,1740C6C9(3140405C).          RMS F00 12/03/80 015-027 #32722
,FSTART+F92,E340C4C1(5C5CC6C9).          RMS F00 12/03/80 016-027 #32722
,FSTART+F93,40C5D9D9(E340C4C9).          RMS F00 12/03/80 017-027 #32722
,FSTART+F94,D6D940C9(E2C340C1).          RMS F00 12/03/80 018-027 #32722
,FSTART+F95,D540C6C4(C4C4D9C5).          RMS F00 12/03/80 019-027 #32722
,FSTART+F96,40D2C5E8(E2E240C5).          RMS F00 12/03/80 020-027 #32722
,FSTART+F98,35F00100+DATASEC(40C9D540).  RMS F00 12/03/80 022-027 #32722
,FSTART+F99,22F00F09+FSTART(C6C9D3C5).   RMS F00 12/03/80 023-027 #32722
,FSTART+F9A,04200E70+FSTART(40C4C9D9).   RMS F00 12/03/80 024-027 #32722
,FSTART+F9B,E8000002(C5C3E3D6).          RMS F00 12/03/80 025-027 #32722
,FSTART+F9C,3510007C+DATASEC(D9E840D2).  RMS F00 12/03/80 026-027 #32722
,FSTART+F9D,E8000002(C5E84040).          RMS F00 12/03/80 027-027 #32722
< FSAVE SOMETIMES OVER-REACTS TO LARGE, HEAVILY UPDATED KEYED     #32291
< FILES, AND REPORTS RCBERR. USER SHOULD MAKE A VISUAL RECORD     #32291
< COUNT CHECK WHEN THAT HAPPENS, BUT MULTIPLE SNAPS ARE AN        #32291
< OVERKILL. THIS GENMD CHANGES THOSE RCBERRORS TO 'FILE MAY       #32291
< BE PARTIAL'. **NOTE: THIS PATCH SHOULD NOT BE INSTALLED WITHOUT #32291
< 122-CARD X32600.                                                #32291
,FSTART+4F9,6A00005A+FPATCH(6A000581+FSTART).F00 03/21/80 001-010 #32291
,FPATCH+5A,330006B9+DATASEC.             RMS F00 03/21/80 002-010 #32291
,FPATCH+5B,69300581+FSTART.              RMS F00 03/21/80 003-010 #32291
,FPATCH+5C,330006BA+DATASEC.             RMS F00 03/21/80 004-010 #32291
,FPATCH+5D,69300581+FSTART.              RMS F00 03/21/80 005-010 #32291
,FPATCH+5E,3210000F.                     RMS F00 03/21/80 006-010 #32291
,FPATCH+5F,22F00FBC+FSTART.              RMS F00 03/21/80 007-010 #32291
,FPATCH+60,04200E70+FSTART.              RMS F00 03/21/80 008-010 #32291
,FPATCH+61,32F00001.                     RMS F00 03/21/80 009-010 #32291
,FPATCH+62,680004FA+FSTART.              RMS F00 03/21/80 010-010 #32291
<< FIX ERROR HANDLING AT EOT BETTER.                              #32600
< RE-INITIALIZE BYTE COUNTER AND EOR ERROR FLAG WHEN RESTARTING   #32600
< A FILE ON A NEW REEL.                                           #32600
,FSTART+89A,68000000+FPATCH(02200000).   RMS F00 11/14/79 001-122 #32600
,FPATCH+00,356000B5+DATASEC.             RMS F00 11/14/79 002-122 #32600
,FPATCH+01,356006D1+DATASEC.             RMS F00 11/14/79 003-122 #32600
,FPATCH+02,02200000.                     RMS F00 11/14/79 004-122 #32600
,FPATCH+03,6800089B+FSTART.              RMS F00 11/14/79 005-122 #32600
< MUST CHECK FOR TYC = 5 OR X'13' ON EITHER DATA OR SENTINEL      #32600
< WRITES TO TAPE.                                                 #32600
,EASECT+52,68060062(21100005).           RMS F00 11/14/79 006-122 #32600
,FEAPATCH+00,21100005.                   RMS F00 11/14/79 007-122 #32600
,FEAPATCH+01,68360054.                   RMS F00 11/14/79 008-122 #32600
,FEAPATCH+02,21100013.                   RMS F00 11/14/79 009-122 #32600
,FEAPATCH+03,68360054.                   RMS F00 11/14/79 010-122 #32600
,FEAPATCH+04,68060047.                   RMS F00 11/14/79 011-122 #32600
< HAVE TO CHECK FOR TYC= 5 OR X'13' FOR RANDOM FILES, TOO.        #32600
,FSTART+6C9,68000004+FPATCH(21600005).   RMS F00 11/14/79 012-122 #32600
,FPATCH+04,21600013.                     RMS F00 11/14/79 013-122 #32600
,FPATCH+05,683006CB+FSTART.              RMS F00 11/14/79 014-122 #32600
,FPATCH+06,21600005.                     RMS F00 11/14/79 015-122 #32600
,FPATCH+07,680006CA+FSTART.              RMS F00 11/14/79 016-122 #32600
< CHECK FOR PRIOR DATA ERROR AFTER EOT, EVEN THOUGH CURRENT       #32600
< WRITE, WTM, OR SENTINEL WRITE MAY BE O.K.                       #32600
,FSTART+87E,68000008+FPATCH(B56000A5+DATASEC).   11/14/79 017-122 #32600
,FPATCH+08,330006D1+DATASEC.             RMS F00 11/14/79 018-122 #32600
,FPATCH+09,69300888+FSTART.              RMS F00 11/14/79 019-122 #32600
,FPATCH+0A,B56000A5+DATASEC.             RMS F00 11/14/79 020-122 #32600
< WHEN STARTING A NEW REEL AS A RESULT OF ERRORS ON THE LAST      #32600
< REEL, DONT WRITE THE OLD :BOF RECORD, AS THE FILE WILL          #32600
< BE RESTARTED FROM THE BEGINNING.                                #32600
,FSTART+8B8,6800000C+FPATCH(6AF0095F+FSTART).F00 11/14/79 022-122 #32600
,FPATCH+0C,6AF0095F+FSTART.              RMS F00 11/14/79 023-122 #32600
,FPATCH+0D,330006D1+DATASEC.             RMS F00 11/14/79 024-122 #32600
,FPATCH+0E,683008B9+FSTART.              RMS F00 11/14/79 025-122 #32600
,FPATCH+0F,680008C0+FSTART.              RMS F00 11/14/79 026-122 #32600
< FOLLOWING GENMDS CREATE A MECHANISM TO TEST FOR TRUE            #32600
< COMPLETION OF IO OPERATIONS, EVEN IF FSAVE'S COUNT IS WRONG     #32600
< (THE OLD HANG AT EOT CAPER). IF EVEN THE MONITOR'S COUNTDOWN    #32600
< IS INCOMPLETE, FSAVE WILL STILL HANG, ON PURPOSE.               #32600
,FPATCH+10,0.                            RMS F00 11/14/79 027-122 #32600
,FPATCH+11,0.                            RMS F00 11/14/79 028-122 #32600
,FPATCH+12,0.                            RMS F00 11/14/79 029-122 #32600
,FPATCH+13,0.                            RMS F00 11/14/79 030-122 #32600
,FPATCH+14,0F000001.                     RMS F00 11/14/79 031-122 #32600
,FPATCH+15,02200040.                     RMS F00 11/14/79 032-122 #32600
,FPATCH+16,2BF00010+FPATCH.              RMS F00 11/14/79 033-122 #32600
,FPATCH+17,22100093.                     RMS F00 11/14/79 034-122 #32600
,FPATCH+18,22200032.                     RMS F00 11/14/79 035-122 #32600
,FPATCH+19,04800014+FPATCH.              RMS F00 11/14/79 036-122 #32600
,FPATCH+1A,B30200A3+DATASEC.             RMS F00 11/14/79 037-122 #32600
,FPATCH+1B,68300026+FPATCH.              RMS F00 11/14/79 038-122 #32600
,FPATCH+1C,64200019+FPATCH.              RMS F00 11/14/79 039-122 #32600
,FPATCH+1D,06000000.                     RMS F00 11/14/79 040-122 #32600
,FPATCH+1E,32200000+S:CUN.               RMS F00 11/14/79 041-122 #32600
,FPATCH+1F,72240000+UB:MF.               RMS F00 11/14/79 042-122 #32600
,FPATCH+20,68300023+FPATCH.              RMS F00 11/14/79 043-122 #32600
,FPATCH+21,6AF0083A+FSTART.              RMS F00 11/14/79 044-122 #32600
,FPATCH+22,68000018+FPATCH.              RMS F00 11/14/79 045-122 #32600
,FPATCH+23,6AF0083A+FSTART.              RMS F00 11/14/79 046-122 #32600
,FPATCH+24,22300000.                     RMS F00 11/14/79 047-122 #32600
,FPATCH+25,B53200A3+DATASEC.             RMS F00 11/14/79 048-122 #32600
,FPATCH+26,02200040.                     RMS F00 11/14/79 049-122 #32600
,FPATCH+27,2AF00010+FPATCH.              RMS F00 11/14/79 050-122 #32600
,FPATCH+28,E800000F.                     RMS F00 11/14/79 051-122 #32600
< THIS SET HANDLES 5 RETRIES TO GET A GOOD :E0V OR :EOR WRITE.    #32600
< IF FSAVE CAN'T DO IT IN 5 RETRIES, IT WILL ABORT.               #32600
,FPATCH+29,15400011+FPATCH.              RMS F00 11/14/79 052-122 #32600
,FPATCH+2A,22400096.                     RMS F00 11/14/79 053-122 #32600
,FPATCH+2B,22500005.                     RMS F00 11/14/79 054-122 #32600
,FPATCH+2C,B15800A3+DATASEC.             RMS F00 11/14/79 055-122 #32600
,FPATCH+2D,68300037+FPATCH.              RMS F00 11/14/79 056-122 #32600
,FPATCH+2E,20FFFFFD.                     RMS F00 11/14/79 057-122 #32600
,FPATCH+2F,64300037+FPATCH.              RMS F00 11/14/79 058-122 #32600
,FPATCH+30,2212F9A4.                     RMS F00 11/14/79 059-122 #32600
,FPATCH+31,6AF00DF4+FSTART.              RMS F00 11/14/79 060-122 #32600
,FPATCH+32,22F00E5D+FSTART.              RMS F00 11/14/79 061-122 #32600
,FPATCH+33,04200E70+FSTART.              RMS F00 11/14/79 062-122 #32600
,FPATCH+35,091005D6+DATASEC.             RMS F00 11/14/79 064-122 #32600
,FPATCH+36,6800094C+FSTART.              RMS F00 11/14/79 065-122 #32600
,FPATCH+37,12400011+FPATCH.              RMS F00 11/14/79 066-122 #32600
,FPATCH+38,E800000F.                     RMS F00 11/14/79 067-122 #32600
< IF WRITE ERROR OCCURS, FSAVE MUST CLOSE OUT REEL WITH :EOV,     #32600
< :E0R AND TMS. IF UNABLE TO DO THIS, WITH 5 NEW RETRIES,         #32600
< FSAVE WILL NOW ABORT WITH AN APPROPRIATE MESSAGE.               #32600
,FSTART+93B,68000039+FPATCH(2222A078).   RMS F00 11/14/79 068-122 #32600
,FPATCH+39,6AF00015+FPATCH.              RMS F00 11/14/79 069-122 #32600
,FPATCH+3A,2222A078.                     RMS F00 11/14/79 070-122 #32600
,FPATCH+3B,6800093C+FSTART.              RMS F00 11/14/79 071-122 #32600
,FSTART+93D,6800003C+FPATCH(6AF0095F+FSTART).F00 11/14/79 072-122 #32600
,FPATCH+3C,22300005.                     RMS F00 11/14/79 073-122 #32600
,FPATCH+3D,6AF0095F+FSTART.              RMS F00 11/14/79 074-122 #32600
,FPATCH+3E,6AF00015+FPATCH.              RMS F00 11/14/79 075-122 #32600
,FPATCH+3F,6AF00029+FPATCH.              RMS F00 11/14/79 076-122 #32600
,FPATCH+40,6AF00979+FSTART.              RMS F00 11/14/79 077-122 #32600
,FPATCH+41,6AF00015+FPATCH.              RMS F00 11/14/79 078-122 #32600
,FPATCH+42,6800093F+FSTART.              RMS F00 11/14/79 079-122 #32600
,FSTART+942,68000043+FPATCH(2210000C).   RMS F00 11/14/79 080-122 #32600
,FPATCH+43,2210000C.                     RMS F00 11/14/79 081-122 #32600
,FPATCH+44,330000B1+DATASEC.             RMS F00 11/14/79 082-122 #32600
,FPATCH+45,69300943+FSTART.              RMS F00 11/14/79 083-122 #32600
,FPATCH+46,6AF0095F+FSTART.              RMS F00 11/14/79 084-122 #32600
,FPATCH+47,6AF00015+FPATCH.              RMS F00 11/14/79 085-122 #32600
,FPATCH+48,6AF00029+FPATCH.              RMS F00 11/14/79 086-122 #32600
,FPATCH+49,68000944+FSTART.              RMS F00 11/14/79 087-122 #32600
,FSTART+947,68000949+FSTART(22100093).   RMS F00 11/14/79 088-122 #32600
,FSTART+949,6AF00015+FPATCH(69200948+FSTART).F00 11/14/79 089-122 #32600
< CREATE AND MODIFY MESSAGES.                                     #32600
< THE MESSAGE 'TOO MANY ERRORS - FSAVE ABORTS', IF RECEIVED AT    #32600
< END OF TAPE, MEANS THAT FSAVE COULD NOT WRITE HIS :EOV          #32600
< AND :EOR SENTINELS AS PART OF REEL-SWITCH RECOVERY.             #32600
< THE RECEIVER OF THIS MESSAGE SHOULD EITHER NOT USE THAT REEL    #32600
< FOR FSAVE, OR SHOULD MOVE THE EOT REFLECTIVE MARK A FEW FEET    #32600
< TOWARD THE FRONT OF THE TAPE. NOTE THAT MOST TAPE CLEANERS      #32600
< DO NOT CLEAN BEYOND EOT.                                        #32600
,FSTART+E58,13C3C1D5,E340D9E4.           RMS F00 11/14/79 090-122 #32600
,FSTART+E5A,D56B404C,40F540D7.           RMS F00 11/14/79 091-122 #32600
,FSTART+E5C,C1C7C5E2,22E3D6D6.           RMS F00 11/14/79 092-122 #32600
,FSTART+E5E,40D4C1D5,E840E3C1.           RMS F00 11/14/79 093-122 #32600
,FSTART+E60,D7C540C5,D9D9D6D9.           RMS F00 11/14/79 094-122 #32600
,FSTART+E62,E26B40C6,E2C1E5C5.           RMS F00 11/14/79 095-122 #32600
,FSTART+E64,40C1C2D6,D9E3E240.           RMS F00 11/14/79 096-122 #32600
,FSTART+EE2,1EE3C1D7,C540C5D9.           RMS F00 11/14/79 097-122 #32600
,FSTART+EE4,D9D6D940,6040D7D6.           RMS F00 11/14/79 098-122 #32600
,FSTART+EE6,E2E2C9C2,D3C540C2.           RMS F00 11/14/79 099-122 #32600
,FSTART+EE8,C1C440C6,C9D3C540.           RMS F00 11/14/79 100-122 #32600
,FSTART+FBC,215C5CC6,D6D3D3D6.           RMS F00 11/14/79 101-122 #32600
,FSTART+FBE,E6C9D5C7,40C6C9D3.           RMS F00 11/14/79 102-122 #32600
,FSTART+FC2,40D7C1D9,E3C9C1D3,5C5C4040.  RMS F00 11/14/79 104-122 #32600
< IF CP-V GIVES UP ON INCONSISTENT STATUS OR LOST POSITION,       #32600
< FSAVE SHOULDNT PLAY HERO, BUT SHOULD GIVE UP, TOO.              #32600
,FSTART+88D,6800004A+FPATCH(22600000).   RMS F00 11/14/79 105-122 #32600
,FPATCH+4A,22600008.                     RMS F00 11/14/79 106-122 #32600
,FPATCH+4B,B16000A5+DATASEC.             RMS F00 11/14/79 107-122 #32600
,FPATCH+4C,68300050+FPATCH.              RMS F00 11/14/79 108-122 #32600
,FPATCH+4D,22600009.                     RMS F00 11/14/79 109-122 #32600
,FPATCH+4E,B16000A5+DATASEC.             RMS F00 11/14/79 110-122 #32600
,FPATCH+4F,69300058+FPATCH.              RMS F00 11/14/79 111-122 #32600
,FPATCH+50,22100096.                     RMS F00 11/14/79 112-122 #32600
,FPATCH+51,B26200A3+DATASEC.             RMS F00 11/14/79 113-122 #32600
,FPATCH+52,21600013.                     RMS F00 11/14/79 114-122 #32600
,FPATCH+53,68300030+FPATCH.              RMS F00 11/14/79 115-122 #32600
,FPATCH+54,21600005.                     RMS F00 11/14/79 116-122 #32600
,FPATCH+55,69300058+FPATCH.              RMS F00 11/14/79 117-122 #32600
,FPATCH+56,330006D1+DATASEC.             RMS F00 11/14/79 118-122 #32600
,FPATCH+57,68300030+FPATCH.              RMS F00 11/14/79 119-122 #32600
,FPATCH+58,22600000.                     RMS F00 11/14/79 120-122 #32600
,FPATCH+59,6800088E+FSTART.              RMS F00 11/14/79 121-122 #32600
< FSAVE SHOULD NOT LEAVE REELS OPEN WHEN HE'S DONE, EVEN IF HE IS #32600
< RUNNING ONLINE.                                                 #32600
,FSTART+94D,02000000(6980094F+FSTART).   RMS F00 11/14/79 122-122 #32600
GENMD LABEL
DELETE
< LABEL PROCESSOR MUST REWIND TAPES IN HOTAVR SYSTEMS.            #32757
< MESSAGE "BAD CONTROL CARD", NOP THE M:PRINT AND USE MESSAGE     #32757
< FOR PATCH SPACE                                                 #32757
:GENMD START+12,02000000(0420A000).      JBC F00 12/03/80 001-012 #32757
<                                                                 #32757
< BUILD A M:REW *0 INTO THE M:PRINT FPT                           #32757
<                                                                 #32757
:GENMD +A000,0410A001.                   JBC F00 12/03/80 002-012 #32757
:GENMD +A001,90000001.                   JBC F00 12/03/80 003-012 #32757
<                                                                 #32757
< REWIND ON THE LABEL COMMAND                                     #32757
<                                                                 #32757
:GENMD START+53,68000637+INITPGM(321005BA+INITPGM).       004-012 #32757
:GENMD INITPGM+637,22100000+F:TAPOT.     JBC F00 12/03/80 005-012 #32757
:GENMD INITPGM+638,6700A000.             JBC F00 12/03/80 006-012 #32757
:GENMD INITPGM+639,321005BA+INITPGM.     JBC F00 12/03/80 007-012 #32757
:GENMD INITPGM+63A,68000054+START.       JBC F00 12/03/80 008-012 #32757
<                                                                 #32757
< NOW FOR THE PRINT COMMAND                                       #32757
<                                                                 #32757
:GENMD START+149,6800063B+INITPGM(6800014B+START).        009-012 #32757
:GENMD INITPGM+63B,22100000+F:TAPIN.     JBC F00 12/03/80 010-012 #32757
:GENMD INITPGM+63C,6700A000.             JBC F00 12/03/80 011-012 #32757
:GENMD INITPGM+63D,6800014B+START.       JBC F00 12/03/80 012-012 #32757
GENMD LDEV
DELETE
< ***** REPLACEMENT PATCH FOR THE ONE DATED 9/20/78 WHICH MUST BE #31630
< $$$$$ READ FILE 31630INFO ON THE SST FOR FULL DETAIL.  $$$$$$   #31630
< ##### AS PATCH IS DEFAULT IMPLEMENTED, IT ONLY FIXES A  ######  #31630
< ##### A SLIGHT BUG IN PAGE NUMBER LOGIC. IT ALSO FIXES  #####   #31630
< ##### A MISTAKE IN PAGE ACCOUNTING IN PREVIOUS VERSIONS #####   #31630
< %%%%% 257 CARDS IN MULOV WHICH ALSO PATCHES ROOT        %%%%%%  #31630
< %%%%% 027 CARDS IN LDEV PROCESSOR. SIZE OF PATCH VARIES %%%%%%  #31630
< %%%%% 011 CARDS IN RBBAT (REQUIRES FULL BOOT TO ADD     %%%%%%  #31630
< %%%%% OR REMOVE EFFECT OF FORM MESSAGE CHANGE)          %%%%%%  #31630
#LINES0                                  FJ  F00 01/17/79 258-295 #31630
:GENMD,LDEV SECT4+41,900000FF(900001FF). FJ  F00 01/17/79 259-295 #31630
,PATCH+00,21100800.                      FJ  F00 01/17/79 260-295 #31630
,PATCH+01,69400003+PATCH.                FJ  F00 01/17/79 261-295 #31630
,PATCH+02,358001A3+SECT1.                FJ  F00 01/17/79 262-295 #31630
,PATCH+03,468001A3+SECT1.                FJ  F00 01/17/79 263-295 #31630
,PATCH+04,25800278.                      FJ  F00 01/17/79 264-295 #31630
,PATCH+05,498001A3+SECT1.                FJ  F00 01/17/79 265-295 #31630
,PATCH+06,25800208.                      FJ  F00 01/17/79 266-295 #31630
,PATCH+07,468001A3+SECT1.                FJ  F00 01/17/79 267-295 #31630
,PATCH+08,680001EA+SECT4.                FJ  F00 01/17/79 268-295 #31630
,SECT4+1E6,72880102+SECT1.                   F00 01/17/79 269-295 #31630
,SECT4+1E7,5210019E+SECT1.               FJ  F00 01/17/79 270-295 #31630
,SECT4+1E8,68000000+PATCH.               FJ  F00 01/17/79 271-295 #31630
,SECT4+1EA,21100001.                     FJ  F00 01/17/79 272-295 #31630
,SECT4+1EB,694001EE+SECT4.               FJ  F00 01/17/79 273-295 #31630
#ELSE                                    FJ  F00 01/17/79 274-295 #31630
:GENMD,LDEV SECT4+41,900000FF(900001FF). FJ  F00 01/17/79 275-295 #31630
,PATCH+00,21100800.                      FJ  F00 01/17/79 276-295 #31630
,PATCH+01,694001EA+SECT4.                FJ  F00 01/17/79 277-295 #31630
,PATCH+02,680001E8+SECT4.                FJ  F00 01/17/79 278-295 #31630
,SECT4+1E6,5210019E+SECT1.               FJ  F00 01/17/79 279-295 #31630
,SECT4+1E7,68000000+PATCH.               FJ  F00 01/17/79 280-295 #31630
,SECT4+1E8,72880102+SECT1.               FJ  F00 01/17/79 281-295 #31630
,SECT4+1EA,21100001.                     FJ  F00 01/17/79 282-295 #31630
,SECT4+1EB,694001EE+SECT1.               FJ  F00 01/17/79 283-295 #31630
#                                        FJ  F00 01/17/79 284-295 #31630
GENMD LEMUR
DELETE
< LEMUR SHOULD CLOSE M:LL BEFORE LINKING TO LOADER AND            X32827
< NOT CAUSE A FUNNY ERROR IF THE USER HAS M:LL SET TO A FILE.     X32827
< GENMDS TO LEMUR:                                                X32827
:GENMD,LEMUR PATCH+0,15000000+M:LL.      RBW EXP-F 810108 001-010 X32827
:GENMD,LEMUR PATCH+1,80000000.           RBW EXP-F 810108 002-010 X32827
:GENMD,LEMUR PATCH+2,00000002.           RBW EXP-F 810108 003-010 X32827
:GENMD,LEMUR ADD#+1EF,68000003+PATCH(04800000+LINKFPT).   004-010 X32827
:GENMD,LEMUR PATCH+3,52900000+M:LL.      RBW EXP-F 810108 005-010 X32827
:GENMD,LEMUR PATCH+4,21900020.           RBW EXP-F 810108 006-010 X32827
:GENMD,LEMUR PATCH+5,68400007+PATCH.     RBW EXP-F 810108 007-010 X32827
:GENMD,LEMUR PATCH+6,04100000+PATCH.     RBW EXP-F 810108 008-010 X32827
:GENMD,LEMUR PATCH+7,04800000+LINKFPT.   RBW EXP-F 810108 009-010 X32827
:GENMD,LEMUR PATCH+8,680001F0+ADD#.      RBW EXP-F 810108 010-010 X32827
< LEMUR REPORTS 'ILLEGAL ROM LANGUAGE' WHEN IT FINDS AN           #32771
< X'19' LOAD CODE. X'19'(NEW FOR F00) IS FOR ROOT DUMMY           #32771
< SECTION. ANSFORT C00 CREATES SOME X'19' CODES, 'THO             #32771
< ANSFORT B08 (& EARLIER) AND FORTIV CREATED X'09'FROM            #32771
< THE SAME SOURCE CODE. FOLLOWING GENMD TO LEMUR MAKES            #32771
< X'19' LEGAL.                                                    #32771
,SCANROM+42,6802001D+SCANROM(6800B9A3).  RMS F00 12/03/80 001-001 #32771
< 'ILLEGAL ROM LANGUAGE' CAUSED BY LOAD ABSOLUTE 16 BYTES.        #32287
< LEMUR DOES NOT TREAT ZERO BYTE COUNT (X'40') AS 16. IT          #32287
< THEREFORE PROCESSES THE DATA AS CONTROL BYTES                   #32287
,SCANROM+23,68000060+PATCH(4B600000+XF). GH  F00 01/02/80 001-003 #32287
,PATCH+60,4B600000+XF,69300024+SCANROM.  GH  F00 01/02/80 002-003 #32287
,PATCH+62,22600010,68000024+SCANROM.     GH  F00 01/02/80 003-003 #32287
GENMD LOADER
DELETE
< !MODIFY MAY NOT WORK, BECAUSE THE BTD WASN'T ZEROED FOR         X32970
< THE RDDBUG FPT.                                                 X32970
< GENMD TO LOADER:                                                X32970
FIN,FINISH+F0,04100303+FINISH(0410013F+FINISH). -F 810827 001-008 X32970
FIN,FINISH+2FE,1440D6E4(2840D6E4).       GMO EXP-F 810827 002-008 X32970
FIN,FINISH+303,1000A2D4(E340D5C1).       GMO EXP-F 810827 003-008 X32970
FIN,FINISH+304,3C000010(D4C5E24B).       GMO EXP-F 810827 004-008 X32970
FIN,FINISH+305,80000005(4BE2D6D4).       GMO EXP-F 810827 005-008 X32970
FIN,FINISH+306,0000008C(C540C4C5).       GMO EXP-F 810827 006-008 X32970
FIN,FINISH+307,80000009(D3C5E3C5).       GMO EXP-F 810827 007-008 X32970
FIN,FINISH+308,00000000(C4404040).       GMO EXP-F 810827 008-008 X32970
< SEVERITY LEVEL 4 BY LOADER IF TWO BLOCK DATA SUBPROGRAMS ARE    #32280
< INPUT TO THE SAME LOAD MODULE, BUT NO CORRESPONDING DDEF MESSAGE#32280
< REASON IS THAT FORTRAN CREATES AN EXTERNAL DEFINITION '4 BLOCK' #32280
< EACH BLOCK DATA SUBROUTINE, BUT DOES NOTHING FURTHER WITH IT.   #32280
< PROBLEM DID NOT OCCUR WITH PREVIOUS RELEASES OF CP-V. WITH ANSFO#32280
< ROMS ONE GETS SEVERITY LEVEL 4 AND DDEF FOR 4 BLOCK.            #32280
PS1,MCP1+7E2,680000F1+PATCH(22600004).   FHK F00 01/02/80 001-004 #32280
LDR,PATCH+F1,3260000F,02200020,2A6C0003,116000F8+PATCH.   002-004 #32280
LDR,PATCH+F5,683007E8+MCP1,22600004,680007E3+MCP1.        003-004 #32280
LDR,PATCH+F8,06F4C2D3,D6C3D240.          FHK F00 01/02/80 004-004 #32280
< Fix LOADER so when ONLINE and mapping a Load Module with        #32277
< pagination in effect, a check is made to see if VFC             #32277
< is a '*'.  If so change it to a ' '(blank).  COC takes          #32277
< the '*' to be a Top Of Form which caused the first 4 lines      #32277
< of the Load Map to begin on a new page!                         #32277
FIN,FINISH+599,6800004E+PATCH(0410059B+FINISH).  07/06/79 001-010 #32277
LDR,PATCH+4E;.                           LPH F00 07/06/79 002-010 #32277
 ,227000FF;   PATCH+4E LI,7   X'FF'      LPH F00 07/06/79 003-010 #32277
 ,4B700003+BUF;    +4F AND,7  LLBUF+3    LPH F00 07/06/79 004-010 #32277
 ,2170005C;        +50 CI,7   '*'        LPH F00 07/06/79 005-010 #32277
 ,69300054+PATCH;  +51 BNE    PATCH+.54  LPH F00 07/06/79 006-010 #32277
 ,22700040;        +52 LI,7   ' '        LPH F00 07/06/79 007-010 #32277
 ,35700003+BUF;    +53 STW,7  LLBUF+3    LPH F00 07/06/79 008-010 #32277
 ,0410059B+FINISH; +54 CAL1,1 WRTLLO     LPH F00 07/06/79 009-010 #32277
 ,68000588+FINISH. +55 B      CLRBUF     LPH F00 07/06/79 010-010 #32277
< REPLACEMENT FOR PATCH OF SAME NUMBER DATED 06/13/79             #31918
<PREVENT DUPLICATE INTERNAL SYMBOL NAMES WHEN ONE FOLLOWS ANOTHER.#31918
EVL,MCEV+2A6,68000045+PATCH(88700000).   DGH F00 03/18/80 001-011 #31918
LDR,PATCH+45,32A60000.                   DGH F00 03/18/80 003-011 #31918
LDR,PATCH+46,32B00044+PATCH.             DGH F00 03/18/80 004-011 #31918
LDR,PATCH+47,32160001.                   DGH F00 03/18/80 005-011 #31918
LDR,PATCH+48,88700000.                   DGH F00 03/18/80 006-011 #31918
LDR,PATCH+49,45A60003.                   DGH F00 03/18/80 007-011 #31918
LDR,PATCH+4A,693002A7+MCEV.              DGH F00 03/18/80 008-011 #31918
LDR,PATCH+4B,31160004.                   DGH F00 03/18/80 009-011 #31918
LDR,PATCH+4C,693002A7+MCEV.              DGH F00 03/18/80 010-011 #31918
LDR,PATCH+4D,6800026F+MCEV.              DGH F00 03/18/80 011-011 #31918
< MAKE '5B10' IST RECORD FOR *G FILE.                             #31864
EVL,MCEV+508,680000FD+PATCH(6B408C00).   PRY F00 10/11/78 001-007 #31864
EVL,MCEV+50D,32B007AC+MCEV(325007AC+MCEV).   F00 10/11/78 002-007 #31864
EVL,MCEV+50E,B5B00007(B5500007).         PRY F00 10/11/78 003-007 #31864
EVL,MCEV+517,B1B00007(B1500007).         PRY F00 10/11/78 004-007 #31864
LDR,PATCH+FD,6B508C00.                   PRY F00 10/11/78 005-007 #31864
LDR,PATCH+FE,32400005.                   PRY F00 10/11/78 006-007 #31864
LDR,PATCH+FF,68000509+MCEV.              PRY F00 10/11/78 007-007 #31864
<MAKE THE LOADER PUT OUT AN EXPRESSION STACK RECORD WHEN THE REL  #31654
<OPTION IS SPECIFIED.                                             #31654
WRT,MCWT+7B,68000040+PATCH(694000BC+MCWT).   F00 12/11/78 001-007 #31654
LDR,PATCH+40,694000BC+MCWT.              DGH F00 12/11/78 002-007 #31654
LDR,PATCH+41,21F00100.                   DGH F00 12/11/78 003-007 #31654
LDR,PATCH+42,6940007C+MCWT.              DGH F00 12/11/78 004-007 #31654
LDR,PATCH+43,6800007F+MCWT.              DGH F00 12/11/78 005-007 #31654
EVL,MCEV+5F2,25900277(2590027B).         DGH F00 12/11/78 006-007 #31654
EVL,MCEV+5F3,48900000+Y8(49900000+Y4).   DGH F00 12/11/78 007-007 #31654
<  INSTALL SIGMA 5 SPEEDUPS FOR LOADER                            #31642
#S5SIM                                   JLJ F00 09/27/78 001-004 #31642
LDR,BINSRT+13,6800002C+BINSRT(60600001). JLJ F00 09/27/78 002-004 #31642
LDR,4BNUM+3,68000022+4BNUM(61200001).    JLJ F00 09/27/78 003-004 #31642
#                                        JLJ F00 09/27/78 004-004 #31642
GENMD LOGON
DELETE
< NOTIFY THE OPERATOR OF UNSUCCESSFUL LOGON ATTEMPTS.             X32929
< GENMD TO LOGON:                                                 X32929
,DISPLINE,1(0).                          FHK EXP-F 810603 001-002 X32929
,SECTION1+273,22200000+KEYBUFF(22200043+SECTION1).        002-002 X32929
< ACCNTSUM CAN'T HANDLE ELAPSED TIMES GREATER THAN 24 HOURS       X32682
< GENMD TO LOGON:                                                 X32682
:GENMD SECTION2+173,32B000EE+SECTION3(31D0000F).-F 801231 001-007 X32682
:GENMD SECTION2+174,38B000EA+SECTION3(68100176+SECTION2). 002-007 X32682
:GENMD SECTION2+175,6920020D+SECTION3(20D15180).-F 801231 003-007 X32682
:GENMD SECTION3+20D,20D15180(0).         RMS EXP-F 801231 004-007 X32682
:GENMD SECTION3+20E,33F0000B(0).         RMS EXP-F 801231 005-007 X32682
:GENMD SECTION3+20F,6920020D+SECTION3(0).RMS EXP-F 801231 006-007 X32682
:GENMD SECTION3+210,68000176+SECTION2(0).RMS EXP-F 801231 007-007 X32682
< THESE  GENMDS TO LOGON FIX PROBLEM OF HALF-DUPLEX LINES NOT     X32801
< DISCONNECTING WHEN USER HANGS UP.                               X32801
:GENMD,LOGON SECTION1 7F3,68000041+PATCH(2220ADF6).       001-017 X32801
:GENMD,LOGON PATCH+41,2220ADF6.          GM  EXP-F 801230 002-017 X32801
:GENMD,LOGON PATCH+42,0420B21C.          GM  EXP-F 801230 003-017 X32801
:GENMD,LOGON PATCH+43.                   GM  EXP-F 801230 004-017 X32801
:GENMD,LOGON PATCH+44,4BF08C2D.          GM  EXP-F 801230 005-017 X32801
:GENMD,LOGON PATCH+45,21F00002.          GM  EXP-F 801230 006-017 X32801
:GENMD,LOGON PATCH+46,6830004C+PATCH.    GM  EXP-F 801230 007-017 X32801
:GENMD,LOGON PATCH+47,21F00003.          GM  EXP-F 801230 008-017 X32801
:GENMD,LOGON PATCH+48,6830004C+PATCH.    GM  EXP-F 801230 009-017 X32801
:GENMD,LOGON PATCH+49,21F00007.          GM  EXP-F 801230 010-017 X32801
:GENMD,LOGON PATCH+4A,6830004C+PATCH.    GM  EXP-F 801230 011-017 X32801
:GENMD,LOGON PATCH+4B,680007F5+SECTION1. GM  EXP-F 801230 012-017 X32801
:GENMD,LOGON PATCH+4C,0480004E+PATCH.    GM  EXP-F 801230 013-017 X32801
:GENMD,LOGON PATCH+4D,680007F5+SECTION1. GM  EXP-F 801230 014-017 X32801
:GENMD,LOGON PATCH+4E,06200000.          GM  EXP-F 801230 015-017 X32801
:GENMD,LOGON PATCH+4F,40000000.          GM  EXP-F 801230 016-017 X32801
:GENMD,LOGON PATCH+50,00800080.          GM  EXP-F 801230 017-017 X32801
< A BATCH USER WITH EXIT CONTROL CAN CLOBBER GRANULE ACCOUNTING FOX32562
< HIS ACCOUNT IF HE ABORTS WITH A TYPE II OR III ABORT.           X32562
:GENMD,LOGON SECTION2+405,32200000+SL:EPS(32208C19).      001-002 X32562
:GENMD,LOGON SECTION2+414,32200000+SL:EPS(32208C19).      002-002 X32562
< **** WARNING*****                                               #32565
< THIS GENMD RELATES TO THE FACT THAT YOU SHOULD !!NEVER!!        #32565
< MAKE ASSUMPTIONS ON M:READ/WRITE PARAMETERS.  YOU SHOULD        #32565
< ALWAYS SPECIFY BUF,SIZE AND BTD IN THE FPT                      #32565
<                            JBC                                  #32565
<                                                                 #32565
< MANY PROGRAMS ASSUME THAT M:UC INITIALLY HAS A BTD OF ZERO.     #32565
< HOWEVER, NOT TRUE WHEN A PROGRAM IS CALLED VIA AUTOCALL.  A     #32565
< SO IT LEAVES WITH BTD=0.                                        #32565
:GENMD SECTION1+22E,6800026C+SECTION3(22000000). 12/03/80 001-006 #32565
:GENMD SECTION3+26C,221D7ECF(0).         CS  F00 12/03/80 002-006 #32565
:GENMD SECTION3+26D,4A100000+M:UC(0).    CS  F00 12/03/80 003-006 #32565
:GENMD SECTION3+26E,35100000+M:UC(0).    CS  F00 12/03/80 004-006 #32565
:GENMD SECTION3+26F,22000000(0).         CS  F00 12/03/80 005-006 #32565
:GENMD SECTION3+270,6800022F+SECTION1(0).CS  F00 12/03/80 006-006 #32565
GENMD LYNX
DELETE
< MAKE LYNX HANDLE LOWERCASE 'RUN'                                X32818
< GENMD TO LYNX:                                                  X32818
,LYNXPP+114,6800002F+PATCH(3810002A+LYNX01). EXP-F 810603 001-004 X32818
,PATCH+2F,49100014+LYNX01.               DE  EXP-F 810603 002-004 X32818
,PATCH+30,3810002A+LYNX01.               DE  EXP-F 810603 003-004 X32818
,PATCH+31,68000115+LYNXPP.               DE  EXP-F 810603 004-004 X32818
<LYNX SHOULD STRIP BLANKS FROM CCBUF ONLINE TOO.                  #30994
,LYNXPP+9,64700006+LYNXPP(64700007+LYNXPP).  F00 09/26/78 001-003 #30994
,LYNXPP+E,68000009+LYNXPP(207FFFFF).     PAR F00 09/26/78 002-003 #30994
,LYNXPP+8,6910000A+LYNXPP(6930000A+LYNXPP).  F00 09/26/78 003-003 #30994
GENMD L6G
DELETE
#L6GC01
< GENMDS TO C01 VERSION GO HERE
#
GENMD OLTEST
DELETE
< ALLOW OLTEST TO RUN WITHOUT A PATCH FILE.                       #32725
:GENMD,OLMON +A521,21B00301(21B00300).   GG  F00 05/23/80 001-001 #32725
GENMD PASS2
DELETE
< SET M:FREE#GRANS CORRECTLY                                      #32336
, P2PATCH,51F20006+P2PATCH.              KDR F00 05/22/79 001-013 #32336
, P2PATCH+1,69300003+P2PATCH.            KDR F00 05/22/79 002-013 #32336
, P2PATCH+3,20DFFFFC.                    KDR F00 05/22/79 004-013 #32336
, P2PATCH+4,B5D40005.                    KDR F00 05/22/79 005-013 #32336
, P2PATCH+5,68000BA8+UBCHAN.             KDR F00 05/22/79 006-013 #32336
, P2PATCH+6,0400000.                     KDR F00 05/22/79 007-013 #32336
, P2PATCH+7,00000200.                    KDR F00 05/22/79 008-013 #32336
, P2PATCH+8,00000100.                    KDR F00 05/22/79 009-013 #32336
UBCHAN, UBCHAN+BA7,68000000+P2PATCH(B5D40005).   05/22/79 010-013 #32336
UBCHAN, UBCHAN+156C,F(C).                KDR F00 05/22/79 011-013 #32336
UBCHAN, UBCHAN+C0A,68000C10+UBCHAN.      KDR F00 05/22/79 012-013 #32336
UBCHAN, UBCHAN+C14,70000000.             KDR F00 05/22/79 013-013 #32336
<PASS2 NEGLECTS TO IGNORE 'COUPLE' ON :COC WHEN 'MINICOC' HAS BEEN
<SPECIFIED ON :MON CONTROL COMMAND
P2COC, +B3FF,6800B931(23F00017)         .LA F00 01 OF 08 12/06/78 #32010
P2COC, +B931,33060047                   .LA F00 02 OF 08 12/06/78 #32010
P2COC, +B932,6830B936                   .LA F00 03 OF 08 12/06/78 #32010
P2COC, +B933,22B00000                   .LA F00 04 OF 08 12/06/78 #32010
P2COC, +B934,35B800F2                   .LA F00 05 OF 08 12/06/78 #32010
P2COC, +B935,6800B3FB                   .LA F00 06 OF 08 12/06/78 #32010
P2COC, +B936,23F00017                   .LA F00 07 OF 08 12/06/78 #32010
P2COC, +B937,6800B401                   .LA F00 08 OF 08 12/06/78 #32010
GENMD PASS3
DELETE
<PASS3 LOOKS FOR HANDLERS IN WRONG ACCT ON NON-HANLERS2 SYSGEN
, +A519,70000000(3300A7FB)             .LA 01 OF 08 10/17/78 F00  #31643
, +A7F2,00000000                       .LA 02 OF 08 10/17/78 F00  #31643
, +A7F3,00000000                       .LA 03 OF 08 10/17/78 F00  #31643
, +A845,3300A7F2                       .LA 05 OF 08 10/17/78 F00  #31643
, +A846,6930A582                       .LA 06 OF 08 10/17/78 F00  #31643
, +A847,6800A57F                       .LA 07 OF 08 10/17/78 F00  #31643
, +A57E,6800A844(35240000)             .LA 08 OF 08 10/17/78 F00  #31643
GENMD PCL
DELETE
< CORRECT PCL'S HANDLING OF SCC IN BLDCB.                         X32816
< GENMDS TO PCL:                                                  X32816
,REW+4E,68000036+PATCH(6AB00000+BLDCB).  TS  EXP-F 810603 001-007 X32816
,PATCH+36,32500001+LISTPOS.              TS  EXP-F 810603 002-007 X32816
,PATCH+37,6AB00000+BLDCB.                TS  EXP-F 810603 003-007 X32816
,PATCH+38,73E0000A.                      TS  EXP-F 810603 004-007 X32816
,PATCH+39,69300050+REW.                  TS  EXP-F 810603 005-007 X32816
,PATCH+3A,35500001+LISTPOS.              TS  EXP-F 810603 006-007 X32816
,PATCH+3B,68000058+REW.                  TS  EXP-F 810603 007-007 X32816
< PCL SOMETIMES FAILS TO BLANK OUT ALL CHARACTERS OF A PASSWORD.  X32676
< GENMD TO PCL:                                                   X32676
,PCL+C1,6800005E+PATCH(201FFFFF).        FHK EXP-F 800905 001-006 X32676
,PATCH+5E,322E0053.                      FHK EXP-F 800905 002-006 X32676
,PATCH+5F,21200015.                      FHK EXP-F 800905 003-006 X32676
,PATCH+60,683000C2+PCL.                  FHK EXP-F 800905 004-006 X32676
,PATCH+61,201FFFFF.                      FHK EXP-F 800905 005-006 X32676
,PATCH+62,680000C2+PCL.                  FHK EXP-F 800905 006-006 X32676
< ALLOW PCL TO LIST A FILE CONTAINING THE UNDERSCORE              #32821
< CHARACTER IN THE FILE NAME.                                     #32821
< GENMD TO PCL:                                                   #32821
< PCL GETS IO ERROR 1500 ON A LIST COMMAND IF M:LO IS             #32808
< ASSIGNED TO A JOB FILE (IE -  SET M:LO/FID;JOB)                 #32808
:GENMD PCL+F2,02000000(6AB0014A+PCL).    JBC F00 12/04/80 001-001 #32808
< PCL COPYALL WITH (PHY) OPTION FAILS AFTER A COPY 'INTO'         #32705
< WHEN EITHER THE EI OR EO FILE DIDN'T EXIST. FOLLOWING           #32705
< GENMDS TO PCL FIX THE PROBLEM.                                  #32705
,CLOSEO+4,68000021+PATCH(21100002).      RMS F00 12/03/80 001-005 #32705
,PATCH+21,22100001.                      RMS F00 12/03/80 002-005 #32705
,PATCH+22,351E0056.                      RMS F00 12/03/80 003-005 #32705
,PATCH+23,32100000+M:EO.                 RMS F00 12/03/80 004-005 #32705
,PATCH+24,68000005+CLOSEO.               RMS F00 12/03/80 005-005 #32705
< WHEN REMOVING AN ANS TAPE IN BATCH, PCL RETURNS A STEP          #32616
< CONDITION OF 2. IT SHOULD BE 0.                                 #32616
,REW+5E,68300025+PATCH(6830006C+REW).    JH  F00 12/03/80 001-003 #32616
,PATCH+25,35A0004E+BREAK.                JH  F00 12/03/80 002-003 #32616
,PATCH+26,6800006C+REW.                  JH  F00 12/03/80 003-003 #32616
< MAKE PCL REVIEW ON A FECP WORK BETTER. USE A MORE COMPREHENSIVE #32745
< CHECK FOR TYPEAHEAD BECAUSE THE FECP NEVER BUFFERS IN CPV MEMORY#32745
<                                                                 #32745
< REPLACEMENT FOR PATCH OF SAME NUMBER DATED 01/02/80             #32482
< INCORRECT CODE IN TEL SETAMR ALLOWS !SET M:C TO WORK IN BATCH.  #32482
,RESET+5DC,116805F0+RESET(116805EE+RESET).   F00 01/31/80 001-005 #32482
,RESET+5E2,03D47AC3(04D47AE4).           GH  F00 01/31/80 002-005 #32482
,RESET+5E3,40404040(C3404040).           GH  F00 01/31/80 003-005 #32482
,RESET+5EE,04D47AE4(03D47AC3).           GH  F00 01/31/80 004-005 #32482
<                                                                 #32745
<SAVE THE STATUS WORD CONTAINING TYPEAHEAD IN THE PATCH AREA.     #32745
,LIST+97,68000019+PATCH(25800003).       DGH F00 07/14/80 002-011 #32745
,PATCH+19,25800003.                      DGH F00 07/14/80 003-011 #32745
,PATCH+1A,35900018+PATCH.                DGH F00 07/14/80 004-011 #32745
,PATCH+1B,68000098+LIST.                 DGH F00 07/14/80 005-011 #32745
< DO OLD CHECK FOR TYPEAHEAD (COCOC COUNT>0), THEN CHECK TYPEAHEAD#32745
,LIST+B7,6800001C+PATCH(684000C0+LIST).  DGH F00 07/14/80 006-011 #32745
,PATCH+1C,694000B8+LIST.                 DGH F00 07/14/80 007-011 #32745
,PATCH+1D,32600018+PATCH.                DGH F00 07/14/80 008-011 #32745
,PATCH+1E,21600100.                      DGH F00 07/14/80 009-011 #32745
,PATCH+1F,694000B8+LIST.                 DGH F00 07/14/80 010-011 #32745
,PATCH+20,680000C0+LIST.                 DGH F00 07/14/80 011-011 #32745
<******NOTE-- THIS VERSION OF SIDR #32008 IS AN UPDATE AND REPLACES
<THE OLDER VERSION DATED 04/11/79.
<PCL SHOULD SET THE STEP CCS IF ERRORS OCCUR DURING COPYALL/STD.  #32008
,PCL+53,22400050(69300046+PCL).          PAR F00 05/29/79 001-009 #32008
,PCL+56,68000048+PCL(68000046+PCL).      PAR F00 05/29/79 002-009 #32008
,COPYALL+BF,6AB00013+PATCH(6AB00000+HEX2BCD).F00 05/29/79 003-009 #32008
,PATCH+13,22D00002.                      PAR F00 05/29/79 004-009 #32008
,PATCH+14,31D0004E+BREAK.                PAR F00 05/29/79 005-009 #32008
,PATCH+15,68200000+HEX2BCD.              PAR F00 05/29/79 006-009 #32008
,PATCH+16,35D0004E+BREAK.                PAR F00 05/29/79 007-009 #32008
,PATCH+17,68000000+HEX2BCD.              PAR F00 05/29/79 008-009 #32008
,COPYTRAN+26F,84000019(4000019).         PAR F00 05/29/79 009-009 #32008
,LIST+3D2,69200011+PATCH(692003D9+LIST). PAR F00 12/19/78 001-007 #32061
,PATCH+11,72100005.                      PAR F00 12/19/78 002-007 #32061
,PATCH+12,680003D9+LIST.                 PAR F00 12/19/78 003-007 #32061
,LIST+3D9,30100002(38E00002).            PAR F00 12/19/78 004-007 #32061
,LIST+3DA,3220000E(72200005).            PAR F00 12/19/78 005-007 #32061
,LIST+3DB,38200001(38E00002).            PAR F00 12/19/78 006-007 #32061
,LIST+3DC,682003D3+LIST(3220000E).       PAR F00 12/19/78 007-007 #32061
<PCL SHOULD PRODUCE DO OUTPUT ONLY WHEN NEEDED.                   #31885
,PCL+1FC,68000001+PATCH(30100007).       PAR F00 11/14/78 001-008 #31885
,PATCH+1,30100007.                       PAR F00 11/14/78 002-008 #31885
,PATCH+2,3300000A+BREAK.                 PAR F00 11/14/78 003-008 #31885
,PATCH+3,6830024D+PCL.                   PAR F00 11/14/78 004-008 #31885
,PATCH+4,32AE0052,20AFFDF4,21A00050.     PAR F00 11/14/78 005-008 #31885
,PATCH+7,691001FD+PCL,22A00050.          PAR F00 11/14/78 006-008 #31885
,PATCH+9,680001FD+PCL.                   PAR F00 11/14/78 007-008 #31885
,PCL+30E,8000000A(50).                   PAR F00 11/14/78 008-008 #31885
<PCL HEXDUMP SHOULD NOTICE WIDE TERMINALS.                        #31990
,RDWRT+597,6830000C+PATCH.               PAR F00 11/28/78 001-004 #31990
,PATCH+C,2212311A,72120000,2110007C.     PAR F00 11/28/78 002-004 #31990
,PATCH+F,69100599+RDWRT.                 PAR F00 11/28/78 003-004 #31990
,PATCH+10,68000598+RDWRT.                PAR F00 11/28/78 004-004 #31990
<PCL SHOULD ALLOW PADDING IN FIXED FORMAT ANSTAPES TOO.           #31645
,RDWRT+76,6830000A+PATCH(68300079+RDWRT).PAR F00 11/28/78 001-004 #31645
,PATCH+A,3210002D+PRNTBUF.               PAR F00 11/28/78 002-004 #31645
,RDWRT+2EC,312E0005+WRTFPT(31200000+BLKSIZE).F00 11/28/78 004-004 #31645
<PCL LIST LT SHOULDN'T CLOBBER ITS HEADING (DATE).                #31987
,BLDCB+C8,22100010(22100028).            PAR F00 11/28/78 001-001 #31987
<PCL SHOULDN'T THINK FMT MEANS CAT ON INPUT.                      #31521
,BLDCB+C3,22101000(22100800).            PAR F00 08/31/78 001-001 #31521
<PCL SHOULD BE ABLE TO GET PAST PASSWORDED TAPE FILES             #31537
,LIST+CC,32100000+PATCH(22100002).       PAR F00 09/28/78 001-004 #31537
,LIST+CD,45100000+M:EI(31100000+M:EI).   PAR F00 09/28/78 002-004 #31537
,LIST+CE,693000D0+LIST(684000D0+LIST).   PAR F00 09/28/78 003-004 #31537
,PATCH,200002.                           PAR F00 09/28/78 004-004 #31537
<PCL SHOULDN'T PUT EXTRA BLOCKS IN MULTI-VOLUME AT FILES          #31623
,RDWRT+1B8,6AE001E5+RDWRT(6A2001E5+RDWRT).   F00 09/25/78 001-004 #31623
,RDWRT+1E1,6AE001E5+RDWRT(6A2001E5+RDWRT).   F00 09/25/78 002-004 #31623
,RDWRT+1E6,E830000E(68340000).           PAR F00 09/25/78 003-004 #31623
,RDWRT+1E8,E920000E(69240000).           PAR F00 09/25/78 004-004 #31623
<COPYSTD ME TO ... SHOULD WORK IN PCL                             #31615
,COPYALL+1BA,351E0009(353E0009).         PAR F00 08/28/78 001-001 #31615
GENMD PIGEON
DELETE
< PIGEON ONLY ZEROES OUT STATUS BYTES FOR 128 LINES. CP-V         X32799
< ALLOWS UP TO 255 TOTAL USERS, OF WHICH UP TO 245 COULD          X32799
< LOGICALLY BE ONLINE USERS (10 DEFAULT GHOSTS). ALTHOUGH         X32799
< PIGEON SETS MAX#LINES TO 512, THIS GENMD TO PIGEON WILL         X32799
< CLEAR OUT 254 BUTES INSTEAD OF THE CURRENT 128.                 X32799
,PIGPD+1C,FF028270(80028270).            RMS EXP-F 801118 001-001 X32799
< PIGEON SENDS ONE BLANK TOO FEW WHEN REPOSITIONING CURSOR        #32787
< POSITION. GENMD TO PIGEON.                                      #32787
:GENMD,PIGEON PIGPP+1B3,69100003+PATCH(691001B9+PIGPP).   001-003 #32787
:GENMD,PIGEON PATCH+3,207FFFFF.          FHK F00 12/05/80 002-003 #32787
:GENMD,PIGEON PATCH+4,680001B9+PIGPP.    FHK F00 12/05/80 003-003 #32787
< WHEN INITIATED BY A SEND KEYIN, PIGEON WILL NOT EXIT BUT GOES   #32420
< INTO A WAIT LOOP.  THE FOLLOWING WILL ALWAYS FORCE AN EXIT.     #32420
:GENMD,PIGEON PIGPP+13,68000018+PIGPP(68400018+PIGPP).    001-001 #32420
< Pigeon ought to bump its priority up when it first              #32094
< comes in as a ghost, to avoid system strangulation.             #32094
:GENMD PIGPP+2F,69400000+PATCH(69400038+PIGPP).  01/02/79 001-004 #32094
:GENMD PATCH+0,32100000+S:CUN.           DCP F00 01/02/79 002-004 #32094
:GENMD PATCH+1,73B20000+UB:PRIOB.        DCP F00 01/02/79 003-004 #32094
:GENMD PATCH+2,68000038+PIGPP.           DCP F00 01/02/79 004-004 #32094
GENMD PPS
DELETE
< When PPS grabs dynamic memory to try to get pages that the      #31638
< operator has asked for in a "GET" or "RESDF" command, it is     #31638
< cautious to the point of absurdity about leaving enough pages   #31638
< to fill any holes that it creates in its dynamic area.  It      #31638
< releases fully half of the pages that it initially gets - this  #31638
< is usually a severe case of overkill since the maximum number   #31638
< of fill-in pages that it will need is equal to the number of    #31638
< specific pages that it's looking for and hasn't found yet.      #31638
< This section of the patch adds code to limit the number of      #31638
< pages released for fill-in purposes to at most the number       #31638
< of holes that may develop in the data area, thus increasing     #31638
< try to steal.                                                   #31638
<                                                                 #31638
:GENMD PPS+19F,2580007F(25C0007F).       DCP F00 10/03/78 001-050 #31638
:GENMD PPS+1A0,20800001(3880000C).       DCP F00 10/03/78 002-050 #31638
:GENMD PPS+1A1,31800004+PPSDATA(4680000C).   F00 10/03/78 003-050 #31638
:GENMD PPS+1A2,68200001+PPSPATCH(048000D1+PPSDATA).       004-050 #31638
:GENMD PPS+1A3,68000000+PPSPATCH(25900077).  F00 10/03/78 005-050 #31638
:GENMD PPSPATCH+0,32800004+PPSDATA.      DCP F00 10/03/78 006-050 #31638
:GENMD PPSPATCH+1,38C00008.              DCP F00 10/03/78 007-050 #31638
:GENMD PPSPATCH+2,048000D1+PPSDATA.      DCP F00 10/03/78 008-050 #31638
:GENMD PPSPATCH+3,3280000C.              DCP F00 10/03/78 009-050 #31638
:GENMD PPSPATCH+4,25900077.              DCP F00 10/03/78 010-050 #31638
:GENMD PPSPATCH+5,680001A4+PPS.          DCP F00 10/03/78 011-050 #31638
:GENMD PPSDATA+D1,89000008(8900000C).    DCP F00 10/03/78 012-050 #31638
<                                                                 #31638
<   One reason that PPS has trouble getting the desired pages     #31638
<   is that there are sometimes shared processors sitting         #31638
<   on them.  Shared processors (and monitor overlays) are        #31638
<   "sticky" - if there's no one in core using them, they'll      #31638
<   stay in core until they're needed again or until the pages    #31638
<   they're sitting on must be freed up for a user's get-page     #31638
<   request.  In a large system, PPS can't possibly request       #31638
<   enough memory at once to force those sticky processors to     #31638
<   be flushed, and so it will never get a crack at the pages     #31638
<   they're squatting on.  This section of the patch adds code    #31638
<   such sticky processors and will flush them out by zeroing     #31638
<   their physical page head and tail pointers and returning      #31638
<   their pages to the free page chain.  This sequence will       #31638
<   be performed before each M:GP.  It won't get done if there    #31638
<   are any slave CPUs active.                                    #31638
<                                                                 #31638
#NSCPU                                   DCP F00 10/03/78 013-050 #31638
:GENMD PPS+191,68000006+PPSPATCH(02200020).  F00 10/03/78 014-050 #31638
:GENMD PPSPATCH+6,6D000037.              DCP F00 10/03/78 015-050 #31638
:GENMD PPSPATCH+7,22700000+NSCPU.        DCP F00 10/03/78 016-050 #31638
:GENMD PPSPATCH+8,730E0000+SB:STATE.     DCP F00 10/03/78 017-050 #31638
:GENMD PPSPATCH+9,6930001A+PPSPATCH.     DCP F00 10/03/78 018-050 #31638
:GENMD PPSPATCH+A,64700008+PPSPATCH.     DCP F00 10/03/78 019-050 #31638
#ELSE                                    DCP F00 10/03/78 020-050 #31638
:GENMD PPS+191,6800000B+PPSPATCH(02200020).  F00 10/03/78 021-050 #31638
#                                        DCP F00 10/03/78 022-050 #31638
:GENMD PPSPATCH+B,22700000+PNAMEND.      DCP F00 10/03/78 023-050 #31638
:GENMD PPSPATCH+C,6D000037.              DCP F00 10/03/78 024-050 #31638
:GENMD PPSPATCH+D,730E0000+PB:UC.        DCP F00 10/03/78 025-050 #31638
:GENMD PPSPATCH+E,69300019+PPSPATCH.     DCP F00 10/03/78 026-050 #31638
#:BIG                                    DCP F00 10/03/78 027-050 #31638
:GENMD PPSPATCH+F,521E0000+PX:HPP.       DCP F00 10/03/78 028-050 #31638
:GENMD PPSPATCH+10,68300019+PPSPATCH.    DCP F00 10/03/78 029-050 #31638
:GENMD PPSPATCH+11,22400000.             DCP F00 10/03/78 030-050 #31638
:GENMD PPSPATCH+13,554E0000+PX:TPP.      DCP F00 10/03/78 032-050 #31638
:GENMD PPSPATCH+14,32300001.             DCP F00 10/03/78 033-050 #31638
:GENMD PPSPATCH+15,52120000+MX:PPUT.     DCP F00 10/03/78 034-050 #31638
#ELSE                                    DCP F00 10/03/78 035-050 #31638
:GENMD PPSPATCH+F,721E0000+PX:HPP.       DCP F00 10/03/78 036-050 #31638
:GENMD PPSPATCH+10,68300019+PPSPATCH.    DCP F00 10/03/78 037-050 #31638
:GENMD PPSPATCH+11,22400000.             DCP F00 10/03/78 038-050 #31638
:GENMD PPSPATCH+12,754E0000+PX:HPP.      DCP F00 10/03/78 039-050 #31638
:GENMD PPSPATCH+13,754E0000+PX:TPP.      DCP F00 10/03/78 040-050 #31638
:GENMD PPSPATCH+14,32300001.             DCP F00 10/03/78 041-050 #31638
:GENMD PPSPATCH+15,72120000+MX:PPUT.     DCP F00 10/03/78 042-050 #31638
#                                        DCP F00 10/03/78 043-050 #31638
:GENMD PPSPATCH+16,6A200000+T:FPP.       DCP F00 10/03/78 044-050 #31638
:GENMD PPSPATCH+17,21100000.             DCP F00 10/03/78 045-050 #31638
:GENMD PPSPATCH+18,69300014+PPSPATCH.    DCP F00 10/03/78 046-050 #31638
:GENMD PPSPATCH+19,6470000C+PPSPATCH.    DCP F00 10/03/78 047-050 #31638
:GENMD PPSPATCH+1A,6D000027.             DCP F00 10/03/78 048-050 #31638
:GENMD PPSPATCH+1B,02200020.             DCP F00 10/03/78 049-050 #31638
:GENMD PPSPATCH+1C,68000192+PPS.         DCP F00 10/03/78 050-050 #31638
GENMD RATLER
DELETE
< FIX BAD SHIFT INSTRUCTION WHEN CALCULATING PAGE ADDR OF WORD    #31942
< CONTAINING UB:PRIOB .                                           #31942
,RAP+4,2570007E(2570007F).               FJ  F00 11/16/78 001-001 #31942
GENMD RBBAT
DELETE
< RBBAT CAN HANG AS A RESULT OF AN ILLEGAL KEYIN FROM AN IRBT.    X32820
< GENMD TO RBBAT:                                                 X32820
< ZERO OUT SSIG WHEN RELEASING STREAM BACK TO FREE CHAIN,         XRBBAT
< THUS REDUCING FALSE 'INSUFFICIENT STREAMS' MESSAGES.            XRBBAT
< GENMDS TO RBBAT:                                                XRBBAT
,RBG+E6F,680000F4+RBBP(68000E65+RBG).    HBA EXP-F 810128 001-003 XRBBAT
,RBBP+F4,75A60000+SSIG.                  HBA EXP-F 810128 002-003 XRBBAT
,RBBP+F5,68000E65+RBG.                   HBA EXP-F 810128 003-003 XRBBAT
< PATCH OF O4/10/79 FOR SIDR #27817 STILL DOES NOT FIX THE        #32564
< AUTOINCREMENT PROBLEM.  HOWEVER, THE FOLLOWING PATCH DOES.      #32564
:GENMD,RBBAT MBSOP+1D0,2140000E(2140000F).   F00 01/02/80 001-002 #32564
:GENMD,RBBAT MBSOP+1D1,681001DD+MBSOP(681001DF+MBSOP).    002-002 #32564
< THESE GENMDS CORRECT BYTE 0 IN R6 RETURNING FROM TRT, WHICH     #32606
< CAUSED  MSG TO BE INCORRECTLY CHECKED FOR LENGTH > 52.          #32606
,RBG+451,680000F0+RBBP(38600050+SDAA).   BF  F00 01/02/80 001-003 #32606
,RBBP+F0,22100000,75100006,38600050+SDAA.BF  F00 01/02/80 002-003 #32606
,RBBP+F3,68000452+RBG.                   BF  F00 01/02/80 003-003 #32606
<CATCH BAD JOB CARD                                               #32484
,RBG+956,221000DF(221000C1).             MSC FOO 08/28/79 001-002 #32484
,RBG+958,69F009ED+RBG(69C009ED+RBG).     MSC F00 08/28/79 002-002 #32484
< REPLACEMENT PATCH FOR PATCH OF THE SAME NUMBER, DATED           #32219
< 03/28/79.                                                       #32219
< PREVENT SC 7E-40 WHEN RBBAT RUNS OUT OF SN SPACE                #32219
,RBBP+E2,09A00000+TMPSTK(0).             FJ  F00 03/18/80 001-004 #32219
,RBBP+E3,680007F9+RBG(0).                FJ  F00 03/18/80 002-004 #32219
,RBG+D5E,6AB000E2+RBBP(6AB007F9+RBG).    FJ  F00 03/18/80 003-004 #32219
< ***** REPLACEMENT PATCH FOR THE ONE DATED 9/20/78 WHICH MUST BE #31630
<       REMOVED. THE SIZE OF THE PATCH MAY BE MISLEADING  ******  #31630
< $$$$$ READ FILE 31630INFO ON THE SST FOR FULL DETAIL.  $$$$$$   #31630
< ##### AS PATCH IS DEFAULT IMPLEMENTED, IT ONLY FIXES A  ######  #31630
< ##### A SLIGHT BUG IN PAGE NUMBER LOGIC. IT ALSO FIXES  #####   #31630
< ##### A MISTAKE IN PAGE ACCOUNTING IN PREVIOUS VERSIONS #####   #31630
< %%%%% 257 CARDS IN MULOV WHICH ALSO PATCHES ROOT        %%%%%%  #31630
< %%%%% 027 CARDS IN LDEV PROCESSOR. SIZE OF PATCH VARIES %%%%%%  #31630
< %%%%% 011 CARDS IN RBBAT (REQUIRES FULL BOOT TO ADD     %%%%%%  #31630
< %%%%% OR REMOVE EFFECT OF FORM MESSAGE CHANGE)          %%%%%%  #31630
#LINES0                                  FJ  F00 01/17/79 285-295 #31630
:GENMD,RBBAT RBG+276,680000E4+RBBP(6800030F+RBG).01/17/79 286-295 #31630
,RBBP+E4,693000E6+RBBP.                  FJ  F00 01/17/79 287-295 #31630
,RBBP+E5,32B000E8+RBBP.                  FJ  F00 01/17/79 288-295 #31630
,RBBP+E6,35B001C1+SDAA.                  FJ  F00 01/17/79 289-295 #31630
,RBBP+E7,6800030F+RBG.                   FJ  F00 01/17/79 290-295 #31630
,RBBP+E8,FFFFFFFF.                       FJ  F00 01/17/79 291-295 #31630
,RBG+12A3,175CE200.                      FJ  F00 01/17/79 292-295 #31630
,SDAA+1BC,17E7E7E7.                      FJ  F00 01/17/79 293-295 #31630
,SDAA+1BE,40D5C5C5,C4E240C6,D6D9D440,40404040.   01/17/79 294-295 #31630
#                                        FJ  F00 01/17/79 295-295 #31630
<    -----> Read file 24562INFO on the SST tape before <-----     #24562
<    ----->     attempting to install this patch!      <-----     #24562
<                                                                 #24562
<     This patch is a replacement for one with the same SIDR      #24562
<     number dated 9/27/78 - the old version must be removed.     #24562
<     This version implements an improved fix for problems        #24562
<     occurring when the system begins to run out of symbiont     #24562
<     output file slots; it contains all of the code provided     #24562
<     by the previous version, as well as (optional) code         #24562
<     for SIDR 31906.                                             #24562
<                                                                 #24562
<     This is a three-section patch: 43 cards to the MULOV        #24562
<     overlay, 7 cards to RECOVER, and 103 cards to RBBAT.        #24562
<                                                                 #24562
,RBBP+05,09000000+TMPSTK.                FJ  F00 11/18/78 051-153 #24562
,RBBP+06,32000000+BL:OFS.                FJ  F00 11/18/78 052-153 #24562
,RBBP+07,2100000F+SNDDXSIZ.              FJ  F00 11/18/78 053-153 #24562
,RBBP+08,69100011+RBBP.                  FJ  F00 11/18/78 054-153 #24562
,RBBP+09,330001D9+SDAA.                  FJ  F00 11/18/78 055-153 #24562
,RBBP+0A,6810000D+RBBP.                  FJ  F00 11/18/78 056-153 #24562
,RBBP+0B,08000000+TMPSTK.                FJ  F00 11/18/78 057-153 #24562
,RBBP+0C,68040056+RBG.                   FJ  F00 11/18/78 058-153 #24562
,RBBP+0D,3200002B+RBBP.                  FJ  F00 11/18/78 059-153 #24562
,RBBP+0E,350001D9+SDAA.                  FJ  F00 11/18/78 060-153 #24562
,RBBP+0F,22000039+RBBP.                  FJ  F00 11/18/78 061-153 #24562
,RBBP+10,68000022+RBBP.                  FJ  F00 11/18/78 062-153 #24562
,RBBP+11,21000002+SNDDXSIZ.              FJ  F00 11/18/78 063-153 #24562
,RBBP+12,6820001B+RBBP.                  FJ  F00 11/18/78 064-153 #24562
,RBBP+13,2100000A+SNDDXSIZ.              FJ  F00 11/18/78 065-153 #24562
,RBBP+15,330001D9+SDAA.                  FJ  F00 11/18/78 067-153 #24562
,RBBP+16,6920000B+RBBP.                  FJ  F00 11/18/78 068-153 #24562
,RBBP+17,22000001.                       FJ  F00 11/18/78 069-153 #24562
,RBBP+18,350001D9+SDAA.                  FJ  F00 11/18/78 070-153 #24562
,RBBP+19,2200002C+RBBP.                  FJ  F00 11/18/78 071-153 #24562
,RBBP+1A,68000022+RBBP.                  FJ  F00 11/18/78 072-153 #24562
,RBBP+1B,320001D9+SDAA.                  FJ  F00 11/18/78 073-153 #24562
,RBBP+1C,21000001.                       FJ  F00 11/18/78 074-153 #24562
,RBBP+1D,6930000B+RBBP.                  FJ  F00 11/18/78 075-153 #24562
,RBBP+1E,32000053+TABLES:.               FJ  F00 11/18/78 076-153 #24562
,RBBP+1F,20000001.                       FJ  F00 11/18/78 077-153 #24562
,RBBP+20,350001D9+SDAA.                  FJ  F00 11/18/78 078-153 #24562
,RBBP+21,22000033+RBBP.                  FJ  F00 11/18/78 079-153 #24562
,RBBP+22,022000F0.                       FJ  F00 11/18/78 080-153 #24562
,RBBP+23,0B100000+TMPSTK.                FJ  F00 11/18/78 081-153 #24562
,RBBP+24,32400000.                       FJ  F00 11/18/78 082-153 #24562
,RBBP+25,6A800BD5+RBG.                   FJ  F00 11/18/78 083-153 #24562
,RBBP+26,022000F0.                       FJ  F00 11/18/78 084-153 #24562
,RBBP+27,0A100000+TMPSTK.                FJ  F00 11/18/78 085-153 #24562
,RBBP+28,6800000B+RBBP.                  FJ  F00 11/18/78 086-153 #24562
,RBBP+29,0.                              FJ  F00 11/18/78 087-153 #24562
,RBBP+2A,0.                              FJ  F00 11/18/78 088-153 #24562
,RBBP+2B,80000000.                       FJ  F00 11/18/78 089-153 #24562
,RBBP+2C,1B1505D6.                       FJ  F00 11/18/78 090-153 #24562
,RBBP+2D,E4E3D7E4.                       FJ  F00 11/18/78 091-153 #24562
,RBBP+2E,E340D8E4.                       FJ  F00 11/18/78 092-153 #24562
,RBBP+2F,C5E4C540.                       FJ  F00 11/18/78 093-153 #24562
,RBBP+30,C1D3D4D6.                       FJ  F00 11/18/78 094-153 #24562
,RBBP+31,E2E340C6.                       FJ  F00 11/18/78 095-153 #24562
,RBBP+32,E4D3D315.                       FJ  F00 11/18/78 096-153 #24562
,RBBP+33,171505D6.                       FJ  F00 11/18/78 097-153 #24562
,RBBP+34,E4E3D7E4.                       FJ  F00 11/18/78 098-153 #24562
,RBBP+35,E340D8E4.                       FJ  F00 11/18/78 099-153 #24562
,RBBP+36,C5E4C540.                       FJ  F00 11/18/78 100-153 #24562
,RBBP+37,C9E240C6.                       FJ  F00 11/18/78 101-153 #24562
,RBBP+38,E4D3D315.                       FJ  F00 11/18/78 102-153 #24562
,RBBP+39,1F1505D6.                       FJ  F00 11/18/78 103-153 #24562
,RBBP+3A,E4E3D7E4.                       FJ  F00 11/18/78 104-153 #24562
,RBBP+3B,E340D8E4.                       FJ  F00 11/18/78 105-153 #24562
,RBBP+3C,C5E4C540.                       FJ  F00 11/18/78 106-153 #24562
,RBBP+3D,E2D7C1C3.                       FJ  F00 11/18/78 107-153 #24562
,RBBP+3E,C540D9C5.                       FJ  F00 11/18/78 108-153 #24562
,RBBP+3F,E3E4D9D5.                       FJ  F00 11/18/78 109-153 #24562
,RBBP+40,C9D5C715.                       FJ  F00 11/18/78 110-153 #24562
,RBBP+41,32800053+TABLES:.               FJ  F00 11/18/78 111-153 #24562
,RBBP+42,318001D9+SDAA.                  FJ  F00 11/18/78 112-153 #24562
,RBBP+43,68200046+RBBP.                  FJ  F00 11/18/78 113-153 #24562
,RBBP+44,358001D9+SDAA.                  FJ  F00 11/18/78 114-153 #24562
,RBBP+45,6A800BD5+RBG.                   FJ  F00 11/18/78 115-153 #24562
,RBBP+46,68000DC4+RBG.                   FJ  F00 11/18/78 116-153 #24562
,RBG+55,68000005+RBBP(68040056+RBG).     FJ  F00 11/18/78 118-153 #24562
,RBG+DC2,68000041+RBBP(22800DC4+RBG).    FJ  F00 11/18/78 119-153 #24562
#GUARD-1                                 FJ  F00 11/18/78 120-153 #24562
,RBBP+4A,31FFFFFD+MX:PPUT.               FJ  F00 11/18/78 121-153 #24562
,RBBP+4B,69100050+RBBP.                  FJ  F00 11/18/78 122-153 #24562
,RBBP+4C,22000000.                       FJ  F00 11/18/78 123-153 #24562
,RBBP+4D,46000000+S:BUAIS.               FJ  F00 11/18/78 124-153 #24562
,RBBP+4E,49000059+RBBP.                  FJ  F00 11/18/78 125-153 #24562
,RBBP+4F,34FFFFFD+MX:PPUT.               FJ  F00 11/18/78 126-153 #24562
,RBBP+50,31FFFFFC+MX:PPUT.               FJ  F00 11/18/78 127-153 #24562
,RBBP+51,69100056+RBBP.                  FJ  F00 11/18/78 128-153 #24562
,RBBP+52,22000000.                       FJ  F00 11/18/78 129-153 #24562
,RBBP+53,46000000+S:OUAIS.               FJ  F00 11/18/78 130-153 #24562
,RBBP+54,49000059+RBBP.                  FJ  F00 11/18/78 131-153 #24562
,RBBP+55,34FFFFFC+MX:PPUT.               FJ  F00 11/18/78 132-153 #24562
,RBBP+56,320001D9+SDAA.                  FJ  F00 11/18/78 133-153 #24562
,RBBP+57,6800001C+RBBP.                  FJ  F00 11/18/78 134-153 #24562
,RBBP+58,00000FFF.                       FJ  F00 11/18/78 135-153 #24562
,RBBP+59,80000000.                       FJ  F00 11/18/78 136-153 #24562
,RBBP+1B,6800004A+RBBP.                  FJ  F00 11/18/78 137-153 #24562
,RBBP+5A,31FFFFFD+MX:PPUT.               FJ  F00 11/18/78 138-153 #24562
,RBBP+5B,68300060+RBBP.                  FJ  F00 11/18/78 139-153 #24562
,RBBP+5C,4B000058+RBBP.                  FJ  F00 11/18/78 140-153 #24562
,RBBP+5D,35000000+S:BUAIS.               FJ  F00 11/18/78 141-153 #24562
,RBBP+5E,22000000.                       FJ  F00 11/18/78 142-153 #24562
,RBBP+5F,34FFFFFD+MX:PPUT.               FJ  F00 11/18/78 143-153 #24562
,RBBP+60,31FFFFFC+MX:PPUT.               FJ  F00 11/18/78 144-153 #24562
,RBBP+61,68300066+RBBP.                  FJ  F00 11/18/78 145-153 #24562
,RBBP+62,4B000058+RBBP.                  FJ  F00 11/18/78 146-153 #24562
,RBBP+63,35000000+S:OUAIS.               FJ  F00 11/18/78 147-153 #24562
,RBBP+64,22000000.                       FJ  F00 11/18/78 148-153 #24562
,RBBP+65,34FFFFFC+MX:PPUT.               FJ  F00 11/18/78 149-153 #24562
,RBBP+66,22000039+RBBP.                  FJ  F00 11/18/78 150-153 #24562
,RBBP+67,68000022+RBBP.                  FJ  F00 11/18/78 151-153 #24562
,RBBP+0F,6800005A+RBBP.                  FJ  F00 11/18/78 152-153 #24562
#                                        FJ  F00 11/18/78 153-153 #24562
< FIX IT SO THAT THE REMOTE IRBT OPERATOR DOES NOT HAVE TO DO     #31961
< ANYTHING TO GET A FILE BUILT FOR THE OC VIA THE                 #31961
< !LDEV XX,(DEV,OC),(WSN,N) !COPY !PRINT SEQUENCE WHICH GENERATES #31961
< A  FILE. PRIOR TO THIS PATCH THE OPERATOR WOULD ONLY GET IT     #31961
< AFTER ENTERING SOME TYPE OF COMMAND.                            #31961
#MXSTRM                                  FJ  F00 11/26/78 001-010 #31961
,RBBP+E9,22500000+LCLX.                  FJ  F00 11/26/78 002-010 #31961
,RBBP+EA,22F00002.                       FJ  F00 11/26/78 003-010 #31961
,RBBP+EB,51F60000+STH:FLG.               FJ  F00 11/26/78 004-010 #31961
,RBBP+EC,68400C58+RBG.                   FJ  F00 11/26/78 005-010 #31961
,RBBP+ED,73060000+SSIG.                  FJ  F00 11/26/78 006-010 #31961
,RBBP+EE,E9300008.                       FJ  F00 11/26/78 007-010 #31961
,RBBP+EF,68000C2C+RBG.                   FJ  F00 11/26/78 008-010 #31961
,RBG+C57,680000E9+RBBP(22500000+LCLX).   FJ  F00 11/26/78 009-010 #31961
< AN "ADD PARTIAL OUTPUT FILE" REQUEST USUALLY COMES IN WITH THE  #31620
< X'20' BIT SET IN THE PRIORITY FIELD, INDICATING THAT RBBAT      #31620
< SHOULD BUILD A "PARTIAL FILE" BANNER.  THIS BIT DOESN'T GET     #31620
< STRIPPED BY THE "AOFSET" (GENERAL "ADD OUTPUT FILE") ROUTINE,   #31620
< SINCE "ADD OUTPUT FILE" IS ALSO USED TO "FILL" MFILES AND       #31620
< !!NCTL FILES (PRIORITIES X'21' AND X'22').  THE PARTIAL         #31620
< OUTPUT FILE GETS CHAINED ONTO A "QUEUE" THAT IS X'20'           #31620
< PRIORITIES TOO HIGH, THUS (USUALLY) STOMPING ON A               #31620
< QUEUE HEAD OR TAIL AND BADLY EVISCERATING THE BATCH             #31620
< QUEUE.  (SLOTS AND FILES GET LOST, ETC...)   FIX - CLEAR        #31620
< THE X'20' BIT BEFORE CALLING "AOFSET".                          #31620
:GENMD RBG+37B,6A000000+RBBP(6A000315+RBG).  F00 08/30/78 001-004 #31620
:GENMD RBBP+0,32100000+Y2.               DCP F00 08/30/78 002-004 #31620
:GENMD RBBP+1,470E0002.                  DCP F00 08/30/78 003-004 #31620
:GENMD RBBP+2,68000315+RBG.              DCP F00 08/30/78 004-004 #31620
GENMD STATS
DELETE
<USE COC#BUFS, NOT BUFCNT, IN RESOURCE DISPLAY                    #31595
:GENMD,STATS CSPROC+7BC,02000000(201FFFFF).  F00 08/22/78 001-006 #31595
:GENMD,STATS CSPROC+7BD,02000000.        MRS F00 08/22/78 002-006 #31595
:GENMD,STATS CSPROC+7BE,02000000.        MRS F00 08/22/78 003-006 #31595
:GENMD,STATS CSPROC+7BF,02000000.        MRS F00 08/22/78 004-006 #31595
:GENMD,STATS CSPROC+7C0,02000000.        MRS F00 08/22/78 005-006 #31595
:GENMD,STATS CSPROC+7C1,32916004+COCD:.  MRS F00 08/22/78 006-006 #31595
GENMD SUMMARY
DELETE
< SUMMARY WASTES PAPER FOR ITS SNAPSHOT HEADER LINE               X32265
:GENMD HEADER+8,682100C4(691100C4).      GF  F00 01/02/80 001-001 X32265
GENMD TEL
DELETE
< FIX TEL STATUS COMMAND TO USE CONSOLE MINUTES IN FIFTH RATE     X32940
< FACTOR, INSTEAD OF I/O OPERATIONS, AND TO DIVIDE FINAL CHARGE   X32940
< BY DECIMAL 10000 INSTEAD OF HEX '10000'.                        X32940
< GENMD TO TEL:                                                   X32940
,TEL+BD4,68000BDD+TEL(22C0FFFF).         FHK EXP-F 810520 001-003 X32940
,TEL+BD5,1710(4BC08C1D).                 FHK EXP-F 810520 002-003 X32940
,TEL+BF8,36E00BD5+TEL(36E00000+Y0001).   FHK EXP-F 810520 003-003 X32940
< MAKE TEL'S LOWERCASE 'L'(AS IN PCL 'LIST') WORK.                X32817
< GENMD TO TEL:                                                   X32817
,TEL+AD,69300000+PATCH(693000C0+TEL).    DE  EXP-F 810603 001-004 X32817
,PATCH+00,21B00093.                      DE  EXP-F 810603 002-004 X32817
,PATCH+01,693000C0+TEL.                  DE  EXP-F 810603 003-004 X32817
,PATCH+02,680000AE+TEL.                  DE  EXP-F 810603 004-004 X32817
< CORRECT PLATEN COMMAND TO ALLOW LOWERCASE OR TRAILING BLANK.    #32825
< GENMD TO TEL:                                                   #32825
,TEL+4CD,21100000(216000D5).             SW  F00 03/26/81 001-001 #32825
< DUE TO A BAD TEST IN SETAMR, A BATCH USER CAN DO A '!SET FOR    X32032
< M:C. AS A RESULT, CCI LOOPS AND JOB CAN'T BE ABORTED.           X32032
< GENMD TO TEL:                                                   X32032
:GENMD,TEL SET+5D3,03D47AC3(04D47AE4),40404040. -F 800905 001-003 X32032
:GENMD,TEL SET+5DF,04D47AE4(03D47AC3),C3404040. -F 800905 002-003 X32032
:GENMD,TEL SET+5CD,1169D94A(1169D948).   FHK EXP-F 800905 003-003 X32032
< IF THE PLATEN COMMAND WITHOUT PARAMETERS IS USED IMMEDIATELY    #32182
< AFTER RUNNING TEXT (OR ANY OTHER PROCESSOR THAT SETS DRC FOR    #32182
< M:UC), THE DISPLAY IS MISALIGNED. TESTED FIX;                   #32182
:GENMD,TEL TEL+83E,00404040(40404040).   FHK F00 01/02/80 001-002 #32182
:GENMD,TEL TEL+847,0D004040(0D404040).   FHK F00 01/02/80 002-002 #32182
< ESC-D AT TEL PROMPT AFTER PROGRAM ABORT MAY ECHO GARBAGE OR NOTH#32496
< TEL FAILES TO MOVE J:CCBUF BACK TO IT'S READ BUFFER IN THIS CASE#32496
< SOMETIMES, ACCOUNT NAMES, FILE NAMES, OR ANY SORT OF GARBAGE THE#32496
< FROM BEFORE MAY ECHO.                                           #32496
,TEL+A71,68000020+TEL(6800002C+TEL).     GH  F00 01/02/80 001-001 #32496
GENMD TEXT
DELETE
< THIS GENMD FIXES THE PROBLEM OF THE LAST LINE NOT BEING PRINTED #32889
< IN A FOOTNOTE WHICH IS INVOKED BY THE BLOCK CALLOUT COMMAND.    #32889
< GENMD TO TEXT V. XC0:                                           #32889
,39P+135,68000136+39P(6810013C+39P).     JEB XC0 04/29/81 001-001 #32889
GENMD TPG
DELETE
< FORCE WRITE TO TPFILES TO OCCUR BEFORE                          #32000
< PROCEEDING SO LAST JOURNAL SN USED WILL                         #32000
< ALWAYS BE CORRECT.                                              #32000
<                                                                 #32000
,DATA+A71,68000000+PATCH(0410012E+DATA). AJB F00 12/19/78 001-006 #32000
,PATCH,0410012E+DATA.                    AJB F00 12/19/78 002-006 #32000
,PATCH+1,04100003+PATCH.                 AJB F00 12/19/78 003-006 #32000
,PATCH+2,68000A72+DATA.                  AJB F00 12/19/78 004-006 #32000
,PATCH+3,12000000+M:EI.                  AJB F00 12/19/78 005-006 #32000
,PATCH+4,00000000.                       AJB F00 12/19/78 006-006 #32000
< THIS PATCH FIXES SEVERAL ERRORS IN                              #32002
< JOURNAL WRITE ERROR HANDLING WHICH                              #32002
< CAUSE GARBAGE TO BE WRITTEN TO THE                              #32002
<                                                                 #32002
,DATA+B9F,20D001F9(20D001FB).            AJB F00 01/04/78 001-014 #32002
,DATA-195,30000030(30000020).            AJB F00 01/04/78 002-014 #32002
,DATA-193,0000081C(00000814).            AJB F00 01/04/78 003-014 #32002
,DATA+BA1,327C0004(327C000D).            AJB F00 01/04/78 004-014 #32002
,DATA+BA2,2570006D(2570007E).            AJB F00 01/04/78 005-014 #32002
,DATA+BA4,20E00207(20E00205).            AJB F00 01/04/78 006-014 #32002
,DATA-191,30000010(30000000).            AJB F00 01/04/78 007-014 #32002
,DATA-18D,30000030(30000020).            AJB F00 01/04/78 008-014 #32002
,DATA-18B,0000081C(00000814).            AJB F00 01/04/78 009-014 #32002
,DATA+BB6,68000005+PATCH(3270000D+M:EO). AJB F00 01/04/78 010-014 #32002
,PATCH+5,32700004+M:EO.                  AJB F00 01/04/78 011-014 #32002
,PATCH+6,2570006F.                       AJB F00 01/04/78 012-014 #32002
,PATCH+7,68000BB7+DATA.                  AJB F00 01/04/78 013-014 #32002
,DATA-189,30000010(30000000).            AJB F00 01/04/78 014-014 #32002
GENMD VOLINIT
DELETE
< CHANGE 2-SECTOR COMPARE TO A 1-SECTOR COMPARE, IF IT'S          #32828
< NOT AN RMP DISK. GENMD TO VOLINIT E02:                          #32828
,VTOC+D8D,68000000+PATCH(3570066D+VTOC). DL  F00 01/20/81 001-007 #32828
,PATCH+00,3570066D+VTOC.                 DL  F00 01/20/81 002-007 #32828
,PATCH+01,21700002.                      DL  F00 01/20/81 003-007 #32828
,PATCH+02,68300D8E+VTOC.                 DL  F00 01/20/81 004-007 #32828
,PATCH+03,22700400.                      DL  F00 01/20/81 005-007 #32828
,PATCH+04,3570061F+VTOC.                 DL  F00 01/20/81 006-007 #32828
,PATCH+05,68000D8E+VTOC.                 DL  F00 01/20/81 007-007 #32828
     }
,VOLINIT+A78,0+AVRID(200+HGP).           GH  F00 01/04/80 001-001 #32494
< ONLINE VOLINIT OF PRIVATE PACK MISCALCULATES NUMBER OF          #32550
< CYLINDERS TO RESERVE .                                          #32550
,VOLINIT+18A,2130001E(2120001E).         RMS F00 01/02/80 001-001 #32550

