DataMuseum.dk

top - download

    Length: 3121 (0xc31)
    Types: EM, TextFile
    Names: »TYPE_IOA_ERRORS.EM«

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

TextFile

!Accepts four hard error and eight xmit error arguments and displays them
write	[eq,%1%,TRUE]
	    BUFFER,STATE,ERROR:,
	    [#case,%2%]
		[when,0]CONTROL,ERROR,DURING,IOP,READ
		[when,1]ILLEGAL,STATE,DURING,IOP,COMMAND
		[when,2]BUFFER,WITH,NEW,DATA,NOT,IN,RECEIVE,STATE
		[when,3]BUFFER,WITH,NEW,STATUS,NOT,IN,UNACKED,STATE
		[when,4]SUCCESSFULLY,XMITTED,BUFFER,NOT,IN,XMIT,OR,STAT,STATE
		[when,5]UNSUCCESSFULLY,XMITTED,BUFFER,NOT,IN,XMIT,OR,STAT,STATE
		[when,6]UNASSIGNED,ERROR,CODE
		[when,7]ILLEGAL,STATE,DURING,HUNTER,ACCESS
	    [endcase]
	[else]
	    NO,BUFFER,STATE,ERROR
	[end];
write	[eq,%3%,TRUE]
	    IPC,ERROR:,
	    [#case,%4%]
		[when,0]INCONSISTENT,BUS,STATE
		[when,1]INCONSISTENT,BUS,STATE
		[when,2]MULTIPLE,SENDERS,DURING,XMIT
		[when,3]NESTED,XMIT,ERRORS
		[when,4]UNEXPECTED,LOSS,OF,BUSY,WHILE,RECEIVING
		[when,5]BID,LOCKOUT
		[when,6]INCORRECT,ABORT
		[when,7]XMIT,ERROR,IN,SELFTEST,MODE
	    [endcase]
	[else]
	    NO,IPC,ERROR
	[end];
write	[#eq,%5%,0]
	    NO,NODES
	[else]
	    [set,NCNT,0]
	    [#eq,[#extract,%5%,38,1],1]
		[set,NCNT,[add,[var,NCNT],1]]
		IOA0
	    [end]
	    [#eq,[#extract,%5%,39,1],1]
		[#ge,[var,NCNT],1]
		    [ASCII,AC],
		[end]
		[set,NCNT,[add,[var,NCNT],1]]
		IOA1
	    [end]
	    [#eq,[#extract,%5%,3A,1],1]
		[#ge,[var,NCNT],1]
		    [ASCII,AC],
		[end]
		[set,NCNT,[add,[var,NCNT],1]]
		IOA2
	    [end]
	    [#eq,[#extract,%5%,3B,1],1]
		[#ge,[var,NCNT],1]
		    [ASCII,AC],
		[end]
		[set,NCNT,[add,[var,NCNT],1]]
		IOA3
	    [end]
	    [#eq,[#extract,%5%,3C,1],1]
		[#ge,[var,NCNT],1]
		    [ASCII,AC],
		[end]
		[set,NCNT,[add,[var,NCNT],1]]
		CPU0
	    [end]
	    [#eq,[#extract,%5%,3D,1],1]
		[#ge,[var,NCNT],1]
		    [ASCII,AC],
		[end]
		[set,NCNT,[add,[var,NCNT],1]]
		CPU1
	    [end]
	    [#eq,[#extract,%5%,3E,1],1]
		[#ge,[var,NCNT],1]
		    [ASCII,AC],
		[end]
		[set,NCNT,[add,[var,NCNT],1]]
		CPU2
	    [end]
	    [#eq,[#extract,%5%,3F,1],1]
		[#ge,[var,NCNT],1]
		    [ASCII,AC],
		[end]
		[set,NCNT,[add,[var,NCNT],1]]
		CPU3
	    [end]
	    [kill NCNT]
	[end]
	,REPORTING,XMIT,ERROR;
write	[set,ECNT,0]
	[#eq,%6%,1]
	    PAK,ERROR
	    [set,ECNT,[add,[var,ECNT],1]]
	[end]
	[#eq,%7%,1]
	    [#ge,[var,ECNT],1]
		[ASCII,AC],
	    [end]
	    [set,ECNT,[add,[var,ECNT],1]]
	    RECEIVER,OFFLINE
	[end]
	[#eq,%8%,1]
	    [#ge,[var,ECNT],1]
		[ASCII,AC],
	    [end]
	    [set,ECNT,[add,[var,ECNT],1]]
	    RECEIVER,FROZEN
	[end]
	[#eq,%9%,1]
	    [#ge,[var,ECNT],1]
		[ASCII,AC],
	    [end]
	    [set,ECNT,[add,[var,ECNT],1]]
	    MULTIPLE,SENDERS
	[end]
	[#eq,%10%,1]
	    [#ge,[var,ECNT],1]
		[ASCII,AC],
	    [end]
	    [#ge,[var,ECNT],4]
		[ASCII,8D,8A]
		[set,ECNT,0]
	    [end]
	    [set,ECNT,[add,[var,ECNT],1]]
	    INCONSISTENT,LENGTH
	[end]
	[#eq,%11%,1]
	    [#ge,[var,ECNT],1]
		[ASCII,AC],
	    [end]
	    [#ge,[var,ECNT],4]
		[ASCII,8D,8A]
		[set,ECNT,0]
	    [end]
	    [set,ECNT,[add,[var,ECNT],1]]
	    NO,RECEIVE,BUFFER
	[end]
	[#eq,%12%,1]
	    [#ge,[var,ECNT],1]
		[ASCII,AC],
	    [end]
	    [#ge,[var,ECNT],4]
		[ASCII,8D,8A]
		[set,ECNT,0]
	    [end]
	    [set,ECNT,[add,[var,ECNT],1]]
	    PARITY,ERROR
	[end]
	[kill ECNT];