|
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: 1024 (0x400)
Types: EM, TextFile
Names: »DISP_MAP.EM«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »DISP_MAP.EM«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »DISP_MAP.EM«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦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]«nul»