Piece of classic FORTRAN code

From: Richard Erlacher <edick_at_idcomm.com>
Date: Tue Feb 9 09:42:41 1999

Golly! That does bring back the memories . . . but wasn't the CDC6xxx
family 64 bits? I cut my teeth on that one, back in the mid 1960's and it
seems that it (the 6600) was a dual-processor version of the 64-bit 6400.

Those were the days . . . FORTRAN-II, SCOPE OS, COMPASS assembler . . .
batch processing . . . (that meant you wrote your code on a 24-line
80-column "coding sheet" and, when finished, gave them to a woman behind a
door with a small window in it . . . and got your error listing a few days
later) . . . I'd have given a week's pay for an hour in that room behind
the door . . . mini-skirts . . . (you do remember keypunch operators and
Hollerith cards, don't you?)
 
Dick
----------
> From: Sergey Svishchev <svs_at_ropnet.ru>
> To: Discussion re-collecting of classic computers
<classiccmp_at_u.washington.edu>
> Subject: Piece of classic FORTRAN code
> Date: Tuesday, February 09, 1999 2:34 AM
>
> G'day,
>
> IF (COMPLF(-1).LE.2) IF (RSHIFT(COMPLF(0),32)-15) 360,1108,6600
> C IF (NOT(-1).LE.2) IF (ISHFT(NOT(0),-32)-15) 360,1108,6600
> 7094 PRINT *,'IBM 7094'
> STOP
> 360 PRINT *,'IBM 360 (32 BITS)'
> STOP
> 1108 PRINT *,'UNIVAC 1108 (48 BITS)'
> STOP
> 6600 PRINT *,'CDC 6600 (60 BITS)'
> STOP
>
> --
> Sergey Svishchev -- svs{at}ropnet{dot}ru
Received on Tue Feb 09 1999 - 09:42:41 GMT