Google
 
Trailing-Edge - PDP-10 Archives - cuspmar86binsrc_2of2_bb-fp63a-sb - 10,7/makvfu/macros.unv
There are 12 other files named macros.unv in the archive. Click here to see a list.
x
,R@P G`@ I6M {pV


	IFB	<C| >,<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	BC(D)

	XALL>

	IFN	<E>,<
	@LALL

	TITLE	A`	VERSION BC(D)-E>

	LALL

 ;		MAJOR VERSION @NUMBER = B
;		M`INOR VERSION NUMBER = C
;		EDIT  NUMBER          =@ D
;		GROUP NUM`BER         = E

;	WRITTEN BY  F

;WHEN M0DIFY@ING THIS PROGRAM,` PLEASE CONFORM TO THE FOLLOWING R ULES:

;	1.MAJO@R AND MINOR VERSI`ON NUMBERS SHOULD BE CHANGED BY
; 	  DIGITAL EMPLOY@EES ONLY.
;	2.MI`NOR VERSION NUMBERS ARE BLANK IF N OT USED
;	3.MINO@R VERSION NUMBERS` ARE A-Z IF USED.
;	4.EDIT NUMBER S ARE INCREASED B@Y 1 FOR EACH SEPE`RATE EDIT
;	  THEY ARE NEVER RESE T.
;	5.THE GROUP@ NUMBER ASSIGNMEN`TS ARE AS FOLLOWS:
;		0 = DIGITAL  PROGRAM AUTHOR
@;		1 = DIGITAL SU`PPORT PERSONNEL
	;		2-4 = DIGITAL 	 CUSTOMER PERSONNE	@L
;		5-7 = CUSTO	`MER' USERS (IE, C
USTOMER'S CUSTOME
 RS)

	LOC	137

@	BYTE(3)E(9)B(6
`)MINVER(18)D
	RELOC
	XALL
	RyuS.WELLSL@ [^Mw @i@
	TWOSEG	pA
	RELOC	0
	RE

LOC	A
	DEFINE 	

0GOLOW
<
	IFGE	<

P.-A>,<RELOC>
>

p
	DEFINE	GOHIGH
<
	IFL	<.-A>,<RELOC>
>
A>,<R|X400000`@ `D@ `H@ `L@ `P@ `T@ `X@ aJMm 
	OUTSTR	[ASCIZ/A
/]
bD@ bH@ bL@ hD@ hH@ hL@ hP@ S@P >}{woP