;
;THIS PROGRAM SETS UP A FLAG FOR HDLOAD APPLICATION CHAIN COPYING PROCESS
;WRITTEN IN NOV., 1983
;
AFLAG	EQU	41H
;
	.Z80
	CSEG
;
	JP MAIN
;
HEADER: DB	0DH,0AH,'APPLICATION FLAG SET UP PROGRAM FOR HDLOAD.COM',1AH
;
MAIN: 	LD	A,(AFLAG)
	ADD	A,1
	LD	(AFLAG),A
	RET	
;
	END	MAIN