;++
; Copyright © 1993 - 1998  by Brian Schenkenberger and TMESIS.
; ALL RIGHTS RESERVED.
;                            Notice of Disclaimer
;                         -------------------------
; 
; This Software is provided "AS IS" and is supplied for informational purpose
; only.  No warranty is expressed or implied and no liability can be accepted
; for any direct, indirect or consequential damages or for any damage whatso-
; ever resulting in the loss of systems, data or profit from the use of this
; software or from any of the information contained herein.  The author makes
; no claims as to the suitablility or fitness of this Software or information
; contain herein for any particular purpose.  
;
;
;                              Software License
;                         -------------------------
; This Software is furnished under license.  The licensee may not distribute
; any copy of the Software without the prior written consent of the licensor.
; For FIELD TEST releases of this Software, the licensee may install and use
; this software on any machine (CPU) which is held property of the licensee.
; LICENSED USE of this software is provided *ONLY* for use AT YOUR OWN RISK.
;
;
;                            Title and Ownership
;                         -------------------------
; NO TITLE TO AND/OR OWNERSHIP OF THIS SOFTWARE IS HEREBY TRANSFERRED.  ANY
; MODIFICATION WITHOUT THE PRIOR WRITTEN CONSENT OF THE COPYRIGHT HOLDER IS
; PROHIBITED.  ANY USE, IN WHOLE OR PART, OF THIS SOFTWARE FOR A COMMERCIAL
; PRODUCT WITHOUT THE PRIOR WRITTEN CONSENT OF THE COPYRIGHT HOLDER IS ALSO
; PROHIBITED.  THE TECHNIQUES EMPLOYED IN THE SOFTWARE ARE THE INTELLECTUAL
; PROPERTY OF THE COPYRIGHT HOLDER.  THIS SOFTWARE CONTAINS "TRADE SECRETS"
; AND PROPRIETARY SOFTWARE TECHNIQUES.  REVERSE ENGINEERING OF THE SOFTWARE
; IS STRICTLY PROHIBITED.
;--

;++
.SBTTL	Determine the target architecture
;--
	.NTYPE	...ON_ALPHA...,R31
	.IIF EQ,<...ON_ALPHA...@-4&^XF>-5, ALPHA=0
	.IIF DF,ALPHA, .DISABLE	FLAGGING

;++
.SBTTL	Primitive program datum definitions
;--
	ZERO = 0		; |_ 
	BYTE = 1@0		; |_|_ 
	WORD = 1@1		; |___|___ 
	LONG = 1@2		; |_______|_______
	QUAD = 1@3		; |_______________|_______________
	OCTA = 1@4		; |_______________|_______________|
	PAGE = 1@9		; VAX page ; Alpha Pagelet
	BLOCK= 1@9		; Standard disk block size

;++
.SBTTL	Macro declarations for architectural conditional compilation
;--
	.MACRO	.ON_AXP	OPERATION	; conditional compilation macro
	.IIF DF,ALPHA,	OPERATION	;    for code specific to Alpha
	.ENDM	.ON_AXP;OPERATION

	.MACRO	.ON_VAX	OPERATION	; conditional compilation macro
	.IIF NDF,ALPHA,	OPERATION	;    for code specific to VAX
	.ENDM	.ON_VAX;OPERATION

;--
.SBTTL	.START_AP_JACKET definition
;--
	.MACRO	.START_AP_JACKET,?L1
; Copyright © 1994, 1995, 1996 by Brian Schenkenberger.  ALL RIGHTS RESERVED.;
	.NTYPE	...ON_ALPHA...,R31
	.IIF EQ,<...ON_ALPHA...@-4&^XF>-5, ALPHA=1
	.IIF NDF,SS$_NORMAL, $SSDEF
	.IIF DF	,SS$_NOT64DEVFUNC, VMS_64BIT = 1
        .IF DF  ALPHA
        MOVAB   0(AP),R12		; move adr of homed arglst to R12
        JSB     AP_JACKET_ENTRY.'L1	; JSB to JACKET which modifies AP
        .SAVE_PSECT LOCAL_BLOCK			; save current PSECT
        .PSECT  AP_JACKET_CODE,NOWRT,EXE,5	; New PSECT for AP JACKET
AP_JACKET_ENTRY.'L1:				; Declare the entry point
	.JSB_ENTRY	SCRATCH=<R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,R12>
	.ENDC;DF ALPHA
	.ENDM	.START_AP_JACKET

;--
.SBTTL	.END_AP_JACKET definition
;--
	.MACRO	.END_AP_JACKET
; Copyright © 1994, 1995, 1996 by Brian Schenkenberger.  ALL RIGHTS RESERVED.;
	.NTYPE	...ON_ALPHA...,R31
	.IIF EQ,<...ON_ALPHA...@-4&^XF>-5, ALPHA=1
	.IIF NDF,SS$_NORMAL, $SSDEF
	.IIF DF	,SS$_NOT64DEVFUNC, VMS_64BIT = 1
	.IF DF	ALPHA
	RSB				; return to previous thread
	.RESTORE_PSECT			; restore the saved PSECT
	.ENDC;DF ALPHA
	.ENDM	.END_AP_JACKET