;	MACRO LIBRARY FOR "DOWHILE" CONSTRUCT
;
GENDTST	MACRO	TST,X,Y,NUM
;;	GENERATE A "DOWHILE" TEST
	TST	X,Y,,ENDD&NUM
	ENDM
;
GENDLAB	MACRO	LAB,NUM
;;	PRODUCE THE LABEL LAB & NUM
;;	FOR DOWHILE ENTRY OR EXIT
LAB&NUM:
	ENDM
;
GENDJMP	MACRO	NUM
;;	GENERATE JUMP TO DOWHILE TEST
	JMP	DTEST&NUM
	ENDM
;
DOWHILE	MACRO	XV,REL,YV
;;	INITIALIZE COUNTER
DOCNT	SET	0	;NUMBER OF DOWHILES
;;
DOWHILE	MACRO	X,R,Y
;;	GENERATE THE DOWHILE ENTRY
	GENDLAB	DTEST,%DOCNT
;;	GENERATE THE CONDITIONAL TEST
	GENDTST	R,X,Y,%DOCNT
	SYMPSH	DOCNT	;;NEXT ENDDO TO GENERATE (STACKED)
DOCNT	SET	DOCNT+1
	ENDM
	DOWHILE	XV,REL,YV
	ENDM
;
ENDDO	MACRO
;;	GENERATE THE JUMP TO THE TEST
	SYMPOP	DOLEV
	GENDJMP	%DOLEV
;;	GENERATE THE END OF A DOWHILE
	GENDLAB	ENDD,%DOLEV
	ENDM