Article View: alt.folklore.computers
Article #621783Re: Who Wrote Fortran IV, Level G?
From: Charles Richmond
Date: Wed, 11 Apr 2018 17:50
Date: Wed, 11 Apr 2018 17:50
39 lines
3335 bytes
3335 bytes
On 4/10/2018 4:37 PM, John Levine wrote:
> In article <pagbfn$t1o$1...@dont-email.me>,
> Sarr Blumson <sarr.blumson@alum.dartmouth.orgq> wrote:
>> Digitek. They actually had a compiler written for a stack oriented
>> pseudo machine that they then wrote interpreters for to fit on small
>> machines. I believe the first was the SDS 910 but many small
>> hardware builders were customers. F4/40 for the PDP 6/10, for example.
>
> Sounds right. F4/40 generated machine code but it was pretty poor, and
> I could easily believe it was macro expanded from a stack pseudomachine.
>
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...
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
Technical Details
Message-ID:
<palhs0$pfb$1@dont-email.me>Path:
mbox-mo1.pugleaf.net!e12ni3030qtp.1!nntp.google.com!peer01.iad!feed-me.highwinds-media.com!peer01.am4!peer.am4.highwinds-media.com!news.highwinds-media.com!peer01.ams1!peer.ams1.xlned.com!news.xlned.com!newsfeed.xs4all.nl!newsfeed7.news.xs4all.nl!feeder.erje.net!1.eu.feeder.erje.net!weretis.net!feeder4.news.weretis.net!news.unit0.net!eternal-september.org!feeder.eternal-september.org!reader02.eternal-september.org!.POSTED!not-for-mailReferences:
<61ed91df-177f-4e2b-993a-c53778355d6c@googlegroups.com> <pagbfn$t1o$1@dont-email.me> <pajar8$pi8$1@gal.iecc.com>Show Full Headers
Complete Article Headers
X-Received: by 10.55.77.14 with SMTP id a14mr3912574qkb.47.1523468994354; Wed, 11 Apr 2018 10:49:54 -0700 (PDT) X-BeenThere: alt.folklore.computers@googlegroups.com Received: by 10.55.102.4 with SMTP id a4ls1251003qkc.7.gmail; Wed, 11 Apr 2018 10:49:53 -0700 (PDT) X-Received: by 10.55.53.202 with SMTP id c193mr3243379qka.30.1523468993486; Wed, 11 Apr 2018 10:49:53 -0700 (PDT) Path: mbox-mo1.pugleaf.net!e12ni3030qtp.1!nntp.google.com!peer01.iad!feed-me.highwinds-media.com!peer01.am4!peer.am4.highwinds-media.com!news.highwinds-media.com!peer01.ams1!peer.ams1.xlned.com!news.xlned.com!newsfeed.xs4all.nl!newsfeed7.news.xs4all.nl!feeder.erje.net!1.eu.feeder.erje.net!weretis.net!feeder4.news.weretis.net!news.unit0.net!eternal-september.org!feeder.eternal-september.org!reader02.eternal-september.org!.POSTED!not-for-mail From: Charles Richmond <nume...@aquaporin4.com> Newsgroups: alt.folklore.computers Subject: Re: Who Wrote Fortran IV, Level G? Date: Wed, 11 Apr 2018 12:50:13 -0500 Organization: A noiseless patient Spider Lines: 39 Message-ID: <palhs0$pfb$1@dont-email.me> References: <61ed91df-177f-4e2b-993a-c53778355d6c@googlegroups.com> <pagbfn$t1o$1@dont-email.me> <pajar8$pi8$1@gal.iecc.com> Reply-To: nume...@aquaporin4.com Mime-Version: 1.0 Injection-Date: Wed, 11 Apr 2018 17:49:53 -0000 (UTC) Injection-Info: reader02.eternal-september.org; posting-host="6fbea3ed26bf13fed0d4daa2a9691071"; logging-data="26091"; mail-complaints-to="ab...@eternal-september.org"; posting-account="U2FsdGVkX19JSUZyAzS7HPu7QoIjAWnZF5wW1FIPK4c=" User-Agent: Mozilla/5.0 (Windows NT 10.0; WOW64; rv:52.0) Gecko/20100101 Thunderbird/52.7.0 In-Reply-To: <pajar8$pi8$1@gal.iecc.com> Cancel-Lock: sha1:O5s605RUCCU7akG+L2u14HDl7ow= X-Received-Bytes: 2916 X-Received-Body-CRC: 2848252805 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 7bit