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

⟦6ba7e72c5⟧ EM, TextFile

    Length: 3072 (0xc00)
    Types: EM, TextFile
    Names: »INIT_NOVRAM.EM«

Derivation

└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
    └─ ⟦this⟧ »INIT_NOVRAM.EM« 
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
    └─ ⟦this⟧ »INIT_NOVRAM.EM« 
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
    └─ ⟦this⟧ »INIT_NOVRAM.EM« 

TextFile

[set board_type [read BOARD TYPE,,,,,,,,,,,,,,: ]]
[eq [extract [var board_type] 1 3] MEM]
    [set board_size [read 8 or 32 MBYTE MEMORY (8,32) : ]]
    [set board_name MEM[read WHICH MEMORY (0,1,2,3) : ]]
    [eq [var board_size] 32]
        [set board_type MEM32]
    [else]
        [set board_type MEM8]
        [ne [var board_size] 8]
            [write *** ILLEGAL MEMORY TYPE -- using MEM8 ***]
        [end]
    [end]
[else]
    [set board_name [var board_type]]
[end]

[case [var BOARD_TYPE]]
    [when IOA][set part_number 1]
    [when VAL][set part_number 2]
    [when TYP][set part_number 3]
    [when FIU][set part_number 4]
    [when SEQ][set part_number 5]
    [when SYS][set part_number 6]
    [when MEM8][set part_number 8]
    [when MEM32][set part_number 7]
[endcase]

[eq Y [read IS THIS A SERIES 400 BOARD? (Y,N) : ]]
    [set part_number [add [var part_number] 28]]
[end]

[set serial_number  [read SERIAL NUMBER,,,,,,,,,,,: ]]
[set rev_number     [read ARTWORK REV NUMBER,,,,,,: ]]
[set eco_level      [read ECO LEVEL,,,,,,,,,,,,,,,: ]]
[set date           [read BUILD DATE (DD-MM-YYYY),: ]]

[set serial_number [convert [var serial_number] A 10]]
[set rev_number [convert [var rev_number] A 10]]
[set eco_level [convert [var eco_level] A 10]]

[set translated_date [convert [extract [var date] 1 2] A 10]]
[set translated_date [#insert [convert [extract [var date] 4 2] A 10],
                              [var translated_date],
                              37,
                              4]]
[set translated_date [#insert [sub [convert [extract [var date] 7 4] A 10],
                                   [convert 1901 A 10]],
                              [var translated_date],
                              30,
                              7]]

[xeq,[var board_name],WRITE_NOVRAM_DATA,[var part_number],[var serial_number],
     [var rev_number],[var eco_level],[var translated_date]]

[kill translated_date]
[kill eco_level]
[kill rev_number]
[kill serial_number]
[kill part_number]
[kill date]
[kill board_type]
[kill board_name]
[kill board_size]
«nul»