1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4001
+                                                            4001
+                                                            4001
                                                       Date: Sept 20, 1977 
                                                     Person: Engle
-Component:  TIME  (360/1)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     When subroutine is used on a 360 and the print option is 
     specified, "SPRINT CALL USES ILLEGAL PARAMETERS" results. 
-Source changes expressed in old update (*UPDATE) form,
+______________
                based on D4.0 sequence id.
 
 
     %AFTER TIME0620 
              SR    R15,R15 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN C4001 
     /COPY "TOFSOVLY" 
     /COPY COUNT=3 
              SR    R15,R15 
     /END 
-Comments:
+________
 
 
     Corrects incorrect value for modifiers address in SPRINT 
     parameter list when run on a 360. 
      
     Note: Object for TIME on the restore tape has been changed. 
           Source, updated as per above, is in MTS:TIME on the 
           restore-tape pack. 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4002
+                                                            4002
+                                                            4002
                                                       Date: Sept 22, 1977 
                                                     Person: Alexander
-Component:  MTS  (42/1)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Local time limit expiring just when user program was entering 
     CMD subroutine was not handled properly. 
-Source changes expressed in old update (*UPDATE) form,
+______________
                based on D4.0 sequence id.
 
 
     %AFTER MTS00742 
              MVI   CLSCMDID+1,MTSFLG    for local time limit 
     *                                   at entry to CMD 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN C4002 
     /COPY "NXTSEG" 
     /COPY COUNT=4 
              MVI   CLSCMDID+1,MTSFLG    for local time limit 
     *                                   at entry to CMD 
     /END 
-Comments:
+________
 
 
     REP cards for this are in the *IPL... files on the 
     restore-tape pack. 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4003
+                                                            4003
+                                                            4003
                                                       Date: Sept 22, 1977 
                                                     Person: Helffrich
-Component:  TABLES(DECKGEN)  (004/5)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Corrects bug in generation of the CHANNELS table for selector 
     sub-channels. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN C4003 
     /COPY "TABSEL" 
     /COPY COUNT=3 
     TABSE5   DS    0H 
     /COPY "TABSE4" 
     /EDIT "TABSE1" = "TABSE5" 
     /END 
-Comments:
+________
 
 
     This correction is in the restore-tape pack files 
     MTS:DCKPCHR.S and MTS:DCKPCHR.O, and the ipl files *IPL... 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4004
+                                                            4004
+                                                            4004
                                                       Date: Sept 22, 1977 
                                                     Person: Helffrich
-Component:  TABLES(DECKGEN)  (004/5)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Corrects generation of BLKMPX table, for both 360s and 370s. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN C4004 
     /COPY "TABSIO1" 
     /COPY BLANKS "ESDEF BLKMPX,R2" 
     /SKIP COUNT=2 
     /COPY "TABBLK1" 
     /DELETE BLANKS "TM    3(RA),1" 
              TM    3(RA),8            SEL SUB? 
     /DELETE BLANKS "BZ    TABBLK2" 
              BO    TABBLK2            YES 
     /END 
-Comments:
+________
 
 
     This correction is in the restore-tape pack files 
     MTS:DCKPCHR.S and MTS:DCKPCHR.O, and the ipl files *IPL... 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4005
+                                                            4005
+                                                            4005
                                                       Date: Sept 22, 1977 
                                                     Person: Helffrich
-Component:  TABLES(DECKGEN)  (004/5)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Fixes bug in allocation of TERMBFRS. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN C4005 
     /COPY "TABGNJT" 
     /COPY BLANKS "ESDEF TERMBFRS,R2" 
     /DELETE BLANKS "LA    R1,2(R2,R2)" 
              LA    R1,0(R8,R8)        PAST 'BUFUSE' 
     /DELETE BLANKS "BCTR  R0,0" 
     /SKIP COUNT=1 
     /END 
-Comments:
+________
 
 
     This correction is in the restore-tape pack files 
     MTS:DCKPCHR.S and MTS:DCKPCHR.O, and the ipl files *IPL... 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4006
+                                                            4006
+                                                            4006
                                                       Date: Oct 5, 1977 
                                                     Person: Tiffany
-Component:  *APC(NEW_EXPLAIN)  (496/5)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     If the user attempts "EXPLAIN COMPARE", he gets 
     more than just the description of the COMPARE 
     command. 
-Source changes expressed in edit commands form,
+______________
                based on D4.0 source.
 
 
     EDIT ETC:APCEXP 
     SCAN 'COMPARE' 
     CHANGE '6M'6' 
     STOP 
-Comments:
+________
 
 
     The offensive letter "M" after a line number 
     for the description of the COMPARE command is 
     removed. 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4007
+                                                            4007
+                                                            4007
                                                       Date: Oct 07, 1977 
                                                     Person: Lift
-Component:  PLOT SYSTEM(PALPHA)  (615/7)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Corrects bug in PALPHA which prevented loading of alphabets 
     from user files. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN C4007 
     /COPY BEFORE "PALIB7" 
     PALIB7   L     3,0(,1)            SAVE CONTROL BLOCK ADDRESS 
     /EDIT "PALIB7" = "      " 
     /DELETE      "         L     3,CPACON" 
     /END 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4008
+                                                            4008
+                                                            4008
                                                       Date: Oct 07, 1977 
                                                     Person: Lift
-Component:  PLOT SYSTEM(PALPHA)  (615/7)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Corrects bug in PSMLEN which prevented it from working for 
     characters sets with grid size > 16. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN C4008 
     /COPY BEFORE "         LA    7,PLCHARC" 
     /SKIP C=4 
     /COPY BEFORE "PLCHARA" 
     /COPY C=2 
     /SKIP C=1 
     /COPY BEFORE "PLCHARD" 
     /SKIP C=3 
     /END 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4009
+                                                            4009
+                                                            4009
                                                       Date: Oct 07, 1977 
                                                     Person: Alexander
-Component:  MTS  (42/1)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     The changes specified in Change Form 4002 were incorrect 
     in that they not only fixed the problem described, they 
     also "fixed" a great many other things too.  REMOVE THE 
     CHANGES SPECIFIED BY 4002 and then apply the change here. 
-Source changes expressed in old update (*UPDATE) form,
+______________
                based on D4.0 sequence id.
 
 
     %AFTER MTS04618 
              MVI   CLSCMDID+1,MTSFLG 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN C4009 
     /COPY 'OKEDONE ' 
              MVI   CLSCMDID+1,MTSFLG 
     /END 
-Comments:
+________
 
 
     Don't forget to REMOVE THE INSERTION SPECIFIED in 4002. 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4010
+                                                            4010
+                                                            4010
                                                       Date: Oct 10, 1977 
                                                     Person: Sherry
-Component:  UMLOAD  (001/1)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Corrects bug discovered by RPI to round length on END 
     card to nearest doubleword. 
-Source changes expressed in old update (*UPDATE) form,
+______________
                based on D4.0 sequence id.
 
 
     %DELETE UMLD1827 
     ENDCF3   LA    R2,7(,R2)          ROUND UP LENGTH TO 
              N     R2,=X'FFFFFFF8'     NEAREST DOUBLEWORD. 
              ST    R2,ESDLEN          CSECT FINALLY HAS A LENGTH 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN C4010 
     /DELETE "ENDCF3   ST    R2,ESDLEN" 
     ENDCF3   LA    R2,7(,R2)          ROUND UP LENGTH TO 
              N     R2,=X'FFFFFFF8'     NEAREST DOUBLEWORD. 
              ST    R2,ESDLEN          CSECT FINALLY HAS A LENGTH 
     /END 
-Comments:
+________
 
 
     This bug caused some TXT cards (in OS-generated modules) 
     to be rejected with the message "ILLEGAL TXT CARD LENGTH 
     DETECTED" 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4011
+                                                            4011
+                                                            4011
                                                       Date: Oct 11, 1977 
                                                     Person: Lift
-Component:  PLOT SYSTEM(CBDSECT)  (615/8)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Changes alphabet names from 8c to 16c. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN C4011 
     /DELETE   "CBNAME" 
     CBNAME   DS    CL16               ALPHABET NAME 
     /END 
-Comments:
+________
 
 
     This correction is to the dsect, so PSYM (615/6) and 
     PALPHA (615/7) must be reassembled. 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4012
+                                                            4012
+                                                            4012
                                                       Date: Oct 12, 1977 
                                                     Person: Lift
