Trailing-Edge
-
PDP-10 Archives
-
BB-L014B-BM
-
autopatch/versio.mac
There are 88 other files named versio.mac in the archive. Click here to see a list.
; UPD ID= 284, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.23, 12-Nov-80 16:07:20 by DONAHUE
; UPD ID= 281, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.22, 12-Nov-80 10:51:30 by DONAHUE
; UPD ID= 278, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.21, 6-Nov-80 11:28:56 by DONAHUE
; UPD ID= 275, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.20, 30-Oct-80 16:43:04 by SCHMITT
; UPD ID= 269, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.23, 27-Oct-80 15:35:29 by DONAHUE
; UPD ID= 256, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.22, 22-Oct-80 14:55:07 by ZIMA
; UPD ID= 254, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.21, 17-Oct-80 10:52:07 by MOSER
; UPD ID= 249, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.21, 15-Oct-80 10:28:38 by MOSER
; UPD ID= 248, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.19, 14-Oct-80 12:57:29 by ZIMA
;Test new ALU with /B FILCOM
; UPD ID= 245, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.18, 9-Oct-80 17:58:44 by ZIMA
;Correct module callout on edit 1794 from GTJFN to COMND.
; UPD ID= 243, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.17, 8-Oct-80 11:04:44 by GRADY
; UPD ID= 242, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.16, 8-Oct-80 10:55:06 by GRADY
; UPD ID= 240, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.15, 7-Oct-80 16:08:23 by ZIMA
; UPD ID= 238, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.14, 7-Oct-80 11:41:55 by ZIMA
; UPD ID= 237, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.13, 6-Oct-80 14:21:59 by ZIMA
;Put in some form feeds
; UPD ID= 235, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.12, 3-Oct-80 12:15:55 by ZIMA
; UPD ID= 233, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.11, 3-Oct-80 11:34:28 by SCHMITT
; UPD ID= 230, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.10, 2-Oct-80 11:20:33 by DONAHUE
; UPD ID= 228, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.9, 1-Oct-80 15:53:10 by ZIMA
; UPD ID= 227, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.8, 30-Sep-80 12:58:45 by ZIMA
;Remove some spaces that Autopatch coughs up on.
; UPD ID= 225, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.7, 30-Sep-80 11:53:28 by ZIMA
; UPD ID= 220, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.6, 29-Sep-80 15:35:48 by ZIMA
; UPD ID= 218, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.5, 24-Sep-80 14:57:20 by SCHMITT
; UPD ID= 214, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.4, 24-Sep-80 13:14:08 by ZIMA
; UPD ID= 212, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.3, 23-Sep-80 12:19:16 by ZIMA
; UPD ID= 209, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.2, 23-Sep-80 11:56:23 by ZIMA
; UPD ID= 207, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.75, 19-Sep-80 14:33:53 by GRADY
; UPD ID= 205, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.74, 15-Sep-80 17:20:56 by ZIMA
; UPD ID= 199, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.73, 9-Sep-80 12:00:31 by MOSER
; UPD ID= 197, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.72, 8-Sep-80 13:26:40 by ZIMA
; UPD ID= 193, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.71, 8-Sep-80 12:09:06 by ZIMA
; UPD ID= 192, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.70, 5-Sep-80 18:34:09 by ZIMA
; UPD ID= 191, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.69, 4-Sep-80 16:40:40 by ZIMA
; UPD ID= 189, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.68, 4-Sep-80 13:01:59 by ZIMA
; UPD ID= 187, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.67, 4-Sep-80 11:41:54 by ZIMA
; UPD ID= 184, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.66, 3-Sep-80 14:01:14 by ZIMA
; UPD ID= 182, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.65, 3-Sep-80 12:20:13 by ZIMA
; UPD ID= 180, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.64, 2-Sep-80 17:45:46 by ZIMA
; UPD ID= 178, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.63, 2-Sep-80 14:53:22 by ZIMA
; UPD ID= 175, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.62, 2-Sep-80 13:55:50 by ZIMA
; UPD ID= 173, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.61, 29-Aug-80 11:41:04 by ZIMA
; UPD ID= 163, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.60, 28-Aug-80 14:19:51 by ZIMA
; UPD ID= 158, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.59, 28-Aug-80 13:13:30 by ZIMA
; UPD ID= 157, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.58, 28-Aug-80 13:09:17 by SANICHARA
; UPD ID= 155, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.56, 27-Aug-80 15:47:51 by ZIMA
; UPD ID= 151, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.55, 27-Aug-80 14:57:16 by ZIMA
; UPD ID= 149, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.54, 27-Aug-80 11:06:10 by ZIMA
; UPD ID= 147, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.53, 26-Aug-80 16:15:49 by ZIMA
; UPD ID= 145, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.52, 26-Aug-80 10:35:43 by SANICHARA
; UPD ID= 140, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.51, 15-Aug-80 08:32:41 by SANICHARA
; UPD ID= 137, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.50, 4-Aug-80 12:50:40 by SCHMITT
; UPD ID= 134, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.49, 28-Jul-80 11:40:56 by ZIMA
; UPD ID= 131, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.48, 22-Jul-80 15:09:17 by ZIMA
; UPD ID= 128, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.47, 21-Jul-80 20:17:19 by ZIMA
; UPD ID= 126, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.46, 18-Jul-80 22:00:49 by ZIMA
; UPD ID= 124, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.45, 18-Jul-80 20:46:45 by ZIMA
; UPD ID= 122, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.44, 16-Jul-80 20:26:18 by SCHMITT
; UPD ID= 120, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.43, 14-Jul-80 13:26:26 by GRADY
; UPD ID= 112, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.42, 2-Jul-80 14:41:12 by SCHMITT
; UPD ID= 109, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.41, 2-Jul-80 13:32:59 by SANICHARA
; UPD ID= 106, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.40, 26-Jun-80 18:38:20 by SCHMITT
; UPD ID= 104, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.39, 26-Jun-80 15:20:10 by SANICHARA
; UPD ID= 102, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.38, 26-Jun-80 13:46:48 by ZIMA
; UPD ID= 99, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.37, 25-Jun-80 21:34:53 by SCHMITT
; UPD ID= 96, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.36, 25-Jun-80 17:23:24 by GRADY
; UPD ID= 94, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.35, 23-Jun-80 13:32:50 by SANICHARA
; UPD ID= 92, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.34, 21-Jun-80 11:40:56 by SCHMITT
; UPD ID= 90, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.33, 16-Jun-80 12:41:40 by SCHMITT
; UPD ID= 79, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.32, 11-Jun-80 15:44:43 by SCHMITT
; UPD ID= 74, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.31, 11-Jun-80 14:38:06 by SCHMITT
; UPD ID= 71, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.30, 11-Jun-80 13:50:49 by SCHMITT
; UPD ID= 69, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.29, 11-Jun-80 13:23:06 by SCHMITT
; UPD ID= 66, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.28, 11-Jun-80 12:49:53 by ZIMA
; UPD ID= 65, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.27, 11-Jun-80 12:38:18 by SCHMITT
; UPD ID= 63, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.26, 11-Jun-80 10:22:47 by SCHMITT
; UPD ID= 61, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.25, 11-Jun-80 09:55:17 by SCHMITT
; UPD ID= 56, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.24, 10-Jun-80 15:44:09 by ZIMA
; UPD ID= 54, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.23, 10-Jun-80 11:54:33 by ZIMA
; UPD ID= 51, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.21, 7-Jun-80 11:19:13 by SCHMITT
;Edit 1733
; UPD ID= 49, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.20, 7-Jun-80 10:47:34 by SCHMITT
; UPD ID= 48, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.19, 7-Jun-80 10:36:28 by SCHMITT
; Edit 1732
; UPD ID= 44, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.18, 6-Jun-80 15:15:33 by ZIMA
; UPD ID= 43, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.17, 6-Jun-80 14:54:12 by SCHMITT
; Edit 1731
; UPD ID= 39, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.16, 6-Jun-80 09:48:27 by SANICHARA
; UPD ID= 37, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.15, 6-Jun-80 09:28:56 by SANICHARA
; UPD ID= 35, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.14, 6-Jun-80 07:41:06 by SANICHARA
; UPD ID= 33, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.13, 6-Jun-80 06:13:41 by SANICHARA
; UPD ID= 31, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.12, 5-Jun-80 14:39:35 by ZIMA
; UPD ID= 29, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.11, 5-Jun-80 14:10:10 by ZIMA
; UPD ID= 25, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.10, 4-Jun-80 11:11:16 by ZIMA
; UPD ID= 22, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.9, 3-Jun-80 11:39:42 by ZIMA
; UPD ID= 20, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.8, 3-Jun-80 11:30:04 by ZIMA
; UPD ID= 19, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.7, 2-Jun-80 13:44:50 by SCHMITT
; UPD ID= 17, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.6, 2-Jun-80 10:03:01 by ZIMA
;EDIT 1721 - TCO 5.1049, FIX MSFRK SECURITY CHECK
; UPD ID= 14, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.5, 1-Jun-80 17:31:23 by ZIMA
;EDIT 1720 - FIX MAGTAPE DOUBLE BUFFERING RACE
; UPD ID= 12, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.4, 30-May-80 15:01:03 by ZIMA
;EDIT 1719 - FIX US.ACT TEST IN PHYSIO
; UPD ID= 11, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.3, 29-May-80 13:20:44 by SCHMITT
;Edit 1718 - Edit in LOGNAM
; UPD ID= 4, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.2, 27-May-80 14:27:07 by ZIMA
;EDIT 1717 - begin revision history
;<4.MONITOR>VERSIO.MAC.929, 3-Jan-80 08:10:45, EDIT BY R.ACE
;UPDATE COPYRIGHT DATE
;<4.MONITOR>VERSIO.MAC.691, 11-Mar-79 13:20:38, EDIT BY KONEN
;UPDATE COPYRIGHT FOR RELEASE 4
;<4.MONITOR>VERSIO.MAC.310, 21-Jul-78 13:38:35, Edit by HELLIWELL
;ALLOW VWHO TO BE SET EXTERNALLY
;<4.MONITOR>VERSIO.MAC.212, 16-May-78 18:08:25, EDIT BY MILLER
;ADD MINOR VERSION TO SETSPD NAME
;<4.MONITOR>VERSIO.MAC.73, 31-Jan-78 15:10:51, Edit by MCLEAN
;CHANGE VERSION NUMBER TO 4
TITLE VERSIO - MONITOR VERSION NUMBER AND NAME MODULE
SEARCH PROLOG
;MAINTENANCE REVISION HISTORY:
;
;1717 JGZ 19-APR-79 VERSIO
; Start keeping the maintenance revision history for TOPS-20 V4.0
;
;1718 RAS 29-MAY-80 VERSIO, LOGNAM
; Fix CRLNM JSYS from causing ILMREF when given a bad byte size for
; pointer to logical name definition string in T3.
;
;1719 JGZ 30-MAY-80 PHYSIO
; Fix wrong reference to US.ACT in CHK5 code. TCO 4.1.1012.
; PHYCH3 BUGINFs result from incorrect test of unit active on
; HOME block check.
;
;1720 JGZ 1-JUNE-80 MAGTAP
; Fix magtape double buffering race in MTSTS which caused COBOL
; errors like "Read and EOF instead of a label" or record
; sequence errors. Due to a bit used both at program level and
; PHYSIO interrupt level. SPR 20-12623.
;
;1721 JGZ 2-JUNE-80 FORK
; Fix WHEEL or OPERATOR check at start of MSFRK - it tests the
; wrong halfword.
;
;1722 JGZ 3-JUN-80 TAPE
; Fix labeled tape problems due to AOBJN using wrong AC in loop
; at MTCLA2+3.
;
;1723 JGZ 3-JUN-80 TAPE
; Fix another bad AOBJN in TAPE that fails to clear Volume Valid
; under restart conditions, leading to tape confusion.
; At MTCLV1+2.
;
;1724 JGZ 4-JUN-80 JSYSA
; Fix "last" wrong setting of disk quota +INFINITY that results in
; <SYSTEM> being over quota by +INF pages, etc.
;
;1725 JGZ 5-JUN-80 PHYM2
; Fix TU77 problems TM2CCI and P2RAEx sometimes followed by keep-alive
; due to calls to wrong routine in FTLERR.
;
;1726 JGZ 5-JUN-80 PHYM2
; Further TU77 related corrections, TM2CCI etc. from TU77 strange
; habit of having DS.SLA and DS.SSC set in unexpected combinations.
;
;1727 ARS 6-JUN-80 DISC
; Fix rename code to avoid DIRNL, ULKSTZ and IDFOD2.
;
;1728 ARS 6-JUN-80 DISC
; Fix rename code to release the OFN without unlocking the DIR
;
;1729 ARS 6-JUN-80 JSYSF
; Rename of file which was previously opened caused SHROFD. Restore
; status properly.
;
;1730 ARS 6-JUN-80 TTYSRV
; Allow padding characters after FF for LA36 with FF option
;
;1731 RAS 6-JUN-80 DSKalc
; Fix calculation for size of structure bit table during structure
; initialization at FSIID2+52
;
;1732 RAS 7-JUN-80 DSKALC
; Restore SDB ADR after assigning Swapping ADR in routine
; TOPASG
;
;1733 RAS 7-JUN-80 TIMER
; Allow the TIMER JSYS to succeed even if the System Time
; and Date has not been set if the function is .TIMRT,
; .TIMEL, or .TIMAL (these don't care if T & D have been set).
;
;1734 JGZ 10-JUN-80 TTYSRV
; Remove edit 1730, it was an unsupported informational patch and
; should not have been included here.
;
;1735 JGZ 10-JUN-80 DISC,JSYSF
; Force edits 1727, 1728, 1729 into standard form. This changes
; just the form, not the substance of the edits.
;
;1736 RAS 11-JUN-80 PHYSIO
; When the requested cylinder for disk I/O is for the same cylinder
; as the current cylinder and the fairness count is exhaused, Jump
; to SEK3 rather than SEK5.
;
;1737 RAS 11-JUN-80 MFLIN
; Allow lower case E to work as exponent delimerter for FLIN JSYS
;
;1738 RAS 11-JUN-80 TTYSRV
; Have the TTY byte input routine only return a <LF> if a <CR>
; was the last byte input and it was input in NON-BINARY mode.
; This requires a modification to the SIBE JSYS to not skip for
; the same reasons.
;
;1739 JGZ 11-JUN-80 DTESRV,MONSYM
; Fix BOOT JSYS to not return a zero error code; add several error
; codes to MONSYM to handle the now-diagnosed cases.
;
;1740 RAS 11-JUN-80 SERCOD
; Increase the size fo the SYSERR Bug entry block by increasing
; the value of BG%LEN
;
;1741 RAS 11-JUN-80 JSYSF
; Fix SWJFN JSYS to swap all words of the JFN blocks
;
;1742 RAS 11-JUN-80 IO
; When reading first byte of file and file is less than 4 bytes long,
; be sure to set bit which says no line numbers in file.
;
;1743 RAS 11-JUN-80 MAGTAP
; Remove check for Buffers, before deciding whether tape marks should
; be written when closing a file.
;
;1744 RAS 16-JUN-80 TAPE
; Change the CAME at MTRCOF+3 to a CAMLE to allow buffers which are
; less than the record size to be padded with "^"s in fixed format
; labeled tapes.
;
;1745 RAS 21-JUN-80 JSYSF
; When setting the default file offline expiration for a
; directory, use the contents of TPRCYC (the tape recycle
; period) if set rather than the value of .STDFE (standard
; default).
;
;1746 ARS 23-JUN-80 FILMSC
; Ensure that the fork enabling interrupts for a PTY is the owner of
; the JFN for that PTY.
;
;1747 TJG 26-JUN-80 JSYSF
; TCO 5.1081 - SPR 20-14328, Fix CHFDB for owner access check
; when file is not opened for write.
;
;1748 TJG 26-JUN-80 MEXEC
; TCO 5.1079 - SPR 20-14333, Prevent race condition that can cause
; random write to memory, ILMNRF, etc.
;
;1749 TJG 26-JUN-80 JSYSF
; TCO 5.1082 - SPR 13542, Prevent CRDIR from deleting a directory that
; somebody is connected/logged-in to.
;
;1750 RAS 25-JUN-80 GTJFN,MSTR
; Fix hung job problems with JSSTRT lock. SETDEV is OKINT
; when JSSTRT is locked while MSTDMC and MSTDMF can give
; an error return without unlocking the lock.
;
;1751 JGZ 26-JUN-80 IO
; Fix SIN JSYS case of AC3 nonzero but all bytes transferred, so
; code was appending null when it shouldn't. SPR 20-14270.
; Add modules to 1735 line.
;
;1752 ARS 26-JUN-80 FORK
; The range checking for user assignable channels is incorrect. Correct
; code to allow the assignment of channel 23.
;
;1753 RAS 26-JUN-80 MSTR
; EMACS Ripped me off. Delete ']' and replace it again
; Macro thought it was a ^=.
;
;1754 ARS 2-JUL-80 GTJFN,LOGNAM
; Do range checking for CCTAB offset. Prevents SECG37 BUGHLTS. Also
; combine the two similar dispatch code into a single routine.
;
;1755 RAS 2-JUL-80 LOGNAM
; Remove edit 1718 because edit 1754 makes 1718 redundant
;
;1756 TJG 14-JUL-80 JSYSF
; Correct edit 1749 to unlock directory on CRDI19 error
;
;1757 RAS 16-JUL-80 TAPE
; REMOVE EDIT 1744
;
;1758 JGZ 18-JUN-80 APRSRV
; Do BUGHLT APRNX1 correctly without XCT of XCT.
;
;1759 JGZ 18-JUL-80 COMND
; Fix TEXTI JSYS typo which returns wrong error code, TCO 5.1104.
;
;1760 JGZ 21-JUL-80 TTDZDV
; Remove unneeded sendall test which prevents specific TTMSG to the CTY.
;
;1761 JGZ 22-JUL-80 MAGTAP
; Correct reversed entries in magtape MTOPR .MOINF XCT table.
;
;1762 JGZ 28-JUL-80 MFLOUT
; Correct ILLUUO BUGHLTs resulting from bad stack level at TOOSML.
;
;1763 RAS 4-AUG-80 JSYSA
; NIN JSYS will eat all carriage returns even when they are not
; followed by line feeds. To fix this, the BIN1 routine needs to
; be rewritten to ignore the carriage return only when followed by
; a line feed, otherwise, the CR should be returned as the terminating
; byte.
;
;1764 ARS 15-AUG-80 TAPE
; Correct the EBCDIC value for a colon. The value was incorrect thus
; resulting in the wrong dispatch location and hence retrieving the
; wrong character.
;
;1765 ARS 26-AUG-80 GTJFN
; Fix the CCOC word so that CTRL X gets echoed.
;
;1766 JGZ 26-AUG-80 JSYSA
; Fix RMAP to lock fork structure before poking around in PSBs.
;
;1767 JGZ 27-AUG-80 DISC
; Fix wrong error code returned around DSKS12. Said file was offline
; instead of offline expiration date has expired.
;
;1768 JGZ 27-AUG-80 DIRECT
; Prevent FB%BAT from being propagated to new file generations.
;
;1769 JGZ 27-AUG-80 MEXEC
; Fix logout code to do proper compare for expunging connected directory.
;
;1770 ARS 27-AUG-80 MEXEC
; Fix code at JOBCOF and SAVEB to setup properly for SEC 1 Transition.
;
;1771 JGZ 28-AUG-80 PAGEM
; Correct OFN AOBJN counter in ASOF6A to prevent possible assignment
; of an OFN greater than NOFN.
;
;1772 JGZ 28-AUG-80 DSKALC,GTJFN,JSYSF,MEXEC,MFLIN,MSTR,PHYSIO,TAPE
; Put edits 1732, 1736, 1737, 1745, 1747, 1748, 1749, 1753, 1756,
; 1764, 1765 into standard edit form. No code changes.
;
;1773 JGZ 29-AUG-80 JSYSF
; Correct SFTAD JSYS to allow times to be set for archival things,
; and correct error code DATEX6 to DATEX5 on miscompare.
;
;1774 JGZ 2-SEP-80 JSYSA
; Correct two references to ACTPG which are MOVEs and should be MOVEIs.
; Use of contents instead of address could result in system crashes.
;
;1775 JGZ 2-SEP-80 MEXEC
; Remove unneeded instruction at JOBCF1+2.
;
;1776 JGZ 2-SEP-80 FORK
; Make the PMAP in KSELF have PM%ABT set to avoid writing to files
; with OF%DUD set.
;
;1777 JGZ 3-SEP-80 GTJFN
; Make DEFINP equal to MAXINP in GTJFN to prevent GJFX51 - byte count
; too small errors.
;
;1778 JGZ 3-SEP-80 FILNSP
; Use better error code COMX19 instead of DCNX1 at appropriate
; place in PRSNAM.
;
;1779 JGZ 4-SEP-80 JSYSA
; Fix wild addressing problem in RPACS that caused ILMNRF,...
; 20-14330.
;
;1780 JGZ 4-SEP-80 DTESRV
; Prevent potential J0NRUN from fork zero blocking in ASGNOD
; when RSX20F is sick. 20-14651. (KL-only)
;
;1781 JGZ 8-SEP-80 APRSRV,GLOBS,SCHED,PROLOG
; Install and use double-word counters for high-precision scheduler
; idle-time variables. 20-12115. NOTE: GLOBS change forces new PROLOG.
;
;1782 TAM 9-SEP-80 MSTR
; Send correct structure status bits to MOUNTR. 20-14534.
;
;1783 JGZ 15-SEP-80 FORK
; Fix SCTTY JSYS resumption of directly frozen forks. 20-14788.
;
;1784 TJG 19-SEP-80 JSYSF
; Fix problem with edit 17xx for CRDIR jsys.
;
;1785 JGZ 23-SEP-80 TAPE
; Install new error code GJFX53 instead of 21 for bad tape filenames.
; Requires edit to MONSYM. 20-14417.
;
;1786 JGZ 23-SEP-80 TAPE
; One more place needs GJFX53.
;
;1787 JGZ 24-SEP-80 JSYSA
; Fix .USRAS USAGE JSYS function to return values.
; 20-14839.
;
;1788 JGZ 24-SEP-80 MEXEC
; Fix connect time accounting checkpoint calculation.
; 20-14838.
;
;1789 RAS 24-SEP-80 TAPE
; Do not enforce DEC standard for Form Control Byte in
; HDR2 Label for EBCDIC tapes.
;
;1790 JGZ 29-SEP-80 BUGS,GLOBS,IO
; Put code unused since before Release 2 into REPEAT 0,
; remove unused BUGCHK DMPRLF, and symbols DUMPC, DMPDON
; from GLOBS. Note - builds new PROLOG.UNV.
;
;1791 JGZ 30-SEP-80 SCHED
; Remove redundant (and smaller) definition of NSCDRQ from SCHED,
; and remove definition of SCTLW. Both are already defined in STG.
;
;1792 JGZ 1-OCT-80 GTJFN
; Fix ILPPT3 BUGHLTs caused by JFNRD set in F for short form GTJFN.
; Remove some unused code at DELALL. 20-14572.
;
;1793 PED 2-oct-80 GTJFN, DEVICE
; remove check for parse-only bit in devluk in device.mac
; and check for logical name loop at setdv1 before checking
; parse-only bit.
;
;1794 RAS 3-OCT-80 COMND
; Fix COMND so that keywords will parse when a .CMTXT function
; is an alternate function field. This is accomplished by not
; perfoming a pass 1 field read for the .CMTXT function since
; .CMTXT will always parse.
;
;1795 JGZ 3-0CT-80 IMAN22
; Make IMPRSS call UBGOOD to see if the AN22 is there, to prevent
; IONXM BUGHLTs from trying to reload the microcode in the AN22.
; 2020 ARPA systems only, AP module is IMPPHY. 20-14913.
;
;1796 JGZ 7-OCT-80 FILMSC
; Remove possibility of process blocking with DEVLCK locked in
; TTY close code.
;
;1797 JGZ 7-OCT-80 MSTR
; Unlock the structure lock, etc. if MSTR GETOK fails.
;
;1798 TJG 8-OCT-80 COMND
; Fix comment code to prevent MONPDL's when using a "!" as a
; delimiter. Caused by PCO 20-MONITO-147
;
;1799 TJG 8-OCT-80 MEXEC
; Prevent ILMNRF's caused by mapping a non-existant file page
; and then doing a SAVE% JSYS
;
;1800 TJG 8-OCT-80 VERSIO
; ACCIDENTAL EDIT HISTORY ENTRY, 1798, CAN BE IGNORED. PROBLEM
; FIXED IN 4 (3A PATCH)
;
;1801 TAM 15-OCT-80 MONSYM
; ADD .LSxxx SYMBOLS FOR VOLUME LABEL STATE. PART OF A FIX TO
; MOUNTR ACCOUNTING
;
;1802 TAM 17-OCT-80 TAPE
; PRESERVE RECORD SIZE AND RELATED FIELDS WHEN DOING A VOLUME
; SWITCH.
;
;1803 PED 27-OCT-80 GTJFN
; Fix incorrect Edit 1793. No change to DEVICE. Change GTJFN to
; check for Parse-only before restarting parse if logical name
; was stepped.
; SPR 20-14665
;
;1804 RAS 30-OCT-80 MEXEC,BUGS
; Fix 'Unknown Data in File, Continuing...' messages which appear
; as CHKPNT output. USGIN7 would trash words in the checkpoint
; buffer. If NJOBS was a multiple of 100, it would trash the
; flag word which specified whether the item was in use or not,
; thus making USGIN7 believe that an entry was active (when it
; really wasn't) and causing the entry to be written to
; SYSTEM-DATA.BIN as erroneous data.
; SPR 20-15032,20-14690,20-14692,20-14760,20-14848,20-14836
; and 20-14466.
;
;1805 PED 6-NOV-80 DISC
; Fix problem that occurs when an invisible file is superceded
; by a higher generation of the same name and extension. File
; is unrecoverable as it is both deleted and invisible. Don't
; allow superceding file to delete if old file is invisible.
; SPR 20-14209
;
;1806 PED 12-NOV-80 GTJFN,DISC
; Put edits 1803 and 1805 in standard form. No code changes
;
;1807 PED 12-NOV-80 APRSRV
; Remove the SAVET at GENBLK which is causing PDL overflows
;
;END OF MAINTENANCE REVISION HISTORY
VEDIT==^D1807
VMAJOR==4
VMINOR==0
IFNDEF VWHO,<VWHO==0>
SCVN==<VWHO>B2+<VMAJOR>B11+<VMINOR>B17+VEDIT
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT (C) 1976,1977,1978,1979,1980 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
;THE FOLLOWING MACRO GENERATES THE STRING:
;
;DEFINE SETVER(FOO)
;<FOO(WX(Y)-Z)
;>
;
;THE W,X,Y,Z ARE CALCULATED BY THE MACRO LIKE THIS:
;W - THE NUMBERICAL VALUE OF VMAJOR
;
;X - THE LETTER CORRESPONDING TO THE VALUE OF VMINOR. @=0, A=1...
;
;Y - THE NUMERICAL VALUE OF VEDIT
;
;Z - THE NUMERICAL VALUE OF VWHO
DEFINE .CLNAM<
DEFINE .CLNM(LETTER,WHO)<
IRPC LETTER,<
IFE "A"-"'LETTER'"+VMINOR-1,<
STOPI
IFIDN <LETTER><@>,<
IFE VWHO,< .NAME(\VMAJOR,,\VEDIT,)>
IFN VWHO,< .NAME(\VMAJOR,,\VEDIT,-WHO)>>
IFDIF <LETTER><@>,<
IFE VWHO,< .NAME(\VMAJOR,LETTER,\VEDIT,)>
IFN VWHO,< .NAME(\VMAJOR,LETTER,\VEDIT,-WHO)>>>>>
IFGE VMINOR-^D26,< VMINOR==0
PRINTX %MINOR VERSION TOO LARGE - IGNORED>
IFGE VWHO-7,< VMINOR==
PRINTX %VWHO IS TOO LARGE - IGNORED>
.CLNM(@ABCDEFGHIJKLMNOPQRSTUVWXYZ,\VWHO)
>
;NOW DEFINE A .NAME MACRO TO MAKE A MACRO
DEFINE .NAME(V,M,E,W)<
DEFINE SETVER(FOO)
<FOO(<V'M'('E')'W>)
>>
;USE IT!
.CLNAM
;MACRO TO BUILD VERSION TEXT FROM PARAMETERS IN VERSIO.MAC
IFNDEF SETV1,<
DEFINE SETV1 (VTXT)<
DEFINE SYSTXT (FOO)<
FOO <TOPS-20 System, TOPS-20 Monitor VTXT>>>>
.PSECT NRCOD ;INCLUDE WITH SWAPPABLE CODE
;SYSTEM VERSION TEXT AND DATE OF LOAD
SETVER (SETV1) ;GET SYSTXT DEFINED
DEFINE SETV2 (VTXT) <
DEFINE SYSTXT (FOO)<
FOO <, TOPS-20 Monitor VTXT>>> ;MACRO TO AID IN GENERATION OF VERSION #
; PORTION OF MONITOR NAME ONLY
DEFINE FOO (A)<
ASCIZ @A@>
TSVN:: SYSTXT (FOO)
0 ;ROOM FOR PATCHES
TSVNT==:.-TSVN
SVNM=:SCVN ;DEFINE COMPOSIT VERSION NUMBER
SETVER (SETV2) ;REDEFINE SYSTXT
VTSVN:: SYSTXT (FOO) ;GENERATE STRING OF JUST THE VERSION
VTSVNT==:.-VTSVN ;NO. OF WORDS IN STRING
DEFINE BSETSPD (R)<
IFE VMINOR,<
ASCIZ/SYSTEM:'R'-SETSPD.EXE/>
IFG VMINOR,<
DEFINE BSP (R1,LETT)<
IRPC LETT,<
IFE VMINOR+"A"-1-"'LETT'",<
ASCIZ /SYSTEM:'R1'LETT'-SETSPD.EXE/
STOPI>
>
>
BSP(\VMAJOR,"ABCDEFGHIJKLMNOPQRSTUVWXYZ")>
>
SETSPD::BSETSPD (\VMAJOR)
.ENDPS NRCOD
LOC 137 ;PUT IN STANDARD PLACE
SCVN
END