|
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: 1343 (0x53f)
Types: EM, TextFile
Names: »RM.EM«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »RM.EM«
! Runs the CPU. A "NO" arg suppresses perr checking. Must run PREP or CFH first.
! We need CLEAR_PARITY expers in case PREP wasn't run (CFH)? Can delete if not.
[restore_mem_state] !leaves mems in Maintain_Freeze
[xeq typ clear_parity] !does a RESET_WARM like MF
[xeq val clear_parity] !does a RESET_WARM like MF
[xeq fiu clear_parity] !does a RESET_WARM like MF
[xeq seq clear_parity] !doesn't RESET_WARM like MF so
[xeq seq reset] !does a RESET_WARM (EJP's calls it RESET.BENIGN)
[#eq,[model],100]
[xeq sys clear_parity] !doesn't RESET_WARM so
[xeq sys mf] !does a RESET.WARM
[xeq sys reset] !does a RESET.COLD
[end]
[#eq,[model],200]
[xeq ioc load_pareg FF 0]
[xeq ioc mf] !does a RESET.WARM
[end]
[set DID_SM_SINCE_RM FALSE]
[xeq fiu freeze_world]
[eq,%1%,NO]
[xeq seq run_check]
[xeq typ run_normal]
[xeq val run_normal]
[#eq,[model],100][xeq sys run_check][end]
[#eq,[model],200][xeq ioc run_check][end]
[for_all_mem run_check]
[xeq fiu run_normal]
[else]
[xeq seq run_nocheck] !was RUN_CHECK but RUN_NOCHECK allows HALTs now?
[xeq typ run_nocheck]
[xeq val run_nocheck]
[#eq,[model],100][xeq sys run_nocheck][end]
[#eq,[model],200][xeq ioc run_nocheck][end]
[for_all_mem run_nocheck]
[xeq fiu run_nocheck]
[end]