|
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: 7360 (0x1cc0)
Types: EM, TextFile
Names: »DISPLAY_SEQ_STATE.EM«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »DISPLAY_SEQ_STATE.EM«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »DISPLAY_SEQ_STATE.EM«
[set SAVE_UIR [xeq seq read_uir]] [set SAVE_MISC [xeq seq read_misc]] [set SAVE_DEC [xeq seq read_dec]] [set Q_SAVE_TUIR [xeq typ read_uir 0]] [ xeq typ load_benign_uword] [set SAVE_SDR [xeq seq read_sdr]] ! SDR [write SDR,=,[var save_sdr]] ! PC [write CURRENT_UADR = [arg 1 [var save_misc]]] ! CINS [write CURRENT MACRO INSTRUCTION = [xeq seq test_read_cur_instr 0]] ! CP [xeq seq set_to_no_dispatch] [set trash [xeq seq test_read_pred 0]] [set sdr [xeq seq read_sdr]] [write CONTROL_PRED,=,[#extract [arg 1 [var sdr]],20,20]] ! SAVE_OFFSET ![xeq seq set_to_no_dispatch] [set trash [xeq seq test_read_return_pc]] [set return_pc [xeq seq read_sdr]] [write SAVE_OFFSET,,=,[#extract [arg 1 [var return_pc]],20,20]] ! MPC [set macro_pc [xeq seq test_read_macro_pc 0]] [set sdr [xeq seq read_sdr]] [write MACRO_PC,,,,,=,[arg 2 [var sdr]]] [set save_current_lex [#extract [arg 2 [var sdr]],3c,4]] ! RPC [write RETURN_PC,,,,=,[arg 2 [var return_pc]]] [kill return_pc] ! IBUFF [set ibuff [xeq seq test_read_ibuff 0]] [write IBUFF,,,,,,,,=,[var ibuff]] [xeq seq test_load_macro_pc 0 [var macro_pc]] [kill macro_pc] ! DSP [set trash [xeq seq test_read_resolve 0 0]] [set sdr [xeq seq read_sdr]] [write RESOLVE_0,,,,=,[arg 1 [var sdr]]] [set trash [xeq seq test_read_resolve 0 1]] [set sdr [xeq seq read_sdr]] [write RESOLVE_1,,,,=,[arg 1 [var sdr]]] [set trash [xeq seq test_read_resolve 0 2]] [set sdr [xeq seq read_sdr]] [write RESOLVE_2,,,,=,[arg 1 [var sdr]]] [set trash [xeq seq test_read_resolve 0 3]] [set sdr [xeq seq read_sdr]] [write RESOLVE_3,,,,=,[arg 1 [var sdr]]] [set trash [xeq seq test_read_resolve 0 4]] [set sdr [xeq seq read_sdr]] [write RESOLVE_4,,,,=,[arg 1 [var sdr]]] [set trash [xeq seq test_read_resolve 0 5]] [set sdr [xeq seq read_sdr]] [write RESOLVE_5,,,,=,[arg 1 [var sdr]]] [set trash [xeq seq test_read_resolve 0 6]] [set sdr [xeq seq read_sdr]] [write RESOLVE_6,,,,=,[arg 1 [var sdr]]] [set trash [xeq seq test_read_resolve 0 7]] [set sdr [xeq seq read_sdr]] [write RESOLVE_7,,,,=,[arg 1 [var sdr]]] [set trash [xeq seq test_read_resolve 0 8]] [set sdr [xeq seq read_sdr]] [write RESOLVE_8,,,,=,[arg 1 [var sdr]]] [set trash [xeq seq test_read_resolve 0 9]] [set sdr [xeq seq read_sdr]] [write RESOLVE_9,,,,=,[arg 1 [var sdr]]] [set trash [xeq seq test_read_resolve 0 A]] [set sdr [xeq seq read_sdr]] [write RESOLVE_A,,,,=,[arg 1 [var sdr]]] [set trash [xeq seq test_read_resolve 0 B]] [set sdr [xeq seq read_sdr]] [write RESOLVE_B,,,,=,[arg 1 [var sdr]]] [set trash [xeq seq test_read_resolve 0 C]] [set sdr [xeq seq read_sdr]] [write RESOLVE_C,,,,=,[arg 1 [var sdr]]] [set trash [xeq seq test_read_resolve 0 D]] [set sdr [xeq seq read_sdr]] [write RESOLVE_D,,,,=,[arg 1 [var sdr]]] [set trash [xeq seq test_read_resolve 0 E]] [set sdr [xeq seq read_sdr]] [write RESOLVE_E,,,,=,[arg 1 [var sdr]]] [set trash [xeq seq test_read_resolve 0 F]] [set sdr [xeq seq read_sdr]] [write RESOLVE_F,,,,=,[arg 1 [var sdr]]] [xeq seq test_load_cur_lex 0 [var save_current_lex]] [kill save_current_lex] ! VALIDITY [write VALIDITY LEX_LEVEL 0 =,[not_flag [xeq seq test_condition 0 0 43]]] [write VALIDITY LEX_LEVEL 1 =,[not_flag [xeq seq test_condition 0 1 43]]] [write VALIDITY LEX_LEVEL 2 =,[not_flag [xeq seq test_condition 0 2 43]]] [write VALIDITY LEX_LEVEL 3 =,[not_flag [xeq seq test_condition 0 3 43]]] [write VALIDITY LEX_LEVEL 4 =,[not_flag [xeq seq test_condition 0 4 43]]] [write VALIDITY LEX_LEVEL 5 =,[not_flag [xeq seq test_condition 0 5 43]]] [write VALIDITY LEX_LEVEL 6 =,[not_flag [xeq seq test_condition 0 6 43]]] [write VALIDITY LEX_LEVEL 7 =,[not_flag [xeq seq test_condition 0 7 43]]] [write VALIDITY LEX_LEVEL 8 =,[not_flag [xeq seq test_condition 0 8 43]]] [write VALIDITY LEX_LEVEL 9 =,[not_flag [xeq seq test_condition 0 9 43]]] [write VALIDITY LEX_LEVEL A =,[not_flag [xeq seq test_condition 0 A 43]]] [write VALIDITY LEX_LEVEL B =,[not_flag [xeq seq test_condition 0 B 43]]] [write VALIDITY LEX_LEVEL C =,[not_flag [xeq seq test_condition 0 C 43]]] [write VALIDITY LEX_LEVEL D =,[not_flag [xeq seq test_condition 0 D 43]]] [write VALIDITY LEX_LEVEL E =,[not_flag [xeq seq test_condition 0 E 43]]] [write VALIDITY LEX_LEVEL F =,[not_flag [xeq seq test_condition 0 F 43]]] ! LATCHED_CONDITION [write LATCHED_CONDITION = ,[xeq seq test_condition 0 0 46]] ! USTACKS [set trash [xeq seq read_top_ustack]] [set sdr [xeq seq read_sdr]] [write uStack-0,,=,[#extract [arg 2 [var sdr]],30,10]] [set trash [xeq seq test_return [loop]]] [set trash [xeq seq read_top_ustack]] [set sdr [xeq seq read_sdr]] [write uStack-1,,=,[#extract [arg 2 [var sdr]],30,10]] [set trash [xeq seq test_return [loop]]] [set trash [xeq seq read_top_ustack]] [set sdr [xeq seq read_sdr]] [write uStack-2,,=,[#extract [arg 2 [var sdr]],30,10]] [set trash [xeq seq test_return [loop]]] [set trash [xeq seq read_top_ustack]] [set sdr [xeq seq read_sdr]] [write uStack-3,,=,[#extract [arg 2 [var sdr]],30,10]] [set trash [xeq seq test_return [loop]]] [set trash [xeq seq read_top_ustack]] [set sdr [xeq seq read_sdr]] [write uStack-4,,=,[#extract [arg 2 [var sdr]],30,10]] [set trash [xeq seq test_return [loop]]] [set trash [xeq seq read_top_ustack]] [set sdr [xeq seq read_sdr]] [write uStack-5,,=,[#extract [arg 2 [var sdr]],30,10]] [set trash [xeq seq test_return [loop]]] [set trash [xeq seq read_top_ustack]] [set sdr [xeq seq read_sdr]] [write uStack-6,,=,[#extract [arg 2 [var sdr]],30,10]] [set trash [xeq seq test_return [loop]]] [set trash [xeq seq read_top_ustack]] [set sdr [xeq seq read_sdr]] [write uStack-7,,=,[#extract [arg 2 [var sdr]],30,10]] [set trash [xeq seq test_return [loop]]] [set trash [xeq seq read_top_ustack]] [set sdr [xeq seq read_sdr]] [write uStack-8,,=,[#extract [arg 2 [var sdr]],30,10]] [set trash [xeq seq test_return [loop]]] [set trash [xeq seq read_top_ustack]] [set sdr [xeq seq read_sdr]] [write uStack-9,,=,[#extract [arg 2 [var sdr]],30,10]] [set trash [xeq seq test_return [loop]]] [set trash [xeq seq read_top_ustack]] [set sdr [xeq seq read_sdr]] [write uStack-A,,=,[#extract [arg 2 [var sdr]],30,10]] [set trash [xeq seq test_return [loop]]] [set trash [xeq seq read_top_ustack]] [set sdr [xeq seq read_sdr]] [write uStack-B,,=,[#extract [arg 2 [var sdr]],30,10]] [set trash [xeq seq test_return [loop]]] [set trash [xeq seq read_top_ustack]] [set sdr [xeq seq read_sdr]] [write uStack-C,,=,[#extract [arg 2 [var sdr]],30,10]] [set trash [xeq seq test_return [loop]]] [set trash [xeq seq read_top_ustack]] [set sdr [xeq seq read_sdr]] [write uStack-D,,=,[#extract [arg 2 [var sdr]],30,10]] [set trash [xeq seq test_return [loop]]] [set trash [xeq seq read_top_ustack]] [set sdr [xeq seq read_sdr]] [write uStack-E,,=,[#extract [arg 2 [var sdr]],30,10]] [set trash [xeq seq test_return [loop]]] [set trash [xeq seq read_top_ustack]] [set sdr [xeq seq read_sdr]] [write uStack-F,,=,[#extract [arg 2 [var sdr]],30,10]] [set trash [xeq seq test_return [loop]]] ! TT [set trash [xeq seq test_read_top 0]] [set sdr [xeq seq read_sdr]] [write CURRENT_NAME,=,[#extract [arg 1 [var sdr]],0,20]] [write CONTROL_TOP,,=,[#extract [arg 1 [var sdr]],20,20]] [xeq seq write_uir [var SAVE_UIR]] [xeq seq write_misc [var SAVE_MISC]] [xeq seq write_dec [var SAVE_DEC]] [xeq seq write_sdr [var SAVE_SDR]] [xeq seq restore_predecodes] [xeq typ load_uir [var Q_SAVE_TUIR] 0] [xeq seq load_counter 0FFFF]