|
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: 3072 (0xc00)
Types: EM, TextFile
Names: »INIT_NOVRAM.EM«
└─⟦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«
[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»