;A SIMPLE ROUTINE FOR PROGRAMMING 2708'S.
		;CVE 11-29-84

		;REGISTER USAGE:
		;A	PASS DATE FROM MEMORY TO THE PROGRAMMER BD.
		;B	NUMBER OF REPEATED PROGRAMMING CYCLES
		;C	PROM SIZE IN BYTES, 2708=256, REG. C + 1
		;DE	PROM CARD ADDRESS

		;HL	DATA ADDRESS TO BE COPIED

		LOC	EQU	100H
		PROM	EQU	D000H	;PROGRAMMING SOCKET
		RAM	EQU	4000H		;DATA TO BE COPIED
		CPORT	EQU	F021H	;EXIT ADDR. SET BY USER

			ORG	LOC
		;START OF PROGRAM
		;INITIALIZE BOARD
PROG0:	MVI	A,01	;01=2708 PROM
	OUT	CPORT	;PRESET BOARD
;SET UP PARAMETERS
;NUMBER OF PROGRAMMING CYCLES
	MVI	B,0FFH	;256 CYCLES FOR 2708

;	NUMBER OF BYTES IS 256, OR C+1
	MVI	C,03	;03 FOR 2708
;	SET UP ADDRESSES FOR TRANSFER
PROG1:	LXI	D,PROM
	LXI	H,RAM
;PROGRAM THE EPROM
PROG2:	MOV     A,M
	STAX	D
	INX	D
	INX	H
	MOV     A,D
	ANA	C
	ORA	E
	JNZ	PROG2
	DCR	B
	JNZ	PROG1
	DCX	D
	LDAX	D	;PRESET PB1
	JMP	MONIT	;BACK TO MONITOR
	END