; CASTEST.ASM
;
; Read test tape created by GENTEST 
;
;    The test tape generated by GENTEST is simply the letter"U" (055h) written
;    over and over with a 1.5 character idle period in between each character. 
;    This program receives the tape and writes whatever it reads out to the
;    console (assumed to be a 2SIO port at octal address 020/021).
;
;    Adjust the volume output on the cassette player until the "U" characters
;    are displayed without error. Give yourself some headroom and adjust the
;    volume up another 25%-50% once the "U"s start showing up. Mark this as
;    the playback level to use with tapes recorded on this cassette recorder.
;
;    To run this program, load CASTEST.HEX into memory using the "Load HEX File"
;    menu option in the Configuration Monitor. Reset the computer and run
;    the program from address zero.

	org	0		;program loads and runs at zero
	mvi	a,03h		;reset console UART
	out	10h
	mvi	a,15h		;no RI, no XI, RTS Low, 8n1, /16
	out	10h
loop	in	06h		;wait for character
	rrc
	jc	loop		;nothing yet (negative logic)
	in	07h		;read the character
	out	011h		;echo it to console
	jmp	loop
	end