TheBackShed.com

Forum Index : Microcontroller and PC projects : early IBM360 program

Author

Message

zeitfest
Guru

Joined: 31/07/2019
Location: Australia
Posts: 621

Posted: 11:26pm 24 Jan 2020

Copy link to clipboard

Print this post

Ah yes..
I guess this is a program embedded in a IBM job run set ?
Not sure what language (edit - early fortran? the double-equals assignments have me puzzled)...any comments welcome �

Edited 2020-01-25 09:30 by zeitfest

JohnS
Guru

Joined: 18/11/2011
Location: United Kingdom
Posts: 4137

Posted: 11:40pm 24 Jan 2020

Copy link to clipboard

Print this post

Not FORTRAN. More like an ALGOL (clue is PROCEDURE) but it's badly structured and so on. Maybe the very earliest, was it Algol 58?

A dinosaur, at any rate or from their time!

(Used to call the era of mainframes the time of the dinosaurs.)

John

zeitfest
Guru

Joined: 31/07/2019
Location: Australia
Posts: 621

Posted: 09:24pm 26 Jan 2020

Copy link to clipboard

Print this post

I did wonder about algol, because of the double-equals assignment symbol, but the earliest algol reference I had �was about algol-60, now i see there was a committee spec report 1958 as you suggest ! The dawn of 2gls..

Squinting more at it, there is a date 1958 on it and also "IITRAN" , as it turns out IITRAN was an IT system in Illinois not fortran but based on it. It was created to be more user-friendly than the ibm360 standard usage at the time.

It's the earliest printout I have seen. Not sure about the structure, maybe it was to cut processing time given the expense. Compile time is listed as 2.8 seconds ! Makes me miss the air conditioning � �

�

I am tempted to type it in and try to run it . (ed - ie the equivalent)
Edited 2020-01-27 07:28 by zeitfest

bigmik

Guru

Joined: 20/06/2011
Location: Australia
Posts: 2971

Posted: 12:18am 27 Jan 2020

Copy link to clipboard

Print this post

Congratulations Zeitfest,

You have found some ancient Babylonian script depicting flying machines and alien implanting of the human race.

Well that�s what it looks like to me.

Regards,

Mick

Mick's uMite Stuff can be found >>> HERE (Kindly hosted by Dontronics) <<<

zeitfest
Guru

Joined: 31/07/2019
Location: Australia
Posts: 621

Posted: 11:03am 27 Jan 2020

Copy link to clipboard

Print this post

I should have turned left at the Pyramids �

And now this tablet won't keep the stylus marks �

Edited 2020-01-27 21:04 by zeitfest

Print this page

To reply to this topic, you need to log in.