最最最最古早的编程环境“化石级”实例

[A_Zhao]

最最最最古早的编程环境“化石级”实例

下面是一支IBM 7094上的Fortran程序的源代码。

该程序的功能，是输出1000以内的素数：

$JOB           PRIME NUMBERS
$EXECUTE       IBJOB
$IBJOB         GO,LOGIC,MAP,FIOCS
$IBFTC PRIME   FULIST,REF,NODECK,M90
C
C   Prime number generator using the sieve of Eratosthenes
C
      INTEGER I,NUM,MULT,PRIME,SIZE
      DIMENSION IFLAGS(1000)
C     *** SET ENDING NUMBER TO BE TESTED (must match array dimension)
      SIZE=1000
C     *** MARK ALL NUMBERS IN THE SIEVE AS PRIME INITIALLY, EXCEPT 2
      DO 10 I=1,SIZE
   10   IFLAGS(I)=1
      IFLAGS(1)=0
C
C     *** WORK THROUGH THE LIST, FINDING THE NEXT MARKED NUMBER
C
      DO 40 NUM=1,SIZE
        IF (IFLAGS(NUM).EQ.0) GOTO 40
C       *** MARKED NUMBER IS THE CURRENT PRIME, FORM ITS FIRST MULTIPLE
        PRIME=NUM
        MULT=PRIME+PRIME
C       *** UNMARK ALL MULTIPLES OF THE CURRENT PRIME
   20   IF (MULT.GT.SIZE) GOTO 40
        DO 30 I=MULT,SIZE,PRIME
   30     IFLAGS(I)=0
C     *** GO FIND NEXT UNMARKED NUMBER
   40 CONTINUE
C
C     *** PRINT RESULTS - ALL NUMBERS THAT ARE STILL MARKED
C
      WRITE(6,900)
      DO 50 NUM=1,SIZE
        IF (IFLAGS(NUM).EQ.0) GOTO 50
        WRITE(6,901) NUM
   50 CONTINUE
      STOP
C
  900 FORMAT(22H1LIST OF PRIME NUMBERS)
  901 FORMAT(1X,I5)
      END

下面的是，在虚拟机上运行IBM 7094来编译上述程序的全部dump。对于研究编译器根本原理和历史来说，这是绝好的“化石级”实例。

编译时间（$DATE）是“063012”（今天），有图有真相：



IBM 7094是IBM 700系列（即最早的Fortran编译器实现所在）的一员，大约诞生于1959年，属于第一批晶体管计算机。

上面所展现的编译过程实况，可能是本论坛上所能找到的，最最最最古早的“编程环境”了……

呵呵……

[A_Zhao]

这就是第一个Fortran编译器实现所在的机器——IBM 704/709……又见美女了……

呵呵……

[xunxun]

这个比Fortran 66标准还早

[Conmajia]

这个编程环境算古代还是现代？

[Conmajia]

这个编程环境算古代还是现代？




这个编程环境算古代还是现代？

[W170532934]

全是爷爷辈的啊