;***********************************************************************
;
;  Quick binary file loader for Horizon computer
;  	Using a ROM monitor, type this program into memory at zero.
;      	Run at zero, then send the file PC2FLOP.COM (8-bit binary)
;	through the Horizon console serial port. Finally, reset
;	the computer and run PC2FLOP from 0100h
;
;***********************************************************************

sioCtl	equ	3		;serial port control register
sioDat	equ	2		;serial port data register
sioRdrf	equ	2		;mask to test for receive data

	org	0
	
	lxi	h,0100h		;load at 0100h
	in	sioDat		;clear possible garbage
	in	sioDat

loop	in	sioCtl		;wait for a character
	ani	sioRdrf	
	jz	loop

	in	sioDat		;get the character
	mov	m,a		;store it
	inx	h		;move to next location
	jmp	loop

	end