-Component:  PLOT SYSTEM(PALPHA)  (615/7)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Changes (with #4011) alphabet names from 8c to 16c. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN C4012 
     /COPY "PALPHA1" 
     /DELETE BLANKS "CLC   0(8,2)" 
              CLC   0(9,2),=C'STANDARD ' IS IT DEFAULT ONE? 
     /COPY BEFORE "         L     15,=V(PSYMSW1)" 
     /COPY COUNT=3 
     /EDIT "9" = "17" 
     /COPY BEFORE "PALIB1" 
     /COPY COUNT=4 
     /DELETE BLANKS "MVC   DWORD(8)" 
              MVC   DWORD(16),=CL16' ' PAD CALLER'S NAME TO 16C 
     /COPY "PALIB8" 
     /DELETE BLANKS "L     1,4(,2)" 
     /SKIP COUNT=1 
     /EDIT "CPA" = "CDI" 
     /EDIT "READ" = "READBFR" 
     /DELETE BLANKS "L     3,4(,2)" 
              L     3,CDIREAD 
     /DELETE BLANKS "LA    4,12" 
              LA    4,20               ENTRY: 16C NAME, F LINE# 
     /COPY BEFORE "PALIB4" 
     /EDIT "0(8,3),DWORD " = "0(16,3),DWORD" 
     /COPY BEFORE "PALIB6" 
     /EDIT "1,8(,3) " = "1,16(,3)" 
     /COPY "CPAREAD" 
     CDIREAD  DC    A(0,LPABUF,MODF,LNUM,PAFDUB)  FOR READBFR 
     /DELETE "DWORD" 
     DWORD    DS    2D 
     /COPY "DEFALPHA" 
     /COPY COUNT=3 
              DC    C'        ' 
     /END 
-Comments:
+________
 
 
     Note #4011 should be applied before this one. 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4013
+                                                            4013
+                                                            4013
                                                       Date: Oct 11, 1977 
                                                     Person: Alexander
-Component:  TABLES(DECKGEN)  (004/5)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Fixes generation of reverse pathfinding tables in cases 
     where the first control unit on a channel has a high 
     address. Formerly clobbered the tables generated. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN C4013 
     /COPY 'TABGL11 ' 
     /DELETE NEXT 'SR' NEXT 'R9,R9' 
              LA    R9,16                  USE MINIMUM VALUE 
     /END 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4014
+                                                            4014
+                                                            4014
                                                       Date: OCT 12, 1977 
                                                     Person: Salisbury
-Component:  SDS(EDITOR)  (600/010)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Corrects bug in adding PL/I external variables 
     to symbol table. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN C4014 
     /COPY "DATADVS" 
     /COPY COUNT=1 
     /SKIP COUNT=2 
     /END 
-Comments:
+________
 
 
     Deletes test for external entry in SDS editor 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4015
+                                                            4015
+                                                            4015
                                                       Date: OCT 12, 1977 
                                                     Person: Salisbury
-Component:  SDS(IOC)  (600/006)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Corrects bug in handling variables@T=I on 360/67 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN C4015 
     /COPY "SUEX" 
     /DELETE BLANKS "L     GR4,0(REALADD)" 
              LOAD  GR4,0(REALADD),4    GET OPCODE AND MASK 
     /END 
-Comments:
+________
 
 
     Changes load instr to LOAD macro call. 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4016
+                                                            4016
+                                                            4016
                                                       Date: OCT 12, 1977 
                                                     Person: Salisbury
-Component:  SDS(IOC)  (600/006)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Scans for blank or comma ending binary input data 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN C4016 
     /COPY "BINCONV1" 
     /COPY COUNT=2 
              CLI   0(WA),C' ' 
              BE    BINEXIT 
              CLI   0(WA),C',' 
              BE    BINEXIT 
     /END 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4017
+                                                            4017
+                                                            4017
                                                       Date: OCT 12, 1977 
                                                     Person: Salisbury
-Component:  SDS(CLSSOU)  (600/001)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Allows multiple A-type and B-type constants within 
     a single input item 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN C4017 
     /COPY BEFORE "INAIP" 
     INAIP    CLI   0(WA),C'''' 
              BNE   INACHK2 
     INACHK1  LA    WA,1(WA) 
              B     INACHK3 
     INACHK2  CLI   0(WA),C',' 
              BE    INACHK1 
     INACHK3  CLI   0(WA),C' ' 
              BNE   INACHK4 
              LA    WA,1(WA) 
              B     INACHK3 
     /EDIT "INAIP  " = "INACHK4" 
     /DELETE BLANKS "LA    WA,1(WA)" 
     /DELETE BLANKS "SR    GR15,GR15" 
     /EDIT "INPUFOC" = "INFTFC3" 
     /COPY BEFORE "INBIP" 
     INBIP    CLI   0(WA),C'''' 
              BNE   INBCHK2 
     INBCHK1  LA    WA,1(WA) 
              B     INBCHK3 
     INBCHK2  CLI   0(WA),C',' 
              BE    INBCHK1 
     INBCHK3  CLI   0(WA),C' ' 
              BNE   INBCHK4 
              LA    WA,1(WA) 
              B     INBCHK3 
     INBCHK4  BCTR  WA,0 
     /EDIT "INBIP" = "     " 
     /COPY COUNT=2 
     /EDIT "INPUFOC" = "INFTFC3" 
     /END 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4018
+                                                            4018
+                                                            4018
                                                       Date: Oct 22, 1977 
                                                     Person: Lift
-Component:  PLOT SYSTEM(ETC:PLOTALPHA)  (615/9)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Changes alphabet names to 16C and introduces aliases for 
     some names. 
-Source changes expressed in edit commands form,
+______________
                based on D4.0 source.
 
 
     ED ETC:PLOTALPHA 
     DE 1.001 1.999 OK 
     A 1 #TN#TN        # 
     A 2 
     A 1 #HELVETIC#HELVETIC        # 
     A 3 
     A 1 #GOTHICEN#GOTHICEN        # 
     A 4 
     A 1 #ROMANTX#ROMANTX        # 
     A 5 
     A 1 #ITALICTX#ITALICTX        # 
     A 6 
     A 1 #GREEKCS#GREEKCS        # 
     A 7 
     A 1 #ITALICCS#ITALICCS        # 
     A 8 
     A 1 #ROMANCS#ROMANCS        # 
     A 9 
     A 1 #ROMANDX#ROMANDX        # 
     A 10 
     A 1 #GREEKSX#GREEKSX        # 
     A 11 
     A 1 #ROMANSX#ROMANSX        # 
     A 12 
     A 1 #SCRIPTSX#SCRIPTSX        # 
     A 13 
     A 1 #GOTHICGE#GOTHICGE        # 
     A 14 
     A 1 #GOTHICIT#GOTHICIT        # 
     A 15 
     A 1 #SCRIPTCX#SCRIPTCX        # 
     A 16 
     A 1 #ROMANCX#ROMANCX        # 
     A 17 
     A 1 #ITALICCX#ITALICCX        # 
     A 18 
     A 1 #GREEKCX#GREEKCX        # 
     A 19 
     A 1 #CYRILLCX#CYRILLCX        # 
     A 20 
     A 1 #ROMANCAR#ROMANCAR        # 
     A 21 
     A 1 #GREEKCAR#GREEKCAR        # 
     A 22 
     A 1 #HIRAGANA#HIRAGANA        # 
     A 23 
     A 1 #KATAKANA#KATAKANA        # 
     A 24 
     A 1 #KANJI1#KANJI1        # 
     A 25 
     A 1 #KANJI2#KANJI2        # 
     A 26 
     A 1 #KANJI3#KANJI3        # 
     A 27 
     A 1 #KANJI4#KANJI4        # 
     A 28 
     A 1 #KANJI5#KANJI5        # 
     A 29 
     COPY 1 TO 100 
     CONC 100 LEN=20 
     DE 100 
     DE 121 127 OK 
     A 101 #HELVETIC   #HELVETICA.1# 
     A 102 #GOTHICEN      #GOTHIC.ENGLISH# 
     A 103 #ROMANTX#ROMAN.3# 
     A 104 #ITALICTX#ITALIC.3# 
     A 105 #GREEKCS #GREEK.2A# 
     A 106 #ITALICCS #ITALIC.2A# 
     A 107 #ROMANCS #ROMAN.2A# 
     A 108 #ROMANDX   #SANSERIF.2# 
     A 109 #GREEKSX#GREEK.1# 
     A 110 #ROMANSX   #SANSERIF.1# 
     A 111 #SCRIPTSX#SCRIPT.1# 
     A 112 #GOTHICGE      #GOTHIC.FRAKTUR# 
     A 113 #GOTHICIT      #GOTHIC.ITALIAN# 
     A 114 #SCRIPTCX#SCRIPT.2# 
     A 115 #ROMANCX#ROMAN.2# 
     A 116 #ITALICCX#ITALIC.2# 
     A 117 #GREEKCX#GREEK.2# 
     A 118 #CYRILLCX  #CYRILLIC.2# 
     A 119 #ROMANCAR     #SANSERIF.CART# 
     A 120 #GREEKCAR  #GREEK.CART# 
     CONC 100 120 
     MOVE 100 120 TO 1.001 
     CONC 1 1.999 
     DE 100 *L OK 
     DE 1.001 1.999 OK 
     STOP 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4019
+                                                            4019
+                                                            4019
                                                       Date: Oct 18,1977 
                                                     Person: FRONCZAK
-Component:  CALC(CLS)  (585/001)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Corrects the bug of not properly (re)initializing ATTNTRP 
     upon (re)entry to the CALC CLS. 
-Source changes expressed in old update (*UPDATE) form,
+______________
                based on D4.0 sequence id.
 
 
     %AFTER CALC0230 
              MVI   INTSAVE,0          DAMNED RESET!!! 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN C4019 
     /COPY '*   SOME INIT' 
     /COPY C=2 
              MVI   INTSAVE,0          DAMNED RESET!!! 
     /END 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4020
+                                                            4020
+                                                            4020
                                                       Date: November 1, 1977 
                                                     Person: Salisbury
-Component:  SDS(SDSCLSSOU)  (600/001)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Corrects bug in the processing of call tracing when the 
     call is from a low-core address. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN C4020 
     /COPY BEFORE "IBPTCHK2" 
     IBPTERR6 SET   TRCNORET,18       SET NO RETURN FLAG 
              B     IBPTERR 
     IBPTCHK2 CLI   BREAKTYP,BRKRET   RETURN BREAKPOINT? 
              BE    IBPTERR6          DON'T SET 
     /EDIT "IBPTCHK2" = "        " 
     /COPY "IBPTSIM" 
     /COPY COUNT=1 
              CLI   BREAKTYP,BRKRET   RETURN BREAKPOINT? 
              BE    IBPTERR6          DON'T SET 
     /COPY "OPERCALL" 
     /COPY COUNT=7 
              RESET TRCNORET,18       RESET NO RETURN FLAG 
     /COPY BEFORE "OPERCAL4" 
     OPERCAL4 TOF   TRCNORET,OPERCAL5,18  NO RETURN FLAG? 
              BRT   ' (NO TRACING OF RETURN)' 
     /EDIT "OPERCAL4" = "OPERCAL5" 
     /END 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4021
+                                                            4021
+                                                            4021
                                                       Date: November 1, 1977 
                                                     Person: Salisbury
-Component:  SDS(SDSCLISOU)  (600/004)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Part of correction described in #4020 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN C4021 
     /COPY BEFORE "CSNODO" 
     /EDIT "SMODE10" = "SMODE10+SPRED" 
     /END 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4022
+                                                            4022
+                                                            4022
                                                       Date: November 1, 1977 
                                                     Person: Salisbury
-Component:  SDS(SDSPSECT)  (600/013)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Part of correction described in #4020 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN C4022 
     /COPY "TRCCALL" 
     TRCNORET EQU   X'08'     1 -> NO TRACE OF RETURN 
     /END 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4023
+                                                            4023
+                                                            4023
                                                       Date: November 3, 1977 
                                                     Person: Engle
-Component:  ACCOUNTING(GETFILE)  (104/88)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     If a call on GDINFO3 produces a wait to open and that wait is 
     interrupted, GDINFO3 does not open the file but still returns 
     with a return code of zero.  This change locks the file around 
     the call on GDINFO3 and thus, by eliminating the possibility 
     of a wait to open, insures that the file will be opened. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /B  C4023 
     /D LEN(72) "GTFL0046" 
              ST    R0,FDUB 
              LA    R1,=A(FDUB,F1,FM1) 
     LOCK     L     R15,=V(LOCK) 
              BASR  R14,R15            LOCK FILE TO AVOID WAIT TO OPEN 
              C     R15,=F'20' 
              BE    LOCK               WAIT TO LOCK INTERRUPTED 
              LTR   R1,R15 
              BNZ   RETURN             ERROR 
     /COP LEN(72) "GTFL0055" 
              LA    R1,=A(FDUB) 
              L     R15,=V(UNLK) 
              BASR  R14,R15            UNLOCK FILE 
              LTR   R15,R15 
              BNZ   RETURN             ERROR 
     /COP LEN(72) "GTFL0069" 
     FDUB     DS    A 
     FM1      DC    F'-1' 
     F1       DC    F'1' 
     /EN 
-Comments:
+________
 
 
     This error allowed the user to interrupt the wait to open 
     produced by GDINFO3 for *ACCOUNTINGn.  The file, 
     consequently, was not opened; and when READ attempted to do 
     an implicit open, an attention interrupt would cause the 
     wait to open to be interrupted with a sideways exit, 
     leaving *ACCOUNTING locked. 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4024
+                                                            4024
+                                                            4024
                                                       Date: Nov 11,1977 
                                                     Person: Helffrich
-Component:  GATE  (4000/1)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Corrects bug causing MODECHG bit to be on if user supplies 
     bad GR13 value for gated routine. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN C4024 
     /COPY "BADGR13 " 
              NI    SWSP1,OFF-MODECHG  didn't get around to changing 
     /END C4024 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4025
+                                                            4025
+                                                            4025
                                                       Date: Nov 11,1977 
                                                     Person: Helffrich
-Component:  GATE  (4000/1)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Fixes GUINFUPD entry in GATE. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN C4025 
     /DELETE "GUINFUPD " 
     GUINFUPD PORT  SAVE,CLASS=3 
     /END C4025 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4026
+                                                            4026
+                                                            4026
                                                       Date: November 16, 1977 
                                                     Person: Salisbury
-Component:  SDS(SDSCLISOU)  (600/004)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Change MODIFY command such that users may not modify 
     system storage by specifying operands in the form (GRx)+yyy 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN C4026 
     /COPY BEFORE "MODBLOC8" 
     MODBLOC8 BAL   LINK,PREDFCHK    CHECK PREDEFINED SYMBOL 
     /EDIT "MODBLOC8" = "        " 
     /COPY BEFORE "MODEXIT" 
     MODERR12 COMMENT 'INVALID DISPLACEMENT FOR PREDEFINED SYMBOL.' 
              B      NNEWCARD 
     MODERR13 COMMENT 'INVALID LENGTH FOR PREDEFINED SYMBOL.' 
              B      NNEWCARD 
     /COPY "UNDOMOV" 
     * 
     *     CHECK PREDEFINED SYMBOL FOR REASONABLE MODIFICATION 
     * 
     PREDFCHK TOF    SPRED,0(LINK),3   PREDEFINED SYMBOL? 
              ST     GR0,CLILINK2      SAVE REGISTER 
              CLC    SSYMBOL(2),=C'GR' GENERAL REGISTER? 
              BE     PREDF2 
              LA     GR0,8             SET PSW OR FR LENGTH 
     PREDF1   S      GR0,CDISP 
              BNH    MODERR12          DISPLACEMENT TOO BIG 
              BCTR   GR0,0 
              CR     WC,GR0 
              BH     MODERR13          LENGTH TOO BIG 
              L      GR0,CLILINK2      RESTORE REGISTER 
              BR     LINK 
     PREDF2   LA     GR0,4             SET GR LENGTH 
              B      PREDF1 
     /END 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4027
+                                                            4027
+                                                            4027
                                                       Date: November 18, 1977 
                                                     Person: MTA
-Component:  PDP  (044/1)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     The PDP gets an ILDN error when it retries after a fatal 
     I/O error on a paging disk (rather than a drum). 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN C4027 
     /COPY 'UCRETRY2' 
     /COPY C=2 
              L     0,DRUMLDN            GET JUST THE LDN 
     /END 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4028
+                                                            4028
+                                                            4028
                                                       Date: November 23, 1977 
                                                     Person: Engle
-Component:  *INDEX  (580/1)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     If an entry attribute begins with a double colon, designating 
     a text colon instead of a sub-heading, and no sub-heading 
     (single) colons appear in the entry attribute, the result is 
     as though the entry attribute began with a triple colon. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /B C4028 
     /D LEN(72) "INDX0402" 
              IF SUBSTR(NAME,N+1,1)=':' THEN DO; 
     /COP LEN(72) "INDX0406" 
     /S LEN(72) "INDX0408" 
              ELSE DO; 
     /EN 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4029
+                                                            4029
+                                                            4029
                                                       Date: November 23, 1977 
                                                     Person: Engle
-Component:  *INDEX  (580/1)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     If 4 or more consecutive colons appear in an entry attribute 
     to designate 2 or more consecutive text colons, the multiple 
     text colons are condensed to a single colon. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /B C4029 
     /D LEN(72) "INDX0167" 
           FF = INDEX(SUBSTR(WORDD,NN+LENGTH(SUB)),CHAR); 
           IF FF=0 THEN NN=0; 
           ELSE NN=NN+FF+LENGTH(SUB)-1; 
     /COP LEN(72) "INDX0472" 
     /S LEN(72) "INDX0479" 
              CALL SUBS(LINE, '/', '/Z'); 
     /EN 
-Comments:
+________
 
 
     The change at INDX0473-INDX0479 does not correct an error, 
     but was made possible by the error correction at INDX0167. 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4030
+                                                            4030
+                                                            4030
                                                       Date: November 28, 1977 
                                                     Person: Engle
-Component:  *INDEX  (580/1)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     If a level N subheading is given and the headings for the N-1 
     and N-2 levels are not given separately with location 
     attributes, only the N and N-1 level headings are printed. 
     E.g., if "1 A" and "2 A:B:C:D" are entered and entries for A:B 
     and A:B:C are not given, the headings A, C, and D will print, 
     but the heading B will not print. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /B C4030 
     /D LEN(72) "INDX0400" 
     HEAD: N=INDEX(NAME,':'); 
     /D LEN(72) "INDX0412" 
                 F=LENGTH(PRESENT)-1; 
                 IF SUBSTR(PRESENT, 1, F)=SUBSTR(FORMER, 1, F) THEN N= 
                 INDEX(NAME, ':'); 
                 ELSE N=0; 
     /COP LEN(72) "INDX0414" 
     /S LEN(72) "INDX0416" 
           F=LENGTH(PRESENT)-1; 
           IF SUBSTR(PRESENT,1,F) = SUBSTR(FORMER,1,F) THEN 
     /D LEN(72) "INDX0418" 
              FORMER=SUBSTR(PRESENT,1,F); 
     /D LEN(72) "INDX0441" 
           CALL SUBS(NAME, '::', ':'); 
     /COP LEN(72) "INDX0523" 
     /S LEN(72) "INDX0525" 
              GO TO HEAD; 
     /EN 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4031
+                                                            4031
+                                                            4031
                                                       Date: Nov 28, 1977 
                                                     Person: Lift
-Component:  PLOT SYSTEM(PLTBGN)  (615/3)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Corrects PLTBGN bug occuring when PLTSIZ used or incorrect 
     argument given to PLTBGN 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN 
     /COPY BEFORE BLANKS "BO    PBGN1" 
     /EDIT "PBGN1" = "PBGN7" 
     /COPY BEFORE BLANKS "LA    10,PBGN5" 
     /EDIT "     " = "PBGN7" 
     /DELETE BLANKS "L     2,YWIDTH" 
              LE    0,YWIDTH 
              DE    0,USCALE 
              STE   0,PACKING 
              L     2,PACKING 
     /END 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4032
+                                                            4032
+                                                            4032
                                                       Date: Dec 2, 1977 
                                                     Person: Lift
-Component:  PLOT SYSTEM(PSYM)  (615/6)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Corrects bug in doing carriage returns while using 
     relative coordinates 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN 
     /COPY BEFORE BLANKS "ST    4,XMARGIN" 
     /BUFFER MARGINS 
     /EDIT "       " = "PSINIT3" 
     /COPY COUNT=1 
     /BUFFER END 
     /COPY BEFORE BLANKS "BZ    PSINIT2" 
     /EDIT "PSINIT2" = "PSINIT3" 
     /COPY ".CCP5" 
     /INCLUDE MARGINS 
     /END 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4033
+                                                            4033
+                                                            4033
                                                       Date: Dec 12, 1977 
                                                     Person: Lift
-Component:  PLOT SYSTEM(PALPHA)  (615/7)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Allows a little more space after "1" in the standard alphabet. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN 
     /COPY "DEFCHAR" 
     /COPY BEFORE "         DC    X'06636F4D080B3D5F9FBDBA3433B30E0B'" 
     /EDIT "06" = "07" 
     /END 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4034
+                                                            4034
+                                                            4034
                                                       Date: Dec 12, 1977 
                                                     Person: Lift
-Component:  PLOT SYSTEM(CCASM)  (615/4)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Establishes synonyms PWIND for PRSTER, PONWIN for PONRST, 
     and POFWIN for POFRST.  Next V11 will use the new names 
     in place of the old. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN 
     /COPY "#PRASTR  CSECT" 
     /COPY BEFORE BLANKS "ENTRY PRSTER" 
     /EDIT "PRSTER      " = "PWIND,PRSTER" 
     /COPY BEFORE "PRSTER" 
     /EDIT "PRSTER" = "PWIND " 
     PRSTER   EQU   PWIND 
     /COPY BEFORE BLANKS "ENTRY POFRST" 
     /EDIT "POFRST       " = "POFWIN,POFRST" 
     /COPY BEFORE "POFRST" 
     /EDIT "POFRST" = "POFWIN" 
     POFRST   EQU   POFWIN 
     /COPY BEFORE BLANKS "ENTRY PONRST" 
     /EDIT "PONRST" = "PONWIN,PONRST" 
     /COPY BEFORE "PONRST" 
     /EDIT "PONRST" = "PONWIN" 
     PONRST   EQU   PONWIN 
     /END 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4035
+                                                            4035
+                                                            4035
                                                       Date: Dec 13, 1977 
                                                     Person: Helffrich
-Component:  MTS  (42/1)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Change of the job number encoding in internal scratch file names. 
     If job number goes over 9999, the first digit goes to A, B, C, 
     etc.  Base 33, sort of. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN SFWRAP 
     /.     SFWRAP -- Fix up scratch file numbering scheme so won't wrap 
     /.               after job # 10000 
     /COPY NEXT "CVD" NEXT "SCA,SCRATCH2" NEXT "SAVE JOB NUMBER" 
     /COPY C=1 
              SRDA  SCA,32 
              D     SCA,=F'1000'      IF JOB # > 1000, MAKE FIRST 
              IC    SCA,BASE36(SCB)      DIGIT DO A, B, C, ... 
              STC   SCA,SCRFNAME+4       STUNT 
     /COPY "STPARS " 
     BASE36   DC    C'0123456789ABCDEFGHIJKLMNOPQRSTUVWQQSV' 
     /DELETE NEXT "USING" NEXT "*,GR10" 
              USING INLOOPX,GR10       This section is self-addressable 
     /COPY END 
     /END SFWRAP 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4036
+                                                            4036
+                                                            4036
                                                       Date: Dec 13, 1977 
                                                     Person: Helffrich
-Component:  MTS  (42/1)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Make allocation/deallocation of FDUBs less subject to error 
     if SYGNOF branched to by GETSPACE/FREESPAC.  Makes system less 
     suceptible to LOADT usecounts going negative. 
     NOTE: This change requires change #4037 to be applied at the 
     same time. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN ROBUST1 
     /.     ROBUST1 -- Make fdub allocation/decallocation more robust 
     /.                on a busy system with lots of people hanging up 
     /.                in the middle of the signoff procedure. 
     /COPY "CFDCHAIN " 
     /COPY C=5 
     /INCLUDE CFDMOVE 
     /COPY "CFDNON " 
     /BUFFER CFDMOVE 
     /COPY C=4 
              LR    SCA,GR1 
     /COPY C=3 
              LR    GR1,SCA 
     /EDIT "SCA" = "GR1" 
     /COPY C=2 
     /BUFFER END 
     /COPY END 
     /END ROBUST1 
-Comments:
+________
 
 
     This is part 1 of a two-change-form change. See also #4037. 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4037
+                                                            4037
+                                                            4037
                                                       Date: Dec 13, 1977 
                                                     Person: Helffrich
-Component:  FSUB  (635/1)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Make allocation/deallocation of FDUBs less subject to error 
     if SYGNOF branched to by GETSPACE/FREESPAC.  Makes system less 
     suceptible to LOADT usecounts going negative. 
     NOTE: This change requires change #4036 to be applied at the 
     same time. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN ROBUST1 
     /.     ROBUST1:: To make GIVEBACK a bit more fail-safe in the 
     /.               giving back of FDUBs. 
     /COPY BEFORE "*" BLANKS "FDGET" 
     /EDIT "." = "," 
     *                          IN MTS (IF YOU ARE NOT ONE OF THE HAPPY 
     *                          FEW WHO ALREADY KNOWS THIS.) 
     /COPY TAB(72) "FSUB0498" 
     /EDIT "BER" = "BZR" 
     /COPY "GVBULNE" 
     /COPY COUNT=1 
              LTR   SCA,SCA            FCB still there? (Could happen if 
              BZ    GVBFDB             jumped out of middle of SYGNOF) 
     /DELETE BLANKS "BNP   GVBGRFF" 
              BP    GVBFDB             -> somebody still using FCB 
              XC    FDUBLN,FDUBLN      not any more for this FDUB 
              B     GVBGRFF 
     /COPY "GVBFDB " 
     /SKIP COUNT=17 
     * 
              L     SCB,FDUBNAM        get backpointer to pointer 
              LTR   SCB,SCB 
              BZ    *+16               -> none 
              XC    0(4,SCB),0(SCB)    pointer 
              XC    FDUBNAM,FDUBNAM    and backpointer 
     * 
              BAL   GR14,UNCHFDUB      unchain FDUB 
     * 
              L     GR1,FDUBNAME       release name if any 
              LTR   GR1,GR1 
              BZ    *+14 
              XC    FDUBNAME,FDUBNAME 
              BAL   GR14,HIABYMH 
     * 
              L     GR1,FDUBERM        release error message if any 
              LTR   GR1,GR1 
              BZ    *+14 
              XC    FDUBERM,FDUBERM 
              BAL   GR14,HIABYMH 
     * 
              L     GR1,FDUBERXS       release I/O error suspension 
              LTR   GR1,GR1            block, if any 
              BZ    *+14 
              XC    FDUBERXS,FDUBERXS 
              BAL   GR14,HIABYMH 
     * 
     /COPY "GVBGRFCB" 
     /COPY BLANKS "L     GR1,FCBMXLBA" 
              XC    FCBMXLBA,FCBMXLBA  make sure it gets lost 
     /END ROBUST1 
-Comments:
+________
 
 
     This is the second of a two-changeform change.  See also #4036. 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4038
+                                                            4038
+                                                            4038
                                                       Date: Dec 13, 1977 
                                                     Person: Ogden
-Component:  CMDS  (636/1)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Rewrite of SIGNONM job program. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN SMNEW 
     /.     SMNEW -- New SIGNONM 
     /COPY BEFORE "SIGNONM " 
     /DELETE "SIGNONM " 
     /SKIP COUNT=8 
              EJECT 
     *        SIGNONM  --  Job program to read a line from the console 
     *                     which becomes a message printed out at 
     *                     signon for MTS users. 
              SPACE 3 
     SIGNONM  DC    A(*+8,0) 
              USING *,15 
              LA    1,SIGONMS+2 
              SVC   READ 
              BZ    *-2                BACK AGAIN IF CANCELLED 
     * 
              AR    1,0                end of message+1 
              AH    0,=H'1'            include CC character in length 
     SIGNONM1 BCTR  1,0                trim off blanks 
              CLI   0(1),C' ' 
              BNE   *+8 
              BCT   0,SIGNONM1         -> loop de loop 
     * 
              STC   0,SIGONMS          resultant length, maybe zero 
              SVC   EXIT               -> back to the womb 
     SIGONMS  DC    AL1(0),101C' '     length, text 
     /COPY END 
     /END SMNEW 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4039
+                                                            4039
+                                                            4039
                                                       Date: Dec 13, 1977 
                                                     Person: Helffrich
-Component:  CMDS  (636/1)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Fix bug in D4.0 causing explicit concatenation of files to 
     be opened with the program key *MTS.RUN rather than *MTS.ETC.RUN 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN RUNPKEY 
     /.     RUNPKEY  --  Fixes bug causing program key to not be set 
     /.                  to *MTS.ETC.RUN when FDName concatenation is 
     /.                  run 
     /COPY "STDNEWF2 " 
     /COPY COUNT=3 
              NI    SWS17,255-DFPID    don't default program key 
     * 
              TM    SWS2,DBGCMSW 
              BO    STDDFPID           -> $DEBUGging today 
              L     SCA,FDUBCH 
              LTR   SCA,SCA 
              BNZ   STDETCPK           -> exp.concatenation, set to .ETC. 
              TM    FDUBSWS2,FDUBBLN+FDUBELN+FDUBMOD 
              BNZ   STDETCPK           -> beginning #, ending # or mods 
              TM    FDUBS,FDUBINC 
              BO    STDETCPK           -> explicit increment 
              TM    SWS4,NOUNLD 
              BO    STDETCPK           -> UNLOAD=OFF 
              CLI   SHFSEP,C':' 
              BE    STDOPEN            -> no changed SHFSEP 
              SPACE 
     STDETCPK L     SCA,CLSPTR+MTSFLG*4 
              MVC   CLSPID-CLSAREA(12,SCA),=CL12'*MTS.ETC.RUN' 
     STDDFPID OI    SWS17,DFPID        flag something weird happened 
     /COPY C=1 
     /ED "       " = "STDOPEN" 
     /COPY "STHOPEOK " 
     /COPY COUNT=10 
              TM    SWS17,DFPID 
              BO    STH04               -> see if PROT status needs change 
     /SKIP COUNT=14 
     /DELETE "STH04 " 
     /SKIP C=4 
     STH04    DS    0H 
     /COPY BEFORE "STEXP21 " 
     /ED "STEXP21" = "       " 
     /END RUNPKEY 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4040
+                                                            4040
+                                                            4040
                                                       Date: Dec 13, 1977 
                                                     Person: Helffrich
-Component:  CMDS  (636/1)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Fixes MTS SNARKing if user signs on with a  ridiculously low 
     global time limit. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN T=.001 
     /.     T=.001 -- Fixes snark if user says '$SIG xxxx T=.001' 
     /.            -- by setting lowest time limit to .003, naturally 
     /COPY BEFORE "SIGPAST " 
              L     GR15,GLOBCPUT       check time limit, if given 
              C     GR15,=A(100*768/10)   must be > .1 
              BNL   SIGPAST 
              BXLE  GR15,GR15,SIGPAST   and nonzero 
              MVC   GLOBCPUT,=A(100*768/10) 
     /END T=.001 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4041
+                                                            4041
+                                                            4041
                                                       Date: Dec 13, 1977 
                                                     Person: Helffrich
-Component:  CMDS  (636/1)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Fix bug causing EXEC cls to not return to cls which invoked 
     it, but rather always the MTS cls. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN EXECRET 
     /.     EXECRET -- Fix so that any CLS which calls the EXEC CLS 
     /.                gets returned to when the EXEC CLS returns. 
     /COPY "SYSLAB2 " 
     /COPY C=5 
     /EDIT "       " = "SYSLAB3" 
     /COPY "RETLAB " 
     /COPY BEFORE NEXT "B" NEXT "SYSLAB2" 
     /EDIT "SYSLAB2" = "SYSLAB3" 
     /DELETE NEXT "B" NEXT "CKDUMP" 
     /INCLUDE CKDUMP 
     /COPY BEFORE "MTSCLAB2 " 
     MTSCLAB2 OI   SWS19,RUNTOFDA      disable RUNTOF setting CLSCMDID cuz  * 
                                       we already did it (==KLUDGE) 
     /EDIT "MTSCLAB2" = "        " 
     /COPY "MTSCMVC " 
     /SKIP C=1 
     /BUFFER CKDUMP 
     /EDIT "CKDUMP" = "      " 
     /COPY C=5 
     /BUFFER END 
     /COPY "RUNTOF " 
     /COPY C=3 
              TM    SWS19,RUNTOFDA 
              BO    RUNTOF1            -> this means don't touch CLSCMDID 
              CLI   CLSCURB,EXECFLG 
              BNE   RUNTOF1            -> EXEC wasn't previous, CLSCMDID    * 
                                          already set 
              L     SCA,CLSPTR+EXECFLG*4 
              LTR   SCA,SCA 
              BZ    RUNTOF1            -> no EXEC CLS 
              MVC   CLSCMDID,CLSCRID-CLSAREA(SCA)   set up EXEC CLS invoker 
     RUNTOF1  NI    SWS19,255-RUNTOFDA reset -- only a one-shot deal 
     /END EXECRET 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4042
+                                                            4042
+                                                            4042
                                                       Date: Dec 13, 1977 
                                                     Person: Helffrich
-Component:  CMDS  (636/1)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Fix bug causing scratch files not to be destroyed if SCRFCHAR=* 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN SFCBUG 
     /.     SFCBUG -- Fix bug causing scratch files not being destroyed 
     /.               if SCRFCHAR=* 
     /COPY "GROD " 
     /COPY BEFORE NEXT "LA" NEXT "GR1,DSFDL" 
              MVI   FNIASF,C'-'        a nice, safe scratch file char 
     /END SFCBUG 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4043
+                                                            4043
+                                                            4043
                                                       Date: Dec 13, 1977 
                                                     Person: Helffrich
-Component:  DSRS  (637/1)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Fix bug in PEEL when @MAXLEN@PEEL modifier combination used. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN PEELBUG 
     /.     PEELBUG -- Fix bug in PEEL causing unexpected movement of 
     /.                stuff in segment 5 if high order byte of address 
     /.                has garbage in it. 
     /COPY "PEEL " 
     /COPY C=8 
              LA    SCC,0(,SCC) 
     /COPY END 
     /END PEELBUG 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4044
+                                                            4044
+                                                            4044
                                                       Date: Dec 13, 1977 
                                                     Person: Helffrich
-Component:  DSRS  (637/1)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Fix another @MAXLEN@PEEL combination bug. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN PEELBUG2 
     /.     PEELBUG2 -- Fix another bug in peel if empty file read from 
     /.                 with @PEEL@MAXLEN set.  Caused a reference to 
     /.                 page 0 in PEEL. 
     /COPY "PEEL " 
     /EDIT "BE" = "BZ" 
     /COPY NEXT "LA" NEXT "GR2,0(GR1,SCC)" 
              LR    GR3,SCC             save location of line 
              LTR   GR2,GR2 
              BZ    PEEL1               -> no input buffer 
     /COPY C=3 
     /SKIP C=1 
     /COPY C=3 
     /EDIT "     " = "PEEL1" 
     /END PEELBUG2 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4045
+                                                            4045
+                                                            4045
                                                       Date: Dec 13, 1977 
                                                     Person: Helffrich
-Component:  DSRI  (639/1)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Make sure user input area is blanked following implicit 
     concatenation to another file.  Wipes out fragment of 
     $CONTINUE WITH xxxx left in input buffer. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN AREABLNK 
     /.     AREABLNK :: to make sure user's input area is blanked from 
     /.                 end of text to end of area if explicit concat. 
     /.                 or $ENDFILE read resulted in end-of-file. 
     /.                 Previously, this condition resulted in $ENDFILE 
     /.                 or the tail end of the $CONTINUE WITH ... to be 
     /.                 left in the buffer. 
     /COPY MAXCOUNT=1200 "GIOSIQU" 
     /DELETE BLANKS "BE    PSFXFE" 
              BE    ISENDFIL           -> give EOF 
     /DELETE BLANKS "BE    PSFXFE" 
     /SKIP COUNT=1 
              BNE   GIOSIQC 
     ISENDFIL BAL   GR14,BLANKIT       blank rest of input region 
              B     PSFXFE 
     * 
     /COPY "GIOSIQV" 
     /COPY COUNT=1 
     /SKIP BLANKS "EX" NEXT "SCB,GIOSMVC" 
     /COPY BLANKS "LR    GR3,SCA" 
              BAL   GR14,BLANKIT       blank rest of input region 
     /COPY "GIOSIQBB" 
     /SKIP COUNT=4 
     /EDIT "0(SCA),FDUBNOEC " = "FDUBMTB,FDUBNOEC" 
     /COPY TAB(72) "DSRI1343" 
              EJECT 
     *        BLANKIT  --  Subroutine to blank out what we read for 
     *                     possible implicit concatenation or endfile. 
     * 
     *            Clobbers SCRATCH. 
     *            Assumes GR13 points to original savearea at call 
              SPACE 3 
     BLANKIT  STM   SCA,SCD,SCRATCH 
              L     SCA,24(,GR13)      get original GR1 
              LM    SCA,SCB,0(SCA)     A(reg,len) 
              LH    SCB,0(,SCB)        get length 
              LA    SCC,0(SCA,SCB)     end of input region 
     * 
              XR    SCD,SCD            select either X'00' or C' ' to 
              CLI   0(SCC),0           wipe out buffer with 
              BPI   OPND,*+8           -> edge of world, use x'00' 
              BE    *+8 
              LA    SCD,C' ' 
     * 
              AIF   (&S370).MVCL 
              STC   SCD,0(,SCA)        propagate this 
              S     SCB,=F'2' 
              BM    BLANKRET           -> nothing much to do 
     BLANKNXT S     SCB,=F'256' 
              BM    BLANKLST 
              MVC   1(256,SCA),0(SCA)  propagate fill character 
              LA    SCA,256(,SCA) 
              B     BLANKNXT 
     BLANKMVC MVC   1(0,SCA),0(SCA) 
     BLANKLST EX    SCB,BLANKMVC       fill last portion 
              AGO   .NOMVCL 
     .MVCL    SLL    SCD,24            fill character 
              MVCL   SCA,SCC           zap the easy way 
     .NOMVCL  ANOP 
     BLANKRET LM     SCA,SCD,SCRATCH 
              BR     GR14 
     /COPY END 
     /END AREABLNK 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4046
+                                                            4046
+                                                            4046
                                                       Date: Dec 13, 1977 
                                                     Person: Helffrich
-Component:  DSRI  (639/1)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Fix bug in D4.0 MTS causing PGNT if SETIOERR subroutine returns 
     and original parameter list of output subroutine did not have 
     a line number parameter. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN IOERSFL 
     /.            :: Fix to save FAKELIST across I/O error subroutine 
     /.               calls. 
     /COPY "EXNOGATE" 
     /SKIP   COUNT=1 
              XR    GR14,GR14          assume not using fakelist; identifed 
              ST    GR14,4+DSRISFL     by zero address of length HW 
              LA    GR14,FAKELIST 
              CR    GR14,SCB 
              BNE   UIOENOFL           -> not using fakelist 
              MVC   DSRISFL(7*4),FAKELIST save fakelist here 
     /EDIT "        " = "UIOENOFL" 
     /COPY BEFORE "UIOEB1" 
     /SKIP COUNT=4 
     * 
     UIOEB1   L     GR2,24(,GR13)      assume using user's parameters 
              L     GR14,4+DSRISFL     but check if fakelist was really 
              LTR   GR14,GR14          used 
              BZ    UIOEB2             -> no, user's parameters 
              MVC   FAKELIST(7*4),DSRISFL 
              LA    GR2,FAKELIST 
     UIOEB2   XC    FDUBERXS,FDUBERXS  free DIRISUSP 
              BAL   GR14,HIABYMH       after covering tracks 
              LR    GR1,GR2            restore parameter list pointer 
     /END IOERSFL 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4046
+                                                            4046
+                                                            4046
                                                       Date: Dec 13, 1977 
                                                     Person: Helffrich
-Component:  TIMT  (539/1)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Just a cleanup of some things. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN CLEANUP1 
     /.     CLEANUP1:: Just a few diddlie things 
     /COPY "SWSNOLD" 
     /COPY COUNT=3 
     /SKIP COUNT=2 
              JOBTBL N=1,R=GR12 
     /COPY "NOTCAND" 
     /SKIP COUNT=2 
              JOBTBL N=1,R=GR4 
     /END CLEANUP1 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4047
+                                                            4047
+                                                            4047
                                                       Date: Dec 13, 1977 
                                                     Person: Helffrich
-Component:  GATE  (4000/1)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Remove TRANTB from gate 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN REMTTB 
     /.     REMTTB -- Remove "TRANTB" from GATE 
     /DELETE "TRANTB" NEXT "PORT" 
     /COPY END 
     /END REMTTB 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4048
+                                                            4048
+                                                            4048
                                                       Date: Dec 13, 1977 
                                                     Person: Helffrich
-Component:  USUB  (638/1)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Fix bug causing subversion of LSS-imposed time limit if 
     SETLCL called to reset timer interrupt. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN LCLTBUG 
     /.     LCLTBUG -- Fixes bug which lets users subvert LSS if their 
     /.                program sets a small local time limit. 
     /COPY BEFORE "SETLRS " 
     SETLRS   TM    SWS8,LSSBIT       LSS=on for this user? 
              BO    SETLRC4           -> yes, then can't cancel LSS limit 
     /EDIT "SETLRS" = "      " 
     /COPY END 
     /END LCLTBUG 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4049
+                                                            4049
+                                                            4049
                                                       Date: Dec 16, 1977 
                                                     Person: Sherry
-Component:  *WATFIV(INOUT) -- UPDATE  (483/001)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Fix bug in INOUT to properly diagnose syntax errors in 
     I/O statements with NAMELIST specified. 
-Source changes expressed in edit commands form,
+______________
                based on D4.0 source.
 
 
     EDIT WAT5.SGEN 
     COMMENT -- Edit update to INOUT assembly -- 
     INSERT 58033 
     %AFTER '08610000'  ; INOUT BUGFIX 
              IF    (IOBJBIT,ON,X'08'),IERSXA No list for NAMELIST 
     $ENDFILE 
     STOP 
-Comments:
+________
 
 
     I/O statements of the form: 
           READ(5,DATA) X,Y,Z 
     were not flagged as syntax errors if DATA was a NAMELIST 
     variable (no list is allowed). 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4050
+                                                            4050
+                                                            4050
                                                       Date: Dec 16, 1977 
                                                     Person: Sherry
-Component:  *WATFIV(STARTB) -- UPDATE  (483/001)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Fix bug in STARTB to detect illegal subscript for variable 
     dimension of dummy array in subroutines. 
-Source changes expressed in edit commands form,
+______________
                based on D4.0 source.
 
 
     EDIT WAT5.SGEN 
     COMMENT -- Edit update to STARTB assembly -- 
     COMMENT -- (near sequence id '10180000') -- 
     INSERT 77077 
              LA    R6,0(,R6)   Clear top byte of address 
     $ENDFILE 
     STOP 
-Comments:
+________
 
 
     This corrects a bug n the following situations: 
           SUBROUTINE X( A, N) 
           DIMENSION A(N) 
           A(20) = 0. 
     If N=20 and A is dimensioned as A(10) in the calling 
     program, the reference to A(20) will now be flagged as 
     an error. 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4051
+                                                            4051
+                                                            4051
                                                       Date: December 16, 1977 
                                                     Person: Engle
-Component:  GRJLDT/GRJLTM SUBRS (GRJLDT)  (519/1)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Check for and produce a return code of 4 if "digits" in the 
     argument would produce a data exception. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /B C4051 
     /S LEN(72) "GJDT0002" 
     GJDT     TITLE 'S-TYPE CALLING INTERFACE FOR GRGJULDT--C. F. ENGLE--16 1 
                    DEC 77' 
     /COP LEN(72) "GJDT0005" 
              PACK  DOUBLE(2),0(2,1)   CHECK FOR POTENTIAL DATA EXCEPTIONS 
              PACK  DOUBLE+2(2),3(2,1) 
              PACK  DOUBLE+4(2),6(2,1) 
              LA    15,4 
              CP    DOUBLE(2),DOUBLE+2(2) 
              BPI   OPND,EXIT 
              CP    DOUBLE(2),DOUBLE+4(2) 
              BPI   OPND,EXIT 
     /D LEN(72) "GJDT0009" 
              SR    15,15 
     EXIT     L     13,SAVE+4 
     /D LEN(72) "GJDT0011" 
     /EN 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4052
+                                                            4052
+                                                            4052
                                                       Date: December 16, 1977 
                                                     Person: Engle
-Component:  GRJLDT/GRJLTM SUBRS (GRJLTM)  (519/3)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Check for and produce a return code of 4 if "digits" in the 
     argument would produce a data exception. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /B C4052 
     /D LEN(72) "GJTM0002" 
                    DEC 77' 
     /COP LEN(72) "GJTM0005" 
              PACK  QUAD(2),0(2,1)     CHECK FOR POTENTIAL DATA EXCEPTIONS 
              PACK  QUAD+2(2),3(2,1) 
              PACK  QUAD+4(2),6(2,1) 
              PACK  QUAD+6(2),8(2,1) 
              PACK  QUAD+8(2),11(2,1) 
              PACK  QUAD+10(2),14(2,1) 
              LA    15,4 
              CP    QUAD(2),QUAD+2(2) 
              BPI   OPND,EXIT 
              CP    QUAD+4(2),QUAD+6(2) 
              BPI   OPND,EXIT 
              CP    QUAD+8(2),QUAD+10(2) 
              BPI   OPND,EXIT 
     /D LEN(72) "GJTM0009" 
              SR    15,15 
     EXIT     L     13,SAVE+4 
     /D LEN(72) "GJTM0011" 
     /EN 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4053
+                                                            4053
+                                                            4053
                                                       Date: December 16, 1977 
                                                     Person: Engle
-Component:  GROSDT  (520/1)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Check for and produce a return code of 4 if "digits" in the 
     first argument would produce a data exception. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /B C4053 
     /D LEN(72) "GODT0001" 
     GODT     TITLE 'GREGORIAN TO OS DATE CONVERSION--C. F. ENGLE--16 DEC 771 
     /COP LEN(72) "GODT0008" 
              PACK  DOUBLE(2),0(2,1)   CHECK FOR POTENTIAL DATA EXCEPTIONS 
              PACK  DOUBLE+2(2),3(2,1) 
              PACK  DOUBLE+4(2),6(2,1) 
              LA    15,4 
              CP    DOUBLE(2),DOUBLE+2(2) 
              BPI   OPND,EXIT 
              CP    DOUBLE(2),DOUBLE+4(2) 
              BPI   OPND,EXIT 
     /D LEN(72) "GODT0025" 
              SR    15,15 
     EXIT     L     13,SAVE+4 
     /D LEN(72) "GODT0027" 
     /EN 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4054
+                                                            4054
+                                                            4054
                                                       Date: 20 December, 1977 
                                                     Person: Lift
-Component:  PLOT SYSTEM(ASM)  (615/4)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Fixes a bug which occurred when both optional arguments were 
     omitted. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN C4054 
     /COPY "PNUMBR" 
     /COPY "         LA    8,=F'0'" 
              SR    9,9 
     /DELETE "         SR    9,9" 
     /END 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4055
+                                                            4055
+                                                            4055
                                                       Date: Dec 22, 1977 
                                                     Person: Boettner
-Component:  FILESTATUS  (529/1)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     The SUMMARY option failed to print summary items for several 
     things, including the number of files, last-changed date, 
     and file information items if a catalog scan was the last 
     thing done.  Also if a catalog scan was followed by a single 
     file and file information was requested (as in: 
          $FILESTATUS (AARD?,VARK) SIZE       for example) 
     then file information printed for the single file was really 
     the information for the last file in the catalog scan. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN C4055 
     /COPY BEFORE BLANKS 'XC    SCATINFO' 
     /EDIT '10' = '12' 
     /COPY  BLANKS 'XC    SFILINFO' 
              MVC   SCATINFO+CIONID-CIDSECT(4),=CL32' '    ZAP THESE, 
              MVC   SCATINFO+CIVOL-CIDSECT(8),=CL32' '     HAVING NO MEANING 
              MVC   SCATINFO+CIPKEY-CIDSECT(12),=CL32' '   FOR SUMMARIZATION 
     /COPY 'FILOOPE' 
     /DELETE BLANKS 'BE    BX' 
              BE    BXCAT 
     /COPY BEFORE 'BX' 
     BXCAT    MVC   FILINFO,SAVFILI   RESTORE THIS, DONE WITH SCAN 
     /DELETE  BLANKS 'MVC   CATINFO' 
              MVC   CATINFO+8(12*4),SCATINFO+8 
     /COPY 'NAMES2' 
     /COPY BLANKS 'MVI' 
              CVD   GR6,DBLWD 
              ED    0(4,GR1),DBLWD+6 
              A     GR1,CBWID 
              XR    GR15,GR15 
              BR    GR14 
     /END 
-Source changes expressed in old update (*UPDATE) form,
+______________
                based on D4.0 sequence id.
 
 
     %DELETE FSTA0241 
              XC    SCATINFO(12*4),SCATINFO 
     %AFTER FSTA0242 
              MVC   SCATINFO+CIONID-CIDSECT(4),=CL32' '    ZAP THESE, 
              MVC   SCATINFO+CIVOL-CIDSECT(8),=CL32' '     HAVING NO MEANING 
              MVC   SCATINFO+CIPKEY-CIDSECT(12),=CL32' '   FOR SUMMARIZATION 
     %DELETE FSTA0781 
              BE    BXCAT 
     %AFTER FSTA0790 
     BXCAT    MVC   FILINFO,SAVFILI   RESTORE THIS, DONE WITH SCAN 
     %DELETE  FSTA0798 
              MVC   CATINFO+8(12*4),SCATINFO+8 
     %AFTER FSTA1584 
              CVD   GR6,DBLWD 
              ED    0(4,GR1),DBLWD+6 
              A     GR1,CBWID 
              XR    GR15,GR15 
              BR    GR14 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4056
+                                                            4056
+                                                            4056
                                                       Date: January 6, 1978 
                                                     Person: Engle
-Component:  BILLING (BILLING)  (500/4)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     If a checkpoint is written after all records with type numbers 
     greater than or equal to 1 have been processed, i.e., at most, 
     only project records (type 0) remain in the input stream after 
     the checkpoint is written, a VB record with null data (record 
     length including record descriptor length equals 4) is written 
     to file REPORT.  This null data record causes an error when 
     processed by BILPRNT (500/7) for ALL, RUN, or CHARGE. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /B C4056 
     /D LEN(72) 'BILL0593' 
                      PUT FILE(REPORT) EDIT(TVCODE, '-') (COL(1), 2 A); 
     /EN 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4057
+                                                            4057
+                                                            4057
                                                       Date: January 6, 1978 
                                                     Person: Engle
-Component:  ACCOUNTING CLS (ACCMXMAT)  (631/6)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Last line printed by STATUS PROJECT produced high order 
     truncation when the number of signon ID's in the project was 
     greater than 999. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /B C4057 
     /COP LEN(72) 'AMXM0802' 
     /S LEN(72) 'AMXM0804' 
              MVC   CNTMSG+16(6),=X'402020202120' 
              ED    CNTMSG+16(6),DOUBLE+5 
     /COP LEN(72) 'AMXM0808' 
     /S LEN(72) 'AMXM0810' 
              MVC   CNTMSG+34(6),=X'402020202120' 
              ED    CNTMSG+34(6),DOUBLE+5 
     /COP LEN(72) 'AMXM0812' 
     /S LEN(72) 'AMXM0814' 
              MVC   CNTMSG+47(6),=X'402020202120' 
              ED    CNTMSG+47(6),DOUBLE+5 
     /COP LEN(72) 'AMXM2207' 
     /S LEN(72) 'AMXM2209' 
     CNTMSG   DC    C' NOCHANGE ON FOR       AND OFF FOR       OF THE       1 
                    PROJECT ID''S' 
     /EN 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4058
+                                                            4058
+                                                            4058
                                                       Date: Jan 19, 1978 
                                                     Person: Tiffany
-Component:  UNLINKER  (562/001)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Prevents generation of junk RLD from an overlay module. 
     Occurs only when OS linkage editor doesn't reset bit 7 
     of flag field in last RLD data for ENTAB. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN C4058 
     /SKIP COUNT=1 
     UNLK     TITLE 'ROUTINE TO PUNCH OS LOAD MODULES FOR MTS (AN198)' 
     /COPY "RLDP    " 
     /COPY COUNT=1 
              MVI   RLDSW,0            RESET RLDSW. 
     /COPY SPAN(" ") "END" SPAN(" ") "UNLK" 
     /SKIP SPAN(" ") "EJECT" 
     /END 
-Comments:
+________
 
 
     The switch is reset at start. 
     Extra source records at end are also removed. 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4059
+                                                            4059
+                                                            4059
                                                       Date: January 20, 1978 
                                                     Person: Engle
-Component:  GRJLDT/GRJLTM SUBRS (GRJLDT)  (519/1)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Return a value of zero if the return code is nonzero. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /B C4059 
     /S BEFORE LEN(72) 'GJDT0003' 
     GJDT     TITLE 'S-TYPE CALLING INTERFACE FOR GRGJULDT--C. F. ENGLE--19 1 
                    JAN 78' 
     /COP LEN(72) 'GJDT0005' 
     /COP C=3 
              SR    0,0 
     /EN 
-Comments:
+________
 
 
     Assumes that change number 4051 has been applied. 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4060
+                                                            4060
+                                                            4060
                                                       Date: January 20, 1978 
                                                     Person: Engle
-Component:  GRJLDT/GRJLTM SUBRS (GRJLTM)  (519/3)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Return a value of zero if the return code is nonzero. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /B C4060 
     /S BEFORE LEN(72) 'GJTM0003' 
     GJTM     TITLE 'S-TYPE CALLING INTERFACE FOR GRGJULTM--C. F. ENGLE--19 1 
                    JAN 78' 
     /COP LEN(72) 'GJTM0005' 
     /COP C=6 
              SR    0,0 
     /COP LEN(72) 'GJTM0008' 
     /COP C=1 
              LR    0,1 
     /D LEN(72) 'GJTM0012' 
     /EN 
-Comments:
+________
 
 
     Assumes that change number 4052 has been applied. 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4061
+                                                            4061
+                                                            4061
                                                       Date: January 20, 1978 
                                                     Person: Engle
-Component:  GROSDT  (520/1)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Return values consisting of all blanks if the return code is 
     nonzero. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /B C4061 
     /S BEFORE LEN(72) 'GODT0002' 
     GODT     TITLE 'GREGORIAN TO OS DATE CONVERSION--C. F. ENGLE--19 JAN 781 
     /COP LEN(72) 'GODT0006' 
     /S LEN(72) 'GODT0008' 
              MVC   0(8,3),=CL8' '     BLANKS 
     /COP BEFORE LEN(72) 'GODT0009' 
              MVC   3(2,3),6(1)        YEAR 
     /D LEN(72) 'GODT0023' 
              SR    15,15 
     EXIT     MVC   DOUBLE,0(3) 
     /COP LEN(72) 'GODT0024' 
     /S C=2 
              L     13,SAVE+4 
     /EN 
-Comments:
+________
 
 
     Assumes that change number 4053 has been applied. 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4062
+                                                            4062
+                                                            4062
                                                       Date: January 20, 1978 
                                                     Person: Engle
-Component:  OSGRDT  (523/1)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Check for and produce a return code of 4 and values consisting 
     of all blanks if "digits" in the first argument would produce 
     a data exception. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /B C4062 
     /D LEN(72) 'OGDT0001' 
     OGDT     TITLE 'OS TO GREGORIAN DATE CONVERSION--C. F. ENGLE--19 JAN 781 
     /D LEN(72) 'OGDT0007' 
              PACK  0(2,3),3(2,1)      CHECK FOR POTENTIAL DATA EXCEPTIONS 
              PACK  2(2,3),5(3,1) 
              MVC   DOUBLE,=CL8' ' 
              LA    15,4 
              CP    0(2,3),2(2,3) 
              BPI   OPND,EXIT 
              ZAP   DOUBLE,2(2,3)      GET DAYS 
     /D LEN(72) 'OGDT0020' 
              SR    15,15 
     EXIT     MVC   0(8,3),DOUBLE 
     /D LEN(72) 'OGDT0024' 
     /EN 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4063
+                                                            4063
+                                                            4063
                                                       Date: Jan 23, 1978 
                                                     Person: Tiffany
-Component:  APC  (0496/003)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     If the synchronization mode is on, the printout 
     ignores the PRCOL option. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN C4063 
     /COPY "PRNTBOTH" 
     /COPY SPAN(" ") "IF" SPAN(" ") "R3,NZ" 
                S     R2,=F'12'        MAKE ROOM FOR LINE NUMBER 
                A     R2,PRCOL         ACCOUNT FOR PRCOL 
                S     R3,PRCOL         SET LENGTH=LENGTH-PRCOL+1 
                A     R3,=F'1' 
                IF    NEG              IF NEGATIVE, ZERO LENGTH 
                  SR    R3,R3 
                  S     R2,PRCOL 
                  A     R2,=F'1' 
                ENDIF 
     /DELETE SPAN(" ") "S" SPAN(" ") "R2,=F'11'" 
     /COPY SPAN(" ") "IF" SPAN(" ") "R5,NZ" 
                S     R4,=F'12'        MAKE ROOM FOR LINE NUMBER 
                A     R4,PRCOL         ACCOUNT FOR PRCOL 
                S     R5,PRCOL         SET LENGTH=LENGTH-PRCOL+1 
                A     R5,=F'1' 
                IF    NEG              IF NEGATIVE, ZERO LENGTH 
                  SR    R5,R5 
                  S     R4,PRCOL 
                  A     R4,=F'1' 
                ENDIF 
     /DELETE SPAN(" ") "S" SPAN(" ") "R4,=F'11'" 
     /END 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4064
+                                                            4064
+                                                            4064
                                                       Date: Jan 23,1978 
                                                     Person: MTA
-Component:  RAMROD(SERVICE MODULE)  (1019/1)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Any system with a record longer than 256 bytes (for example a 
     CSI record) won't load properly. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN C4064 
     /COPY 'TMLOOP ' 
     /COPY NEXT 'A ' 
              A     R7,=F'256'         UPDATE TO ADDRESS ALSO 
     /END 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4065
+                                                            4065
+                                                            4065
                                                       Date: Jan 23, 1978 
                                                     Person: MTA
-Component:  *FAKEOS(UPDATES)  (545/5)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     OPEN blows up if the number of buffers requested is not odd (i.e 
     if it is a multiple of 2). 
-Source changes expressed in old update (*UPDATE) form,
+______________
                based on D4.0 sequence id.
 
 
     %DELETE FAKB4096 
     %DELETE FAKB4102 
     *NUMBER OF BUFFERS WANTED IN GR0 AND LENGTH OF EACH IN GR1 
     %DELETE FAKB4108 
              MH    R1,DOUBLE          TOTAL LENGTH OF ALL BUFFERS 
-Comments:
+________
 
 
     These updates should be merged into 545/5 in the appropriate place. 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4066
+                                                            4066
+                                                            4066
                                                       Date: Jan 23, 1978 
                                                     Person: MTA
-Component:  *FAKEOS(BDAM SIMULATOR)  (545/7)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Every BDAM I/O operation allocates X'90' bytes for an IOB which 
     is never released or reused. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN C4066 
     /COPY 'DAWAIT ' 
     /COPY NEXT 'STC ' 
     /BUFFER CHAIN 
     /SKIP '* CAM ' 
     /COPY BEFORE NEXT 'SR ' NEXT 'RF,RF ' 
     /SKIP C=1 
     /BUFFER END 
     /COPY 'DACHKSYN ' 
     /COPY C=1 
              MVI   IOBDAVLI,0         RELEASE IOB 
     /COPY BEFORE 'DACLRIOB ' 
     /EDIT F=1 REM = 
     /COPY NEXT 'ST ' NEXT 'R4,' 
     /INCLUDE CHAIN 
              MVI   IOBDAVLI,255       MARK IT IN USE 
     /EDIT F=1 = 'DACLRIOB' 
     /END 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4067
+                                                            4067
+                                                            4067
                                                       Date: Jan 24, 1978 
                                                     Person: Sherry
-Component:  UMLOAD  (001/1)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Fix the relocation factor of CM with non-zero origin (as produced 
     by the OS Linkage Editor) - it's not the same as the value. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN C4067 
     /COPY "ESDDEF92 TM" 
     /COPY COUNT=1 
              TM    SETESD+ESDST1D,COMBT  IF ESD ITEM = CM, COMPUTE NEW 
              BO    ESDDEF8                 RELFAC IN CASE NONZERO ORIGIN 
     /END 
-Comments:
+________
 
 
     This bug caused A-type adcons referencing non-zero origin CMs 
     to be improperly relocated (inter-module references). 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4068
+                                                            4068
+                                                            4068
                                                       Date: Jan 24, 1978 
                                                     Person: Sherry
-Component:  UMLOAD  (001/1)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Fix to properly relocate V-con reference to CM with non-zero 
     origin from csect defined within same module as csect declaring 
     CM as produced by the OS linkage editor (intra-module reference). 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN C4068 
     /COPY "RLDSA3   OI" 
     /COPY COUNT=6 
              TM    RBFLGS+3,X'10'     A V-CON REFERENCE? 
              BO    RLDSA4             NO NEED TO RELOCATE NOW 
     /END 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4069
+                                                            4069
+                                                            4069
                                                       Date: Jan 24, 1978 
                                                     Person: Sherry
-Component:  LLXU  (354/1)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Fix bug to free input fdub when loading empty file with the 
     noprompt and return on error bits set. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN C4069 
     /COPY "XRUNIT   L" 
     /COPY BEFORE BLANKS "BO    XLERRET" 
     /EDIT "XLERRET" = "XLERROR" 
     /END 
-Comments:
+________
 
 
     This caused the file to be locked so other users could not 
     access it while the calling program was still loaded. 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4070
+                                                            4070
+                                                            4070
                                                       Date: Jan 30, 1978 
                                                     Person: Tiffany
-Component:  APC  (0496/003)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     To correct line number for sequential files when scanning 
     backwards. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN C4070 
     /DELETE "NOSCAN0 " 
     NOSCAN0  IF    IOMOD+1,O,X'20',TM BACKWARDS? 
                NI    IOMOD+1,NOT-X'20' 
                NI    IOSWS,NOT-EOFSW 
              ENDIF 
     /COPY SPAN(" ") "BM" SPAN(" ") "READBSR " 
              IF    IOSWS,O,EOFSW,TM   ENDFILE? 
                TM    IOMOD+1,X'20'    BACKWARDS? 
                BZ    READSEQ3         NO, QUICK RETURN 
                NI    IOSWS,NOT-EOFSW  RESET SWITCH 
              ENDIF 
     /SKIP COUNT=2 
     /COPY BEFORE SPAN(" ") "BE" SPAN(" ") "READSEQ2" 
     /EDIT "SEQ2" = "SEQ6" 
     /COPY BEFORE SPAN(" ") "L" SPAN(" ") "R1,RDSAVE" 
                L     R1,=F'1000'      SET INCREMENT 
                TM    IOMOD+1,X'20'    IF BACKWARDS, 
                BZ    *+6              NEGATE IT. 
                LNR   R1,R1 
                A     R1,RDSAVE        UPDATE LINE NUMBER 
     /SKIP COUNT=2 
     /COPY BEFORE "READSEQ2" 
     READSEQ6 IF    IOMOD+1,O,X'20',TM IF BACKWARDS 
                XC    IOLNR,IOLNR      SET LNR=0.0 
              ELSE 
     /COPY BEFORE "READSEQ5" 
              ENDIF 
     /END 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4071
+                                                            4071
+                                                            4071
                                                       Date: Feb 3, 1978 
                                                     Person: Boettner
-Component:  FILESTATUS COMMAND  (0529/001)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     To correct one of the corrections in Change Form 4055.  The 
     MVC instruction with label BXCAT that was inserted just 
     before the line with label BX should be executed only if 
     SPCBIT is on, since otherwise SAVFILI does not have a valid 
     value.  This caused various strange behaviors, including 
     pgnts.  The following change assumes that Change 4055 
     has already been applied. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN C4071 
     /COPY BEFORE 'BXCAT' 
     BXCAT    TM    SWS3,SPCBIT 
              BZ    BX 
     /EDIT 'BXCAT' = '     ' 
     /END 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4072
+                                                            4072
+                                                            4072
                                                       Date: February 6, 1978 
                                                     Person: Engle
-Component:  ACCOUNTING (STATUS)  (104/11)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Exceeding a global time limit in conversational mode or a 
     local time limit in batch or conversational mode while the 
     accounting file is locked will leave the file locked until the 
     program is unloaded.  This change causes the program to 
     terminate without locking the file if either of these limits 
     leaves too little remaining time. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /B C4072 
     /D LEN(72) 'STAT0001' 
     STAT     TITLE 'ACCOUNTING STATUS FOR MTS USER--C. F. ENGLE--6 FEB 78' 
     /COP LEN(72) 'STAT0133' 
              MACRO 
     &NAME    GUINFO    &ITEM,&LOC 
     .********************************************************************** 
     .*                                                                    * 
     .*       ITEM  THE LOCATION SPECIFYING THE GUINFO ITEM TO BE OBTAINED.* 
     .*       LOC   THE LOCATION INTO WHICH THE GUINFO ITEM WILL BE PLACED.* 
     .*                                                                    * 
     .********************************************************************** 
     &NAME    LA    R1,=A(&ITEM,&LOC) 
              L     R15,=V(GUINFO) 
              BALR  R14,R15 
              LTR   R15,R15 
              BNZ   GUINFERR 
              MEND 
              SPACE 5 
     /COP LEN(72) 'STAT0158' 
     GETELT   EQU   38                 SVC DEFINITION 
              SPACE 5 
     /D LEN(72) 'STAT0168' 
     /S LEN(72) 'STAT0173' 
              GUINFO    SIGNONID,ID    GET USER SIGNON ID 
     /D LEN(72) 'STAT0182' 
              GUINFO    LOCCPUT,DOUBLE 
              GUINFO BATCHMD,DOUBLE+4 
              C     R6,DOUBLE+4 
              BNE   CKLCLTM            BATCH, NO GLOBAL TIME LIMIT PROBLEM 
              GUINFO    GLOBCPUT,DOUBLE+4 
              L     R2,DOUBLE+4 
              LTR   R2,R2 
              BZ    CKLCLTM            NO GLOBAL TIME LIMIT 
              GUINFO    GLOBTTN,DOUBLE+4    GLOBAL TIME LIMIT BASE 
              A     R2,DOUBLE+4 
              C     R6,DOUBLE 
              BNE   LCLBASE            LOCAL TIME LIMIT 
              B     GETREQTM 
              SPACE 5 
     CKLCLTM  C     R6,DOUBLE 
              BE    GETACC             NO LOCAL TIME LIMIT 
              L     R2,=X'7FFFFFFF'    MAXIMUM FOR GLOBAL TIME LIMIT 
     LCLBASE  GUINFO    LOCTTN,DOUBLE+4     LOCAL TIME LIMIT BASE 
              L     R3,DOUBLE 
              A     R3,DOUBLE+4 
              CR    R2,R3 
              BNH   GETREQTM           GLOBAL LIMIT BEFORE LOCAL LIMIT 
              LR    R2,R3              USE LOCAL TIME LIMIT 
     GETREQTM L     R3,=F'-7680'       -0.1 CPU SEC NEEDED TO READ ACC REC 
              L     R15,=V(CNFGINFO) 
              USING CNFGINFD,R15 
              CLC   CIMODEL,=X'0470' 
              BE    CKREMTM            470V/6 
              SLA   R3,1               MINUS CPU TIME NEEDED FOR 370/168 
              CLC   CIMODEL,=X'0168' 
              BE    CKREMTM            370/168 
              DROP  R15 
              MH    R3,=H'6'           MINUS CPU TIME NEEDED FOR 360/67 
     CKREMTM  AR    R3,R2 
              SVC   GETELT             CURRENT CPU TIME 
              SR    R3,R0 
              SR    R3,R1              REMAINING CPU TIME MINUS TIME NEEDED 
              BM    NOTIME             INSUFFICIENT CPU TIME TO READ ACC REC 
     GETACC   L     R0,SAVE+4 
     /D LEN(72) 'STAT0255' 
     /S LEN(72) 'STAT0258' 
              GUINFO    BATCHMD,DOUBLE 
              C     R6,DOUBLE 
              BE    NOFULL             NOT BATCH, ABBREVIATED OUTPUT 
     /COP LEN(72) 'STAT0267' 
     GUINFERR LA    R1,=A(GUINFMSG,H13,0)   GUINFO ERROR 
              B     READERR 
              SPACE 5 
     /COP LEN(72) 'STAT0275' 
     NOTIME   LA    R1,=A(NOTIMMSG,H44,0)   INSUFFICIENT CPU TIME 
              B     READERR 
              SPACE 5 
     /COP LEN(72) 'STAT0692' 
     BATCHMD  DC    F'10' 
     /COP LEN(72) 'STAT0695' 
     GLOBCPUT DC    F'78' 
     GLOBTTN  DC    F'94' 
     /COP LEN(72) 'STAT0701' 
     LOCCPUT  DC    F'86' 
     LOCTTN   DC    F'96' 
     /COP LEN(72) 'STAT0703' 
     SIGNONID DC    F'2' 
     /COP LEN(72) 'STAT0710' 
     H44      DC    H'44' 
     /COP LEN(72) 'STAT0720' 
     GUINFMSG DC    C' GUINFO ERROR' 
     /COP LEN(72) 'STAT0723' 
     NOTIMMSG DC    C' THE LOCAL OR GLOBAL TIME LIMIT IS TOO SMALL' 
     /COP LEN(72) 'STAT0740' 
     *********************************************************************** 
     *                                                                     * 
     *        MACHINE CONFIGURATION TABLE                                  * 
     *                                                                     * 
     *********************************************************************** 
              SPACE 5 
              COPY  *CNFGINFODSECT 
              EJECT 
     /EN 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4073
+                                                            4073
+                                                            4073
                                                       Date: FEBRUARY 7, 1978 
                                                     Person: MTA
-Component:  MSG ROUTINE  (1023/1)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     A CALL item after a false IF test causes an infinite loop. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN C4073 
     /COPY 'L1SKP ' 
     /COPY C=4 
              CLI   0(MSGLOC),CALL@     CALL THIS TO GET LENGTH 
              BE    L1B 
     /COPY BEFORE 'CALLC ' 
     CALLC    TM    SWX,@SKIP          ARE WE SKIPPING? 
              BO    CALLSKP            YES 
     /EDIT FIELD=1 'CALLC' = 
     /COPY 'CALLQ ' 
     /COPY NEXT 'B ' 
     CALLSKP  LA    MSGLOC,4(0,R6)     SET RESUME POINT 
              B     LOOP               AND CONTINUE 
     /END 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4074
+                                                            4074
+                                                            4074
                                                       Date: FEB 15, 1978 
                                                     Person: Sherry
-Component:  *WATFIV(ACCT) -- UPDATE  (483/001)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Change the /COMPILE card scanner to recognize abbreviations 
     for some job options and also to allow commas or blanks as 
     delimiters. 
-Source changes expressed in edit commands form,
+______________
                based on D4.0 source.
 
 
     EDIT WAT5.SGEN 
     COMMENT -- Edit update to ACCT assembly -- 
     INSERT 2090 
     %DELETE '01250000' '01270000' 
              LR    R2,R1              SAVE CURRENT POINTER 
     BLOOP    IF        (ZR1,EQ,C';'),BANALDON        END OF PARAMETERS 
              CLI   ZR1,C' ' 
              BNE   *+12 
              LA    R1,ZR1+1           SKIP THE BLANK 
              B     BLOOP              CONTINUE 
              CLI   ZR1,C','           SKIP ALL COMMAS 
              BNE   BCHKDEL 
     BLOOP3   LA        R1,ZR1+1            R1=R1+1; 
              B     BLOOP              TRY SOME MORE 
     BCHKDEL  CR    R1,R2              ANY DELIMITERS? 
              BE    BANALERR           NO, SO IT'S AN ERROR 
     $ENDFILE 
     INSERT 2092 
     %BEFORE  '01840000' 
              BE    *+22 
              CLC   =C'T=',ZR1              "T="? 
     %BEFORE  '01850000' 
              LA    R1,ZR1+1                SKIP THE "T" 
              B     *+8 
     $ENDFILE 
     INSERT 2116 
     %BEFORE  '02030000' 
              BE    *+22 
              CLC   =C'P=',ZR1              "P="? 
     %BEFORE  '02040000' 
              LA    R1,ZR1+1                SKIP THE "P" 
              B     *+8 
     %BEFORE  '02360000' 
              BE    *+22 
              CLC   =C'L=',ZR1              "L="? 
     %BEFORE  '02370000' 
              LA    R1,ZR1+1                SKIP THE "L" 
              B     *+8 
     $ENDFILE 
     INSERT 2128 
              BE    *+20 
              CLI   ZR1,C'S'                "S"? 
     $ENDFILE 
     INSERT 2129 
              LA    R1,ZR1+1                SKIP THE "S" 
              B     *+8 
     $ENDFILE 
-Comments:
+________
 
 
     Allowable abbreviations are T for TIME, P for PAGES, 
     L for LINES and S for SOURCE. 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4075
+                                                            4075
+                                                            4075
                                                       Date: FEB 15, 1978 
                                                     Person: Sherry
-Component:  *WATFIV(SCAN) -- UPDATE  (483/001)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Change the control card scanner to detect illegal control cards 
     and print a warning message. 
-Source changes expressed in edit commands form,
+______________
                based on D4.0 source.
 
 
     EDIT WAT5.SGEN 
     COMMENT -- Edit update to SCAN assembly -- 
     INSERT 71014 
     %AFTER '02014000' 
              SPRIN XCARD1,90          PRINT OFFENDING CARD 
              MVI   XCARD2,0           SO ERROR WON'T PRINT LAST BUFFER 
              ERROR (WARN,JB,2),DONE   "UNRECOGNIZED CONTROL CARD" 
     $ENDFILE 
     COMMENT -- Edit update to ERRTEXTS assembly to add new message 
     INSERT 44001 
     %AFTER '02790000' 
              EMESSAGE   JB,2,'UNRECOGNIZABLE CONTROL CARD.' 
     $ENDFILE 
     COMMENT -- Edit update to STARTA section to add new switch. 
     INSERT 76052 
     %AFTER '09351500' 
     XJOBSW   DC    X'00'              ON IF $JOB CARD READ 
     $ENDFILE 
     COMMENT -- Edit update to MAIN assembly -- 
     INSERT 61042 
     %DELETE '02690000' 
              BE    MAIN15             YES, START THE JOB 
              CLI   XJOBSW,0           READ A $JOB CARD YET? 
              BE    MAIN10C            NO, SO COMPLAIN 
              EX    R0,COPENTRY        AN $ENTRY CARD? 
              BNE   MAIN10             NO, IGNORE IT 
              MVI   XJOBSW,0           NO $JOB CARD YET 
              B     MAIN10 
     MAIN10C  CLI   XSRCPTR,0          BATCH? 
              BNE   MAIN10P            YES, PRINT THE CARD 
              CLI   XITZFILE,0         SCARDS A FILE? 
              BE    MAIN10             NO, SO IGNORE IT 
     MAIN10P  SPRIN XCARD1,90          ECHO CONTROL CARD 
              SERCOM 'YOU MUST ENTER A "&CONTROL&NEWJOB" CARD FIRST' 
              B     MAIN10             TRY AGAIN 
     $ENDFILE 
     INSERT 61044 
              MVI   XJOBSW,B'10000000' REMEMBER A $JOB CARD WAS READ 
     $ENDFILE 
     COMMENT -- Edit ERRTABLE macro to add new message type -- 
     INSERT 43000 
     %INPUT *S* 43    ;43              ERRTABLE 
     %OUTPUT WAT5.FUNMAC(1000) 
     %AFTER '03090000' 
              ERRDEFN JB2 
     %AFTER FILEMARK 
     %CLOSE *S* 
     %CLOSE WAT5.FUNMAC(1000) 
     $CONTINUE WITH *DUMMY* 
     $ENDFILE 
-Comments:
+________
 
 
     The macro ERRTABLE must be regenerated and placed in the 
     appropriate macro library (WAT5.FUNMAC); the copy sections 
     ERRTEXTS and STARTA must be regenerated; and the modules 
     ERROR, SCAN and MAIN must be regenerated and assembled to 
     effect this change. 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4076
+                                                            4076
+                                                            4076
                                                       Date: FEB 15, 1978 
                                                     Person: Sherry
-Component:  *WATFIV(INOUT) -- UPDATE  (483/001)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Fix the error message issued when more than 256 constants 
     appear in a DATA statement (WATFIV restriction). 
-Source changes expressed in edit commands form,
+______________
                based on D4.0 source.
 
 
     EDIT WAT5.SGEN 
     COMMENT -- Edit update to INOUT assembly -- 
     %AFTER '06020000'  ; BUGFIX 
               MVI   IOBJBIT,X'00'     INITIALIZE SWITCH 
     %AFTER '07830000' ;  BUGFIX 
               C     R4,=F'255'        MORE THAN 255 CONSTANTS? 
               BNH   ISETLEN           NO, OK 
               MVI   ZR3+1,255         SET MAX COUNT 
               ERROR (NOAC,DA,A),ITUFF  "MORE THAN 255 CONSTANTS" 
     ISETLEN   DS    0H 
     $ENDFILE 
     COMMENT -- Edit update to ERRTEXTS copy section -- 
     INSERT 44001 
     %AFTER '00980000' 
              EMESSAGE   DA,A,'MORE THAN 255 CONSTANTS IN DATA STATEMENT' 
     $ENDFILE 
     COMMENT -- Edit ERRTABLE macro to add new message type -- 
     INSERT 43003 
     %BEFORE '03140000' 
              ERRDEFN DAA 
     $ENDFILE 
-Comments:
+________
 
 
     Previously the message "MORE VARIABLES THAN CONSTANTS" was 
     printed because only one byte is used to save the number of 
     constants in the object code. This change requires that the 
     macro ERRTABLE, the copy section ERRTEXTS, the module ERROR, 
     and the module INOUT be regenerated. 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4077
+                                                            4077
+                                                            4077
                                                       Date: Feb 20, 1978 
                                                     Person: Sherry
-Component:  LLXU  (354/1)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Fix bug to not unload run-only program when it loads a null 
     program with noprompt and return on error bits set. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN C4077 
     /COPY "XLERROR  L" 
     /COPY BEFORE BLANKS "BAL   GR2,XLCLEAN" 
     /EDIT "       " = "XLERRCL" 
     /COPY "XRUNIT   L" 
     /COPY BEFORE BLANKS "BO    XLERROR" 
     /EDIT "XLERROR" = "XLERRCL" 
     /END 
-Comments:
+________
 
 
     Note: this bug was introduced by the bugfix of change #4069. 
     The "B XLERROR" should have been "B XLERROR+8". 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4078
+                                                            4078
+                                                            4078
                                                       Date: Mar 25, 1978 
                                                     Person: OGDEN
-Component:  OPERATOR JOB  (634/1)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Provides support for the 3286 log printer, which is just 
     treated like a 3284. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN C4078 
     /COPY "GETNUP " 
     /COPY COUNT=9 
              CLC   =C'3286',RDLNAM(R2) 
              BE    IS3284              WELL ALMOST ANYWAY 
     /END 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4079
+                                                            4079
+                                                            4079
                                                       Date: Mar 25, 1978 
                                                     Person: OGDEN
-Component:  OPERATOR JOB  (634/1)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Fixes several bugs in the log printer Unit Check routines. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN C4079 
     /COPY BEFORE "SVCSKIP " 
     /EDIT "31" = "13" 
     /COPY "TRYNUDVS " 
     /COPY COUNT=16 
     /EDIT "SWS" = "SWS2" 
     /COPY "SAMPTR " 
     /COPY COUNT=6 
     /EDIT "SWS" = "SWS2" 
     /COPY "UCPTR " 
     /COPY COUNT=11 
     /EDIT "+OC" = "" 
     /COPY "WAITRTN " 
     /COPY COUNT=12 
     /EDIT "SWS" = "SWS2" 
     /END 
-Comments:
+________
 
 
     The D4.1 version will contain a "cleaner" fix for 
     the 1403 support. 
     I'm sorry it took me so long to get these 
     written up on a change form. 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4080
+                                                            4080
+                                                            4080
                                                       Date: Mar 25, 1978 
                                                     Person: OGDEN
-Component:  OPERATOR JOB  (634/1)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Fix the register setup so the SVC TIMERCNCL will work. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN C4080 
     /COPY "WRITNOW " 
     /COPY COUNT=3 
     /EDIT "R3" = "R0" 
     /END 
-Comments:
+________
 
 
     My thanks to the folks from UBC for finding this. 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4081
+                                                            4081
+                                                            4081
                                                       Date: Mar 25, 1978 
                                                     Person: OGDEN
-Component:  OPERATOR JOB  (634/1)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     A fix so both digits of the month (mm-dd-yy) will print 
     on the console log. 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /BEGIN C4081 
     /COPY "DLTIME " 
     /SKIP COUNT=1 
               DC    X'21000800',AL1(0,0,0,0,0) 
     /END 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4082
+                                                            4082
+                                                            4082
                                                       Date: MARCH 31, 1978 
                                                     Person: Sherry
-Component:  *WATFIV(FORMCONV) -- UPDATE  (483/001)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Fix E and D-type output format conversion for zero valued variables. 
-Source changes expressed in edit commands form,
+______________
                based on D4.0 source.
 
 
     EDIT WAT5.SGEN 
     COMMENT -- Edit update to FORMCONV assembly -- 
     INSERT 50110 
     %AFTER '13070000' 
              BAL   R8,SPZERO          CHECK IF VARIABLE IS ZERO 
     %AFTER '13100000'     ; ADD NEW SUBROUTINE 
              SPACE 
     SPZERO   L     R1,STR1            POINT TO VARIABLE 
              LE    0,0(,R1)           NOW IN FR0 
              LTER  0,0                IS IT ZERO? 
              BNZR  R8                 NO, JUST RETURN 
              B     ISZERO             YES 
     DPZERO   L     R1,STR1            POINTER TO VARIABLE 
              LD    0,0(,R1)           PICK UP REAL*8 VARIABLE 
              LTDR  0,0                IS IT ZERO? 
              BNZR  R8                 NO, RETURN 
     ISZERO   LR    R3,R4              BUFFER POINTER TO EXPONENT 
              SR    R3,R7              - POINTER TO DECIMAL POINT 
              SH    R3,=H'3'           = NUMBER OF 0'S TO BLANK 
              BM    ISZEROR            NEGATIVE -> RETURN 
              MVI   2(R7),C' '         BLANK OUT FRACTION 
              BZ    ISZEROR            ONLY ONE EXTRA 0 
              BCTR  R3,0               IBM LENGTH 
              EX    R3,BLKFRAC         BLANK OUT EXTRA ZEROS IN FRACTION 
     ISZEROR  LA    R4,4(,R4)          UPDATE BUFFER POINTER 
              B     SUPCLEAN           RETURN 
     BLKFRAC  MVC   3(0,R7),2(R7) 
     %AFTER  '13250000' 
              BAL   R8,DPZERO          CHECK FOR VAR = 0.0 
     $ENDFILE 
-Comments:
+________
 
 
     Previously FORMCONV would print zero valued variables with 
     formats like E13.5 as "0.00000E-01", now just "0.0" will 
     be printed for all E and D-type formats as FTN does. 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4083
+                                                            4083
+                                                            4083
                                                       Date: April 12, 1978 
                                                     Person: Helffrich
-Component:  OPEN  (428/14)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     When the RENAMEIT subroutine was called to rename a file from 
     one catalog to another, and the LASTCHG and CREDATE stuff was 
     supplied, the LASTCHG and CREDATE were exchanged. 
-Source changes expressed in old update (*UPDATE) form,
+______________
                based on D4.0 sequence id.
 
 
     %BEFORE  'OPEN1587' 
     *           16+CRECAT,80+CREFD,12+SDMLIKE,12+SDWRITE,12+FDWRITE 
     %DELETE  'OPEN1587' 
     %BEFORE  'OPEN2093' 
              MVC   CFDPAR+56+4(22-4,RD),4(R2) RE-FORMAT PARAMETERS 
              MVC   CFDPAR+56(2,RD),2(R2)      SO THAT CREFD GETS THEM 
              MVC   CFDPAR+56+2(2,RD),0(R2)    RIGHT 
              LA    R2,CFDPAR+56(,RD)          POINT TO NEW ONES 
     %BEFORE  'OPEN2111' 
              LA    RD,CFDPAR+56+24(,RD) 
     %DELETE  'OPEN2111' 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4084
+                                                            4084
+                                                            4084
                                                       Date: April 12, 1978 
                                                     Person: Helffrich
-Component:  OPEN  (428/14)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     This decreases the number of references to the catalog to 
     update the LASTCHG date and the FSAVEIT bit in the catalog 
     when a file is changed. 
-Source changes expressed in old update (*UPDATE) form,
+______________
                based on D4.0 sequence id.
 
 
     %BEFORE  'OPEN0285' 
              TM    FDFODT(R5),FSAVEIT 
              BZ    *+8                -> FSAVEIT bit not on 
              OI    FCBFLG(R2),FDCHNG  will, remember this then 
     %BEFORE  'OPEN0286' 
              MVC   FCBOLCD(2,R2),FDLCHNG(R5) last change date at open 
     %BEFORE  'OPEN0287' 
              MVC   FCBFDLOC(6,R2),BCBPA(R8)  SAVE FDLOC FOR CLOSE 
     %DELETE  'OPEN0287' 
     %BEFORE  'OPEN0574' 
              MVC   R1NAB(4,R7),FCBLNAB(R8)  #AVAIL ENTRIES 
     %DELETE  'OPEN0574' 
     %BEFORE  'OPEN0614' 
              BZ    CLOSD3X            -> no, check if additional refs 
              TM    FCBFLG(R8),FDCHNG  FSAVEIT in FD set yet? 
              BZ    CLOSR1             -> no, do it right away 
     * 
              SVC   TIME               see if last change date needs 
              D     R0,=F'60000000'    updating from value at open 
              XR    R0,R0 
              D     R0,=A(24*60)       mumbo jumbo 
              LA    R0,1(,R1) 
              L     R1,R1LOC(,RD)      restore this 
              CH    R0,FCBOLCD(,R8)    see if has changed 
              BH    CLOSR1             -> yup, have to update 
     * 
     CLOSD3X  LH    R9,FCBREFC(,R8)    any new refrences to FCB besides 
              BXLE  R9,R9,CLOSR20      this open?  -> no 
              SPACE 2 
     *        Going to read and maybe write file descriptor, now 
              SPACE 
     CLOSR1   LR    R6,R8              KEEP FCB LOC AROUND 
              SR    R7,R7              THIS MARKS A KEEPIT & INUSE BUFFER 
     %DELETE  'OPEN0614' 'OPEN0619' 
     %BEFORE  'OPEN0624' 
              BO    *+6                DONT EVEN THINK ABOUT USING THIS ONE 
     %DELETE  'OPEN0624' 
     %BEFORE  'OPEN0666' 
     * 
              LH    R4,FCBREFC(,R6)    FIRST CHECK ADDITIONAL REFERENCES 
              LTR   R4,R4 
              BNZ   CLOSR5             -> FOUND SOME FLEAS 
     * 
              CH    R2,FDLCHNG(,R5)    IF LAST CHANGE DATE ISN'T LATER, WE 
              BH    CLOSR6             CAN SKIP WRITE ENTIRELY 
              TM    FCBFLG(R6),FDCHNG    UNLESS 
              BZ    CLOSR6                 FSAVEIT IN FD NOT SET 
     * 
              LA    R0,LDN             SKIP  WRITE  JUST FREE DRIVE 
     %DELETE  'OPEN0666' 'OPEN0675' 
     %BEFORE  'OPEN0689' 
              OI    FCBFLG(R6),FDCHNG      AND DON'T DO IT AGAIN 
     CLOSR7   MVC   FCBOLCD(2,R6),FDLCHNG(R5)  ANYWAY, UPDATE WHILE HERE 
              LA    R8,0(,R8) 
     %DELETE  'OPEN0689' 
     %AFTER    FILEMARK 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4085
+                                                            4085
+                                                            4085
                                                       Date: April 12, 1978 
                                                     Person: Helffrich
-Component:  RWSEQ  (428/17)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Fix bug in D4.0 READS causing write pointer in sequential file 
     to not be updated properly on a backwards read. 
-Source changes expressed in old update (*UPDATE) form,
+______________
                based on D4.0 sequence id.
 
 
     %BEFORE  'RWSE0349' 
              CLC   0(4,R2),FCBSRPW(RE)  check write pointer < read 
              BH    RSSKIPCK           -> yes 
     %DELETE  'RWSE0349' 'RWSE0350' 
1MTS CHANGE FORM
+MTS CHANGE FORM
+MTS CHANGE FORM
                                                 Change Nbr: 4086
+                                                            4086
+                                                            4086
                                                       Date: May 5, 1978 
                                                     Person: Engle
-Component:  RCALL/ADROF SUBRS  (357/1)
+_________   
-Reason for change (in case of error correction, erroneous behavior noticed
+_________________
                    and conditions in which it occurs)
 
 
     Updates the source to agree with the object (357/2) in D4.0 by 
     including the entry point IADROF and zeroing the high order 
     byte of the value returned by ADROF (IADROF). 
-Source changes expressed in new update (UBCUPDATE) form,
+______________
                based on D4.0 source.
 
 
     /B C4086 
     /D LEN(72) 'RCAL0072' 
              ENTRY IADROF 
     IADROF   EQU   * 
              L     1,0(0,1)           PICK UP THE ADDRESS FROM THE P LIST 
              LA    0,0(0,1)           ZERO THE HIGH ORDER BYTE 
     /EN 
-Comments:
+________
 
 
     The same source appears to have been distributed starting 
     with D2.0; the object changed sometime between D2.0 and 
     D3.0. 
