DataMuseum.dk

top - download

    Length: 2048 (0x800)
    Types: EM, TextFile
    Names: »DISPLAY_NOVRAM_INFO.EM«

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

TextFile

[eq %7% false]
    [write *** WARNING BAD CHECKSUM ***]
[end]

[#gt %2% 28]
    [write SERIES 400 BOARD]
    [set stored_type [sub %2% 28]]
[else]
    [write SERIES 100/200/300 BOARD]
    [set stored_type %2%]
[end]

[#gt [var stored_type] 9]
    [write *** WARNING NOVRAM CONTAINS UNDEFINED BOARD TYPE ***]
[else]
    [#case [var stored_type]]
        [when 0][set stored_name %1%]
                [write *** WARNING NOVRAM CONTAINS ILLEGAL BOARD TYPE ***]
        [when 1][set stored_name IOA]
        [when 2][set stored_name VAL]
        [when 3][set stored_name TYP]
        [when 4][set stored_name FIU]
        [when 5][set stored_name SEQ]
        [when 6][set stored_name SYS]
        [when 7][set stored_name MEM32]
        [when 8][set stored_name MEM8]
        [when 9][set stored_name MEM32]
    [endcase]
    [ne %1% [var stored_name]]
     [write *** WARNING STORED BOARD TYPE DOES NOT MATCH ACTUAL BOARD TYPE ***]
    [end]
    [kill stored_name]
[end]

[set year [#extract %6% 30 7]]
[set year [add [var year] [convert 1901 A 10]]]
[set year [convert [var year] 10 A]]

[set month [#extract %6% 37 4]]
[set month [convert [var month] 10 A]]

[set day [and %6% 1F]]
[set day [convert [var day] 10 A]]

[write BOARD TYPE,,,,,,,:,[convert %2% 10 A]]
[write SERIAL NUMBER,,,,:,[convert %3% 10 A]]
[write ARTWORK REVISION,:,[convert %4% 10 A]]
[write ECO LEVEL,,,,,,,,:,[convert %5% 10 A]]
[write BUILD DATE,,,,,,,:,[var day]-[var month]-[var year]]

[kill year]
[kill month]
[kill day]
[kill stored_type]

«nul»