;*************************************************************************
;
;  Quick .bin loader
;  	This loader is for the Mostek AID-80F computer. To enter the 
;       monitor, press the reset button, and with NO floppy present
;       in the drive, press RETURN. The monitor will display "DSK ERR"
;       and give its dot prompt.

;       Type this program into memory at zero using the M (memory)
;       command. Run from zero using the E command, then send the file
;       PC2FLOP.COM using 8N1. After file transfer is complete, reset
;       the computer (still no disk inserted), press return to enter the
;       monitor, then run from 100h by typing E 100
;
;************************************************************************
SIOCTL	equ	0DDh		;serial port control register
SIODAT	equ	0DCh		;serial port data register
SIORDRF	equ	040H		;mask to test for receive data

	org	0
	
	lxi	h,0100h		;load at 0100h

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
