***************************************************************
< THIS CHRONOLOGICAL FILE CONTAINS PATCHES THAT  CAME FROM
< SOURCES OTHER THAN LADC.
< THESE PATCHES HAVE NOT BEEN VERIFIED BY HONEYWELL LADC.
< THEREFORE, THEY ARE USED AT THE RISK OF THE USER.
< **THIS FILE IS NOT SIDRABLE! NOTIFY YOUR FIELD ENGINEERING
< CONTACT (THE TAC) OF ANY PROBLEMS.*********************************
<************************ SST 01-81 ***********************************
12/31/80**********************
< ALLOW PCL TO LIST A FILE CONTAINING THE UNDERSCORE              XPCLXX
< CHARACTER IN THE FILE NAME.                                     XPCLXX
< GENMD TO PCL:                                                   XPCLXX
:GENMD CCTAB+3,7C007803(7C005803).       DCP EXP-F 801231 001-001 XPCLXX
12/30/80*********************
< 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+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
< 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
12/15/80
< NOTE: MORE THAN 50 PATCHES HAVE BEEN REMOVED FROM SELECT-USERS
< AND PATCH-USERS, AS OFFICIAL PATCHES THEREFOR HAVE APPEARED IN
< THE OFFICIAL PATCH FILES, CHRONO-F00 AND F00PATCH. THE LIST IS
< TOO LONG TO ENTER HERE; SEE THE SST 01-81 ENTRIES IN CHRONO-F00.
<************************ SST 12-80 *****************************
11/26/80****************
< NOTE: THE USER-SUPPLIED PATCH 'X31270' HAS BEEN REMOVED FROM BOTH
< 'SELECT-USERS' AND 'PATCH-USERS'. NOT ONLY DID IT CONTAIN A TYPO
< (THE BCR,1 HANDLERS+.247 SHOULD HAVE BEEN TO +.24D), BUT ALSO THE
< PATCH IS NO LONGER NEEDED DUE TO OFFICIAL PATCH #32567.
11/25/80****************
< 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
<************
< NOTE: THE PATCH PREVIOUSLY IDENTIFIED AS 'XE-010' HAS BEEN
< RENAMED 'X32701', NOW THAT A SIDR NUMBER HAS BEEN ASSIGNED.
11/18/80*****************
< 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
11/12/80*********************
< 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
<
<NOTE: PATCH XCNTRL HAS BEEN RENAMED AS X32794 IN SELECT-USERS
< AND IN PATCH-USERS, NOW THAT A SIDR NUMBER HAS BEEN ASSIGNED.
<
< IF FILL GETS ALL OF MEMORY (.B8 PAGES), THEN GETS SWAPPED OUT,  X32577
< 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+.12D/LI,11 .B7(LI,11 .B8/      JBC EXP-F 801112 002-002 X32577
<************************ SST 11-80 *****************************
10/31/80************************
< THIS PATCH IS MEANT TO REPLACE PATCH #31640, DATED 11/10/78.    X31640
< THE OFFICIAL PATCH COULD CAUSE 7E-40 WHILE RUNNING THE          X31640
< ONLINE DIAGNOSTICS FOR MPC TAPES.                               X31640
<SET DENSITY AT 1600BPI FOR ALL TAPE MOUNTS OF MPC TAPES.         X31640
UMOV/IOQ+.2B1/BE @(BE IOQ+.27C/          JBC EXP-F 801031 001-015 X31640
/@/INT,13 DCT9,7/                        JBC EXP-F 801031 002-015 X31640
/@/BCS,2 IOQ+.27C/                       JBC EXP-F 801031 003-015 X31640
/@/EXU IOQ+.27C/                         JBC EXP-F 801031 004-015 X31640
/@/LI,2 .20/                             JBC EXP-F 801031 005-015 X31640
/@/WD,2 .1200/                           JBC EXP-F 801031 006-015 X31640
/@/LW,12 $+8/                            JBC EXP-F 801031 007-015 X31640
/@/OR,12 7/                              JBC EXP-F 801031 008-015 X31640
/@/LI,13 0/                              JBC EXP-F 801031 009-015 X31640
/@/LW,15 LITERALS+.23/                   JBC EXP-F 801031 010-015 X31640
/@/LI,0 0/                               JBC EXP-F 801031 011-015 X31640
/@/BAL,11 IOQM+.41/                      JBC EXP-F 801031 012-015 X31640
/@/NOP/                                  JBC EXP-F 801031 013-015 X31640
/@/B IOQ+.280/                           JBC EXP-F 801031 014-015 X31640
/@/.0C000000/                            JBC EXP-F 801031 015-015 X31640
10/17/80*************************
< NOTE: PATCHES IDENTIFIED AS 'XE-012' HAVE BEEN RENAMED 'X32699',
< NOW THAT A SIDR NUMBER HAS BEEN ASSIGNED.
< ***********************
< MULTI-CPU SYSTEMS. GENMD TO CONTROL:                            XCNTRL
,+AC73,1(0).                             RMS EXP-F 801017 001-006 XCNTRL
,+AC74,1(0).                             RMS EXP-F 801017 002-006 XCNTRL
,+AC75,10000(8000).                      RMS EXP-F 801017 003-006 XCNTRL
,+AC76,10000(8000).                      RMS EXP-F 801017 004-006 XCNTRL
,+AC77,1(0).                             RMS EXP-F 801017 005-006 XCNTRL
,+AC78,1(0).                             RMS EXP-F 801017 006-006 XCNTRL
< ***********************
< REPLACEMENT FOR PATCH OF SAME NUMBER DATED 01/03/80.            X32597
< ONE CARD HAS BEEN ADDED TO AVOID ORDER DEPENDENCY, AND THE      X32597
< PATCH HAS BEEN VERIFIED TO BE APPLICABLE TO BOTH ELLA F00       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
,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+A,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
< 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
< REPLACEMENT FOR PATCH OF SAME NUMBER DATED 01/07/80             X31958
< DELTA'S ';E' AND ';X' DON'T WORK AS ADVERTISED                  X31958
MISOV/TRAPC+.18/B @(LW,1 JIT+.48/        UNK EXP-F 801010 001-007 X31958
/@/LH,1 UH:FLG,1/                        UNK EXP-F 801010 003-007 X31958
/@/CI,1 .40/                             UNK EXP-F 801010 004-007 X31958
/@/BANZ TRAPC+.1B/                       UNK EXP-F 801010 005-007 X31958
/@/LW,1 JIT+.48/                         UNK EXP-F 801010 006-007 X31958
/@/B TRAPC+.19/                          UNK EXP-F 801010 007-007 X31958
< REPLACEMENT FOR PATCH OF SAME NUMBER DATED 01/02/80             X32432
< IF A FILE IS OPENED INOUT AND THEN CLOSED WITHOUT MODIFYING     X32432
< IT, THE MODIFICATION DATE IS NOT CHANGED, WHICH IS THE WAY IT   X32432
< SHOULD BE.  BUT THE DESCRIPTOR IS CHANGED TO INDICATE           X32432
< THAT IT HAS BEEN MODIFIED SINCE THE LAST BACKUP, WHICH          X32432
< IS RIDICULOUS.  THE CODE TO TEST FOR THIS CONDITION WAS         X32432
< REMOVED IN E01.  A SUGGESTED FIX IS FOLLOWING:                  X32432
CLOSE/CLS+.156/B @(B CLS+.15A)/          FHK EXP-F 801010 001-008 X32432
/@/LW,1 13,6/                            FHK EXP-F 801010 002-008 X32432
/@/LW,2 0,1/                             FHK EXP-F 801010 003-008 X32432
/@/CI,2 .A00/                            FHK EXP-F 801010 004-008 X32432
/@/BANZ CLS+.15A/                        FHK EXP-F 801010 005-008 X32432
/@/CW,2 LITERALS+.1D/                    FHK EXP-F 801010 006-008 X32432
/@/BAZ CLS+.177/                         FHK EXP-F 801010 007-008 X32432
/@/B CLS+.15A/                           FHK EXP-F 801010 008-008 X32432
< REPLACEMENT FOR PATCH OF SAME NUMBER DATED 800828               X32742
< A SPURIOUS TIME KEYIN CAN CLOBBER PART OF THE SYSTEM'S          X32742
< TIME, ALTHOUGH IT TELLS THE OPERATOR 'EH?'.                     X32742
< 7 PATCHES TO KEYIN, USES 3 PATCH LOCATIONS.                     X32742
/KEYIN+.204/STW,2 5(STH,2 TIME/          SW  EXP-F 801010 002-007 X32742
/KEYIN+.209/B @(LI,3 0/                  SW  EXP-F 801010 003-007 X32742
/@/STH,5 TIME/                           SW  EXP-F 801010 004-007 X32742
/@/LI,3 0/                               SW  EXP-F 801010 005-007 X32742
/@/B KEYIN+.20A/                         SW  EXP-F 801010 006-007 X32742
#TIME;K1 DELETE                          SW  EXP-F 801010 007-007 X32742
<************************ SST 10-80 ******************************
10/01/80 ********************************
< PIGEON SENDS ONE BLANK TOO FEW WHEN REPOSITIONING CURSOR        X32787
< AND LENGTH OF LAST MESSAGE WAS LESS THAN PREVIOUS CURSOR        X32787
< POSITION. GENMD TO PIGEON.                                      X32787
:GENMD,PIGEON PIGPP+1B3,69100030+PATCH(691001B9+PIGPP).   001-003 X32787
:GENMD,PIGEON PATCH+30,207FFFFF.         FHK EXP-F 801001 002-003 X32787
:GENMD,PIGEON PATCH+31,680001B9+PIGPP.   FHK EXP-F 801001 003-003 X32787
< ANLZ-SNOOP IMPROPERLY CALLS AN OUTIN CFU 'INOUT'.               X32788
< GENMD TO ANLZ.                                                  X32788
ANALZO6,PPO6+21E,1200025C+PPO6(1200025B+PPO6).  -F 801001 001-001 X32788
09/05/80**********
< NOTE: THE USER PATCH TO KEYIN KNOWN AS 'XE-011' HAS BEEN RENAMED
< AS 'X32700', NOW THAT A SIDR NUMBER HAS BEEN ASSIGNED.
<
< NOTE: THE USER PATCH TO LABEL KNOWN AS 'XLBLGN' HAS BEEN RENAMED
< 'X32757', NOW THAT A SIDR NUMBER HAS BEEN ASSIGNED.
<
< WHOOPS! SYMBOL TRAPC IS IN MISOV, NOT THE ROOT. PATCH X31958
< HAS BEEN MOVED TO ITS PROPER LOCATION IN SELECT-USERS AND IN
< PATCH-USERS.
< 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,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
< FIX HOTAVR ON FREE TAPES                                        X32393
/HOTAVR+.2E/BCS,6 HOTAVR+.11(BCS,6 HOTAVR+.55/  -F 800905 001-001 X32393
< 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
< 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
< INCREASE ALLOWED REPLACEMENT COMMANDS TO 470 WORDS, INSTEAD     X32661
< OF 470 BYTES. GENMD TO BATCH:                                   X32661
,BATCH2DD+499,758(1D6).                  FHK EXP-F 800905 001-001 X32661
< NOTE: THE PROBLEM REPORTED BY SIDR 32445, AND FIXED WITH THE USER-
< SUPPLIED PATCH 'X32445', WAS FIXED BY OFFICIAL PATCH #31662.
< ACCORDINGLY, X32445 HAS BEEN REMOVED FROM SELECT-USERS AND
< PATCH-USERS.
8/29/80*************
< NOTE: USER PATCH X31644 HAS BEEN REMOVED FROM 'SELECT-USERS' AND
< FROM 'PATCH-USERS'; AN OFFICIAL PATCH FOR #31644 NOW EXISTS.
< REVISED PATCH FOR ONE OF SAME NUMBER DATED 800804               X32742
< A SPURIOUS TIME KEYIN CAN CLOBBER PART OF THE SYSTEM'S          X32742
< DATE, ALTHOUGH IT TELLS THE OPERATOR 'EH?'.                     X32742
< 7 PATCHES TO KEYIN, USES 3 PATCH LOCATIONS.                     X32742
#TIME=LITERALS+.AE                       SW  EXP-F 800828 001-007 X32742
KEYIN/KEYN+.204/STH,2 5(STH,2 TIME/      SW  EXP-F 800828 002-007 X32742
KEYIN/KEYN+.209/B@(LI,3 0/               SW  EXP-F 800828 003-007 X32742
/@/STH,5 TIME/                           SW  EXP-F 800828 004-007 X32742
/@/LI,3 0/                               SW  EXP-F 800828 005-007 X32742
/@/B KEYN+.20A/                          SW  EXP-F 800828 006-007 X32742
#TIME;K1 DELETE                          SW  EXP-F 800828 007-007 X32742
08/28/80************
< NOTE: CONDITIONAL SYMBOLS 'ELLAF00' AND 'ELLAF01' HAVE BEEN
< INSTALLED IN THE PATCH FILES TO HANDLE THE NEW (F01) VERSION
< OF ELLA, RELEASED ON THE SEPTEMBER SST.
08/20/80***********
< REPLACEMENT GENMD FOR ONE OF SAME NUMBER DATED 800619           X32705
< PATCH LOCATIONS HAVE BEEN CHANGED TO ACCOMMODATE AN OFFICIAL    X32705
< GENMD TO PCL.                                                   X32705
< PCL COPYALL WITH (PHY) OPTION FAILS AFTER A COPY 'INTO'         X32705
< WHEN EITHER THE EI OR EO FILE DIDN'T EXIST. FOLLOWING           X32705
< GENMDS TO PCL FIX THE PROBLEM.                                  X32705
,CLOSEO+4,68000021+PATCH(21100002).      RMS EXP-F 800820 001-005 X32705
,PATCH+21,22100001.                      RMS EXP-F 800820 002-005 X32705
,PATCH+23,32100000+M:EO.                 RMS EXP-F 800820 004-005 X32705
,PATCH+24,68000005+CLOSEO.               RMS EXP-F 800820 005-005 X32705
< REPLACEMENT GENMD FOR ONE OF SAME NUMBER DATED 02/01/80.        X32616
< PATCH LOCATIONS RELOCATED FOR OFFICIAL PATCH.                   X32616
< WHEN REMOVING AN ANS TAPE IN BATCH, PCL RETURNS A STEP          X32616
< CONDITION OF 2. IT SHOULD BE 0.                                 X32616
,REW+5E,68300025+PATCH(6830006C+REW).    JH  EXP-F 800820 001-003 X32616
,PATCH+25,35A0004E+BREAK.                JH  EXP-F 800820 002-003 X32616
,PATCH+26,6800006C+REW.                  JH  EXP-F 800820 003-003 X32616
08/08/80************
< LEMUR REPORTS 'ILLEGAL ROM LANGUAGE' WHEN IT FINDS AN           X32771
< X'19' LOAD CODE. X'19'(NEW FOR F00) IS FOR ROOT DUMMY           X32771
< SECTION. ANSFORT C00 CREATES SOME X'19' CODES, 'THO             X32771
< ANSFORT B08 (& EARLIER) AND FORTIV CREATED X'09'FROM            X32771
< THE SAME SOURCE CODE. FOLLOWING GENMD TO LEMUR MAKES            X32771
< X'19' LEGAL.                                                    X32771
,SCANROM+42,6802001D+SCANROM(6800B9A3).  RMS EXP-F 800805 001-001 X32771
< SYSTEM CAN HANG IF CPI IS 0 AND COC DOES ESCAPE-X               XCOCXX
< PROCESSING. ARSZ GETS SET TO X'FF' INCORRECTLY.                 XCOCXX
#TPCOC                                   JBC EXP-F 800807 001-009 XCOCXX
#LN1839=COCR+.2D8                        JBC EXP-F 800807 002-009 XCOCXX
#ELSE                                    JBC EXP-F 800807 003-009 XCOCXX
#LN1839=COCR+.2D4                        JBC EXP-F 800807 004-009 XCOCXX
#1                                       JBC EXP-F 800807 005-009 XCOCXX
/LN1839/B @(B *13/                       JBC EXP-F 800807 006-009 XCOCXX
/@/LI,15 0/                              JBC EXP-F 800807 007-009 XCOCXX
/@/B *13/                                JBC EXP-F 800807 008-009 XCOCXX
#LN1839;K1                               JBC EXP-F 800807 009-009 XCOCXX
<************************ SST 8-80 ******************************
7/30/80
<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
< A SPURIOUS DATE KEYIN CAN CLOBBER PART OF SYSTEM'S DATE.        X32741
< THIS PATCH DEPENDS ON A SPARE WORD AT KEYIN+.225, WHICH         X32741
< RESULTS FROM A BOUND 8 PRECEEDING.                              X32741
< 6 PATCHES TO KEYIN, NO PATCH LOCATIONS.                         X32741
#DATE=LITERALS+.AC                       SW  EXP-F 800804 001-006 X32741
KEYIN/KEYN+.21C/STH,2 5(STH,2 DATE/      SW  EXP-F 800804 002-006 X32741
KEYIN/KEYN+.220/STS,2 5(STS,2 DATE/      SW  EXP-F 800804 003-006 X32741
KEYIN/KEYN+.224/STW,5 DATE(B KEYN+.74/   SW  EXP-F 800804 004-006 X32741
KEYIN/KEYN+.225/B KEYN+.74/              SW  EXP-F 800804 005-006 X32741
#DATE;K1                                 SW  EXP-F 800804 006-006 X32741
< A SPURIOUS TIME KEYIN CAN CLOBBER PART OF THE SYSTEM'S          X32742
< DATE, ALTHOUGH IT TELLS THE OPERATOR 'EH?'.                     X32742
< 7 PATCHES TO KEYIN, USES 3 PATCH LOCATIONS.                     X32742
#TIME=LITERALS+.AE                       SW  EXP-F 800804 001-007 X32742
/KEYIN+.209/B@(LI,3 0/                   SW  EXP-F 800804 003-007 X32742
/@/STH,5 TIME/                           SW  EXP-F 800804 004-007 X32742
/@/LI,3 0/                               SW  EXP-F 800804 005-007 X32742
/@/B KEYIN+.20A/                         SW  EXP-F 800804 006-007 X32742
#TIME;K1 DELETE                          SW  EXP-F 800804 007-007 X32742
< CONTROL CAN CAUSE MBS PROBLEMS BY STEPPING ON PL:CHG            X32738
< WITHOUT CHECKING PL:LK. GENMDS TO CONTROL.                      X32738
:GENMD,CONTROL +B129,68000000+PATCH(47510000+PL:CHG).     001-005 X32738
:GENMD,CONTROL PATCH+0,32810000+PL:LK(0).GLG EXP-F 800804 002-005 X32738
:GENMD,CONTROL PATCH+1,69300000+PATCH(0).GLG EXP-F 800804 003-005 X32738
:GENMD,CONTROL PATCH+2,47510000+PL:CHG(0).   EXP-F 800804 004-005 X32738
:GENMD,CONTROL PATCH+3,6800B12A(0).      GLG EXP-F 800804 005-005 X32738
<CLEAR BUFFER DURING PASS2 OUTPUT TO AVOID LATER  GARBAGE.        X32761
<GENMD'S TO ANALZ.                                                X32761
ANALZ,PP+657,35100000+PTR(35100000+BUFSIZ);. EXP-F 800804 001-002 X32761
,6A000000+BUFOUT(04100000+WRITBUF).      SW  EXP-F 800804 002-002 X32761
< 9BINREAD CALCULATES CHECKSUM INCORRECTLY WHEN THE               X32732
< BYTE COUNT IS NOT DIVISIBLE BY 4.                               X32732
< GENMD'S TO :P11.                                                X32732
,9BINREAD+26,22300004(22300001).         FHK EXP-F 800804 001-005 X32732
,9BINREAD+AA,B2460000+8DCBADR(52460000+6BINBUF).-F 800804 002-005 X32732
,9BINREAD+AB,2540006D(2140002C).         FHK EXP-F 800804 003-005 X32732
,9BINREAD+AB,2540006D(2140002C).         FHK EXP-F 800804 004-005 X32732
,9BINREAD+AC,680000AF+9BINREAD(681000AE+9BINREAD).        005-005 X32732
7/25/80***********
< WILL GENERATE PATCH SPACE BY GETTING RID OF THE LITTLE          XLBLGN
< MESSAGE "BAD CONTROL CARD", NOP THE M:PRINT AND USE MESSAGE     XLBLGN
<                                                                 XLBLGN
:GENMD START+12,02000000(0420A000).      JBC EXP-F 800725 001-012 XLBLGN
<                                                                 XLBLGN
< BUILD A M:REW *0 INTO THE M:PRINT FPT                           XLBLGN
<                                                                 XLBLGN
:GENMD +A000,0410A001.                   JBC EXP-F 800725 002-012 XLBLGN
:GENMD +A001,90000001.                   JBC EXP-F 800725 003-012 XLBLGN
<                                                                 XLBLGN
< RWIND ON THE LABEL COMMAND                                      XLBLGN
<                                                                 XLBLGN
:GENMD START+53,68000637+INITPGM(321005BA+INITPGM).       004-012 XLBLGN
:GENMD INITPGM+637,22100000+F:TAPOT.     JBC EXP-F 800725 005-012 XLBLGN
:GENMD INITPGM+638,6700A000.             JBC EXP-F 800725 006-012 XLBLGN
:GENMD INITPGM+639,321005BA+INITPGM.     JBC EXP-F 800725 007-012 XLBLGN
:GENMD INITPGM+63A,68000054+START.       JBC EXP-F 800725 008-012 XLBLGN
<                                                                 XLBLGN
< NOW FOR THE PRINT COMMAND                                       XLBLGN
<                                                                 XLBLGN
:GENMD START+149,6800063B+INITPGM(6800014B+START).        009-012 XLBLGN
:GENMD INITPGM+63B,22100000+F:TAPIN.     JBC EXP-F 800725 010-012 XLBLGN
:GENMD INITPGM+63C,6700A000.             JBC EXP-F 800725 011-012 XLBLGN
:GENMD INITPGM+63D,6800014B+START.       JBC EXP-F 800725 012-012 XLBLGN

6/19/80***************
< NOTE: TWO CHANGES IN SIDR NUMBERS (COLUMNS 67-72) HAVE BEEN
< MADE TO REFLECT PROPER SIDR NUMBERS. 'XOLMON' IS NOW
< 'X32725', 'X32611' IS NOW 'X32649'.
< M:LINK DOESN'T EXPECT FORTRAN-FORMAT ADDRESSES IN FPT           X32712
< (WITH X'01' IN BYTE 0). USING UNMASKED ADDRESS CAN RESULT       X32712
< B5-AA/B5-4A ABORTS.                                             X32712
LDLNK/LNKTRC+.15D/BAL,13 @(BAL,13 LNKTRC+.33F/  -F 800619 001-004 X32712
/@/AND,12 .+2/                           FHK EXP-F 800619 002-004 X32712
/@/B LNKTRC+.33F/                        FHK EXP-F 800619 003-004 X32712
/@/.1FFFF/                               FHK EXP-F 800619 004-004 X32712
< BAD BRANCH CAUSES A B5-4A ABORT TO COME OUT AS A B5-AA.         X32707
LDLNK/LNKTRC+.347/B LNKTRC+.554(B LNKTRC+.54F/  -F 800619 001-001 X32707
< PCL COPYALL WITH (PHY) OPTION FAILS AFTER A COPY 'INTO'         X32705
< WHEN EITHER THE EI OR EO FILE DIDN'T EXIST. FOLLOWING           X32705
< GENMDS TO PCL FIX THE PROBLEM.                                  X32705
,CLOSEO+4,68000018+PATCH(21100002).      RMS EXP-F 800619 001-005 X32705
,PATCH+18,22100001.                      RMS EXP-F 800619 002-005 X32705
,PATCH+19,351E0056.                      RMS EXP-F 800619 003-005 X32705
,PATCH+1A,32100000+M:EO.                 RMS EXP-F 800619 004-005 X32705
,PATCH+1B,68000005+CLOSEO.               RMS EXP-F 800619 005-005 X32705
< IN CASE OF MULTIPLE FAILURES ON THE OPEN OF THE DISKPOOL        X32722
< FILE, FOR THE FSAVE 'STATS' OPTION, FSAVE CAN END UP IN         X32722
< A LOOP AT AROUND .BD90.                                         X32722
< AS FSAVE'S PATCH AREA WAS CONSUMED BY X32600 AND X32291, THE    X32722
< UNRELATED MESSAGE " ***FIT DISC ADDRESS IN FILE DIRECTORY       X32722
< TO MAKE ROOM FOR A PSEUDO PATCH AREA.                           X32722
< GENMDS TO FSAVE.                                                X32722
,FSTART+D7C,32200008(72F0000A).          RMS EXP-F 800620 001-027 X32722
,FSTART+D7D,72F0000A(21F00003).          RMS EXP-F 800620 002-027 X32722
,FSTART+D7E,21F00003(69300D85+FSTART).   RMS EXP-F 800620 003-027 X32722
,FSTART+D7F,69300F97+FSTART(33E00081+DATASEC).  -F 800620 004-027 X32722
,FSTART+D80,22100F97+FSTART(04100079+DATASEC).  -F 800620 005-027 X32722
,FSTART+D81,3510007B+DATASEC(04100E3C+FSTART).  -F 800620 006-027 X32722
,FSTART+D82,4610007C+DATASEC(33200081+DATASEC). -F 800620 007-027 X32722
,FSTART+D83,33E00081+DATASEC(04100079+DATASEC). -F 800620 008-027 X32722
,FSTART+D84,04100079+DATASEC(E8000008).  RMS EXP-F 800620 009-027 X32722
,FSTART+D85,04100E3C+FSTART(22F00000).   RMS EXP-F 800620 010-027 X32722
,FSTART+D86,33200081+DATASEC(35F00100+DATASEC). -F 800620 011-027 X32722
,FSTART+D87,04100079+DATASEC(22F00F09+FSTART).  -F 800620 012-027 X32722
,FSTART+D88,3510007B+DATASEC(04200E70+FSTART).  -F 800620 013-027 X32722
,FSTART+D89,68000F9C+FSTART(E8000008).   RMS EXP-F 800620 014-027 X32722
,FSTART+F91,1740C6C9(3140405C).          RMS EXP-F 800620 015-027 X32722
,FSTART+F92,E340C4C1(5C5CC6C9).          RMS EXP-F 800620 016-027 X32722
,FSTART+F93,40C5D9D9(E340C4C9).          RMS EXP-F 800620 017-027 X32722
,FSTART+F94,D6D940C9(E2C340C1).          RMS EXP-F 800620 018-027 X32722
,FSTART+F95,D540C6C4(C4C4D9C5).          RMS EXP-F 800620 019-027 X32722
,FSTART+F96,40D2C5E8(E2E240C5).          RMS EXP-F 800620 020-027 X32722
,FSTART+F97,22F00000(D9D9D6D9).          RMS EXP-F 800620 021-027 X32722
,FSTART+F98,35F00100+DATASEC(40C9D540).  RMS EXP-F 800620 022-027 X32722
,FSTART+F99,22F00F09+FSTART(C6C9D3C5).   RMS EXP-F 800620 023-027 X32722
,FSTART+F9A,04200E70+FSTART(40C4C9D9).   RMS EXP-F 800620 024-027 X32722
,FSTART+F9B,E8000002(C5C3E3D6).          RMS EXP-F 800620 025-027 X32722
,FSTART+F9C,3510007C+DATASEC(D9E840D2).  RMS EXP-F 800620 026-027 X32722
,FSTART+F9D,E8000002(C5E84040).          RMS EXP-F 800620 027-027 X32722
6/18/80**************
< IF RBBAT ABORTS, THIS PATCH WILL CAUSE A SCREECH BB-BB.         X32677
< THE SIDE EFFECT IS THAT INPUT AND OUTPUT SYMBIONTS WILL         X32677
< NO LONGER GET LOST ON THE RBBAT ABORT.                          X32677
/ALTCP+.1EF/B @(CI,15 .4C0/              GAF EXP-F 800618 001-007 X32677
/@/CI,4 3/                               GAF EXP-F 800618 002-007 X32677
/@/BE @+3/                               GAF EXP-F 800618 003-007 X32677
/@/CI,15 .4C0/                           GAF EXP-F 800618 004-007 X32677
/@/B ALTCP+.1F0/                         GAF EXP-F 800618 005-007 X32677
/@/XPSD,10 RCVPSD/                       GAF EXP-F 800618 006-007 X32677
/@/.00BB00BB/                            GAF EXP-F 800618 007-007 X32677
< THIS GENMD TO CONTROL FIXES A WEE TIMING WINDOW WHERE CONTROL   XCNTRL
< CAN CHANGE PL:CHG WITHOUT CHECKING PL:LK. IF RBBAT FINDS THE    XCNTRL
< CHANGED VALUE THERE AT THE WRONG TIME, RBBAT WILL GET AN        XCNTRL
< A4-04 ON A 560, OR A LATER MBS SCREECH 2C-00 ON SIGMA.          XCNTRL
:GENMD,CONTROL +B129,68000000+PATCH(47510000+PL:CHG).     001-005 XCNTRL
:GENMD,CONTROL PATCH+0,32810000+PL:LK(0).GAF EXP-F 800618 002-005 XCNTRL
:GENMD,CONTROL PATCH+1,69300000+PATCH(0).GAF EXP-F 800618 003-005 XCNTRL
:GENMD,CONTROL PATCH+2,47510000+PL:CHG(0).   EXP-F 800618 004-005 XCNTRL
:GENMD,CONTROL PATCH+3,6800B12A(0).      GAF EXP-F 800618 005-005 XCNTRL
6/13/80************************
< REPLACEMENT FOR PATCH OF SAME I.D., DATED 800501                X32667
< CODE IS IN, CAUSING WRONG MESSAGE TO BE PRINTED.                X32667
UMOV/INITRCVR+.4E/B @(LW,13 TABLES+.25D/ GAF EXP-F 800613 001-008 X32667
/@/LW,13 TCATCH+.51/                     GAF EXP-F 800613 002-008 X32667
/@/CI,13 .10/                            GAF EXP-F 800613 003-008 X32667
/@/BAZ $+3/                              GAF EXP-F 800613 004-008 X32667
/@/LW,13 TABLES+.26D/                    GAF EXP-F 800613 005-008 X32667
/@/B INITRCVR+.4F/                       GAF EXP-F 800613 006-008 X32667
/@/LW,13 TABLES+.25D/                    GAF EXP-F 800613 007-008 X32667
/@/B INITRCVR+.4F/                       GAF EXP-F 800613 008-008 X32667
< REPLACEMENT FOR PATCH OF SAME I.D., DATED 01/20/80              X32542
< (CONDITIONALS ADDED)                                            X32542
< MODIFICATIONS TO IOQ BETWEEN D00 AND F00 DO NOT RESET BIT       X32542
< 3 OF DCT3. FOR VISTA TERMINALS                                  X32542
#V2IO                                    MKS EXP-F 800613 001-007 X32542
UMOV/V2IO+.A1/B @(B IOQ+.2F5)/           MKS EXP-F 800613 002-007 X32542
/@/LB,0 DCT3,1/                          MKS EXP-F 800613 003-007 X32542
/@/AND,0 *IOQ+.48E/                      MKS EXP-F 800613 004-007 X32542
/@/STB,0 DCT3,1/                         MKS EXP-F 800613 005-007 X32542
/@/B IOQ+.2F5/                           MKS EXP-F 800613 006-007 X32542
#                                        MKS EXP-F 800613 007-007 X32542
< REPLACEMENT PATCH FOR SAME I.D. DATED 800501                    X32675
< DONT DISCONNECT LINE IF AN RBT SENDS PEND INSTEAD OF WAB.       X32675
#HASPIO                                  PLS EXP-F 800613 001-005 X32675
UMOV/HASPIO+.28/B @(B BSCIO+6/           PLS EXP-F 800613 002-005 X32675
/@/AND,11 LITERALS+.5B/                  PLS EXP-F 800613 003-005 X32675
/@/B BSCIO+6/                            PLS EXP-F 800613 004-005 X32675
#                                        PLS EXP-F 800613 005-005 X32675
< REPLACEMENT FOR PATCH OF SAME I.D. DATED 800501                 X32674
< STOP POSSIBLE 7E-40 IF AN RBT SENDS .80 SCB AND NEXT BLOCK      X32674
< CONTAINS SAME RCB.                                              X32674
#HASPIO                                  PLS EXP-F 800613 001-005 X32674
UMOV/HASPIO+.DF/BE @(BE HASPIO+.E5/      PLS EXP-F 800613 002-005 X32674
/@/LB,5 STB:Q,4/                         PLS EXP-F 800613 003-005 X32674
/@/B HASPIO+.E5/                         PLS EXP-F 800613 004-005 X32674
#                                        PLS EXP-F 800613 005-005 X32674
< A TYPOGRAPHICAL ERROR HAS BEEN DETECTED IN THE THIRD CARD OF THREE
< OF PATCH X32163, TO MISOV. THE BAZ TO UCAL + 166 SHOULD BE A BAZ
< TO UCAL + 1C6. IT HAS BEEN CORRECTED IN THIS FILE, IN SELECT-
< USERS, AND PATCH-USERS.
<******************SST 6-80*******************************************
5/21/80**************
< ALLOW OLTEST TO RUN WITHOUT A PATCH FILE.                       X32725
:GENMD,OLMON +A521,21B00301(21B00300).   GG  EXP-F 800523 001-001 X32725
<************************SST 5-80**********************************
05/01/80**************
< STOP :USERS FROM HANGING WHEN USER AUTOSAVED.                   X32672
LDLNK/LNKTRC+.3F8/B @(LI,4 .8000/        PS  EXP-F 800501 001-006 X32672
/@/LH,4 UH:FLG,1/                        PS  EXP-F 800501 002-006 X32672
/@/AND,4 LITERALS+6/                     PS  EXP-F 800501 003-006 X32672
/@/BNEZ T:OV+.12F/                       PS  EXP-F 800501 004-006 X32672
/@/LI,4 .8000/                           PS  EXP-F 800501 005-006 X32672
/@/B LNKTRC+.3F9/                        PS  EXP-F 800501 006-006 X32672
UMOV/HASPIO+.78/B @(B BSCIO+6/           PS  EXP-F 800501 001-003 X32675
/@/AND,11 LITERALS+.5B/                  PS  EXP-F 800501 002-003 X32675
/@/B BSCIO+6/                            PS  EXP-F 800501 003-003 X32675
< STOP POSSIBLE 7E-40 IF AN RBT SENDS .80 SCB AND NEXT BLOCK      X32674
< CONTAINS SAME RCB.                                              X32674
UMOV/HASPIO+.DF/BE @(BE HASPIO+.E5/      PS  EXP-F 800501 001-003 X32674
/@/LB,5 STB:Q,4/                         PS  EXP-F 800501 002-003 X32674
/@/B HASPIO+.E5/                         PS  EXP-F 800501 003-003 X32674
< INITRCVR SOMETIMES IGNORES WHICH REGISTER BLOCK THE SCREECH     X32667
< CODE IS IN, CAUSING WRONG MESSAGE TO BE PRINTED.                X32667
UMOV/INITRCVR+.4E/B @(LW,13 S AVEREGS+15/RS  EXP-F 800501 001-008 X32667
/@/LW,13 RCVPSD+1/                       RS  EXP-F 800501 002-008 X32667
/@/CI,13 .10/                            RS  EXP-F 800501 003-008 X32667
/@/BAZ $+3/                              RS  EXP-F 800501 004-008 X32667
/@/LW,13 SAVEREGS1+15/                   RS  EXP-F 800501 005-008 X32667
/@/B INITRCVR+.4F/                       RS  EXP-F 800501 006-008 X32667
/@/LW,13 SAVREGS+15/                     RS  EXP-F 800501 007-008 X32667
/@/B INITRCVR+.4F/                       RS  EXP-F 800501 008-008 X32667
< CORRECTED VERSION OF GENMD TO ANALZ WITH SAME NUMBER DATED      X32229
< 01/04/80. THIS VERSION HAS BEEN SUCCESSFULLY TESTED.            X32229
< FORMAT INSTRUCTION ADDRESS CORRECTLY IN ANALZ TSTACK DISPLAY.   X32229
<  7 GENMDS TO ANALZ; USES PATCH+28(.1E) THRU PATCH+35(.23)       X32229
ANALZO5,PPO5+8CF,6800001E+PATCH(4B300002+PPO5). -F 800501 001-007 X32229
ANALZ,PATCH+1E,31300023+PATCH;.          SW  EXP-F 800501 002-007 X32229
,68400021+PATCH(0);.                     SW  EXP-F 800501 003-007 X32229
,4B300000+M17(0);.                       SW  EXP-F 800501 004-007 X32229
,4B300002+PPO5;.                         SW  EXP-F 800501 005-007 X32229
,680008D0+PPO5(0);.                      SW  EXP-F 800501 006-007 X32229
,1C000000(0).                            SW  EXP-F 800501 007-007 X32229
4/22/80*********************
< A TYPOGRAPHICAL ERROR HAS BEEN DETECTED IN CARD 1 OF 1 OF
< X32420, A GENMD TO PIGEON. 'P1GPP' HAS BEEN CORRECTED TO 'PIGPP'.
********************
#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
/@/.000000BF/                            JBC F00 04/22/80 007-008 XE-007
#1                                       JBC F00 04/22/80 008-008 XE-007
#NSCPU                                   JBC F00 04/22/80 001-008 X32566
< SLAVE POWER FAIL SAFE DOES NOT LOAD THE USERS MAPS CORRECTLY    X32566
< ON POWER ON, THIS CAN CAUSE MANY PROBLEMS, MOST HAVE BEEN       X32566
< 7E-40 ON MP SYSTEMS AFTER A POWER FAILURE                       X32566
/SFAULT+.109/B @(BAL,12 SMON+.E/         JBC F00 04/22/80 002-008 X32566
/@/BAL,12 SMON+.E/                       JBC F00 04/22/80 003-008 X32566
/@/LW,4 S:CUN/                           JBC F00 04/22/80 004-008 X32566
/@/BEZ SFAULT+.10A/                      JBC F00 04/22/80 005-008 X32566
/@/LI,11 SFAULT+.10A/                    JBC F00 04/22/80 006-008 X32566
/@/B MM+.3BE/                            JBC F00 04/22/80 007-008 X32566
#1                                       JBC F00 04/22/80 008-008 X32566
< ***********************************************************     X32649
< REPLACEMENT PATCH FOR #31611 DATED 01/11/79 AND FOR             X32649
<        # X31611 DATED 01/19/80                                  X32649
< FIXES PROBLEM OF RCE INITIALIZATION ON SYSTEMS WITH >128 K      X32649
< THAT WOULD CAUSE SOME SBCES NOT TO BE REPORTED                  X32649
<                                                                 X32649
< MAKE MOS INITIALIZATION RUN UNMAPPED..AND THUS USABLE BY GHOST1 X32649
< AND CONTROL                                                     X32649
< 3 PATCHES, 1 TO ROOT/INITIAL, 1 TO GHOST11, 1 GENMD TO CONTROL  X32649
/@@/TUNA! 0/                             JBC F00 04/21/80 001-024 X32649
/@/0/                                    JBC F00 04/21/80 002-024 X32649
/@/INITIAL+.5C/                          JBC F00 04/21/80 003-024 X32649
/@/XPSD,0 TUNA/                          JBC F00 04/21/80 005-024 X32649
/INITIAL+.8F/B @(B *11/                  JBC F00 04/21/80 006-024 X32649
/@/LI,5 .1FFFF/                          JBC F00 04/21/80 007-024 X32649
/@/LW,4 11/                              JBC F00 04/21/80 008-024 X32649
/@/STS,4 TUNA/                           JBC F00 04/21/80 009-024 X32649
/@/LPSD,0 TUNA/                          JBC F00 04/21/80 010-024 X32649
/COCD+.59/B TUNA+.4/                     JBC F00 04/21/80 011-024 X32649
/PFSR+.9F/BAL,11 COCD+.59(BAL,11 INITIAL+.5C/F00 04/21/80 012-024 X32649
#TUNA;K1                                 JBC F00 04/21/80 013-024 X32649
< REPLACEMENT PATCH FOR #X31611 DATED 01/11/79                    X32649
< *** SOLVES 7E-40 DURING PFSR *******************                X32649
< ** AND THE SYSTEM HANG ON PFSR CAUSED BY 01/11/79 VERSION **    X32649
< SOLVES THE "TOPROOT MUST BE BELOW X'8000'" RESTRICTION          X32649
< =====> NOTE: THIS PATCH DEPENDS ON A SPARE CELL AT THE END      X32649
<              OF COCD (COCD+.59)                                 X32649
< ***********************************************************     X32649
GHOST11/GHOST1D+.D8/BAL,11 COCD+.59(BAL,11 INITIAL+.5C/   014-024 X32649
< REPLACEMENT PATCH FOR #X31611 DATED 01/11/79                    X32649
< *** SOLVES 7E-40 DURING PFSR *******************                X32649
< ** AND THE SYSTEM HANG ON PFSR CAUSED BY 01/11/79 VERSION **    X32649
< SOLVES THE "TOPROOT MUST BE BELOW X'8000'" RESTRICTION          X32649
< =====> NOTE: THIS PATCH DEPENDS ON A SPARE CELL AT THE END      X32649
<              OF COCD (COCD+.59)                                 X32649
< ***********************************************************     X32649
< 2 PATCHES, 1 TO ROOT/INITIAL, 1 GENMD TO CONTROL                X32649
:GENMD,CONTROL MOS+1AE,02000000.         JBC F00 04/21/80 015-024 X32649
:GENMD,CONTROL MOS+1AF,02000000.         JBC F00 04/21/80 016-024 X32649
:GENMD,CONTROL MOS+1B0,02000000.         JBC F00 04/21/80 017-024 X32649
:GENMD,CONTROL MOS+1B2,68000000+MOS:PP.  JBC F00 04/21/80 018-024 X32649
:GENMD,CONTROL MOS:PP+0,22400001(00000BAD).  F00 04/21/80 019-024 X32649
:GENMD,CONTROL MOS:PP+1,35B00007(00000BAD).  F00 04/21/80 020-024 X32649
:GENMD,CONTROL MOS:PP+2,6AB00059+COCD:(00000BAD).04/21/80 021-024 X32649
:GENMD,CONTROL MOS:PP+3,32B00007(00000BAD).  F00 04/21/80 022-024 X32649
:GENMD,CONTROL MOS:PP+4,6D000027(00000BAD).  F00 04/21/80 023-024 X32649
:GENMD,CONTROL MOS:PP+5,680001B3+MOS(00000BAD).  04/21/80 024-024 X32649
< A SMALL TIMING WINDOW EXIST IN KEYIN SUCH THAT KEYIN'S          XE-011
< AVR ENDACTION ROUTINE CAN CLOBBER OTHER WORDS IN MEMORY         XE-011
< USUALLY SHOWS UP AS A TRAP40 WITH TRAP WORD = X'01000001'       XE-011
KEYIN/KEYN+.439/B @(LW,1 S:CUN/          JBC F00 04/22/80 001-004 XE-011
/@/WD,0 .37/                             JBC F00 04/22/80 002-004 XE-011
/@/LW,1 S:CUN/                           JBC F00 04/22/80 003-004 XE-011
/@/B KEYN+.43A/                          JBC F00 04/22/80 004-004 XE-011
#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 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
< A FAULT ON A 7275 CAN SOMETIMES SEEM TO HANG THE SYSTEM         XE-010
< PATCH IS TO IOQ, DUAL ACCESS REJECT PATH                        XE-010
UMOV/IOQ+.247/B @(BAZ IOQ+.253/          JBC F00 04/22/80 001-006 XE-010
/@/SCS,13 4/                             JBC F00 04/22/80 002-006 XE-010
/@/LC 13/                                JBC F00 04/22/80 003-006 XE-010
/@/BCR,6 IOQ+.248/                       JBC F00 04/22/80 004-006 XE-010
/@/BCR,4 IOQ+.253/                       JBC F00 04/22/80 005-006 XE-010
/@/B IOQ+.248/                           JBC F00 04/22/80 006-006 XE-010
< 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
<                                                                 XE-009
:GENMD,ANALZ PATCH+11,22100393+PP(0).    JBC F00 04/21/80 002-017 XE-009
:GENMD,ANALZ PATCH+12,35100018+PATCH(0). JBC F00 04/21/80 003-017 XE-009
:GENMD,ANALZ PATCH+13,2280E4C3(0).       JBC F00 04/21/80 004-017 XE-009
:GENMD,ANALZ PATCH+14,68000016+PATCH(0). JBC F00 04/21/80 005-017 XE-009
:GENMD,ANALZ PATCH+15,2280D3D7(0).       JBC F00 04/21/80 006-017 XE-009
:GENMD,ANALZ PATCH+16,09100002+DATA(0).  JBC F00 04/21/80 007-017 XE-009
:GENMD,ANALZ PATCH+17,680008AC+PP(0).    JBC F00 04/21/80 008-017 XE-009
:GENMD,ANALZ PATCH+18,0.                 JBC F00 04/21/80 009-017 XE-009
:GENMD,ANALZ PP+8AB,68000015+PATCH(09100002+DATA).        010-017 XE-009
:GENMD,ANALZ PP+8CB,80000008(0000D3D7).  JBC F00 04/21/80 011-017 XE-009
:GENMD,ANALZ PP+206,22000019+PATCH(22000393+PP). 04/21/80 012-017 XE-009
:GENMD,ANALZ PATCH+19,2210009A+DATA(0).  JBC F00 04/21/80 013-017 XE-009
:GENMD,ANALZ PATCH+1A,22000393+PP(0).    JBC F00 04/21/80 014-017 XE-009
:GENMD,ANALZ PATCH+1B,33000018+PATCH(0). JBC F00 04/21/80 015-017 XE-009
:GENMD,ANALZ PATCH+1C,E8300000(0).       JBC F00 04/21/80 016-017 XE-009
:GENMD,ANALZ PATCH+1D,68000979+PP(0).    JBC F00 04/21/80 017-017 XE-009
< FILL WILL REQUEST A SECOND TAPE (AND KEEP THE FIRST TAPE FOREVERXE-012
< ON BACKUPS, IF HE GETS A 1400 TYPE ERROR ON THE FIRST FILE HE   XE-012
< TRIES TO OPEN (WILL ALSO BE FIRST FILE HE IS TRYING TO PUT      XE-012
< ON TAPE ).                                                      XE-012
:GENMD,FILL BACKUP+427,6AB00010+PATCH(6AB00154+BACKUP).   001-003 XE-012
:GENMD,FILL PATCH+10,35B0016F+BACKUPD.   JBC F00 04/23/80 002-003 XE-012
:GENMD,FILL PATCH+11,68000154+BACKUP.    JBC F00 04/23/80 003-003 XE-012
4/8/80*********************
< ACCNTSUM CANT HANDLE ELAPSED TIMES GREATER THAN 1 DAY.          XACCTS
:GENMD SECTION2+173,32B000EE+SECTION3(31D0000F).-F 800408 001-007 XACCTS
:GENMD SECTION2+174,38B000EA+SECTION3(68100176+SECTION2). 002-007 XACCTS
:GENMD SECTION2+175,69200008+PATCH(20D15180).EXP-F 800408 003-007 XACCTS
:GENMD PATCH+8,20D15180(0).              RMS EXP-F 800408 004-007 XACCTS
:GENMD PATCH+9,33F0000B(0).              RMS EXP-F 800408 005-007 XACCTS
:GENMD PATCH+A,69200008+PATCH(0).        RMS EXP-F 800408 006-007 XACCTS
:GENMD PATCH+B,68000176+SECTION2(0).     RMS EXP-F 800408 007-007 XACCTS
******************** SST 4-80 *************************************
03/31/80
< NOTE: PATCHES/GENMDS FOR SIDRS #32219,31918,AND 32098 HAVE BEEN
< CORRECTED IN THE OFFICIAL PATCH FILES; USER VERSIONS IN THE
< USER VERSIONS HAVE BEEN REPLACED.
03/24/80********************
< NOTE: A TYPOGRAPHICAL ERROR HAS BEEN DETECTED IN CARD 17 OF 20
< OF X32597. THE '22E000IC' SHOULD BE '22E0001C'. CORRECTED
< CARD HAS BEEN ENTERED IN PATCH-USERS:
,22E0001C;                               SW  F00 03/03/80 017-020 X32597
03/22/80*****************
< FSAVE SOMETIMES OVER-REACTS TO LARGE, HEAVILY UPDATED KEYED     X32291
< FILES, AND REPORTS RCBERR. USER SHOULD MAKE A VISUAL RECORD     X32291
< COUNT CHECK WHEN THAT HAPPENS, BUT MULTIPLE SNAPS ARE AN        X32291
< OVERKILL. THIS GENMD CHANGES THOSE RCBERRORS TO 'FILE MAY       X32291
< BE PARTIAL'. **NOTE: THIS PATCH SHOULD NOT BE INSTALLED WITHOUT X32291
< 122-CARD X32600.                                                X32291
,FSTART+4F9,6A00005A+FPATCH(6A000581+FSTART).F00 03/21/80 001-010 X32291
,FPATCH+5A,330006B9+DATASEC.             RMS F00 03/21/80 002-010 X32291
,FPATCH+5B,69300581+FSTART.              RMS F00 03/21/80 003-010 X32291
,FPATCH+5C,330006BA+DATASEC.             RMS F00 03/21/80 004-010 X32291
,FPATCH+5E,3210000F.                     RMS F00 03/21/80 006-010 X32291
,FPATCH+5F,22F00FBC+FSTART.              RMS F00 03/21/80 007-010 X32291
,FPATCH+60,04200E70+FSTART.              RMS F00 03/21/80 008-010 X32291
,FPATCH+61,32F00001.                     RMS F00 03/21/80 009-010 X32291
,FPATCH+62,680004FA+FSTART.              RMS F00 03/21/80 010-010 X32291

******************** SST 3-80 *************************************
02/29/80 ************
<::::::::::: SOME MPC TAPE PATCHES ::::::::::::::::::
<
< THE FOLLOWING SET OF PATCHES SHOULD BE INSTALLED IN YOUR SYSTEM
< IF YOU HAVE MPC TAPE DRIVES.  IN ADDITION, PATCH E-006 SHOULD
< BE INSTALLED IN ANY SYSTEM HAVING MPC CONTROLLED DEVICES.
<
< BE SURE AND READ THE NOTICE ABOUT PATCH E-001.
<
< ALL PATCHES, EXCEPT E-001, CAN BE INSTALLED WITHOUT ANY SYSTEM
< MODIFICATIONS
<
<::::::::::::::::::::::::::::::::::::::::::::::::::::
#MPCTIO                                  JBC F00 01/23/80 001-023 XE-004
< FIX PROBLEM OF DENSITY CHANGE CELLS NOT GETTING ZEROED EXCEPT   XE-004
< ON TAPE REWINDS.  PATCH ZERO AFTER EACH SUCCESSFUL READ.        XE-004
UMOV/MPCTIO+.60/B @(BCR,9 IOQ+.2F5/      JBC F00 01/23/80 002-023 XE-004
/@/LI,11 0/  ZERO SOURCE                 JBC F00 01/23/80 003-023 XE-004
/@/LH,5 DCT7,1/ CLIST DW ADDRESS         JBC F00 01/23/80 004-023 XE-004
/@/STD,11 12,5/ ZERO THE CELLS           JBC F00 01/23/80 005-023 XE-004
/@/EXU MPCTIO+.5F/ REDO THE CLM          JBC F00 01/23/80 006-023 XE-004
/@/BCR,9 IOQ+.2F5/ REDO INST             JBC F00 01/23/80 007-023 XE-004
/@/B MPCTIO+.61/ EXIT BACK               JBC F00 01/23/80 008-023 XE-004
< SECOND PART OF THIS PATCH WILL CAUSE THE INITIAL READ TO BE     XE-004
< INCOMPATIABLE MODE ERROR (BAD DENSITY), THEN WE JUST SWITCH     XE-004
< DENSITY AND TRY ONCE AT THE OTHER DENSITY.                      XE-004
UMOV/MPCTIO+.23D/B @(CI,6 2/             JBC F00 01/23/80 009-023 XE-004
/@/CI,7 3/ BEEN HERE 3 TIMES             JBC F00 01/23/80 010-023 XE-004
/@/BG $+3/ YES,CHK NEXT TYPE             JBC F00 01/23/80 011-023 XE-004
/@/AI,7 1/ TRY AGAIN                     JBC F00 01/23/80 012-023 XE-004
/@/B MPCTIO+.239/ CONTINUE               JBC F00 01/23/80 013-023 XE-004
/@/CI,6 2/ BOTH DENS TRIED?              JBC F00 01/23/80 014-023 XE-004
/@/BGE MPCTIO+.23F/ YES, ABORT           JBC F00 01/23/80 015-023 XE-004
/@/LI,7 0/ ZERO=>3 TIME CNTR             JBC F00 01/23/80 016-023 XE-004
/@/LW,8 LITERALS+.22/ Y4                 JBC F00 01/23/80 017-023 XE-004
/@/B MPCTIO+.237/ CONTINUE AT 800 BPI    JBC F00 01/23/80 018-023 XE-004
< IF WE CANT READ THE TAPE MAKE SURE WE ZERO THE CHK              XE-004
< CELLS FOR THE NEXT MOUNT TRY                                    XE-004
UMOV/MPCTIO+.241/B @(B IOQ+.2F5/         JBC F00 01/23/80 019-023 XE-004
/@/LI,7 0/                               JBC F00 01/23/80 020-023 XE-004
/@/STD,7 12,5/ ZERO THE CELLS            JBC F00 01/23/80 021-023 XE-004
/@/B IOQ+.2F5/ GOTO IOSCU                JBC F00 01/23/80 022-023 XE-004
#1                                       JBC F00 01/23/80 023-023 XE-004
#MPCTIO                                  JBC F00 01/25/80 001-017 XE-005
< PATCH WILL FORCE ALL MPC TAPE RETRY COUNTS TO 64 IF LESS        XE-005
< THAN 64                                                         XE-005
UMOV/IOQ+.26/B @(AND,11 12/              JBC F00 01/25/80 002-017 XE-005
/@/AND,11 12/ GET RETRY COUNT            JBC F00 01/25/80 003-017 XE-005
/@/LB,2 IOQ7,3/ GET DCTX                 JBC F00 01/25/80 004-017 XE-005
/@/LB,8 DCT24,2/  GET MPC FLAG           JBC F00 01/25/80 005-017 XE-005
/@/CI,8 4/ MPC?                          JBC F00 01/25/80 006-017 XE-005
/@/BAZ $+8/  NO                          JBC F00 01/25/80 007-017 XE-005
/@/LB,2 DCT4,2/ GET TYPE INDEX           JBC F00 01/25/80 008-017 XE-005
/@/LC TB:FLGS,2/  GET TYPE FLAGS         JBC F00 01/25/80 009-017 XE-005
/@/BCS,4 $+5/  NOT TAPE                  JBC F00 01/25/80 010-017 XE-005
/@/BCR,8 $+4/ NO TAPE                    JBC F00 01/25/80 011-017 XE-005
/@/CI,11 64/  CHK FOR MIN                JBC F00 01/25/80 012-017 XE-005
/@/BGE $+2/  OK                          JBC F00 01/25/80 013-017 XE-005
/@/LI,11 64/  SET IT                     JBC F00 01/25/80 014-017 XE-005
/@/LI,2 0/ ZERO TO 2 AGAIN               JBC F00 01/25/80 015-017 XE-005
/@/B IOQ+.27/  EXIT BACK TO IOQ          JBC F00 01/25/80 016-017 XE-005
#1                                       JBC F00 01/25/80 017-017 XE-005
< IF AN MPC CONTROLLER GOES DOWN WHILE THE SYSTEM IS RUNNING AND  XE-006
< A RECOVERY OCCURS THE SYSTEM WILL NOT COME BACK UP.  THE REASON XE-006
< IS DUE TO INITRCVR'S LONELINESS AND SUBSEQUENT NEED TO TALK TO  XE-006
< THE MPC'S AND HE WONT GIVE UP TRYING TO TALK TO THEM.  THIS PATCXE-006
< WILL CAUSE INITRCVR TO ACT LIKE RECOVER AND ALLOW YOU TO SKIP   XE-006
< DOWNLOADING AN MPC.  THE MPC ADDRESS WILL ALSO BE DISPLAYED.    XE-006
< PATCH ALSO MAKES RECOVER ACT LIKE INITRCVR :                    XE-006
<      STEP ONCE TO RETRY LOAD/ TWICE TO SKIP LOAD                XE-006
< PATCH IS 2 PARTS  13 CARDS TO UMOV;   8 CARDS TO RECOVER        XE-006
<                                                                 XE-006
< PATCHES TO UMOV, MAKE INITRCVR ACT CORRECTLY                    XE-006
UMOV/INITRCVR+.214/B @(HIO,0 1/          JBC F00 02/27/80 001-021 XE-006
/@/SLS,2 -4/  GET RID OF DEVICE          JBC F00 02/27/80 003-021 XE-006
/@/LI,4 2/  LOOP CNTR                    JBC F00 02/27/80 004-021 XE-006
/@/SLD,2 -4/  GET DIGIT                  JBC F00 02/27/80 005-021 XE-006
/@/SLS,3 -28/ DOWN FOR INDX              JBC F00 02/27/80 006-021 XE-006
/@/LB,3 LITERALS+.93,3/  HEX             JBC F00 02/27/80 007-021 XE-006
/@/STB,3 INITRCVR+.222,4/                JBC F00 02/27/80 008-021 XE-006
/@/BDR,4 $-4/  CONTINUE                  JBC F00 02/27/80 009-021 XE-006
/@/HIO,0 1/                              JBC F00 02/27/80 010-021 XE-006
/@/B INITRCVR+.215/                      JBC F00 02/27/80 011-021 XE-006
UMOV/INITRCVR+.222/.C34040F0/            JBC F00 02/27/80 012-021 XE-006
UMOV/INITRCVR+.21B/B *14/  EXIT DWNLOAD  JBC F00 02/27/80 013-021 XE-006
< IF AN MPC CONTROLLER GOES DOWN WHILE THE SYSTEM IS RUNNING AND  XE-006
< A RECOVERY OCCURS THE SYSTEM WILL NOT COME BACK UP.  THE REASON XE-006
< IS DUE TO INITRCVR'S LONELINESS AND SUBSEQUENT NEED TO TALK TO  XE-006
< THE MPC'S AND HE WONT GIVE UP TRYING TO TALK TO THEM.  THIS PATCXE-006
< WILL CAUSE INITRCVR TO ACT LIKE RECOVER AND ALLOW YOU TO SKIP   XE-006
< DOWNLOADING AN MPC.  THE MPC ADDRESS WILL ALSO BE DISPLAYED.    XE-006
< PATCH ALSO MAKES RECOVER ACT LIKE INITRCVR :                    XE-006
<      STEP ONCE TO RETRY LOAD/ TWICE TO SKIP LOAD                XE-006
< PATCH IS 2 PARTS  13 CARDS TO UMOV;   8 CARDS TO RECOVER        XE-006
<                                                                 XE-006
<  PATCHES TO RECOVER FOLLOW, CHANGE MPCDUMP SKIP/AND/BRANCH      XE-006
< INSTRUCTIONS AND MESSAGE                                        XE-006
RECOVER/MPCDUMP+.6D/B MPCDUMP+.5B(B MPCDUMP+.106/         014-021 XE-006
RECOVER/MPCDUMP+.6E/B MPCDUMP+.106(B MPCDUMP+.5B/         015-021 XE-006
RECOVER/MPCDUMP+.39B/.D94B40D6(.D94B40E3/    F00 02/27/80 016-021 XE-006
RECOVER/MPCDUMP+.39C/.D5C3C540(.E6C9C3C5/    F00 02/27/80 017-021 XE-006
RECOVER/MPCDUMP+.39D/.E3D640D9(.40E3D640/    F00 02/27/80 018-021 XE-006
RECOVER/MPCDUMP+.39E/.C5E3D9E8(.D9C5E3D9/    F00 02/27/80 019-021 XE-006
RECOVER/MPCDUMP+.39F/.404DE3E6(.E8404DD6/    F00 02/27/80 020-021 XE-006
RECOVER/MPCDUMP+.3A0/.C9C3C540(.D5C3C540/    F00 02/27/80 021-021 XE-006
<****************************************************************
<  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
< USE THIS PATCH ALL HELL WILL BREAK LOOSE ON YOUR SYSTEM.        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
/@/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
/@/STW,9 12,5/ SENSE AREA                JBC F00 01/07/80 039-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
02/20/80*************
< NOTE: THE CONDITIONAL SYMBOL '#L6GA00' SHOULD BE MOVED IN THE
< PATCH DECK FROM ITS CURRENT LOCATION JUST BEFORE 'GENMD L6G' TO
< JUST AFTER 'GENMD L6G'. ITS CURRENT LOCATION CAN CAUSE CONFUSION.
< NOTE: THE GENMD'S TO VOLINIT CONTAINED HEREIN REQUIRE MODIFICATIONS
< DEPENDING ON THE VERSION OF VOLINIT IN USE. CP-V ONLINE VOLINIT AS
< RELEASED WITH CP-V F00 IS KNOWN AS VOLINIT VERSION E01; THE VERSION
< WHICH MAY REBUILT FROM FILES ON THE SST SINCE OCTOBER 1979 IS KNOWN
< AS VERSION 'E02'. CONDITIONAL SYMBOLS 'E01VOL' AND 'E02VOL' HAVE
< BEEN INSERTED IN THE FILE 'PATCH-USERS', AT THE START., WITH
< 'E02VOL' SET TO 1 AND 'E01VOL' SET TO 0. IN THE GENMD VOLINIT SECTION
< OF PATCH-USERS, THE THREE CURRENT GENMDS TO VOLINIT HAVE BEEN SET
< VERSION; 'XXXXXX' IS FOR E02 ONLY; THE ORIGINAL VERSION OF 'X32494'
< WAS FOR E01 ONLY, BUT A REVISION HAS BEEN INSERTED FOR VERSION E02.
< IF YOU HAVE NOT REBUILT VOLINIT FOR YOUR SYSTEM, REVERSE THE SETTINGS
< OF 'E01VOL' AND 'E02VOL'.
< MAKE VOLINIT HANDLE LARGE HGP SYSTEMS (E02).                    X32494
,VOLINIT+A78,0+AVRID(200+HGP).           GH  F00 01/04/80 001-001 X32494
*************************** SST 2-80 ******************************
02/12/80 ****************************************************
REMOVE PATCH X32418, AS PATCH #32418 IS NOW OFFICIAL.
02/01/80
< WHEN REMOVING AN ANS TAPE IN BATCH, PCL RETURNS A STEP          X32616
< CONDITION OF 2. IT SHOULD BE 0.                                 X32616
,REW+5E,68300018+PATCH(6830006C+REW).    JH  F00 02/01/80 001-003 X32616
,PATCH+18,35A0004E+BREAK.                JH  F00 02/01/80 002-003 X32616
,PATCH+19,6800006C+REW.                  JH  F00 02/01/80 003-003 X32616
< REMOVE USER VERSIONS OF #32442, #32443, #32446, AND #32567,
< AS THEY HAVE BEEN REPLACED BY CORRECTED OFFICIAL PATCHES.
01/22/80
< REPLACEMENT PATCH FOR #31611 DATED 01/11/79                     X31611
< *** SOLVES 7E-40 DURING PFSR *******************                X31611
< ** AND THE SYSTEM HANG ON PFSR CAUSED BY 01/11/79 VERSION **    X31611
< SOLVES THE "TOPROOT MUST BE BELOW X'8000'" RESTRICTION          X31611
< =====> NOTE: THIS PATCH DEPENDS ON A SPARE CELL AT THE END      X31611
<              OF COCD (COCD+.59)                                 X31611
< ***********************************************************     X31611
< MAKE MOS INITIALIZATION RUN UNMAPPED..AND THUS USABLE BY GHOST1 X31611
< AND CONTROL                                                     X31611
/@@/TUNA! $+3/                           RMS F00 01/19/80 001-026 X31611
/@/.07000000/                            RMS F00 01/19/80 002-026 X31611
/@/LPSD,0 TUNA/                          RMS F00 01/19/80 003-026 X31611
/@/B INITIAL+.5C/                        RMS F00 01/19/80 004-026 X31611
/INITIAL+.8F/B @(B *11/                  RMS F00 01/19/80 005-026 X31611
/@/CI,11 PFSR+.A0/                       RMS F00 01/19/80 006-026 X31611
/@/BE *11/                               RMS F00 01/19/80 007-026 X31611
< TO BE SMART, RECODE THE FOLLOWING CI,11 TO COMPARE WITH THE     X31611
< ACTUAL ADDRESS OF GHOST1D+.D9 IN YOUR SYSTEM. THEN CARD 9       X31611
< SHOULD BECOME 'BNE $+2'.                                        X31611
/@/CI,11 .A000/                          RMS F00 01/19/80 008-026 X31611
/@/BCS,1 $+2/                            RMS F00 01/19/80 009-026 X31611
/@/WD,0 .27/                             RMS F00 01/19/80 010-026 X31611
/@/BAL,1 MAP/                            RMS F00 01/19/80 011-026 X31611
/@/B *11/                                RMS F00 01/19/80 012-026 X31611
/COCD+.59/B TUNA+.2/                     RMS F00 01/19/80 013-026 X31611
/PFSR+.9F/BAL,11 COCD+.59(BAL,11 INITIAL+.5C/F00 01/19/80 014-026 X31611
#TUNA;K1                                 RMS F00 01/19/80 015-026 X31611
< REPLACEMENT PATCH FOR #31611 DATED 01/11/79                     X31611
< *** SOLVES 7E-40 DURING PFSR *******************                X31611
< ** AND THE SYSTEM HANG ON PFSR CAUSED BY 01/11/79 VERSION **    X31611
< SOLVES THE "TOPROOT MUST BE BELOW X'8000'" RESTRICTION          X31611
< =====> NOTE: THIS PATCH DEPENDS ON A SPARE CELL AT THE END      X31611
<              OF COCD (COCD+.59)                                 X31611
< ***********************************************************     X31611
< REPLACEMENT PATCH FOR #31611 DATED 01/11/79                     X31611
< *** SOLVES 7E-40 DURING PFSR *******************                X31611
< ** AND THE SYSTEM HANG ON PFSR CAUSED BY 01/11/79 VERSION **    X31611
< SOLVES THE "TOPROOT MUST BE BELOW X'8000'" RESTRICTION          X31611
< =====> NOTE: THIS PATCH DEPENDS ON A SPARE CELL AT THE END      X31611
<              OF COCD (COCD+.59)                                 X31611
< ***********************************************************     X31611
< MEMORY.....PERFORM THIS ACTION IN THE MONITOR ROOT...           X31611
< 2 PATCHES, 1 TO ROOT/INITIAL, 1 GENMD TO CONTROL                X31611
:GENMD,CONTROL MOS+1AE,02000000.         RMS F00 01/19/80 017-026 X31611
:GENMD,CONTROL MOS+1AF,02000000.         RMS F00 01/19/80 018-026 X31611
:GENMD,CONTROL MOS+1B0,02000000.         RMS F00 01/19/80 019-026 X31611
:GENMD,CONTROL MOS+1B2,68000000+MOS:PP.  RMS F00 01/19/80 020-026 X31611
:GENMD,CONTROL MOS:PP+0,22400001(00000BAD).  F00 01/19/80 021-026 X31611
:GENMD,CONTROL MOS:PP+1,35B00007(00000BAD).  F00 01/19/80 022-026 X31611
:GENMD,CONTROL MOS:PP+2,6AB00059+COCD:(00000BAD).01/19/80 023-026 X31611
:GENMD,CONTROL MOS:PP+3,32B00007(00000BAD).  F00 01/19/80 024-026 X31611
:GENMD,CONTROL MOS:PP+4,6D000027(00000BAD).  F00 01/19/80 025-026 X31611
:GENMD,CONTROL MOS:PP+5,680001B3+MOS(00000BAD).  01/19/80 026-026 X31611
01/18/80
< REPLACEMENT PATCH FOR SAME NUMBER DATED 6/13/79.                X31918
< CARD 1 OF 11 CONTAINED A BAD BRANCH INSTRUCTION, THE            X31918
< RESULTS OF WHICH ARE UNPREDICTABLE.                             X31918
<PREVENT DUPLICATE INTERNAL SYMBOL NAMES WHEN ONE FOLLOWS ANOTHER.X31918
EVL,MCEV+2A6,68000045+PATCH(88700000).   WM  F00 01/18/80 001-011 X31918
LDR,PATCH+45,32A60000.                   WM  F00 01/18/80 003-011 X31918
LDR,PATCH+46,32B00044+PATCH.             WM  F00 01/18/80 004-011 X31918
LDR,PATCH+47,32160001.                   WM  F00 01/18/80 005-011 X31918
LDR,PATCH+48,88700000.                   WM  F00 01/18/80 006-011 X31918
LDR,PATCH+49,45A60003.                   WM  F00 01/18/80 007-011 X31918
LDR,PATCH+4A,693002A7+MCEV.              WM  F00 01/18/80 008-011 X31918
LDR,PATCH+4B,31160004.                   WM  F00 01/18/80 009-011 X31918
LDR,PATCH+4C,693002A7+MCEV.              WM  F00 01/18/80 010-011 X31918
LDR,PATCH+4D,6800026F+MCEV.              WM  F00 01/18/80 011-011 X31918
< REPLACEMENT PATCH FOR SAME NUMBER DATED 03/28/79, WHICH         X32219
< HAD A BAD BRANCH INSTRUCTION IN CARD 3 OF 4. IT COULD           X32219
< RESULT IN A SYSTEM HANG (LOOP).                                 X32219
< PREVENT SC 7E-40 WHEN RBBAT RUNS OUT OF SN SPACE                X32219
,RBBP+E2,09A00000+TMPSTK(0).             WM  F00 01/18/80 001-004 X32219
,RBBP+E3,680007F9+RBG(0).                WM  F00 01/18/80 002-004 X32219
,RBG+D5E,6AB000E2+RBBP(6AB007F9+RBG).    WM  F00 01/18/80 003-004 X32219
,RBG+D61,08B00000+TMPSTK(32B0000A).      WM  F00 01/18/80 004-004 X32219
01/08/80****************************************************
< 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
< DELTA'S ';E' AND ';X' DON'T WORK AS ADVERTISED                  X31958
/TRAPC+.18/B @(LW,1 JIT+.48/             UNK F00 01/07/80 001-007 X31958
/@/LW,1 S:CUN/                           UNK F00 01/07/80 002-007 X31958
/@/LH,1 UH:FLG,1/                        UNK F00 01/07/80 003-007 X31958
/@/CI,1 .40/                             UNK F00 01/07/80 004-007 X31958
/@/BANZ TRAPC+.1B/                       UNK F00 01/07/80 005-007 X31958
/@/LW,1 JIT+.48/                         UNK F00 01/07/80 006-007 X31958
/@/B TRAPC+.19/                          UNK F00 01/07/80 007-007 X31958
<LET CPV DO THE ERROR CORRECTION ON RMP DISC DRIVES.              X32567
<THE 560 RMP ERROR CORRECTION WAS NOT ALWAYS DOING A GOOD JOB.    X32567
<MOVE THE ERROR CORRECTION BACK INTO CPV WHERE IT RESIDES FOR     X32567
<OTHER DRIVES. TO GET THE FULL BENIFIT OF THIS PATCH YOU          X32567
<SHOULD REALLY RESTORE A COMPLETE FILE SYSTEM ON FRESHLY          X32567
<VOLINITED PACKS.                                                 X32567
#X560                                    DGH F00 10/29/79 001-016 X32567
UMOV/HANDLERS .204/@+;Q(.2000000/        DGH F00 10/29/79 002-016 X32567
UMOV/HANDLERS .205/.200+;Q(.1E800200/    DGH F00 10/29/79 003-016 X32567
/@/AI,9 .200/                            DGH F00 10/29/79 004-016 X32567
<CHECK FOR DISC PACK                                              X32567
/@/CI,10 HANDLERS .1EB/                  DGH F00 10/29/79 005-016 X32567
/@/BNE HANDLERS .C5/                     DGH F00 10/29/79 006-016 X32567
<CHECK FOR RMP DISC                                               X32567
/@/LB,5 DCT22,1/                         DGH F00 10/29/79 007-016 X32567
/@/LW,11 NSPT,5/                         DGH F00 10/29/79 008-016 X32567
/@/CI,11 .C/                             DGH F00 10/29/79 009-016 X32567
/@/LW,11 NTPC,5/                         DGH F00 10/29/79 011-016 X32567
/@/CI,11 .13/                            DGH F00 10/29/79 012-016 X32567
/@/BNE HANDLERS .C5/                     DGH F00 10/29/79 013-016 X32567
<ITS AN RMP, MAKE ORDER CODE X'42'                                X32567
/@/OR,8 LITERALS+.22/ Y4                 DGH F00 10/29/79 014-016 X32567
/@/B HANDLERS .C5/                       DGH F00 10/29/79 015-016 X32567
#                                        DGH F00 10/29/79 016-016 X32567
< THE SWAP SCHEDULER CAN GET LOGJAMMED UNDER CERTAIN RATHER       X31209
< RARE CIRCUMSTANCES. IF YOU GET A MODERATE-SIZED USER IN         X31209
< CORE WHO IS WALKING THROUGH THE FILE SYSTEM USING NXTA AND      X31209
< NXTF, AND A REALLY BIG (MAXMEM) USER WHO IS AT JOB STEP         X31209
< (AND THUS ELIGIBLE FOR SPECIAL-COMPUTE STATUS) IS THE HIGHEST-  X31209
< PRIORITY USER ON THE INSWAP LIST, THINGS CAN GO ALL TO HELL     X31209
< SINCE: THE BIG GUY CAN'T BE INSWAPPED UNLESS THE FILE-SYSTEM    X31209
< WALKER GETS OUTSWAPPED ('CAUSE HE'S TOO BIG TO SHARE THE        X31209
< AVAILABLE MEMORY); THE WALKER WON'T GET OUTSWAPPED SINCE        X31209
< HE'S STAYING IN THE OPEN/CLOSE USER STATUS (WHICH HAS A HEALTHY X31209
< PRIORITY BOOST); AND NO ONE ELSE CAN GET IN 'CAUSE THEIR        X31209
< PRIORITIES ARE ALL TOO LOW. THUS, NOBODY BUT THE OPEN-CLOSE     X31209
< DUDE GETS ANY TIME AT ALL. ABORTING ANYBODY OR DOING ANYTHING   X31209
< ELSE TO PUSH SOME SMALL USER'S PRIORITY UP ABOVE THE BIG        X31209
< GUY'S WILL BREAK THE LOGJAM.                                    X31209
<                                                                 X31209
/SCHED+.247/BAL,1 @ (BAL,1 SCHED+.1F5/   DCP F00 01/07/80 001-006 X31209
/@/LB,2 UB:PCT,4/                        DCP F00 01/07/80 002-006 X31209
/@/SLS,2 1/                              DCP F00 01/07/80 003-006 X31209
/@/CW,2 TABLES+.46/                      DCP F00 01/07/80 004-006 X31209
/@/BL SCHED+.1F5/                        DCP F00 01/07/80 005-006 X31209
/@/B SCHED+.246/                         DCP F00 01/07/80 006-006 X31209
01/07/80*****************************************************
< FORMAT INSTRUCTION ADDRESS CORRECTLY IN ANLZ'S TSTACK DISPLAY.  X32229
<  THIS PATCH CAUSES ANLZ TO USE ONLY A 17-BIT ADDRESS FIELD      X32229
<  MASK WHEN FORMATTING AN INDEXED TYPE OF INSTRUCTION IN THE     X32229
<  TSTACK DISPLAY. NON-INDEXED TYPES OF INSTRUCTIONS (I.E.,       X32229
<  IMMEDIATE OR BYTE) ARE STILL DISPLAYED WITH A 19-BIT ADDRESS   X32229
<  FIELD.                                                         X32229
<                                                                 X32229
<  THE PROBLEM CAUSED BY ANLZ USING A 19-BIT ADDRESS FOR ALL      X32229
<  TYPES OF INSTRUCTIONS CAN BE ILLUSTRATED BY THE EXAMPLE        X32229
<  WHERE ANLZ DISPLAYS 'STS,12 *8C2A,3' AS 'STS,12 *68C2A,3'.     X32229
<                                                                 X32229
<  NOTE: THE ANALYZE INSTRUCTION CANNOT BE USED TO DETERMINE      X32229
<  WHAT TYPE OF INSTRUCTION IS BEING DEALT WITH (BECAUSE IT CAN   X32229
<  OFTEN TRAP FOR THE SLAVE MODE USER). THE TECHNIQUE USED HERE   X32229
<  IS TO LOOK AT THE THIRD THRU THE FIFTH BITS OF THE OP CODE     X32229
<  (BITS 3-5 OF THE INSTRUCTION WORD). IF NONE OF THESE ARE       X32229
<  SET, THE INSTRUCTION IS OF THE NON-INDEXED TYPE.               X32229
<                                                                 X32229
<  7 GENMDS TO ANALZ; USES PATCH+28(.IE) THRU PATCH+35(.23)       X32229
ANALZO5,PPO5+8CF,6800001E+PATCH(4B300002+PPO5).  01/04/80 001-007 X32229
,68400021+PATCH(0);                      SW  F00 01/04/80 003-007 X32229
,4B300000+M17(0);                        SW  F00 01/04/80 004-007 X32229
,4B300002+PPO5;                          SW  F00 01/04/80 005-007 X32229
,680008D0+PPO5(0);                       SW  F00 01/04/80 006-007 X32229
,1C000000(0).                            SW  F00 01/04/80 007-007 X32229
<*******************SST 1-80***************************************
01/04/80
< MAKE VOLINIT HANDLE LARGE HGP SYSTEMS                           X32494
,VOLINIT+A6E,0+AVRID(200+HGP).           GH  F00 01/04/80 001-001 X32494
< CHANGE 2-SECTOR COMPARE COUNT TO 1-SECTOR FOR ALL DEVICES       XXXXXX
< OTHER THAN RMP. (LISTING LABEL #BUFLEN).                        XXXXXX
,VTOC+D8D,68000000+PATCH(3570066D+VTOC). DL  F00 01/04/80 001-007 XXXXXX
,PATCH,3570066D+VTOC.                    DL  F00 01/04/80 002-007 XXXXXX
,PATCH+1,21700002.                       DL  F00 01/04/80 003-007 XXXXXX
,PATCH+2,68300D8E+VTOC.                  DL  F00 01/04/80 004-007 XXXXXX
,PATCH+3,22700400.                       DL  F00 01/04/80 005-007 XXXXXX
,PATCH+4,3570061F+VTOC.                  DL  F00 01/04/80 006-007 XXXXXX
,PATCH+5,68000D8E+VTOC.                  DL  F00 01/04/80 007-007 XXXXXX
<************************************************************
01/03/80
< DISK PACK ERRORS DONT COUNT DOWN BELOW 1 RETRY REMAINING,       X31270
< AND THEREFORE NO ERROR MESSAGE COMES OUT ON THE OC.             X31270
UMOV/HANDLERS+.255/LI,12 .8008(LI,12 .8/ RMS F00 01/03/80 001-002 X31270
UMOV/HANDLERS+.26C/BCR,1 HANDLERS+.247(BCS,3 ;Q/ 01/03/80 002-002 X31270
< ELLA MISCOMPUTES SLOT NUMBER FOR MOS                            X31644
:GENMD RT+1A3A,25C00071(25CC0071).       JJ  F00 01/02/80 001-001 X31644
< AND ABORTS ON SOME LEGITIMATE MESSAGE NAMES.                    X31665
TQOV1/TPQ1+.752/B TPQ1+.760(LI,15 .4B/   JB  F00 01/02/80 001-001 X31665
< 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
< 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
< APPROPRIATENESS OF THIS ACTION IS QUESTIONABLE, SINCE IF USER   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
<    Security problem - users can re-write load module HEAD       X32098
<    record and get write access to their DCBs.                   X32098
STEPOVR/STPNR+.5D8/B @ (LB,7 .9000/      RMS F00 01/02/80 001-030 X32098
/@/LI,10 .31/                            RMS F00 01/02/80 002-030 X32098
/@/LW,6 .8D14/                           RMS F00 01/02/80 003-030 X32098
/@/CW,6 .8D15/                           RMS F00 01/02/80 004-030 X32098
/@/BG @+6/                               RMS F00 01/02/80 005-030 X32098
/@/LD,6 .8D1C/                           RMS F00 01/02/80 006-030 X32098
/@/CLM,6 .8D14/                          RMS F00 01/02/80 007-030 X32098
/@/BCR,9 STPNR+.AAC/                     RMS F00 01/02/80 008-030 X32098
/@/CLM,7 .8D14/                          RMS F00 01/02/80 009-030 X32098
/@/LB,7 .9000/                           RMS F00 01/02/80 011-030 X32098
/@/B STPNR+.5D9/                         RMS F00 01/02/80 012-030 X32098
< Check for data (00) overlapping DCB (10). Users can             X32098
< get write access to DCBs by changing TREE record in LM.         X32098
<                                                                 X32098
STEPOVR/STPNR+.57F/B @(LW,7 LITERALS+.21/RMS F00 01/02/80 013-030 X32098
#HBUF=.9000                              RMS F00 01/02/80 014-030 X32098
/@/LW,1 HBUF+.19/                        RMS F00 01/02/80 015-030 X32098
/@/LI,6 .FFFF/                           RMS F00 01/02/80 016-030 X32098
/@/AND,1 6/                              RMS F00 01/02/80 017-030 X32098
/@/SLS,1 1/                              RMS F00 01/02/80 018-030 X32098
/@/LW,6 HBUF+.15/                        RMS F00 01/02/80 019-030 X32098
/@/SLD,6 -16/                            RMS F00 01/02/80 020-030 X32098
/@/SLS,7 -16/                            RMS F00 01/02/80 021-030 X32098
/@/AW,6 7/                               RMS F00 01/02/80 022-030 X32098
/@/SLS,6 1/                              RMS F00 01/02/80 023-030 X32098
/@/CW,1 6/                               RMS F00 01/02/80 024-030 X32098
/@/BGE @+3/                              RMS F00 01/02/80 025-030 X32098
/@/LI,10 .38/                            RMS F00 01/02/80 026-030 X32098
/@/B STPNR+.AAC/                         RMS F00 01/02/80 027-030 X32098
/@/LW,7 LITERALS+.21/                    RMS F00 01/02/80 028-030 X32098
/@/B STPNR+.580/                         RMS F00 01/02/80 029-030 X32098
#HBUF;K1                                 RMS F00 01/02/80 030-030 X32098
< ANALZ CREATES CP5DUMP IN THE CURRENT ACCOUNT AND THEN OPENS     X32128
:GENMD,ANALZ PP+31D,01010202(01000202).  FHK F00 01/02/80 001-001 X32128
< THE M:PURGE CAL WITH ONLY THE READ OPTION DOES NOT CLEAR        X32163
< TYPED-AHEAD INPUT CHARACTERS                                    X32163
< SUGGESTED FIX:                                                  X32163
MISOV/UCAL+.1C2/LW,1 6(CI,6 2)/          SR  F00 01/02/80 001-003 X32163
MISOV/UCAL+.1C3/CI,6 2(BAZ UCAL+.1C6)/   SR  F00 01/02/80 002-003 X32163
MISOV/UCAL+.1C4/BAZ UCAL+.1C6(LW,1 6)/   SR  F00 01/02/80 003-003 X32163
< IF THE PLATEN COMMAND WITHOUT PARAMETERS IS USED IMMEDIATELY    X32182
< AFTER RUNNING TEXT (OR ANY OTHER PROCESSOR THAT SETS DRC FOR    X32182
< M:UC), THE DISPLAY IS MISALIGNED. TESTED FIX;                   X32182
:GENMD,TEL TEL+83E,00404040(40404040).   FHK F00 01/02/80 001-002 X32182
:GENMD,TEL TEL+847,0D004040(0D404040).   FHK F00 01/02/80 002-002 X32182
< SUMMARY WASTES PAPER FOR ITS SNAPSHOT HEADER LINE               X32265
:GENMD HEADER+8,682100C4(691100C4).      GF  F00 01/02/80 001-001 X32265
< SEVERITY LEVEL 4 BY LOADER IF TWO BLOCK DATA SUBPROGRAMS ARE    X32280
< INPUT TO THE SAME LOAD MODULE, BUT NO CORRESPONDING DDEF MESSAGEX32280
< REASON IS THAT FORTRAN CREATES AN EXTERNAL DEFINITION '4 BLOCK' X32280
< EACH BLOCK DATA SUBROUTINE, BUT DOES NOTHING FURTHER WITH IT.   X32280
< PROBLEM DID NOT OCCUR WITH PREVIOUS RELEASES OF CP-V. WITH ANSFOX32280
< ROMS ONE GETS SEVERITY LEVEL 4 AND DDEF FOR 4 BLOCK.            X32280
PS1,MCP1+7E2,680000F1+PATCH(22600004).   FHK F00 01/02/80 001-004 X32280
LDR,PATCH+F1,3260000F,02200020,2A6C0003,116000F8+PATCH.   002-004 X32280
LDR,PATCH+F5,683007E8+MCP1,22600004,680007E3+MCP1.        003-004 X32280
LDR,PATCH+F8,06F4C2D3,D6C3D240.          FHK F00 01/02/80 004-004 X32280
< 'ILLEGAL ROM LANGUAGE' CAUSED BY LOAD ABSOLUTE 16 BYTES.        X32287
< THEREFORE PROCESSES THE DATA AS CONTROL BYTES                   X32287
,SCANROM+23,68000060+PATCH(4B600000+XF). GH  F00 01/02/80 001-003 X32287
,PATCH+60,4B600000+XF,69300024+SCANROM.  GH  F00 01/02/80 002-003 X32287
,PATCH+62,22600010,68000024+SCANROM.     GH  F00 01/02/80 003-003 X32287
< FIX IOSPIN SO USER CANT HANG SYSTEM                             X32418
/IORT+.33B/B @(B IORT+.336/              CF  F00 01/02/80 001-005 X32418
/@/LW,1 S:CUN/                           CF  F00 01/02/80 002-005 X32418
/@/MTB,0 UB:MF,1/                        CF  F00 01/02/80 003-005 X32418
/@/BE *11/                               CF  F00 01/02/80 004-005 X32418
/@/B IORT+.336/                          CF  F00 01/02/80 005-005 X32418
< WHEN INITIATED BY A SEND KEYIN, PIGEON WILL NOT EXIT BUT GOES   X32420
< INTO A WAIT LOOP.  THE FOLLOWING WILL ALWAYS FORCE AN EXIT.     X32420
:GENMD,PIGEON PIGPP+13,68000018+P1GPP(68400018+PIGPP).    001-001 X32420
< IF A FILE IS OPENED INOUT AND THEN CLOSED WITHOUT MODIFYING     X32432
< IT, THE MODIFICATION DATE IS NOT CHANGED, WHICH IS THE WAY IT   X32432
< SHOULD BE.  BUT THE DESCRIPTOR IS CHANGED TO INDICATE           X32432
< THAT IT HAS BEEN MODIFIED SINCE THE LAST BACKUP, WHICH          X32432
< IS RIDICULOUS.  THE CODE TO TEST FOR THIS CONDITION WAS         X32432
< REMOVED IN E01.  A SUGGESTED FIX IS FOLLOWING:                  X32432
CLOSE/CLS+.156/B @(BCLS+.15A)/           FHK F00 01/02/80 001-008 X32432
/@/LW,1 13,6/                            FHK F00 01/02/80 002-008 X32432
/@/LW,2 0,1/                             FHK F00 01/02/80 003-008 X32432
/@/CI,2 .A00/                            FHK F00 01/02/80 004-008 X32432
/@/BANZ CLS+.15A/                        FHK F00 01/02/80 005-008 X32432
/@/BAZ CLS+.177/                         FHK F00 01/02/80 007-008 X32432
/@/B CLS+.15A/                           FHK F00 01/02/80 008-008 X32432
< WHEN ATTEMPTING TO LINK TO A LMN WHICH HAS A NAME GREATER THAN  X32434
< 11 CHARACTERS (EVEN THOUGH THE SIZE IS INCORRECT), THE          X32434
< VALIDATION OF THE M:LINK FPT BY LNKTRC USES THE WRONG COUNT     X32434
< TO VALIDATE THE ACCOUNT AND CMD FIELDS.                         X32434
LDLNK/LNKTRC+.2D8/LB,1 *5(LW,1 3)/       GC  F00 01/02/80 001-001 X32434
< WHEN USING M:LINK WITH AN INDIRECT CMD OPTION, WHICH            X32435
< POINTS TO A ZERO LENGTH TEXTC FIELD.  J:CCBUF GETS              X32435
< OVERWRITTEN.                                                    X32435
LDLNK/LNKTRC+.164/BEZ @(BEZ LNKTRC+.16C)/GC  F00 01/02/80 001-004 X32435
/@/LW,2 TSTACK/                          GC  F00 01/02/80 002-004 X32435
/@/MTW,-4 -1,2/                          GC  F00 01/02/80 003-004 X32435
/@/B LNKTRC+.165/                        GC  F00 01/02/80 004-004 X32435
< USER PATCH FOR SIDR 32156 FIXES PROBLEM DESCRIBED BUT CAUSES    X32438
< HOTAVR TO FORGET A DRIVE ONCE IT HAS BEEN LOOKED AT THE         X32438
< FIRST TIME.  TRY THIS PATCH INSTEAD                             X32438
UMOV/HOTAVR+.2E/BCS,6 @(BCS,6 ;Q)/       JBC F00 01/02/80 001-004 X32438
/@/BCR,4 HOTAVR+.11/                     JBC F00 01/02/80 002-004 X32438
/@/BCS,1 HOTAVR+.11/                     JBC F00 01/02/80 003-004 X32438
/@/B HOTAVR+.55/                         JBC F00 01/02/80 004-004 X32438
< MULTI-PROCESSOR SCHEDULER ALWAYS QUEUES USERS THROUGH STIOCC.   X32445
< CONSEQUENTLY, SLAVE USERS REACHING MAX QUAN ARE QUEVED 2 STEPS  X32445
< ABOVE THEIR BASE PRIORITY, AND THE FIRST REALLY COMPUTE BOUND USX32445
< ON A SLAVE TENDS TO STAY THERE WITH OTHER COMPUTE BOUND USERS   X32445
< CYCLING THROUGH THE MASTER.  HENCE, ONE USER SEES ETMF OF 1     X32445
< WHILE OTHERS EXPERIENCE 5 OR 6.  PROBLEM OCCURS AT LINE #366    X32445
< IN MPSCHED.  THE FOLLOWING PATCH WILL CAUSE USERS NOT           X32445
< FLAGGED AS MASTER ONLY TO BE QUEUED AT THEIR BASE PRIO--        X32445
< BETTER EVENING COMPUTE TIMES.                                   X32445
#NSCPU                                   WWW F00 01/02/80 001-005 X32445
UMOV/MPSCHED+.3F/BAZ @(BAZ MPSCHED+.41)/ WWW F00 01/02/80 002-005 X32445
/@/BAL,11 SCHED+.246/                    WWW F00 01/02/80 003-005 X32445
/@/B MPSCHED+.42/                        WWW F00 01/02/80 004-005 X32445
#                                        WWW F00 01/02/80 005-005 X32445
< INCORRECT CODE IN TEL SETAMR ALLOWS !SET M:C TO WORK IN BATCH.  X32482
,RESET+5DC,116805F0+RESET(116805EE+RESET).   F00 01/02/80 001-005 X32482
,RESET+5E2,03D47AC3(04D47AE4).           GH  F00 01/02/80 002-005 X32482
,RESET+5E3,40404040(C3404040).           GH  F00 01/02/80 003-005 X32482
,RESET+5EE,04047AE4(03D47AC3).           GH  F00 01/02/80 004-005 X32482
,RESET+5EF,C3404040(40404040).           GH  F00 01/02/80 005-005 X32482
< ESC-D AT TEL PROMPT AFTER PROGRAM ABORT MAY ECHO GARBAGE OR NOTHX32496
< TEL FAILES TO MOVE J:CCBUF BACK TO IT'S READ BUFFER IN THIS CASEX32496
< SOMETIMES, ACCOUNT NAMES, FILE NAMES, OR ANY SORT OF GARBAGE THEX32496
< FROM BEFORE MAY ECHO.                                           X32496
,TEL+A71,68000020+TEL(6800002C+TEL).     GH  F00 01/02/80 001-001 X32496
< 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
< DOING A YYNDD,F KEYIN TO A NON-MPC DEVICE WOULD CAUSE A 7E-40.  X32513
< WITH THIS PATCH, THE ,F ACTS AS A ,E.                           X32513
UMOV/IOQ+.49F/BAZ IOQ+.4B0/              PS  F00 01/02/80 001-001 X32513
< 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
< MODIFICATIONS TO IOQ BETWEEN D00 AND F00 DO NOT RESET BIT       X32542
< 3 OF DCT3. FOR VISTA TERMINALS                                  X32542
UMOV/V2IO+.A1/B @(B IOQ+.2F5)/           MKS F00 01/02/80 001-005 X32542
/@/LB,0 DCT3,1/                          MKS F00 01/02/80 002-005 X32542
/@/AND,0 *IOQ+.48E/                      MKS F00 01/02/80 003-005 X32542
/@/STB,0 DCT3,1/                         MKS F00 01/02/80 004-005 X32542
/@/B IOQ+.2F5/                           MKS F00 01/02/80 005-005 X32542
< ONLINE VOLINIT OF PRIVATE PACK MISCALCULATES NUMBER OF          X32550
< CYLINDERS TO RESERVE .                                          X32550
,VOLINIT+18A,2130001E(2120001E).         RMS F00 01/02/80 001-001 X32550
< THIS PATCH STOPS 7E-40 OR 61-40 IF USER GETS B5-57 ERROR AND    X32560
< THEN REPEATS THE OPERATION THAT GOT THE ERROR.                  X32560
LDLNK/LNKTRC+.3AA/CAL1,1 LNKTRC+.58(CAL1,1 LNKTRC+.3C/    001-001 X32560
< FIX FORTRAN MULTIPLE DUMMY PROBLEM                              X32561
:GENMD,PASS0F #PATCH,028FCCC5(0),;       RC  F00 01/02/80 001-006 X32561
:             021AA2F0(0),;              RC  F00 01/02/80 002-006 X32561
:             2451A344(0),;              RC  F00 01/02/80 003-006 X32561
:             02480028(0),;              RC  F00 01/02/80 004-006 X32561
:             0003B285(0).               RC  F00 01/02/80 005-006 X32561
:GENMD,PASS2F #PASS2F+FAD,40000+#PATCH(410E3+#PASS2F).    006-006 X32561
< 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
< PATCH OF O4/10/79 FOR SIDR #27817 STILL DOES NOT FIX THE        X32564
< AUTOINCREMENT PROBLEM.  HOWEVER, THE FOLLOWING PATCH DOES.      X32564
:GENMD,RBBAT MBSOP+1D0,2140000E(2140000F).   F00 01/02/80 001-002 X32564
:GENMD,RBBAT MBSOP+1D1,681001DD+MBSOP(681001DF+MBSOP).    002-002 X32564
< MANY PROGRAMS ASSUME THAT M:UC INITIALLY HAS A BTD OF ZERO.     X32565
< HOWEVER, NOT TRUE WHEN A PROGRAM IS CALLED VIA AUTOCALL.  A     X32565
< BTD OF 1 LEFT OVER FROM LOGON.  THE FOLLOWING GENMDS FIX LOGON  X32565
< SO IT LEAVES WITH BTD=0.                                        X32565
:GENMD SECTION1+22E,6800026C+SECTION3(22000000). 01/02/80 001-006 X32565
:GENMD SECTION3+26C,221D7ECF(0).         CS  F00 01/02/80 002-006 X32565
:GENMD SECTION3+26D,4A100000+M:UC(0).    CS  F00 01/02/80 003-006 X32565
:GENMD SECTION3+26E,35100000+M:UC(0).    CS  F00 01/02/80 004-006 X32565
:GENMD SECTION3+26F,22000000(0).         CS  F00 01/02/80 005-006 X32565
:GENMD SECTION3+270,6800022F+SECTION1(0).CS  F00 01/02/80 006-006 X32565
< 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
<  "**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
,RT+6DE,6800000A+PAT(680006E7+RT).       SW  F00 01/03/80 001-020 X32597
,RT+6E7,68000008+PAT(22E00023).          SW  F00 01/03/80 002-020 X32597
,RT+6EE,C640E7E7(C640E2D6);              SW  F00 01/03/80 003-020 X32597
,E7E7E7E7(D9E340D6);                     SW  F00 01/03/80 004-020 X32597
,40E3C1C2(D940D4D6);                     SW  F00 01/03/80 005-020 X32597
,D3C5E24B(C461C9D6);                     SW  F00 01/03/80 006-020 X32597
,C640D4D6(40E3C1C2);                     SW  F00 01/03/80 007-020 X32597
,C461C9D6(D3C5E240).                     SW  F00 01/03/80 008-020 X32597
,PAT+8,22E006F2+RT;                      SW  F00 01/03/80 009-020 X32597
,6800000B+PAT.                           SW  F00 01/03/80 010-020 X32597
,PAT+A,22E00012+PAT;                     SW  F00 01/03/80 011-020 X32597
,B2F0000E;                               SW  F00 01/03/80 012-020 X32597
,35F006EE+RT;                            SW  F00 01/03/80 013-020 X32597
,20E00001;                               SW  F00 01/03/80 014-020 X32597
,B2F0000E;                               SW  F00 01/03/80 015-020 X32597
,35F006EF+RT;                            SW  F00 01/03/80 016-020 X32597
,22E000IC;                               SW  F00 01/03/80 017-020 X32597
,680006E8+RT.                            SW  F00 01/03/80 018-020 X32597
,PAT+12,C64040E2;                        SW  F00 01/03/80 019-020 X32597
,D6D9E340.                               SW  F00 01/03/80 020-020 X32597
<< FIX ERROR HANDLING AT EOT BETTER.                              X32600
< RE-INITIALIZE BYTE COUNTER AND EOR ERROR FLAG WHEN RESTARTING   X32600
< A FILE ON A NEW REEL.                                           X32600
,FSTART+89A,68000000+FPATCH(02200000).   RMS F00 11/14/79 001-122 X32600
,FPATCH+00,356000B5+DATASEC.             RMS F00 11/14/79 002-122 X32600
,FPATCH+01,356006D1+DATASEC.             RMS F00 11/14/79 003-122 X32600
,FPATCH+02,02200000.                     RMS F00 11/14/79 004-122 X32600
,FPATCH+03,6800089B+FSTART.              RMS F00 11/14/79 005-122 X32600
< MUST CHECK FOR TYC = 5 OR X'13' ON EITHER DATA OR SENTINEL      X32600
< WRITES TO TAPE.                                                 X32600
,EASECT+52,68060062(21100005).           RMS F00 11/14/79 006-122 X32600
,FEAPATCH+00,21100005.                   RMS F00 11/14/79 007-122 X32600
,FEAPATCH+01,68360054.                   RMS F00 11/14/79 008-122 X32600
,FEAPATCH+02,21100013.                   RMS F00 11/14/79 009-122 X32600
,FEAPATCH+03,68360054.                   RMS F00 11/14/79 010-122 X32600
,FEAPATCH+04,68060047.                   RMS F00 11/14/79 011-122 X32600
< HAVE TO CHECK FOR TYC= 5 OR X'13' FOR RANDOM FILES, TOO.        X32600
,FSTART+6C9,68000004+FPATCH(21600005).   RMS F00 11/14/79 012-122 X32600
,FPATCH+04,21600013.                     RMS F00 11/14/79 013-122 X32600
,FPATCH+05,683006CB+FSTART.              RMS F00 11/14/79 014-122 X32600
,FPATCH+06,21600005.                     RMS F00 11/14/79 015-122 X32600
,FPATCH+07,680006CA+FSTART.              RMS F00 11/14/79 016-122 X32600
< CHECK FOR PRIOR DATA ERROR AFTER EOT, EVEN THOUGH CURRENT       X32600
< WRITE, WTM, OR SENTINEL WRITE MAY BE O.K.                       X32600
,FSTART+87E,68000008+FPATCH(B56000A5+DATASEC).   11/14/79 017-122 X32600
,FPATCH+08,330006D1+DATASEC.             RMS F00 11/14/79 018-122 X32600
,FPATCH+0A,B56000A5+DATASEC.             RMS F00 11/14/79 020-122 X32600
,FPATCH+0B,6800087F+FSTART.              RMS F00 11/14/79 021-122 X32600
< WHEN STARTING A NEW REEL AS A RESULT OF ERRORS ON THE LAST      X32600
< REEL, DONT WRITE THE OLD :BOF RECORD, AS THE FILE WILL          X32600
< BE RESTARTED FROM THE BEGINNING.                                X32600
,FSTART+8B8,6800000C+FPATCH(6AF0095F+FSTART).F00 11/14/79 022-122 X32600
,FPATCH+0C,6AF0095F+FSTART.              RMS F00 11/14/79 023-122 X32600
,FPATCH+0D,330006D1+DATASEC.             RMS F00 11/14/79 024-122 X32600
,FPATCH+0E,683008B9+FSTART.              RMS F00 11/14/79 025-122 X32600
,FPATCH+0F,680008C0+FSTART.              RMS F00 11/14/79 026-122 X32600
< FOLLOWING GENMDS CREATE A MECHANISM TO TEST FOR TRUE            X32600
< COMPLETION OF IO OPERATIONS, EVEN IF FSAVE'S COUNT IS WRONG     X32600
< (THE OLD HANG AT EOT CAPER). IF EVEN THE MONITOR'S COUNTDOWN    X32600
< IS INCOMPLETE, FSAVE WILL STILL HANG, ON PURPOSE.               X32600
,FPATCH+10,0.                            RMS F00 11/14/79 027-122 X32600
,FPATCH+11,0.                            RMS F00 11/14/79 028-122 X32600
,FPATCH+12,0.                            RMS F00 11/14/79 029-122 X32600
,FPATCH+13,0.                            RMS F00 11/14/79 030-122 X32600
,FPATCH+14,0F000001.                     RMS F00 11/14/79 031-122 X32600
,FPATCH+15,02200040.                     RMS F00 11/14/79 032-122 X32600
,FPATCH+16,2BF00010+FPATCH.              RMS F00 11/14/79 033-122 X32600
,FPATCH+17,22100093.                     RMS F00 11/14/79 034-122 X32600
,FPATCH+18,22200032.                     RMS F00 11/14/79 035-122 X32600
,FPATCH+19,04800014+FPATCH.              RMS F00 11/14/79 036-122 X32600
,FPATCH+1A,B30200A3+DATASEC.             RMS F00 11/14/79 037-122 X32600
,FPATCH+1B,68300026+FPATCH.              RMS F00 11/14/79 038-122 X32600
,FPATCH+1C,64200019+FPATCH.              RMS F00 11/14/79 039-122 X32600
,FPATCH+1D,06000000.                     RMS F00 11/14/79 040-122 X32600
,FPATCH+1E,32200000+S:CUN.               RMS F00 11/14/79 041-122 X32600
,FPATCH+1F,72240000+UB:MF.               RMS F00 11/14/79 042-122 X32600
,FPATCH+20,68300023+FPATCH.              RMS F00 11/14/79 043-122 X32600
,FPATCH+21,6AF0083A+FSTART.              RMS F00 11/14/79 044-122 X32600
,FPATCH+22,68000018+FPATCH.              RMS F00 11/14/79 045-122 X32600
,FPATCH+23,6AF0083A+FSTART.              RMS F00 11/14/79 046-122 X32600
,FPATCH+24,22300000.                     RMS F00 11/14/79 047-122 X32600
,FPATCH+25,B53200A3+DATASEC.             RMS F00 11/14/79 048-122 X32600
,FPATCH+26,02200040.                     RMS F00 11/14/79 049-122 X32600
,FPATCH+27,2AF00010+FPATCH.              RMS F00 11/14/79 050-122 X32600
,FPATCH+28,E800000F.                     RMS F00 11/14/79 051-122 X32600
< THIS SET HANDLES 5 RETRIES TO GET A GOOD :E0V OR :EOR WRITE.    X32600
< IF FSAVE CAN'T DO IT IN 5 RETRIES, IT WILL ABORT.               X32600
,FPATCH+29,15400011+FPATCH.              RMS F00 11/14/79 052-122 X32600
,FPATCH+2A,22400096.                     RMS F00 11/14/79 053-122 X32600
,FPATCH+2B,22500005.                     RMS F00 11/14/79 054-122 X32600
,FPATCH+2C,B15800A3+DATASEC.             RMS F00 11/14/79 055-122 X32600
,FPATCH+2D,68300037+FPATCH.              RMS F00 11/14/79 056-122 X32600
,FPATCH+2E,20FFFFFD.                     RMS F00 11/14/79 057-122 X32600
,FPATCH+2F,64300037+FPATCH.              RMS F00 11/14/79 058-122 X32600
,FPATCH+30,2212F9A4.                     RMS F00 11/14/79 059-122 X32600
,FPATCH+31,6AF00DF4+FSTART.              RMS F00 11/14/79 060-122 X32600
,FPATCH+33,04200E70+FSTART.              RMS F00 11/14/79 062-122 X32600
,FPATCH+34,221009A1+FSTART.              RMS F00 11/14/79 063-122 X32600
,FPATCH+35,091005D6+DATASEC.             RMS F00 11/14/79 064-122 X32600
,FPATCH+36,6800094C+FSTART.              RMS F00 11/14/79 065-122 X32600
,FPATCH+37,12400011+FPATCH.              RMS F00 11/14/79 066-122 X32600
,FPATCH+38,E800000F.                     RMS F00 11/14/79 067-122 X32600
< IF WRITE ERROR OCCURS, FSAVE MUST CLOSE OUT REEL WITH :EOV,     X32600
< :E0R AND TMS. IF UNABLE TO DO THIS, WITH 5 NEW RETRIES,         X32600
< FSAVE WILL NOW ABORT WITH AN APPROPRIATE MESSAGE.               X32600
,FSTART+93B,68000039+FPATCH(2222A078).   RMS F00 11/14/79 068-122 X32600
,FPATCH+39,6AF00015+FPATCH.              RMS F00 11/14/79 069-122 X32600
,FPATCH+3A,2222A078.                     RMS F00 11/14/79 070-122 X32600
,FPATCH+3B,6800093C+FSTART.              RMS F00 11/14/79 071-122 X32600
,FSTART+93D,6800003C+FPATCH(6AF0095F+FSTART).F00 11/14/79 072-122 X32600
,FPATCH+3C,22300005.                     RMS F00 11/14/79 073-122 X32600
,FPATCH+3D,6AF0095F+FSTART.              RMS F00 11/14/79 074-122 X32600
,FPATCH+3E,6AF00015+FPATCH.              RMS F00 11/14/79 075-122 X32600
,FPATCH+3F,6AF00029+FPATCH.              RMS F00 11/14/79 076-122 X32600
,FPATCH+40,6AF00979+FSTART.              RMS F00 11/14/79 077-122 X32600
,FPATCH+41,6AF00015+FPATCH.              RMS F00 11/14/79 078-122 X32600
,FPATCH+42,6800093F+FSTART.              RMS F00 11/14/79 079-122 X32600
,FSTART+942,68000043+FPATCH(2210000C).   RMS F00 11/14/79 080-122 X32600
,FPATCH+43,2210000C.                     RMS F00 11/14/79 081-122 X32600
,FPATCH+44,330000B1+DATASEC.             RMS F00 11/14/79 082-122 X32600
,FPATCH+45,69300943+FSTART.              RMS F00 11/14/79 083-122 X32600
,FPATCH+46,6AF0095F+FSTART.              RMS F00 11/14/79 084-122 X32600
,FPATCH+47,6AF00015+FPATCH.              RMS F00 11/14/79 085-122 X32600
,FPATCH+48,6AF00029+FPATCH.              RMS F00 11/14/79 086-122 X32600
,FPATCH+49,68000944+FSTART.              RMS F00 11/14/79 087-122 X32600
,FSTART+947,68000949+FSTART(22100093).   RMS F00 11/14/79 088-122 X32600
,FSTART+949,6AF00015+FPATCH(69200948+FSTART).F00 11/14/79 089-122 X32600
< CREATE AND MODIFY MESSAGES.                                     X32600
< THE MESSAGE 'TOO MANY ERRORS - FSAVE ABORTS', IF RECEIVED AT    X32600
< END OF TAPE, MEANS THAT FSAVE COULD NOT WRITE HIS :EOV          X32600
< AND :EOR SENTINELS AS PART OF REEL-SWITCH RECOVERY.             X32600
< THE RECEIVER OF THIS MESSAGE SHOULD EITHER NOT USE THAT REEL    X32600
< FOR FSAVE, OR SHOULD MOVE THE EOT REFLECTIVE MARK A FEW FEET    X32600
< TOWARD THE FRONT OF THE TAPE. NOTE THAT MOST TAPE CLEANERS      X32600
< DO NOT CLEAN BEYOND EOT.                                        X32600
,FSTART+E58,13C3C1D5,E340D9E4.           RMS F00 11/14/79 090-122 X32600
,FSTART+E5A,D56B404C,40F540D7.           RMS F00 11/14/79 091-122 X32600
,FSTART+E5C,C1C7C5E2,22E3D6D6.           RMS F00 11/14/79 092-122 X32600
,FSTART+E5E,40D4C1D5,E840E3C1.           RMS F00 11/14/79 093-122 X32600
,FSTART+E60,D7C540C5,D9D9D6D9.           RMS F00 11/14/79 094-122 X32600
,FSTART+E62,E26B40C6,E2C1E5C5.           RMS F00 11/14/79 095-122 X32600
,FSTART+E64,40C1C2D6,D9E3E240.           RMS F00 11/14/79 096-122 X32600
,FSTART+EE2,1EE3C1D7,C540C5D9.           RMS F00 11/14/79 097-122 X32600
,FSTART+EE4,D9D6D940,6040D7D6.           RMS F00 11/14/79 098-122 X32600
,FSTART+EE6,E2E2C9C2,D3C540C2.           RMS F00 11/14/79 099-122 X32600
,FSTART+EE8,C1C440C6,C9D3C540.           RMS F00 11/14/79 100-122 X32600
,FSTART+FBE,E6C9D5C7,40C6C9D3.           RMS F00 11/14/79 102-122 X32600
,FSTART+FC0,C540D4C1,E840C2C5.           RMS F00 11/14/79 103-122 X32600
,FSTART+FC2,40D7C1D9,E3C9C1D3,5C5C4040.  RMS F00 11/14/79 104-122 X32600
< IF CP-V GIVES UP ON INCONSISTENT STATUS OR LOST POSITION,       X32600
< FSAVE SHOULDNT PLAY HERO, BUT SHOULD GIVE UP, TOO.              X32600
,FSTART+88D,6800004A+FPATCH(22600000).   RMS F00 11/14/79 105-122 X32600
,FPATCH+4A,22600008.                     RMS F00 11/14/79 106-122 X32600
,FPATCH+4B,B16000A5+DATASEC.             RMS F00 11/14/79 107-122 X32600
,FPATCH+4C,68300050+FPATCH.              RMS F00 11/14/79 108-122 X32600
,FPATCH+4D,22600009.                     RMS F00 11/14/79 109-122 X32600
,FPATCH+4E,B16000A5+DATASEC.             RMS F00 11/14/79 110-122 X32600
,FPATCH+4F,69300058+FPATCH.              RMS F00 11/14/79 111-122 X32600
,FPATCH+50,22100096.                     RMS F00 11/14/79 112-122 X32600
,FPATCH+51,B26200A3+DATASEC.             RMS F00 11/14/79 113-122 X32600
,FPATCH+52,21600013.                     RMS F00 11/14/79 114-122 X32600
,FPATCH+53,68300030+FPATCH.              RMS F00 11/14/79 115-122 X32600
,FPATCH+54,21600005.                     RMS F00 11/14/79 116-122 X32600
,FPATCH+55,69300058+FPATCH.              RMS F00 11/14/79 117-122 X32600
,FPATCH+56,330006D1+DATASEC.             RMS F00 11/14/79 118-122 X32600
,FPATCH+57,68300030+FPATCH.              RMS F00 11/14/79 119-122 X32600
,FPATCH+58,22600000.                     RMS F00 11/14/79 120-122 X32600
,FPATCH+59,6800088E+FSTART.              RMS F00 11/14/79 121-122 X32600
< FSAVE SHOULD NOT LEAVE REELS OPEN WHEN HE'S DONE, EVEN IF HE IS X32600
< RUNNING ONLINE.                                                 X32600
,FSTART+94D,02000000(6980094F+FSTART).   RMS F00 11/14/79 122-122 X32600
      0
< THESE GENMDS CORRECT BYTE 0 IN R6 RETURNING FROM TRT, WHICH     X32606
< CAUSED  MSG TO BE INCORRECTLY CHECKED FOR LENGTH > 52.          X32606
,RBG+451,680000F0+RBBP(38600050+SDAA).   BF  F00 01/02/80 001-003 X32606
,RBBP+F0,22100000,75100006,38600050+SDAA.BF  F00 01/02/80 002-003 X32606
,RBBP+F3,68000452+RBG.                   BF  F00 01/02/80 003-003 X32606

