;*************************************************************************
;
;  Quick .bin loader
;  	Load this program through the front panel switches to read in
;	a .bin file through 2SIO port 1 (I/O address 010h) at 8N1. It
;	is assume the ACIA has already been initialized by a monitor.
;	
;       As written, the program loads at zero and loads the .bin
;	file at location 0100h.
;
;************************************************************************
sio1Ctl	equ	10h		;1st port on 2SIO board
sio1Dat	equ	11h

loadAdr	equ	0100h		;address of program being loaded

	org	0

	lxi	h,loadAdr	;hl->starting address for program

loop	in	sio1Ctl		;wait for a character
	rrc
	jnc	loop

	in	sio1Dat		;get the character
	mov	m,a		;store it
	inx	h		;move to next location
	jmp	loop

	end
