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

⟦522ce1f2c⟧ EM, TextFile

    Length: 2048 (0x800)
    Types: EM, TextFile
    Names: »POLL_ALL.EM«

Derivation

└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
    └─ ⟦this⟧ »POLL_ALL.EM« 
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
    └─ ⟦this⟧ »POLL_ALL.EM« 
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
    └─ ⟦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]

«nul»