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

⟦455b478c8⟧ EM, TextFile

    Length: 1704 (0x6a8)
    Types: EM, TextFile
    Names: »DISP_IOA_HEADER.EM«

Derivation

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

TextFile

!If given a number, displays the header of the corresponding buffer
!If not given a number, displays the headers of all the IOA's sysbus buffers
[eq,%1%,]
    set BUF0_INFO [xeq IOA GET_MAP 0 0];
    [eq,[ARG 1 [var,BUF0_INFO]],FALSE]
	write BUFFER,0,IS,NOT,MAPPED;
    [else]
	set BUF0_MAP [ARG 2 [var,BUF0_INFO]];
	TYPE_IOA_HEADER [xeq IOA READ_HEADER 0 [var,BUF0_MAP] 0] 0;
	TYPE_IOA_HEADER [xeq IOA READ_HEADER 1 [var,BUF0_MAP] 0] 1;
	TYPE_IOA_HEADER [xeq IOA READ_HEADER 2 [var,BUF0_MAP] 0] 2;
	TYPE_IOA_HEADER [xeq IOA READ_HEADER 3 [var,BUF0_MAP] 0] 3;
	TYPE_IOA_HEADER [xeq IOA READ_HEADER 4 [var,BUF0_MAP] 0] 4;
	TYPE_IOA_HEADER [xeq IOA READ_HEADER 5 [var,BUF0_MAP] 0] 5;
	TYPE_IOA_HEADER [xeq IOA READ_HEADER 6 [var,BUF0_MAP] 0] 6;
	TYPE_IOA_HEADER [xeq IOA READ_HEADER 7 [var,BUF0_MAP] 0] 7;
	TYPE_IOA_HEADER [xeq IOA READ_HEADER 8 [var,BUF0_MAP] 0] 8;
	TYPE_IOA_HEADER [xeq IOA READ_HEADER 9 [var,BUF0_MAP] 0] 9;
	TYPE_IOA_HEADER [xeq IOA READ_HEADER A [var,BUF0_MAP] 0] A;
	TYPE_IOA_HEADER [xeq IOA READ_HEADER B [var,BUF0_MAP] 0] B;
	TYPE_IOA_HEADER [xeq IOA READ_HEADER C [var,BUF0_MAP] 0] C;
	TYPE_IOA_HEADER [xeq IOA READ_HEADER D [var,BUF0_MAP] 0] D;
	TYPE_IOA_HEADER [xeq IOA READ_HEADER E [var,BUF0_MAP] 0] E;
	TYPE_IOA_HEADER [xeq IOA READ_HEADER F [var,BUF0_MAP] 0] F;
	kill BUF0_MAP;
    [end]
    kill BUF0_INFO;
[else]
    [#gt,%1%,F]
	write BUFFER,NUMBER,MUST,BE,IN,RANGE,0:F;
	DISP_IOA_HEADER [read ENTER,BUFFER,NUMBER:,];
    [else]
	set BUF0_INFO [xeq IOA GET_MAP 0 0];
	[eq,[ARG 1 [var,BUF0_INFO]],FALSE]
	    write BUFFER,0,IS,NOT,MAPPED;
	[else]
	    TYPE_IOA_HEADER,
		[xeq IOA READ_HEADER %1% [ARG 2 [var,BUF0_INFO]] [LOOP]] %1%;
	[end]
	kill BUF0_INFO;
    [end]
[end]