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

⟦019def467⟧ EM, TextFile

    Length: 2664 (0xa68)
    Types: EM, TextFile
    Names: »RF16.EM«

Derivation

└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
    └─ ⟦this⟧ »RF16.EM« 
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
    └─ ⟦this⟧ »RF16.EM«

TextFile

[eq %1%,]
    [set addr [read ADDRESS =,,]]
[else]
    [set addr %1%]
[end]

[#lt [var addr] 10]
    [set addr 0[var addr]]
[end]

[write]
[write,,RF ADDR,,,,TYPE DATA,,,,,,,,,,,VAL DATA]
[write,,-------,,,,---------,,,,,,,,,,,--------]
[write,,,,[var addr]0,,,,,,[xeq typ prep_read_reg;
  xeq typ read_a_reg [var addr]0 0],,,,[xeq val prep_read_reg;
  xeq val read_a_reg [var addr]0 0]]
[write,,,,[var addr]1,,,,,,[xeq typ prep_read_reg;
  xeq typ read_a_reg [var addr]1 0],,,,[xeq val prep_read_reg;
  xeq val read_a_reg [var addr]1 0]]
[write,,,,[var addr]2,,,,,,[xeq typ prep_read_reg;
  xeq typ read_a_reg [var addr]2 0],,,,[xeq val prep_read_reg;
  xeq val read_a_reg [var addr]2 0]]
[write,,,,[var addr]3,,,,,,[xeq typ prep_read_reg;
  xeq typ read_a_reg [var addr]3 0],,,,[xeq val prep_read_reg;
  xeq val read_a_reg [var addr]3 0]]
[write,,,,[var addr]4,,,,,,[xeq typ prep_read_reg;
  xeq typ read_a_reg [var addr]4 0],,,,[xeq val prep_read_reg;
  xeq val read_a_reg [var addr]4 0]]
[write,,,,[var addr]5,,,,,,[xeq typ prep_read_reg;
  xeq typ read_a_reg [var addr]5 0],,,,[xeq val prep_read_reg;
  xeq val read_a_reg [var addr]5 0]]
[write,,,,[var addr]6,,,,,,[xeq typ prep_read_reg;
  xeq typ read_a_reg [var addr]6 0],,,,[xeq val prep_read_reg;
  xeq val read_a_reg [var addr]6 0]]
[write,,,,[var addr]7,,,,,,[xeq typ prep_read_reg;
  xeq typ read_a_reg [var addr]7 0],,,,[xeq val prep_read_reg;
  xeq val read_a_reg [var addr]7 0]]
[write,,,,[var addr]8,,,,,,[xeq typ prep_read_reg;
  xeq typ read_a_reg [var addr]8 0],,,,[xeq val prep_read_reg;
  xeq val read_a_reg [var addr]8 0]]
[write,,,,[var addr]9,,,,,,[xeq typ prep_read_reg;
  xeq typ read_a_reg [var addr]9 0],,,,[xeq val prep_read_reg;
  xeq val read_a_reg [var addr]9 0]]
[write,,,,[var addr]A,,,,,,[xeq typ prep_read_reg;
  xeq typ read_a_reg [var addr]A 0],,,,[xeq val prep_read_reg;
  xeq val read_a_reg [var addr]A 0]]
[write,,,,[var addr]B,,,,,,[xeq typ prep_read_reg;
  xeq typ read_a_reg [var addr]B 0],,,,[xeq val prep_read_reg;
  xeq val read_a_reg [var addr]B 0]]
[write,,,,[var addr]C,,,,,,[xeq typ prep_read_reg;
  xeq typ read_a_reg [var addr]C 0],,,,[xeq val prep_read_reg;
  xeq val read_a_reg [var addr]C 0]]
[write,,,,[var addr]D,,,,,,[xeq typ prep_read_reg;
  xeq typ read_a_reg [var addr]D 0],,,,[xeq val prep_read_reg;
  xeq val read_a_reg [var addr]D 0]]
[write,,,,[var addr]E,,,,,,[xeq typ prep_read_reg;
  xeq typ read_a_reg [var addr]E 0],,,,[xeq val prep_read_reg;
  xeq val read_a_reg [var addr]E 0]]
[write,,,,[var addr]F,,,,,,[xeq typ prep_read_reg;
  xeq typ read_a_reg [var addr]F 0],,,,[xeq val prep_read_reg;
  xeq val read_a_reg [var addr]F 0]]
[kill addr]