Compiling on the 10 - Githubissues

larsbrinkhoff commented 1 year ago

I tried compiling the source files using DEC's admittedly ancient F40 compiler. It complains about a few things which I'll post in this issue. I used the command :dec sys:f40 on ITS.

CC @vaxorcist, @rcornwell

larsbrinkhoff commented 1 year ago

TREKA results:

*treka=treka
********              WRITE(5,*)' TYPE IN A RANDOM NUMBER BETWEEN 1-32767'
********                      ^
********             S-1 ILLEGAL NAME OR DELIMITER OR KEY CHARACTER
********              READ(5,*)ITOM
********                     ^
********             S-1 ILLEGAL NAME OR DELIMITER OR KEY CHARACTER
MAIN.   ERRORS DETECTED: 2
DAT.    ERRORS DETECTED: 0
GAMOVR  ERRORS DETECTED: 0
********              ITOM=INT(MOD((ITOM+ISECS),32767))
********                                              ^
********             I-8 ARGUMENT TYPE DOESN'T AGREE WITH FUNCTION SPEC
RANDO   ERRORS DETECTED: 1
HORTA   ERRORS DETECTED: 0
CYRANO  ERRORS DETECTED: 0
DI      ERRORS DETECTED: 0
ANG     ERRORS DETECTED: 0
FOSTER  ERRORS DETECTED: 0
IXIF    ERRORS DETECTED: 0
LOKI    ERRORS DETECTED: 0
ILLDAT  ERRORS DETECTED: 0
OOPS    ERRORS DETECTED: 0
ILLDAS  ERRORS DETECTED: 0

? TOTAL ERRORS DETECTED: 3

larsbrinkhoff commented 1 year ago

*trekb=trekb
********              READ(L,*,ERR=6580)WARP(IT)
********                     ^
********             S-1 ILLEGAL NAME OR DELIMITER OR KEY CHARACTER
AREX    ERRORS DETECTED: 1
CANCEL  ERRORS DETECTED: 0
********              ANGLE(IT)=REAL(A)*1.0
********                              ^
********             I-8 ARGUMENT TYPE DOESN'T AGREE WITH FUNCTION SPEC
********        77    READ(L,*,ERR=130)ANGLE(IT)
********                     ^
********             S-1 ILLEGAL NAME OR DELIMITER OR KEY CHARACTER
CHEKOV  ERRORS DETECTED: 2
********              READ(L,*,ERR=250)PUSH(IT)
********                     ^
********             S-1 ILLEGAL NAME OR DELIMITER OR KEY CHARACTER
DEFLOC  ERRORS DETECTED: 1
NODEFL  ERRORS DETECTED: 0
********              READ(L,*,ERR=5170)DISTP
********                     ^
********             S-1 ILLEGAL NAME OR DELIMITER OR KEY CHARACTER
GODOT   ERRORS DETECTED: 1
GOLLUM  ERRORS DETECTED: 0
INFO    ERRORS DETECTED: 0
INST    ERRORS DETECTED: 0
********              READ(L,*,ERR=200)DISTP
********                     ^
********             S-1 ILLEGAL NAME OR DELIMITER OR KEY CHARACTER
UHURA   ERRORS DETECTED: 1
ORWELL  ERRORS DETECTED: 0
BLOCH   ERRORS DETECTED: 0
SCOTT   ERRORS DETECTED: 0
STONE   ERRORS DETECTED: 0
ECCLE   ERRORS DETECTED: 0
TRACLC  ERRORS DETECTED: 0
NOTRAC  ERRORS DETECTED: 0
VULCAN  ERRORS DETECTED: 0
MRESS   ERRORS DETECTED: 0
SHADOW  ERRORS DETECTED: 0

? TOTAL ERRORS DETECTED: 6

larsbrinkhoff commented 1 year ago

*treka=treka.for
********              READ(5,*)ITOM
********                     ^
********             S-1 ILLEGAL NAME OR DELIMITER OR KEY CHARACTER
MAIN.   ERRORS DETECTED: 1

********              ITOM=INT(MOD((ITOM+ISECS),32767))
********                                              ^
********             I-8 ARGUMENT TYPE DOESN'T AGREE WITH FUNCTION SPEC
RANDO   ERRORS DETECTED: 1

*trekb=trekb.for
********              ANGLE(IT)=REAL(A)*1.0
********                              ^
********             I-8 ARGUMENT TYPE DOESN'T AGREE WITH FUNCTION SPEC
CHEKOV  ERRORS DETECTED: 1

***UNDEFINED LBLS***
12    
UHURA   ERRORS DETECTED: 1

*trekc=trekc.for
********        551   FORMAT(' ACQUISITION AND PROCESSING OF DILITHIUM CRYSTALS FROM SYS
********             *TEM (',I2,',',I2,') PROCEEDING. '/' PHASER ENERGY INCREASED BY',I5,
********             *' UNITS. ACQUISITION TERMINATED.')
********              ^
********             S-1 ILLEGAL NAME OR DELIMITER OR KEY CHARACTER
SULU    ERRORS DETECTED: 1

********              WRITE(L,246)IVV,I8,17
********                                 ^
********             S-1 ILLEGAL NAME OR DELIMITER OR KEY CHARACTER
MOE     ERRORS DETECTED: 1

*trekd=trekd.for
********              OPEN(UNIT=1,TYPE='OLD',READONLY,
********                          ^
********             M-26 NOT A RECOGNIZED ARGUMENT TO OPEN/CLOSE
********             *ORGANIZATION='SEQUENTIAL',NAME='KIRK.DAT')
********              OPEN(UNIT=2,TYPE='OLD',READONLY,
********                          ^
********             M-26 NOT A RECOGNIZED ARGUMENT TO OPEN/CLOSE
********             *ORGANIZATION='SEQUENTIAL',NAME='KOLOTH.DAT')
********              CLOSE(1)
********                    ^
********             M-26 NOT A RECOGNIZED ARGUMENT TO OPEN/CLOSE
********              CLOSE(2)
********                    ^
********             M-26 NOT A RECOGNIZED ARGUMENT TO OPEN/CLOSE
HARLIE  ERRORS DETECTED: 4

*treke=treke.for
********              IF(IV.GT.2) THEN
********                           ^
********             S-2 STATEMENT KEYWORD NOT RECOGNIZED
********              END IF
********                  ^
********             S-2 STATEMENT KEYWORD NOT RECOGNIZED
DOOMVE  ERRORS DETECTED: 2

*trekg=trekg.for
********              WRITE(L,406)1,HIVEL(IT,I)
********                          ^
********             S-1 ILLEGAL NAME OR DELIMITER OR KEY CHARACTER
SAURON  ERRORS DETECTED: 1

larsbrinkhoff commented 1 year ago

All compilation errors are now fixed. The linker complains ASSIGN is not defined, and it's unclear how to do terminal assignment on ITS emulating TOPS-10.

I have not found the right way for OPEN to open the two data files.

larsbrinkhoff / trek7

Compiling on the 10 #1