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

⟦58c7b706d⟧ EM, TextFile

    Length: 510 (0x1fe)
    Types: EM, TextFile
    Names: »CW_DISPLAY.EM«

Derivation

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

TextFile

! CW_DISPLAY (%1% = BIT_OFFSET, %2% = TYPE, %3% = VAL, %4% = VPAR, %5% = ECC)

! A case statement of the 7 bit OF_KIND code (128 cases) won't fit into the
! macro evaluation buffer. Therefore this does a 4 way case of the two LSBs
! and calls the appropriate macro to handle the 32 cases of the other 5 bits.

[set TYPE_DATA %2%]
[set VAL_DATA  %3%]

[#case [#extract %2% 3E 2]]
[when 0][cw_group_0]
[when 1][cw_group_1]
[when 2][cw_group_2]
[when 3][cw_group_3 %1%]
[endcase]

[kill type_data]
[kill val_data]