Google
 

Trailing-Edge - PDP-10 Archives - de-10-omona-v-mc9 - macros.unv
There are 12 other files named macros.unv in the archive. Click here to see a list.
x
a(4@P G`@ I6M Z0JmP

	IFB	<CZ`>,<MINVER=0>
	IF[NB	<C>,<IFL <"C[ "- "A">,<PRINTX D[@EFTTL ERROR !>
	[`		  IFG <"C"-"Z"\>,<PRINTX DEFTTL \ ERROR !>
			  MI\@NVER="C"-100
		\`	 >


	IFE	<E]>,<
	LALL

	TI] TLE	A	VERSION	B]@C(D)

	XALL>

	IFN	<E>,<
	^LALL

	TITLE	A^ 	VERSION BC(D)^@-E>

	LALL

^`;		MAJOR VERSION _NUMBER = B
;		M_ INOR VERSION NUMB_@ER = C
;		EDIT _`NUMBER          =` D
;		GROUP NUM` BER         = E

;	WRITTEN BY ``F

;WHEN M0DIFYaING THIS PROGRAM,a  PLEASE CONFORM Ta@O THE FOLLOWING Ra`ULES:

;	1.MAJObR AND MINOR VERSIb ON NUMBERS SHOULDb@ BE CHANGED BY
;b`	  DIGITAL EMPLOYcEES ONLY.
;	2.MIc NOR VERSION NUMBEc@RS ARE BLANK IF Nc`OT USED
;	3.MINOdR VERSION NUMBERSd  ARE A-Z IF USED.d@
;	4.EDIT NUMBERd`S ARE INCREASED BeY 1 FOR EACH SEPEe RATE EDIT
;	  THe@EY ARE NEVER RESEe`T.
;	5.THE GROUPf NUMBER ASSIGNMENf TS ARE AS FOLLOWSf@:
;		0 = DIGITALf` PROGRAM AUTHOR
g;		1 = DIGITAL SUg PPORT PERSONNEL
g@;		2-4 = DIGITAL g`CUSTOMER PERSONNEhL
;		5-7 = CUSTOh MER' USERS (IE, Ch@USTOMER'S CUSTOMEh`RS)

	LOC	137
i	BYTE(3)E(9)B(6i )MINVER(18)D
	RELOC
	XALL
	RmiS.WELLSL@ [^Mw j]n
	TWOSEG	j0A
	RELOC	0
	REjPLOC	A
	DEFINE 	jpGOLOW
<
	IFGE	<k.-A>,<RELOC>
>k0
	DEFINE	GOHIGH
kP<
	IFL	<.-A>,<RELOC>
>
A>,<RpL400000`@ `D@ `H@ `L@ `P@ `T@ `X@ aJMm la
	OUTSTR	[ASCIZ/A
/]
bD@ bH@ bL@ hD@ hH@ hL@ hP@ S@P >}{woP