DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 DFS Tapes

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

See our Wiki for more about Rational R1000/400 DFS Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦29e9dd1b0⟧ EM, TextFile

    Length: 1024 (0x400)
    Types: EM, TextFile
    Names: »POLL_FOR_MC.EM«

Derivation

└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
    └─ ⟦this⟧ »POLL_FOR_MC.EM«

TextFile

[set machine_check [arg 2 [poll seq]]]
[eq,[var machine_check],false]
    [#eq,[model],100]
	[set machine_check [sor,[var machine_check],[arg 2 [poll sys]]]]
    [end]
    [#eq,[model],200]
	[set machine_check [sor,[var machine_check],[arg 2 [poll ioc]]]]
    [end]
    [set machine_check [sor,[var machine_check],[arg 2 [poll typ]]]]
    [set machine_check [sor,[var machine_check],[arg 2 [poll val]]]]
    [set machine_check [sor,[var machine_check],[arg 2 [poll fiu]]]]
    [eq [mem3_exists],true]
        [set machine_check [sor,[var machine_check],[arg 2 [poll mem3]]]]
    [end]
    [eq [mem2_exists],true]
        [set machine_check [sor,[var machine_check],[arg 2 [poll mem2]]]]
    [end]
    [eq [mem1_exists],true]
        [set machine_check [sor,[var machine_check],[arg 2 [poll mem1]]]]
    [end]
    [eq [mem0_exists],true]
        [set machine_check [sor,[var machine_check],[arg 2 [poll mem0]]]]
    [end]
[end]
[var machine_check]
[kill machine_check]«nul»