ÓHAYES °°±°° ;Routine to send any ASCII info to the HAYES
°°±±° ;Smartmodem. Use the command HAYES,ATD2....etc from
°°±²° ;Dos Ready.
°°±³° ;<c> 1983 By Mel Patrick
°°±´° 	ORG	5200H		;bottom of memory
°°±µ° HAYES	LD	A,(HL)		;get a character
°°±¶° 	CALL	SEND		;go send to modem
°°±·° 	CP	0DH		;end of input?
°°±¸° 	JP	Z,402DH		;back to Dos if done
°°±¹° 	INC	HL		;else point to next
°°²°° 	JR	HAYES		;loop til C/R found
°°²±° SEND	PUSH	AF		;save the character
°°²²° READY	IN	A,(0EAH)	;test for modem ready
°°²³° 	AND	40H		;test 1 bit
°°²´° 	JR	Z,READY		;wait til its ready
°°²µ° 	POP	AF		;restore character
°°²¶° 	PUSH	AF		;save it again
°°²·° 	OUT	(0EBH),A	;send it to modem
°°²¸° 	CALL	33H		;and repeat on video
°°²¹° 	POP	AF		;restore character
°°³°° 	RET			;back to caller
°°³±° 	END	HAYES		;end of routine
IT TIL ITS READY
°°²µ° 	POP	AF		;restore character
°°²¶° 	PUSH	AF		;save it again
°°²·° 	OUT	(0EBH),A	;send it to modem
°°²¸° 	CALL	33H		;and repeat on video
°°²¹° 	POP	AF		;restore character
°°³°° 	RET			;back to
