;A SIMPLE ROUTINE FOR PROGRAMMING 2716'S.
;COPYRIGHT BY SOLID STATE MUSIC, 1978

;REGISTER USAGE:
;REG A  PASS DATA FROM MEMORY TO THE PROGRAMMER
;REG B  REPEATED PROGRAMMING CYCLES
;REG C  SIZE.  SIZE=256(REG.C +1)
;REG DE PROM CARD ADDRESS
;REG HL DATA ADDRESS TO BE COPIED

LOC	EQU	100H
PROM	EQU	09000H		;PROGRAMMING SOCKET
RAM	EQU	08000H		;DATA TO BE COPIED
CPORT	EQU	    0H		;CONTROL PORT FOR PB1
MONIT	EQU	0000		;EXIT ADDR. SET BY USER

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

;	NUMBERS OF BYTES =256(C+1)
	MVI	C,07		;07=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 PB1
	JMP	MONIT		;BACK TO MONITOR

	END