Google
 

Trailing-Edge - PDP-10 Archives - BB-L014A-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