Google
 
Trailing-Edge - PDP-10 Archives - isi-saio_19830204 - isi-sa10/versio.mac
There are 88 other files named versio.mac in the archive. Click here to see a list.
;<5.ISI.MONITOR>VERSIO.MAC.5640,  1-Feb-83 16:36:31, Edit by CHASE

VEDIT==^O5640

;[INGWAY.MAC]
;#564 At RCVGA1+13, change CAMG to CAMGE.  This was causing packets that came
;#564	in over the bypass and contained an Ack but no data to be rejected.

;[TCPJS.MAC]
;#563 In .OPEN, return JCN,,error on error so user can abort jcn.

;[TCPJS.MAC]
;#562 Fix ABTTCB: being NOSKED for $SIGNL is asking to lose.

;[TCPJS.MAC]
;#561 In SEND and RECV, relock tcb via CHKARG before calling FREBFR, to
;#561	protect against an intervening abort (ie, by another fork).

;[Mexec.Mac]
;#560	Some code sense corrections, right data in tmpbugs for ORT
;	checkout, make path correction if RT initial, don't check ORT

;[PHYM2.Mac]
;#557	Make this module resident by repeating module name in 2nd arg of
;	TTITLE macro invocation

;[INPROC.MAC]
;#556 In INTGIB, clear PFLGS properly.

;[Mexec.Mac, Paran.Mac, Globs.Mac]
;#555	Added CHKSCD,  scheduler consistency checker to the CHKR code
;	stream,  it will preclude chkcls if scheduler sick...This
;	required that MAXCLS and JOBCLS be 'glob'ified so that CHKSCD
;	could see them...Also reduced MAXCOR to 5000 so that we would
;	have some hope of linking this mother

;[PARAN.MAC]
;#554	SA10T+TM78+TM03 monitor (no DX20 support)

;[PARAN.MAC]
;#553	DX20+SA10T+TM78 monitor (no TM02/TM03 support)

;[SCHED.MAC]
;#552	Oh goodness, more data for XCLSU2 yammering, ie:
;	{JOBORT/JOBRT/JOBCLS}(t1) 

;[SCHED.MAC]
;#551	ReInit stack if forced logout interrupt occurs

;[MNETDV.MAC]
;#550 Ignore domains in GTHST%

;[PARAN.MAC]
;#547 Support TU77 (TM02F:==1)

;[PARAN.MAC]
;#546 Reduce from 80. to 40. NVTs

;[STG.MAC]
;#545 Increase NUPDL from 300 to 400

;[TCPPZ.MAC]
;#544 At PKTZ19, send packet if transfer fills send window.

;[PARAN.MAC]
;#543 Increase NHOSTS to ^D1021

;[TCPIP.MAC]
;#542 Add NOSKED/OKSKED around DQ's in ABTCON
;     DQ the TCB from PZ in ABTCON

;[INFREE.MAC]
;#541 In RETB, put debugging info from stack into returned blocks

;[DSKALC.MAC]
;#540 Fix bug under release 5: could not specify a "swapping str" as PS.
;#540 Let LPSNAM override APRSER

;[INCMP.MAC, INGWAY.MAC, INPAR.MAC, INPROC.MAC,
; TCPIP.MAC, TCPPAR.MAC, TCPPZ.MAC, TTTVDV.MAC]
;#537 New versions from Charlie Lynn

;[TCPIP.MAC]
;#536 In SYNAGN, check PINTL before RETBLKing PKTs

