DataMuseum.dk

Presents historical artifacts from the history of:

RC4000/8000/9000

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RC4000/8000/9000

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦a63044154⟧ TextFile

    Length: 768 (0x300)
    Types: TextFile
    Names: »tralgol4tx  «

Derivation

└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
    └─⟦75ff9bef3⟧ 
        └─⟦this⟧ »tralgol4tx  «

TextFile


; compilation of compiler source code
; the file descriptor :
; 
;   algsource = set <modekind> <name of this tape>
; 
; must be present

lookup algsource
if ok.no
(message the file algsource not present
 finis)

algsource=changeentry algsource algsource ; file, block = 0, 0;

message slang assembly of algol source files
 
(algol=slang,
 algsource.3 ,
 algsource.4 ,
 algsource.5 ,
 algsource.6 ,
 algsource.7 ,
 algsource.8 ,
 algsource.9 ,
 algsource.10,
 algsource.11,
 algsource.12,
 algsource.13

algol)
 
scope user algol

release algsource
 
end

▶EOF◀