|
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: 1228 (0x4cc)
Types: EM, TextFile
Names: »GET_SEQ_UIR.EM«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »GET_SEQ_UIR.EM«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »GET_SEQ_UIR.EM«
[set iuir %1%]
[write ,,]
[set iuir [#insert,[prompt_lit branch_addr,
[#extract,%1%,12,E],0,3FFF],[var iuir],12,E]]
[write ,,]
[set iuir [#insert,[prompt branch_kind,
[#extract,%1%,22,4],0,F],[var iuir],22,4]]
[write ,,]
[set iuir [#insert,[prompt branch_time,
[#extract,%1%,26,2],0,3],[var iuir],26,2]]
[write ,,]
[set prompt_result [change_prompt cond_board,[#extract,[not,%1%],29,4],0,F,1]]
[set iuir [#insert,[and,[not,[arg 1 [var prompt_result]]],F],[var iuir],29,4]]
[#eq [arg 2 [var prompt_result]],0]
[set iuir [#insert,7,[var iuir],2D,3]]
[end]
[kill prompt_result]
[write ,,]
[set iuir [#insert,[and,[not,[prompt cond_kind,
[#extract,[not,[var iuir]],29,7],0,7F]],7F],[var iuir],29,7]]
[write ,,]
[set iuir [#insert,[prompt latch_cntrl,
[#extract,%1%,21,1],0,1],[var iuir],21,1]]
[write ,,]
[set iuir [#insert,[prompt lex_addr,
[#extract,%1%,32,2],0,3],[var iuir],32,2]]
[write ,,]
[set iuir [#insert,[prompt micro_cntrl,
[#extract,%1%,34,1],0,1],[var iuir],34,1]]
[write ,,]
[set iuir [#insert,[prompt seq_read_src,
[#extract,%1%,35,3],0,7],[var iuir],35,3]]
[write ,,]
[set iuir [#insert,[prompt_lit seq_random,
[#extract,%1%,39,7],0,7F],[var iuir],39,7]]
[var iuir]
[kill iuir]