Google
 

Trailing-Edge - PDP-10 Archives - cuspmar86binsrc_2of2_bb-fp63a-sb - 10,7/makvfu/macros.mac
There are 5 other files named macros.mac in the archive. Click here to see a list.
	UNIVERSAL	MACROS

;THIS IS A UNIVERSAL FILE GENERATED BY S.WELLS. IT CONTAINS
;FREQUENTLY USED SYMBOLS AND MACRO DEFINITIONS.

;THE FOLLOWING MACRO DEFINES THE PROGRAM NAME AND COMPLETE
;VERSION NUMBER FOR A PROGRAM. IT ALSO INSERTS THE PROGRAMMER'S
;NAME IN A LISTED COMMENT LINE, AND DESCRIBES HOW TO CHANGE THE VERSION 
;NUMBERS.

	DEFINE	DEFTTL	(NAME,MAJ,MIN,EDITN,GROUPN,PRGNM<S.WELLS>)
<
	IFB	<MIN>,<MINVER=0>
	IFNB	<MIN>,<IFL <"MIN"- "A">,<PRINTX DEFTTL ERROR !>
			  IFG <"MIN"-"Z">,<PRINTX DEFTTL ERROR !>
			  MINVER="MIN"-100
			 >


	IFE	<GROUPN>,<
	LALL

	TITLE	NAME	VERSION	MAJ'MIN(EDITN)

	XALL>

	IFN	<GROUPN>,<
	LALL

	TITLE	NAME	VERSION MAJ'MIN(EDITN)-'GROUPN>

	LALL

;		MAJOR VERSION NUMBER = MAJ
;		MINOR VERSION NUMBER = MIN
;		EDIT NUMBER          = EDITN
;		GROUP NUMBER         = GROUPN

;	WRITTEN BY PRGNM

;WHEN M0DIFYING THIS PROGRAM, PLEASE CONFORM TO THE FOLLOWING RULES:

;	1.MAJOR AND MINOR VERSION NUMBERS SHOULD BE CHANGED BY
;	  DIGITAL EMPLOYEES ONLY.
;	2.MINOR VERSION NUMBERS ARE BLANK IF NOT USED
;	3.MINOR VERSION NUMBERS ARE A-Z IF USED.
;	4.EDIT NUMBERS ARE INCREASED BY 1 FOR EACH SEPERATE EDIT
;	  THEY ARE NEVER RESET.
;	5.THE GROUP NUMBER ASSIGNMENTS ARE AS FOLLOWS:
;		0 = DIGITAL PROGRAM AUTHOR
;		1 = DIGITAL SUPPORT PERSONNEL
;		2-4 = DIGITAL CUSTOMER PERSONNEL
;		5-7 = CUSTOMER' USERS (IE, CUSTOMER'S CUSTOMERS)

	LOC	137
	BYTE(3)GROUPN(9)MAJ(6)MINVER(18)EDITN
	RELOC
	XALL
>


;THE FOLLOWING MACRO SETS UP A PROGRAM WITH TWO SEGMENTS -
;A HIGH AND LOW SEGMENT. THE MACRO DEFAULTS TO A VALUE OF 400000
;FOR THE HIGH SEGMENT IF NO ARGUMENT IS GIVEN WITH THE MACRO.


	DEFINE	MAKTWO	(HGHORG<400000>)
<
	TWOSEG	HGHORG
	RELOC	0
	RELOC	HGHORG
	DEFINE 	GOLOW
<
	IFGE	<.-HGHORG>,<RELOC>
>
	DEFINE	GOHIGH
<
	IFL	<.-HGHORG>,<RELOC>
>
>


;STANDARD ACCUMULATOR DEFINITIONS

	F=0
	T1=1
	T2=2
	T3=3
	T4=4
	Q1=5
	Q2=6
	Q3=7
	P1=10
	P2=11
	P3=12
	P4=13
	P5=14
	P6=15
	CX=16
	P=17

;THE FOLLOWING MACRO ALLOWS THE USER TO PRINT A CHARACTER
;STRING ON THE TERMINAL WITHOUT WORRYING ABOUT CRLF,OUTSTR,
;OR OTHER DETAILS.

	DEFINE	PRINT	(A)
<
	OUTSTR	[ASCIZ/A
/]
>


	END