|
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: 2048 (0x800)
Types: EM, TextFile
Names: »GET_SEQ_UIR.EM«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »GET_SEQ_UIR.EM«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »GET_SEQ_UIR.EM«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦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]«nul»