|
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, 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 0478 | x | .CONST 0x0478 ; 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 00ec | | .CONST 0x00ec ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 002d | - | .CONST 0x002d ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 480a |H | Short_Literal 0xa 000d 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated 0012 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 0014 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 0016 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 0018 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 001a 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated 001c 4800 |H | Short_Literal 0x0 001d 0093 033b | ;| push_full_address INIT_0338 001f 02a0 | | Declare_Subprogram Null_Subprogram 0020 038f | | Declare_Type Package,Defined,Visible 0021 0386 | | Declare_Variable Package,Visible 0022 e20d | | Load 0x1,0xd 0023 0266 | f | Execute Discrete,Bounds 0024 e003 | | Load 0x0,0x3 0025 02a0 | | Declare_Subprogram Null_Subprogram 0026 4801 |H | Short_Literal 0x1 0027 035e | ^ | Declare_Type Array,Defined,Visible 0028 00d8 | | Load_Top At_Offset_0 0029 e004 | | Load 0x0,0x4 002a 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 002b 029f 0313 | | Declare_Subprogram INIT_0310,For_Call 002d 4802 |H | Short_Literal 0x2 002e 032e | . | Declare_Type Record,Defined,Visible 002f 00d8 | | Load_Top At_Offset_0 0030 00e1 | | Load_Encached Boolean_Cache 0031 e20d | | Load 0x1,0xd 0032 029f 032b | +| Declare_Subprogram INIT_0328,For_Call 0034 4803 |H | Short_Literal 0x3 0035 032e | . | Declare_Type Record,Defined,Visible 0036 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated 0038 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated 003a 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated 003c 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated 003e 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated 0040 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated 0042 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated 0044 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated 0046 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated 0048 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated 004a 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated 004c 0093 0000 | | push_full_address 0x0 004e 60c9 |` | Indirect_Literal Discrete,0x118,{0x80000000, 0x00010000} 004f 0273 | s | Execute Discrete,Plus 0050 e005 | | Load 0x0,0x5 0051 0273 | s | Execute Discrete,Plus 0052 e006 | | Load 0x0,0x6 0053 0273 | s | Execute Discrete,Plus 0054 e216 | | Load 0x1,0x16 0055 e217 | | Load 0x1,0x17 0056 4801 |H | Short_Literal 0x1 0057 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0058 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0059 1d19 | | Execute_Immediate Reference_Lex_1,0x19 005a 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 005b 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 005c 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 005d 1d20 | | Execute_Immediate Reference_Lex_1,0x20 005e 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 005f 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 0060 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0061 e007 | | Load 0x0,0x7 0062 4809 |H | Short_Literal 0x9 0063 e008 | | Load 0x0,0x8 0064 0386 | | Declare_Variable Package,Visible 0065 00d8 | | Load_Top At_Offset_0 0066 020f | | Execute Module,Activate 0067 e009 | | Load 0x0,0x9 0068 00d9 | | Load_Top At_Offset_1 0069 0098 | | Execute Package,Field_Read_Dynamic 006a 0129 | ) | Execute Any,Make_Visible 006b 00bf | | Action Accept_Activation 006c e00a | | Load 0x0,0xa 006d e00b | | Load 0x0,0xb 006e e20d | | Load 0x1,0xd 006f 4800 |H | Short_Literal 0x0 0070 4801 |H | Short_Literal 0x1 0071 480a |H | Short_Literal 0xa 0072 0092 0408 | | Action Push_String_Extended,0x408 ; "others => Unspecified" 0074 00ea | | Load_Encached Null_String_Cache 0075 00ea | | Load_Encached Null_String_Cache 0076 4801 |H | Short_Literal 0x1 0077 480a |H | Short_Literal 0xa 0078 e00c | | Load 0x0,0xc 0079 0387 | | Declare_Variable Package 007a 00d8 | | Load_Top At_Offset_0 007b 020f | | Execute Module,Activate 007c 4801 |H | Short_Literal 0x1 007d 480a |H | Short_Literal 0xa 007e e20d | | Load 0x1,0xd 007f 03f8 | | Declare_Type Discrete,Constrained 0080 00da | | Load_Top At_Offset_2 0081 0007 | | Action Break_Optional 0082 00e1 | | Load_Encached Boolean_Cache 0083 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0084 029b 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Unelaborated 0086 029d 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call 0088 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0089 00c7 | | Action Elaborate_Subprogram 008a 1d0f | | Execute_Immediate Reference_Lex_1,0xf 008b 00c7 | | Action Elaborate_Subprogram 008c 1d10 | | Execute_Immediate Reference_Lex_1,0x10 008d 00c7 | | Action Elaborate_Subprogram 008e 1d18 | | Execute_Immediate Reference_Lex_1,0x18 008f 00c7 | | Action Elaborate_Subprogram 0090 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0091 00c7 | | Action Elaborate_Subprogram 0092 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0093 00c7 | | Action Elaborate_Subprogram 0094 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0095 00c7 | | Action Elaborate_Subprogram 0096 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0097 00c7 | | Action Elaborate_Subprogram 0098 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0099 00c7 | | Action Elaborate_Subprogram 009a 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 009b 00c7 | | Action Elaborate_Subprogram 009c 029d 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call 009e 029d 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call 00a0 1d11 | | Execute_Immediate Reference_Lex_1,0x11 00a1 00c7 | | Action Elaborate_Subprogram 00a2 1d12 | | Execute_Immediate Reference_Lex_1,0x12 00a3 00c7 | | Action Elaborate_Subprogram 00a4 029d 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call 00a6 1d13 | | Execute_Immediate Reference_Lex_1,0x13 00a7 00c7 | | Action Elaborate_Subprogram 00a8 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 00a9 00c7 | | Action Elaborate_Subprogram 00aa 1d20 | | Execute_Immediate Reference_Lex_1,0x20 00ab 00c7 | | Action Elaborate_Subprogram 00ac 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 00ad 00c7 | | Action Elaborate_Subprogram 00ae 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 00af 00c7 | | Action Elaborate_Subprogram 00b0 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 00b1 e00d | | Load 0x0,0xd 00b2 e00e | | Load 0x0,0xe 00b3 e223 | # | Load 0x1,0x23 00b4 0098 | | Execute Package,Field_Read_Dynamic 00b5 0095 | | Execute Package,Field_Reference_Dynamic 00b6 a00f | | Store_Unchecked 0x0,0xf 00b7 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 00b8 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 00b9 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 00ba e009 | | Load 0x0,0x9 00bb e223 | # | Load 0x1,0x23 00bc 0098 | | Execute Package,Field_Read_Dynamic 00bd e010 | | Load 0x0,0x10 00be e00e | | Load 0x0,0xe 00bf e223 | # | Load 0x1,0x23 00c0 0098 | | Execute Package,Field_Read_Dynamic 00c1 0095 | | Execute Package,Field_Reference_Dynamic 00c2 e011 | | Load 0x0,0x11 00c3 e00e | | Load 0x0,0xe 00c4 e223 | # | Load 0x1,0x23 00c5 0098 | | Execute Package,Field_Read_Dynamic 00c6 0095 | | Execute Package,Field_Reference_Dynamic 00c7 e012 | | Load 0x0,0x12 00c8 e00e | | Load 0x0,0xe 00c9 e223 | # | Load 0x1,0x23 00ca 0098 | | Execute Package,Field_Read_Dynamic 00cb 0095 | | Execute Package,Field_Reference_Dynamic 00cc e013 | | Load 0x0,0x13 00cd e00e | | Load 0x0,0xe 00ce e223 | # | Load 0x1,0x23 00cf 0098 | | Execute Package,Field_Read_Dynamic 00d0 0095 | | Execute Package,Field_Reference_Dynamic 00d1 e014 | | Load 0x0,0x14 00d2 e00e | | Load 0x0,0xe 00d3 e223 | # | Load 0x1,0x23 00d4 0098 | | Execute Package,Field_Read_Dynamic 00d5 0095 | | Execute Package,Field_Reference_Dynamic 00d6 e015 | | Load 0x0,0x15 00d7 e00e | | Load 0x0,0xe 00d8 e223 | # | Load 0x1,0x23 00d9 0098 | | Execute Package,Field_Read_Dynamic 00da 0095 | | Execute Package,Field_Reference_Dynamic 00db e016 | | Load 0x0,0x16 00dc e00e | | Load 0x0,0xe 00dd e223 | # | Load 0x1,0x23 00de 0098 | | Execute Package,Field_Read_Dynamic 00df 0095 | | Execute Package,Field_Reference_Dynamic 00e0 e017 | | Load 0x0,0x17 00e1 e00e | | Load 0x0,0xe 00e2 e223 | # | Load 0x1,0x23 00e3 0098 | | Execute Package,Field_Read_Dynamic 00e4 0095 | | Execute Package,Field_Reference_Dynamic 00e5 480f |H | Short_Literal 0xf 00e6 e214 | | Load 0x1,0x14 00e7 020e | | Execute Module,Augment_Imports 00e8 e214 | | Load 0x1,0x14 00e9 020f | | Execute Module,Activate 00ea 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 00eb 00c7 | | Action Elaborate_Subprogram 00ec BODY_0008: 00ec 00bc | | Action Signal_Activated 00ed 00bb | | Action Signal_Completion 00ee 0000 0000 | | .XXX[0x2] 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 4607 |F | Jump_Case 0x8 00f4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00f5 7807 |x | Jump 0xfd ; case 0x1 00f6 780a |x | Jump 0x101 ; case 0x2 00f7 780e |x | Jump 0x106 ; case 0x3 00f8 7811 |x | Jump 0x10a ; case 0x4 00f9 7812 |x | Jump 0x10c ; case 0x5 00fa 7813 |x | Jump 0x10e ; case 0x6 00fb 7816 |x | Jump 0x112 ; case 0x7 00fc 4302 |C | .XXX[0x1] 00fd 00da | | Load_Top At_Offset_2 00fe 0091 03fd | | Action Push_String_Extended_Indexed,0x3fd ; "NONE" 0100 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0101 00db | | Load_Top At_Offset_3 0102 00db | | Load_Top At_Offset_3 0103 00e0 | | Load_Encached Standard_Cache 0104 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0105 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0106 00da | | Load_Top At_Offset_2 0107 00e0 | | Load_Encached Standard_Cache 0108 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0109 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 010a 00db | | Load_Top At_Offset_3 010b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 010c 00db | | Load_Top At_Offset_3 010d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 010e e20d | | Load 0x1,0xd 010f 00dc | | Load_Top At_Offset_4 0110 0267 | g | Execute Discrete,Predecessor 0111 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0112 e20d | | Load 0x1,0xd 0113 00dc | | Load_Top At_Offset_4 0114 0268 | h | Execute Discrete,Successor 0115 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0116 0000 0000 | | .XXX[0x2] 0118 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 011c 0000 0000 | | .BLANK 0000[0x4] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0129 | ) | .CONST 0x0129 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0003 | | .CONST 0x0003 ; Number of locals 0123 INIT_0120: 0123 e224 | $ | Load 0x1,0x24 0124 0007 | | Action Break_Optional 0125 e216 | | Load 0x1,0x16 0126 0322 | " | Declare_Variable Record 0127 00d8 | | Load_Top At_Offset_0 0128 1c00 | | Execute_Immediate Run_Utility,0x0 0129 BODY_0120: 0129 e5ff | | Load 0x2,-0x1 012a 00d9 | | Load_Top At_Offset_1 012b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 012c e5ff | | Load 0x2,-0x1 012d e018 | | Load 0x0,0x18 012e e223 | # | Load 0x1,0x23 012f 0096 | | Execute Package,Entry 0130 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0131 00d9 | | Load_Top At_Offset_1 0132 e009 | | Load 0x0,0x9 0133 e223 | # | Load 0x1,0x23 0134 0098 | | Execute Package,Field_Read_Dynamic 0135 0216 | | Execute Heap_Access,Convert 0136 00d9 | | Load_Top At_Offset_1 0137 e019 | | Load 0x0,0x19 0138 e223 | # | Load 0x1,0x23 0139 0096 | | Execute Package,Entry 013a 0032 | 2 | Store_Top Heap_Access,At_Offset_2 013b 00d9 | | Load_Top At_Offset_1 013c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 013d 0000 0000 | | .XXX[0x3] 013f 0000 | | 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 00da | | Load_Top At_Offset_2 0144 e009 | | Load 0x0,0x9 0145 e223 | # | Load 0x1,0x23 0146 0098 | | Execute Package,Field_Read_Dynamic 0147 0216 | | Execute Heap_Access,Convert 0148 e01a | | Load 0x0,0x1a 0149 e223 | # | Load 0x1,0x23 014a 0096 | | Execute Package,Entry 014b 0033 | 3 | Store_Top Heap_Access,At_Offset_3 014c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 014d 0000 0000 | | .XXX[0x3] 014f 0000 | | 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0153 | S | .CONST 0x0153 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0001 | | .CONST 0x0001 ; Number of locals 0153 BODY_0150: 0153 INIT_0150: 0153 0833 | 3 | Execute_Immediate Raise,0x33 0154 0000 0000 | | .BLANK 0000[0x4] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 0163 | c | .CONST 0x0163 ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0002 | | .CONST 0x0002 ; Number of locals 015b INIT_0158: 015b e216 | | Load 0x1,0x16 015c 0322 | " | Declare_Variable Record 015d e5fd | | Load 0x2,-0x3 015e e01b | | Load 0x0,0x1b 015f e223 | # | Load 0x1,0x23 0160 0096 | | Execute Package,Entry 0161 00d9 | | Load_Top At_Offset_1 0162 017d | } | Execute Record,Structure_Write 0163 BODY_0158: 0163 e5fd | | Load 0x2,-0x3 0164 822a | * | Call 0x1,0x2a 0165 6801 |h | Jump_Zero 0x167 0166 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0167 00d8 | | Load_Top At_Offset_0 0168 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0169 e5fe | | Load 0x2,-0x2 016a 801c | | Call 0x0,0x1c 016b e5ff | | Load 0x2,-0x1 016c 00da | | Load_Top At_Offset_2 016d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 016e 01d6 | | Execute Vector,Field_Write 016f e5fd | | Load 0x2,-0x3 0170 e009 | | Load 0x0,0x9 0171 e223 | # | Load 0x1,0x23 0172 0098 | | Execute Package,Field_Read_Dynamic 0173 0216 | | Execute Heap_Access,Convert 0174 00d9 | | Load_Top At_Offset_1 0175 e019 | | Load 0x0,0x19 0176 e223 | # | Load 0x1,0x23 0177 0096 | | Execute Package,Entry 0178 c5fd | | Store 0x2,-0x3 0179 4503 |E | Exit_Suprogram New_Top_Offset 0x3 017a 0000 0000 | | .BLANK 0000[0x6] 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0183 | | .CONST 0x0183 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0001 | | .CONST 0x0001 ; Number of locals 0183 BODY_0180: 0183 INIT_0180: 0183 00da | | Load_Top At_Offset_2 0184 e5fe | | Load 0x2,-0x2 0185 e5ff | | Load 0x2,-0x1 0186 822b | + | Call 0x1,0x2b 0187 801d | | Call 0x0,0x1d 0188 822c | , | Call 0x1,0x2c 0189 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 018a 0000 0000 | | .BLANK 0000[0x6] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 0197 | | .CONST 0x0197 ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0002 | | .CONST 0x0002 ; Number of locals 0193 INIT_0190: 0193 e5fd | | Load 0x2,-0x3 0194 e5fe | | Load 0x2,-0x2 0195 822b | + | Call 0x1,0x2b 0196 801d | | Call 0x0,0x1d 0197 BODY_0190: 0197 00db | | Load_Top At_Offset_3 0198 01db | | Execute Vector,Length 0199 7002 |p | Jump_Nonzero 0x19c 019a 00ea | | Load_Encached Null_String_Cache 019b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 019c 00db | | Load_Top At_Offset_3 019d 01dd | | Execute Vector,First 019e e5ff | | Load 0x2,-0x1 019f 01d7 | | Execute Vector,Field_Read 01a0 0f21 | ! | Execute_Immediate Equal,0x21 01a1 6804 |h | Jump_Zero 0x1a6 01a2 00db | | Load_Top At_Offset_3 01a3 0335 | 5 | Declare_Variable Array,Duplicate 01a4 00cd | | Action Spare6_Action 01a5 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01a6 00d8 | | Load_Top At_Offset_0 01a7 01db | | Execute Vector,Length 01a8 7009 |p | Jump_Nonzero 0x1b2 01a9 482e |H. | Short_Literal 0x2e 01aa e01e | | Load 0x0,0x1e 01ab 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01ac 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01ad 01cb | | Execute Vector,Append 01ae e5ff | | Load 0x2,-0x1 01af 822d | - | Call 0x1,0x2d 01b0 01cc | | Execute Vector,Catenate 01b1 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01b2 482e |H. | Short_Literal 0x2e 01b3 e5fe | | Load 0x2,-0x2 01b4 00da | | Load_Top At_Offset_2 01b5 822c | , | Call 0x1,0x2c 01b6 01cb | | Execute Vector,Append 01b7 e5ff | | Load 0x2,-0x1 01b8 822d | - | Call 0x1,0x2d 01b9 01cc | | Execute Vector,Catenate 01ba 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01bb 0000 0000 | | .BLANK 0000[0x5] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01cc | | .CONST 0x01cc ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0004 | | .CONST 0x0004 ; Number of locals 01c3 INIT_01c0: 01c3 e216 | | Load 0x1,0x16 01c4 0322 | " | Declare_Variable Record 01c5 00d8 | | Load_Top At_Offset_0 01c6 1c00 | | Execute_Immediate Run_Utility,0x0 01c7 00db | | Load_Top At_Offset_3 01c8 e225 | % | Load 0x1,0x25 01c9 1820 | | Execute Package,Field_Execute,Field_Number 0x20 01ca 029f 0303 | | Declare_Subprogram INIT_0300,For_Call 01cc BODY_01c0: 01cc 00d9 | | Load_Top At_Offset_1 01cd e225 | % | Load 0x1,0x25 01ce 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 01cf 7002 |p | Jump_Nonzero 0x1d2 01d0 e01f | | Load 0x0,0x1f 01d1 0257 | W | Execute Discrete,Raise 01d2 00cf | | Action Mark_Auxiliary 01d3 480a |H | Short_Literal 0xa 01d4 4801 |H | Short_Literal 0x1 01d5 0007 | | Action Break_Optional 01d6 00d8 | | Load_Top At_Offset_0 01d7 e403 | | Load 0x2,0x3 01d8 e225 | % | Load 0x1,0x25 01d9 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 01da 6801 |h | Jump_Zero 0x1dc 01db 8404 | | Call 0x2,0x4 01dc 00c8 | | Action Pop_Auxiliary_Range 01dd 3ff8 |? | Loop_Increasing 0x1d6 01de 00ce | | Action Pop_Auxiliary 01df e5fe | | Load 0x2,-0x2 01e0 00db | | Load_Top At_Offset_3 01e1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01e2 00da | | Load_Top At_Offset_2 01e3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01e4 0000 0000 | | .BLANK 0000[0x4] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01eb | | .CONST 0x01eb ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0001 | | .CONST 0x0001 ; Number of locals 01eb BODY_01e8: 01eb INIT_01e8: 01eb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01ec 0000 0000 | | .BLANK 0000[0x4] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01f3 | | .CONST 0x01f3 ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0001 | | .CONST 0x0001 ; Number of locals 01f3 BODY_01f0: 01f3 INIT_01f0: 01f3 0833 | 3 | Execute_Immediate Raise,0x33 01f4 0000 0000 | | .BLANK 0000[0x4] 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 01ff | | .CONST 0x01ff ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0002 | | .CONST 0x0002 ; Number of locals 01fb INIT_01f8: 01fb e216 | | Load 0x1,0x16 01fc 0322 | " | Declare_Variable Record 01fd 00d8 | | Load_Top At_Offset_0 01fe 1c00 | | Execute_Immediate Run_Utility,0x0 01ff BODY_01f8: 01ff 00d8 | | Load_Top At_Offset_0 0200 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0201 0000 0000 | | .BLANK 0000[0x7] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 020b | | .CONST 0x020b ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0001 | | .CONST 0x0001 ; Number of locals 020b BODY_0208: 020b INIT_0208: 020b 0833 | 3 | Execute_Immediate Raise,0x33 020c 0000 0000 | | .BLANK 0000[0x4] 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0213 | | .CONST 0x0213 ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0001 | | .CONST 0x0001 ; Number of locals 0213 BODY_0210: 0213 INIT_0210: 0213 0833 | 3 | Execute_Immediate Raise,0x33 0214 0000 0000 | | .BLANK 0000[0x4] 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 021b | | .CONST 0x021b ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 0001 | | .CONST 0x0001 ; Number of locals 021b BODY_0218: 021b INIT_0218: 021b 00da | | Load_Top At_Offset_2 021c 0335 | 5 | Declare_Variable Array,Duplicate 021d 00cd | | Action Spare6_Action 021e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 021f 0000 | | .XXX[0x1] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0223 | # | .CONST 0x0223 ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0001 | | .CONST 0x0001 ; Number of locals 0223 BODY_0220: 0223 INIT_0220: 0223 e217 | | Load 0x1,0x17 0224 0322 | " | Declare_Variable Record 0225 00db | | Load_Top At_Offset_3 0226 00d9 | | Load_Top At_Offset_1 0227 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0228 4800 |H | Short_Literal 0x0 0229 00d9 | | Load_Top At_Offset_1 022a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 022b 4801 |H | Short_Literal 0x1 022c 00d9 | | Load_Top At_Offset_1 022d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 022e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 022f 0000 | | .XXX[0x1] 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 0233 | 3 | .CONST 0x0233 ; Address of begin 0231 0004 | | .CONST 0x0004 ; Address of exception handler 0232 0001 | | .CONST 0x0001 ; Number of locals 0233 BODY_0230: 0233 INIT_0230: 0233 00da | | Load_Top At_Offset_2 0234 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0235 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0236 0000 0000 | | .XXX[0x2] 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 0247 | G | .CONST 0x0247 ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0003 | | .CONST 0x0003 ; Number of locals 023b INIT_0238: 023b 00da | | Load_Top At_Offset_2 023c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 023d e20d | | Load 0x1,0xd 023e 011c | | Execute Any,Convert_Unchecked 023f 1c01 | | Execute_Immediate Run_Utility,0x1 0240 0092 0409 | | Action Push_String_Extended,0x409 ; "=>" 0242 01cc | | Execute Vector,Catenate 0243 0007 | | Action Break_Optional 0244 00db | | Load_Top At_Offset_3 0245 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0246 0007 | | Action Break_Optional 0247 BODY_0238: 0247 00d9 | | Load_Top At_Offset_1 0248 e5ff | | Load 0x2,-0x1 0249 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 024a 00da | | Load_Top At_Offset_2 024b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 024c 01d7 | | Execute Vector,Field_Read 024d 801d | | Call 0x0,0x1d 024e 01cc | | Execute Vector,Catenate 024f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0250 ; -------------------------------------------------------------------------------------- 0250 ; SUBPROGRAM 0250 ; -------------------------------------------------------------------------------------- 0250 0253 | S | .CONST 0x0253 ; Address of begin 0251 0004 | | .CONST 0x0004 ; Address of exception handler 0252 0001 | | .CONST 0x0001 ; Number of locals 0253 BODY_0250: 0253 INIT_0250: 0253 00da | | Load_Top At_Offset_2 0254 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0255 700e |p | Jump_Nonzero 0x264 0256 00da | | Load_Top At_Offset_2 0257 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0258 0f0a | | Execute_Immediate Equal,0xa 0259 6804 |h | Jump_Zero 0x25e 025a 4801 |H | Short_Literal 0x1 025b 00db | | Load_Top At_Offset_3 025c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 025d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 025e e20d | | Load 0x1,0xd 025f 00db | | Load_Top At_Offset_3 0260 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0261 0268 | h | Execute Discrete,Successor 0262 00db | | Load_Top At_Offset_3 0263 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0264 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0265 0000 0000 | | .XXX[0x3] 0267 0000 | | 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 0271 | q | .CONST 0x0271 ; Address of begin 0269 0004 | | .CONST 0x0004 ; Address of exception handler 026a 0003 | | .CONST 0x0003 ; Number of locals 026b INIT_0268: 026b e004 | | Load 0x0,0x4 026c 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 026d e216 | | Load 0x1,0x16 026e 0322 | " | Declare_Variable Record 026f 00d8 | | Load_Top At_Offset_0 0270 1c00 | | Execute_Immediate Run_Utility,0x0 0271 BODY_0268: 0271 e004 | | Load 0x0,0x4 0272 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0273 4907 |I | Short_Literal 0x107 0274 e020 | | Load 0x0,0x20 0275 180d | | Execute Package,Field_Execute,Field_Number 0xd 0276 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0277 e004 | | Load 0x0,0x4 0278 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0279 00d9 | | Load_Top At_Offset_1 027a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 027b 00d9 | | Load_Top At_Offset_1 027c 820e | | Call 0x1,0xe 027d a227 | ' | Store_Unchecked 0x1,0x27 027e e227 | ' | Load 0x1,0x27 027f e009 | | Load 0x0,0x9 0280 e223 | # | Load 0x1,0x23 0281 0098 | | Execute Package,Field_Read_Dynamic 0282 0216 | | Execute Heap_Access,Convert 0283 00d9 | | Load_Top At_Offset_1 0284 e019 | | Load 0x0,0x19 0285 e223 | # | Load 0x1,0x23 0286 0096 | | Execute Package,Entry 0287 c227 | ' | Store 0x1,0x27 0288 4801 |H | Short_Literal 0x1 0289 a228 | ( | Store_Unchecked 0x1,0x28 028a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 028b 0000 0000 | | .BLANK 0000[0x5] 0290 ; -------------------------------------------------------------------------------------- 0290 ; SUBPROGRAM 0290 ; -------------------------------------------------------------------------------------- 0290 0293 | | .CONST 0x0293 ; Address of begin 0291 0004 | | .CONST 0x0004 ; Address of exception handler 0292 0001 | | .CONST 0x0001 ; Number of locals 0293 BODY_0290: 0293 INIT_0290: 0293 00da | | Load_Top At_Offset_2 0294 e01b | | Load 0x0,0x1b 0295 e223 | # | Load 0x1,0x23 0296 0096 | | Execute Package,Entry 0297 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0298 e004 | | Load 0x0,0x4 0299 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 029a 021f | | Execute Heap_Access,Equal 029b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 029c 0000 0000 | | .BLANK 0000[0x4] 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; SUBPROGRAM 02a0 ; -------------------------------------------------------------------------------------- 02a0 02a3 | | .CONST 0x02a3 ; Address of begin 02a1 0004 | | .CONST 0x0004 ; Address of exception handler 02a2 0001 | | .CONST 0x0001 ; Number of locals 02a3 BODY_02a0: 02a3 INIT_02a0: 02a3 00da | | Load_Top At_Offset_2 02a4 e5fe | | Load 0x2,-0x2 02a5 e01b | | Load 0x0,0x1b 02a6 e223 | # | Load 0x1,0x23 02a7 0096 | | Execute Package,Entry 02a8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02a9 01d7 | | Execute Vector,Field_Read 02aa 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02ab 0000 0000 | | .BLANK 0000[0x5] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02c0 | | .CONST 0x02c0 ; Address of begin 02b1 0004 | | .CONST 0x0004 ; Address of exception handler 02b2 0002 | | .CONST 0x0002 ; Number of locals 02b3 INIT_02b0: 02b3 e01e | | Load 0x0,0x1e 02b4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02b5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02b6 02c7 | | Declare_Variable Any 02b7 4801 |H | Short_Literal 0x1 02b8 e01e | | Load 0x0,0x1e 02b9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02ba 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02bb e5ff | | Load 0x2,-0x1 02bc e01e | | Load 0x0,0x1e 02bd 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02be 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 02bf a402 | | Store_Unchecked 0x2,0x2 02c0 BODY_02b0: 02c0 00d8 | | Load_Top At_Offset_0 02c1 e01e | | Load 0x0,0x1e 02c2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02c3 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 02c4 681b |h | Jump_Zero 0x2e0 02c5 e021 | ! | Load 0x0,0x21 02c6 180e | | Execute Package,Field_Execute,Field_Number 0xe 02c7 4802 |H | Short_Literal 0x2 02c8 0092 040a | | Action Push_String_Extended,0x40a ; "Unable to resolve Context Location " 02ca e5fe | | Load 0x2,-0x2 02cb e20d | | Load 0x1,0xd 02cc 011c | | Execute Any,Convert_Unchecked 02cd 1c01 | | Execute_Immediate Run_Utility,0x1 02ce 01cc | | Execute Vector,Catenate 02cf 0092 040b | | Action Push_String_Extended,0x40b ; " " 02d1 01cc | | Execute Vector,Catenate 02d2 e5ff | | Load 0x2,-0x1 02d3 01cc | | Execute Vector,Catenate 02d4 0092 040b | | Action Push_String_Extended,0x40b ; " " 02d6 01cc | | Execute Vector,Catenate 02d7 00db | | Load_Top At_Offset_3 02d8 e01e | | Load 0x0,0x1e 02d9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02da 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 02db 01cc | | Execute Vector,Catenate 02dc e022 | " | Load 0x0,0x22 02dd 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02de 00db | | Load_Top At_Offset_3 02df 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02e0 00d8 | | Load_Top At_Offset_0 02e1 e01e | | Load 0x0,0x1e 02e2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02e3 1820 | | Execute Package,Field_Execute,Field_Number 0x20 02e4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02e5 0000 0000 | | .XXX[0x3] 02e7 0000 | | 02e8 ; -------------------------------------------------------------------------------------- 02e8 ; SUBPROGRAM 02e8 ; -------------------------------------------------------------------------------------- 02e8 02f2 | | .CONST 0x02f2 ; Address of begin 02e9 0004 | | .CONST 0x0004 ; Address of exception handler 02ea 0002 | | .CONST 0x0002 ; Number of locals 02eb INIT_02e8: 02eb 4801 |H | Short_Literal 0x1 02ec 00db | | Load_Top At_Offset_3 02ed 482c |H, | Short_Literal 0x2c 02ee e023 | # | Load 0x0,0x23 02ef 181e | | Execute Package,Field_Execute,Field_Number 0x1e 02f0 00e3 | | Load_Encached Natural_Cache 02f1 03f1 | | Declare_Variable Discrete,With_Value 02f2 BODY_02e8: 02f2 00d8 | | Load_Top At_Offset_0 02f3 7002 |p | Jump_Nonzero 0x2f6 02f4 00db | | Load_Top At_Offset_3 02f5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02f6 485d |H] | Short_Literal 0x5d 02f7 485b |H[ | Short_Literal 0x5b 02f8 e5ff | | Load 0x2,-0x1 02f9 01ca | | Execute Vector,Prepend 02fa 01cb | | Execute Vector,Append 02fb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02fc 0000 0000 | | .BLANK 0000[0x4] 0300 ; -------------------------------------------------------------------------------------- 0300 ; SUBPROGRAM 0300 ; -------------------------------------------------------------------------------------- 0300 0308 | | .CONST 0x0308 ; Address of begin 0301 0004 | | .CONST 0x0004 ; Address of exception handler 0302 0002 | | .CONST 0x0002 ; Number of locals 0303 INIT_0300: 0303 00ea | | Load_Encached Null_String_Cache 0304 e407 | | Load 0x2,0x7 0305 e403 | | Load 0x2,0x3 0306 e225 | % | Load 0x1,0x25 0307 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0308 BODY_0300: 0308 e5fe | | Load 0x2,-0x2 0309 00d9 | | Load_Top At_Offset_1 030a 801c | | Call 0x0,0x1c 030b e407 | | Load 0x2,0x7 030c e402 | | Load 0x2,0x2 030d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 030e 01d6 | | Execute Vector,Field_Write 030f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0310 ; -------------------------------------------------------------------------------------- 0310 ; SUBPROGRAM 0310 ; -------------------------------------------------------------------------------------- 0310 0313 | | .CONST 0x0313 ; Address of begin 0311 0004 | | .CONST 0x0004 ; Address of exception handler 0312 0001 | | .CONST 0x0001 ; Number of locals 0313 BODY_0310: 0313 INIT_0310: 0313 4601 |F | Jump_Case 0x2 0314 7801 |x | Jump 0x316 ; case 0x0 0315 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0316 e216 | | Load 0x1,0x16 0317 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 0318 0337 | 7 | Declare_Variable Array 0319 480a |H | Short_Literal 0xa 031a 4800 |H | Short_Literal 0x0 031b 8002 | | Call 0x0,0x2 031c 00d9 | | Load_Top At_Offset_1 031d e402 | | Load 0x2,0x2 031e 01d6 | | Execute Vector,Field_Write 031f 3ffb |? | Loop_Increasing 0x31b 0320 00db | | Load_Top At_Offset_3 0321 00d9 | | Load_Top At_Offset_1 0322 00d9 | | Load_Top At_Offset_1 0323 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 0324 0119 | | Execute Any,Check_In_Formal_Type 0325 00d1 | | Pop_Control Pop_Count_1 0326 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0327 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0328 ; -------------------------------------------------------------------------------------- 0328 ; SUBPROGRAM 0328 ; -------------------------------------------------------------------------------------- 0328 032b | + | .CONST 0x032b ; Address of begin 0329 0004 | | .CONST 0x0004 ; Address of exception handler 032a 0001 | | .CONST 0x0001 ; Number of locals 032b BODY_0328: 032b INIT_0328: 032b 4601 |F | Jump_Case 0x2 032c 7801 |x | Jump 0x32e ; case 0x0 032d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 032e 00da | | Load_Top At_Offset_2 032f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0330 1c00 | | Execute_Immediate Run_Utility,0x0 0331 4800 |H | Short_Literal 0x0 0332 00db | | Load_Top At_Offset_3 0333 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0334 4800 |H | Short_Literal 0x0 0335 00db | | Load_Top At_Offset_3 0336 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0337 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0338 ; -------------------------------------------------------------------------------------- 0338 ; SUBPROGRAM 0338 ; -------------------------------------------------------------------------------------- 0338 0360 | ` | .CONST 0x0360 ; Address of begin 0339 0004 | | .CONST 0x0004 ; Address of exception handler 033a 0015 | | .CONST 0x0015 ; Number of locals 033b INIT_0338: 033b 029a 036b | k| Declare_Subprogram INIT_0368,For_Outer_Call,Visible,Unelaborated 033d 029a 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call,Visible,Unelaborated 033f 029a 0393 | | Declare_Subprogram INIT_0390,For_Outer_Call,Visible,Unelaborated 0341 029a 03a3 | | Declare_Subprogram INIT_03a0,For_Outer_Call,Visible,Unelaborated 0343 029a 03b3 | | Declare_Subprogram INIT_03b0,For_Outer_Call,Visible,Unelaborated 0345 029a 03c3 | | Declare_Subprogram INIT_03c0,For_Outer_Call,Visible,Unelaborated 0347 029a 03d3 | | Declare_Subprogram INIT_03d0,For_Outer_Call,Visible,Unelaborated 0349 029a 03e3 | | Declare_Subprogram INIT_03e0,For_Outer_Call,Visible,Unelaborated 034b 029a 03f3 | | Declare_Subprogram INIT_03f0,For_Outer_Call,Visible,Unelaborated 034d 00bf | | Action Accept_Activation 034e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 034f 00c7 | | Action Elaborate_Subprogram 0350 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0351 00c7 | | Action Elaborate_Subprogram 0352 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0353 00c7 | | Action Elaborate_Subprogram 0354 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0355 00c7 | | Action Elaborate_Subprogram 0356 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0357 00c7 | | Action Elaborate_Subprogram 0358 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0359 00c7 | | Action Elaborate_Subprogram 035a 1d13 | | Execute_Immediate Reference_Lex_1,0x13 035b 00c7 | | Action Elaborate_Subprogram 035c 1d14 | | Execute_Immediate Reference_Lex_1,0x14 035d 00c7 | | Action Elaborate_Subprogram 035e 1d15 | | Execute_Immediate Reference_Lex_1,0x15 035f 00c7 | | Action Elaborate_Subprogram 0360 BODY_0338: 0360 00bc | | Action Signal_Activated 0361 00bb | | Action Signal_Completion 0362 0000 0000 | | .BLANK 0000[0x6] 0368 ; -------------------------------------------------------------------------------------- 0368 ; SUBPROGRAM 0368 ; -------------------------------------------------------------------------------------- 0368 036b | k | .CONST 0x036b ; Address of begin 0369 0004 | | .CONST 0x0004 ; Address of exception handler 036a 0001 | | .CONST 0x0001 ; Number of locals 036b BODY_0368: 036b INIT_0368: 036b 00da | | Load_Top At_Offset_2 036c 8001 | | Call 0x0,0x1 036d 7004 |p | Jump_Nonzero 0x372 036e 00db | | Load_Top At_Offset_3 036f 00db | | Load_Top At_Offset_3 0370 8002 | | Call 0x0,0x2 0371 c5fe | | Store 0x2,-0x2 0372 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0373 0000 0000 | | .BLANK 0000[0x5] 0378 ; -------------------------------------------------------------------------------------- 0378 ; SUBPROGRAM 0378 ; -------------------------------------------------------------------------------------- 0378 037b | { | .CONST 0x037b ; Address of begin 0379 0004 | | .CONST 0x0004 ; Address of exception handler 037a 0001 | | .CONST 0x0001 ; Number of locals 037b BODY_0378: 037b INIT_0378: 037b 00db | | Load_Top At_Offset_3 037c 8003 | | Call 0x0,0x3 037d 01db | | Execute Vector,Length 037e 7006 |p | Jump_Nonzero 0x385 037f e004 | | Load 0x0,0x4 0380 7001 |p | Jump_Nonzero 0x382 0381 8005 | | Call 0x0,0x5 0382 e006 | | Load 0x0,0x6 0383 a5fd | | Store_Unchecked 0x2,-0x3 0384 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0385 e5fd | | Load 0x2,-0x3 0386 e007 | | Load 0x0,0x7 0387 0216 | | Execute Heap_Access,Convert 0388 e5fe | | Load 0x2,-0x2 0389 e5ff | | Load 0x2,-0x1 038a 8008 | | Call 0x0,0x8 038b c5fd | | Store 0x2,-0x3 038c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 038d 0000 0000 | | .XXX[0x3] 038f 0000 | | 0390 ; -------------------------------------------------------------------------------------- 0390 ; SUBPROGRAM 0390 ; -------------------------------------------------------------------------------------- 0390 0393 | | .CONST 0x0393 ; Address of begin 0391 0004 | | .CONST 0x0004 ; Address of exception handler 0392 0001 | | .CONST 0x0001 ; Number of locals 0393 BODY_0390: 0393 INIT_0390: 0393 00db | | Load_Top At_Offset_3 0394 e007 | | Load 0x0,0x7 0395 0216 | | Execute Heap_Access,Convert 0396 00db | | Load_Top At_Offset_3 0397 8009 | | Call 0x0,0x9 0398 c5fe | | Store 0x2,-0x2 0399 4502 |E | Exit_Suprogram New_Top_Offset 0x2 039a 0000 0000 | | .BLANK 0000[0x6] 03a0 ; -------------------------------------------------------------------------------------- 03a0 ; SUBPROGRAM 03a0 ; -------------------------------------------------------------------------------------- 03a0 03a3 | | .CONST 0x03a3 ; Address of begin 03a1 0004 | | .CONST 0x0004 ; Address of exception handler 03a2 0001 | | .CONST 0x0001 ; Number of locals 03a3 BODY_03a0: 03a3 INIT_03a0: 03a3 00da | | Load_Top At_Offset_2 03a4 8001 | | Call 0x0,0x1 03a5 6802 |h | Jump_Zero 0x3a8 03a6 00ea | | Load_Encached Null_String_Cache 03a7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03a8 00da | | Load_Top At_Offset_2 03a9 800a | | Call 0x0,0xa 03aa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03ab 0000 0000 | | .BLANK 0000[0x5] 03b0 ; -------------------------------------------------------------------------------------- 03b0 ; SUBPROGRAM 03b0 ; -------------------------------------------------------------------------------------- 03b0 03b3 | | .CONST 0x03b3 ; Address of begin 03b1 0004 | | .CONST 0x0004 ; Address of exception handler 03b2 0001 | | .CONST 0x0001 ; Number of locals 03b3 BODY_03b0: 03b3 INIT_03b0: 03b3 00da | | Load_Top At_Offset_2 03b4 8001 | | Call 0x0,0x1 03b5 7005 |p | Jump_Nonzero 0x3bb 03b6 00da | | Load_Top At_Offset_2 03b7 e007 | | Load 0x0,0x7 03b8 0216 | | Execute Heap_Access,Convert 03b9 800b | | Call 0x0,0xb 03ba 0033 | 3 | Store_Top Heap_Access,At_Offset_3 03bb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03bc 0000 0000 | | .BLANK 0000[0x4] 03c0 ; -------------------------------------------------------------------------------------- 03c0 ; SUBPROGRAM 03c0 ; -------------------------------------------------------------------------------------- 03c0 03c3 | | .CONST 0x03c3 ; Address of begin 03c1 0004 | | .CONST 0x0004 ; Address of exception handler 03c2 0001 | | .CONST 0x0001 ; Number of locals 03c3 BODY_03c0: 03c3 INIT_03c0: 03c3 00db | | Load_Top At_Offset_3 03c4 8001 | | Call 0x0,0x1 03c5 7006 |p | Jump_Nonzero 0x3cc 03c6 00db | | Load_Top At_Offset_3 03c7 e007 | | Load 0x0,0x7 03c8 0216 | | Execute Heap_Access,Convert 03c9 00db | | Load_Top At_Offset_3 03ca 800c | | Call 0x0,0xc 03cb c5fe | | Store 0x2,-0x2 03cc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03cd 0000 0000 | | .XXX[0x3] 03cf 0000 | | 03d0 ; -------------------------------------------------------------------------------------- 03d0 ; SUBPROGRAM 03d0 ; -------------------------------------------------------------------------------------- 03d0 03d3 | | .CONST 0x03d3 ; Address of begin 03d1 0004 | | .CONST 0x0004 ; Address of exception handler 03d2 0001 | | .CONST 0x0001 ; Number of locals 03d3 BODY_03d0: 03d3 INIT_03d0: 03d3 00db | | Load_Top At_Offset_3 03d4 8001 | | Call 0x0,0x1 03d5 7006 |p | Jump_Nonzero 0x3dc 03d6 00db | | Load_Top At_Offset_3 03d7 e007 | | Load 0x0,0x7 03d8 0216 | | Execute Heap_Access,Convert 03d9 00db | | Load_Top At_Offset_3 03da 800d | | Call 0x0,0xd 03db c5fe | | Store 0x2,-0x2 03dc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03dd 0000 0000 | | .XXX[0x3] 03df 0000 | | 03e0 ; -------------------------------------------------------------------------------------- 03e0 ; SUBPROGRAM 03e0 ; -------------------------------------------------------------------------------------- 03e0 03e3 | | .CONST 0x03e3 ; Address of begin 03e1 0004 | | .CONST 0x0004 ; Address of exception handler 03e2 0001 | | .CONST 0x0001 ; Number of locals 03e3 BODY_03e0: 03e3 INIT_03e0: 03e3 00da | | Load_Top At_Offset_2 03e4 8001 | | Call 0x0,0x1 03e5 6802 |h | Jump_Zero 0x3e8 03e6 4800 |H | Short_Literal 0x0 03e7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03e8 00da | | Load_Top At_Offset_2 03e9 800e | | Call 0x0,0xe 03ea 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03eb 0000 0000 | | .BLANK 0000[0x5] 03f0 ; -------------------------------------------------------------------------------------- 03f0 ; SUBPROGRAM 03f0 ; -------------------------------------------------------------------------------------- 03f0 03f3 | | .CONST 0x03f3 ; Address of begin 03f1 0004 | | .CONST 0x0004 ; Address of exception handler 03f2 0001 | | .CONST 0x0001 ; Number of locals 03f3 BODY_03f0: 03f3 INIT_03f0: 03f3 00db | | Load_Top At_Offset_3 03f4 8001 | | Call 0x0,0x1 03f5 7006 |p | Jump_Nonzero 0x3fc 03f6 00db | | Load_Top At_Offset_3 03f7 e007 | | Load 0x0,0x7 03f8 0216 | | Execute Heap_Access,Convert 03f9 00db | | Load_Top At_Offset_3 03fa 800f | | Call 0x0,0xf 03fb c5fe | | Store 0x2,-0x2 03fc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03fd ; -------------------------------------------------------------------------------------- 03fd ; STRING TABLE 03fd ; -------------------------------------------------------------------------------------- 03fd 0020 | | .STRTAB 0x0020->0x040d ; "NONE" 03fe 0022 | " | .STRTAB 0x0022->0x040f ; "TEST_RUN_LOC" 03ff 002c | , | .STRTAB 0x002c->0x0415 ; "TEST_CASE_LOC" 0400 0037 | 7 | .STRTAB 0x0037->0x041b ; "TEST_SET_LOC" 0401 0041 | A | .STRTAB 0x0041->0x0421 ; "SUBJECT_PROGRAM_LOC" 0402 0052 | R | .STRTAB 0x0052->0x042b ; "TEST_DRIVER_LOC" 0403 005f | _ | .STRTAB 0x005f->0x0432 ; "INPUT_DATA_LOC" 0404 006b | k | .STRTAB 0x006b->0x0439 ; "EXPECTED_OUTPUT_LOC" 0405 007c | | | .STRTAB 0x007c->0x0443 ; "TEST_OUTPUT_LOC" 0406 0089 | | .STRTAB 0x0089->0x044a ; "TEST_LOG_LOC" 0407 0093 | | .STRTAB 0x0093->0x0450 ; "TEST_SCRIPT_LOC" 0408 00a0 | | .STRTAB 0x00a0->0x0458 ; "others => Unspecified" 0409 00b3 | | .STRTAB 0x00b3->0x0462 ; "=>" 040a 00b3 | | .STRTAB 0x00b3->0x0463 ; "Unable to resolve Context Location " 040b 00d4 | | .STRTAB 0x00d4->0x0475 ; " " 040c 00d3 | | .STREND 0x00d3->0x0475 040d 4e4f 4e45 |NONE| .STRTAB_STRINGS 0476 0000 0000 | | .XXX[0x2] 0478 ; -------------------------------------------------------------------------------------- 0478 ; Debug Table 0478 ; -------------------------------------------------------------------------------------- 0478 0004 000a | | .DEBUG4 0x0004,0x000a,0x47c7,0x0000,0x0001,0x0000 047e 0000 0000 | | .BLANK 0000[0x182]