;[1822DV.MAC]
;#535	Clear NBQUE in packets returned by RFNOUT, in case...
;	Restart input after calling INTFBF in IMPEI3
;[ANXPHY.MAC]
;#535	Add INETIA to keep 0 instead of intsec,,0
;[GLOBS.MAC]
;#535	Add ADRINI, BMNTLK, DEFAD0, SETDFA
;[HSTINI.MAC]
; Reactivate code for updating the GETAB table pointers for HOSTN and HSTNAM.
; Add MONCLR instructions as necessary; and save/restore map entry rather than
; unconditionally leaving it write-protected. (Under KA switch)
;[IMPPHY.MAC]
;#535	Add SKIPE to keep 0 instead of intsec,,0
;[INFREE.MAC]
;#535	Save flags in debugging code
;[INPROC.MAC, INUQ.MAC, MIMPDV.MAC, MNETDV.MAC, MNETWK.MAC,
; MNTPAR.MAC, TCPIP.MAC]
;#535	Update from CLynn
;[PROLG0.MAC]
;#535	No MLC and retain NCP for now.
;[STG.MAC]
;#535	Add DEFAD0
;[TCPMSC.MAC]
;#535	Add SRI net (45) to list of PR Nets
;[TCPRX.MAC]
;#535	Check both "ends" in figuring retransmit interval

;[INFREE.MAC]
;#534	Add IPFTRK code and data space to debug Internet freespace problems
;	At RETB get the size from the packet (for GC)
;	At GETBB0+3 test BLK not T1
;	At BULKC5+1 return 0 in BLK not T1


;[ANXPHY.MAC]
;#533 In ANXSCK, make sure T1 is saved till after ANOSRT returns.

;[INFREE.MAC,NETBUG.MAC,GLOBS.MAC]
;#532 At Gc, Bugchk so we know what's happening.

;[STG.MAC,INPROC.MAC]
;#531 Make RSI's for INTNIB and INTNFI be RS's again, increase NINTIB.

;[MIMPDV.MAC,BUGS.MAC]
;#530 Change LNKLH0 to a Buginf from a Bughlt.

;[TCPRX.MAC]
;#527 Use a reasonable (ie, bigger) minimum retransmit interval

;[JSYSA.MAC]
;#526 Reset the RCVOK timer when a RCVOK is done with the queue empty
;#525 remove BBN's addition of USLAT entry to Disk usage

;[PARAN.MAC]
;#524 Fix .STDMX (Std dir working/permanent quota) back to 250.
;#524	(BBN mucked with the NDG in PARAMS)

;[JSYSA.MAC]
;#523 Require wheel or operator privs to do CRJOB%

;[1822DV.MAC,STG.MAC,PROLG0.MAC,DDT.MAC]
;#522	(a) Make KDDT use local defs of DTEMTI and friends instead of
;		STG KIEPT based defs
;#522	(b) Add ISIQ flag used to build quieter monitors (ie: instead of
;	bugging, they bump counters)

;[TTYSRV.MAC]
;#521 Say PTY is hungry even if waiting fork has some sort of interrupt status.

;[MIMPDV.MAC,MNETWK.MAC,INUQ.MAC,INFREE.MAC]
;#520	A number of fixes to either (a) enhance TCP/IP reliability or
;	(b) gather more information on TCP/IP code problems

;[JSYSA.MAC]
;#517	Give RELDD3 another exiting scheduler test if not LOGIOB process


;[SERCOD.MAC,PHYSAT.MAC]
;#516 Change PHYSAT SYSERR entry to SEC%SM since DEC now using name SEC%ST

;[TTYSRV.MAC, TTNTDV.MAC]
;#515 Move TDCALL to be after release of Buffers (So DM gets sent)
;#515 Remove OKSKED/NOSKED pair from NVTCOB

;[PAGEM.MAC]
;#514	Make sure MM4 tests the right address to never write protect

;[APRSRV.MAC]
;#513	DEC CTCO regarding premature entry to Jsys context on certain
;	extend instructions

;[BUGS.MAC]
;#512 Change text, description of CC1IS6

;[PHYC1.MAC]
;#511 Do not give CC1HRE BUGCHK unless short IORB (Paging failure)

;[DEVICE.MAC]
;#510 Fix improper counting and possible use of non-device in FNDUNT

;[PHYPAR.MAC,PHYSAT.MAC,PHYX2.MAC]
;#507 Change skip file function to use same code as SEEK ... ran out of bits
;#507  for new function.

