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.