|
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_BUFFER.EM«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »DISP_IOA_BUFFER.EM«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »DISP_IOA_BUFFER.EM«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »DISP_IOA_BUFFER.EM«
!Accepts a buffer number and, if given an address, displays the buffer's
!corresponding halfword. Otheriwse displays the whole buffer.
[eq,%1%,]
DISP_IOA_BUFFER [read ENTER,BUFFER,NUMBER:,];
[else]
[#gt,%1%,F]
write BUFFER,NUMBER,MUST,BE,IN,RANGE,0:F;
DISP_IOA_BUFFER [read ENTER,BUFFER,NUMBER:,] %2%;
[else]
set BUF_INFO [xeq IOA GET_MAP %1% 0];
[eq,[ARG 1 [var,BUF_INFO]],FALSE]
write BUFFER,%1%,IS,NOT,MAPPED;
[else]
set MAP [ARG 2 [var,BUF_INFO]];
[eq,%2%,]
TYPE_IOA_BUFFER [xeq IOA READ_BUFFER %1% [var,MAP] 0 0] 0 0;
TYPE_IOA_BUFFER [xeq IOA READ_BUFFER %1% [var,MAP] 1 0] 0 8;
TYPE_IOA_BUFFER [xeq IOA READ_BUFFER %1% [var,MAP] 2 0] 1 0;
TYPE_IOA_BUFFER [xeq IOA READ_BUFFER %1% [var,MAP] 3 0] 1 8;
TYPE_IOA_BUFFER [xeq IOA READ_BUFFER %1% [var,MAP] 4 0] 2 0;
TYPE_IOA_BUFFER [xeq IOA READ_BUFFER %1% [var,MAP] 5 0] 2 8;
TYPE_IOA_BUFFER [xeq IOA READ_BUFFER %1% [var,MAP] 6 0] 3 0;
TYPE_IOA_BUFFER [xeq IOA READ_BUFFER %1% [var,MAP] 7 0] 3 8;
[else]
[#gt,%2%,7F]
write HALFWORD,ADDRESS,MUST,BE,IN,RANGE,0:7F;
DISP_IOA_BUFFER %1% [read ENTER,HALFWORD,ADDRESS:,];
[else]
TYPE_IOA_BUF_HALFWORD,
[xeq IOA READ_BUF_HALFWORD %1% [var,MAP] %2% 0];
[end]
[end]
kill MAP;
[end]
kill BUF_INFO;
[end]
[end]«nul»