.PAGE
	.SUBTITLE	Macro definitions
;
;========================================================================
;=                                                                      =
;=    I T E M   M A C R O  ----   This macro is called to set up the    =
;=                                itemlist requirements for the system  =
;=	                          service $GETJPI.         		=
;=                                                                      =
;========================================================================
;
	.MACRO    ITEM      BUF_LEN,ITEM_CODE,BUF_ADDR,RET_ADDR=0
	.WORD     BUF_LEN               ; The length of the buffer
	.WORD     ITEM_CODE         	; Symbolic code specifying info item
	.ADDRESS  BUF_ADDR              ; Address of the buffer
	.LONG     RET_ADDR		; The return length address
	.ENDM     ITEM
;
;========================================================================
;=									=
;=	D E S C   M A C R O  ->  Macro to create a string descriptor    =
;=									=
;========================================================================
;
	.MACRO	DESC	LEN,ADDR
	.WORD	LEN			; The length of the string
	.BYTE	DSC$K_DTYPE_T		; The type (character)
	.BYTE	DSC$K_CLASS_S		; The class (string)
	.ADDRESS ADDR			; The address of the string
	.ENDM
;