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

⟦1ba7ef2e6⟧ EM, TextFile

    Length: 6894 (0x1aee)
    Types: EM, TextFile
    Names: »CW_ALL.EM«

Derivation

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

TextFile

! THIS FILE CONTAINS ALL THE CW_* MACROS


! cw_kind (%1% = kind_name)
[write OF_KIND,,,,,,,,,,,,,,,,,= %1%]



! cw_integer (%1% = name,  %2% = first_bit,  %3% = last_bit)
! SHOULD RIGHT JUSTIFY IMAGE BY PADDING WITH LEADING BLANKS

[transparent]
[write %1% [ASCII 8D 9B DB]24C=,  ! ASCII codes move cursor to column 24
  [#lt %2% 40]
    [#extract [var TYPE_DATA] %2% [add [sub %3% %2%] 1]]
  [else]
    [#extract [var VAL_DATA] [sub %2% 40] [add [sub %3% %2%] 1]]
  [end]]
[normal]



! cw_boolean (%1% = name,  %2% = bit)

[transparent]
[write %1% [ASCII 8D 9B DB]24C=,  ! ASCII codes move cursor to column 24
  [#eq 0 [#lt %2% 40]
           [#extract [var TYPE_DATA] %2% 1]
         [else]
	   [#extract [var VAL_DATA] [sub %2% 40] 1]
         [end]]
    FALSE
  [else]
    TRUE
  [end]]
[normal]



! cw_type_val
[cw_integer TYPE 0 3F]
[cw_integer VAL 40 7F]


! cw_type_link
[cw_integer TYPE.STACK_NAME   0 1F]
[cw_integer TYPE.WORD_OFFSET 25 38]
[cw_boolean IS_VISIBLE       20]
[cw_boolean IS_CONSTANT      21]
[cw_boolean IS_PRIVATE       22]


! cw_discrete_var
[cw_boolean IS_UNSIGNED 24]


! cw_array_var
[cw_boolean BOUNDS_WITH_OBJECT 24]


! cw_variant_rec
[cw_boolean DERIVES_PRIVACY 23]
[cw_boolean IS_CONSTRAINED  24]


! cw_val
[cw_integer VAL 40 7F]


! cw_ref
[cw_integer REF.STACK_NAME 40 5F]
[cw_integer REF.BIT_OFFSET 60 7F]


! cw_access_val
[cw_integer POINTER.BIT_OFFS 60 7F]


! cw_module
[cw_integer MODULE.NAME     40 5F]
[cw_integer MODULE.CLUSTER  60 7F]


! cw_sub_ref
[cw_integer SCOPE_FOR_SITE.NAME     0 1F]
[cw_boolean IS_VISIBLE             20]
[cw_integer SUBPROG_SITE.NAME      40 5F]
[cw_integer SUBPROG_SITE.WORD_OFFS 60 78]


! cw_sub_var
[cw_integer DECLARE_FRAME.NAME       0 1F]
[cw_integer DECLARE_FRAME.WORD_OFFS 25 38]
[cw_integer SUBPROG_START.SEGMENT   48 5F]
[cw_integer SUBPROG_START.WORD_OFFS 6D 78]
[cw_integer SUBPROG_START.INDEX     79 7B]
[cw_integer LEX_LEVEL               7C 7F]


! cw_accept_sub
[cw_integer DECLARE_FRAME.NAME       0 1F]
[cw_integer DECLARE_FRAME.WORD_OFFS 25 38]
[cw_boolean SUBPROG_INFO.IS_FAMILY  23]
[cw_boolean SUBPROG_INFO.IS_OPEN    24]
[cw_integer SUBPROG_INFO.ENTRY_NAME 40 47]
[cw_integer SUBPROG_START.SEGMENT   48 5F]
[cw_integer SUBPROG_START.WORD_OFFS 6D 78]
[cw_integer SUBPROG_START.INDEX     79 7B]
[cw_integer LEX_LEVEL               7C 7F]


! cw_var_ref
[cw_boolean IS_VISIBLE         20]
[cw_integer VAR_SITE.NAME      40 5F]
[cw_integer VAR_SITE.WORD_OFFS 65 78]


! cw_entry_var
[cw_integer ENTRY_NAME    0  7]
[cw_integer ENTRY_PARAMS  8  F]
[cw_integer QUEUE_TAIL   25 38]
[cw_integer QUEUE_HEAD   65 78]
[cw_integer CALLER_COUNT 4C 5F]


! cw_family_var
[cw_integer ENTRY_NAME    0  7]
[cw_integer ENTRY_PARAMS  8  F]
[cw_integer FAMILY_SITE  20 38]
[cw_integer LAST_BIAS    40 5F]
[cw_integer FIRST_MEMBER 60 7F]


! cw_select_var
[cw_integer LAST_CHOICE       0  7]
[cw_boolean HAS_TIMED_CLAUSE 20]
[cw_boolean TIMED_IS_OPEN    21]
[cw_boolean HAS_TERMINATE    22]
[cw_boolean TERMINATE_OPEN   23]
[cw_integer SELECT_REF       25 38]  ! .WORD_OFFSET
[cw_integer FIELD_COUNT      40 47]
[cw_integer SELECT_SITE      60 78]  ! .WORD_OFFSET


! cw_exception_var
[cw_integer RAISE_SCOPE.NAME   0 1F]
[cw_integer EXCEPTION_NAME    40 6F]
[cw_integer RAISE_ADDR.NAME   20 37]
[cw_integer RAISE_ADDR.OFFSET 71 7C]
[cw_integer RAISE_ADDR.INDEX  7D 7F]


! cw_control_state
[cw_integer CURRENT_SLICE     0  F]
[cw_integer MEMORY_CONDITION 13 14]
[cw_integer BLOCK_CONDITION  15 19]
[cw_integer CURRENT_MODE     1A 1B]
[cw_integer CURRENT_PRIORITY 1C 1F]
[cw_boolean PERMANENT_MODULE 20]
[cw_boolean MODULE_IS_TASK   21]
[cw_boolean MODULE_ABORTED   22]
[cw_boolean BREAKPOINT_ON    23]
[cw_boolean INTRAINSTRUCTION 24]
[cw_integer CONTROL_TOS         25 38]  ! .WORD_OFFSET
[cw_integer PROGRAM_CNTR.NAME   40 5F]
[cw_integer PROGRAM_CNTR.OFFSET 6D 78]
[cw_integer PROGRAM_CNTR.INDEX  79 7B]
[cw_integer EXECUTING_LEX       7C 7F]


! cw_static_connection
[cw_integer MODULE_TYPE.NAME     0 1F]
[cw_integer MODULE_TYPE.OFFSET  25 38] ! IS WORD OFFSET, SAY SO?
[cw_boolean IS_PRIVATE          22]
[cw_integer MODULE_IMPORTS.NAME 40 5F]
[cw_integer DECLARER.NAME       60 7F]


! cw_dependence_link
[cw_integer DEPENDENCE_SITE.NAME    0 1F]
[cw_integer DEPENDENCE_SITE.OFFSET 25 38] ! IS WORD OFFSET, SAY SO?


! cw_auxiliary_mark
[cw_boolean IN_EXPORT_FRAME  20]
[cw_boolean HAS_PRIOR_MARK   21]
[cw_boolean TYPE_MARK_USED   22]
[cw_boolean DATA_MARK_USED   23]
[cw_boolean APPENDING_FIELDS 24]
[cw_integer TYPE_STACK_MARK  25 38] ! IS WORD OFFSET, SAY SO?
[cw_integer DATA_STACK_MARK  60 7F] ! IS BIT  OFFSET, SAY SO?


! cw_activation_link
[cw_integer OUTER_LEX_FRAME  0 1F] ! IS .NAME, SAY SO?
[cw_boolean EXPORTS_LEGAL   20]
[cw_boolean IN_RENDEZVOUS   21]
[cw_boolean IN_UTILITY      22]
[cw_boolean HAS_PACKAGE     23]
[cw_boolean HAS_CHILDREN    24]
[cw_integer TYPE_FRAME      25 38] ! IS WORD OFFSET, SAY SO?
[cw_integer DYNAMIC_LINK    40 53] ! IS WORD OFFSET, SAY SO?
[cw_integer BLOCK_START     54 5F]
[cw_integer DATA_FRAME      60 7F] ! IS BIT OFFSET, SAY SO?


! cw_accept_link
[cw_integer SELECT_CHOICE         0  7]
[cw_integer RETURN_PRIORITY      1C 1F]
[cw_boolean IN_SELECT            20]
[cw_integer TOTAL_PARAMS         31 38]
[cw_integer PARTNER_NAME.NAME    40 5F]
[cw_integer PARTNER_NAME.CLUSTER 60 7F]


! cw_activation_state
[cw_integer ENCLOSING_FRAME.NAME    0 1F]
[cw_integer ENCLOSING_FRAME.OFFSET 25 38] ! IS WORD OFFSET, SAY SO?
[cw_boolean AUXILIARY_MARKED       21]
[cw_integer RETURN_ADDRESS.NAME    48 5F]
[cw_integer RETURN_ADDRESS.OFFSET  6D 78]
[cw_integer RETURN_ADDRESS.INDEX   79 7B]
[cw_integer CHILDREN_START         60 6C]
[cw_integer FRAME_LEX_LEVEL        7C 7F]


! cw_auxiliary_state
[cw_integer QUEUE_SUCCESSOR    0 1F]
[cw_boolean HAS_MICRO_CONTEXT 24]
[cw_integer CURRENT_FRAME     40 53]
[cw_integer TYPE_TOS          25 38]
[cw_integer DATA_TOS          60 7F]


! cw_aux_allocation
[cw_integer BREAKPOINT_SCOPE          0 1F]
[cw_integer REMAINING_RESIDENT_PAGES 40 4B]
[cw_integer TYPE_EXTENT              25 38]
[cw_integer QUEUE_EXTENT             4C 5F]
[cw_integer DATA_EXTENT              60 7F]


! cw_control_allocation
[cw_integer DISTRIBUTOR          0 1F]
[cw_boolean QUEUE_ALLOCATED     20]
[cw_boolean QUEUE_NOT_EMPTY     21]
[cw_boolean IS_CATALOGUED       22]
[cw_boolean IS_WIRED            23]
[cw_boolean FORCE_BREAKPOINT    24]
[cw_integer CONTROL_EXTENT      25 38]
[cw_integer BREAKPOINT_MASK     40 4F]
[cw_integer REMAINING_CHILDREN  50 5F]
[cw_integer FORCING_INSTRUCTION 60 6B]
[cw_integer REMAINING_PAGES     6C 7F]


! cw_sched_allocation
[cw_integer BASE_TIME_SLICE      0  F]
[cw_integer INTERSLICE_DELAY    10 1F]
[cw_integer PAGE_FAULT_COUNT    20 2F]
[cw_integer RESIDENT_PAGE_LIMIT 40 4B]
[cw_integer SCHEDULING_GROUP    4C 5F]
[cw_integer SLICES_USED         60 6F]
[cw_integer SLICES_AVAILABLE    70 7F]