Trailing-Edge
-
PDP-10 Archives
-
BB-L014C-BM
-
autopatch/versio.mac
There are 88 other files named versio.mac in the archive. Click here to see a list.
; UPD ID= 692, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.153, 6-Aug-81 12:55:07 by SCHMITT
; UPD ID= 689, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.152, 4-Aug-81 15:18:05 by DONAHUE
; UPD ID= 686, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.151, 4-Aug-81 11:18:09 by ZIMA
; UPD ID= 683, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.150, 3-Aug-81 09:42:31 by ZIMA
;Some more formfeeds.
; UPD ID= 682, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.149, 31-Jul-81 12:16:49 by ZIMA
; UPD ID= 679, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.148, 27-Jul-81 16:10:50 by SCHMITT
; UPD ID= 677, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.147, 27-Jul-81 10:18:35 by DONAHUE
; UPD ID= 676, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.146, 24-Jul-81 14:10:27 by SCHMITT
; UPD ID= 1, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.145, 22-Jul-81 14:46:03 by MOSER
; UPD ID= 2, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.144, 22-Jul-81 14:05:10 by GROUT
;Reserve for freeze at 1912
; UPD ID= 671, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.142, 21-Jul-81 10:07:39 by GROUT
; UPD ID= 667, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.139, 20-Jul-81 14:21:42 by GROUT
; UPD ID= 664, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.138, 20-Jul-81 10:30:02 by MOSER
; UPD ID= 662, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.137, 16-Jul-81 16:14:08 by SCHMITT
; UPD ID= 658, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.136, 16-Jul-81 15:11:56 by GROUT
; UPD ID= 655, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.135, 15-Jul-81 15:23:47 by DONAHUE
; UPD ID= 650, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.134, 9-Jul-81 11:50:44 by MOSER
; UPD ID= 648, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.133, 9-Jul-81 09:38:44 by SCHMITT
; UPD ID= 643, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.132, 7-Jul-81 12:49:06 by SCHMITT
; UPD ID= 641, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.131, 6-Jul-81 17:40:22 by SCHMITT
; UPD ID= 638, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.130, 1-Jul-81 14:49:13 by SCHMITT
;Reserve for freeze at 1902
; UPD ID= 634, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.128, 29-Jun-81 13:25:24 by SCHMITT
; UPD ID= 629, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.127, 25-Jun-81 11:22:40 by DONAHUE
; UPD ID= 626, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.126, 25-Jun-81 09:56:55 by MOSER
; UPD ID= 623, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.125, 25-Jun-81 09:25:01 by GROUT
; UPD ID= 621, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.124, 23-Jun-81 14:02:47 by ZIMA
; UPD ID= 619, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.123, 23-Jun-81 13:44:53 by ZIMA
; UPD ID= 615, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.122, 23-Jun-81 10:58:55 by SCHMITT
; UPD ID= 611, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.121, 22-Jun-81 13:32:59 by MOSER
; UPD ID= 609, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.120, 19-Jun-81 14:59:03 by MOSER
; UPD ID= 605, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.119, 17-Jun-81 16:06:45 by ZIMA
; UPD ID= 603, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.118, 16-Jun-81 10:29:52 by SCHMITT
; UPD ID= 599, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.117, 12-Jun-81 11:46:46 by MOSER
; UPD ID= 595, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.116, 11-Jun-81 09:54:10 by ZIMA
; UPD ID= 592, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.115, 10-Jun-81 09:39:42 by SCHMITT
; UPD ID= 589, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.114, 9-Jun-81 09:10:07 by DONAHUE
; UPD ID= 587, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.113, 8-Jun-81 14:17:55 by SCHMITT
; UPD ID= 581, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.112, 6-Jun-81 16:06:19 by ZIMA
; UPD ID= 579, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.111, 5-Jun-81 11:01:39 by SCHMITT
; UPD ID= 578, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.110, 5-Jun-81 10:59:37 by SCHMITT
; UPD ID= 577, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.109, 5-Jun-81 10:54:58 by SCHMITT
; UPD ID= 576, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.108, 5-Jun-81 10:52:20 by SCHMITT
; UPD ID= 575, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.107, 5-Jun-81 10:50:27 by SCHMITT
; UPD ID= 574, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.106, 5-Jun-81 10:46:14 by MOSER
;Reserve for freeze at 1880
; UPD ID= 559, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.105, 28-May-81 11:41:13 by SCHMITT
; UPD ID= 544, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.104, 21-May-81 16:56:37 by SCHMITT
; UPD ID= 541, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.103, 20-May-81 12:42:52 by SCHMITT
; UPD ID= 537, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.102, 18-May-81 14:41:56 by ZIMA
; UPD ID= 535, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.101, 14-May-81 13:28:29 by DONAHUE
; UPD ID= 533, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.100, 13-May-81 14:37:47 by SCHMITT
; UPD ID= 531, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.99, 13-May-81 11:44:39 by SCHMITT
; UPD ID= 527, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.98, 12-May-81 17:37:14 by SCHMITT
; UPD ID= 524, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.97, 8-May-81 17:07:07 by SCHMITT
; UPD ID= 522, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.96, 8-May-81 14:17:02 by SCHMITT
; UPD ID= 520, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.95, 8-May-81 09:57:24 by DONAHUE
; UPD ID= 516, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.94, 6-May-81 14:07:06 by SCHMITT
; UPD ID= 512, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.93, 5-May-81 17:14:27 by SCHMITT
; UPD ID= 504, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.92, 4-May-81 17:00:55 by SCHMITT
; UPD ID= 494, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.91, 4-May-81 12:37:54 by SCHMITT
; UPD ID= 493, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.90, 4-May-81 12:20:13 by MOSER
; UPD ID= 491, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.89, 4-May-81 10:08:05 by SCHMITT
; UPD ID= 489, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.88, 29-Apr-81 14:32:16 by ZIMA
; UPD ID= 487, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.87, 29-Apr-81 14:17:33 by ZIMA
; UPD ID= 485, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.86, 28-Apr-81 13:19:23 by ZIMA
; UPD ID= 483, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.85, 27-Apr-81 17:15:39 by ZIMA
; UPD ID= 482, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.84, 27-Apr-81 16:53:37 by SCHMITT
; UPD ID= 475, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.83, 23-Apr-81 16:03:31 by SCHMITT
; UPD ID= 473, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.82, 23-Apr-81 13:36:00 by ZIMA
; UPD ID= 470, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.81, 23-Apr-81 11:27:28 by ZIMA
; UPD ID= 468, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.80, 23-Apr-81 11:09:26 by MOSER
;Reserve for freeze after edit 1851
; UPD ID= 459, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.79, 16-Apr-81 16:39:11 by MOSER
; UPD ID= 456, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.78, 16-Apr-81 12:04:26 by SCHMITT
; UPD ID= 454, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.77, 15-Apr-81 17:11:49 by DEUFEL
; UPD ID= 452, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.76, 15-Apr-81 14:08:26 by ZIMA
; UPD ID= 446, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.75, 15-Apr-81 08:58:23 by SCHMITT
; UPD ID= 442, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.74, 13-Apr-81 16:43:39 by SCHMITT
; UPD ID= 439, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.73, 13-Apr-81 16:04:46 by ZIMA
; UPD ID= 438, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.72, 13-Apr-81 14:45:38 by ZIMA
; UPD ID= 436, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.71, 8-Apr-81 16:12:03 by ZIMA
; UPD ID= 434, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.70, 7-Apr-81 17:31:31 by ZIMA
; UPD ID= 430, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.69, 6-Apr-81 16:07:46 by ZIMA
; UPD ID= 429, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.68, 6-Apr-81 16:05:30 by ZIMA
; UPD ID= 427, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.67, 5-Apr-81 18:07:05 by ZIMA
; UPD ID= 426, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.66, 1-Apr-81 16:02:31 by ZIMA
; UPD ID= 424, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.65, 1-Apr-81 15:10:18 by ZIMA
; UPD ID= 421, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.64, 27-Mar-81 13:33:40 by ZIMA
; UPD ID= 420, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.63, 26-Mar-81 10:59:46 by TILLSON
; UPD ID= 412, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.62, 9-Mar-81 14:01:51 by DONAHUE
; UPD ID= 411, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.61, 4-Mar-81 12:01:51 by ZIMA
; UPD ID= 409, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.60, 4-Mar-81 11:17:17 by ZIMA
; UPD ID= 407, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.59, 2-Mar-81 11:59:36 by ZIMA
; UPD ID= 403, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.58, 17-Feb-81 14:16:13 by DONAHUE
; UPD ID= 399, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.57, 15-Feb-81 17:35:04 by ZIMA
; UPD ID= 397, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.56, 13-Feb-81 09:11:18 by DONAHUE
; UPD ID= 396, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.55, 12-Feb-81 16:29:26 by DONAHUE
;Reserve for freeze at edit 1830
; UPD ID= 388, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.54, 7-Feb-81 20:27:14 by ZIMA
;CLEANUP
; UPD ID= 386, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.53, 3-Feb-81 16:09:19 by DEUFEL
;Fixed SPR 20-15629
; UPD ID= 383, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.52, 2-Feb-81 10:51:41 by ZIMA
; UPD ID= 379, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.51, 25-Jan-81 01:31:17 by ZIMA
;ADD SPR NUMBER TO 1810
; UPD ID= 374, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.50, 21-Jan-81 10:51:52 by SCHMITT
; UPD ID= 372, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.49, 20-Jan-81 09:27:24 by DONAHUE
; UPD ID= 369, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.48, 19-Jan-81 16:04:42 by DONAHUE
; UPD ID= 368, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.47, 15-Jan-81 22:07:22 by ZIMA
;Update copyright date for 1981.
; UPD ID= 357, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.46, 6-Jan-81 12:32:44 by SCHMITT
; UPD ID= 356, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.45, 4-Jan-81 19:34:59 by ZIMA
;Fixup comment for 1824.
; UPD ID= 354, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.44, 2-Jan-81 18:48:20 by ZIMA
; UPD ID= 345, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.43, 29-Dec-80 16:46:30 by SCHMITT
; UPD ID= 343, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.42, 22-Dec-80 10:03:36 by DONAHUE
;Reserve for freeze at edit 1822
; UPD ID= 339, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.41, 16-Dec-80 05:23:45 by DEUFEL
; UPD ID= 337, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.40, 16-Dec-80 01:06:26 by DEUFEL
; UPD ID= 332, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.39, 15-Dec-80 16:18:29 by DEUFEL
; UPD ID= 330, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.38, 15-Dec-80 12:50:14 by DONAHUE
; UPD ID= 325, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.37, 14-Dec-80 00:00:14 by ZIMA
; UPD ID= 323, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.36, 12-Dec-80 18:57:33 by ZIMA
; UPD ID= 321, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.35, 12-Dec-80 02:40:17 by ZIMA
; UPD ID= 319, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.34, 11-Dec-80 14:51:45 by DONAHUE
; UPD ID= 317, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.33, 10-Dec-80 11:13:44 by ZIMA
;SPR number to 1814
; UPD ID= 316, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.32, 10-Dec-80 11:12:01 by ZIMA
; UPD ID= 314, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.31, 8-Dec-80 10:04:03 by SCHMITT
; UPD ID= 312, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.30, 6-Dec-80 17:55:12 by ZIMA
; UPD ID= 310, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.29, 5-Dec-80 13:52:14 by ZIMA
; UPD ID= 300, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.28, 24-Nov-80 11:58:36 by DONAHUE
; UPD ID= 298, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.27, 23-Nov-80 21:52:52 by ZIMA
; UPD ID= 296, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.26, 22-Nov-80 20:47:35 by ZIMA
; UPD ID= 290, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.25, 21-Nov-80 10:10:36 by DONAHUE
; UPD ID= 288, FARK:<4-WORKING-SOURCES.MONITOR>VERSIO.MAC.24, 20-Nov-80 09:38:13 by ZIMA
;Reserve for freeze at 1807
; 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
;
;1808 PED 21-NOV-80 JSYSF
; Make ARACCK check for Execute access.
; 20-14813
;
;1809 JGZ 22-NOV-80 IMPANX
; KL-ARPA only patch (IMPPHY) to prevent crashes caused by the
; message-too-long code trashing an instruction in IMIN3. 20-14648.
;
;1810 JGZ 23-NOV-80 JSYSF
; Make CRDIR JSYS work properly with -1,,ADR pointer to password
; again. 20-15000.
;
;1811 PED 24-NOV-80 DISC
; REMOVE EDIT 1805. CHANGE EXEC TO ALLOW UNDELETES TO INVISIBLE,
; DELETED FILES.
;
;1812 JGZ 5-DEC-80 JSYSA
; FIX ERSTR TO RECOGNIZE ERJMP/ERCAL BETTER ON ERRORS. 20-13624.
;
;1813 RAS 8-DEC-80 TTYSRV
; Fix edit 1738. It used an incorrect AC and did not make
; all references to TYLMD consistent.
;
;1814 JGZ 10-DEC-80 GTJFN
; Fix "lost JFNs" problem by trapping error not going through RELJFX.
; 20-14450.
;
;1815 PED 11-DEC-80 GTJFN
; Finish edit 1803 which superceded edit 1793. Remove rest of 1793 code.
;
;1816 JGZ 12-DEC-80 DATIME
; Include comma properly with OT%DAM and OT%SPA combination to ODTIM,
; and terminate null length memory string properly. 20-14335.
;
;1817 JGZ 12-DEC-80 JSYSF
; Fix SACTF JSYS to not damage the JFN it uses. 20-13119.
;
;1818 JGZ 13-DEC-80 FILINI,GLOBS,IO,STG
; Free up 10 pages of address space by removing historical DMPBUF code.
;
;1819 PED 15-DEC-80 COMND
; Fix COMND so that it beeps if a '?' is typed when echoing has
; been turned off for the current field. 20-15169
;
;1820 DAD 15-DEC-80 STG,GLOBS,TTYSRV,TTDZDV
; Fix KS10 modem control code, made autobaud work properly.
; Fix KS10 KLINIK security bug. 20-15223, 20-14312
;
;1821 DAD 16-DEC-80 PROKS
; Define KLCAR so 1820 will assemble.
;
;1822 DAD 16-DEC-80 PROKS,TTDZDV
; Do KLINIK modem handling correctly once and for all!
;
;1823 RAS 29-DEC-80 JSYSA,MEXEC,GLOBS
; Change the way .CACCT performs a session end for the usage file.
; 20-14298
;
;1824 JGZ 2-JAN-81 LINEPR
; Fix lost LPT data on on/off-line transitions. 20-14630
;
;1825 RAS 6-JAN-81 JSYSA
; Fix RMAP which would generate FLKTIM BUGCHKs after failing
; with a non-existent section. This entails changing the call
; to FRKMAP to FKHPTN and adding an ITERR return which will
; unlock the fork structure and return.
;
;1826 PED 19-JAN-81 FILINI,DSKALC
; Make structure creation set the 'exempt from migration' bit
; in DSKBTB, IDX-TBL, BKUP-R-D, BOOTSTRAP, FE-FILE-SYS.
; 20-15059
;
;1827 PED 20-JAN-81 POSTLD
; Fix bug in BUGSR2 caused when it was moved after BUGSR3.
; 20-15486
;
;1828 RAS 21-JAN-81 MSTR
; Make routine MSTJOB check for valid job jumber in argument block
; and return ARGX07 'Invalid Job Number' if the job number is bad.
;
;1829 JGZ 2-FEB-81 PHYSIO
; Put High-density entry into MODTAB.
;
;1830 DAD 3-FEB-81 DTESRV
; Fix RESBAZ/RESBAD BUGCHKs on KL10's when using DECnet-20. These would
; usually be followed by a ILMNRF BUGHLT.
; 20-15629
;
;1831 PED 13-FEB-81 JSYSA
; Allow fork to clear address break for self
; 20-15652
;
;1832 JGZ 15-FEB-81 LINEPR,LPFEDV,LPKSDV
; Move edit 1824 into a device dependent routine to avoid upsetting
; any device allocation the -11 might set.
;
;1833 PED 17-FEB-81 COMND
; Allow ":" within keywords.
; 20-15669
;
;1834 JGZ 2-MAR-81 PAGEM
; Fix incorrect data written on an abort PMAP/RESET. No SPR.
;
;1835 JGZ 4-MAR-81 DISC
; Fix ILMNRF BUGHLTs caused by bad SFTAD AC reference. Fix also
; bugs in setting offline expiration value. 20-15773
;
;1836 PED 9-MAR-81 IO
; Prevent ILMNRF caused by nonshareable save files.
; 20-15759
;
;1837 JGZ 27-MAR-81 LINEPR
; Correct handling of MO%LCP by LPINI and .MOSTS MTOPR function.
; No SPR.
;
;1838 BAH 1-APR-81 MACSYM
; This is a tracking edit for a change to MACSYM.MAC to correct the
; PGVER. macro. 20-15376
;
;1839 JGZ 1-APR-81 IPCF
; Correct PID freelist initialization for MAXPID odd. 20-15937
;
;1840 JGZ 5-APR-81 TTYSRV
; Handle terminal linking case where all links are already in use.
; 20-15758
;
;1841 JGZ 6-APR-81 MEXEC
; Do correct privilege checking for batch jobs in ATACH and DTACH.
; 20-15931
;
;1842 JGZ 7-APR-81 DIRECT
; Fix failing GTJFN case of GJ%FOU and exact generation given for
; invisible file. 20-15280
;
;1843 JGZ 8-APR-81 JSYSF
; Fix CRDIR to always preserve the characteristics (including the
; existence) of MAIL.TXT.1. 20-15604
;
;1844 JGZ 13-APR-81 JSYSA,JSYSF,TTYSRV
; Fix CFIBF, CFOBF, SFCOC, SFMOD, SFPOS, SIBE, SOBE, and STPAR
; for proper handling of noop conditions and setting of LSTERR.
; 20-15579
;
;1845 RAS 13-APR-81 MAGTAP
; Fix occurances of MTANOQ BUGCHKs when PCO 20-MONITO-178 (edit
; 1720) is installed.
;
;1846 RAS 13-APR-81 TAPE
; Fix occurances of TPBLKB BUGCHKs
;
;1847 RAS 15-APR-81 TAPE
; Include an EXTERN statement for MTAKIL (used in above edit)
;
;1848 JGZ 15-APR-81 SCHED
; Fix NBSWP not decremented properly, resulting in high swap wait
; times instead of idle time. 20-14789
;
;1849 DAD 15-APR-81 NSPSRV
; Fix PRUNE1+3 to use the proper index register. 20-15440
;
;1850 RAS 16-APR-81 GLOBS,MAGTAP
; More of edit 1846. Include MTAKIL in GLOBS
;
;1851 TAM 16-APR-81 MSTR
; Correctly send structure status to device allocator.
; Needs MOUNTR edit 116 to version 4.
;
;1852 JGZ 23-APR-81 FORK
; Correct fork locking code to make nesting case account for self so
; a gratuitous DISMS is not done. No SPR.
;
;1853 JGZ 23-APR-81 TAPE
; Fix incorrect case conversion of EBCDIC labeled tapes. 20-15793
;
;1854 RAS 23-APR-81 IPCF
; Correct argument checking for .MUFPQ function of MUTIL JSYS
;
;1855 RAS 23-APR-81 PHYX2,PHYM2
; Reset overdue timer before starting I/O on retry.
;
;1856 RAS 23-APR-81 FORK
; Make process non-virgin if loading ACs with CFORK JSYS.
;
;1857 RAS 27-APR-81 IO
; Attempt to get a byte from the users source pointer for
; the SOUT JSYS before the process goes NOINT because if
; the pointer is an infinite indirect, the job will hang
; forever.
;
;1858 JGZ 27-APR-81 TAPE
; Correct the MTOPR dispatch table for labeled tapes. No SPR.
;
;1859 JGZ 28-APR-81 PHYSIO
; Set US.BOT in the rewind done routine. No SPR.
;
;1860 JGZ 29-APR-81 PHYP4
; Implement Disk Engineering recommendation on number of retries
; on RP04/RP06/RP07/RM03 type disks before applying ECC. 20-16039
;
;1861 JGZ 29-APR-81 JSYSF
; Recode GTSTS JSYS to fix inconsistent returning of bits due to file
; access conflicts/race. 20-16067
;
;1862 RAS 4-MAY-81 DIRECT
; Construct byte pointer differently at DIRUNQ because the
; old way would end up with a negative offset instead of a
; positive 400000 offset.
;
;1863 TAM 4-MAY-81 COMND
; Always look at CM%SDH even if no keywords can possibly match
; what was typed. 20-15350
;
;1864 RAS 4-MAY-81 TAPE
; Do an extra backspace record then one forward space record
; when repositioning tape for rewritting HDR1 label. This
; is at REPOS1: 20-16108
;
;1865 RAS 4-MAY-81 MEXEC
; When system is shutdown, latch HSYST1 to -1.
;
;1866 RAS 5-MAY-81 JSYSA
; Check for unmounted structure at .DELDF and if not
; mounted, return an error.
;
;1867 RAS 6-MAY-81 DSKALC
; Perform physical to logical sector address translation
; correctly and calculate swapping sector address by
; interleaving logical sector over all packs in structure.
;
;1868 PED 8-MAY-81 FORK
; Prevent GLFNF Bughalts by checking fork number before
; freezing fork at FFORK1.
; SPR 20-15772
;
;1869 PED 8-MAY-81 FORK
; Prevent FLKTIM's and FLKNS's by ignoring the nestable test
; on fork locks.
; SPR 20-15772
;
;1870 RAS 8-MAY-81 MEXEC
; Edit 1865 needs one more line to keep system from hanging
; on system shutdown.
;
;1871 RAS 8-MAY-81 TAPE
; Fix edit 1846. Need to perform a MCALL to MTFLSH
;
;1872 RAS 12-MAY-81 JSYSA
; Lock accounting data base before reference into HSHPG
; at VERAC0 SPR# 14470
;
;1873 RAS 13-MAY-81 TAPE
; If labeled tape opened in dump mode, trust bytes transferred
; from MAGTAP.
;
;1874 RAS 13-MAY-81 DSKALC
; More of 1867. Restore DSKSIZ index at DSECT1
;
;1875 PED 13-MAY-81 MAGTAP
; Make sure buffer pages are set as modified after being
; locked. (Per Bill Fulton)
;
;1876 JGZ 18-MAY-81 MAGTAP
; Set ERRF on EOT for dump mode output on labeled tape so that volume
; switch will occur. 20-15963
;
;1877 RAS 20-MAY-81 SCHED
; Make the .SKBBG function of the SKED% JSYS change the
; priority of currently active batch jobs.
;
;1878 RAS 20-MAY-81 JSYSF
; If CHKOFN fails at DELDI6: +20 then jump to DELDI3 to
; release the JFN and then return error
;
;1879 RAS 21-MAY-81 IPCF
; Go NOINT and lock the IPCF data base before resetting
; senders count at PIDJBI. Otherwise there is a race which can
; cause IPCSOD BUGCHKs.
;
;1880 RAS 28-MAY-81 GTJFN
; Ignore deleted files always if the bit GJ%DEL was not set
; in the GTJFN call
;
;1881 RAS 5-JUN-81 COMND
; Make comma function handle field terminated by escape
; correctly.
;
;1882 RAS 5-JUN-81 COMND
; Make command give better error messages than '?Ambiguous
; when null keyword given
;
;1883 RAS 5-JUN-81 COMND
; Make COMMD give correct error message when a switch is
; not preceeded by a '/'
;
;1884 RAS 5-JUN-81 COMND
; Make COMND reset pass1 flag if bare <CRLF> is typed on a
; line and COMND reissues the prompt.
;
;1885 RAS 5-JUN-81 COMND
; Make COMND generate an error if a break character is
; contained in the default string and the default string is
; being used.
;
;1886 JGZ 6-JUN-81 PAGEM
; Correct J0NRUN BUGHLTs, hung jobs when working set preloading
; is in use. No SPR.
;
;1887 RAS 8-JUN-81 TAPE
; Correctly calculate if a new block has been read in.
; No SPR.
;
;1888 PED 9-JUNE-81 COMND
; Check if parsing a noise word when a carriage return is typed.
; SPR:20-16113
;
;1889 RAS 10-JUN-81 TAPE
; Preserve data mode upon rewind
; SPR 20-16305
;
;1890 JGZ 11-JUN-81 MEXEC
; Prevent ILMNRF crashes from trying to save nonexistent fork pages.
; (See also edit 1799.) 20-14937
;
;1891 TAM 12-JUN-81 MSTR
; Allow any fork of a job to access a structure mounted with MS%XCL.
; 20-15188
;
;1892 RAS 16-JUN-81 COMND
; Don't check validity of default string.
; Perhapse temporary until something better comes along
;
;1893 JGZ 17-JUN-81 PHYM2
; Fix up tape error retry count for retry succeeded case. 20-15801
;
;1894 TAM 19-JUN-81 MAGTAP
; Fix DUMPI/DUMPO race which could cause ILPAG1. 20-16325
;
;1895 TAM 22-JUN-81 MAGTAP
; Rewrite edit 1894 to cover all cases. 20-16325
;
;1896 RAS 23-JUN-81 GTJFN
; Change edit 1880. Make this code look like it did under
; version 3A.
;
;1897 JGZ 23-JUN-81 MFLOUT
; Correct FLOUT and DFOUT to return error code properly in LSTERR.
; 20-16387
;
;1898 JGZ 23-JUN-81 MFLOUT
; Wrong AC in last edit.
;
;1899 JRG 24-JUN-81 JSYSF
; Make CRDIR check quotas only when changing quotas
; 20-16136
;
;1900 TAM 25-JUN-81 MAGTAP,PAGEM,SCHED
; Rewrite 1894 again so as not to impact performance. 20-16325
;
;1901 PED 25-JUN-81 PAGEM
; Correct edit 1834 to prevent ILLUUO's caused by NOSKED/OKSKED
; in Sched code.
; 20-16417
;
;1902 RAS 29-JUN-81 COMND
; Correct edit 1883. Typo at CMRTIE
;
;1903 RAS 1-JUL-81 GTJFN
; Generate GJFX31 if .GJALL specified in GTJFN call but
; GJ%IFG was not.
; 20-16353
;
;1904 RAS 6-JUL-81 COMND
; This time, fix edit 1882. NOPARS generates a two
; word macro, this is no good to have in skip instructions.
;
;1905 RAS 7-JUL-81 SCHED
; Get the job number before comparing it against the highest
; job number in use so that a correct compare is made at
; HLTJOB
; 20-16431
;
;1906 RAS 9-JUL-81 SCHED
; Do not perform JSYS trapping on an execute only process.
; 20-16397
;
;1907 TAM 9-JUL-81 JSYSA
; Do not overwrite word following user/directory group list with GTDIR.
; 20-16114
;
;1908 PED 15-JUL-81 JSYSF
; Make JFNS% return an updated byte pointer in all cases.
; 20-16260
;
;1909 JRG 16-JUL-81 DIRECT,JSYSF
; Make .RCUSR/.RCDIR do wild strings properly, and have MDDDIR not
; check read directory access when called by .RCUSR
; 20-16244
;
;1910 RAS 16-JUL-81 SCHED
; Make CHGCLS check for logged in job to avoid race which
; would cause CHGCLS to change the class of a logged out
; job. This would overdecrement CLSCNT which would trash
; load averages.
;
;1911 TAM 20-JUL-81 COMND
; Correctly calculate the length of a displayed character.
; 20-14863
;
;1912 TAM 20-JUL-81 SCHED
; Save T registers in edit 1900. NONE.
;
;1913 TAM 22-JUL-81 PHYP4
; Set US.PSI for initialization of disk so MOUNTR knows.
; 20-16023
;
;1914 RAS 24-JUL-81 GTJFN
; Set parse only JFN flag early in GTJFN process so no
; FDB created on call
; 20-16477
;
;1915 PED 24-JUL-81 COMND
; Prevent Ctrl/R from sending clear code twice
; 20-16488
;
;1916 RAS 27-JUL-81 GTJFN
; Fix 1903
;
;1917 JGZ 4-AUG-81 DISC
; Fix incorrect DELF error code in DSKDEL to be ARGX26.
; 20-16532
;
;1918 PED 4-AUG-81 COMND
; Check for quoted recognition characters.
; 20-16115
;
;1919 RAS 6-AUG-81 IO
; Increment byte pointer before performing load of byte
; in edit 1857
;
;END OF MAINTENANCE REVISION HISTORY
VEDIT==^D1919
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,1981,1982 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