|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1536 (0x600)
Types: TextFile
Names: »trftn4tx «
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
└─⟦75ff9bef3⟧
└─⟦this⟧ »trftn4tx «
mode list.yes message algol translation of symbolic slang assembler lookup symslang if ok.no symslang=algol connect.no symslang3tx message symbolic slang assembly of passes 3 4 and 7 lookup pass3tx if ok.yes skip æ.1 pass3tx=set 100 if ok.no (message pass3tx set 100 not ok finis) symslang 0, 1500 ftnpass33tx pass3tx skip 1 æ lookup pass4tx if ok.yes skip æ.1 pass4tx=set 100 if ok.no (message pass4tx set 100 not ok finis) symslang 0, 1500 ftnpass43tx pass4tx skip 1 æ lookup pass7tx if ok.yes skip æ.1 pass7tx=set 100 if ok.no (message pass7tx set 100 not ok finis) symslang 0, 1500 ftnpass74tx pass7tx skip 1 æ message slang assembly of fortran source files (fortran = slang, ftnpass04tx , ftnpass13tx , ftnpass23tx , pass3tx, pass4tx, ftnpass53tx , ftnpass64tx, pass7tx, ftnpass83tx, algpass94tx fortran) scope user fortran end ▶EOF◀