|
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 - metrics - download
Length: 1182 (0x49e)
Types: EM, TextFile
Names: »NEXTD.EM«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─⟦this⟧ »NEXTD.EM«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─⟦this⟧ »NEXTD.EM«
[#ge [hex %1%] 40]
write Bad length. Try 1 .. 3F.;
abort;
[end]
[#lt [hex %1%] 1]
write Bad length. Try 1 .. 3F.;
abort;
[end]
set xstart [and [var ext_offset] 3f];
set xend [sub [add [var xstart] [hex %1%]] 1];
set ext_offset [add [var ext_offset] [hex %1%]];
[#gt [var xend] 3f]
set ext_var_next [get_mem_data 4 [var ext_name] [var ext_offset]];
set ext_return [#extract [var ext_var] [var xstart] [sub 3f [var xstart]]];
set ext_return [lshift [var ext_return] [sub [var xend] 3f]];
[#lt [and [var ext_offset] 7f] 40]
set ext_var [arg 1 [var ext_var_next]];
[else]
set ext_var [arg 2 [var ext_var_next]];
[end]
set ext_return [add, [var ext_return],
[#extract [var ext_var],
0,
[sub, [var xend], 3f]
]
];
[else]
set ext_return [#extract [var ext_var] [var xstart] [hex %1%]];
[#eq [var xend] 3f]
set ext_var_next [get_mem_data 4 [var ext_name] [var ext_offset]];
[#lt [and [var ext_offset] 7f] 40]
set ext_var [arg 1 [var ext_var_next]];
[else]
set ext_var [arg 2 [var ext_var_next]];
[end]
[end]
[end]
[write, [var, ext_return],,([dec, [var, ext_return]])]