It is my understanding from recent postings here that a mail message will
not be sent to the list if it contains the original headers. Well this
message (or messages like it) have been hitting CYBER-L often. What is
happening here. I see the sender is [log in to unmask] Did they break
their listserv like the persion posting to this list was talking about doing
to let mail that contained the original listserv generated headers be posted
there for letting these messages fill the CYBER-L list?
Chad Adams
-------------------(message from cyber-l)-----------------------------------
Received: From <MAILER@UICVM> for <XBBSERV@ECNCDC>
via RSCS by ECNCDC; Fri, 06 Apr 1990 07:33 CDT
Received: by UICVM (Mailer R2.03B) id 4694; Fri, 06 Apr 90 07:32:59 CDT
Date: Tue, 3 Apr 90 13:59:00 BST
Reply-To: CYBER List <CYBER-L@BITNIC>
Sender: CYBER List <CYBER-L@BITNIC>
From: [log in to unmask]
Subject: %% Undelivered Mail %%
To: "Anthony J. Schaeffer" <[log in to unmask]>,
"W. P. McGown" <[log in to unmask]>,
Fred Seaton <[log in to unmask]>,
"ECN's Bulletin Board Server (CYBER_L)" <[log in to unmask]>,
Ed Shirey <[log in to unmask]>
Your mail was not delivered as follows:
%MAIL-E-SENDERR, error sending to user AJH8
%MAIL-E-OPENOUT, error opening !AS as output
-RMS-E-CRE, ACP file create failed
-SYSTEM-F-EXDISKQUOTA, disk quota exceeded
%MAIL-E-SENDERR, error sending to user AJH8
-MAIL-E-OPENOUT, error opening !AS as output
-RMS-E-CRE, ACP file create failed
-SYSTEM-F-EXDISKQUOTA, disk quota exceeded
Your original mail header and message follow.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Via: UK.AC.EARN-RELAY; Tue, 3 Apr 90 13:58 BST
Received: from UKACRL by UK.AC.RL.IB (Mailer X1.25) with BSMTP id 9857; Tue, 03
Apr 90 02:52:27 BS
Received: by UKACRL (Mailer X1.25) id 9363; Tue, 03 Apr 90 02:52:25 BST
Date: Mon, 2 Apr 90 12:41:00 BST
Reply-To: CYBER List <[log in to unmask]>
Sender: CYBER List <[log in to unmask]>
From: [log in to unmask]
Subject: %% Undelivered Mail %%
To: "Anthony J. Hirst." <[log in to unmask]>
Your mail was not delivered as follows:
%MAIL-E-SENDERR, error sending to user AJH8
%MAIL-E-OPENOUT, error opening !AS as output
-RMS-E-CRE, ACP file create failed
-SYSTEM-F-EXDISKQUOTA, disk quota exceeded
%MAIL-E-SENDERR, error sending to user AJH8
-MAIL-E-OPENOUT, error opening !AS as output
-RMS-E-CRE, ACP file create failed
-SYSTEM-F-EXDISKQUOTA, disk quota exceeded
Your original mail header and message follow.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Via: UK.AC.EARN-RELAY; Mon, 2 Apr 90 12:41 BST
Received: from UKACRL by UK.AC.RL.IB (Mailer X1.25) with BSMTP id 5185; Mon, 02
Apr 90 12:40:34 BS
Received: by UKACRL (Mailer X1.25) id 6846; Mon, 02 Apr 90 12:40:33 BST
Date: Sun, 1 Apr 90 22:49:00 BST
Reply-To: CYBER List <[log in to unmask]>
Sender: CYBER List <[log in to unmask]>
From: [log in to unmask]
Subject: %% Undelivered Mail %%
To: "Anthony J. Hirst." <[log in to unmask]>
Your mail was not delivered as follows:
%MAIL-E-SENDERR, error sending to user AJH8
%MAIL-E-OPENOUT, error opening !AS as output
-RMS-E-CRE, ACP file create failed
-SYSTEM-F-EXDISKQUOTA, disk quota exceeded
%MAIL-E-SENDERR, error sending to user AJH8
-MAIL-E-OPENOUT, error opening !AS as output
-RMS-E-CRE, ACP file create failed
-SYSTEM-F-EXDISKQUOTA, disk quota exceeded
Your original mail header and message follow.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Via: UK.AC.EARN-RELAY; Sun, 1 Apr 90 22:48 BST
Received: from UKACRL by UK.AC.RL.IB (Mailer X1.25) with BSMTP id 9003; Sun, 01
Apr 90 22:25:59 BS
Received: by UKACRL (Mailer X1.25) id 2606; Sun, 01 Apr 90 22:25:53 BST
Date: Fri, 30 Mar 90 14:17:51 GMT
Reply-To: CYBER List <[log in to unmask]>
Sender: CYBER List <[log in to unmask]>
From: [log in to unmask]
Subject: Re: CDC nostalgia
To: "Anthony J. Hirst." <[log in to unmask]>
CDC 6400 in 1970, running SCOPE 3.1.6, soon 3.3, and in 1973 SCOPE 3.4! Cannot
determine the serial number, since it was retired in 1980 after 12 amazing years
of service. How in the world would I get the SN?
Steve Lidie
Lehigh University Computing Center
[log in to unmask]
Now, for those of you who had access to the twin-tube console, can you name the
program from which this code fragment was extracted?
IDENT ?????,TDET,???
ABS
TITLE ????? - ????? ??????? SIMULATOR.
EJECT
*** ????? - ????? ??????? SIMULATOR.
*
*
* VERSION 1 - 03/01/70.
* L. R. ATKIN.
* C. G. FILSTEAD.
* D. J. SLATE.
*
*
* VERSION 2 - 08/16/70.
* C. G. FILSTEAD.
SPACE 4
**** LOW CORE CELL ASSIGNMENTS.
FL EQU 3 FIELD LENGTH
HT EQU 4 ALTITUDE
IP EQU 5 IMPACT LATITUDE
IT EQU 6 IMPACT LONGITUDE
MD EQU 7 TRAJECTORY MODE
MR EQU 10B MAGNITUDE OF RADIUS VECTOR
IF EQU 11B INITIALIZATION MODE FLAG
MV EQU 12B MAGNITUDE OF VELOCITY VECTOR
OP EQU 13B ORBITAL PERIOD
PH EQU 14B CURRENT LATITUDE
PP EQU 15B PERIGEE LATITUDE
PT EQU 16B PERIGEE LONGITUDE
RM EQU 17B ROLL MAGNITUDE
SF EQU 20B SURFACE CONTACT FLAG
TH EQU 21B CURRENT LONGITUDE
TA EQU 22B TRAJECTORY APOGEE
TM EQU 23B CURRENT TIME
TP EQU 24B TRAJECTORY PERIGEE
TV EQU 25B TANGENTIAL VELOCITY
DF EQU 26B DISPLAY CHANGE FLAG
DI EQU 27B DISPLAY INDEX
FM EQU 30B FORCE MAGNITUDE
TE EQU 31B TRAJECTORY ECCENTRICITY
PD EQU 32B PORT VIEWING DIRECTION
BA EQU 33B BETA ACCELERATION
CA EQU 34B GAMMA ACCELERATION
S0 EQU 40B SCRATCH CELL
.
.
.
.
DSS SPACE 4,10
** DSS - DISPLAY STARS.
* ENTRY (A1) = ADDRESS-1 OF DATA TABLE.
* (A7) = DISPLAY BUFFER ADDRESS.
* (X7) = COORDINATE BUFFER.
* (B2) = 6+18*PRIMARY DIRECTION COSINE NUMBER.
* (T1) = VIEW DIRECTION.
* (T2) = T1 X OB.
* (DSSA) = PLUGGED (PL) OR (NG) INSTRUCTION.
* (TDSS) = PRE-COMPUTED DATA TABLE.
* EXIT (X7) = COORDINATE BUFFER.
* (A7) = DISPLAY BUFFER ADDRESS.
* USES ALL REGISTERS EXCEPT A0, B2.
DSS PS 0 ENTRY/EXIT
SB3 -17
SB5 60
SB6 TACS
DSS1 SA1 A1+B1 READ NEXT DATUM
ZR X1,DSS RETURN IF END OF TABLE
LX6 X1,B2 ELSE, CHECK PRIMARY DIRECTION COSINE
DSSA NG X6,DSS1 LOOP IF BEHIND VIEWING AREA
* UNPACK DIRECTION COSINES AND MAGNITUDE.
SX3 X1 (X3) = COS(Z)
AX1 18
SX2 X1 (X2) = COS(Y)
MX0 -6
LX1 24
BX6 -X0*X1 UNPACK MAGNITUDE
AX1 42 (X1) = COS(X)
PX2 X2,B3
PX3 X3,B3
SB4 X6
* COMPUTE ANGLE BETWEEN STAR AND CENTER OF PORT.
SA4 T1 =T1(X)
PX1 X1,B3
NX2 X2
SA5 A4+B1 =T1(Y)
NX3 X3
NX1 X1
FX6 X2*X5 S(Y)*T1(Y)
FX5 X1*X4 S(X)*T1(X)
SA4 A5+B1 =T1(Z)
FX0 X5+X6 S(X)*T1(X)+S(Y)*T1(Y)
FX4 X3*X4 S(Z)*T1(Z)
SA5 ="PRCOS"
FX0 X0+X4
FX6 X0-X5
NG X6,DSS1 IF OFF SCREEN
* COMPUTE ANGLE BETWEEN STAR AND CENTER OF ????.
SA5 TDSS =RU(Y)/RU(X)
SA4 A5+B1 =RU(Z)/RU(X)
FX6 X2*X5 S(Y)*RU(Y)/RU(X)
FX0 X3*X4 S(Z)*RU(Z)/RU(X)
SA5 A4+B1 =COS(MOON APPARENT ANGULAR RADIUS)/-RU(X)
FX0 X0+X1
FX0 X0+X6
FX6 X0+X5
BX6 X5-X6
NG X6,DSS1 IF BEHIND ????
* COMPUTE DISPLAY COORDINATES.
SA4 T2 = T1 X OB
SA5 A4+B1 =T2(Y)
FX0 X4*X1 T2(X)*S(X)
FX6 X5*X2 T2(Y)*S(Y)
SA4 A5+B1 =T2(Z)
FX0 X0+X6 T2(X)*S(X)+T2(Y)*S(Y)
FX5 X4*X3 T2(Z)*S(Z)
NX0 X0
FX0 X0+X5 S . T2
SA4 OB =OB(X)
UX0 X0,B7
FX6 X4*X1 OB(X)*S(X)
SA5 A4+B1 =OB(Y)
SB7 B7+10
FX5 X5*X2 OB(Y)*S(Y)
SA4 A5+B1 =OB(Z)
LX0 X0,B7 COS(X)*1024
FX1 X5+X6 OB(X)*S(X)+OB(Y)*S(Y))
FX2 X4*X3 OB(Z)*S(Z)
NX1 X1
FX1 X1+X2 S . OB
UX1 X1,B7
AX2 X0,B5
SB7 B7+10
LX1 X1,B7 COS(Y)*1024
BX5 X0-X2 ABS(COS(X))
AX3 X1,B5
SA4 X5+B6 READ X COORDINATE
BX6 X1-X3 ABS(COS(Y))
BX4 X4-X2
SA5 X6+B6 READ Y COORDINATE
SX4 X4+6000B+XPORT
BX5 X5-X3
LX7 12
SX5 X5+7000B+YPORT
* DISPLAY STAR.
BX7 X7+X4 SET X COORDINATE
PL X7,DSS2 IF BUFFER NOT FULL
SA7 A7+B1 ELSE, WRITE BUFFER
MX7 0
DSS2 NG B4,DSS1 IF INTENSIFICATION COMPLETED
LX7 12 ELSE, INSERT ANOTHER Y COORDINATE
BX7 X7+X5
SB4 B4-B1 ADVANCE MAGNITUDE
PL X7,DSS2 IF BUFFER NOT FULL
SA7 A7+B1
MX7 0
EQ DSS2
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
End of returned mail
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
End of returned mail
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
End of returned mail
|