;ROUTINE FOR PROGRAMMING 2716'S
			;CVE 11-29-84

			;REGISTER USAGE:
			;A	PASS DATA FROM MEMORY TO THE PROGRAMMER
			;B	NUMBER OF PROGRAMMING CYCLES
			;C	SIZE OF PROM
			;D	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     10H     ;CONTROL PORT FOR PROGRAMMER BOARD
MONIT	EQU	F021H	;EXIT ADDRESS SET BY USER

	ORG	LOC
;START OF PROGRAM
;INITIALIZE BOARD
PROG0:	MVI	A,02	;02=2716 ROM
	OUT	CPORT	;PRESET PROGRAMMING BOARD
;SET UP PARAMETERS
;NUMBER OF PROGRAMMING CYCLES
	MVI	B,01	;1 CYCLE FOR 2716

;NUMBER OF BYTES
	MVI	C,07	;07 FOR 2716

;	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	;RESET PROGRAMMER BOARD
	JMP	MONIT	;BACK TO MONITOR

	END