< MAKE MOS INITIALIZATION RUN UNMAPPED....AND THUS USABLE BY GHOST#31611
< AND CONTROL                                                     #31611
/INITIAL+.5C/B @(CI,4 0/                 JLJ F00 08/22/78 001-011 #31611
/@/BAL,1 UNMAP/                          JLJ F00 08/22/78 002-011 #31611
/@/WD,0 .37/                             JLJ F00 08/22/78 003-011 #31611
/@/CI,4 0/                               JLJ F00 08/22/78 004-011 #31611
/@/B INITIAL+.5D/                        JLJ F00 08/22/78 005-011 #31611
/INITIAL+.8F/B @(B *11/                  JLJ F00 08/22/78 006-011 #31611
/@/CI,11 PFSR+.A0/                       JLJ F00 08/22/78 007-011 #31611
/@/BE $+2/                               JLJ F00 08/22/78 008-011 #31611
/@/BAL,1 MAP/                            JLJ F00 08/22/78 009-011 #31611
/@/WD,0 .27/                             JLJ F00 08/22/78 010-011 #31611
/@/B *11/                                JLJ F00 08/22/78 011-011 #31611
<SC 79 WHEN M:SNAP WITH PAGE HEADING AND TIMING ALGORITHM         #28523
#TPCOC                                   DGH F00 08/29/78 001-019 #28523
#R@3614=COCR+.758                        DGH F00 08/29/78 002-019 #28523
#R@4252=COCR+.890                        DGH F00 08/29/78 003-019 #28523
#REGCOC                                  DGH F00 08/29/78 004-019 #28523
#R@3614=COCR+.707                        DGH F00 08/29/78 005-019 #28523
#R@4252=COCR+.83D                        DGH F00 08/29/78 006-019 #28523
#R@3614                                  DGH F00 08/29/78 007-019 #28523
/R@3614/LW,4 11(LCI 5/                   DGH F00 08/29/78 008-019 #28523
/R@3614 1/LW,9 12(PSM,11 TSTACK/         DGH F00 08/29/78 009-019 #28523
/R@3614 3/LW,11 4(LCI 5/                 DGH F00 08/29/78 010-019 #28523
/R@3614 4/LW,12 9(PLM,11 TSTACK/         DGH F00 08/29/78 011-019 #28523
/@/LCI 2/                                DGH F00 08/29/78 013-019 #28523
/@/PLM,13 TSTACK/                        DGH F00 08/29/78 014-019 #28523
/@/BAL,11 SCHED .1BC/                    DGH F00 08/29/78 015-019 #28523
/@/LCI 2/                                DGH F00 08/29/78 016-019 #28523
/@/PSM,13 TSTACK/                        DGH F00 08/29/78 017-019 #28523
/@/B R@4252 1/                           DGH F00 08/29/78 018-019 #28523
#1                                       DGH F00 08/29/78 019-019 #28523
< REPLACEMENT PATCH FOR ONE WITH SAME SIDR # DATED 9/15/78        #31630
<  WHICH MUST BE REMOVED.  PATCH ALLOWS FOR PRINTING ACROSS       #31630
<   THE CREASE IN PAPER WITH VFU LOOP MISSING BOTTOM OF           #31630
<    PAGE HOLE, AND PRINTING WITH VFC.  REQUIRES SETTING          #31630
<     LINES PER PAGE TO 0.  I.E. !LDEV L1,(LINES,0)               #31630
<                                                                 #31630
/WRTD+.212/B @(LI,1 3)/                  FJ  F00 09/20/78 001-038 #31630
/@/LI,1 3/                               FJ  F00 09/20/78 002-038 #31630
/@/LI,12 0/                              FJ  F00 09/20/78 003-038 #31630
/@/B WRTD+.213/                          FJ  F00 09/20/78 004-038 #31630
/WRTD+.7A/B @(LI,14 .F1)/                FJ  F00 09/20/78 005-038 #31630
/@/BAL,4 WRTD+.1F8/                      FJ  F00 09/20/78 006-038 #31630
/@/BEZ WRTD+.7F/                         FJ  F00 09/20/78 007-038 #31630
/@/LI,14 .F1/                            FJ  F00 09/20/78 008-038 #31630
/@/B WRTD+.7B/                           FJ  F00 09/20/78 009-038 #31630
/WRTD+.95/B @(CW,0 15)/                  FJ  F00 09/20/78 010-038 #31630
/@/BEZ WRTD+.97/                         FJ  F00 09/20/78 011-038 #31630
/@/CW,0 15/                              FJ  F00 09/20/78 012-038 #31630
/@/BL @-6/                               FJ  F00 09/20/78 013-038 #31630
/@/B WRTD+.97/                           FJ  F00 09/20/78 014-038 #31630
/WRTD+.99/B @(AI,15 1)/                  FJ  F00 09/20/78 015-038 #31630
/@/AI,15 1/                              FJ  F00 09/20/78 016-038 #31630
/@/AI,0 0/                               FJ  F00 09/20/78 017-038 #31630
/@/BNEZ WRTD+.9A/                        FJ  F00 09/20/78 018-038 #31630
/@/CI,15 .1F/                            FJ  F00 09/20/78 019-038 #31630
/@/BANZ WRTD+.9D/                        FJ  F00 09/20/78 020-038 #31630
/@/AI,5 0/                               FJ  F00 09/20/78 021-038 #31630
/@/BEZ WRTD+.9C/                         FJ  F00 09/20/78 022-038 #31630
/@/MTW,1 .17,5/                          FJ  F00 09/20/78 023-038 #31630
/@/B WRTD+.9C/                           FJ  F00 09/20/78 024-038 #31630
/WRTD+.128/LB,0 .C,1(LI,4 0)/            FJ  F00 09/20/78 025-038 #31630
/. 1/STB,0 *.E,3/                        FJ  F00 09/20/78 026-038 #31630
/. 1/CI,1 3/                             FJ  F00 09/20/78 027-038 #31630
/. 1/BGE WRTD+.131/                      FJ  F00 09/20/78 028-038 #31630
/. 1/CI,3 132/                           FJ  F00 09/20/78 029-038 #31630
/. 1/BGE WRTD+.131/                      FJ  F00 09/20/78 030-038 #31630
/. 1/AI,1 1/                             FJ  F00 09/20/78 031-038 #31630
/. 1/AI,3 1/                             FJ  F00 09/20/78 032-038 #31630
/. 1/B .-8(BAL,11 ;Q/                    FJ  F00 09/20/78 033-038 #31630
/WRTD+.218/B @(AI,1 -1/                  FJ  F00 09/20/78 034-038 #31630
/@/BCR,3 WRTD+.21A/                      FJ  F00 09/20/78 035-038 #31630
/@/AI,1 -1/                              FJ  F00 09/20/78 036-038 #31630
/@/B WRTD+.219/                          FJ  F00 09/20/78 037-038 #31630
< 18 CARDS TO ROOT 5 CARDS TO MULOV OVERLAY.                      #31634
/WRTD+.1C4/B @(LW,12 JIT,1)/             FJ  F00 09/25/78 001-023 #31634
/@/CI,1 .19/                             FJ  F00 09/25/78 002-023 #31634
/@/BE @+05/                              FJ  F00 09/25/78 003-023 #31634
/@/CI,1 .1B/                             FJ  F00 09/25/78 004-023 #31634
/@/BE @+03/                              FJ  F00 09/25/78 005-023 #31634
/@/LW,12 JIT,1/                          FJ  F00 09/25/78 006-023 #31634
/@/B WRTD+.1C5/                          FJ  F00 09/25/78 007-023 #31634
/@/LW,12 .1F,5/                          FJ  F00 09/25/78 008-023 #31634
/@/CI,12 .10/                            FJ  F00 09/25/78 009-023 #31634
/@/BANZ @-4/                             FJ  F00 09/25/78 010-023 #31634
/@/LW,12 JIT,1/                          FJ  F00 09/25/78 011-023 #31634
/@/SLD,12 -17/                           FJ  F00 09/25/78 012-023 #31634
/@/CI,12 0/                              FJ  F00 09/25/78 013-023 #31634
/@/BNE @-8/                              FJ  F00 09/25/78 014-023 #31634
/@/LI,12 1/                              FJ  F00 09/25/78 015-023 #31634
/@/SLD,12 17/                            FJ  F00 09/25/78 016-023 #31634
/@/STW,12 JIT,1/                         FJ  F00 09/25/78 017-023 #31634
/@/B @-.C/                               FJ  F00 09/25/78 018-023 #31634
< IMPROVE UTIMER ACCURACY BY CHECKING AFTER EACH MONITOR SERVICE. #27264
/SCHED+.12/BDR,0 @(BDR,0 ;Q/             KDR F00 09/26/78 001-009 #27264
/@/LW,10 .8C24/                          KDR F00 09/26/78 002-009 #27264
/@/BEZ SCHED+.39B/                       KDR F00 09/26/78 003-009 #27264
/@/LCW,13 .8C47/                         KDR F00 09/26/78 004-009 #27264
/@/AW,13 .8C0F/                          KDR F00 09/26/78 005-009 #27264
/@/AW,13 .8C07/                          KDR F00 09/26/78 006-009 #27264
/@/CW,13 .8C25/                          KDR F00 09/26/78 007-009 #27264
/@/BL SCHED+.39B/                        KDR F00 09/26/78 008-009 #27264
/@/B SCHED+.150/                         KDR F00 09/26/78 009-009 #27264
ALLOCAT1//
<DUAL ALLOCATION AFTER CRASH PROBLEM                              #31612
ALLOCAT1/ALLYCAT .1DB/STS,11 ;Q(STW,2 ;Q/ 1 OF 2 PAR 8/22/78      #31612
ALLOCAT1/ALLYCAT .238/SW,3 LITERALS .AF(AI,3 -600/2 OF 2 PAR 8/22 #31612
FIX0//
<ALLOCAT DUAL MESSAGE SHOULD BE LEGUBLE                           #31613
<9 PATCH TO FIX0, 4 TO FIX1                                       #31613
FIX0/FIXHD 2/.3815C4C1(.3715C4C1/      1 OF 13 PAR 8/23/78        #31613
FIX0/. 1/.E3C14DD5('TA S'/             2 OF 13 PAR 8/23/78        #31613
FIX0/. 1/.5DE3C9D4('TAMP'/             3 OF 13 PAR 8/23/78        #31613
FIX0/. 1/.C57EF0F0(.407EF0F0/          4 OF 13 PAR 8/23/78        #31613
FIX0/FIXHD 9/.F015C4E4('0DUA'/         5 OF 13 PAR 8/23/78        #31613
FIX0/. 1/.C1D34DE8('L ST'/             6 OF 13 PAR 8/23/78        #31613
FIX0/. 1/.5DE3C9D4('AMP '/             7 OF 13 PAR 8/23/78        #31613
FIX0/. 1/.C57EF0F0(.7EF0F0D4/          8 OF 13 PAR 8/23/78        #31613
FIX0/. 4/'0000'/(RES)                  9 OF 13 PAR 8/23/78        #31613
FIX1//
<FIX SHOULD NOT NEED AN ACCOUNT FOR PRIVATE PACKS.                #31229
FIX1/P .628/MTW,-8 ;Q(STW,4 ;Q/          PAR F00 08/31/78 001-002 #31229
FIX1/P .629/B . 3(LM,1 ;Q/               PAR F00 08/31/78 002-002 #31229
<9 PATCH TO FIX0, 4 TO FIX1                                       #31613
FIX1/FIXHGP .1CA/BAL,11 ;Q(BAL,15 ;Q/  10OF 13 PAR 8/23/78        #31613
FIX1/FIXHGP .C29/MTW SNAP .AF(STW,8 ;Q/11OF 13 PAR 8/23/78        #31613
FIX1/. 1/STW,8 FIXHD 2(BE . .3E/       13OF 13 PAR 8/23/78        #31613
GHOST11//
<EXPAND DUMPFILE WHEN CORE IS INCREASED.                          #31690
GHOST11/GHOST1D+.AE/B @(LW,3 5,1/        KRD F00 08/23/78 001-010 #31690
/@/CW,3 5,1/                             KRD F00 08/23/78 002-010 #31690
/@/BLE GHOST1D+.AF/                      KRD F00 08/23/78 003-010 #31690
/@/CAL1,1 $+4/                           KRD F00 08/23/78 004-010 #31690
/@/LI,3 0/                               KRD F00 08/23/78 005-010 #31690
/@/STW,3 *GHOST1D+.6A/                   KRD F00 08/23/78 006-010 #31690
/@/B GHOST1D+.A0/                        KRD F00 08/23/78 007-010 #31690
/@/GHOST1D+.9500006C/                    KRD F00 08/23/78 008-010 #31690
/@/.80000000/                            KRD F00 08/23/78 009-010 #31690
/@/1/                                    KRD F00 08/23/78 010-010 #31690
DEBUG//
< IF A GHOST USER IS ABORTED BY THE !ZAP COMMAND, AND IF HE DOES  #27677
< NOT HAVE ANYTHING QUEUED UP FOR THE "L1" STREAM, DON'T BOTHER   #27677
< DOING THE PSD/REGISTER SNAPSHOT AS IT'S A WASTE OF EFFORT.  IF  #27677
< GHOST HAS SOMETHING FOR "L1" OR IS ABORTED AT ANY OTHER TIME,   #27677
< DO THE SNAPSHOT 'CAUSE IT MIGHT BE INTERESTING.                 #27677
DEBUG/PMD+.20/BCS,12 @(BCS,8 PMD+.25/    DCP F00 09/07/78 001-010 #27677
/@/BCS,8 PMD+.25/  (ONLY GHOSTS HERE)    DCP F00 09/07/78 002-010 #27677
/@/LW,2 JIT+.2A/ (HAS HE ANY CONTEXT?)   DCP F00 09/07/78 003-010 #27677
/@/BEZ @+4/ (IF NOT, L1 AIN'T HERE!)     DCP F00 09/07/78 004-010 #27677
/@/LW,2 2,2/(HAS CONTEXT - GET L1'S PTR) DCP F00 09/07/78 005-010 #27677
/@/LC 2/ (CHECK THE "Y2" BIT - IF SET,   DCP F00 09/07/78 006-010 #27677
/@/BCS,2 PMD+.21/ L1 STREAM EXISTS)      DCP F00 09/07/78 007-010 #27677
/@/BLZ PMD+.CE/ (IF SO DON'T SNAPSHOT)   DCP F00 09/07/78 009-010 #27677
/@/B PMD+.21/ (IF NOT !ZAP, DO SNAP.)    DCP F00 09/07/78 010-010 #27677
LDLNK//
< M:LINK TESTS TO ENSURE THAT USER HASN'T BEEN PLAYING FORBIDDEN  #31805
< GAMES WITH HIS DYNAMIC DATA AREA (VIA M:GVP, M:FVP) AREN'T      #31805
< STRICT ENOUGH - USER CAN SOMETIMES GET BY THE TESTS WHEN HE     #31805
< SHOULDN'T BE ABLE TO, AND STRANGE ERRORS OCCUR LATER ON IN      #31805
< THE M:LINK PROCESS.  PATCH ADDS CODE TO ENSURE THAT THE PAGES   #31805
< THAT SHOULD BE PRESENT ACTUALLY ARE.                            #31805
#SEABASS=@                               DCP F00 09/26/78 001-021 #31805
/@/LW,9 3/                               DCP F00 09/26/78 002-021 #31805
/@/BEZ *10/                              DCP F00 09/26/78 003-021 #31805
/@/AW,7 2/                               DCP F00 09/26/78 004-021 #31805
/@/EXU LNKTRC+.538/                      DCP F00 09/26/78 005-021 #31805
/@/CI,8 .20/                             DCP F00 09/26/78 006-021 #31805
/@/BE LNKTRC+.540/                       DCP F00 09/26/78 007-021 #31805
/@/BDR,9 @-4/                            DCP F00 09/26/78 008-021 #31805
/@/B *10/                                DCP F00 09/26/78 009-021 #31805
LDLNK/LNKTRC+.528/BAL,10 @(SW,4 3/       DCP F00 09/26/78 010-021 #31805
/@/SW,4 3/                               DCP F00 09/26/78 011-021 #31805
/@/LW,3 4/                               DCP F00 09/26/78 012-021 #31805
/@/LI,2 1/                               DCP F00 09/26/78 013-021 #31805
/@/LB,7 JIT+.121,2/                      DCP F00 09/26/78 014-021 #31805
/@/B SEABASS/                            DCP F00 09/26/78 015-021 #31805
LDLNK/LNKTRC+.52D/BAL,10 @(AW,4 3/       DCP F00 09/26/78 016-021 #31805
/@/AW,4 3/                               DCP F00 09/26/78 017-021 #31805
/@/LB,7 JIT+.121/                        DCP F00 09/26/78 019-021 #31805
/@/B SEABASS/                            DCP F00 09/26/78 020-021 #31805
#SEABASS;K1                              DCP F00 09/26/78 021-021 #31805
< IMPLICIT RETURN FROM PROGRAM THAT USES :P1 AND IS BEING RUN     #31590
< UNDER DELTA CAUSES LOATHSOME THINGS TO HAPPEN TO :P1'S          #31590
< USAGE COUNT - OTHER PEOPLE GET A300'ED.                         #31590
LDLNK/LNKTRC+.5E8/BNEZ @(BNEZ LNKTRC+.5EA/   F00 08/28/78 001-006 #31590
/@/CI,15 .40/    (DELTA IN CONTROL?)     DCP F00 08/28/78 002-006 #31590
/@/BAZ LNKTRC+.5EA/ (IF NOT, RETURN)     DCP F00 08/28/78 003-006 #31590
/@/LB,7 UB:ASP,4/   (GET LIBRARY ID)     DCP F00 08/28/78 004-006 #31590
/@/MTB,1 PB:UC,7/(FUDGE COUNT - IT GETS  DCP F00 08/28/78 005-006 #31590
/@/B LNKTRC+.5EA/ DECREMENTED LATER)     DCP F00 08/28/78 006-006 #31590
MISOV//
< M:SEGLD REALLY SHOULD MAKE SURE THAT THE USER'S SEGMENT DOESN'T #31830
< EXTEND PAST J:EUP (END OF PROGRAM) LEST THE USER'S SHARED       #31830
< LIBRARY BE CLOBBERED.  IF THIS IS ATTEMPTED, ABORT USER WITH    #31830
< A "B109 SEGMENT EXCEEDS VIRTUAL MEMORY SPACE" ERROR (WHICH      #31830
< YOU CAN ADD TO ERRMSG.:SYS IF YOU WISH)                         #31830
MISOV/SEGLD+.123/B @(BCS,9 SEGLD+.165/   DCP F00 09/26/78 001-006 #31830
/@/BCS,9 SEGLD+.165/                     DCP F00 09/26/78 002-006 #31830
/@/CW,12 JIT+.113/                       DCP F00 09/26/78 003-006 #31830
/@/BLE SEGLD+.124/                       DCP F00 09/26/78 004-006 #31830
/@/LI,14 9/                              DCP F00 09/26/78 005-006 #31830
/@/B SEGLD+.16F/                         DCP F00 09/26/78 006-006 #31830
MPC9310//
<DONT ERROR IF REWIND AT LOAD POINT.                              #31076
MPC9310/.8003+.F00/.08850000(.C5800000/  KRD F00 06/15/78 002-002 #31076
MULOV//
< KEEP TRAILING BANNER PAGE COUNT'S CORRECT.                      #31634
< 18 CARDS TO ROOT 5 CARDS TO MULOV OVERLAY.                      #31634
MULOV/OPNLD+.458/B @(AI,1 1)/            FJ  F00 09/25/78 019-023 #31634
/@/AI,1 1/                               FJ  F00 09/25/78 020-023 #31634
/@/LI,11 1/                              FJ  F00 09/25/78 021-023 #31634
/@/STW,11 .17,3/                         FJ  F00 09/25/78 022-023 #31634
/@/B OPNLD+.459/                         FJ  F00 09/25/78 023-023 #31634
< !LDEV C2,(AINIT) CAN GRAB INPUT FILES AS WELL AS !!NCTL FILES,  #31627
< SO JOBS FALL INTO A BLACK HOLE AND VANISH.                      #31627
MULOV/OPNLD+.95/B @(LI,12 .FF/           DCP F00 09/11/78 001-006 #31627
/@/BDR,4 OPNLD+.94/                      DCP F00 09/11/78 002-006 #31627
/@/LI,12 .FF/                            DCP F00 09/11/78 003-006 #31627
/@/LW,2 @+2/                             DCP F00 09/11/78 004-006 #31627
/@/B OPNLD+.96/                          DCP F00 09/11/78 005-006 #31627
/@/.D0000000/                            DCP F00 09/11/78 006-006 #31627
<FIX SECURITY PROBLEM, ALSO MAKE OPEN SAVE CLOSE DELETE OPERATE   #31609
< THE WAY IT WAS INTENDED TO.                                     #31609
MULOV/OPNLD+.182/BG ;Q(BL ;Q)/           FJ  F00 08/22/78 001-062 #31609
MULOV/OPNLD+.6F/B @(B OPNLD+.AF)/        FJ  F00 08/22/78 002-062 #31609
/@/LW,14 10,2/                           FJ  F00 08/22/78 003-062 #31609
/@/CI,14 .22/                            FJ  F00 08/22/78 004-062 #31609
/@/BNE $+8/                              FJ  F00 08/22/78 005-062 #31609
/@/LW,1 2/                               FJ  F00 08/22/78 006-062 #31609
/@/LH,14 13,1/                           FJ  F00 08/22/78 008-062 #31609
/@/SLS,14 1/                             FJ  F00 08/22/78 009-062 #31609
/@/AI,14 -1/                             FJ  F00 08/22/78 010-062 #31609
/@/STH,14 13,1/                          FJ  F00 08/22/78 011-062 #31609
/@/B OPNLD+.AF/                          FJ  F00 08/22/78 012-062 #31609
/@/CI,14 .F0/                            FJ  F00 08/22/78 013-062 #31609
/@/BANZ OPNLD+.AF/                       FJ  F00 08/22/78 014-062 #31609
/@/STW,15 9,2/                           FJ  F00 08/22/78 015-062 #31609
/@/LI,1 .1A/                             FJ  F00 08/22/78 016-062 #31609
/@/STH,15 *2,1/                          FJ  F00 08/22/78 017-062 #31609
/@/LI,1 1/                               FJ  F00 08/22/78 018-062 #31609
/@/STW,1 7,2/                            FJ  F00 08/22/78 019-062 #31609
/@/B OPNLD+.AF/                          FJ  F00 08/22/78 020-062 #31609
MULOV/SUPCLS+.164/BE @(BE SUPCLS+.106)/  FJ  F00 08/22/78 021-062 #31609
/@/LI,4 1/                               FJ  F00 08/22/78 022-062 #31609
/@/STH,12 .E,4/                          FJ  F00 08/22/78 023-062 #31609
/@/B SUPCLS+.106/                        FJ  F00 08/22/78 024-062 #31609
MULOV/SUPCLS+.182/LI,4 .40(LI,4 .12)/    FJ  F00 08/22/78 025-062 #31609
MULOV/SUPCLS+.183/STB,4 *3,5/            FJ  F00 08/22/78 026-062 #31609
MULOV/SUPCLS+.184/LI,4 .12/              FJ  F00 08/22/78 027-062 #31609
MULOV/SUPCLS+.185/STB,4 .E(STB,4 *3,5)/  FJ  F00 08/22/78 028-062 #31609
MULOV/SUPCLS+.130/NOP 1(BAL,6 ;Q)/       FJ  F00 08/22/78 029-062 #31609
MULOV/SUPCLS+.150/NOP 2(BAL,6 ;Q)/       FJ  F00 08/22/78 030-062 #31609
MULOV/SUPCLS+.17E/LI,5 .7C(LI,5 .68)/    FJ  F00 08/22/78 031-062 #31609
MULOV/SPFIP/CI,14 .22/                   FJ  F00 08/22/78 033-062 #31609
MULOV/SPFIP+1/BE SUPCLS+.174/            FJ  F00 08/22/78 034-062 #31609
MULOV/SPFIP+2/CI,14 .F0/                 FJ  F00 08/22/78 035-062 #31609
MULOV/SPFIP+3/BANZ SUPCLS+.EF/           FJ  F00 08/22/78 036-062 #31609
MULOV/SPFIP+4/B SUPCLS+.174/             FJ  F00 08/22/78 037-062 #31609
MULOV/SUPCLS+.17A/B SPFIP+5(LI,12 .B)/   FJ  F00 08/22/78 038-062 #31609
MULOV/SPFIP+5/BAL,6 SUPCLS+.17E/         FJ  F00 08/22/78 039-062 #31609
MULOV/SPFIP+6/CB,4 .E/                   FJ  F00 08/22/78 040-062 #31609
MULOV/SPFIP+7/BE $+5/                    FJ  F00 08/22/78 041-062 #31609
MULOV/SPFIP+8/CI,14 .DD/                 FJ  F00 08/22/78 042-062 #31609
MULOV/SPFIP+9/BAZ SUPCLS+.17D/           FJ  F00 08/22/78 043-062 #31609
MULOV/SPFIP+.A/LI,12 .B/                 FJ  F00 08/22/78 044-062 #31609
MULOV/SPFIP+.B/B SUPCLS+.17B/            FJ  F00 08/22/78 045-062 #31609
MULOV/SPFIP+.C/LI,4 0/                   FJ  F00 08/22/78 046-062 #31609
MULOV/SPFIP+.D/STB,4 .D/                 FJ  F00 08/22/78 047-062 #31609
MULOV/SPFIP+.E/LI,12 .C/                 FJ  F00 08/22/78 048-062 #31609
MULOV/SPFIP+.F/B SUPCLS+.17B/            FJ  F00 08/22/78 049-062 #31609
MULOV/OPNLD+.102/B @(CH,12 ;Q)/          FJ  F00 08/22/78 050-062 #31609
/@/SLD,12 -8/                            FJ  F00 08/22/78 051-062 #31609
/@/CI,12 .23/                            FJ  F00 08/22/78 052-062 #31609
/@/BGE OPNLD+.D6/                        FJ  F00 08/22/78 053-062 #31609
/@/CI,12 .10/                            FJ  F00 08/22/78 054-062 #31609
/@/BE OPNLD+.D6/                         FJ  F00 08/22/78 055-062 #31609
/@/LI,12 0/                              FJ  F00 08/22/78 056-062 #31609
/@/SLD,12 8/                             FJ  F00 08/22/78 057-062 #31609
/@/BGE OPNLD+.D6/                        FJ  F00 08/22/78 059-062 #31609
/@/CI,12 .10/                            FJ  F00 08/22/78 060-062 #31609
/@/BE OPNLD+.D6/                         FJ  F00 08/22/78 061-062 #31609
/@/B OPNLD+.104/                         FJ  F00 08/22/78 062-062 #31609
UMOV//
#
< CORRECT SC 01 WHEN GETTING AJIT AND THERE IS NO OTHER DATA.     #31771
UMOV/SWAPPER+.351/B @(LB,3 ;Q,1/         KDR F00 09/22/78 001-009 #31771
/@/LB,3 .12F,1/                          KDR F00 09/22/78 002-009 #31771
/@/MTB,0 .12E,1/                         KDR F00 09/22/78 003-009 #31771
/@/BNEZ SWAPPER+.352/                    KDR F00 09/22/78 004-009 #31771
/@/LW,4 SSDATU+.3/                       KDR F00 09/22/78 005-009 #31771
/@/SLS,1 -:BIG/                          KDR F00 09/22/78 006-009 #31771
/@/STX,4 .12B,1/                         KDR F00 09/22/78 007-009 #31771
/@/SLS,1 :BIG/                           KDR F00 09/22/78 008-009 #31771
/@/B SWAPPER+.354/                       KDR F00 09/22/78 009-009 #31771
<   PREVENT SC 7E-40 DUE TO HOLE IN OUTSYM.                       #31633
< ALSO FIXES THE BATCH QUEUE WIPEOUT PROBLEM THAT SEEMS TO        #31633
<  OCCUR WHEN THE OUTPUT QUEUE GETS FULL. AND ATTEMPTS ARE MADE   #31633
<  TO FIND OUT WHAT'S IN THERE VIA DISP KEYINS ETC. ETC.          #31633
UMOV/OUTSYM+.230/LI,4 .-2(AI,4 ;Q)/      FJ  F00 09/25/78 001-001 #31633
<MAKE OC MESSAGE 'NOT OPERATIONAL' FOR MPC.                       #31632
#MPCTIO                                  KRD F00 09/22/78 001-006 #31632
UMOV/MPCTIO+.67/LI,13 IOQM+.130(LI,13 IOQM+.12B/ 09/22/78 002-006 #31632
#                                        KRD F00 09/22/78 003-006 #31632
#MPCDIO                                  KRD F00 09/22/78 004-006 #31632
#                                        KRD F00 09/22/78 006-006 #31632
<SET REWIND TYC TO ONE.                                           #31631
#MPCTIO                                  KRD F00 09/22/78 001-003 #31631
UMOV/MPCTIO+.22E/LI,12 1(LI,12 0/        KRD F00 09/22/78 002-003 #31631
#                                        KRD F00 09/22/78 003-003 #31631
< MAKE ESC-W TOGGLE INSTEAD OF ONLY SET OUTPUT IGNORE MODE        #31750
#REGCOC                                    .31AUG78 PLS F00 01-05 #31750
UMOV/COCU+.140/EOR,12 ;Q(OR,12 ;Q)/ COCU891.31AUG78 PLS F00 02-05 #31750
#TPCOC                                     .31AUG78 PLS F00 03-05 #31750
UMOV/COCU+.166/EOR,12 ;Q(OR,12 ;Q)/ COCU891.31AUG78 PLS F00 04-05 #31750
#1                                         .31AUG78 PLS F00 05-05 #31750
< DURING DEVICE-KEYIN PROCESSING, IOQ SETS THE INTER-OP BIT IN    #31621
< DCT5 IF THE DEVICE HANDLER SAYS TO DO SO.  IF THE KEYIN IS      #31621
< AN 'E' OR 'C' (OR AN 'R' WITH RETRY COUNT EXHAUSTED) IOQ CALLS  #31621
< REQCOM1 TO SIGNAL I/O COMPLETE;  REQCOM1 THEN CALLS DRIVEIO TO  #31621
< START ANY FURTHER I/O QUEUED FOR THE DEVICE.  DRIVEIO ASSUMES   #31621
< THAT IF INTER-OP BIT IS SET THE IOQ INDEX IN DCT6 STILL APPLIES;#31621
< THIS ISN'T SO IN THIS CASE 'CAUSE THE IOQ ENTRY HAS ALREADY     #31621
< BEEN RETURNED TO THE FREE CHAIN.  TOTAL DISASTER OCCURS.        #31621
< FIX:  BEFORE CALLING REQCOM1, CLEAR INTER-OP BIT.               #31621
UMOV/IOQ+.49B/BAL,4 @(BAL,4 IOQ+.31C/    DCP F00 08/31/78 001-004 #31621
/@/AND,0 LITERALS+.29/                   DCP F00 08/31/78 002-004 #31621
/@/STB,0 DCT5,1/                         DCP F00 08/31/78 003-004 #31621
/@/B IOQ+.31C/                           DCP F00 08/31/78 004-004 #31621
#MINCOC                                    .28AUG78 PLS F00 01-16 #31616
UMOV/COCU+.14C/NOP(WD,0 .37)/ COCU1399     .28AUG78 PLS F00 02-16 #31616
UMOV/COCU+.16F/NOP(BAL,13 ;Q)/ COCU1444    .28AUG78 PLS F00 03-16 #31616
UMOV/COCU+.170/LW,6 @(LI,6 6)/ E:CUB COCU1446      .PLS F00 04-16 #31616
/@/.40000006/ DONT-ENABLE-IN-SCHED + E:CUB .28AUG78 PLS F00 05-16 #31616
#REGCOC                                    .28AUG78 PLS F00 06-16 #31616
UMOV/COCU+.23E/NOP(WD,0 .37)/ COCU1399     .28AUG78 PLS F00 07-16 #31616
UMOV/COCU+.26A/NOP(BAL,13 ;Q)/ COCU1444    .28AUG78 PLS F00 08-16 #31616
UMOV/COCU+.26B/LW,6 @(LI,6 6)/ E:CUB COCU1446      .PLS F00 09-16 #31616
/@/.40000006/ DONT-ENABLE-IN-SCHED + E:CUB .28AUG78 PLS F00 10-16 #31616
#TPCOC                                     .28AUG78 PLS F00 11-16 #31616
UMOV/COCU+.2A0/NOP(WD,0 .37)/ COCU1399     .28AUG78 PLS F00 12-16 #31616
UMOV/COCU+.2CC/NOP(BAL,13 ;Q)/ COCU1444    .28AUG78 PLS F00 13-16 #31616
UMOV/COCU+.2CD/LW,6 @(LI,6 6)/ E:CUB COCU1446      .PLS F00 14-16 #31616
/@/.40000006/ DONT-ENABLE-IN-SCHED + E:CUB .28AUG78 PLS F00 15-16 #31616
#1                                         .28AUG78 PLS F00 16-16 #31616
<BAD REGISTER FIX.                                                #31610
UMOV/IOQ+.48D/;Q-.100000(LB,3 DCT3,1/    KRD F0D 08/22/78 001-003 #31610
UMOV/IOQ+.48E/;Q-.100000(AND,3 LITERALS+.67/ F0D 08/22/78 002-003 #31610
UMOV/IOQ+.48F/;Q-.100000(STB,3 DCT3,1/   KRD F0D 08/22/78 003-003 #31610
RECOVER//
<LET CYCUSR DUMP PARTIAL 128K BLOCK.                              #31629
RECOVER/CYCUSR+.5FB/LW,6 CYCUSR+.748(LI,6 .B0/   09/15/78 001-002 #31629
RECOVER/CYCUSR+.5FC/STW,6 ;Q,3(STB,6 CYCUSR+.71E,3/       002-002 #31629
<BAD REG IN CYCUSR.                                               #31614
RECOVER/CYCUSR+.7B8/BAL,3 ;Q(BAL,11 CYCUSR+.85E/ 08/24/78 001-005 #31614
RECOVER/CYCUSR+.7CB/BAL,3 ;Q(BAL,11 CYCUSR+.85E/ 08/24/78 002-005 #31614
RECOVER/CYCUSR+.7E1/BAL,3 ;Q(BAL,11 CYCUSR+.85E/ 08/24/78 003-005 #31614
RECOVER/CYCUSR+.7FA/BAL,3 ;Q(BAL,11 CYCUSR+.85E/ 08/24/78 004-005 #31614
RECOVER/CYCUSR+.863/B 0,3(B *11/         KRD F0D 08/24/78 005-005 #31614
*
GENMD CONTROL
< CONTROL CANT GO UNMAPPED TO SET RCE FLIP-FLOPS IN MOS           #31611
< MEMORY.....PERFORM THIS ACTION IN THE MONITOR ROOT...           #31611
:GENMD,CONTROL MOS+1AE,02000000.         JLJ F00 08/23/78 001-010 #31611
:GENMD,CONTROL MOS+1AF,02000000.         JLJ F00 08/23/78 002-010 #31611
:GENMD,CONTROL MOS+1B0,02000000.         JLJ F00 08/23/78 003-010 #31611
:GENMD,CONTROL MOS+1B2,68000000+MOS:PP.  JLJ F00 08/23/78 004-010 #31611
:GENMD,CONTROL MOS:PP+0,22400001(00000BAD).  F00 08/23/78 005-010 #31611
:GENMD,CONTROL MOS:PP+1,35B00007(00000BAD).  F00 08/23/78 006-010 #31611
:GENMD,CONTROL MOS:PP+2,6AB0005C+INITIAL(00000BAD).       007-010 #31611
:GENMD,CONTROL MOS:PP+3,32B00007(00000BAD).  F00 08/23/78 008-010 #31611
:GENMD,CONTROL MOS:PP+4,6D000027(00000BAD).  F00 08/23/78 009-010 #31611
:GENMD,CONTROL MOS:PP+5,680001B3+MOS(00000BAD).  08/23/78 010-010 #31611
GENMD DEFCOM
<DEFCOM DOESN'T GET ENUFF BUFFER PAGES IF REF/DEF STACK ENDS ON A #31619
<PAGE BOUNDARY                                                    #31619
:GENMD DEFCM+68,20100200(201001FF).      JTA F00 08/30/78 001-001 #31619
GENMD EDIT
<EDIT SHOULD WORK AS A GHOST JOB, TOO.                            #31622
,P+22F,69C00236+P(69800236+P).           PAR F00 09/20/78 001-015 #31622
,P+1526,69C0152B+P(6980152B+P).          PAR F00 09/20/78 002-015 #31622
,P+16A5,69C016A8+P(698016A8+P).          PAR F00 09/20/78 003-015 #31622
,PATCHP+9,B206000C(0).                   PAR F00 09/20/78 004-015 #31622
,PATCHP+B,6910123C+P(0).                 PAR F00 09/20/78 006-015 #31622
,PATCHP+C,68001241+P(0).                 PAR F00 09/20/78 007-015 #31622
,P+123A,44400009+PATCHP(3240000C).       PAR F00 09/20/78 008-015 #31622
,P+123B,3060017A+D(30400003).            PAR F00 09/20/78 009-015 #31622
,P+1247,6830000A+PATCHP(68301241+P).     PAR F00 09/20/78 010-015 #31622
,P+1260,3160000A(3860000A).              PAR F00 09/20/78 011-015 #31622
,P+1265,6800123B+P(6800123C+P).          PAR F00 09/20/78 012-015 #31622
,P+16A7,6800000D+PATCHP(680E0000).       PAR F00 09/20/78 013-015 #31622
,PATCHP+D,4100098+BPMPT1(0).             PAR F00 09/20/78 014-015 #31622
,PATCHP+E,680E0000(0).                   PAR F00 09/20/78 015-015 #31622
< FIX PROBLEM WHERE EXTRA TRAILING BLANKS ARE APPENDED WHEN       #31617
< TAB COMPRESSION IS DONE.                                        #31617
,P+1645,68000000+PATCHP.                   .28AUG78 PLS F00 01-11 #31617
,PATCHP,;                                  .28AUG78 PLS F00 02-11 #31617
22500040(0),;         LI,P1 X'40'          .28AUG78 PLS F00 03-11 #31617
204FFFFF(0),;         AI,X2 -1             .28AUG78 PLS F00 04-11 #31617
68200006+PATCHP(0),;  BLEZ $+4             .28AUG78 PLS F00 05-11 #31617
71580088+D(0),;       CB,P1 CARDIMG,X2     .28AUG78 PLS F00 06-11 #31617
69300006+PATCHP(0),;  BNE $+2              .28AUG78 PLS F00 07-11 #31617
68000001+PATCHP(0),;  B $-4                .28AUG78 PLS F00 08-11 #31617
20400001(0),;         AI,X2 1              .28AUG78 PLS F00 09-11 #31617
354000C8+D(0),;       STW,X2 RECSIZE       .28AUG78 PLS F00 10-11 #31617
68001646+P(0).        B P+.1646            .28AUG78 PLS F00 11-11 #31617
GENMD ELLA
< FIX "COULD NOT WAKE UP ERR:FIL" MESSAGE.  ALSO MAKE ELLA        #31628
:GENMD BRK:CHK+4E,22E0001B(22E00015).    DCP F00 09/11/78 001-006 #31628
:GENMD RT+A7B,68000000+PAT(21E00032).    DCP F00 09/11/78 002-006 #31628
:GENMD PAT+0,04800003+PAT.               DCP F00 09/11/78 003-006 #31628
:GENMD PAT+1,21E00032.                   DCP F00 09/11/78 004-006 #31628
:GENMD PAT+2,68000A7C+RT.                DCP F00 09/11/78 005-006 #31628
:GENMD PAT+3,0F000001.                   DCP F00 09/11/78 006-006 #31628
GENMD LDEV
< REPLACEMENT PATCH FOR ONE WITH SAME SIDR # DATED 9/15/78        #31630
<  WHICH MUST BE REMOVED.  PATCH ALLOWS FOR PRINTING ACROSS       #31630
<   THE CREASE IN PAPER WITH VFU LOOP MISSING BOTTOM OF           #31630
<    PAGE HOLE, AND PRINTING WITH VFC.  REQUIRES SETTING          #31630
<     LINES PER PAGE TO 0.  I.E. !LDEV L1,(LINES,0)               #31630
<                                                                 #31630
:GENMD,LDEV SECT4+41,900000FF(900001FF). FJ  F00 09/20/78 038-038 #31630
GENMD PCL
<PCL SHOULDN'T PUT EXTRA BLOCKS IN MULTI-VOLUME AT FILES          #31623
,RDWRT+1B8,6AE001E5+RDWRT(6A2001E5+RDWRT).   F00 09/25/78 001-004 #31623
,RDWRT+1E1,6AE001E5+RDWRT(6A2001E5+RDWRT).   F00 09/25/78 002-004 #31623
,RDWRT+1E6,E830000E(68340000).           PAR F00 09/25/78 003-004 #31623
,RDWRT+1E8,E920000E(69240000).           PAR F00 09/25/78 004-004 #31623
<PCL SHOULDN'T THINK FMT MEANS CAT ON INPUT.                      #31521
,BLDCB+B9,21101000(21100800).            PAR F00 08/31/78 001-001 #31521
<COPYSTD ME TO ... SHOULD WORK IN PCL                             #31615
,COPYALL+1BA,351E0009(353E0009).       1 OF 1 PAR 8/28/78         #31615
GENMD RBBAT
< AN "ADD PARTIAL OUTPUT FILE" REQUEST USUALLY COMES IN WITH THE  #31620
< X'20' BIT SET IN THE PRIORITY FIELD, INDICATING THAT RBBAT      #31620
< STRIPPED BY THE "AOFSET" (GENERAL "ADD OUTPUT FILE") ROUTINE,   #31620
< SINCE "ADD OUTPUT FILE" IS ALSO USED TO "FILL" MFILES AND       #31620
< !!NCTL FILES (PRIORITIES X'21' AND X'22').  THE PARTIAL         #31620
< OUTPUT FILE GETS CHAINED ONTO A "QUEUE" THAT IS X'20'           #31620
< PRIORITIES TOO HIGH, THUS (USUALLY) STOMPING ON A               #31620
< QUEUE HEAD OR TAIL AND BADLY EVISCERATING THE BATCH             #31620
< QUEUE.  (SLOTS AND FILES GET LOST, ETC...)   FIX - CLEAR        #31620
< THE X'20' BIT BEFORE CALLING "AOFSET".                          #31620
:GENMD RBG+37B,6A000000+RBBP(6A000315+RBG).  F00 08/30/78 001-004 #31620
:GENMD RBBP+0,32100000+Y2.               DCP F00 08/30/78 002-004 #31620
:GENMD RBBP+1,470E0002.                  DCP F00 08/30/78 003-004 #31620
:GENMD RBBP+2,68000315+RBG.              DCP F00 08/30/78 004-004 #31620
