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