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

⟦10a889d5e⟧ EM, TextFile

    Length: 1407 (0x57f)
    Types: EM, TextFile
    Names: »TYPE_IOA_IPC_STATUS.EM«

Derivation

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

TextFile

!Accepts fifteen IOA IPC status arguments and then displays them
write	IPC,
	[#eq,%9%,1]
	    ONLINE,
	[else]
	    OFFLINE,
	[end]
	WITH,DIAGNOSTIC,MODE,SET,FOR,
	[#case,%13%]
	    [when,0]NORMAL,OPERATION
	    [when,1]NORMAL,OPERATION
	    [when,2]SELFTEST,RUN
	    [when,3]SELFTEST,HOLD
	[endcase];
write	RECEPTION,
	[#eq,%1%,1]
	    ENABLED,FOR,
	    [#eq,%14%,1]
		EVERY,
	    [else]
		ASSIGNED,
	    [end]
	    NODE,ADDRESS
	[else]
	    DISABLED
	[end];
write	TRANSMISSION,
	[#eq,%2%,1]
	    ENABLED,FOR,STATUS,
	    [#eq,%3%,1]
		AND,DATA,
	    [else]
		ONLY,
	    [end]
	[else]
	    DISABLED,
	[end]
	AND,
	[#eq,%10%,1]
	    NOT,
	[end]
	SUSPENDED,BY,AN,XMIT,ERROR;
write	HUNTERS,
	[#eq,%11%,1]
	    DISABLED,
	[else]
	    ENABLED,
	[end]
	AND,CAPTURE,REGISTERS,
	[#eq,%12%,0]
	    NOT,
	[end]
	HELD,RESET;
write	NEW,HUNTER,SET,TO:,
	[#eq,%6%,1]
	    CAPTURE,
	[else]
	    IGNORE,
	[end]
	ANY,NEW,PACKETS,FOR,THE,IOP;
write	,,,,,,,,,,,,,,,,,,,,
	[#eq,%8%,1]
	    CAPTURE,
	[else]
	    IGNORE,
	[end]
	DATA,PACKETS,ALREADY,ACKNOWLEGED,BY,THE,IOP;
write	IOP,INTERRUPTS:,
	[#eq,%4%,1]
	    ENABLED,
	[else]
	    DISABLED,
	[end]
	FOR,NEW,BUFFERS;
write	,,,,,,,,,,,,,,,,,
	[#eq,%5%,1]
	    ENABLED,
	[else]
	    DISABLED,
	[end]
	FOR,EMPTY,BUFFERS;
write	,,,,,,,,,,,,,,,,,
	[#eq,%7%,1]
	    ENABLED,
	[else]
	    DISABLED,
	[end]
	FOR,HARD,ERRORS;
write	IO,ERROR,
	[#eq,%15%,0]
	    NOT,
	[end]
	PENDING;