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