Re: Who Wrote Fortran IV, Level G?

Article View: alt.folklore.computers

Article #621784

Back to alt.folklore.computers Previous Next

#621784

From: John Levine
Date: Wed, 11 Apr 2018 18:13

42 lines
2908 bytes

In article <palhs0$pfb$1...@dont-email.me>,
Charles Richmond  <nume...@aquaporin4.com> wrote:
>Thyere is a comment in Don Woods' original Adventure code...  that 
>references a bug in the F40 compiler code generation.  Look at he middle 
>line in the following...

That's not a code bug.  It's a library bug.  For some reason lost in the mists
of time F4/F40 called a lot of its runtime library via user UUOs, which is
so PDP-6/10 specific that I would assume a lot of the library was written at DEC.

R's,
John

>1004    READ(1,1005)LOC,(LINES(J),J=LINUSE+1,LINUSE+14),KK
>1005    FORMAT(1G,15A5)
>         IF(KK.NE.' ')CALL BUG(0)
>         IF(LOC.EQ.-1)GOTO 1002
>         DO 1006 K=1,14
>         KK=LINUSE+15-K
>         IF(LINES(KK).NE.' ')GOTO 1007
>1006    CONTINUE
>         IF(LOC.EQ.0)GOTO 1004
>C  ABOVE KLUGE IS TO AVOID F40 BUG IF CRLF BROKEN ACROSS RECORD BOUNDARY
>         CALL BUG(1)
>1007    LINES(LINUSE)=KK+1
>         IF(LOC.EQ.OLDLOC)GOTO 1020
>         LINES(LINUSE)=-LINES(LINUSE)
>         IF(SECT.EQ.12)GOTO 1013
>         IF(SECT.EQ.10)GOTO 1012
>         IF(SECT.EQ.6)GOTO 1011
>         IF(SECT.EQ.5)GOTO 1010
>         IF(SECT.EQ.1)GOTO 1008
>
>
>-- 
>numerist at aquaporin4 dot com


-- 
Regards,
John Levine, jo...@iecc.com, Primary Perpetrator of "The Internet for Dummies",
Please consider the environment before reading this e-mail. https://jl.ly

Technical Details

Message-ID: <palj7d$1us9$1@gal.iecc.com>

Path:

mbox-mo1.pugleaf.net!f13ni148qtj.0!nntp.google.com!peer02.iad!feed-me.highwinds-media.com!news.highwinds-media.com!border1.nntp.dca1.giganews.com!nntp.giganews.com!news.iecc.com!.POSTED.news.iecc.com!not-for-mail

References:

<61ed91df-177f-4e2b-993a-c53778355d6c@googlegroups.com> <pagbfn$t1o$1@dont-email.me> <pajar8$pi8$1@gal.iecc.com> <palhs0$pfb$1@dont-email.me>

Show Full Headers

Complete Article Headers

X-Received: by 10.55.158.134 with SMTP id h128mr4034615qke.4.1523470383317;        Wed, 11 Apr 2018 11:13:03 -0700 (PDT)
X-BeenThere: alt.folklore.computers@googlegroups.com
Received: by 10.55.102.4 with SMTP id a4ls1284728qkc.7.gmail; Wed, 11 Apr 2018 11:13:02 -0700 (PDT)
X-Received: by 10.55.46.195 with SMTP id u186mr3851149qkh.1.1523470382152;        Wed, 11 Apr 2018 11:13:02 -0700 (PDT)
MIME-Version: 1.0
Path: mbox-mo1.pugleaf.net!f13ni148qtj.0!nntp.google.com!peer02.iad!feed-me.highwinds-media.com!news.highwinds-media.com!border1.nntp.dca1.giganews.com!nntp.giganews.com!news.iecc.com!.POSTED.news.iecc.com!not-for-mail
From: John Levine <jo...@taugh.com>
Newsgroups: alt.folklore.computers
Subject: Re: Who Wrote Fortran IV, Level G?
Date: Wed, 11 Apr 2018 18:13:02 -0000 (UTC)
Organization: Taughannock Networks
Message-ID: <palj7d$1us9$1@gal.iecc.com>
References: <61ed91df-177f-4e2b-993a-c53778355d6c@googlegroups.com> <pagbfn$t1o$1@dont-email.me> <pajar8$pi8$1@gal.iecc.com> <palhs0$pfb$1@dont-email.me>
Injection-Date: Wed, 11 Apr 2018 18:13:02 -0000 (UTC)
Injection-Info: gal.iecc.com; posting-host="news.iecc.com:2001:470:1f07:1126:0:676f:7373:6970"; logging-data="64393"; mail-complaints-to="ab...@iecc.com"
Cleverness: some
X-Newsreader: trn 4.0-test77 (Sep 1, 2010)
Originator: jo...@iecc.com (John Levine)
Bytes: 2290
Lines: 41
X-Received-Bytes: 2319
X-Received-Body-CRC: 3653969807
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 7bit

Reply to Parent Message