|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00) Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0694fc
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0568 | h | .CONST 0x0568 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 004e | N | .CONST 0x004e ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001d | | .CONST 0x001d ; Number of locals 000b INIT_0008: 000b 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated 000d 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated 000f 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 0011 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated 0013 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 0015 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 0017 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 0019 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated 001b 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated 001d 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated 001f 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated 0021 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated 0023 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated 0025 00bf | | Action Accept_Activation 0026 4800 |H | Short_Literal 0x0 0027 0093 02a3 | | push_full_address INIT_02a0 0029 02a0 | | Declare_Subprogram Null_Subprogram 002a 038e | | Declare_Type Package,Defined 002b 0387 | | Declare_Variable Package 002c 0092 02db | | Action Push_String_Extended,0x2db ; "Design_Facility" 002e 029d 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call 0030 029d 028b | | Declare_Subprogram INIT_0288,For_Outer_Call 0032 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0033 00c7 | | Action Elaborate_Subprogram 0034 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0035 00c7 | | Action Elaborate_Subprogram 0036 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0037 00c7 | | Action Elaborate_Subprogram 0038 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0039 00c7 | | Action Elaborate_Subprogram 003a 1d11 | | Execute_Immediate Reference_Lex_1,0x11 003b 00c7 | | Action Elaborate_Subprogram 003c 1d12 | | Execute_Immediate Reference_Lex_1,0x12 003d 00c7 | | Action Elaborate_Subprogram 003e 1d13 | | Execute_Immediate Reference_Lex_1,0x13 003f 00c7 | | Action Elaborate_Subprogram 0040 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0041 00c7 | | Action Elaborate_Subprogram 0042 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0043 00c7 | | Action Elaborate_Subprogram 0044 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0045 00c7 | | Action Elaborate_Subprogram 0046 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0047 00c7 | | Action Elaborate_Subprogram 0048 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0049 00c7 | | Action Elaborate_Subprogram 004a 1d19 | | Execute_Immediate Reference_Lex_1,0x19 004b 00c7 | | Action Elaborate_Subprogram 004c 00db | | Load_Top At_Offset_3 004d 020f | | Execute Module,Activate 004e BODY_0008: 004e 00bc | | Action Signal_Activated 004f 00bb | | Action Signal_Completion 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 005f | _ | .CONST 0x005f ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0003 | | .CONST 0x0003 ; Number of locals 0053 INIT_0050: 0053 e001 | | Load 0x0,0x1 0054 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0055 02c7 | | Declare_Variable Any 0056 0092 02dc | | Action Push_String_Extended,0x2dc ; "$$" 0058 e002 | | Load 0x0,0x2 0059 1810 | | Execute Package,Field_Execute,Field_Number 0x10 005a a402 | | Store_Unchecked 0x2,0x2 005b 00d8 | | Load_Top At_Offset_0 005c e001 | | Load 0x0,0x1 005d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 005e 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 005f BODY_0050: 005f 821c | | Call 0x1,0x1c 0060 680e |h | Jump_Zero 0x6f 0061 821d | | Call 0x1,0x1d 0062 680c |h | Jump_Zero 0x6f 0063 00ea | | Load_Encached Null_String_Cache 0064 00ea | | Load_Encached Null_String_Cache 0065 00ea | | Load_Encached Null_String_Cache 0066 00ea | | Load_Encached Null_String_Cache 0067 00ea | | Load_Encached Null_String_Cache 0068 00ea | | Load_Encached Null_String_Cache 0069 00ea | | Load_Encached Null_String_Cache 006a e403 | | Load 0x2,0x3 006b 6004 |` | Indirect_Literal Discrete,0x70,{0x00000000, 0x00000834} 006c 48d2 |H | Short_Literal 0xd2 006d e003 | | Load 0x0,0x3 006e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 006f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0070 0000 0000 | | .LITERAL {0x00000000, 0x00000834} 0074 0000 0000 | | .BLANK 0000[0x4] 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 007b | { | .CONST 0x007b ; Address of begin 0079 0004 | | .CONST 0x0004 ; Address of exception handler 007a 0001 | | .CONST 0x0001 ; Number of locals 007b BODY_0078: 007b INIT_0078: 007b 821d | | Call 0x1,0x1d 007c 6810 |h | Jump_Zero 0x8d 007d 00db | | Load_Top At_Offset_3 007e 01db | | Execute Vector,Length 007f 0c01 | | Execute_Immediate Greater_Equal,0x1 0080 6804 |h | Jump_Zero 0x85 0081 00da | | Load_Top At_Offset_2 0082 e5fe | | Load 0x2,-0x2 0083 e004 | | Load 0x0,0x4 0084 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0085 e5fd | | Load 0x2,-0x3 0086 01db | | Execute Vector,Length 0087 0c01 | | Execute_Immediate Greater_Equal,0x1 0088 6804 |h | Jump_Zero 0x8d 0089 00da | | Load_Top At_Offset_2 008a e5fd | | Load 0x2,-0x3 008b e004 | | Load 0x0,0x4 008c 1818 | | Execute Package,Field_Execute,Field_Number 0x18 008d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 008e 0000 0000 | | .XXX[0x2] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 009f | | .CONST 0x009f ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0003 | | .CONST 0x0003 ; Number of locals 0093 INIT_0090: 0093 e001 | | Load 0x0,0x1 0094 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0095 02c7 | | Declare_Variable Any 0096 0092 02dc | | Action Push_String_Extended,0x2dc ; "$$" 0098 e002 | | Load 0x0,0x2 0099 1810 | | Execute Package,Field_Execute,Field_Number 0x10 009a a402 | | Store_Unchecked 0x2,0x2 009b 00d8 | | Load_Top At_Offset_0 009c e001 | | Load 0x0,0x1 009d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 009e 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 009f BODY_0090: 009f 821c | | Call 0x1,0x1c 00a0 680f |h | Jump_Zero 0xb0 00a1 821d | | Call 0x1,0x1d 00a2 680d |h | Jump_Zero 0xb0 00a3 00ea | | Load_Encached Null_String_Cache 00a4 00ea | | Load_Encached Null_String_Cache 00a5 00ea | | Load_Encached Null_String_Cache 00a6 00ea | | Load_Encached Null_String_Cache 00a7 00ea | | Load_Encached Null_String_Cache 00a8 00ea | | Load_Encached Null_String_Cache 00a9 e403 | | Load 0x2,0x3 00aa 0092 02dd | | Action Push_String_Extended,0x2dd ; "<DEFAULT>" 00ac 6007 |` | Indirect_Literal Discrete,0xb4,{0x00000000, 0x0000083e} 00ad 48d3 |H | Short_Literal 0xd3 00ae e003 | | Load 0x0,0x3 00af 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00b0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00b1 0000 0000 | | .XXX[0x3] 00b3 0000 | | 00b4 0000 0000 | | .LITERAL {0x00000000, 0x0000083e} 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bb | | .CONST 0x00bb ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0001 | | .CONST 0x0001 ; Number of locals 00bb BODY_00b8: 00bb INIT_00b8: 00bb 821d | | Call 0x1,0x1d 00bc 6832 |h2 | Jump_Zero 0xef 00bd e5fd | | Load 0x2,-0x3 00be 6817 |h | Jump_Zero 0xd6 00bf 0092 02de | | Action Push_String_Extended,0x2de ; "<PROFILE>" 00c1 0092 02df | | Action Push_String_Extended,0x2df ; "$" 00c3 0092 02e0 | | Action Push_String_Extended,0x2e0 ; "\x22!tools.design.release.rational_2167a.Pdl_commands'spec_view.units\x22.Design.Build (Document => \x22" 00c5 e5ff | | Load 0x2,-0x1 00c6 01cc | | Execute Vector,Catenate 00c7 0092 02e1 | | Action Push_String_Extended,0x2e1 ; "\x22, In_View => \x22" 00c9 01cc | | Execute Vector,Catenate 00ca e5fe | | Load 0x2,-0x2 00cb 01cc | | Execute Vector,Catenate 00cc 0092 02e2 | | Action Push_String_Extended,0x2e2 ; "\x22, Options => \x22" 00ce 01cc | | Execute Vector,Catenate 00cf e5f9 | | Load 0x2,-0x7 00d0 01cc | | Execute Vector,Catenate 00d1 0092 02e3 | | Action Push_String_Extended,0x2e3 ; "\x22, Response => \x22<PROFILE>\x22)" 00d3 01cc | | Execute Vector,Catenate 00d4 e005 | | Load 0x0,0x5 00d5 180f | | Execute Package,Field_Execute,Field_Number 0xf 00d6 e5fc | | Load 0x2,-0x4 00d7 6817 |h | Jump_Zero 0xef 00d8 0092 02de | | Action Push_String_Extended,0x2de ; "<PROFILE>" 00da 0092 02df | | Action Push_String_Extended,0x2df ; "$" 00dc 0092 02e4 | | Action Push_String_Extended,0x2e4 ; "\x22!tools.design.release.rational_2167a.Pdl_commands'spec_view.units\x22.Design.Generate_Markup (Of_Document => \x22" 00de e5ff | | Load 0x2,-0x1 00df 01cc | | Execute Vector,Catenate 00e0 0092 02e1 | | Action Push_String_Extended,0x2e1 ; "\x22, In_View => \x22" 00e2 01cc | | Execute Vector,Catenate 00e3 e5fe | | Load 0x2,-0x2 00e4 01cc | | Execute Vector,Catenate 00e5 0092 02e2 | | Action Push_String_Extended,0x2e2 ; "\x22, Options => \x22" 00e7 01cc | | Execute Vector,Catenate 00e8 e5f9 | | Load 0x2,-0x7 00e9 01cc | | Execute Vector,Catenate 00ea 0092 02e3 | | Action Push_String_Extended,0x2e3 ; "\x22, Response => \x22<PROFILE>\x22)" 00ec 01cc | | Execute Vector,Catenate 00ed e005 | | Load 0x0,0x5 00ee 180f | | Execute Package,Field_Execute,Field_Number 0xf 00ef 450a |E | Exit_Suprogram New_Top_Offset 0xa 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f3 | | .CONST 0x00f3 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0001 | | .CONST 0x0001 ; Number of locals 00f3 BODY_00f0: 00f3 INIT_00f0: 00f3 821c | | Call 0x1,0x1c 00f4 6813 |h | Jump_Zero 0x108 00f5 821d | | Call 0x1,0x1d 00f6 6811 |h | Jump_Zero 0x108 00f7 00ea | | Load_Encached Null_String_Cache 00f8 00ea | | Load_Encached Null_String_Cache 00f9 00ea | | Load_Encached Null_String_Cache 00fa 00ea | | Load_Encached Null_String_Cache 00fb 00ea | | Load_Encached Null_String_Cache 00fc 0092 02e5 | | Action Push_String_Extended,0x2e5 ; "T" 00fe 0092 02e5 | | Action Push_String_Extended,0x2e5 ; "T" 0100 0092 02e6 | | Action Push_String_Extended,0x2e6 ; "<Cursor>" 0102 e002 | | Load 0x0,0x2 0103 180f | | Execute Package,Field_Execute,Field_Number 0xf 0104 6007 |` | Indirect_Literal Discrete,0x10c,{0x00000000, 0x00000848} 0105 48d4 |H | Short_Literal 0xd4 0106 e003 | | Load 0x0,0x3 0107 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0108 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0109 0000 0000 | | .XXX[0x3] 010b 0000 | | 010c 0000 0000 | | .LITERAL {0x00000000, 0x00000848} 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 011b | | .CONST 0x011b ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0003 | | .CONST 0x0003 ; Number of locals 0113 INIT_0110: 0113 e001 | | Load 0x0,0x1 0114 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0115 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0116 e001 | | Load 0x0,0x1 0117 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0118 02c7 | | Declare_Variable Any 0119 00d8 | | Load_Top At_Offset_0 011a 1c00 | | Execute_Immediate Run_Utility,0x0 011b BODY_0110: 011b 821d | | Call 0x1,0x1d 011c 681d |h | Jump_Zero 0x13a 011d 0092 02de | | Action Push_String_Extended,0x2de ; "<PROFILE>" 011f 0092 02df | | Action Push_String_Extended,0x2df ; "$" 0121 0092 02e7 | | Action Push_String_Extended,0x2e7 ; "\x22!Tools.Design.Release.Rational_2167a.Pdl_Commands'Spec_View.Units\x22.Design.Display_Hierarchy (Of_Component =>\x22" 0123 e5ff | | Load 0x2,-0x1 0124 01cc | | Execute Vector,Catenate 0125 0092 02e8 | | Action Push_String_Extended,0x2e8 ; "\x22, Decompose_Cscis =>" 0127 01cc | | Execute Vector,Catenate 0128 e5fe | | Load 0x2,-0x2 0129 00e1 | | Load_Encached Boolean_Cache 012a 011c | | Execute Any,Convert_Unchecked 012b 1c01 | | Execute_Immediate Run_Utility,0x1 012c 01cc | | Execute Vector,Catenate 012d 0092 02e9 | | Action Push_String_Extended,0x2e9 ; ", Transitive => " 012f 01cc | | Execute Vector,Catenate 0130 e5fd | | Load 0x2,-0x3 0131 00e1 | | Load_Encached Boolean_Cache 0132 011c | | Execute Any,Convert_Unchecked 0133 1c01 | | Execute_Immediate Run_Utility,0x1 0134 01cc | | Execute Vector,Catenate 0135 0092 02ea | | Action Push_String_Extended,0x2ea ; ", Response => \x22<PROFILE>\x22)" 0137 01cc | | Execute Vector,Catenate 0138 e005 | | Load 0x0,0x5 0139 180f | | Execute Package,Field_Execute,Field_Number 0xf 013a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 013b 0000 0000 | | .BLANK 0000[0x5] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0143 | C | .CONST 0x0143 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0001 | | .CONST 0x0001 ; Number of locals 0143 BODY_0140: 0143 INIT_0140: 0143 821c | | Call 0x1,0x1c 0144 6812 |h | Jump_Zero 0x157 0145 821d | | Call 0x1,0x1d 0146 6810 |h | Jump_Zero 0x157 0147 00ea | | Load_Encached Null_String_Cache 0148 00ea | | Load_Encached Null_String_Cache 0149 00ea | | Load_Encached Null_String_Cache 014a 00ea | | Load_Encached Null_String_Cache 014b 00ea | | Load_Encached Null_String_Cache 014c 00ea | | Load_Encached Null_String_Cache 014d 0092 02e5 | | Action Push_String_Extended,0x2e5 ; "T" 014f 0092 02e6 | | Action Push_String_Extended,0x2e6 ; "<Cursor>" 0151 e002 | | Load 0x0,0x2 0152 180f | | Execute Package,Field_Execute,Field_Number 0xf 0153 6004 |` | Indirect_Literal Discrete,0x158,{0x00000000, 0x00000852} 0154 48d5 |H | Short_Literal 0xd5 0155 e003 | | Load 0x0,0x3 0156 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0157 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0158 0000 0000 | | .LITERAL {0x00000000, 0x00000852} 015c 0000 0000 | | .BLANK 0000[0x4] 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 016b | k | .CONST 0x016b ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0003 | | .CONST 0x0003 ; Number of locals 0163 INIT_0160: 0163 e001 | | Load 0x0,0x1 0164 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0165 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0166 e001 | | Load 0x0,0x1 0167 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0168 02c7 | | Declare_Variable Any 0169 00d8 | | Load_Top At_Offset_0 016a 1c00 | | Execute_Immediate Run_Utility,0x0 016b BODY_0160: 016b 821d | | Call 0x1,0x1d 016c 6815 |h | Jump_Zero 0x182 016d 0092 02de | | Action Push_String_Extended,0x2de ; "<PROFILE>" 016f 0092 02df | | Action Push_String_Extended,0x2df ; "$" 0171 0092 02eb | | Action Push_String_Extended,0x2eb ; "\x22!Tools.Design.Release.Rational_2167a.Pdl_Commands'Spec_View.Units\x22.Design.Check_Consistency (Of_Component =>\x22" 0173 e5ff | | Load 0x2,-0x1 0174 01cc | | Execute Vector,Catenate 0175 0092 02ec | | Action Push_String_Extended,0x2ec ; "\x22, Attempt_Repair =>" 0177 01cc | | Execute Vector,Catenate 0178 e5fe | | Load 0x2,-0x2 0179 00e1 | | Load_Encached Boolean_Cache 017a 011c | | Execute Any,Convert_Unchecked 017b 1c01 | | Execute_Immediate Run_Utility,0x1 017c 01cc | | Execute Vector,Catenate 017d 0092 02ea | | Action Push_String_Extended,0x2ea ; ", Response => \x22<PROFILE>\x22)" 017f 01cc | | Execute Vector,Catenate 0180 e005 | | Load 0x0,0x5 0181 180f | | Execute Package,Field_Execute,Field_Number 0xf 0182 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0183 0000 0000 | | .BLANK 0000[0x5] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 018b | | .CONST 0x018b ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0001 | | .CONST 0x0001 ; Number of locals 018b BODY_0188: 018b INIT_0188: 018b 821c | | Call 0x1,0x1c 018c 6819 |h | Jump_Zero 0x1a6 018d 821d | | Call 0x1,0x1d 018e 6817 |h | Jump_Zero 0x1a6 018f 00ea | | Load_Encached Null_String_Cache 0190 00ea | | Load_Encached Null_String_Cache 0191 00ea | | Load_Encached Null_String_Cache 0192 00ea | | Load_Encached Null_String_Cache 0193 00ea | | Load_Encached Null_String_Cache 0194 00ea | | Load_Encached Null_String_Cache 0195 0092 02ed | | Action Push_String_Extended,0x2ed ; "<WARN>" 0197 4801 |H | Short_Literal 0x1 0198 0092 02e6 | | Action Push_String_Extended,0x2e6 ; "<Cursor>" 019a e002 | | Load 0x0,0x2 019b 180f | | Execute Package,Field_Execute,Field_Number 0xf 019c e006 | | Load 0x0,0x6 019d 1812 | | Execute Package,Field_Execute,Field_Number 0x12 019e 0092 02e6 | | Action Push_String_Extended,0x2e6 ; "<Cursor>" 01a0 e002 | | Load 0x0,0x2 01a1 180f | | Execute Package,Field_Execute,Field_Number 0xf 01a2 6005 |` | Indirect_Literal Discrete,0x1a8,{0x00000000, 0x0000085c} 01a3 48d6 |H | Short_Literal 0xd6 01a4 e003 | | Load 0x0,0x3 01a5 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01a6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01a7 0000 | | .XXX[0x1] 01a8 0000 0000 | | .LITERAL {0x00000000, 0x0000085c} 01ac 0000 0000 | | .BLANK 0000[0x4] 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01b3 | | .CONST 0x01b3 ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 0001 | | .CONST 0x0001 ; Number of locals 01b3 BODY_01b0: 01b3 INIT_01b0: 01b3 821d | | Call 0x1,0x1d 01b4 6804 |h | Jump_Zero 0x1b9 01b5 0092 02ee | | Action Push_String_Extended,0x2ee ; "Component Hierarchy not yet implemented for Rational Access" 01b7 e007 | | Load 0x0,0x7 01b8 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 01b9 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01ba 0000 0000 | | .BLANK 0000[0x6] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c3 | | .CONST 0x01c3 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0001 | | .CONST 0x0001 ; Number of locals 01c3 BODY_01c0: 01c3 INIT_01c0: 01c3 821c | | Call 0x1,0x1c 01c4 6811 |h | Jump_Zero 0x1d6 01c5 821d | | Call 0x1,0x1d 01c6 680f |h | Jump_Zero 0x1d6 01c7 00ea | | Load_Encached Null_String_Cache 01c8 00ea | | Load_Encached Null_String_Cache 01c9 00ea | | Load_Encached Null_String_Cache 01ca 0092 02ef | | Action Push_String_Extended,0x2ef ; "!Model.Rational_2167a_R1000" 01cc 0092 02f0 | | Action Push_String_Extended,0x2f0 ; "Rev1" 01ce 00ea | | Load_Encached Null_String_Cache 01cf 0092 02f1 | | Action Push_String_Extended,0x2f1 ; "2" 01d1 00ea | | Load_Encached Null_String_Cache 01d2 6005 |` | Indirect_Literal Discrete,0x1d8,{0x00000000, 0x00000866} 01d3 48d7 |H | Short_Literal 0xd7 01d4 e003 | | Load 0x0,0x3 01d5 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01d6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01d7 0000 | | .XXX[0x1] 01d8 0000 0000 | | .LITERAL {0x00000000, 0x00000866} 01dc 0000 0000 | | .BLANK 0000[0x4] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01eb | | .CONST 0x01eb ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0003 | | .CONST 0x0003 ; Number of locals 01e3 INIT_01e0: 01e3 e001 | | Load 0x0,0x1 01e4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01e5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01e6 e001 | | Load 0x0,0x1 01e7 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01e8 02c7 | | Declare_Variable Any 01e9 00d8 | | Load_Top At_Offset_0 01ea 1c00 | | Execute_Immediate Run_Utility,0x0 01eb BODY_01e0: 01eb 821d | | Call 0x1,0x1d 01ec 6833 |h3 | Jump_Zero 0x220 01ed 0092 02de | | Action Push_String_Extended,0x2de ; "<PROFILE>" 01ef 0092 02df | | Action Push_String_Extended,0x2df ; "$" 01f1 0092 02f2 | | Action Push_String_Extended,0x2f2 ; "\x22!Tools.Design.Release.Rational_2167a.Pdl_Commands'Spec_View.Units\x22.Design.Initial (Component =>\x22" 01f3 e5ff | | Load 0x2,-0x1 01f4 01cc | | Execute Vector,Catenate 01f5 0092 02f3 | | Action Push_String_Extended,0x2f3 ; "\x22, Kind => Design." 01f7 01cc | | Execute Vector,Catenate 01f8 e5fd | | Load 0x2,-0x3 01f9 00e2 | | Load_Encached Integer_Cache 01fa 00e0 | | Load_Encached Standard_Cache 01fb 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01fc 00d8 | | Load_Top At_Offset_0 01fd e21a | | Load 0x1,0x1a 01fe 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01ff 0260 | ` | Execute Discrete,In_Type 0200 7001 |p | Jump_Nonzero 0x202 0201 0801 | | Execute_Immediate Raise,0x1 0202 e21a | | Load 0x1,0x1a 0203 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0204 011c | | Execute Any,Convert_Unchecked 0205 1c01 | | Execute_Immediate Run_Utility,0x1 0206 01cc | | Execute Vector,Catenate 0207 0092 02f4 | | Action Push_String_Extended,0x2f4 ; ", Parent => \x22" 0209 01cc | | Execute Vector,Catenate 020a e5fb | | Load 0x2,-0x5 020b 01cc | | Execute Vector,Catenate 020c 0092 02f5 | | Action Push_String_Extended,0x2f5 ; "\x22, Working_View_Base_Name => \x22" 020e 01cc | | Execute Vector,Catenate 020f e5fe | | Load 0x2,-0x2 0210 01cc | | Execute Vector,Catenate 0211 0092 02f6 | | Action Push_String_Extended,0x2f6 ; "\x22, Model => \x22" 0213 01cc | | Execute Vector,Catenate 0214 e5fc | | Load 0x2,-0x4 0215 01cc | | Execute Vector,Catenate 0216 0092 02f7 | | Action Push_String_Extended,0x2f7 ; "\x22, Comments => \x22" 0218 01cc | | Execute Vector,Catenate 0219 e5fa | | Load 0x2,-0x6 021a 01cc | | Execute Vector,Catenate 021b 0092 02e3 | | Action Push_String_Extended,0x2e3 ; "\x22, Response => \x22<PROFILE>\x22)" 021d 01cc | | Execute Vector,Catenate 021e e005 | | Load 0x0,0x5 021f 180f | | Execute Package,Field_Execute,Field_Number 0xf 0220 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0221 0000 0000 | | .BLANK 0000[0x7] 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 022b | + | .CONST 0x022b ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0001 | | .CONST 0x0001 ; Number of locals 022b BODY_0228: 022b INIT_0228: 022b 0092 02f8 | | Action Push_String_Extended,0x2f8 ; "\x1b]2141;" 022d 0092 02ed | | Action Push_String_Extended,0x2ed ; "<WARN>" 022f 4801 |H | Short_Literal 0x1 0230 0092 02e6 | | Action Push_String_Extended,0x2e6 ; "<Cursor>" 0232 e002 | | Load 0x0,0x2 0233 180f | | Execute Package,Field_Execute,Field_Number 0xf 0234 e006 | | Load 0x0,0x6 0235 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0236 01cc | | Execute Vector,Catenate 0237 0092 02f9 | | Action Push_String_Extended,0x2f9 ; "\x5c" 0239 01cc | | Execute Vector,Catenate 023a 0092 02fa | | Action Push_String_Extended,0x2fa ; "^.@'c(subsystem)" 023c 8008 | | Call 0x0,0x8 023d 01cc | | Execute Vector,Catenate 023e e009 | | Load 0x0,0x9 023f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0240 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0241 0000 0000 | | .BLANK 0000[0x7] 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 0253 | S | .CONST 0x0253 ; Address of begin 0249 0004 | | .CONST 0x0004 ; Address of exception handler 024a 0003 | | .CONST 0x0003 ; Number of locals 024b INIT_0248: 024b e001 | | Load 0x0,0x1 024c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 024d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 024e e001 | | Load 0x0,0x1 024f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0250 02c7 | | Declare_Variable Any 0251 00d8 | | Load_Top At_Offset_0 0252 1c00 | | Execute_Immediate Run_Utility,0x0 0253 BODY_0248: 0253 e21b | | Load 0x1,0x1b 0254 e00a | | Load 0x0,0xa 0255 180e | | Execute Package,Field_Execute,Field_Number 0xe 0256 7006 |p | Jump_Nonzero 0x25d 0257 0092 02fb | | Action Push_String_Extended,0x2fb ; "Design_Facility not authorized on this machine" 0259 e007 | | Load 0x0,0x7 025a 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 025b 4800 |H | Short_Literal 0x0 025c 00ca | | Action Exit_Nullary_Function 025d e001 | | Load 0x0,0x1 025e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 025f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0260 00d9 | | Load_Top At_Offset_1 0261 0120 | | Execute Any,Is_Value 0262 6803 |h | Jump_Zero 0x266 0263 e001 | | Load 0x0,0x1 0264 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0265 7801 |x | Jump 0x267 0266 00d9 | | Load_Top At_Offset_1 0267 6018 |` | Indirect_Literal Discrete,0x280,{0x00000000, 0x00004000} 0268 e00b | | Load 0x0,0xb 0269 1b0e | | Execute Package,Field_Read,Field_Number 0xe 026a e00c | | Load 0x0,0xc 026b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 026c e001 | | Load 0x0,0x1 026d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 026e 1816 | | Execute Package,Field_Execute,Field_Number 0x16 026f 0092 02fc | | Action Push_String_Extended,0x2fc ; "!tools.design.release.rational_2167a.Pdl_commands'spec_view.units.Design" 0271 e001 | | Load 0x0,0x1 0272 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0273 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0274 c403 | | Store 0x2,0x3 0275 005a | Z | Store_Top Discrete,At_Offset_2 0276 00d9 | | Load_Top At_Offset_1 0277 7002 |p | Jump_Nonzero 0x27a 0278 4801 |H | Short_Literal 0x1 0279 00ca | | Action Exit_Nullary_Function 027a 0092 02fd | | Action Push_String_Extended,0x2fd ; "Design_Facility cannot be found. Try checking the current Activity." 027c e007 | | Load 0x0,0x7 027d 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 027e 4800 |H | Short_Literal 0x0 027f 00ca | | Action Exit_Nullary_Function 0280 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0284 0000 0000 | | .BLANK 0000[0x4] 0288 ; -------------------------------------------------------------------------------------- 0288 ; SUBPROGRAM 0288 ; -------------------------------------------------------------------------------------- 0288 028b | | .CONST 0x028b ; Address of begin 0289 0004 | | .CONST 0x0004 ; Address of exception handler 028a 0001 | | .CONST 0x0001 ; Number of locals 028b BODY_0288: 028b INIT_0288: 028b e00c | | Load 0x0,0xc 028c 180f | | Execute Package,Field_Execute,Field_Number 0xf 028d 4801 |H | Short_Literal 0x1 028e e21b | | Load 0x1,0x1b 028f e00d | | Load 0x0,0xd 0290 180e | | Execute Package,Field_Execute,Field_Number 0xe 0291 e00d | | Load 0x0,0xd 0292 180f | | Execute Package,Field_Execute,Field_Number 0xf 0293 7006 |p | Jump_Nonzero 0x29a 0294 0092 02fe | | Action Push_String_Extended,0x2fe ; "No tokens left for Design_Facility, Try again later" 0296 e007 | | Load 0x0,0x7 0297 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 0298 4800 |H | Short_Literal 0x0 0299 00ca | | Action Exit_Nullary_Function 029a 4801 |H | Short_Literal 0x1 029b 00ca | | Action Exit_Nullary_Function 029c 0000 0000 | | .BLANK 0000[0x4] 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; SUBPROGRAM 02a0 ; -------------------------------------------------------------------------------------- 02a0 02a9 | | .CONST 0x02a9 ; Address of begin 02a1 0004 | | .CONST 0x0004 ; Address of exception handler 02a2 000d | | .CONST 0x000d ; Number of locals 02a3 INIT_02a0: 02a3 4800 |H | Short_Literal 0x0 02a4 4805 |H | Short_Literal 0x5 02a5 029f 02b3 | | Declare_Subprogram INIT_02b0,For_Call 02a7 03fe | | Declare_Type Discrete,Defined,Visible 02a8 00bf | | Action Accept_Activation 02a9 BODY_02a0: 02a9 00bc | | Action Signal_Activated 02aa 00bb | | Action Signal_Completion 02ab 0000 0000 | | .BLANK 0000[0x5] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02b3 | | .CONST 0x02b3 ; Address of begin 02b1 0004 | | .CONST 0x0004 ; Address of exception handler 02b2 0001 | | .CONST 0x0001 ; Number of locals 02b3 BODY_02b0: 02b3 INIT_02b0: 02b3 4607 |F | Jump_Case 0x8 02b4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 02b5 7806 |x | Jump 0x2bc ; case 0x1 02b6 7809 |x | Jump 0x2c0 ; case 0x2 02b7 780d |x | Jump 0x2c5 ; case 0x3 02b8 7810 |x | Jump 0x2c9 ; case 0x4 02b9 7811 |x | Jump 0x2cb ; case 0x5 02ba 7812 |x | Jump 0x2cd ; case 0x6 02bb 7815 |x | Jump 0x2d1 ; case 0x7 02bc 00da | | Load_Top At_Offset_2 02bd 0091 02d5 | | Action Push_String_Extended_Indexed,0x2d5 ; "SYSTEM" 02bf 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 02c0 00db | | Load_Top At_Offset_3 02c1 00db | | Load_Top At_Offset_3 02c2 00e0 | | Load_Encached Standard_Cache 02c3 181b | | Execute Package,Field_Execute,Field_Number 0x1b 02c4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02c5 00da | | Load_Top At_Offset_2 02c6 00e0 | | Load_Encached Standard_Cache 02c7 181c | | Execute Package,Field_Execute,Field_Number 0x1c 02c8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 02c9 00db | | Load_Top At_Offset_3 02ca 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02cb 00db | | Load_Top At_Offset_3 02cc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02cd e20d | | Load 0x1,0xd 02ce 00dc | | Load_Top At_Offset_4 02cf 0267 | g | Execute Discrete,Predecessor 02d0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02d1 e20d | | Load 0x1,0xd 02d2 00dc | | Load_Top At_Offset_4 02d3 0268 | h | Execute Discrete,Successor 02d4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02d5 ; -------------------------------------------------------------------------------------- 02d5 ; STRING TABLE 02d5 ; -------------------------------------------------------------------------------------- 02d5 0056 | V | .STRTAB 0x0056->0x0300 ; "SYSTEM" 02d6 005a | Z | .STRTAB 0x005a->0x0303 ; "SEGMENT" 02d7 005f | _ | .STRTAB 0x005f->0x0306 ; "MULTI_SUBSYSTEM_CSCI" 02d8 0071 | q | .STRTAB 0x0071->0x0310 ; "CSCI_CHILD_SUBSYSTEM" 02d9 0083 | | .STRTAB 0x0083->0x031a ; "SINGLE_SUBSYSTEM_CSCI" 02da 0096 | | .STRTAB 0x0096->0x0325 ; "HWCI" 02db 0098 | | .STRTAB 0x0098->0x0327 ; "Design_Facility" 02dc 00a5 | | .STRTAB 0x00a5->0x032e ; "$$" 02dd 00a5 | | .STRTAB 0x00a5->0x032f ; "<DEFAULT>" 02de 00ac | | .STRTAB 0x00ac->0x0334 ; "<PROFILE>" 02df 00b3 | | .STRTAB 0x00b3->0x0338 ; "$" 02e0 00b2 | | .STRTAB 0x00b2->0x0339 ; "\x22!tools.design.release.rational_2167a.Pdl_commands'spec_view.units\x22.Design.Build (Document => \x22" 02e1 010f | | .STRTAB 0x010f->0x0368 ; "\x22, In_View => \x22" 02e2 011c | | .STRTAB 0x011c->0x0370 ; "\x22, Options => \x22" 02e3 0129 | ) | .STRTAB 0x0129->0x0377 ; "\x22, Response => \x22<PROFILE>\x22)" 02e4 0142 | B | .STRTAB 0x0142->0x0385 ; "\x22!tools.design.release.rational_2167a.Pdl_commands'spec_view.units\x22.Design.Generate_Markup (Of_Document => \x22" 02e5 01ac | | .STRTAB 0x01ac->0x03bb ; "T" 02e6 01ab | | .STRTAB 0x01ab->0x03bb ; "<Cursor>" 02e7 01b1 | | .STRTAB 0x01b1->0x03bf ; "\x22!Tools.Design.Release.Rational_2167a.Pdl_Commands'Spec_View.Units\x22.Design.Display_Hierarchy (Of_Component =>\x22" 02e8 021d | | .STRTAB 0x021d->0x03f6 ; "\x22, Decompose_Cscis =>" 02e9 0230 | 0 | .STRTAB 0x0230->0x0401 ; ", Transitive => " 02ea 023e | > | .STRTAB 0x023e->0x0409 ; ", Response => \x22<PROFILE>\x22)" 02eb 0256 | V | .STRTAB 0x0256->0x0416 ; "\x22!Tools.Design.Release.Rational_2167a.Pdl_Commands'Spec_View.Units\x22.Design.Check_Consistency (Of_Component =>\x22" 02ec 02c2 | | .STRTAB 0x02c2->0x044d ; "\x22, Attempt_Repair =>" 02ed 02d4 | | .STRTAB 0x02d4->0x0457 ; "<WARN>" 02ee 02d8 | | .STRTAB 0x02d8->0x045a ; "Component Hierarchy not yet implemented for Rational Access" 02ef 0311 | | .STRTAB 0x0311->0x0477 ; "!Model.Rational_2167a_R1000" 02f0 032a | * | .STRTAB 0x032a->0x0485 ; "Rev1" 02f1 032c | , | .STRTAB 0x032c->0x0487 ; "2" 02f2 032b | + | .STRTAB 0x032b->0x0487 ; "\x22!Tools.Design.Release.Rational_2167a.Pdl_Commands'Spec_View.Units\x22.Design.Initial (Component =>\x22" 02f3 038a | | .STRTAB 0x038a->0x04b8 ; "\x22, Kind => Design." 02f4 039a | | .STRTAB 0x039a->0x04c1 ; ", Parent => \x22" 02f5 03a5 | | .STRTAB 0x03a5->0x04c7 ; "\x22, Working_View_Base_Name => \x22" 02f6 03c1 | | .STRTAB 0x03c1->0x04d6 ; "\x22, Model => \x22" 02f7 03cc | | .STRTAB 0x03cc->0x04dd ; "\x22, Comments => \x22" 02f8 03da | | .STRTAB 0x03da->0x04e5 ; "\x1b]2141;" 02f9 03df | | .STRTAB 0x03df->0x04e8 ; "\x5c" 02fa 03de | | .STRTAB 0x03de->0x04e9 ; "^.@'c(subsystem)" 02fb 03ec | | .STRTAB 0x03ec->0x04f1 ; "Design_Facility not authorized on this machine" 02fc 0418 | | .STRTAB 0x0418->0x0508 ; "!tools.design.release.rational_2167a.Pdl_commands'spec_view.units.Design" 02fd 045e | ^ | .STRTAB 0x045e->0x052c ; "Design_Facility cannot be found. Try checking the current Activity." 02fe 049f | | .STRTAB 0x049f->0x054d ; "No tokens left for Design_Facility, Try again later" 02ff 04d0 | | .STREND 0x04d0->0x0567 0300 5359 5354 |SYST| .STRTAB_STRINGS 0567 0000 | | .XXX[0x1] 0568 ; -------------------------------------------------------------------------------------- 0568 ; Debug Table 0568 ; -------------------------------------------------------------------------------------- 0568 0004 0012 | | .DEBUG4 0x0004,0x0012,0x6368,0x0000,0x0001,0x0000 056e 0000 0000 | | .BLANK 0000[0x92]