;
;	Program for initializing modifier
;
init:	ld	hl,0e9e1h	; Put POP H, PCHL at RST 1
	ld	(0008h),hl
	rst	8*1		; Get PC in H,L
	ld	de,put-$	; Add offset to get PUT
	add	hl,de
	ld	b,h		; Move PUT to B,C
	ld	c,l
	rst	8*1		; Get PC in H,L
	ld	de,relrt-$	; Add offset to get RELRT
	add	hl,de
	ld	de,0008h	; Set D,E to RST 1
	ld	a,18h		; Set A to byte count
put:	push	bc		; Transfer to RST 1
	push	af
	ld	a,(hl)
	ld	(de),a
	inc	hl
	inc	de
	pop	af
	dec	a
	ret	nz
	pop	bc		; Clean up stack
	jp	(hl)		; 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