<************************* SST 02-81 *********************************
< THIS PATCH FILE CONTAINS USER-SUPPLIED PATCHES TO CP-V F00,
< ORGANIZED SO THAT THE FILE MAY BE BOOTED DIRECTLY.
< AS THIS PATCH FILE IS NOT OFFICIAL, AND AS THE USER-SUPPLIED
< PATCHES HAVE NOT BEEN VERIFIED BY HONEYWELL LADC, EXTREME CARE
< SHOULD BE EXERCISED IN USING THIS FILE.
< **THIS FILE IS NOT SIDRABLE! NOTIFY YOUR FIELD ENGINEERING
< CONTACT (THE TAC) OF ANY PROBLEMS.*********************************
<******************
< NOTE: CONDITIONAL SYMBOL 'ELLAF01' REFERS TO THE NEW VERSION
< OF ELLA RELEASED FOR THE FIRST TIME ON THE SEPTEMBER SST. WHEN
< THIS NEW VERSION OF ELLA IS INSTALLED ON YOUR SYSTEM, YOU MUST
< CHANGE THE SYMBOLS SO THAT '#ELLAF00=0' AND '#ELLAF01=1'.
<********************
< NOTE: CONDITIONAL SYMBOL 'E02VOL' REFERS TO THE UPDATED CP-V
< ONLINE VOLINIT (VERSION E02) AS RELEASED ON THE SST SINCE OCTOBER
< 1979. SYMBOL 'E01VOL' REFERS TO THE VERSION AS RELEASED WITH
< CP-V F00.
<********************
#ELLAF00=1
#ELLAF01=0
#E02VOL=1
#E01VOL=0
#X560=0
<************************************************************
< ROOT PATCHES FOLLOW
<************************************************************
< CAUSE DATE AS WELL AS TIME TO PRINT ON OC:                      XCLOCK
#TEMPT=TABLES+.156                       FHK EXP-F 810106 001-021 XCLOCK
#DATE=LITERALS+.AC                       FHK EXP-F 810106 002-021 XCLOCK
#TEMP2=@@                                FHK EXP-F 810106 003-021 XCLOCK
/@@/0/                                   FHK EXP-F 810106 004-021 XCLOCK
/@/O/                                    FHK EXP-F 810106 005-021 XCLOCK
/@/0/                                    FHK EXP-F 810106 006-021 XCLOCK
/CLOCK4+.C3/LI,2 .0F15(LI,2 .0715/       FHK EXP-F 810106 008-021 XCLOCK
/CLOCK4+.C5/AI,3 .407A(AI,3 .157A/       FHK EXP-F 810106 009-021 XCLOCK
/CLOCK4+.C7/B @(STD,2 TEMPT/             FHK EXP-F 810106 010-021 XCLOCK
/@/STD,2 TEMPT/                          FHK EXP-F 810106 011-021 XCLOCK
/@/STD,2 TEMP2/                          FHK EXP-F 810106 012-021 XCLOCK
/@/LW,3 DATE/                            FHK EXP-F 810106 013-021 XCLOCK
/@/LI,2 .4040/                           FHK EXP-F 810106 014-021 XCLOCK
/@/SLD,2 16/                             FHK EXP-F 810106 015-021 XCLOCK
/@/AI,3 .1561/                           FHK EXP-F 810106 016-021 XCLOCK
/@/SCS,3 -8/                             FHK EXP-F 810106 017-021 XCLOCK
/@/STD,2 TEMP2+2/                        FHK EXP-F 810106 018-021 XCLOCK
/@/B CLOCK4+.C8/                         FHK EXP-F 810106 019-021 XCLOCK
/CLOCK4+.CE/LI,1 TEMP2(LI,1 TEMPT/       FHK EXP-F 810106 020-021 XCLOCK
#TEMP2;KTEMPT;KDATE;K1                   FHK EXP-F 810106 021-021 XCLOCK
< 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+.12B/CI,11 .B7(CI,11 .B8/      JBC EXP-F 801112 001-002 X32577
/BOOTSUBR+.12D/LI,11 .B7(LI,11 .B8/      JBC EXP-F 801112 002-002 X32577
< FIX HOTAVR ON FREE TAPES                                        X32393
/HOTAVR+.2E/BCS,6 HOTAVR+.11(BCS,6 HOTAVR+.55/  -F 800905 001-001 X32393
#NSCPU                                   JBC F00 04/22/80 001-008 XE-007
< THIS PATCH WILL RESET THE MASTER-PERM BIT THAT GETS SET         XE-007
<CAN BE RESET BY ANY PROGRAM (MASTER OR SLAVE) BY EXECUTING       XE-007
< A CAL1,6 WITH AN FPT OF X'0B000000' (CAL1,6 =X'0B000000').      XE-007
<THIS IS THE "SET CPU" CAL. NOTE THAT WITH 31662                  XE-007
<INSTALLED A PROGRAM THAT GOES MASTER MODE AND THEN GOES BACK     XE-007
<SLAVE WILL STILL BE BLOCKED TO THE MASTER ONLY. THE COMMENTS     XE-007
<ON #31662 INDICATE THAT YOU NEED TO RESET THE BITS YOURSELF (AND XE-007
<INDICATE THAT YOU CAN RUN ON A SLAVE CPU IN MASTER MODE, WHICH   XE-007
<YOU REALLY CANT DO), THEREFORE YOU HAVE TO REFERENCE UB:MPFLGS   XE-007
<AND LOAD THE PROGRAM WITH MONSTK. IF YOU WILL INCLUDE THIS       XE-007
<PATCH ALL THAT YOUR PROGRAMS WILL HAVE TO DO IS THE CAL1,6 TO    XE-007
<CLEAR THE MASTER-PERM BIT.                                       XE-007
/ALTCP+.E8/B @(B SCHED+.4D/              JBC F00 04/22/80 002-008 XE-007
/@/LB,7 UB:MPFLG,4/                      JBC F00 04/22/80 003-008 XE-007
/@/AND,7 $+3/                            JBC F00 04/22/80 004-008 XE-007
/@/STB,7 UB:MPFLG,4/                     JBC F00 04/22/80 005-008 XE-007
/@/B SCHED+.4D/                          JBC F00 04/22/80 006-008 XE-007
/@/.000000BF/                            JBC F00 04/22/80 007-008 XE-007
#1                                       JBC F00 04/22/80 008-008 XE-007
#NSCPU                                   JBC F00 04/21/80 001-009 XE-008
< THIS PATCH WILL CAUSE ENTRY TO INCLUDE THE PROCESSOR NUMBER     XE-008
< IN THE TRAP INFORMATION THAT IS STORED INTO J:TRAP(16-31).      XE-008
< THE OLD FORMAT WAS :                                            XE-008
<      BITS 16-23 => TRAP CC'S                                    XE-008
<      BITS 24-31 => TRAP LOCATION (X'40',X'41'...)               XE-008
< THE NEW FORMAT WILL BE:                                         XE-008
<        BITS 20-23 => TRAP CONDITION CODES                       XE-008
<        BITS 24-31 => TRAP LOCATION                              XE-008
<                                                                 XE-008
/ENTRY+.6A/B @(LI,9 .FFFF/               JBC F00 04/21/80 002-009 XE-008
/@/LW,0 TCATCH+.74/                      JBC F00 04/21/80 003-009 XE-008
/@/SLS,0 12/                             JBC F00 04/21/80 004-009 XE-008
/@/LI,1 .F000/                           JBC F00 04/21/80 005-009 XE-008
/@/STS,0 8/                              JBC F00 04/21/80 006-009 XE-008
/@/LI,9 .FFFF/                           JBC F00 04/21/80 007-009 XE-008
/@/B ENTRY+.6B/                          JBC F00 04/21/80 008-009 XE-008
#1                                       JBC F00 04/21/80 009-009 XE-008
< WHEN USER DOES M:DEVICE (PAGE) ON A DCB ASSIGNED TO DISC, USER'SX32072
< BUFFER ADDRESS IN DCB GETS CLOBBERED. REASON IS THAT 10D        X32072
< DOES AN M:WRITE OF A 4-BYTE RECORD WITH '1' IN COLUMN 1. THE    X32072
< 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
< MAKE COC ECHO THE SUB CHARACTER AS'#', NOT ':'                  X32498
#REGCOC                                  GH  F00 01/02/80 001-004 X32498
/COCR+.6BD/NOP (AI,5 1/                  GH  F00 01/02/80 002-004 X32498
/COCR+.6BE/;Q+1(AI,5 -.14/               GH  F00 01/02/80 003-004 X32498
#                                        GH  F00 01/02/80 004-004 X32498
ALLOCAT1//
FIX0//
FIX2//
FIX1//
GHOST10//
GHOST12//
GHOST11//
CLOSE//
DEBUG//
ECBOV//
ENQOV//
KEYIN//
LDLNK//
LTAPE//
MISOV//
MPC9210//
MPC9310//
MULOV//
OPEN//
OPENTP//
< IF A READ ERROR OCCURS WHILST PROCESSING THE LABELS OF AN       X32541
< ANS TAPE THE SYSTEM WILL LOOP.                                  X32541
OPENTP/OPNL+.359/CI,3 2(CI,3 6)/         MJH F00 01/02/80 001-002 X32541
OPENTP/OPNL+.35A/BL OPNL+.362(BNE OPNL+.362)/F00 01/02/80 002-002 X32541
RMAOV//
RTOV//
STEPOVR//
TQOV1//
TQOV2//
UMOV//
#
< 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
<****************************************************************
<  TO INSTALL THE FOLLOWING PATCH YOU WILL **HAVE** TO DO A NEW
<
<*** 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
/@/LI,9 0/ TIME PART                     JBC F00 01/07/80 013-058 XE-001
/@/STD,8 0,6/ PUT IN HEADER              JBC F00 01/07/80 014-058 XE-001
/@/SLS,6 1/ MAKE INTO WORD               JBC F00 01/07/80 015-058 XE-001
/@/LI,5 MPCTIO+.4C/ RETURN ADDRESS       JBC F00 01/07/80 016-058 XE-001
/@/B ERHNDLR+.12/ GOTO ERRLOG            JBC F00 01/07/80 017-058 XE-001
< NEXT PART OF PATCH                                              XE-001
< THIS PART DETECTS WHEN WE ARE GOING TO DO A SENSE (ORDER=04)    XE-001
< IF WE ARE WE BUILD THE FOLLOWING:                               XE-001
< SENSE WITH COMMAND CHAIN                                        XE-001
< TIC TO NEW PART OF CLIST                                        XE-001
< NEW PART OF CLIST HAS                                           XE-001
< CONTROL FOR EXTEND SENSE WITH CC                                XE-001
< READ OF 26 BYTES                                                XE-001
< IDCW FOR SENSE                                                  XE-001
< SENSE BUFFER (7 WORDS)                                          XE-001
UMOV/MPCTIO+.2DD/B @(AND,9 HANDLERS+.105/    F00 01/07/80 018-058 XE-001
/@/AND,9 HANDLERS+.105/ DO IT            JBC F00 01/07/80 019-058 XE-001
/@/LB,0 8/ GET ORDER CODE                JBC F00 01/07/80 020-058 XE-001
/@/CI,0 4/ SENSE?                        JBC F00 01/07/80 021-058 XE-001
/@/BNE MPCTIO+.2DE/ NO GO BACK           JBC F00 01/07/80 022-058 XE-001
/@/BAL,0 HANDLERS+.1D8/ BAL,0 RE:ENT     JBC F00 01/07/80 023-058 XE-001
/@/LD,12 SEIDCW/ GET THE IDCW            JBC F00 01/07/80 024-058 XE-001
/@/BAL,0 MPCTIO+.304/ BAL,0 DEVNUM       JBC F00 01/07/80 025-058 XE-001
/@/LW,9 MPCTIO+.279/ GET WORD WITH CC BIT    F00 01/07/80 026-058 XE-001
/@/AND,9 HANDLERS+.105/ AND,9 NBYT2      JBC F00 01/07/80 027-058 XE-001
/@/STD,8 0,7/ PUT IN IOCD                JBC F00 01/07/80 028-058 XE-001
/@/AI,7 1/ POINT TO NEXT                 JBC F00 01/07/80 029-058 XE-001
/@/LH,5 DCT7,1/ GET CLIST                JBC F00 01/07/80 030-058 XE-001
/@/AI,5 9/                               JBC F00 01/07/80 031-058 XE-001
/@/LW,8 LITERALS+.1F/ LW,8 Y08 GET THE TIC   F00 01/07/80 032-058 XE-001
/@/OR,8 5/ MERGE IN NEW IOCD ADDRS       JBC F00 01/07/80 033-058 XE-001
/@/LI,9 0/                               JBC F00 01/07/80 034-058 XE-001
/@/STD,8 0,7/ PUT IN TIC                 JBC F00 01/07/80 035-058 XE-001
/@/AI,7 8/ POINT TO NEW IOCDS            JBC F00 01/07/80 036-058 XE-001
/@/STD,9 10,5/ ZERO THE CONTROLER        JBC F00 01/07/80 037-058 XE-001
/@/SLS,5 1/                              JBC F00 01/07/80 038-058 XE-001
/@/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
/@/AI,9 26/ PUT IN BC                    JBC F00 01/07/80 054-058 XE-001
/@/AI,5 8/ ADDRS OF SENSE BUFFER         JBC F00 01/07/80 055-058 XE-001
/@/OR,8 5/ MERGE IN BUFFER ADDRS         JBC F00 01/07/80 056-058 XE-001
/@/B MPCTIO+.2DE/ CONTINUE               JBC F00 01/07/80 057-058 XE-001
#SEIDCW;K1                               JBC F00 01/07/80 058-058 XE-001
< MANY NSLP'S (34xx,74xx) HAVE TROUBLE RECOGNIZING PAPER MOTION   XNSLPP
< UNDER SHORT-RECORD ERROR CONDITIONS. THIS PATCH REMOVES THE     XNSLPP
< PAPER MOTION TEST, AND SHOULD STOP THE CASES OF INFINITE        XNSLPP
< REPEAT LINES ON THE LP.                                         XNSLPP
#NSLP                                    DCP F00 09/06/79 001-003 XNSLPP
UMOV/NSLP+.3A/BAZ NSLP+.30(BAZ NSLP+.4B/ DCP F00 09/06/79 002-003 XNSLPP
#                                        DCP F00 09/06/79 003-003 XNSLPP
RECOVER//
*
GENMD :P11
DELETE
< REPLACEMENT FOR GENMD OF SAME NUMBER DATED 800804:              X32732
< 9BINREAD CALCULATES CHECKSUM INCORRECTLY WHEN THE               X32732
< BYTE COUNT IS NOT DIVISIBLE BY 4.                               X32732
< GENMD'S TO :P11.                                                X32732
,9BINREAD+A9,22300004(22300001).         FHK EXP-F 801007 001-004 X32732
,9BINREAD+AA,B2460000+8DCBADR(52460000+6BINBUF).-F 801007 002-004 X32732
,9BINREAD+AB,2540006D(2140002C).         FHK EXP-F 801007 003-004 X32732
,9BINREAD+AC,680000AF+9BINREAD(681000AE+9BINREAD).        004-004 X32732
,9BINREAD+AC,680000AF+9BINREAD(681000AE+9BINREAD).        005-005 X32732
GENMD ANLZ
DELETE
< PATCH TO MAKE ANLZ WORK OK FOR TAC USE                          XE-009
< PATCH WILL CAUSE DI AD COMMAND TO CAUSE ANLZ                    XE-009
< YOU MUST DO A !PLATEN 132 BEFORE CALLING ANLZ                   XE-009
<                                                                 XE-009
:GENMD,ANALZ PP+766,68000011+PATCH.      JBC F00 04/21/80 001-017 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
GENMD BATCH
DELETE
GENMD CCI
DELETE
<CCI SHOULDN'T SAY 'COMMAND FILE IS BUSY' WHEN IT'S NOT.          X32759
< GENMDS TO CCI:                                                  X32759
,OPNXS+1C,21A00A01(21A00014).            SW  EXP-F 800804 001-006 X32759
,OPNFD+3E,68000000+CCIPCH(25A00079).     SW  EXP-F 800804 002-006 X32759
,CCIPCH+00,21A00A01;.                    SW  EXP-F 800804 003-006 X32759
,25A00079;.                              SW  EXP-F 800804 005-006 X32759
,6800003F+OPNFD.                         SW  EXP-F 800804 006-006 X32759
< THE BP REF MANUAL (P.34) SAYS THAT M:C CANNOT BE ASSGNED WITH   X32043
< THE ASSIGN COMMAND. HOWEVER, CCI ALLOWS ASSIGNS TO DEVICES, BUT X32043
< CCI LOOPS PRINTING OUT THE ASSIGN COMMAND, AND THE JOB CANNOT BEX32043
< ABORTED WITHOUT AN OPERATOR RECOVERY. SUGGESTED FIX:            X32043
:GENMD,CCI ASSG+FD,6830043F+ASSG(68300117+ASSG). 01/02/80 001-001 X32043
GENMD COBOL
DELETE
< MOVE OF AN ELEMENTARY DATA ITEM TO A GROUP ITEM                 X32621
< WITH AN OCCURS DEPENDING CLAUSE DOES NOT WORK PROPERLY          X32621
< GENMD IS TO COBOL-F04                                           X32621
:GENMD,COBOL42A MDF01+145,6AA002F4+MDF01(6AB0D122).       001-003 X32621
:GENMD,COBOL42A MDF01+146,02000000(61200000). F04  801125 002-003 X32621
:GENMD,COBOL42A BBA00+1C9,680001AD+BBA00(68000206+BBA00). 003-003 X32621
GENMD COCG
DELETE
< THESE GENMDS TO COCG REMOVE THE NEED TO SET SS2 ON A BOOT       X32595
< TO GET THE GHOST TO RESET TURNAROUND MODE ON COC LINES.         X32595
:GENMD COCG+96,698000A4(69COOOA4).       MK  F00 01/02/80 001-003 X32595
:GENMD COCG+9C,70000000(6C000000).       MK  F00 01/02/80 002-003 X32595
:GENMD COCG+9D,70000000(684000A4).       MK  F00 01/02/80 003-003 X32595
GENMD CONTROL
DELETE

GENMD DEFCOM
DELETE
GENMD DEVDMP
DELETE
GENMD EDIT
DELETE
< 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+63,68001562+P.                   FHK EXP-F 800905 003-003 X32685
GENMD ELLA
DELETE
< REPLACEMENT FOR PATCH OF SAME NUMBER DATED 01/03/80.            X32597
< ONE CARD HAS BEEN ADDED TO AVOID ORDER DEPENDENCY, AND THE      X32597
< 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
,D3C5E24B(C461C9D6);                     SW  EXP-F 801009 007-021 X32597
,C640D4D6(40E3C1C2);                     SW  EXP-F 801009 008-021 X32597
,C461C9D6(D3C5E240).                     SW  EXP-F 801009 009-021 X32597
,PAT+1C,22E006F2+RT;                     SW  EXP-F 801009 010-021 X32597
,6800001F+PAT.                           SW  EXP-F 801009 011-021 X32597
,PAT+A,22E00012+PAT;                     SW  EXP-F 801009 012-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
#ELLAF00
< INSERT GENMDS SPECIFIC TO ELLA F00 HERE:
#
#ELLAF01
< INSERT GENMDS SPECIFIC TO ELLA F01 HERE:
#
GENMD ERR:FIL
DELETE
GENMD FILL
DELETE
< REMOVE UNNECESSARY 4 PAGE LIMIT FOR FILL INCREMENTAL FILELIST.  X32803
< THIS WILL ALLOW MORE REASONABLE ACTION BY RESTORE THAN TO       X32803
< RECREATE DELETED FILES WHEN FILELIST WASN'T WRITTEN DUE TO      X32803
< EXCEEDING 4 PAGES. GENMDS TO FILL:                              X32803
:GENMD,FILL BACKUP+87,70000000(21701FE0).ML  EXP-F 801111 001-002 X32803
:GENMD,FILL BACKUP+88,70000000(6810008C+BACKUP).-F 801111 002-002 X32803
GENMD FORT
DELETE
GENMD FSAVE
DELETE

GENMD LABEL
DELETE

GENMD LDEV
DELETE
GENMD LEMUR
DELETE
GENMD LOADER
DELETE
GENMD LOGON
DELETE
< 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 SECTION3+20D,20D15180(0).         RMS EXP-F 801231 004-007 X32682
:GENMD SECTION3+20E,33F0000B(0).         RMS EXP-F 801231 005-007 X32682
:GENMD SECTION3+20F,6920020D+SECTION3(0).RMS EXP-F 801231 006-007 X32682
:GENMD SECTION3+210,68000176+SECTION2(0).RMS EXP-F 801231 007-007 X32682
< THESE  GENMDS TO LOGON FIX PROBLEM OF HALF-DUPLEX LINES NOT     X32801
< DISCONNECTING WHEN USER HANGS UP.                               X32801
:GENMD,LOGON SECTION1 7F3,68000041+PATCH(2220ADF6).       001-017 X32801
:GENMD,LOGON PATCH+41,2220ADF6.          GM  EXP-F 801230 002-017 X32801
:GENMD,LOGON PATCH+42,0420B21C.          GM  EXP-F 801230 003-017 X32801
:GENMD,LOGON PATCH+43.                   GM  EXP-F 801230 004-017 X32801
:GENMD,LOGON PATCH+44,4BF08C2D.          GM  EXP-F 801230 005-017 X32801
:GENMD,LOGON PATCH+45,21F00002.          GM  EXP-F 801230 006-017 X32801
:GENMD,LOGON PATCH+46,6830004C+PATCH.    GM  EXP-F 801230 007-017 X32801
:GENMD,LOGON PATCH+47,21F00003.          GM  EXP-F 801230 008-017 X32801
:GENMD,LOGON PATCH+48,6830004C+PATCH.    GM  EXP-F 801230 009-017 X32801
:GENMD,LOGON PATCH+49,21F00007.          GM  EXP-F 801230 010-017 X32801
:GENMD,LOGON PATCH+4A,6830004C+PATCH.    GM  EXP-F 801230 011-017 X32801
:GENMD,LOGON PATCH+4B,680007F5+SECTION1. GM  EXP-F 801230 012-017 X32801
:GENMD,LOGON PATCH+4C,0480004E+PATCH.    GM  EXP-F 801230 013-017 X32801
:GENMD,LOGON PATCH+4D,680007F5+SECTION1. GM  EXP-F 801230 014-017 X32801
:GENMD,LOGON PATCH+4E,06200000.          GM  EXP-F 801230 015-017 X32801
:GENMD,LOGON PATCH+4F,40000000.          GM  EXP-F 801230 016-017 X32801
:GENMD,LOGON PATCH+50,00800080.          GM  EXP-F 801230 017-017 X32801
< A BATCH USER WITH EXIT CONTROL CAN CLOBBER GRANULE ACCOUNTING FOX32562
< HIS ACCOUNT IF HE ABORTS WITH A TYPE II OR III ABORT.           X32562
:GENMD,LOGON SECTION2+414,32200000+SL:EPS(32208C19).      002-002 X32562
GENMD LYNX
DELETE
GENMD L6G
DELETE
GENMD OLTEST
DELETE
GENMD PASS2
DELETE
GENMD PASS3
DELETE
GENMD PCL
DELETE
< 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
< 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
GENMD PIGEON
DELETE
< PIGEON ONLY ZEROES OUT STATUS BYTES FOR 128 LINES. CP-V         X32799
< ALLOWS UP TO 255 TOTAL USERS, OF WHICH UP TO 245 COULD          X32799
< LOGICALLY BE ONLINE USERS (10 DEFAULT GHOSTS). ALTHOUGH         X32799
< PIGEON SETS MAX#LINES TO 512, THIS GENMD TO PIGEON WILL         X32799
< CLEAR OUT 254 BUTES INSTEAD OF THE CURRENT 128.                 X32799
,PIGPD+1C,FF028270(80028270).            RMS EXP-F 801118 001-001 X32799
GENMD PPS
DELETE
GENMD RATLER
DELETE
GENMD RBBAT
DELETE
< ZERO OUT SSIG WHEN RELEASING STREAM BACK TO FREE CHAIN,         XRBBAT
< GENMDS TO RBBAT:                                                XRBBAT
,RBG+E6F,680000F4+RBBP(68000E65+RBG).    HBA EXP-F 810128 001-003 XRBBAT
,RBBP+F4,75A60000+SSIG.                  HBA EXP-F 810128 002-003 XRBBAT
,RBBP+F5,68000E65+RBG.                   HBA EXP-F 810128 003-003 XRBBAT
GENMD STATS
DELETE
GENMD SUMMARY
DELETE
< SUMMARY WASTES PAPER FOR ITS SNAPSHOT HEADER LINE               X32265
:GENMD HEADER+8,682100C4(691100C4).      GF  F00 01/02/80 001-001 X32265
GENMD TEL
DELETE
< CORRECT PLATEN COMMAND TO ALLOW LOWERCASE OR TRAILING BLANK.    XTELSW
< GENMD TO TEL:                                                   XTELSW
,TEL+4CD,21100000(216000D5).             SW  EXP-F 810106 001-001 XTELSW
< DUE TO A BAD TEST IN SETAMR, A BATCH USER CAN DO A '!SET FOR    X32032
< M:C. AS A RESULT, CCI LOOPS AND JOB CAN'T BE ABORTED.           X32032
< GENMD TO TEL:                                                   X32032
:GENMD,TEL SET+5D3,03D47AC3(04D47AE4),40404040. -F 800905 001-003 X32032
:GENMD,TEL SET+5DF,04D47AE4(03D47AC3),C3404040. -F 800905 002-003 X32032
:GENMD,TEL SET+5CD,1169D94A(1169D948).   FHK EXP-F 800905 003-003 X32032
GENMD TPG
DELETE
GENMD VOLINIT
DELETE
