[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

dialnet access to riverside

    Date: Tue, 14 Jul 1992 06:04 CDT
    From: Paul Cross <paul@PERSEPHONE.aegean-sea.dialnet.symbolics.com>

	Date: Tue, 30 Jun 1992 21:13 MDT
	From: William D. Gooch <gooch@tijeras.sw-sw.com>

	Although I can occasionally (usually late at night) get riverside to
	answer and give me dialnet service when I dial in, far more frequently
	my attempts at contact fail 

	This also happens with other dialnet hosts I call, [...]

    04:32:44 < Message 30204: Network error sending with MAIL-TO-USER (SMTP)
	responded inappropriately after answer ing the phone,
	indicating that the 1protocol is unsynchronized between the two peers0.
	We were attempting a :MAIL-TO-USER connection

I've seen the problem not only with Riverside, but with other dialnet
hosts as well, including both of your machines (Tijeras and Athena).

About a year ago, I put a character-stream tracer on the serial line
(see below).  Rick Dukes also put one on his machine.  The problem was
somewhat correlated (in either direction) with a situation in which the
sending host detects a carrier, then sends the salutation (its own
phone#, as I recall); however, the receiving side never sees anything.
The exercize was inconclusive as to the point of loss; however, I
started to wonder about the CDS224 modems involved.  I'd be interested
in finding out if the problem correlates to the brand & model of modem
used on either side.

;;; -*- Mode: LISP; Syntax: Common-Lisp; Package: SERIAL; Base: 10 -*-

(DefParameter 1*Serial-Trace* 0T)

(DefWhopper 1(:Next-Input-Buffer Serial-Stream)0 (&optional No-Hang-P)
  (Multiple-Value-Bind (Array Start End End-Of-Record)
      (Continue-Whopper No-Hang-P)
    (When (and *Serial-Trace* (TV:Key-State :Mode-Lock))
      (When (and Array Start End)
	(format T "~%1Incoming:0 ")
	(loop for I from Start Below End
	      For Thing = (aref Array I)
	      For Char = (ETypeCase Thing
			   (Number (Code-Char Thing))
			   (Character Thing))
	      do (SCL:write-char Char))))
    (Values Array Start End End-Of-Record)))

(DefWhopper 1(:Send-Output-Buffer Serial-Stream)0 (Array End End-Of-Record)
  (When (and *Serial-Trace* (TV:Key-State :Mode-Lock))
    (format T "~%Outgoing: ")
    (loop for I from 0 below End
	  For Thing = (aref Array I)
	  For Char = (ETypeCase Thing
		       (Number (Code-Char Thing))
		       (Character Thing))
	  do (SCL:write-char Char)))
  (Continue-Whopper Array End End-Of-Record))