Trailing-Edge
-
PDP-10 Archives
-
BB-F494Z-DD_1986
-
10,7/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