|
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: 1329 (0x531)
Types: EM, TextFile
Names: »RESTORE_MEM_STATE.EM«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »RESTORE_MEM_STATE.EM«
! Must do RESTORE_RDR_TVR starting with the highest priority board so that
! SET_INH doesn't screw the experiment. This experiment clears DRIVE_HIT,
! preventing a SET_INH to the next board. The RESTORE_STATE experiments
! set DRIVE_HIT in case state was saved when it was false. They also
! clear parity errors and leave the DFSM in the MAINTAIN_FREEZE state.
[eq [mem3_exists],TRUE]
xeq mem3 restore_rdr_tvr [var mem3.rdr] [var mem3.tvr] [var mem3.hits] 0C0;
[end]
[eq [mem2_exists],TRUE]
xeq mem2 restore_rdr_tvr [var mem2.rdr] [var mem2.tvr] [var mem2.hits] 080;
[end]
[eq [mem1_exists],TRUE]
xeq mem1 restore_rdr_tvr [var mem1.rdr] [var mem1.tvr] [var mem1.hits] 040;
[end]
[eq [mem0_exists],TRUE]
xeq mem0 restore_rdr_tvr [var mem0.rdr] [var mem0.tvr] [var mem0.hits] 000;
[end]
[eq [mem3_exists],TRUE]
xeq mem3 restore_state [var mem3.mar] [var mem3.wdr],
[var mem3.misc] [var mem3.cntl] TRUE;
[end]
[eq [mem2_exists],TRUE]
xeq mem2 restore_state [var mem2.mar] [var mem2.wdr],
[var mem2.misc] [var mem2.cntl] TRUE;
[end]
[eq [mem1_exists],TRUE]
xeq mem1 restore_state [var mem1.mar] [var mem1.wdr],
[var mem1.misc] [var mem1.cntl] TRUE;
[end]
[eq [mem0_exists],TRUE]
xeq mem0 restore_state [var mem0.mar] [var mem0.wdr],
[var mem0.misc] [var mem0.cntl] TRUE;
[end]