;
;	Program for initializing modifier
;
INIT:	LXI	H,0E9E1H        ;Put POP H, PCHL at RST 1
	SHLD	0008H
	RST	1               ;Get PC in H,L
	LXI	D,PUT-$	        ;Add offset to get PUT
	DAD	D
	MOV	B,H             ;Move PUT to B,C
	MOV	C,L
	RST	1               ;Get PC in H,L
	LXI	D,RELRT-$       ;Add offset to get RELRT
	DAD	D
	LXI	D,0008H         ;Set D,E to RST 1
	MVI	A,18H           ;Set A to byte count
PUT:	PUSH	B               ;Transfer to RST 1
	PUSH	PSW
	MOV	A,M
	STAX	D
	INX	H
	INX	D
	POP	PSW
	DCR	A
	RNZ
	POP	B		;Clean up stack
	PCHL			;Continue with program
				;(Can be changed to RET if
				;initialization complete)
;
RELRT:	DB	0E3H,2BH,36H,00H,23H,23H,0D5H,5EH
	DB	23H,56H,0F5H,0EBH,19H,0EBH,1BH,1BH
	DB	72H,2BH,73H,0F1H,0D1H,2BH,0E3H,0C9H

	END