DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 DFS Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 DFS Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦a293d25c1⟧ EM, TextFile

    Length: 8192 (0x2000)
    Types: EM, TextFile
    Names: »DISPLAY_SEQ_STATE.EM«

Derivation

└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
    └─ ⟦this⟧ »DISPLAY_SEQ_STATE.EM« 
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
    └─ ⟦this⟧ »DISPLAY_SEQ_STATE.EM« 
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
    └─ ⟦this⟧ »DISPLAY_SEQ_STATE.EM« 

TextFile

[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]«nul»