|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 DFS Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 DFS Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800)
Types: EM, TextFile
Names: »DISP_IOA_HEADER.EM«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »DISP_IOA_HEADER.EM«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »DISP_IOA_HEADER.EM«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »DISP_IOA_HEADER.EM«
!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]«nul»