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

⟦1e4d48501⟧ EM, TextFile

    Length: 1815 (0x717)
    Types: EM, TextFile
    Names: »CW_GROUP_2.EM«

Derivation

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

TextFile

! only called if 2 LSBs of OF_KIND = 2

[#case [#extract [var TYPE_DATA] 39 7]]

! subprogram references & variables (xxx0010 & xxx0110)

[when 02][cw_kind SUBPROGRAM_REF_FOR_CALL][cw_sub_ref]
[when 06][cw_kind SUBPROGRAM_FOR_CALL][cw_sub_var]
[when 12][cw_kind SUBPROGRAM_REF_FOR_CALL_ELABORATED][cw_sub_ref]
[when 16][cw_kind SUBPROGRAM_FOR_CALL_ELABORATED][cw_sub_var]
[when 22][cw_kind SUBPROGRAM_REF_FOR_CALL_VISIBLE][cw_sub_ref]
[when 26][cw_kind SUBPROGRAM_FOR_CALL_VISIBLE][cw_sub_var]
[when 32][cw_kind SUBPROGRAM_REF_FOR_CALL_VISIBLE_ELABORATED][cw_sub_ref]
[when 36][cw_kind SUBPROGRAM_FOR_CALL_VISIBLE_ELABORATED][cw_sub_var]
[when 42][cw_kind ACCEPT_SUBPROGRAM_REF][cw_sub_ref]
[when 46][cw_kind ACCEPT_SUBPROGRAM][cw_accept_sub]
[when 52][cw_kind INTERFACE_SUBPROGRAM_REF][cw_sub_ref]
[when 56][cw_kind INTERFACE_SUBPROGRAM][cw_sub_var]
[when 62][cw_kind UTILITY_SUBPROGRAM_REF][cw_sub_ref]
[when 66][cw_kind UTILITY_SUBPROGRAM][cw_sub_var]
[when 72][cw_kind NULL_SUBPROGRAM_REF][cw_sub_ref]
[when 76][cw_kind NULL_SUBPROGRAM][cw_sub_var]

! other references (xxx1010)

[when 0A][cw_kind VARIABLE_REF][cw_var_ref]
[when 1A][cw_kind UNDEFINED][cw_type_val]
[when 2A][cw_kind UNDEFINED][cw_type_val]
[when 3A][cw_kind UNDEFINED][cw_type_val]
[when 4A][cw_kind UNDEFINED][cw_type_val]
[when 5A][cw_kind UNDEFINED][cw_type_val]
[when 6A][cw_kind UNDEFINED][cw_type_val]
[when 7A][cw_kind UNDEFINED][cw_type_val]

! other variables (xxx1110)

[when 0E][cw_kind ENTRY_VAR][cw_entry_var]
[when 1E][cw_kind SELECT_VAR][cw_select_var]
[when 2E][cw_kind FAMILY_VAR][cw_family_var]
[when 3E][cw_kind DEFAULT_VAR][cw_type_val]
[when 4E][cw_kind UNDEFINED][cw_type_val]
[when 5E][cw_kind HEAP_VAR][cw_type_val]
[when 6E][cw_kind UNDEFINED][cw_type_val]
[when 7E][cw_kind EXCEPTION_VAR][cw_exception_var]

[endcase]