|
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: 5120 (0x1400) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_779ce4
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 09c0 | | .CONST 0x09c0 ; 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 8006 | | .CONST 0x8006 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00ce | | .CONST 0x00ce ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 002c | , | .CONST 0x002c ; Number of locals 000b INIT_0008: 000b 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated 000d 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 000f 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 0011 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 0013 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated 0015 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated 0017 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 0019 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 001b 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated 001d 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated 001f 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated 0021 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated 0023 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated 0025 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated 0027 029a 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call,Visible,Unelaborated 0029 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated 002b 029a 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call,Visible,Unelaborated 002d 029a 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call,Visible,Unelaborated 002f 029a 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call,Visible,Unelaborated 0031 00bf | | Action Accept_Activation 0032 4800 |H | Short_Literal 0x0 0033 480f |H | Short_Literal 0xf 0034 029f 0373 | s| Declare_Subprogram INIT_0370,For_Call 0036 03fd | | Declare_Type Discrete,Defined 0037 4800 |H | Short_Literal 0x0 0038 60a3 |` | Indirect_Literal Discrete,0xdc,{0x00000000, 0x00000400} 0039 00e3 | | Load_Encached Natural_Cache 003a 03f8 | | Declare_Type Discrete,Constrained 003b 00d8 | | Load_Top At_Offset_0 003c 4801 |H | Short_Literal 0x1 003d 609e |` | Indirect_Literal Discrete,0xdc,{0x00000000, 0x00000400} 003e 00e9 | | Load_Encached String_Cache 003f 034e | N | QQ_Declare_Type Array,Constrained,Bounds_With_Object 0040 029f 039b | | Declare_Subprogram INIT_0398,For_Call 0042 4800 |H | Short_Literal 0x0 0043 4801 |H | Short_Literal 0x1 0044 4800 |H | Short_Literal 0x0 0045 4800 |H | Short_Literal 0x0 0046 4801 |H | Short_Literal 0x1 0047 4801 |H | Short_Literal 0x1 0048 031d | | Declare_Type Variant_Record,Defined 0049 00da | | Load_Top At_Offset_2 004a 4803 |H | Short_Literal 0x3 004b e002 | | Load 0x0,0x2 004c 00db | | Load_Top At_Offset_3 004d e222 | " | Load 0x1,0x22 004e 4801 |H | Short_Literal 0x1 004f e003 | | Load 0x0,0x3 0050 4802 |H | Short_Literal 0x2 0051 e222 | " | Load 0x1,0x22 0052 e003 | | Load 0x0,0x3 0053 4801 |H | Short_Literal 0x1 0054 e002 | | Load 0x0,0x2 0055 4802 |H | Short_Literal 0x2 0056 e222 | " | Load 0x1,0x22 0057 00d8 | | Load_Top At_Offset_0 0058 029f 03db | | Declare_Subprogram INIT_03d8,For_Call 005a 4809 |H | Short_Literal 0x9 005b 4800 |H | Short_Literal 0x0 005c 4805 |H | Short_Literal 0x5 005d 4800 |H | Short_Literal 0x0 005e 4801 |H | Short_Literal 0x1 005f 031d | | Declare_Type Variant_Record,Defined 0060 00db | | Load_Top At_Offset_3 0061 4801 |H | Short_Literal 0x1 0062 00db | | Load_Top At_Offset_3 0063 4801 |H | Short_Literal 0x1 0064 00e3 | | Load_Encached Natural_Cache 0065 4801 |H | Short_Literal 0x1 0066 e002 | | Load 0x0,0x2 0067 4801 |H | Short_Literal 0x1 0068 00e7 | | Load_Encached Duration_Cache 0069 4801 |H | Short_Literal 0x1 006a 00e1 | | Load_Encached Boolean_Cache 006b 4801 |H | Short_Literal 0x1 006c e004 | | Load 0x0,0x4 006d 029f 0473 | s| Declare_Subprogram INIT_0470,For_Call 006f 4806 |H | Short_Literal 0x6 0070 4800 |H | Short_Literal 0x0 0071 4806 |H | Short_Literal 0x6 0072 4800 |H | Short_Literal 0x0 0073 4801 |H | Short_Literal 0x1 0074 031d | | Declare_Type Variant_Record,Defined 0075 029b 04f3 | | Declare_Subprogram INIT_04f0,For_Outer_Call,Unelaborated 0077 4800 |H | Short_Literal 0x0 0078 0093 076b | k| push_full_address INIT_0768 007a 00f5 | | Load_Encached Unused21 007b 037a | z | Declare_Type Task,Defined,Not_Elaborated 007c 00d8 | | Load_Top At_Offset_0 007d 02a0 | | Declare_Subprogram Null_Subprogram 007e 4818 |H | Short_Literal 0x18 007f 03d3 | | Declare_Type Access,Defined,Accesses_Protected 0080 00d8 | | Load_Top At_Offset_0 0081 0007 | | Action Break_Optional 0082 029b 0503 | | Declare_Subprogram INIT_0500,For_Outer_Call,Unelaborated 0084 e005 | | Load 0x0,0x5 0085 e006 | | Load 0x0,0x6 0086 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 0087 4803 |H | Short_Literal 0x3 0088 e226 | & | Load 0x1,0x26 0089 020e | | Execute Module,Augment_Imports 008a 00db | | Load_Top At_Offset_3 008b 020d | | Execute Module,Elaborate 008c 0007 | | Action Break_Optional 008d 4800 |H | Short_Literal 0x0 008e 0093 06b3 | | push_full_address INIT_06b0 0090 02a0 | | Declare_Subprogram Null_Subprogram 0091 038e | | Declare_Type Package,Defined 0092 0387 | | Declare_Variable Package 0093 e007 | | Load 0x0,0x7 0094 e008 | | Load 0x0,0x8 0095 e223 | # | Load 0x1,0x23 0096 e005 | | Load 0x0,0x5 0097 e009 | | Load 0x0,0x9 0098 e00a | | Load 0x0,0xa 0099 e224 | $ | Load 0x1,0x24 009a e006 | | Load 0x0,0x6 009b 4808 |H | Short_Literal 0x8 009c e22a | * | Load 0x1,0x2a 009d 020e | | Execute Module,Augment_Imports 009e 00d8 | | Load_Top At_Offset_0 009f 020f | | Execute Module,Activate 00a0 029d 056b | k| Declare_Subprogram INIT_0568,For_Outer_Call 00a2 029d 057b | {| Declare_Subprogram INIT_0578,For_Outer_Call 00a4 1d0d | | Execute_Immediate Reference_Lex_1,0xd 00a5 00c7 | | Action Elaborate_Subprogram 00a6 1d0e | | Execute_Immediate Reference_Lex_1,0xe 00a7 00c7 | | Action Elaborate_Subprogram 00a8 1d0f | | Execute_Immediate Reference_Lex_1,0xf 00a9 00c7 | | Action Elaborate_Subprogram 00aa 1d10 | | Execute_Immediate Reference_Lex_1,0x10 00ab 00c7 | | Action Elaborate_Subprogram 00ac 1d11 | | Execute_Immediate Reference_Lex_1,0x11 00ad 00c7 | | Action Elaborate_Subprogram 00ae 1d12 | | Execute_Immediate Reference_Lex_1,0x12 00af 00c7 | | Action Elaborate_Subprogram 00b0 1d13 | | Execute_Immediate Reference_Lex_1,0x13 00b1 00c7 | | Action Elaborate_Subprogram 00b2 1d14 | | Execute_Immediate Reference_Lex_1,0x14 00b3 00c7 | | Action Elaborate_Subprogram 00b4 1d15 | | Execute_Immediate Reference_Lex_1,0x15 00b5 00c7 | | Action Elaborate_Subprogram 00b6 1d16 | | Execute_Immediate Reference_Lex_1,0x16 00b7 00c7 | | Action Elaborate_Subprogram 00b8 1d17 | | Execute_Immediate Reference_Lex_1,0x17 00b9 00c7 | | Action Elaborate_Subprogram 00ba 1d18 | | Execute_Immediate Reference_Lex_1,0x18 00bb 00c7 | | Action Elaborate_Subprogram 00bc 1d19 | | Execute_Immediate Reference_Lex_1,0x19 00bd 00c7 | | Action Elaborate_Subprogram 00be 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 00bf 00c7 | | Action Elaborate_Subprogram 00c0 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 00c1 00c7 | | Action Elaborate_Subprogram 00c2 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 00c3 00c7 | | Action Elaborate_Subprogram 00c4 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 00c5 00c7 | | Action Elaborate_Subprogram 00c6 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 00c7 00c7 | | Action Elaborate_Subprogram 00c8 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 00c9 00c7 | | Action Elaborate_Subprogram 00ca 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 00cb 00c7 | | Action Elaborate_Subprogram 00cc 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 00cd 00c7 | | Action Elaborate_Subprogram 00ce BODY_0008: 00ce 00bc | | Action Signal_Activated 00cf 00bb | | Action Signal_Completion 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d3 | | .CONST 0x00d3 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0001 | | .CONST 0x0001 ; Number of locals 00d3 BODY_00d0: 00d3 INIT_00d0: 00d3 e227 | ' | Load 0x1,0x27 00d4 03bc | | Declare_Variable Access,By_Allocation 00d5 00d8 | | Load_Top At_Offset_0 00d6 00e0 | | Load_Encached Standard_Cache 00d7 181f | | Execute Package,Field_Execute,Field_Number 0x1f 00d8 a228 | ( | Store_Unchecked 0x1,0x28 00d9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00da 0000 0000 | | .XXX[0x2] 00dc 0000 0000 | | .LITERAL {0x00000000, 0x00000400} 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e3 | | .CONST 0x00e3 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0001 | | .CONST 0x0001 ; Number of locals 00e3 BODY_00e0: 00e3 INIT_00e0: 00e3 e228 | ( | Load 0x1,0x28 00e4 0229 | ) | Execute Access,All_Read 00e5 0209 | | Execute Task,Abort 00e6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00e7 0000 | | .XXX[0x1] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00eb | | .CONST 0x00eb ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0001 | | .CONST 0x0001 ; Number of locals 00eb BODY_00e8: 00eb INIT_00e8: 00eb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00ec 0000 0000 | | .BLANK 0000[0x4] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f5 | | .CONST 0x00f5 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0002 | | .CONST 0x0002 ; Number of locals 00f3 INIT_00f0: 00f3 029f 0583 | | Declare_Subprogram INIT_0580,For_Call 00f5 BODY_00f0: 00f5 8402 | | Call 0x2,0x2 00f6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00f7 0000 | | .XXX[0x1] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 0109 | | .CONST 0x0109 ; Address of begin 00f9 010d | | .CONST 0x010d ; Address of exception handler 00fa 0002 | | .CONST 0x0002 ; Number of locals 00fb INIT_00f8: 00fb 4801 |H | Short_Literal 0x1 00fc e223 | # | Load 0x1,0x23 00fd 1c08 | | Execute_Immediate Run_Utility,0x8 00fe 00db | | Load_Top At_Offset_3 00ff 00d9 | | Load_Top At_Offset_1 0100 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 0101 e5fe | | Load 0x2,-0x2 0102 822b | + | Call 0x1,0x2b 0103 00d9 | | Load_Top At_Offset_1 0104 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 0105 e5fd | | Load 0x2,-0x3 0106 822b | + | Call 0x1,0x2b 0107 00d9 | | Load_Top At_Offset_1 0108 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 0109 BODY_00f8: 0109 00d8 | | Load_Top At_Offset_0 010a e22a | * | Load 0x1,0x2a 010b 180e | | Execute Package,Field_Execute,Field_Number 0xe 010c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 010d TRAP_00f8: 010d e22a | * | Load 0x1,0x2a 010e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 010f 010f | | Execute Exception,Equal 0110 680d |h | Jump_Zero 0x11e 0111 e00b | | Load 0x0,0xb 0112 180e | | Execute Package,Field_Execute,Field_Number 0xe 0113 4807 |H | Short_Literal 0x7 0114 0092 0789 | | Action Push_String_Extended,0x789 ; "No link to parent to register result thru - result = " 0116 e5ff | | Load 0x2,-0x1 0117 e002 | | Load 0x0,0x2 0118 011c | | Execute Any,Convert_Unchecked 0119 1c01 | | Execute_Immediate Run_Utility,0x1 011a 01cc | | Execute Vector,Catenate 011b e00c | | Load 0x0,0xc 011c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 011d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 011e 0100 | | Execute Exception,Raise 011f 0000 | | .XXX[0x1] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 012e | . | .CONST 0x012e ; Address of begin 0121 0139 | 9 | .CONST 0x0139 ; Address of exception handler 0122 0003 | | .CONST 0x0003 ; Number of locals 0123 INIT_0120: 0123 4802 |H | Short_Literal 0x2 0124 e223 | # | Load 0x1,0x23 0125 1c08 | | Execute_Immediate Run_Utility,0x8 0126 00db | | Load_Top At_Offset_3 0127 00d9 | | Load_Top At_Offset_1 0128 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5 0129 4802 |H | Short_Literal 0x2 012a e224 | $ | Load 0x1,0x24 012b 1c08 | | Execute_Immediate Run_Utility,0x8 012c 00d8 | | Load_Top At_Offset_0 012d 1c00 | | Execute_Immediate Run_Utility,0x0 012e BODY_0120: 012e 00d9 | | Load_Top At_Offset_1 012f e22a | * | Load 0x1,0x2a 0130 180e | | Execute Package,Field_Execute,Field_Number 0xe 0131 00d8 | | Load_Top At_Offset_0 0132 e22a | * | Load 0x1,0x2a 0133 180f | | Execute Package,Field_Execute,Field_Number 0xf 0134 00d1 | | Pop_Control Pop_Count_1 0135 00d8 | | Load_Top At_Offset_0 0136 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 0137 822c | , | Call 0x1,0x2c 0138 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0139 TRAP_0120: 0139 e22a | * | Load 0x1,0x2a 013a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 013b 010f | | Execute Exception,Equal 013c 680e |h | Jump_Zero 0x14b 013d e00b | | Load 0x0,0xb 013e 180e | | Execute Package,Field_Execute,Field_Number 0xe 013f 4807 |H | Short_Literal 0x7 0140 0092 078a | | Action Push_String_Extended,0x78a ; "No link to parent to extract library name thru for location " 0142 e5ff | | Load 0x2,-0x1 0143 e003 | | Load 0x0,0x3 0144 011c | | Execute Any,Convert_Unchecked 0145 1c01 | | Execute_Immediate Run_Utility,0x1 0146 01cc | | Execute Vector,Catenate 0147 e00c | | Load 0x0,0xc 0148 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0149 00ea | | Load_Encached Null_String_Cache 014a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 014b 0100 | | Execute Exception,Raise 014c 0000 0000 | | .BLANK 0000[0x4] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0162 | b | .CONST 0x0162 ; Address of begin 0151 016d | m | .CONST 0x016d ; Address of exception handler 0152 0003 | | .CONST 0x0003 ; Number of locals 0153 INIT_0150: 0153 4803 |H | Short_Literal 0x3 0154 e223 | # | Load 0x1,0x23 0155 1c08 | | Execute_Immediate Run_Utility,0x8 0156 00db | | Load_Top At_Offset_3 0157 822b | + | Call 0x1,0x2b 0158 00d9 | | Load_Top At_Offset_1 0159 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6 015a e5fe | | Load 0x2,-0x2 015b 00d9 | | Load_Top At_Offset_1 015c 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7 015d 4803 |H | Short_Literal 0x3 015e e224 | $ | Load 0x1,0x24 015f 1c08 | | Execute_Immediate Run_Utility,0x8 0160 00d8 | | Load_Top At_Offset_0 0161 1c00 | | Execute_Immediate Run_Utility,0x0 0162 BODY_0150: 0162 00d9 | | Load_Top At_Offset_1 0163 e22a | * | Load 0x1,0x2a 0164 180e | | Execute Package,Field_Execute,Field_Number 0xe 0165 00d8 | | Load_Top At_Offset_0 0166 e22a | * | Load 0x1,0x2a 0167 180f | | Execute Package,Field_Execute,Field_Number 0xf 0168 00d1 | | Pop_Control Pop_Count_1 0169 00d8 | | Load_Top At_Offset_0 016a 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 016b 822c | , | Call 0x1,0x2c 016c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 016d TRAP_0150: 016d e22a | * | Load 0x1,0x2a 016e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 016f 010f | | Execute Exception,Equal 0170 680b |h | Jump_Zero 0x17c 0171 e00b | | Load 0x0,0xb 0172 180e | | Execute Package,Field_Execute,Field_Number 0xe 0173 4807 |H | Short_Literal 0x7 0174 0092 078b | | Action Push_String_Extended,0x78b ; "No link to parent to extract full name thru for relative name " 0176 e5ff | | Load 0x2,-0x1 0177 01cc | | Execute Vector,Catenate 0178 e00c | | Load 0x0,0xc 0179 1813 | | Execute Package,Field_Execute,Field_Number 0x13 017a 00ea | | Load_Encached Null_String_Cache 017b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 017c 0100 | | Execute Exception,Raise 017d 0000 0000 | | .XXX[0x3] 017f 0000 | | 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 018e | | .CONST 0x018e ; Address of begin 0181 0198 | | .CONST 0x0198 ; Address of exception handler 0182 0003 | | .CONST 0x0003 ; Number of locals 0183 INIT_0180: 0183 4804 |H | Short_Literal 0x4 0184 e223 | # | Load 0x1,0x23 0185 1c08 | | Execute_Immediate Run_Utility,0x8 0186 00db | | Load_Top At_Offset_3 0187 00d9 | | Load_Top At_Offset_1 0188 2a08 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8 0189 4804 |H | Short_Literal 0x4 018a e224 | $ | Load 0x1,0x24 018b 1c08 | | Execute_Immediate Run_Utility,0x8 018c 00d8 | | Load_Top At_Offset_0 018d 1c00 | | Execute_Immediate Run_Utility,0x0 018e BODY_0180: 018e 00d9 | | Load_Top At_Offset_1 018f e22a | * | Load 0x1,0x2a 0190 180e | | Execute Package,Field_Execute,Field_Number 0xe 0191 00d8 | | Load_Top At_Offset_0 0192 e22a | * | Load 0x1,0x2a 0193 180f | | Execute Package,Field_Execute,Field_Number 0xf 0194 00d1 | | Pop_Control Pop_Count_1 0195 00d8 | | Load_Top At_Offset_0 0196 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 0197 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0198 TRAP_0180: 0198 e22a | * | Load 0x1,0x2a 0199 1b0d | | Execute Package,Field_Read,Field_Number 0xd 019a 010f | | Execute Exception,Equal 019b 6811 |h | Jump_Zero 0x1ad 019c e00b | | Load 0x0,0xb 019d 180e | | Execute Package,Field_Execute,Field_Number 0xe 019e 4807 |H | Short_Literal 0x7 019f 0092 078c | | Action Push_String_Extended,0x78c ; "No link to parent to extract number of " 01a1 e5ff | | Load 0x2,-0x1 01a2 e002 | | Load 0x0,0x2 01a3 011c | | Execute Any,Convert_Unchecked 01a4 1c01 | | Execute_Immediate Run_Utility,0x1 01a5 01cc | | Execute Vector,Catenate 01a6 0092 078d | | Action Push_String_Extended,0x78d ; " thru" 01a8 01cc | | Execute Vector,Catenate 01a9 e00c | | Load 0x0,0xc 01aa 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01ab 4800 |H | Short_Literal 0x0 01ac 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ad 0100 | | Execute Exception,Raise 01ae 0000 0000 | | .XXX[0x2] 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01bb | | .CONST 0x01bb ; Address of begin 01b1 01c5 | | .CONST 0x01c5 ; Address of exception handler 01b2 0003 | | .CONST 0x0003 ; Number of locals 01b3 INIT_01b0: 01b3 4805 |H | Short_Literal 0x5 01b4 e224 | $ | Load 0x1,0x24 01b5 1c08 | | Execute_Immediate Run_Utility,0x8 01b6 00d8 | | Load_Top At_Offset_0 01b7 1c00 | | Execute_Immediate Run_Utility,0x0 01b8 4805 |H | Short_Literal 0x5 01b9 e223 | # | Load 0x1,0x23 01ba 1c08 | | Execute_Immediate Run_Utility,0x8 01bb BODY_01b0: 01bb 00d8 | | Load_Top At_Offset_0 01bc e22a | * | Load 0x1,0x2a 01bd 180e | | Execute Package,Field_Execute,Field_Number 0xe 01be 00d9 | | Load_Top At_Offset_1 01bf e22a | * | Load 0x1,0x2a 01c0 180f | | Execute Package,Field_Execute,Field_Number 0xf 01c1 00d1 | | Pop_Control Pop_Count_1 01c2 00d9 | | Load_Top At_Offset_1 01c3 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 01c4 00ca | | Action Exit_Nullary_Function 01c5 TRAP_01b0: 01c5 e22a | * | Load 0x1,0x2a 01c6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01c7 010f | | Execute Exception,Equal 01c8 6809 |h | Jump_Zero 0x1d2 01c9 e00b | | Load 0x0,0xb 01ca 180e | | Execute Package,Field_Execute,Field_Number 0xe 01cb 4807 |H | Short_Literal 0x7 01cc 0092 078e | | Action Push_String_Extended,0x78e ; "No link to parent to extract prior test case result thru" 01ce e00c | | Load 0x0,0xc 01cf 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01d0 4800 |H | Short_Literal 0x0 01d1 00ca | | Action Exit_Nullary_Function 01d2 0100 | | Execute Exception,Raise 01d3 0000 0000 | | .BLANK 0000[0x5] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01eb | | .CONST 0x01eb ; Address of begin 01d9 01f5 | | .CONST 0x01f5 ; Address of exception handler 01da 0003 | | .CONST 0x0003 ; Number of locals 01db INIT_01d8: 01db 4806 |H | Short_Literal 0x6 01dc e223 | # | Load 0x1,0x23 01dd 1c08 | | Execute_Immediate Run_Utility,0x8 01de 00db | | Load_Top At_Offset_3 01df 822b | + | Call 0x1,0x2b 01e0 00d9 | | Load_Top At_Offset_1 01e1 2a09 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9 01e2 e5fe | | Load 0x2,-0x2 01e3 822b | + | Call 0x1,0x2b 01e4 00d9 | | Load_Top At_Offset_1 01e5 2a0a |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xa 01e6 4806 |H | Short_Literal 0x6 01e7 e224 | $ | Load 0x1,0x24 01e8 1c08 | | Execute_Immediate Run_Utility,0x8 01e9 00d8 | | Load_Top At_Offset_0 01ea 1c00 | | Execute_Immediate Run_Utility,0x0 01eb BODY_01d8: 01eb 00d9 | | Load_Top At_Offset_1 01ec e22a | * | Load 0x1,0x2a 01ed 180e | | Execute Package,Field_Execute,Field_Number 0xe 01ee 00d8 | | Load_Top At_Offset_0 01ef e22a | * | Load 0x1,0x2a 01f0 180f | | Execute Package,Field_Execute,Field_Number 0xf 01f1 00d1 | | Pop_Control Pop_Count_1 01f2 00d8 | | Load_Top At_Offset_0 01f3 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 01f4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01f5 TRAP_01d8: 01f5 e22a | * | Load 0x1,0x2a 01f6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01f7 010f | | Execute Exception,Equal 01f8 680e |h | Jump_Zero 0x207 01f9 e00b | | Load 0x0,0xb 01fa 180e | | Execute Package,Field_Execute,Field_Number 0xe 01fb 4807 |H | Short_Literal 0x7 01fc 0092 078f | | Action Push_String_Extended,0x78f ; "No link to parent to extract test case result for " 01fe e5fe | | Load 0x2,-0x2 01ff 01cc | | Execute Vector,Catenate 0200 0092 078d | | Action Push_String_Extended,0x78d ; " thru" 0202 01cc | | Execute Vector,Catenate 0203 e00c | | Load 0x0,0xc 0204 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0205 4800 |H | Short_Literal 0x0 0206 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0207 0100 | | Execute Exception,Raise 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 0213 | | .CONST 0x0213 ; Address of begin 0209 021e | | .CONST 0x021e ; Address of exception handler 020a 0003 | | .CONST 0x0003 ; Number of locals 020b INIT_0208: 020b 4807 |H | Short_Literal 0x7 020c e224 | $ | Load 0x1,0x24 020d 1c08 | | Execute_Immediate Run_Utility,0x8 020e 00d8 | | Load_Top At_Offset_0 020f 1c00 | | Execute_Immediate Run_Utility,0x0 0210 4807 |H | Short_Literal 0x7 0211 e223 | # | Load 0x1,0x23 0212 1c08 | | Execute_Immediate Run_Utility,0x8 0213 BODY_0208: 0213 00d8 | | Load_Top At_Offset_0 0214 e22a | * | Load 0x1,0x2a 0215 180e | | Execute Package,Field_Execute,Field_Number 0xe 0216 00d9 | | Load_Top At_Offset_1 0217 e22a | * | Load 0x1,0x2a 0218 180f | | Execute Package,Field_Execute,Field_Number 0xf 0219 00d1 | | Pop_Control Pop_Count_1 021a 00d9 | | Load_Top At_Offset_1 021b 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 021c 822c | , | Call 0x1,0x2c 021d 00ca | | Action Exit_Nullary_Function 021e TRAP_0208: 021e e22a | * | Load 0x1,0x2a 021f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0220 010f | | Execute Exception,Equal 0221 6809 |h | Jump_Zero 0x22b 0222 e00b | | Load 0x0,0xb 0223 180e | | Execute Package,Field_Execute,Field_Number 0xe 0224 4807 |H | Short_Literal 0x7 0225 0092 0790 | | Action Push_String_Extended,0x790 ; "No link to parent to extract coverage analyzer params thru" 0227 e00c | | Load 0x0,0xc 0228 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0229 00ea | | Load_Encached Null_String_Cache 022a 00ca | | Action Exit_Nullary_Function 022b 0100 | | Execute Exception,Raise 022c 0000 0000 | | .BLANK 0000[0x4] 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 023b | ; | .CONST 0x023b ; Address of begin 0231 0246 | F | .CONST 0x0246 ; Address of exception handler 0232 0003 | | .CONST 0x0003 ; Number of locals 0233 INIT_0230: 0233 4808 |H | Short_Literal 0x8 0234 e224 | $ | Load 0x1,0x24 0235 1c08 | | Execute_Immediate Run_Utility,0x8 0236 00d8 | | Load_Top At_Offset_0 0237 1c00 | | Execute_Immediate Run_Utility,0x0 0238 4808 |H | Short_Literal 0x8 0239 e223 | # | Load 0x1,0x23 023a 1c08 | | Execute_Immediate Run_Utility,0x8 023b BODY_0230: 023b 00d8 | | Load_Top At_Offset_0 023c e22a | * | Load 0x1,0x2a 023d 180e | | Execute Package,Field_Execute,Field_Number 0xe 023e 00d9 | | Load_Top At_Offset_1 023f e22a | * | Load 0x1,0x2a 0240 180f | | Execute Package,Field_Execute,Field_Number 0xf 0241 00d1 | | Pop_Control Pop_Count_1 0242 00d9 | | Load_Top At_Offset_1 0243 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 0244 822c | , | Call 0x1,0x2c 0245 00ca | | Action Exit_Nullary_Function 0246 TRAP_0230: 0246 e22a | * | Load 0x1,0x2a 0247 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0248 010f | | Execute Exception,Equal 0249 6809 |h | Jump_Zero 0x253 024a e00b | | Load 0x0,0xb 024b 180e | | Execute Package,Field_Execute,Field_Number 0xe 024c 4807 |H | Short_Literal 0x7 024d 0092 0791 | | Action Push_String_Extended,0x791 ; "No link to parent to extract user controls thru" 024f e00c | | Load 0x0,0xc 0250 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0251 00ea | | Load_Encached Null_String_Cache 0252 00ca | | Action Exit_Nullary_Function 0253 0100 | | Execute Exception,Raise 0254 0000 0000 | | .BLANK 0000[0x4] 0258 ; -------------------------------------------------------------------------------------- 0258 ; SUBPROGRAM 0258 ; -------------------------------------------------------------------------------------- 0258 0263 | c | .CONST 0x0263 ; Address of begin 0259 026d | m | .CONST 0x026d ; Address of exception handler 025a 0003 | | .CONST 0x0003 ; Number of locals 025b INIT_0258: 025b 4809 |H | Short_Literal 0x9 025c e224 | $ | Load 0x1,0x24 025d 1c08 | | Execute_Immediate Run_Utility,0x8 025e 00d8 | | Load_Top At_Offset_0 025f 1c00 | | Execute_Immediate Run_Utility,0x0 0260 4809 |H | Short_Literal 0x9 0261 e223 | # | Load 0x1,0x23 0262 1c08 | | Execute_Immediate Run_Utility,0x8 0263 BODY_0258: 0263 00d8 | | Load_Top At_Offset_0 0264 e22a | * | Load 0x1,0x2a 0265 180e | | Execute Package,Field_Execute,Field_Number 0xe 0266 00d9 | | Load_Top At_Offset_1 0267 e22a | * | Load 0x1,0x2a 0268 180f | | Execute Package,Field_Execute,Field_Number 0xf 0269 00d1 | | Pop_Control Pop_Count_1 026a 00d9 | | Load_Top At_Offset_1 026b 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 026c 00ca | | Action Exit_Nullary_Function 026d TRAP_0258: 026d e22a | * | Load 0x1,0x2a 026e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 026f 010f | | Execute Exception,Equal 0270 6809 |h | Jump_Zero 0x27a 0271 e00b | | Load 0x0,0xb 0272 180e | | Execute Package,Field_Execute,Field_Number 0xe 0273 4807 |H | Short_Literal 0x7 0274 0092 0792 | | Action Push_String_Extended,0x792 ; "No link to parent to extract overall clock time thru" 0276 e00c | | Load 0x0,0xc 0277 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0278 4800 |H | Short_Literal 0x0 0279 00ca | | Action Exit_Nullary_Function 027a 0100 | | Execute Exception,Raise 027b 0000 0000 | | .BLANK 0000[0x5] 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 028b | | .CONST 0x028b ; Address of begin 0281 0295 | | .CONST 0x0295 ; Address of exception handler 0282 0003 | | .CONST 0x0003 ; Number of locals 0283 INIT_0280: 0283 4805 |H | Short_Literal 0x5 0284 e224 | $ | Load 0x1,0x24 0285 1c08 | | Execute_Immediate Run_Utility,0x8 0286 00d8 | | Load_Top At_Offset_0 0287 1c00 | | Execute_Immediate Run_Utility,0x0 0288 4805 |H | Short_Literal 0x5 0289 e223 | # | Load 0x1,0x23 028a 1c08 | | Execute_Immediate Run_Utility,0x8 028b BODY_0280: 028b 00d8 | | Load_Top At_Offset_0 028c e22a | * | Load 0x1,0x2a 028d 180e | | Execute Package,Field_Execute,Field_Number 0xe 028e 00d9 | | Load_Top At_Offset_1 028f e22a | * | Load 0x1,0x2a 0290 180f | | Execute Package,Field_Execute,Field_Number 0xf 0291 00d1 | | Pop_Control Pop_Count_1 0292 00d9 | | Load_Top At_Offset_1 0293 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 0294 00ca | | Action Exit_Nullary_Function 0295 TRAP_0280: 0295 e22a | * | Load 0x1,0x2a 0296 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0297 010f | | Execute Exception,Equal 0298 6809 |h | Jump_Zero 0x2a2 0299 e00b | | Load 0x0,0xb 029a 180e | | Execute Package,Field_Execute,Field_Number 0xe 029b 4807 |H | Short_Literal 0x7 029c 0092 0793 | | Action Push_String_Extended,0x793 ; "No link to parent to extract overall cpu time thru" 029e e00c | | Load 0x0,0xc 029f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02a0 4800 |H | Short_Literal 0x0 02a1 00ca | | Action Exit_Nullary_Function 02a2 0100 | | Execute Exception,Raise 02a3 0000 0000 | | .BLANK 0000[0x5] 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; SUBPROGRAM 02a8 ; -------------------------------------------------------------------------------------- 02a8 02b3 | | .CONST 0x02b3 ; Address of begin 02a9 02bd | | .CONST 0x02bd ; Address of exception handler 02aa 0003 | | .CONST 0x0003 ; Number of locals 02ab INIT_02a8: 02ab 480b |H | Short_Literal 0xb 02ac e224 | $ | Load 0x1,0x24 02ad 1c08 | | Execute_Immediate Run_Utility,0x8 02ae 00d8 | | Load_Top At_Offset_0 02af 1c00 | | Execute_Immediate Run_Utility,0x0 02b0 480b |H | Short_Literal 0xb 02b1 e223 | # | Load 0x1,0x23 02b2 1c08 | | Execute_Immediate Run_Utility,0x8 02b3 BODY_02a8: 02b3 00d8 | | Load_Top At_Offset_0 02b4 e22a | * | Load 0x1,0x2a 02b5 180e | | Execute Package,Field_Execute,Field_Number 0xe 02b6 00d9 | | Load_Top At_Offset_1 02b7 e22a | * | Load 0x1,0x2a 02b8 180f | | Execute Package,Field_Execute,Field_Number 0xf 02b9 00d1 | | Pop_Control Pop_Count_1 02ba 00d9 | | Load_Top At_Offset_1 02bb 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 02bc 00ca | | Action Exit_Nullary_Function 02bd TRAP_02a8: 02bd e22a | * | Load 0x1,0x2a 02be 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02bf 010f | | Execute Exception,Equal 02c0 6809 |h | Jump_Zero 0x2ca 02c1 e00b | | Load 0x0,0xb 02c2 180e | | Execute Package,Field_Execute,Field_Number 0xe 02c3 4807 |H | Short_Literal 0x7 02c4 0092 0794 | | Action Push_String_Extended,0x794 ; "No link to parent to extract max clock per test thru" 02c6 e00c | | Load 0x0,0xc 02c7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02c8 4800 |H | Short_Literal 0x0 02c9 00ca | | Action Exit_Nullary_Function 02ca 0100 | | Execute Exception,Raise 02cb 0000 0000 | | .BLANK 0000[0x5] 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; SUBPROGRAM 02d0 ; -------------------------------------------------------------------------------------- 02d0 02db | | .CONST 0x02db ; Address of begin 02d1 02e5 | | .CONST 0x02e5 ; Address of exception handler 02d2 0003 | | .CONST 0x0003 ; Number of locals 02d3 INIT_02d0: 02d3 480c |H | Short_Literal 0xc 02d4 e224 | $ | Load 0x1,0x24 02d5 1c08 | | Execute_Immediate Run_Utility,0x8 02d6 00d8 | | Load_Top At_Offset_0 02d7 1c00 | | Execute_Immediate Run_Utility,0x0 02d8 480c |H | Short_Literal 0xc 02d9 e223 | # | Load 0x1,0x23 02da 1c08 | | Execute_Immediate Run_Utility,0x8 02db BODY_02d0: 02db 00d8 | | Load_Top At_Offset_0 02dc e22a | * | Load 0x1,0x2a 02dd 180e | | Execute Package,Field_Execute,Field_Number 0xe 02de 00d9 | | Load_Top At_Offset_1 02df e22a | * | Load 0x1,0x2a 02e0 180f | | Execute Package,Field_Execute,Field_Number 0xf 02e1 00d1 | | Pop_Control Pop_Count_1 02e2 00d9 | | Load_Top At_Offset_1 02e3 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 02e4 00ca | | Action Exit_Nullary_Function 02e5 TRAP_02d0: 02e5 e22a | * | Load 0x1,0x2a 02e6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02e7 010f | | Execute Exception,Equal 02e8 6809 |h | Jump_Zero 0x2f2 02e9 e00b | | Load 0x0,0xb 02ea 180e | | Execute Package,Field_Execute,Field_Number 0xe 02eb 4807 |H | Short_Literal 0x7 02ec 0092 0795 | | Action Push_String_Extended,0x795 ; "No link to parent to extract max cpu per test thru" 02ee e00c | | Load 0x0,0xc 02ef 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02f0 4800 |H | Short_Literal 0x0 02f1 00ca | | Action Exit_Nullary_Function 02f2 0100 | | Execute Exception,Raise 02f3 0000 0000 | | .BLANK 0000[0x5] 02f8 ; -------------------------------------------------------------------------------------- 02f8 ; SUBPROGRAM 02f8 ; -------------------------------------------------------------------------------------- 02f8 0303 | | .CONST 0x0303 ; Address of begin 02f9 030d | | .CONST 0x030d ; Address of exception handler 02fa 0003 | | .CONST 0x0003 ; Number of locals 02fb INIT_02f8: 02fb 480d |H | Short_Literal 0xd 02fc e224 | $ | Load 0x1,0x24 02fd 1c08 | | Execute_Immediate Run_Utility,0x8 02fe 00d8 | | Load_Top At_Offset_0 02ff 1c00 | | Execute_Immediate Run_Utility,0x0 0300 480d |H | Short_Literal 0xd 0301 e223 | # | Load 0x1,0x23 0302 1c08 | | Execute_Immediate Run_Utility,0x8 0303 BODY_02f8: 0303 00d8 | | Load_Top At_Offset_0 0304 e22a | * | Load 0x1,0x2a 0305 180e | | Execute Package,Field_Execute,Field_Number 0xe 0306 00d9 | | Load_Top At_Offset_1 0307 e22a | * | Load 0x1,0x2a 0308 180f | | Execute Package,Field_Execute,Field_Number 0xf 0309 00d1 | | Pop_Control Pop_Count_1 030a 00d9 | | Load_Top At_Offset_1 030b 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 030c 00ca | | Action Exit_Nullary_Function 030d TRAP_02f8: 030d e22a | * | Load 0x1,0x2a 030e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 030f 010f | | Execute Exception,Equal 0310 6809 |h | Jump_Zero 0x31a 0311 e00b | | Load 0x0,0xb 0312 180e | | Execute Package,Field_Execute,Field_Number 0xe 0313 4807 |H | Short_Literal 0x7 0314 0092 0796 | | Action Push_String_Extended,0x796 ; "No link to parent to extract max number of failures thru" 0316 e00c | | Load 0x0,0xc 0317 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0318 4800 |H | Short_Literal 0x0 0319 00ca | | Action Exit_Nullary_Function 031a 0100 | | Execute Exception,Raise 031b 0000 0000 | | .BLANK 0000[0x5] 0320 ; -------------------------------------------------------------------------------------- 0320 ; SUBPROGRAM 0320 ; -------------------------------------------------------------------------------------- 0320 032b | + | .CONST 0x032b ; Address of begin 0321 0335 | 5 | .CONST 0x0335 ; Address of exception handler 0322 0003 | | .CONST 0x0003 ; Number of locals 0323 INIT_0320: 0323 480e |H | Short_Literal 0xe 0324 e224 | $ | Load 0x1,0x24 0325 1c08 | | Execute_Immediate Run_Utility,0x8 0326 00d8 | | Load_Top At_Offset_0 0327 1c00 | | Execute_Immediate Run_Utility,0x0 0328 480e |H | Short_Literal 0xe 0329 e223 | # | Load 0x1,0x23 032a 1c08 | | Execute_Immediate Run_Utility,0x8 032b BODY_0320: 032b 00d8 | | Load_Top At_Offset_0 032c e22a | * | Load 0x1,0x2a 032d 180e | | Execute Package,Field_Execute,Field_Number 0xe 032e 00d9 | | Load_Top At_Offset_1 032f e22a | * | Load 0x1,0x2a 0330 180f | | Execute Package,Field_Execute,Field_Number 0xf 0331 00d1 | | Pop_Control Pop_Count_1 0332 00d9 | | Load_Top At_Offset_1 0333 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6 0334 00ca | | Action Exit_Nullary_Function 0335 TRAP_0320: 0335 e22a | * | Load 0x1,0x2a 0336 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0337 010f | | Execute Exception,Equal 0338 6809 |h | Jump_Zero 0x342 0339 e00b | | Load 0x0,0xb 033a 180e | | Execute Package,Field_Execute,Field_Number 0xe 033b 4807 |H | Short_Literal 0x7 033c 0092 0797 | | Action Push_String_Extended,0x797 ; "No link to parent to extract the unhandled exception termination setting thru" 033e e00c | | Load 0x0,0xc 033f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0340 4800 |H | Short_Literal 0x0 0341 00ca | | Action Exit_Nullary_Function 0342 0100 | | Execute Exception,Raise 0343 0000 0000 | | .BLANK 0000[0x5] 0348 ; -------------------------------------------------------------------------------------- 0348 ; SUBPROGRAM 0348 ; -------------------------------------------------------------------------------------- 0348 0353 | S | .CONST 0x0353 ; Address of begin 0349 035d | ] | .CONST 0x035d ; Address of exception handler 034a 0003 | | .CONST 0x0003 ; Number of locals 034b INIT_0348: 034b 480f |H | Short_Literal 0xf 034c e224 | $ | Load 0x1,0x24 034d 1c08 | | Execute_Immediate Run_Utility,0x8 034e 00d8 | | Load_Top At_Offset_0 034f 1c00 | | Execute_Immediate Run_Utility,0x0 0350 480f |H | Short_Literal 0xf 0351 e223 | # | Load 0x1,0x23 0352 1c08 | | Execute_Immediate Run_Utility,0x8 0353 BODY_0348: 0353 00d8 | | Load_Top At_Offset_0 0354 e22a | * | Load 0x1,0x2a 0355 180e | | Execute Package,Field_Execute,Field_Number 0xe 0356 00d9 | | Load_Top At_Offset_1 0357 e22a | * | Load 0x1,0x2a 0358 180f | | Execute Package,Field_Execute,Field_Number 0xf 0359 00d1 | | Pop_Control Pop_Count_1 035a 00d9 | | Load_Top At_Offset_1 035b 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7 035c 00ca | | Action Exit_Nullary_Function 035d TRAP_0348: 035d e22a | * | Load 0x1,0x2a 035e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 035f 010f | | Execute Exception,Equal 0360 6809 |h | Jump_Zero 0x36a 0361 e00b | | Load 0x0,0xb 0362 180e | | Execute Package,Field_Execute,Field_Number 0xe 0363 4807 |H | Short_Literal 0x7 0364 0092 0797 | | Action Push_String_Extended,0x797 ; "No link to parent to extract the unhandled exception termination setting thru" 0366 e00c | | Load 0x0,0xc 0367 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0368 4800 |H | Short_Literal 0x0 0369 00ca | | Action Exit_Nullary_Function 036a 0100 | | Execute Exception,Raise 036b 0000 0000 | | .BLANK 0000[0x5] 0370 ; -------------------------------------------------------------------------------------- 0370 ; SUBPROGRAM 0370 ; -------------------------------------------------------------------------------------- 0370 0373 | s | .CONST 0x0373 ; Address of begin 0371 0004 | | .CONST 0x0004 ; Address of exception handler 0372 0001 | | .CONST 0x0001 ; Number of locals 0373 BODY_0370: 0373 INIT_0370: 0373 4607 |F | Jump_Case 0x8 0374 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0375 7807 |x | Jump 0x37d ; case 0x1 0376 780a |x | Jump 0x381 ; case 0x2 0377 780e |x | Jump 0x386 ; case 0x3 0378 7811 |x | Jump 0x38a ; case 0x4 0379 7812 |x | Jump 0x38c ; case 0x5 037a 7813 |x | Jump 0x38e ; case 0x6 037b 7816 |x | Jump 0x392 ; case 0x7 037c 4302 |C | .XXX[0x1] 037d 00da | | Load_Top At_Offset_2 037e 0091 0779 | y| Action Push_String_Extended_Indexed,0x779 ; "NONE" 0380 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0381 00db | | Load_Top At_Offset_3 0382 00db | | Load_Top At_Offset_3 0383 00e0 | | Load_Encached Standard_Cache 0384 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0385 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0386 00da | | Load_Top At_Offset_2 0387 00e0 | | Load_Encached Standard_Cache 0388 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0389 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 038a 00db | | Load_Top At_Offset_3 038b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 038c 00db | | Load_Top At_Offset_3 038d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 038e e220 | | Load 0x1,0x20 038f 00dc | | Load_Top At_Offset_4 0390 0267 | g | Execute Discrete,Predecessor 0391 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0392 e220 | | Load 0x1,0x20 0393 00dc | | Load_Top At_Offset_4 0394 0268 | h | Execute Discrete,Successor 0395 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0396 0000 0000 | | .XXX[0x2] 0398 ; -------------------------------------------------------------------------------------- 0398 ; SUBPROGRAM 0398 ; -------------------------------------------------------------------------------------- 0398 039b | | .CONST 0x039b ; Address of begin 0399 0004 | | .CONST 0x0004 ; Address of exception handler 039a 0001 | | .CONST 0x0001 ; Number of locals 039b BODY_0398: 039b INIT_0398: 039b 4609 |F | Jump_Case 0xa 039c 7809 |x | Jump 0x3a6 ; case 0x0 039d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 039e 7813 |x | Jump 0x3b2 ; case 0x2 039f 7816 |x | Jump 0x3b6 ; case 0x3 03a0 7832 |x2 | Jump 0x3d3 ; case 0x4 03a1 7831 |x1 | Jump 0x3d3 ; case 0x5 03a2 7830 |x0 | Jump 0x3d3 ; case 0x6 03a3 7818 |x | Jump 0x3bc ; case 0x7 03a4 7820 |x | Jump 0x3c5 ; case 0x8 03a5 7829 |x) | Jump 0x3cf ; case 0x9 03a6 00da | | Load_Top At_Offset_2 03a7 016c | l | Execute Variant_Record,Is_Constrained 03a8 7008 |p | Jump_Nonzero 0x3b1 03a9 00cf | | Action Mark_Auxiliary 03aa 4800 |H | Short_Literal 0x0 03ab e5ff | | Load 0x2,-0x1 03ac 1c08 | | Execute_Immediate Run_Utility,0x8 03ad 00d8 | | Load_Top At_Offset_0 03ae 1c00 | | Execute_Immediate Run_Utility,0x0 03af c5ff | | Store 0x2,-0x1 03b0 00ce | | Action Pop_Auxiliary 03b1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 03b2 4801 |H | Short_Literal 0x1 03b3 4802 |H | Short_Literal 0x2 03b4 0311 | | Declare_Type Variant_Record,Constrained_Incomplete 03b5 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 03b6 e5fd | | Load 0x2,-0x3 03b7 00db | | Load_Top At_Offset_3 03b8 1c07 | | Execute_Immediate Run_Utility,0x7 03b9 e5fe | | Load 0x2,-0x2 03ba 0306 | | Complete_Type Variant_Record,By_Renaming 03bb 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4 03bc 00db | | Load_Top At_Offset_3 03bd 4801 |H | Short_Literal 0x1 03be e5fe | | Load 0x2,-0x2 03bf 00e9 | | Load_Encached String_Cache 03c0 035b | [ | Declare_Type Array,Constrained 03c1 4801 |H | Short_Literal 0x1 03c2 e5ff | | Load 0x2,-0x1 03c3 031b | | Declare_Type Variant_Record,Constrained 03c4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 03c5 00db | | Load_Top At_Offset_3 03c6 00db | | Load_Top At_Offset_3 03c7 02fc | | Declare_Variable Variant_Record,With_Constraint 03c8 4801 |H | Short_Literal 0x1 03c9 e5fe | | Load 0x2,-0x2 03ca 00e9 | | Load_Encached String_Cache 03cb 0334 | 4 | Declare_Variable Array,With_Constraint 03cc 2d02 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x2 03cd 016a | j | QQ_execute Variant_Record,XXX 03ce 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 03cf 4800 |H | Short_Literal 0x0 03d0 00db | | Load_Top At_Offset_3 03d1 1c07 | | Execute_Immediate Run_Utility,0x7 03d2 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 03d3 0869 | i | Execute_Immediate Raise,0x69 03d4 0000 0000 | | .BLANK 0000[0x4] 03d8 ; -------------------------------------------------------------------------------------- 03d8 ; SUBPROGRAM 03d8 ; -------------------------------------------------------------------------------------- 03d8 03db | | .CONST 0x03db ; Address of begin 03d9 0004 | | .CONST 0x0004 ; Address of exception handler 03da 0001 | | .CONST 0x0001 ; Number of locals 03db BODY_03d8: 03db INIT_03d8: 03db 4609 |F | Jump_Case 0xa 03dc 7809 |x | Jump 0x3e6 ; case 0x0 03dd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 03de 7839 |x9 | Jump 0x418 ; case 0x2 03df 783c |x< | Jump 0x41c ; case 0x3 03e0 788d |x | Jump 0x46e ; case 0x4 03e1 788c |x | Jump 0x46e ; case 0x5 03e2 783f |x? | Jump 0x422 ; case 0x6 03e3 785c |x\ | Jump 0x440 ; case 0x7 03e4 787e |x~ | Jump 0x463 ; case 0x8 03e5 7884 |x | Jump 0x46a ; case 0x9 03e6 00da | | Load_Top At_Offset_2 03e7 016c | l | Execute Variant_Record,Is_Constrained 03e8 7009 |p | Jump_Nonzero 0x3f2 03e9 00cf | | Action Mark_Auxiliary 03ea 4800 |H | Short_Literal 0x0 03eb e5ff | | Load 0x2,-0x1 03ec 1c08 | | Execute_Immediate Run_Utility,0x8 03ed 00d8 | | Load_Top At_Offset_0 03ee 1c00 | | Execute_Immediate Run_Utility,0x0 03ef c5ff | | Store 0x2,-0x1 03f0 00ce | | Action Pop_Auxiliary 03f1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 03f2 00da | | Load_Top At_Offset_2 03f3 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 03f4 460f |F | Jump_Case 0x10 03f5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 03f6 780f |x | Jump 0x406 ; case 0x1 03f7 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 03f8 7814 |x | Jump 0x40d ; case 0x3 03f9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 03fa 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 03fb 7815 |x | Jump 0x411 ; case 0x6 03fc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7 03fd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8 03fe 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x9 03ff 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0xa 0400 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0xb 0401 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0xc 0402 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0xd 0403 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0xe 0404 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0xf 0405 4302 |C | .XXX[0x1] 0406 00da | | Load_Top At_Offset_2 0407 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 0408 1c00 | | Execute_Immediate Run_Utility,0x0 0409 00da | | Load_Top At_Offset_2 040a 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4 040b 1c00 | | Execute_Immediate Run_Utility,0x0 040c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 040d 00da | | Load_Top At_Offset_2 040e 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6 040f 1c00 | | Execute_Immediate Run_Utility,0x0 0410 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0411 00da | | Load_Top At_Offset_2 0412 2609 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9 0413 1c00 | | Execute_Immediate Run_Utility,0x0 0414 00da | | Load_Top At_Offset_2 0415 260a |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xa 0416 1c00 | | Execute_Immediate Run_Utility,0x0 0417 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0418 4801 |H | Short_Literal 0x1 0419 480a |H | Short_Literal 0xa 041a 0311 | | Declare_Type Variant_Record,Constrained_Incomplete 041b 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 041c e5fd | | Load 0x2,-0x3 041d 00db | | Load_Top At_Offset_3 041e 1c07 | | Execute_Immediate Run_Utility,0x7 041f e5fe | | Load 0x2,-0x2 0420 0306 | | Complete_Type Variant_Record,By_Renaming 0421 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4 0422 00db | | Load_Top At_Offset_3 0423 460f |F | Jump_Case 0x10 0424 780f |x | Jump 0x434 ; case 0x0 0425 7810 |x | Jump 0x436 ; case 0x1 0426 7811 |x | Jump 0x438 ; case 0x2 0427 7812 |x | Jump 0x43a ; case 0x3 0428 7813 |x | Jump 0x43c ; case 0x4 0429 780a |x | Jump 0x434 ; case 0x5 042a 7813 |x | Jump 0x43e ; case 0x6 042b 7808 |x | Jump 0x434 ; case 0x7 042c 7807 |x | Jump 0x434 ; case 0x8 042d 7806 |x | Jump 0x434 ; case 0x9 042e 7805 |x | Jump 0x434 ; case 0xa 042f 7804 |x | Jump 0x434 ; case 0xb 0430 7803 |x | Jump 0x434 ; case 0xc 0431 7802 |x | Jump 0x434 ; case 0xd 0432 7801 |x | Jump 0x434 ; case 0xe 0433 7800 |x | Jump 0x434 ; case 0xf 0434 48ff |H | Short_Literal 0xff 0435 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0436 4801 |H | Short_Literal 0x1 0437 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0438 4802 |H | Short_Literal 0x2 0439 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 043a 4803 |H | Short_Literal 0x3 043b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 043c 4804 |H | Short_Literal 0x4 043d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 043e 4805 |H | Short_Literal 0x5 043f 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0440 00db | | Load_Top At_Offset_3 0441 e5fe | | Load 0x2,-0x2 0442 460f |F | Jump_Case 0x10 0443 7811 |x | Jump 0x455 ; case 0x0 0444 7812 |x | Jump 0x457 ; case 0x1 0445 7813 |x | Jump 0x459 ; case 0x2 0446 7814 |x | Jump 0x45b ; case 0x3 0447 7815 |x | Jump 0x45d ; case 0x4 0448 780a |x | Jump 0x453 ; case 0x5 0449 7815 |x | Jump 0x45f ; case 0x6 044a 7808 |x | Jump 0x453 ; case 0x7 044b 7807 |x | Jump 0x453 ; case 0x8 044c 7806 |x | Jump 0x453 ; case 0x9 044d 7805 |x | Jump 0x453 ; case 0xa 044e 7804 |x | Jump 0x453 ; case 0xb 044f 7803 |x | Jump 0x453 ; case 0xc 0450 7802 |x | Jump 0x453 ; case 0xd 0451 7801 |x | Jump 0x453 ; case 0xe 0452 7800 |x | Jump 0x453 ; case 0xf 0453 48ff |H | Short_Literal 0xff 0454 780b |x | Jump 0x460 0455 48ff |H | Short_Literal 0xff 0456 7809 |x | Jump 0x460 0457 4801 |H | Short_Literal 0x1 0458 7807 |x | Jump 0x460 0459 4802 |H | Short_Literal 0x2 045a 7805 |x | Jump 0x460 045b 4803 |H | Short_Literal 0x3 045c 7803 |x | Jump 0x460 045d 4804 |H | Short_Literal 0x4 045e 7801 |x | Jump 0x460 045f 4805 |H | Short_Literal 0x5 0460 e5ff | | Load 0x2,-0x1 0461 031b | | Declare_Type Variant_Record,Constrained 0462 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0463 00db | | Load_Top At_Offset_3 0464 e5fe | | Load 0x2,-0x2 0465 e5ff | | Load 0x2,-0x1 0466 1c06 | | Execute_Immediate Run_Utility,0x6 0467 e5ff | | Load 0x2,-0x1 0468 02fc | | Declare_Variable Variant_Record,With_Constraint 0469 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 046a 4800 |H | Short_Literal 0x0 046b 00db | | Load_Top At_Offset_3 046c 1c07 | | Execute_Immediate Run_Utility,0x7 046d 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 046e 0869 | i | Execute_Immediate Raise,0x69 046f 0000 | | .XXX[0x1] 0470 ; -------------------------------------------------------------------------------------- 0470 ; SUBPROGRAM 0470 ; -------------------------------------------------------------------------------------- 0470 0473 | s | .CONST 0x0473 ; Address of begin 0471 0004 | | .CONST 0x0004 ; Address of exception handler 0472 0001 | | .CONST 0x0001 ; Number of locals 0473 BODY_0470: 0473 INIT_0470: 0473 4609 |F | Jump_Case 0xa 0474 7809 |x | Jump 0x47e ; case 0x0 0475 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0476 781f |x | Jump 0x496 ; case 0x2 0477 7822 |x" | Jump 0x49a ; case 0x3 0478 7871 |xq | Jump 0x4ea ; case 0x4 0479 7870 |xp | Jump 0x4ea ; case 0x5 047a 7825 |x% | Jump 0x4a0 ; case 0x6 047b 7844 |xD | Jump 0x4c0 ; case 0x7 047c 7866 |xf | Jump 0x4e3 ; case 0x8 047d 786c |xl | Jump 0x4ea ; case 0x9 047e 00da | | Load_Top At_Offset_2 047f 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0480 460f |F | Jump_Case 0x10 0481 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0482 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0483 780e |x | Jump 0x492 ; case 0x2 0484 780d |x | Jump 0x492 ; case 0x3 0485 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 0486 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 0487 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6 0488 7809 |x | Jump 0x492 ; case 0x7 0489 7808 |x | Jump 0x492 ; case 0x8 048a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x9 048b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0xa 048c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0xb 048d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0xc 048e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0xd 048f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0xe 0490 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0xf 0491 4302 |C | .XXX[0x1] 0492 00da | | Load_Top At_Offset_2 0493 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 0494 1c00 | | Execute_Immediate Run_Utility,0x0 0495 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0496 4801 |H | Short_Literal 0x1 0497 4807 |H | Short_Literal 0x7 0498 0311 | | Declare_Type Variant_Record,Constrained_Incomplete 0499 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 049a e5fd | | Load 0x2,-0x3 049b 00db | | Load_Top At_Offset_3 049c 1c07 | | Execute_Immediate Run_Utility,0x7 049d e5fe | | Load 0x2,-0x2 049e 0306 | | Complete_Type Variant_Record,By_Renaming 049f 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4 04a0 00db | | Load_Top At_Offset_3 04a1 460f |F | Jump_Case 0x10 04a2 781b |x | Jump 0x4be ; case 0x0 04a3 781a |x | Jump 0x4be ; case 0x1 04a4 780f |x | Jump 0x4b4 ; case 0x2 04a5 780e |x | Jump 0x4b4 ; case 0x3 04a6 780f |x | Jump 0x4b6 ; case 0x4 04a7 7810 |x | Jump 0x4b8 ; case 0x5 04a8 780f |x | Jump 0x4b8 ; case 0x6 04a9 780a |x | Jump 0x4b4 ; case 0x7 04aa 7809 |x | Jump 0x4b4 ; case 0x8 04ab 780e |x | Jump 0x4ba ; case 0x9 04ac 780d |x | Jump 0x4ba ; case 0xa 04ad 780c |x | Jump 0x4ba ; case 0xb 04ae 780b |x | Jump 0x4ba ; case 0xc 04af 7806 |x | Jump 0x4b6 ; case 0xd 04b0 780b |x | Jump 0x4bc ; case 0xe 04b1 7800 |x | Jump 0x4b2 ; case 0xf 04b2 4806 |H | Short_Literal 0x6 04b3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 04b4 4801 |H | Short_Literal 0x1 04b5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 04b6 4802 |H | Short_Literal 0x2 04b7 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 04b8 4803 |H | Short_Literal 0x3 04b9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 04ba 4804 |H | Short_Literal 0x4 04bb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 04bc 4805 |H | Short_Literal 0x5 04bd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 04be 48ff |H | Short_Literal 0xff 04bf 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 04c0 00db | | Load_Top At_Offset_3 04c1 e5fe | | Load 0x2,-0x2 04c2 460f |F | Jump_Case 0x10 04c3 781b |x | Jump 0x4df ; case 0x0 04c4 781a |x | Jump 0x4df ; case 0x1 04c5 780f |x | Jump 0x4d5 ; case 0x2 04c6 780e |x | Jump 0x4d5 ; case 0x3 04c7 780f |x | Jump 0x4d7 ; case 0x4 04c8 7810 |x | Jump 0x4d9 ; case 0x5 04c9 780f |x | Jump 0x4d9 ; case 0x6 04ca 780a |x | Jump 0x4d5 ; case 0x7 04cb 7809 |x | Jump 0x4d5 ; case 0x8 04cc 780e |x | Jump 0x4db ; case 0x9 04cd 780d |x | Jump 0x4db ; case 0xa 04ce 780c |x | Jump 0x4db ; case 0xb 04cf 780b |x | Jump 0x4db ; case 0xc 04d0 7806 |x | Jump 0x4d7 ; case 0xd 04d1 780b |x | Jump 0x4dd ; case 0xe 04d2 7800 |x | Jump 0x4d3 ; case 0xf 04d3 4806 |H | Short_Literal 0x6 04d4 780b |x | Jump 0x4e0 04d5 4801 |H | Short_Literal 0x1 04d6 7809 |x | Jump 0x4e0 04d7 4802 |H | Short_Literal 0x2 04d8 7807 |x | Jump 0x4e0 04d9 4803 |H | Short_Literal 0x3 04da 7805 |x | Jump 0x4e0 04db 4804 |H | Short_Literal 0x4 04dc 7803 |x | Jump 0x4e0 04dd 4805 |H | Short_Literal 0x5 04de 7801 |x | Jump 0x4e0 04df 48ff |H | Short_Literal 0xff 04e0 e5ff | | Load 0x2,-0x1 04e1 031b | | Declare_Type Variant_Record,Constrained 04e2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 04e3 00db | | Load_Top At_Offset_3 04e4 e5fe | | Load 0x2,-0x2 04e5 e5ff | | Load 0x2,-0x1 04e6 1c06 | | Execute_Immediate Run_Utility,0x6 04e7 e5ff | | Load 0x2,-0x1 04e8 02fc | | Declare_Variable Variant_Record,With_Constraint 04e9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 04ea 0869 | i | Execute_Immediate Raise,0x69 04eb 0000 0000 | | .BLANK 0000[0x5] 04f0 ; -------------------------------------------------------------------------------------- 04f0 ; SUBPROGRAM 04f0 ; -------------------------------------------------------------------------------------- 04f0 04f3 | | .CONST 0x04f3 ; Address of begin 04f1 0004 | | .CONST 0x0004 ; Address of exception handler 04f2 0001 | | .CONST 0x0001 ; Number of locals 04f3 BODY_04f0: 04f3 INIT_04f0: 04f3 00da | | Load_Top At_Offset_2 04f4 e00d | | Load 0x0,0xd 04f5 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 04f6 e00d | | Load 0x0,0xd 04f7 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 04f8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04f9 0000 0000 | | .BLANK 0000[0x7] 0500 ; -------------------------------------------------------------------------------------- 0500 ; SUBPROGRAM 0500 ; -------------------------------------------------------------------------------------- 0500 0523 | # | .CONST 0x0523 ; Address of begin 0501 0560 | ` | .CONST 0x0560 ; Address of exception handler 0502 0010 | | .CONST 0x0010 ; Number of locals 0503 INIT_0500: 0503 e223 | # | Load 0x1,0x23 0504 02ff | | Declare_Variable Variant_Record 0505 00d8 | | Load_Top At_Offset_0 0506 1c00 | | Execute_Immediate Run_Utility,0x0 0507 029f 059b | | Declare_Subprogram INIT_0598,For_Call 0509 029f 05b3 | | Declare_Subprogram INIT_05b0,For_Call 050b 029f 05cb | | Declare_Subprogram INIT_05c8,For_Call 050d 029f 05db | | Declare_Subprogram INIT_05d8,For_Call 050f 029f 05eb | | Declare_Subprogram INIT_05e8,For_Call 0511 029f 0603 | | Declare_Subprogram INIT_0600,For_Call 0513 029f 0613 | | Declare_Subprogram INIT_0610,For_Call 0515 029f 0623 | #| Declare_Subprogram INIT_0620,For_Call 0517 029f 0633 | 3| Declare_Subprogram INIT_0630,For_Call 0519 029f 0643 | C| Declare_Subprogram INIT_0640,For_Call 051b 029f 0653 | S| Declare_Subprogram INIT_0650,For_Call 051d 029f 0663 | c| Declare_Subprogram INIT_0660,For_Call 051f 029f 0673 | s| Declare_Subprogram INIT_0670,For_Call 0521 029f 0683 | | Declare_Subprogram INIT_0680,For_Call 0523 BODY_0500: 0523 e402 | | Load 0x2,0x2 0524 e22a | * | Load 0x1,0x2a 0525 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0526 00d1 | | Pop_Control Pop_Count_1 0527 e402 | | Load 0x2,0x2 0528 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0529 460f |F | Jump_Case 0x10 052a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x0 052b 7810 |x | Jump 0x53c ; case 0x1 052c 7819 |x | Jump 0x546 ; case 0x2 052d 781a |x | Jump 0x548 ; case 0x3 052e 781b |x | Jump 0x54a ; case 0x4 052f 781c |x | Jump 0x54c ; case 0x5 0530 781d |x | Jump 0x54e ; case 0x6 0531 781e |x | Jump 0x550 ; case 0x7 0532 781f |x | Jump 0x552 ; case 0x8 0533 7820 |x | Jump 0x554 ; case 0x9 0534 7821 |x! | Jump 0x556 ; case 0xa 0535 7822 |x" | Jump 0x558 ; case 0xb 0536 7823 |x# | Jump 0x55a ; case 0xc 0537 7824 |x$ | Jump 0x55c ; case 0xd 0538 7825 |x% | Jump 0x55e ; case 0xe 0539 7800 |x | Jump 0x53a ; case 0xf 053a 8410 | | Call 0x2,0x10 053b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 053c e402 | | Load 0x2,0x2 053d 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4 053e 822c | , | Call 0x1,0x2c 053f e402 | | Load 0x2,0x2 0540 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 0541 822c | , | Call 0x1,0x2c 0542 e402 | | Load 0x2,0x2 0543 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2 0544 800e | | Call 0x0,0xe 0545 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0546 8403 | | Call 0x2,0x3 0547 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0548 8404 | | Call 0x2,0x4 0549 4501 |E | Exit_Suprogram New_Top_Offset 0x1 054a 8405 | | Call 0x2,0x5 054b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 054c 8406 | | Call 0x2,0x6 054d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 054e 8407 | | Call 0x2,0x7 054f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0550 8408 | | Call 0x2,0x8 0551 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0552 8409 | | Call 0x2,0x9 0553 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0554 840a | | Call 0x2,0xa 0555 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0556 840b | | Call 0x2,0xb 0557 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0558 840c | | Call 0x2,0xc 0559 4501 |E | Exit_Suprogram New_Top_Offset 0x1 055a 840d | | Call 0x2,0xd 055b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 055c 840e | | Call 0x2,0xe 055d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 055e 840f | | Call 0x2,0xf 055f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0560 TRAP_0500: 0560 00d8 | | Load_Top At_Offset_0 0561 0107 | | Execute Exception,Get_Name 0562 4950 |IP | Short_Literal 0x150 0563 495f |I_ | Short_Literal 0x15f 0564 0262 | b | Execute Discrete,In_Range 0565 6801 |h | Jump_Zero 0x567 0566 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0567 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0568 ; -------------------------------------------------------------------------------------- 0568 ; SUBPROGRAM 0568 ; -------------------------------------------------------------------------------------- 0568 056f | o | .CONST 0x056f ; Address of begin 0569 0004 | | .CONST 0x0004 ; Address of exception handler 056a 0002 | | .CONST 0x0002 ; Number of locals 056b INIT_0568: 056b 00da | | Load_Top At_Offset_2 056c 01db | | Execute Vector,Length 056d e222 | " | Load 0x1,0x22 056e 1c08 | | Execute_Immediate Run_Utility,0x8 056f BODY_0568: 056f 00db | | Load_Top At_Offset_3 0570 00d9 | | Load_Top At_Offset_1 0571 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2 0572 00d8 | | Load_Top At_Offset_0 0573 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0574 0000 0000 | | .BLANK 0000[0x4] 0578 ; -------------------------------------------------------------------------------------- 0578 ; SUBPROGRAM 0578 ; -------------------------------------------------------------------------------------- 0578 057b | { | .CONST 0x057b ; Address of begin 0579 0004 | | .CONST 0x0004 ; Address of exception handler 057a 0001 | | .CONST 0x0001 ; Number of locals 057b BODY_0578: 057b INIT_0578: 057b 00da | | Load_Top At_Offset_2 057c 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 057d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 057e 0000 0000 | | .XXX[0x2] 0580 ; -------------------------------------------------------------------------------------- 0580 ; SUBPROGRAM 0580 ; -------------------------------------------------------------------------------------- 0580 0585 | | .CONST 0x0585 ; Address of begin 0581 0004 | | .CONST 0x0004 ; Address of exception handler 0582 0002 | | .CONST 0x0002 ; Number of locals 0583 INIT_0580: 0583 029f 069b | | Declare_Subprogram INIT_0698,For_Call 0585 BODY_0580: 0585 00cf | | Action Mark_Auxiliary 0586 4802 |H | Short_Literal 0x2 0587 4800 |H | Short_Literal 0x0 0588 0007 | | Action Break_Optional 0589 4800 |H | Short_Literal 0x0 058a 00d9 | | Load_Top At_Offset_1 058b e006 | | Load 0x0,0x6 058c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 058d 8602 | | Call 0x3,0x2 058e 00c8 | | Action Pop_Auxiliary_Range 058f 3ff9 |? | Loop_Increasing 0x589 0590 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0591 0000 0000 | | .BLANK 0000[0x7] 0598 ; -------------------------------------------------------------------------------------- 0598 ; SUBPROGRAM 0598 ; -------------------------------------------------------------------------------------- 0598 05a5 | | .CONST 0x05a5 ; Address of begin 0599 0004 | | .CONST 0x0004 ; Address of exception handler 059a 0003 | | .CONST 0x0003 ; Number of locals 059b INIT_0598: 059b e402 | | Load 0x2,0x2 059c 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 059d 800f | | Call 0x0,0xf 059e 4802 |H | Short_Literal 0x2 059f e224 | $ | Load 0x1,0x24 05a0 1c08 | | Execute_Immediate Run_Utility,0x8 05a1 00d9 | | Load_Top At_Offset_1 05a2 822b | + | Call 0x1,0x2b 05a3 00d9 | | Load_Top At_Offset_1 05a4 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 05a5 BODY_0598: 05a5 00d8 | | Load_Top At_Offset_0 05a6 e22a | * | Load 0x1,0x2a 05a7 1810 | | Execute Package,Field_Execute,Field_Number 0x10 05a8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05a9 0000 0000 | | .BLANK 0000[0x7] 05b0 ; -------------------------------------------------------------------------------------- 05b0 ; SUBPROGRAM 05b0 ; -------------------------------------------------------------------------------------- 05b0 05c0 | | .CONST 0x05c0 ; Address of begin 05b1 0004 | | .CONST 0x0004 ; Address of exception handler 05b2 0003 | | .CONST 0x0003 ; Number of locals 05b3 INIT_05b0: 05b3 e402 | | Load 0x2,0x2 05b4 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7 05b5 e402 | | Load 0x2,0x2 05b6 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6 05b7 822c | , | Call 0x1,0x2c 05b8 8010 | | Call 0x0,0x10 05b9 4803 |H | Short_Literal 0x3 05ba e224 | $ | Load 0x1,0x24 05bb 1c08 | | Execute_Immediate Run_Utility,0x8 05bc 00d9 | | Load_Top At_Offset_1 05bd 822b | + | Call 0x1,0x2b 05be 00d9 | | Load_Top At_Offset_1 05bf 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 05c0 BODY_05b0: 05c0 00d8 | | Load_Top At_Offset_0 05c1 e22a | * | Load 0x1,0x2a 05c2 1810 | | Execute Package,Field_Execute,Field_Number 0x10 05c3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05c4 0000 0000 | | .BLANK 0000[0x4] 05c8 ; -------------------------------------------------------------------------------------- 05c8 ; SUBPROGRAM 05c8 ; -------------------------------------------------------------------------------------- 05c8 05d4 | | .CONST 0x05d4 ; Address of begin 05c9 0004 | | .CONST 0x0004 ; Address of exception handler 05ca 0003 | | .CONST 0x0003 ; Number of locals 05cb INIT_05c8: 05cb e402 | | Load 0x2,0x2 05cc 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8 05cd 8011 | | Call 0x0,0x11 05ce 4804 |H | Short_Literal 0x4 05cf e224 | $ | Load 0x1,0x24 05d0 1c08 | | Execute_Immediate Run_Utility,0x8 05d1 00d9 | | Load_Top At_Offset_1 05d2 00d9 | | Load_Top At_Offset_1 05d3 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 05d4 BODY_05c8: 05d4 00d8 | | Load_Top At_Offset_0 05d5 e22a | * | Load 0x1,0x2a 05d6 1810 | | Execute Package,Field_Execute,Field_Number 0x10 05d7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05d8 ; -------------------------------------------------------------------------------------- 05d8 ; SUBPROGRAM 05d8 ; -------------------------------------------------------------------------------------- 05d8 05e1 | | .CONST 0x05e1 ; Address of begin 05d9 0004 | | .CONST 0x0004 ; Address of exception handler 05da 0002 | | .CONST 0x0002 ; Number of locals 05db INIT_05d8: 05db 4805 |H | Short_Literal 0x5 05dc e224 | $ | Load 0x1,0x24 05dd 1c08 | | Execute_Immediate Run_Utility,0x8 05de 8012 | | Call 0x0,0x12 05df 00d9 | | Load_Top At_Offset_1 05e0 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 05e1 BODY_05d8: 05e1 00d8 | | Load_Top At_Offset_0 05e2 e22a | * | Load 0x1,0x2a 05e3 1810 | | Execute Package,Field_Execute,Field_Number 0x10 05e4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05e5 0000 0000 | | .XXX[0x3] 05e7 0000 | | 05e8 ; -------------------------------------------------------------------------------------- 05e8 ; SUBPROGRAM 05e8 ; -------------------------------------------------------------------------------------- 05e8 05f7 | | .CONST 0x05f7 ; Address of begin 05e9 0004 | | .CONST 0x0004 ; Address of exception handler 05ea 0002 | | .CONST 0x0002 ; Number of locals 05eb INIT_05e8: 05eb 4806 |H | Short_Literal 0x6 05ec e224 | $ | Load 0x1,0x24 05ed 1c08 | | Execute_Immediate Run_Utility,0x8 05ee e402 | | Load 0x2,0x2 05ef 260a |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xa 05f0 822c | , | Call 0x1,0x2c 05f1 e402 | | Load 0x2,0x2 05f2 2609 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9 05f3 822c | , | Call 0x1,0x2c 05f4 8013 | | Call 0x0,0x13 05f5 00d9 | | Load_Top At_Offset_1 05f6 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 05f7 BODY_05e8: 05f7 00d8 | | Load_Top At_Offset_0 05f8 e22a | * | Load 0x1,0x2a 05f9 1810 | | Execute Package,Field_Execute,Field_Number 0x10 05fa 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05fb 0000 0000 | | .BLANK 0000[0x5] 0600 ; -------------------------------------------------------------------------------------- 0600 ; SUBPROGRAM 0600 ; -------------------------------------------------------------------------------------- 0600 060a | | .CONST 0x060a ; Address of begin 0601 0004 | | .CONST 0x0004 ; Address of exception handler 0602 0002 | | .CONST 0x0002 ; Number of locals 0603 INIT_0600: 0603 4807 |H | Short_Literal 0x7 0604 e224 | $ | Load 0x1,0x24 0605 1c08 | | Execute_Immediate Run_Utility,0x8 0606 8014 | | Call 0x0,0x14 0607 822b | + | Call 0x1,0x2b 0608 00d9 | | Load_Top At_Offset_1 0609 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 060a BODY_0600: 060a 00d8 | | Load_Top At_Offset_0 060b e22a | * | Load 0x1,0x2a 060c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 060d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 060e 0000 0000 | | .XXX[0x2] 0610 ; -------------------------------------------------------------------------------------- 0610 ; SUBPROGRAM 0610 ; -------------------------------------------------------------------------------------- 0610 061a | | .CONST 0x061a ; Address of begin 0611 0004 | | .CONST 0x0004 ; Address of exception handler 0612 0002 | | .CONST 0x0002 ; Number of locals 0613 INIT_0610: 0613 4808 |H | Short_Literal 0x8 0614 e224 | $ | Load 0x1,0x24 0615 1c08 | | Execute_Immediate Run_Utility,0x8 0616 8015 | | Call 0x0,0x15 0617 822b | + | Call 0x1,0x2b 0618 00d9 | | Load_Top At_Offset_1 0619 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 061a BODY_0610: 061a 00d8 | | Load_Top At_Offset_0 061b e22a | * | Load 0x1,0x2a 061c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 061d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 061e 0000 0000 | | .XXX[0x2] 0620 ; -------------------------------------------------------------------------------------- 0620 ; SUBPROGRAM 0620 ; -------------------------------------------------------------------------------------- 0620 0629 | ) | .CONST 0x0629 ; Address of begin 0621 0004 | | .CONST 0x0004 ; Address of exception handler 0622 0002 | | .CONST 0x0002 ; Number of locals 0623 INIT_0620: 0623 4809 |H | Short_Literal 0x9 0624 e224 | $ | Load 0x1,0x24 0625 1c08 | | Execute_Immediate Run_Utility,0x8 0626 8016 | | Call 0x0,0x16 0627 00d9 | | Load_Top At_Offset_1 0628 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5 0629 BODY_0620: 0629 00d8 | | Load_Top At_Offset_0 062a e22a | * | Load 0x1,0x2a 062b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 062c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 062d 0000 0000 | | .XXX[0x3] 062f 0000 | | 0630 ; -------------------------------------------------------------------------------------- 0630 ; SUBPROGRAM 0630 ; -------------------------------------------------------------------------------------- 0630 0639 | 9 | .CONST 0x0639 ; Address of begin 0631 0004 | | .CONST 0x0004 ; Address of exception handler 0632 0002 | | .CONST 0x0002 ; Number of locals 0633 INIT_0630: 0633 480a |H | Short_Literal 0xa 0634 e224 | $ | Load 0x1,0x24 0635 1c08 | | Execute_Immediate Run_Utility,0x8 0636 8017 | | Call 0x0,0x17 0637 00d9 | | Load_Top At_Offset_1 0638 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5 0639 BODY_0630: 0639 00d8 | | Load_Top At_Offset_0 063a e22a | * | Load 0x1,0x2a 063b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 063c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 063d 0000 0000 | | .XXX[0x3] 063f 0000 | | 0640 ; -------------------------------------------------------------------------------------- 0640 ; SUBPROGRAM 0640 ; -------------------------------------------------------------------------------------- 0640 0649 | I | .CONST 0x0649 ; Address of begin 0641 0004 | | .CONST 0x0004 ; Address of exception handler 0642 0002 | | .CONST 0x0002 ; Number of locals 0643 INIT_0640: 0643 480b |H | Short_Literal 0xb 0644 e224 | $ | Load 0x1,0x24 0645 1c08 | | Execute_Immediate Run_Utility,0x8 0646 8018 | | Call 0x0,0x18 0647 00d9 | | Load_Top At_Offset_1 0648 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5 0649 BODY_0640: 0649 00d8 | | Load_Top At_Offset_0 064a e22a | * | Load 0x1,0x2a 064b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 064c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 064d 0000 0000 | | .XXX[0x3] 064f 0000 | | 0650 ; -------------------------------------------------------------------------------------- 0650 ; SUBPROGRAM 0650 ; -------------------------------------------------------------------------------------- 0650 0659 | Y | .CONST 0x0659 ; Address of begin 0651 0004 | | .CONST 0x0004 ; Address of exception handler 0652 0002 | | .CONST 0x0002 ; Number of locals 0653 INIT_0650: 0653 480c |H | Short_Literal 0xc 0654 e224 | $ | Load 0x1,0x24 0655 1c08 | | Execute_Immediate Run_Utility,0x8 0656 8019 | | Call 0x0,0x19 0657 00d9 | | Load_Top At_Offset_1 0658 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5 0659 BODY_0650: 0659 00d8 | | Load_Top At_Offset_0 065a e22a | * | Load 0x1,0x2a 065b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 065c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 065d 0000 0000 | | .XXX[0x3] 065f 0000 | | 0660 ; -------------------------------------------------------------------------------------- 0660 ; SUBPROGRAM 0660 ; -------------------------------------------------------------------------------------- 0660 0669 | i | .CONST 0x0669 ; Address of begin 0661 0004 | | .CONST 0x0004 ; Address of exception handler 0662 0002 | | .CONST 0x0002 ; Number of locals 0663 INIT_0660: 0663 480d |H | Short_Literal 0xd 0664 e224 | $ | Load 0x1,0x24 0665 1c08 | | Execute_Immediate Run_Utility,0x8 0666 801a | | Call 0x0,0x1a 0667 00d9 | | Load_Top At_Offset_1 0668 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 0669 BODY_0660: 0669 00d8 | | Load_Top At_Offset_0 066a e22a | * | Load 0x1,0x2a 066b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 066c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 066d 0000 0000 | | .XXX[0x3] 066f 0000 | | 0670 ; -------------------------------------------------------------------------------------- 0670 ; SUBPROGRAM 0670 ; -------------------------------------------------------------------------------------- 0670 0679 | y | .CONST 0x0679 ; Address of begin 0671 0004 | | .CONST 0x0004 ; Address of exception handler 0672 0002 | | .CONST 0x0002 ; Number of locals 0673 INIT_0670: 0673 480e |H | Short_Literal 0xe 0674 e224 | $ | Load 0x1,0x24 0675 1c08 | | Execute_Immediate Run_Utility,0x8 0676 801b | | Call 0x0,0x1b 0677 00d9 | | Load_Top At_Offset_1 0678 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6 0679 BODY_0670: 0679 00d8 | | Load_Top At_Offset_0 067a e22a | * | Load 0x1,0x2a 067b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 067c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 067d 0000 0000 | | .XXX[0x3] 067f 0000 | | 0680 ; -------------------------------------------------------------------------------------- 0680 ; SUBPROGRAM 0680 ; -------------------------------------------------------------------------------------- 0680 068d | | .CONST 0x068d ; Address of begin 0681 0004 | | .CONST 0x0004 ; Address of exception handler 0682 0002 | | .CONST 0x0002 ; Number of locals 0683 INIT_0680: 0683 480f |H | Short_Literal 0xf 0684 e224 | $ | Load 0x1,0x24 0685 1c08 | | Execute_Immediate Run_Utility,0x8 0686 801c | | Call 0x0,0x1c 0687 0217 | | Execute Heap_Access,All_Reference 0688 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 0689 801d | | Call 0x0,0x1d 068a 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 068b 00d9 | | Load_Top At_Offset_1 068c 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7 068d BODY_0680: 068d 00d8 | | Load_Top At_Offset_0 068e e22a | * | Load 0x1,0x2a 068f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0690 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0691 0000 0000 | | .BLANK 0000[0x7] 0698 ; -------------------------------------------------------------------------------------- 0698 ; SUBPROGRAM 0698 ; -------------------------------------------------------------------------------------- 0698 069b | | .CONST 0x069b ; Address of begin 0699 0004 | | .CONST 0x0004 ; Address of exception handler 069a 0001 | | .CONST 0x0001 ; Number of locals 069b BODY_0698: 069b INIT_0698: 069b 00da | | Load_Top At_Offset_2 069c e005 | | Load 0x0,0x5 069d 1b15 | | Execute Package,Field_Read,Field_Number 0x15 069e 012f | / | Execute Any,Equal 069f 700b |p | Jump_Nonzero 0x6ab 06a0 00cf | | Action Mark_Auxiliary 06a1 7803 |x | Jump 0x6a5 06a2 6009 |` | Indirect_Literal Discrete,0x6ac,{0x00000000, 0x00002000} 06a3 00ba | | Action Initiate_Delay 06a4 00c9 | | Action Pop_Auxiliary_Loop 06a5 00db | | Load_Top At_Offset_3 06a6 e005 | | Load 0x0,0x5 06a7 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 06a8 0c01 | | Execute_Immediate Greater_Equal,0x1 06a9 77f8 |w | Jump_Nonzero 0x6a2 06aa 00ce | | Action Pop_Auxiliary 06ab 4502 |E | Exit_Suprogram New_Top_Offset 0x2 06ac 0000 0000 | | .LITERAL {0x00000000, 0x00002000} 06b0 ; -------------------------------------------------------------------------------------- 06b0 ; SUBPROGRAM 06b0 ; -------------------------------------------------------------------------------------- 06b0 06d9 | | .CONST 0x06d9 ; Address of begin 06b1 0004 | | .CONST 0x0004 ; Address of exception handler 06b2 0013 | | .CONST 0x0013 ; Number of locals 06b3 INIT_06b0: 06b3 0093 0000 | | push_full_address 0x0 06b5 604a |`J | Indirect_Literal Discrete,0x700,{0x80000000, 0x00010000} 06b6 0273 | s | Execute Discrete,Plus 06b7 0129 | ) | Execute Any,Make_Visible 06b8 029a 06e3 | | Declare_Subprogram INIT_06e0,For_Outer_Call,Visible,Unelaborated 06ba 029a 070b | | Declare_Subprogram INIT_0708,For_Outer_Call,Visible,Unelaborated 06bc 029a 072b | +| Declare_Subprogram INIT_0728,For_Outer_Call,Visible,Unelaborated 06be 029a 074b | K| Declare_Subprogram INIT_0748,For_Outer_Call,Visible,Unelaborated 06c0 00bf | | Action Accept_Activation 06c1 e001 | | Load 0x0,0x1 06c2 e002 | | Load 0x0,0x2 06c3 e003 | | Load 0x0,0x3 06c4 e004 | | Load 0x0,0x4 06c5 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 06c6 0387 | | Declare_Variable Package 06c7 00d8 | | Load_Top At_Offset_0 06c8 020f | | Execute Module,Activate 06c9 e005 | | Load 0x0,0x5 06ca e006 | | Load 0x0,0x6 06cb e007 | | Load 0x0,0x7 06cc e004 | | Load 0x0,0x4 06cd 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 06ce 0387 | | Declare_Variable Package 06cf 00d8 | | Load_Top At_Offset_0 06d0 020f | | Execute Module,Activate 06d1 1d0e | | Execute_Immediate Reference_Lex_1,0xe 06d2 00c7 | | Action Elaborate_Subprogram 06d3 1d0f | | Execute_Immediate Reference_Lex_1,0xf 06d4 00c7 | | Action Elaborate_Subprogram 06d5 1d10 | | Execute_Immediate Reference_Lex_1,0x10 06d6 00c7 | | Action Elaborate_Subprogram 06d7 1d11 | | Execute_Immediate Reference_Lex_1,0x11 06d8 00c7 | | Action Elaborate_Subprogram 06d9 BODY_06b0: 06d9 00bc | | Action Signal_Activated 06da 00bb | | Action Signal_Completion 06db 0000 0000 | | .BLANK 0000[0x5] 06e0 ; -------------------------------------------------------------------------------------- 06e0 ; SUBPROGRAM 06e0 ; -------------------------------------------------------------------------------------- 06e0 06eb | | .CONST 0x06eb ; Address of begin 06e1 0004 | | .CONST 0x0004 ; Address of exception handler 06e2 0002 | | .CONST 0x0002 ; Number of locals 06e3 INIT_06e0: 06e3 e004 | | Load 0x0,0x4 06e4 1b14 | | Execute Package,Field_Read,Field_Number 0x14 06e5 02c7 | | Declare_Variable Any 06e6 4800 |H | Short_Literal 0x0 06e7 4800 |H | Short_Literal 0x0 06e8 e008 | | Load 0x0,0x8 06e9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06ea a402 | | Store_Unchecked 0x2,0x2 06eb BODY_06e0: 06eb 00d8 | | Load_Top At_Offset_0 06ec e004 | | Load 0x0,0x4 06ed 1b15 | | Execute Package,Field_Read,Field_Number 0x15 06ee 012f | / | Execute Any,Equal 06ef 7007 |p | Jump_Nonzero 0x6f7 06f0 00d8 | | Load_Top At_Offset_0 06f1 600a |` | Indirect_Literal Discrete,0x6fc,{0x00007fff, 0xffffffff} 06f2 e5ff | | Load 0x2,-0x1 06f3 e212 | | Load 0x1,0x12 06f4 1810 | | Execute Package,Field_Execute,Field_Number 0x10 06f5 c402 | | Store 0x2,0x2 06f6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 06f7 e20d | | Load 0x1,0xd 06f8 0257 | W | Execute Discrete,Raise 06f9 0000 0000 | | .XXX[0x3] 06fb 0000 | | 06fc 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff} 0700 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 0704 0000 0000 | | .BLANK 0000[0x4] 0708 ; -------------------------------------------------------------------------------------- 0708 ; SUBPROGRAM 0708 ; -------------------------------------------------------------------------------------- 0708 0713 | | .CONST 0x0713 ; Address of begin 0709 0004 | | .CONST 0x0004 ; Address of exception handler 070a 0002 | | .CONST 0x0002 ; Number of locals 070b INIT_0708: 070b e004 | | Load 0x0,0x4 070c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 070d 02c7 | | Declare_Variable Any 070e 4800 |H | Short_Literal 0x0 070f 4801 |H | Short_Literal 0x1 0710 e008 | | Load 0x0,0x8 0711 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0712 a402 | | Store_Unchecked 0x2,0x2 0713 BODY_0708: 0713 00d8 | | Load_Top At_Offset_0 0714 e004 | | Load 0x0,0x4 0715 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0716 012f | / | Execute Any,Equal 0717 7008 |p | Jump_Nonzero 0x720 0718 00db | | Load_Top At_Offset_3 0719 00d9 | | Load_Top At_Offset_1 071a 67e1 |g | Indirect_Literal Discrete,0x6fc,{0x00007fff, 0xffffffff} 071b e213 | | Load 0x1,0x13 071c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 071d c402 | | Store 0x2,0x2 071e 00d1 | | Pop_Control Pop_Count_1 071f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0720 e20d | | Load 0x1,0xd 0721 0257 | W | Execute Discrete,Raise 0722 0000 0000 | | .BLANK 0000[0x6] 0728 ; -------------------------------------------------------------------------------------- 0728 ; SUBPROGRAM 0728 ; -------------------------------------------------------------------------------------- 0728 0733 | 3 | .CONST 0x0733 ; Address of begin 0729 0004 | | .CONST 0x0004 ; Address of exception handler 072a 0002 | | .CONST 0x0002 ; Number of locals 072b INIT_0728: 072b e004 | | Load 0x0,0x4 072c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 072d 02c7 | | Declare_Variable Any 072e 4801 |H | Short_Literal 0x1 072f 4801 |H | Short_Literal 0x1 0730 e008 | | Load 0x0,0x8 0731 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0732 a402 | | Store_Unchecked 0x2,0x2 0733 BODY_0728: 0733 00d8 | | Load_Top At_Offset_0 0734 e004 | | Load 0x0,0x4 0735 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0736 012f | / | Execute Any,Equal 0737 7007 |p | Jump_Nonzero 0x73f 0738 00d8 | | Load_Top At_Offset_0 0739 600a |` | Indirect_Literal Discrete,0x744,{0x00007fff, 0xffffffff} 073a e5ff | | Load 0x2,-0x1 073b e213 | | Load 0x1,0x13 073c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 073d c402 | | Store 0x2,0x2 073e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 073f e20d | | Load 0x1,0xd 0740 0257 | W | Execute Discrete,Raise 0741 0000 0000 | | .XXX[0x3] 0743 0000 | | 0744 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff} 0748 ; -------------------------------------------------------------------------------------- 0748 ; SUBPROGRAM 0748 ; -------------------------------------------------------------------------------------- 0748 0753 | S | .CONST 0x0753 ; Address of begin 0749 0004 | | .CONST 0x0004 ; Address of exception handler 074a 0002 | | .CONST 0x0002 ; Number of locals 074b INIT_0748: 074b e004 | | Load 0x0,0x4 074c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 074d 02c7 | | Declare_Variable Any 074e 4801 |H | Short_Literal 0x1 074f 4800 |H | Short_Literal 0x0 0750 e008 | | Load 0x0,0x8 0751 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0752 a402 | | Store_Unchecked 0x2,0x2 0753 BODY_0748: 0753 00d8 | | Load_Top At_Offset_0 0754 e004 | | Load 0x0,0x4 0755 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0756 012f | / | Execute Any,Equal 0757 7008 |p | Jump_Nonzero 0x760 0758 00db | | Load_Top At_Offset_3 0759 00d9 | | Load_Top At_Offset_1 075a 67e9 |g | Indirect_Literal Discrete,0x744,{0x00007fff, 0xffffffff} 075b e212 | | Load 0x1,0x12 075c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 075d c402 | | Store 0x2,0x2 075e 00d1 | | Pop_Control Pop_Count_1 075f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0760 e20d | | Load 0x1,0xd 0761 0257 | W | Execute Discrete,Raise 0762 0000 0000 | | .BLANK 0000[0x6] 0768 ; -------------------------------------------------------------------------------------- 0768 ; SUBPROGRAM 0768 ; -------------------------------------------------------------------------------------- 0768 0775 | u | .CONST 0x0775 ; Address of begin 0769 0004 | | .CONST 0x0004 ; Address of exception handler 076a 000d | | .CONST 0x000d ; Number of locals 076b INIT_0768: 076b 00bf | | Action Accept_Activation 076c e001 | | Load 0x0,0x1 076d 1b14 | | Execute Package,Field_Read,Field_Number 0x14 076e 02c7 | | Declare_Variable Any 076f 4801 |H | Short_Literal 0x1 0770 4800 |H | Short_Literal 0x0 0771 e002 | | Load 0x0,0x2 0772 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0773 a20d | | Store_Unchecked 0x1,0xd 0774 00bc | | Action Signal_Activated 0775 BODY_0768: 0775 00cf | | Action Mark_Auxiliary 0776 8003 | | Call 0x0,0x3 0777 00c9 | | Action Pop_Auxiliary_Loop 0778 7ffd | | Jump 0x776 0779 ; -------------------------------------------------------------------------------------- 0779 ; STRING TABLE 0779 ; -------------------------------------------------------------------------------------- 0779 0040 | @ | .STRTAB 0x0040->0x0799 ; "NONE" 077a 0042 | B | .STRTAB 0x0042->0x079b ; "TMS_REGISTER_RESULT" 077b 0053 | S | .STRTAB 0x0053->0x07a4 ; "TMS_LIBRARY_NAME" 077c 0061 | a | .STRTAB 0x0061->0x07ac ; "TMS_FULL_NAME" 077d 006c | l | .STRTAB 0x006c->0x07b3 ; "TMS_NUMBER_OF_TESTS" 077e 007d | } | .STRTAB 0x007d->0x07bc ; "TMS_PRIOR_TEST_CASE_RESULT" 077f 0095 | | .STRTAB 0x0095->0x07c9 ; "TMS_GET_TEST_CASE_RESULT" 0780 00ab | | .STRTAB 0x00ab->0x07d5 ; "TMS_COVERAGE_ANALYZER_PARAMS" 0781 00c5 | | .STRTAB 0x00c5->0x07e3 ; "TMS_USER_CONTROLS" 0782 00d4 | | .STRTAB 0x00d4->0x07ec ; "TMS_OVERALL_CLOCK_TIME" 0783 00e8 | | .STRTAB 0x00e8->0x07f7 ; "TMS_OVERALL_CPU_TIME" 0784 00fa | | .STRTAB 0x00fa->0x0801 ; "TMS_MAX_CLOCK_PER_TEST" 0785 010e | | .STRTAB 0x010e->0x080c ; "TMS_MAX_CPU_PER_TEST" 0786 0120 | | .STRTAB 0x0120->0x0816 ; "TMS_MAX_NUMBER_OF_FAILURES" 0787 0138 | 8 | .STRTAB 0x0138->0x0823 ; "TMS_TERMINATE_ON_UNHANDLED_EXCEPTION" 0788 015a | Z | .STRTAB 0x015a->0x0835 ; "CA_COVERAGE_KIND" 0789 0168 | h | .STRTAB 0x0168->0x083d ; "No link to parent to register result thru - result = " 078a 019b | | .STRTAB 0x019b->0x0857 ; "No link to parent to extract library name thru for location " 078b 01d5 | | .STRTAB 0x01d5->0x0875 ; "No link to parent to extract full name thru for relative name " 078c 0211 | | .STRTAB 0x0211->0x0894 ; "No link to parent to extract number of " 078d 0236 | 6 | .STRTAB 0x0236->0x08a8 ; " thru" 078e 0239 | 9 | .STRTAB 0x0239->0x08aa ; "No link to parent to extract prior test case result thru" 078f 026f | o | .STRTAB 0x026f->0x08c6 ; "No link to parent to extract test case result for " 0790 029f | | .STRTAB 0x029f->0x08df ; "No link to parent to extract coverage analyzer params thru" 0791 02d7 | | .STRTAB 0x02d7->0x08fc ; "No link to parent to extract user controls thru" 0792 0304 | | .STRTAB 0x0304->0x0914 ; "No link to parent to extract overall clock time thru" 0793 0336 | 6 | .STRTAB 0x0336->0x092e ; "No link to parent to extract overall cpu time thru" 0794 0366 | f | .STRTAB 0x0366->0x0947 ; "No link to parent to extract max clock per test thru" 0795 0398 | | .STRTAB 0x0398->0x0961 ; "No link to parent to extract max cpu per test thru" 0796 03c8 | | .STRTAB 0x03c8->0x097a ; "No link to parent to extract max number of failures thru" 0797 03fe | | .STRTAB 0x03fe->0x0996 ; "No link to parent to extract the unhandled exception termination setting thru" 0798 0449 | I | .STREND 0x0449->0x09bc 0799 4e4f 4e45 |NONE| .STRTAB_STRINGS 09bd 0000 0000 | | .XXX[0x3] 09bf 0000 | | 09c0 ; -------------------------------------------------------------------------------------- 09c0 ; Debug Table 09c0 ; -------------------------------------------------------------------------------------- 09c0 0004 0009 | | .DEBUG4 0x0004,0x0009,0xf096,0x0000,0x0001,0x0000 09c6 0000 0000 | | .BLANK 0000[0x3a]