* PROM programmer (64 passes)
* FROM and TO addresses must be
*    on 1K boundaries.
* Programmer Ronald G. Parsons
SCONV EQU 0C33AH
ERR1  EQU 0C480H
CRLF  EQU 0C2F9H
ADOUT EQU 0C3E8H
HBOUT EQU 0C3EDH
     ORG 0FC00H
* Entry point.
PROG CALL PARM
     PUSH H
     CALL PARM
     POP D
     LXI B,0
WLOOP LDAX D
     MOV M,A
     INX H
     INX D
     DCX B
     MOV A,C
     ORA A
     JNZ WLOOP
     MOV A,B
     ORA A
     JZ VER
     ANI 3
     JNZ WLOOP
     CALL ADJ
     JMP WLOOP
VER  CALL ADJ
     LXI B,400H
VLOOP LDAX D
     CMP M
     CNZ VERR
     INX H
     INX D
     DCX B
     MOV A,C
     ORA B
     JNZ VLOOP
     RET done
PARM CALL SCONV
     MOV A,H
     ANI 3
     JNZ ERR1
     MOV A,L
     ORA A
     JNZ ERR1
     RET
ADJ  MOV A,H
     SUI 4
     MOV H,A
     MOV A,D
     SUI H
     MOV D,A
     RET
VERR PUSH B
     CALL CRLF
     CALL ADOUT
     LDAX D
     CALL HBOUT
     MOV A,M
     CALL HBOUT
     POP B
     RET
* End of PROG.