DataMuseum.dk

top - download

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

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