;[MNETDV.MAC]
;#506   Actually return from MNTINA if called from MDDT via MNETON

;[MEXEC.MAC]
;#505	Include DEC/UBirmingham change at JOBCF1 for logout getok
;       Relocate edit #45 to be under the IFNSK. ELSE. clause

;[JSYSF.MAC]
;#504 Don't allow UFPGS% to files that are not Open or not writeable
;[FORK.MAC]
;#504	Dyked out #324 in an attempt to make locking the fork structure
;	work the way DEC meant it to, if not actually correctly.  The
;	way I had left FLOCKN, any calls to it sat on Q1/Q2

;[MEXEC.MAC]
;#503 Don't TTHNGU when on a logged in tvt at LOG2
;[PARAN.MAC]
;#503	No DX20B, No TM02/3
;       Set Jb0tty to zero to lose that code for now...
;       Reduce NJSBPG from 40. to 30.

;[MEXEC.MAC]
;#502 Make LOGOUT message look like before (no CRU's)

;[1822DV.MAC, ANXPHY.MAC, IMPPAR.MAC, IMPPHY.MAC, JSYSA.MAC, MIMPDV.MAC,
; MNETDV.MAC, MNETWK.MAC, MNTPAR.MAC, POSTLD.MAC, STG.MAC, TTNTDV.MAC,
; TTPHDV.MAC, TTYSRV.MAC, PAGEM.MAC, BUGS.MAC]
;#501 Merge with BBN v5 MultiNet

;[BUGISI.MAC, BUGSA.MAC, PHYC1.MAC, PHYSA.MAC, PHYSAT.MAC, PROLG0.MAC]
;#500 Adapt to release 5

	TITLE VERSIO - MONITOR VERSION NUMBER AND NAME MODULE
	SEARCH PROLOG

VMAJOR==5
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 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(MINOR,WHO)<
	    IFE VMINOR,<
	      IFE VWHO,< .NAME(\VMAJOR,,\VEDIT,)>
	      IFN VWHO,< .NAME(\VMAJOR,,\VEDIT,-WHO)>>
	    IFN VMINOR,<
	      IFE VWHO,< .NAME(\VMAJOR,<.>MINOR,\VEDIT,)>
	      IFN VWHO,< .NAME(\VMAJOR,<.>MINOR,\VEDIT,-WHO)>>>
	IFGE VMINOR-^D64,< VMINOR==0
	  PRINTX %MINOR VERSION TOO LARGE - IGNORED>
	IFGE VWHO-^D8,< VWHO== 0
	  PRINTX %VWHO IS TOO LARGE - IGNORED>
	.CLNM(\VMINOR,\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

   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

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			;LENGTH OF TSVN IN WORDS

SVNM=:SCVN			;DEFINE COMPOSITE VERSION NUMBER

	SETVER (SETV2)		;REDEFINE SYSTXT
VTSVN::	SYSTXT (FOO)		;GENERATE STRING OF JUST THE VERSION
VTSVNT==:.-VTSVN		;NO. OF WORDS IN STRING

;GENERATE ASCIZ NAME OF SETSPD

;EXAMPLES:  VERSION 4:	   SYSTEM:4-SETSPD.EXE
;	    VERSION 4.1:   SYSTEM:4-1-SETSPD.EXE

DEFINE BSETSPD (R,R1)<
	IFE VMINOR,<
	  ASCIZ/SYSTEM:'R'-SETSPD.EXE/>
	IFG VMINOR,<
	  ASCIZ/SYSTEM:'R'-'R1'-SETSPD.EXE/>
	> ;END DEFINE BSETSPD

SETSPD::BSETSPD (\VMAJOR,\VMINOR)

;PUT NUMERICAL FORM OF VERSION NUMBER IN .JBVER (137)

	.ENDPS NRCOD
	LOC 137			;PUT IN STANDARD PLACE
	SCVN

	END