; MACRO SUBROUTINE TO ISSUE ANY SYSTEM DIRECTIVE
;
; MAIN CALL
;	CALL "DIRECT"(A,S)
;
; WHERE
;	"A" IS THE 0TH ELEMENT OF A DIMENSIONED VARIABLE  CONTAINING
;	THE DIRECTIVE PARAMETER BLOCK.
;	TYPICALLY A "DIM A%(N) FACILITATES CREATING THE DIRECTIVE
;	PARAMETER BLOCK.
;
;	THE ROUTINE MAKES ROUTINE CHECKS OF THE VALIDITY OF THE DIRECTIVE
;	CODE, AND RETURNS A -99. IF THE DIRECTIVE FAILS. OTHERWISE THE
;	DIRECTIVE STATUS IS RETURNED IN "S"
;
;	TO ASSIST IN CREATING ADDRESSES IN DPB'S THE ENTRY POINT
;
;	CALL "GETADR"(A,B)
;
;	RETURNS THE ABSOLUTE ADDRESS OF VARIABLE "A" IN VARIABLE "B"
;	A & B ARE EXPECTED TO BE INTEGER VARIABLES
;
;