|
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: 1084 (0x43c)
Types: EM, TextFile
Names: »DISP_DIAG_BUFFER.EM«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »DISP_DIAG_BUFFER.EM«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »DISP_DIAG_BUFFER.EM«
!Accepts a diagnostic buffer number and, if given an address, displays the
!buffer's corresponding halfword. Otheriwse displays all the whole buffer.
[eq,%1%,]
DISP_DIAG_BUFFER [read ENTER,BUFFER,NUMBER:,];
[else]
[#gt,%1%,F]
write BUFFER,NUMBER,MUST,BE,IN,RANGE,0:F;
DISP_DIAG_BUFFER [read ENTER,BUFFER,NUMBER:,] %2%;
[else]
[eq,%2%,]
TYPE_DIAG_BUFFER [xeq IOA READ_DIAG_BUFFER %1% 0 0] 0;
TYPE_DIAG_BUFFER [xeq IOA READ_DIAG_BUFFER %1% 1 0] 8;
TYPE_DIAG_BUFFER [xeq IOA READ_DIAG_BUFFER %1% 2 0] 10;
TYPE_DIAG_BUFFER [xeq IOA READ_DIAG_BUFFER %1% 3 0] 18;
TYPE_DIAG_BUFFER [xeq IOA READ_DIAG_BUFFER %1% 4 0] 20;
TYPE_DIAG_BUFFER [xeq IOA READ_DIAG_BUFFER %1% 5 0] 28;
TYPE_DIAG_BUFFER [xeq IOA READ_DIAG_BUFFER %1% 6 0] 30;
TYPE_DIAG_BUFFER [xeq IOA READ_DIAG_BUFFER %1% 7 0] 38;
[else]
[#gt,%2%,7F]
write HALFWORD,ADDRESS,MUST,BE,IN,RANGE,0:7F;
DISP_DIAG_BUFFER %1% [read ENTER,HALFWORD,ADDRESS:,];
[else]
write HALFWORD,%2%:,
[xeq IOA READ_DIAG_HALFWORD %1% %2% 0];
[end]
[end]
[end]
[end]