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