|
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: 531 (0x213)
Types: EM, TextFile
Names: »DISP_MAP.EM«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »DISP_MAP.EM«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »DISP_MAP.EM«
!If given a number, displays the value of the corresponding map entry
!If not given a number, displays the value of all 64 map entries
[eq,%1%,]
TYPE_MAPS [xeq IOA READ_ALL_MAPS 0 [LOOP]] 0;
TYPE_MAPS [xeq IOA READ_ALL_MAPS 1 [LOOP]] 1;
TYPE_MAPS [xeq IOA READ_ALL_MAPS 2 [LOOP]] 2;
TYPE_MAPS [xeq IOA READ_ALL_MAPS 3 [LOOP]] 3;
[else]
[#gt,%1%,3F]
write MAP,NUMBER,MUST,BE,IN,RANGE,0:3F;
DISP_MAP [read ENTER,MAP,NUMBER:,];
[else]
write MAP,%1%:,[CASE_MAP [xeq IOA READ_MAP %1% [LOOP]]];
[end]
[end]