;
; THE FOLLOWING MACRO IS DESIGNED TO SET UP THE PROPER HEADER
; INFORMATION FOR A USER LOADABLE ASSEMBLY ROUTINE INTO BASIC.
; IT USES THE ENTRY POINT MACRO DEFINED BELOW.
	.MACRO	ULODHD	STCODE,ENDCOD,E1,E2,E3,E4,E5,E6,E7,E8,E9,E10
	.WORD	ID001
	.WORD	ID002
	.WORD	ID003
	.NARG	$$$LOA
	.IF	LT	$$$LOA-3
	.ERROR
	.ENDC
	.IF	GT	$$$LOA-12
	.ERROR
	.ENDC
	.WORD	ENDCOD-STCODE+<6*<$$$LOA-2>>
	.WORD	6*<$$$LOA-2>
	.WORD	$$$LOA-2
	.MCALL	ULOEPT
	ULOEPT	E1,STCODE
	ULOEPT	E2,STCODE
	ULOEPT	E3,STCODE
	ULOEPT	E4,STCODE
	ULOEPT	E5,STCODE
	ULOEPT	E6,STCODE
	ULOEPT	E7,STCODE
	ULOEPT	E8,STCODE
	ULOEPT	E9,STCODE
	ULOEPT	E10,STCODE
	.WORD	<ENDCOD-STCODE+1>/2
	.ENDM	ULODHD
;
; THE FOLLOWING MACRO IS USED TO DEFINE ENTRY POINTS FOR USER
; LOADABLE ASSEMBLY LANGUAGE SUBROUTINES FOR BASIC.
; IT IS USED BY THE ULODHD MACRO ABOVE.
	.MACRO	ULOEPT	NAME,STCODE
	.IF	B	NAME
	.MEXIT
	.ENDC
	.NCHR	$$$ULO,NAME
	.IF	GT	$$$ULO-6
	.ERROR
	.ENDC
	.RAD50	/NAME/
	.IF	LE	$$$ULO-3
	.WORD	0
	.ENDC
	.WORD	NAME-STCODE
	.ENDM