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