;IN ALL MACROS ADDRESSES ARE EXPECTED AS ARGS EXCEPT FOR LUN ARG
;IN QTRAN, WHICH SHOULD BE A LITERAL, AND NAM AND RA IN RESUME AND REQUEST WHICH
;ARE RAD50 NAME AND ACTUAL RESUME ADDR RESPECTIVELY.
;EVTAB IS THE ADDRESS OF A 0 TERMINATED WORD TABLE OF ADDRESSES OF
;EVENT VARIABLE WORDS TO WAIT ON (UNTIL ONE OR MORE IS NONZERO)
	.MACRO	QRUN	NUMBER
	MOV	#<MX.TBL+<NUMBER*MX.TBS>>,R0 ;POINTER TASK TCB
	CLR	-(SP)	;FAKE PSW
	JSR	PC,MX.RQU	;FAST REQUEST
	.ENDM
	.MACRO	WAIT.	EV
	MOV	EV,-(SP);PUSH ADDR
	JSR	PC,MX.SV2
	.WORD	00
	.ENDM
	.MACRO	ORWAIT	EVTAB
	MOV	EVTAB,-(SP)
	JSR	PC,MX.SV2
	.WORD	4
	.ENDM
	.MACRO	SUSPEND
	JSR	PC,MX.SV2
	.WORD	6
	.ENDM
	.MACRO	RESUME	NAM,RA,EV
	MOV	EV,-(SP)
	.IF	NB,RA
	MOV	RA,-(SP)
	.IFF
	CLR	-(SP)
	.ENDC
	MOV	NAM,-(SP)
	JSR	PC,MX.SV2
	.WORD	8.
	.ENDM
	.MACRO	REQUEST	NAM,PRI,EV
	MOV	EV,-(SP)
	.IF	NB,PRI
	MOV	PRI,-(SP)
	.IFF
	CLR	-(SP)
	.ENDC
	MOV	NAM,-(SP)
	JSR	PC,MX.SV2
	.WORD	10.
	.ENDM
	.MACRO	PRIREQ	NAM,PRI,EV
	MOV	EV,-(SP)
	.IF	NB,PRI
	MOV	PRI,-(SP)
	.IFF
	CLR	-(SP)
	.ENDC
	MOV	NAM,-(SP)
	CLR	-(SP)	;FAKE PS
	JSR	PC,MX.PRR	;CALL PRIO REQ. ROUTINE
	.ENDM
	.MACRO	EXIT	EV
	.IF	NB,EV
	MOV	EV,-(SP)
	.IFF
	CLR	-(SP)
	.ENDC
	CLR	-(SP)
	JSR	PC,MX.PRX ;SPECIAL FASTER EXIT
	.ENDM
	.MACRO	DECLARE
	JSR	PC,MX.SV2
	.WORD	14.
	.ENDM
	.MACRO	QTRAN	LUN,DPB,IOSB
	.IF	NB,IOSB
	MOV	IOSB,-(SP)
	.IFF
	CLR	-(SP)
	.ENDC
	MOV	DPB,-(SP)
	.IF	NB,LUN
	MOV	LUN,-(SP)
	.IFF
	CLR	-(SP)
	.ENDC
	JSR	PC,MX.SV2
	.WORD	16.
	.ENDM