Date   : Tue, 31 Aug 1982 1426-:00PDT
From   : Ted Shapin <BEC.SHAPIN.USC-ECLD@Usc-Ecl>
Subject: MODEM TOPS20 Correction

Sorry, I have a bug in USC-ECLA::<JSOL>MODEM.MAC

The two instructions marked with an asterisk in this subroutine
should be changed as follows:
GETACK:
	movei	1,^D10000		; wait 10 seconds for ack
	call	SETTIM			; and get something
	 jrst	CPOPJ			; non-skip return on timeout
	call	GETCHR
	cain	2,6
	 jrst	CPOPJ1			;all OK, skip return
	cain	2,"U"-100		; oh dear, a NAK... **
	%IF
	movei	1,.priou
	camn	1,OUTJFN		;are we using control terminal **
	%IF
	move	3,[NO%LFL+NO%ZRO+<2,,20>]
	nout				;display the unexpected character
	 trn
	hrroi	1,[asciz/H rec'd, not ACK
/]
	psout
	%END
	%END