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

⟦2423f06df⟧ EM, TextFile

    Length: 1608 (0x648)
    Types: EM, TextFile
    Names: »POLL_ALL.EM«

Derivation

└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
    └─ ⟦this⟧ »POLL_ALL.EM« 
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
    └─ ⟦this⟧ »POLL_ALL.EM« 

TextFile

[set MC_FOUND false]

[set POLL_RESULT [poll SEQ]]
[eq [arg 2 [var POLL_RESULT]] true]
    [write SEQ HAS DETECTED A MACHINE CHECK]
    [set MC_FOUND true]
[end]

[set POLL_RESULT [poll VAL]]
[eq [arg 2 [var POLL_RESULT]] true]
    [write VAL HAS DETECTED A MACHINE CHECK]
    [set MC_FOUND true]
[end]

[set POLL_RESULT [poll TYP]]
[eq [arg 2 [var POLL_RESULT]] true]
    [write TYP HAS DETECTED A MACHINE CHECK]
    [set MC_FOUND true]
[end]

[set POLL_RESULT [poll [#eq,[model],100]SYS[else]IOC[end]]]
[eq [arg 2 [var POLL_RESULT]] true]
    [write [#eq,[model],100]SYS[else]IOC[end] HAS DETECTED A MACHINE CHECK]
    [set MC_FOUND true]
[end]

[set POLL_RESULT [poll FIU]]
[eq [arg 2 [var POLL_RESULT]] true]
    [write FIU HAS DETECTED A MACHINE CHECK]
    [set MC_FOUND true]
[end]

[eq [MEM0_EXISTS] true]
    [set POLL_RESULT [poll MEM0]]
    [eq [arg 2 [var POLL_RESULT]] true]
	[write MEM0 HAS DETECTED A MACHINE CHECK]
	[set MC_FOUND true]
    [end]
[end]
[eq [MEM1_EXISTS] true]
    [set POLL_RESULT [poll MEM1]]
    [eq [arg 2 [var POLL_RESULT]] true]
	[write MEM1 HAS DETECTED A MACHINE CHECK]
	[set MC_FOUND true]
    [end]
[end]
[eq [MEM2_EXISTS] true]
    [set POLL_RESULT [poll MEM2]]
    [eq [arg 2 [var POLL_RESULT]] true]
	[write MEM2 HAS DETECTED A MACHINE CHECK]
	[set MC_FOUND true]
    [end]
[end]
[eq [MEM3_EXISTS] true]
    [set POLL_RESULT [poll MEM3]]
    [eq [arg 2 [var POLL_RESULT]] true]
	[write MEM3 HAS DETECTED A MACHINE CHECK]
	[set MC_FOUND true]
    [end]
[end]
[eq [var MC_FOUND] false]
    [write NO MACHINE CHECKS DETECTED]
[end]
[kill POLL_RESULT]
[kill MC_FOUND]