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

⟦b124123d9⟧ EM, TextFile

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

Derivation

└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
    └─ ⟦this⟧ »CW_GROUP_2.EM« 
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
    └─ ⟦this⟧ »CW_GROUP_2.EM« 
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
    └─ ⟦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]«nul»