|
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 08f8 | | .CONST 0x08f8 ; 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 8005 | | .CONST 0x8005 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00f4 | | .CONST 0x00f4 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0038 | 8 | .CONST 0x0038 ; Number of locals 000b INIT_0008: 000b 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated 000d 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 000f 4800 |H | Short_Literal 0x0 0010 480e |H | Short_Literal 0xe 0011 029f 011b | | Declare_Subprogram INIT_0118,For_Call 0013 03fe | | Declare_Type Discrete,Defined,Visible 0014 4800 |H | Short_Literal 0x0 0015 4802 |H | Short_Literal 0x2 0016 029f 0143 | C| Declare_Subprogram INIT_0140,For_Call 0018 03fe | | Declare_Type Discrete,Defined,Visible 0019 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated 001b 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated 001d 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated 001f 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated 0021 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated 0023 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated 0025 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated 0027 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated 0029 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated 002b 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated 002d 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated 002f 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated 0031 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated 0033 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated 0035 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated 0037 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated 0039 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated 003b 029a 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call,Visible,Unelaborated 003d 029a 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call,Visible,Unelaborated 003f 029a 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call,Visible,Unelaborated 0041 029a 036b | k| Declare_Subprogram INIT_0368,For_Outer_Call,Visible,Unelaborated 0043 029a 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call,Visible,Unelaborated 0045 029a 038b | | Declare_Subprogram INIT_0388,For_Outer_Call,Visible,Unelaborated 0047 e20f | | Load 0x1,0xf 0048 0266 | f | Execute Discrete,Bounds 0049 e002 | | Load 0x0,0x2 004a 02a0 | | Declare_Subprogram Null_Subprogram 004b 4801 |H | Short_Literal 0x1 004c 035e | ^ | Declare_Type Array,Defined,Visible 004d e20f | | Load 0x1,0xf 004e 0266 | f | Execute Discrete,Bounds 004f e002 | | Load 0x0,0x2 0050 02a0 | | Declare_Subprogram Null_Subprogram 0051 4801 |H | Short_Literal 0x1 0052 035e | ^ | Declare_Type Array,Defined,Visible 0053 00d9 | | Load_Top At_Offset_1 0054 00d9 | | Load_Top At_Offset_1 0055 e002 | | Load 0x0,0x2 0056 e003 | | Load 0x0,0x3 0057 e002 | | Load 0x0,0x2 0058 e210 | | Load 0x1,0x10 0059 00e1 | | Load_Encached Boolean_Cache 005a e004 | | Load 0x0,0x4 005b 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 005c 029f 06f3 | | Declare_Subprogram INIT_06f0,For_Call 005e 4808 |H | Short_Literal 0x8 005f 032e | . | Declare_Type Record,Defined,Visible 0060 4800 |H | Short_Literal 0x0 0061 4807 |H | Short_Literal 0x7 0062 029f 03bb | | Declare_Subprogram INIT_03b8,For_Call 0064 03fe | | Declare_Type Discrete,Defined,Visible 0065 00d9 | | Load_Top At_Offset_1 0066 00e1 | | Load_Encached Boolean_Cache 0067 00da | | Load_Top At_Offset_2 0068 00e1 | | Load_Encached Boolean_Cache 0069 e20f | | Load 0x1,0xf 006a 029f 0703 | | Declare_Subprogram INIT_0700,For_Call 006c 4805 |H | Short_Literal 0x5 006d 032e | . | Declare_Type Record,Defined,Visible 006e 00bf | | Action Accept_Activation 006f 00d9 | | Load_Top At_Offset_1 0070 0266 | f | Execute Discrete,Bounds 0071 00e1 | | Load_Encached Boolean_Cache 0072 02a0 | | Declare_Subprogram Null_Subprogram 0073 4801 |H | Short_Literal 0x1 0074 035d | ] | Declare_Type Array,Defined 0075 00d8 | | Load_Top At_Offset_0 0076 0337 | 7 | Declare_Variable Array 0077 00d8 | | Load_Top At_Offset_0 0078 0335 | 5 | Declare_Variable Array,Duplicate 0079 00cd | | Action Spare6_Action 007a 4801 |H | Short_Literal 0x1 007b 4801 |H | Short_Literal 0x1 007c 00da | | Load_Top At_Offset_2 007d 01d6 | | Execute Vector,Field_Write 007e 4801 |H | Short_Literal 0x1 007f 4802 |H | Short_Literal 0x2 0080 00da | | Load_Top At_Offset_2 0081 01d6 | | Execute Vector,Field_Write 0082 4800 |H | Short_Literal 0x0 0083 4800 |H | Short_Literal 0x0 0084 00da | | Load_Top At_Offset_2 0085 01d6 | | Execute Vector,Field_Write 0086 4800 |H | Short_Literal 0x0 0087 4803 |H | Short_Literal 0x3 0088 00da | | Load_Top At_Offset_2 0089 01d6 | | Execute Vector,Field_Write 008a 4800 |H | Short_Literal 0x0 008b 4804 |H | Short_Literal 0x4 008c 00da | | Load_Top At_Offset_2 008d 01d6 | | Execute Vector,Field_Write 008e 4800 |H | Short_Literal 0x0 008f 4805 |H | Short_Literal 0x5 0090 00da | | Load_Top At_Offset_2 0091 01d6 | | Execute Vector,Field_Write 0092 4800 |H | Short_Literal 0x0 0093 4806 |H | Short_Literal 0x6 0094 00da | | Load_Top At_Offset_2 0095 01d6 | | Execute Vector,Field_Write 0096 4800 |H | Short_Literal 0x0 0097 4807 |H | Short_Literal 0x7 0098 00da | | Load_Top At_Offset_2 0099 01d6 | | Execute Vector,Field_Write 009a 00d9 | | Load_Top At_Offset_1 009b 01d4 | | Execute Vector,Structure_Write 009c 029d 03e3 | | Declare_Subprogram INIT_03e0,For_Outer_Call 009e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 009f 00c7 | | Action Elaborate_Subprogram 00a0 1d0e | | Execute_Immediate Reference_Lex_1,0xe 00a1 00c7 | | Action Elaborate_Subprogram 00a2 029d 0453 | S| Declare_Subprogram INIT_0450,For_Outer_Call 00a4 1d19 | | Execute_Immediate Reference_Lex_1,0x19 00a5 00c7 | | Action Elaborate_Subprogram 00a6 1d11 | | Execute_Immediate Reference_Lex_1,0x11 00a7 00c7 | | Action Elaborate_Subprogram 00a8 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 00a9 00c7 | | Action Elaborate_Subprogram 00aa 1d12 | | Execute_Immediate Reference_Lex_1,0x12 00ab 00c7 | | Action Elaborate_Subprogram 00ac 1d13 | | Execute_Immediate Reference_Lex_1,0x13 00ad 00c7 | | Action Elaborate_Subprogram 00ae 1d15 | | Execute_Immediate Reference_Lex_1,0x15 00af 00c7 | | Action Elaborate_Subprogram 00b0 1d14 | | Execute_Immediate Reference_Lex_1,0x14 00b1 00c7 | | Action Elaborate_Subprogram 00b2 1d16 | | Execute_Immediate Reference_Lex_1,0x16 00b3 00c7 | | Action Elaborate_Subprogram 00b4 1d17 | | Execute_Immediate Reference_Lex_1,0x17 00b5 00c7 | | Action Elaborate_Subprogram 00b6 1d18 | | Execute_Immediate Reference_Lex_1,0x18 00b7 00c7 | | Action Elaborate_Subprogram 00b8 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 00b9 00c7 | | Action Elaborate_Subprogram 00ba 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 00bb 00c7 | | Action Elaborate_Subprogram 00bc 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 00bd 00c7 | | Action Elaborate_Subprogram 00be 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 00bf 00c7 | | Action Elaborate_Subprogram 00c0 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 00c1 00c7 | | Action Elaborate_Subprogram 00c2 4800 |H | Short_Literal 0x0 00c3 0093 071b | | push_full_address INIT_0718 00c5 02a0 | | Declare_Subprogram Null_Subprogram 00c6 038e | | Declare_Type Package,Defined 00c7 e20f | | Load 0x1,0xf 00c8 e22b | + | Load 0x1,0x2b 00c9 e005 | | Load 0x0,0x5 00ca e006 | | Load 0x0,0x6 00cb e007 | | Load 0x0,0x7 00cc e008 | | Load 0x0,0x8 00cd e009 | | Load 0x0,0x9 00ce e00a | | Load 0x0,0xa 00cf e00b | | Load 0x0,0xb 00d0 4809 |H | Short_Literal 0x9 00d1 e231 | 1 | Load 0x1,0x31 00d2 020e | | Execute Module,Augment_Imports 00d3 0387 | | Declare_Variable Package 00d4 029d 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call 00d6 029d 0483 | | Declare_Subprogram INIT_0480,For_Outer_Call 00d8 1d20 | | Execute_Immediate Reference_Lex_1,0x20 00d9 00c7 | | Action Elaborate_Subprogram 00da 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 00db 00c7 | | Action Elaborate_Subprogram 00dc 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 00dd 00c7 | | Action Elaborate_Subprogram 00de 029d 04ab | | Declare_Subprogram INIT_04a8,For_Outer_Call 00e0 029d 04bb | | Declare_Subprogram INIT_04b8,For_Outer_Call 00e2 029d 04db | | Declare_Subprogram INIT_04d8,For_Outer_Call 00e4 029d 04eb | | Declare_Subprogram INIT_04e8,For_Outer_Call 00e6 029d 051b | | Declare_Subprogram INIT_0518,For_Outer_Call 00e8 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 00e9 00c7 | | Action Elaborate_Subprogram 00ea 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 00eb 00c7 | | Action Elaborate_Subprogram 00ec 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 00ed 00c7 | | Action Elaborate_Subprogram 00ee 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 00ef 00c7 | | Action Elaborate_Subprogram 00f0 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 00f1 00c7 | | Action Elaborate_Subprogram 00f2 e231 | 1 | Load 0x1,0x31 00f3 020f | | Execute Module,Activate 00f4 BODY_0008: 00f4 00bc | | Action Signal_Activated 00f5 00bb | | Action Signal_Completion 00f6 0000 0000 | | .XXX[0x2] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00ff | | .CONST 0x00ff ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0002 | | .CONST 0x0002 ; Number of locals 00fb INIT_00f8: 00fb e22a | * | Load 0x1,0x2a 00fc 0322 | " | Declare_Variable Record 00fd 00d8 | | Load_Top At_Offset_0 00fe 1c00 | | Execute_Immediate Run_Utility,0x0 00ff BODY_00f8: 00ff 00db | | Load_Top At_Offset_3 0100 00d9 | | Load_Top At_Offset_1 0101 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0102 00db | | Load_Top At_Offset_3 0103 0092 07a9 | | Action Push_String_Extended,0x7a9 ; "<default>" 0105 800c | | Call 0x0,0xc 0106 480b |H | Short_Literal 0xb 0107 00da | | Load_Top At_Offset_2 0108 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0109 01d6 | | Execute Vector,Field_Write 010a 00d8 | | Load_Top At_Offset_0 010b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 010c 0000 0000 | | .BLANK 0000[0x4] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0113 | | .CONST 0x0113 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0001 | | .CONST 0x0001 ; Number of locals 0113 BODY_0110: 0113 INIT_0110: 0113 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0114 0000 0000 | | .BLANK 0000[0x4] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011b | | .CONST 0x011b ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0001 | | .CONST 0x0001 ; Number of locals 011b BODY_0118: 011b INIT_0118: 011b 4607 |F | Jump_Case 0x8 011c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 011d 7807 |x | Jump 0x125 ; case 0x1 011e 780a |x | Jump 0x129 ; case 0x2 011f 780e |x | Jump 0x12e ; case 0x3 0120 7811 |x | Jump 0x132 ; case 0x4 0121 7812 |x | Jump 0x134 ; case 0x5 0122 7813 |x | Jump 0x136 ; case 0x6 0123 7816 |x | Jump 0x13a ; case 0x7 0124 4302 |C | .XXX[0x1] 0125 00da | | Load_Top At_Offset_2 0126 0091 0786 | | Action Push_String_Extended_Indexed,0x786 ; "NO_ELEMENT" 0128 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0129 00db | | Load_Top At_Offset_3 012a 00db | | Load_Top At_Offset_3 012b 00e0 | | Load_Encached Standard_Cache 012c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 012d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 012e 00da | | Load_Top At_Offset_2 012f 00e0 | | Load_Encached Standard_Cache 0130 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0131 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0132 00db | | Load_Top At_Offset_3 0133 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0134 00db | | Load_Top At_Offset_3 0135 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0136 e20f | | Load 0x1,0xf 0137 00dc | | Load_Top At_Offset_4 0138 0267 | g | Execute Discrete,Predecessor 0139 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 013a e20f | | Load 0x1,0xf 013b 00dc | | Load_Top At_Offset_4 013c 0268 | h | Execute Discrete,Successor 013d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 013e 0000 0000 | | .XXX[0x2] 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 4607 |F | Jump_Case 0x8 0144 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0145 7807 |x | Jump 0x14d ; case 0x1 0146 780a |x | Jump 0x151 ; case 0x2 0147 780e |x | Jump 0x156 ; case 0x3 0148 7811 |x | Jump 0x15a ; case 0x4 0149 7812 |x | Jump 0x15c ; case 0x5 014a 7813 |x | Jump 0x15e ; case 0x6 014b 7816 |x | Jump 0x162 ; case 0x7 014c 4302 |C | .XXX[0x1] 014d 00da | | Load_Top At_Offset_2 014e 0091 0795 | | Action Push_String_Extended_Indexed,0x795 ; "DIRECT_CALL" 0150 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0151 00db | | Load_Top At_Offset_3 0152 00db | | Load_Top At_Offset_3 0153 00e0 | | Load_Encached Standard_Cache 0154 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0155 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0156 00da | | Load_Top At_Offset_2 0157 00e0 | | Load_Encached Standard_Cache 0158 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0159 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 015a 00db | | Load_Top At_Offset_3 015b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 015c 00db | | Load_Top At_Offset_3 015d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 015e e210 | | Load 0x1,0x10 015f 00dc | | Load_Top At_Offset_4 0160 0267 | g | Execute Discrete,Predecessor 0161 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0162 e210 | | Load 0x1,0x10 0163 00dc | | Load_Top At_Offset_4 0164 0268 | h | Execute Discrete,Successor 0165 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0166 0000 0000 | | .XXX[0x2] 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 0188 | | .CONST 0x0188 ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 000b | | .CONST 0x000b ; Number of locals 016b INIT_0168: 016b 4800 |H | Short_Literal 0x0 016c 4801 |H | Short_Literal 0x1 016d 029f 053b | ;| Declare_Subprogram INIT_0538,For_Call 016f 03fd | | Declare_Type Discrete,Defined 0170 029f 0563 | c| Declare_Subprogram INIT_0560,For_Call 0172 029f 0573 | s| Declare_Subprogram INIT_0570,For_Call 0174 029f 0583 | | Declare_Subprogram INIT_0580,For_Call 0176 a00d | | Store_Unchecked 0x0,0xd 0177 00c6 | | Action Check_Subprogram_Elaborated 0178 00db | | Load_Top At_Offset_3 0179 4803 |H | Short_Literal 0x3 017a 4802 |H | Short_Literal 0x2 017b 0099 | | Action Reference_Dynamic 017c 4800 |H | Short_Literal 0x0 017d 0093 0000 | | push_full_address 0x0 017f 6010 |` | Indirect_Literal Discrete,0x190,{0x80000000, 0x00040000} 0180 0273 | s | Execute Discrete,Plus 0181 e00e | | Load 0x0,0xe 0182 0273 | s | Execute Discrete,Plus 0183 e00f | | Load 0x0,0xf 0184 0273 | s | Execute Discrete,Plus 0185 480a |H | Short_Literal 0xa 0186 029f 0593 | | Declare_Subprogram INIT_0590,For_Call 0188 BODY_0168: 0188 e5ff | | Load 0x2,-0x1 0189 0f0a | | Execute_Immediate Equal,0xa 018a 6802 |h | Jump_Zero 0x18d 018b 8010 | | Call 0x0,0x10 018c 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 018d 840b | | Call 0x2,0xb 018e 0831 | 1 | Execute_Immediate Raise,0x31 018f 0000 | | .XXX[0x1] 0190 8000 0000 | | .LITERAL {0x80000000, 0x00040000} 0194 0000 0000 | | .BLANK 0000[0x4] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019b | | .CONST 0x019b ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0001 | | .CONST 0x0001 ; Number of locals 019b BODY_0198: 019b INIT_0198: 019b 00db | | Load_Top At_Offset_3 019c 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 019d 00db | | Load_Top At_Offset_3 019e e5fe | | Load 0x2,-0x2 019f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01a0 01d7 | | Execute Vector,Field_Read 01a1 8011 | | Call 0x0,0x11 01a2 800c | | Call 0x0,0xc 01a3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01a4 0000 0000 | | .BLANK 0000[0x4] 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01ab | | .CONST 0x01ab ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0001 | | .CONST 0x0001 ; Number of locals 01ab BODY_01a8: 01ab INIT_01a8: 01ab 00da | | Load_Top At_Offset_2 01ac 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01ad 8011 | | Call 0x0,0x11 01ae 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01af 0000 | | .XXX[0x1] 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01b3 | | .CONST 0x01b3 ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 0001 | | .CONST 0x0001 ; Number of locals 01b3 BODY_01b0: 01b3 INIT_01b0: 01b3 00da | | Load_Top At_Offset_2 01b4 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 01b5 02fd | | Declare_Variable Variant_Record,Duplicate 01b6 00cd | | Action Spare6_Action 01b7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01bb | | .CONST 0x01bb ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0001 | | .CONST 0x0001 ; Number of locals 01bb BODY_01b8: 01bb INIT_01b8: 01bb 00da | | Load_Top At_Offset_2 01bc 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 01bd 8011 | | Call 0x0,0x11 01be 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01bf 0000 | | .XXX[0x1] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c3 | | .CONST 0x01c3 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0001 | | .CONST 0x0001 ; Number of locals 01c3 BODY_01c0: 01c3 INIT_01c0: 01c3 00da | | Load_Top At_Offset_2 01c4 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 01c5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01c6 0000 0000 | | .XXX[0x2] 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01cb | | .CONST 0x01cb ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 0001 | | .CONST 0x0001 ; Number of locals 01cb BODY_01c8: 01cb INIT_01c8: 01cb 00da | | Load_Top At_Offset_2 01cc 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 01cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ce 0000 0000 | | .XXX[0x2] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d3 | | .CONST 0x01d3 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0001 | | .CONST 0x0001 ; Number of locals 01d3 BODY_01d0: 01d3 INIT_01d0: 01d3 480a |H | Short_Literal 0xa 01d4 00db | | Load_Top At_Offset_3 01d5 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01d6 01d7 | | Execute Vector,Field_Read 01d7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01dd | | .CONST 0x01dd ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0002 | | .CONST 0x0002 ; Number of locals 01db INIT_01d8: 01db 029f 05b3 | | Declare_Subprogram INIT_05b0,For_Call 01dd BODY_01d8: 01dd 00db | | Load_Top At_Offset_3 01de 0f0a | | Execute_Immediate Equal,0xa 01df 6802 |h | Jump_Zero 0x1e2 01e0 8402 | | Call 0x2,0x2 01e1 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01e2 e5fd | | Load 0x2,-0x3 01e3 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 01e4 e5fe | | Load 0x2,-0x2 01e5 8230 | 0 | Call 0x1,0x30 01e6 e5ff | | Load 0x2,-0x1 01e7 e5fd | | Load 0x2,-0x3 01e8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01e9 01d6 | | Execute Vector,Field_Write 01ea 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01eb 0000 0000 | | .BLANK 0000[0x5] 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 e5fd | | Load 0x2,-0x3 01f4 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 01f5 e5fe | | Load 0x2,-0x2 01f6 8011 | | Call 0x0,0x11 01f7 800c | | Call 0x0,0xc 01f8 00db | | Load_Top At_Offset_3 01f9 e5fd | | Load 0x2,-0x3 01fa 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01fb 01d6 | | Execute Vector,Field_Write 01fc 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01fd 0000 0000 | | .XXX[0x3] 01ff 0000 | | 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 0203 | | .CONST 0x0203 ; Address of begin 0201 0004 | | .CONST 0x0004 ; Address of exception handler 0202 0001 | | .CONST 0x0001 ; Number of locals 0203 BODY_0200: 0203 INIT_0200: 0203 00db | | Load_Top At_Offset_3 0204 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0205 00db | | Load_Top At_Offset_3 0206 800c | | Call 0x0,0xc 0207 e5fe | | Load 0x2,-0x2 0208 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0209 4502 |E | Exit_Suprogram New_Top_Offset 0x2 020a 0000 0000 | | .BLANK 0000[0x6] 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 00db | | Load_Top At_Offset_3 0214 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0215 00db | | Load_Top At_Offset_3 0216 800c | | Call 0x0,0xc 0217 e5fe | | Load 0x2,-0x2 0218 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0219 4502 |E | Exit_Suprogram New_Top_Offset 0x2 021a 0000 0000 | | .BLANK 0000[0x6] 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 00da | | Load_Top At_Offset_2 0224 e5fe | | Load 0x2,-0x2 0225 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0226 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0227 0000 | | .XXX[0x1] 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 022b | + | .CONST 0x022b ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0001 | | .CONST 0x0001 ; Number of locals 022b BODY_0228: 022b INIT_0228: 022b 00da | | Load_Top At_Offset_2 022c e5fe | | Load 0x2,-0x2 022d 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 022e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 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 e5fe | | Load 0x2,-0x2 0235 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0236 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0237 0000 | | .XXX[0x1] 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 024a | J | .CONST 0x024a ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0006 | | .CONST 0x0006 ; Number of locals 023b INIT_0238: 023b e231 | 1 | Load 0x1,0x31 023c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 023d 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 023e e231 | 1 | Load 0x1,0x31 023f 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0240 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0241 e231 | 1 | Load 0x1,0x31 0242 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0243 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0244 e22a | * | Load 0x1,0x2a 0245 0322 | " | Declare_Variable Record 0246 00d8 | | Load_Top At_Offset_0 0247 1c00 | | Execute_Immediate Run_Utility,0x0 0248 029f 05eb | | Declare_Subprogram INIT_05e8,For_Call 024a BODY_0238: 024a 480e |H | Short_Literal 0xe 024b 4800 |H | Short_Literal 0x0 024c 4800 |H | Short_Literal 0x0 024d e231 | 1 | Load 0x1,0x31 024e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 024f 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0250 e5ff | | Load 0x2,-0x1 0251 e231 | 1 | Load 0x1,0x31 0252 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0253 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0254 a402 | | Store_Unchecked 0x2,0x2 0255 4807 |H | Short_Literal 0x7 0256 4800 |H | Short_Literal 0x0 0257 4800 |H | Short_Literal 0x0 0258 e231 | 1 | Load 0x1,0x31 0259 1b12 | | Execute Package,Field_Read,Field_Number 0x12 025a 181d | | Execute Package,Field_Execute,Field_Number 0x1d 025b e5ff | | Load 0x2,-0x1 025c e231 | 1 | Load 0x1,0x31 025d 1b12 | | Execute Package,Field_Read,Field_Number 0x12 025e 1820 | | Execute Package,Field_Execute,Field_Number 0x20 025f a403 | | Store_Unchecked 0x2,0x3 0260 4806 |H | Short_Literal 0x6 0261 4800 |H | Short_Literal 0x0 0262 4800 |H | Short_Literal 0x0 0263 e231 | 1 | Load 0x1,0x31 0264 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0265 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0266 e5ff | | Load 0x2,-0x1 0267 e231 | 1 | Load 0x1,0x31 0268 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0269 1820 | | Execute Package,Field_Execute,Field_Number 0x20 026a 0033 | 3 | Store_Top Heap_Access,At_Offset_3 026b 00cf | | Action Mark_Auxiliary 026c 480e |H | Short_Literal 0xe 026d 4801 |H | Short_Literal 0x1 026e 0007 | | Action Break_Optional 026f 00d8 | | Load_Top At_Offset_0 0270 e402 | | Load 0x2,0x2 0271 e231 | 1 | Load 0x1,0x31 0272 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0273 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0274 6812 |h | Jump_Zero 0x287 0275 e405 | | Load 0x2,0x5 0276 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0277 00d9 | | Load_Top At_Offset_1 0278 00d8 | | Load_Top At_Offset_0 0279 00da | | Load_Top At_Offset_2 027a 01d7 | | Execute Vector,Field_Read 027b e5fe | | Load 0x2,-0x2 027c 00ea | | Load_Encached Null_String_Cache 027d e409 | | Load 0x2,0x9 027e e402 | | Load 0x2,0x2 027f e231 | 1 | Load 0x1,0x31 0280 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0281 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0282 8012 | | Call 0x0,0x12 0283 00d9 | | Load_Top At_Offset_1 0284 00db | | Load_Top At_Offset_3 0285 01d6 | | Execute Vector,Field_Write 0286 00d2 | | Pop_Control Pop_Count_2 0287 00c8 | | Action Pop_Auxiliary_Range 0288 3fe6 |? | Loop_Increasing 0x26f 0289 00c9 | | Action Pop_Auxiliary_Loop 028a 4806 |H | Short_Literal 0x6 028b 4801 |H | Short_Literal 0x1 028c 0007 | | Action Break_Optional 028d 00d8 | | Load_Top At_Offset_0 028e e404 | | Load 0x2,0x4 028f e231 | 1 | Load 0x1,0x31 0290 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0291 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0292 680d |h | Jump_Zero 0x2a0 0293 e5fe | | Load 0x2,-0x2 0294 00ea | | Load_Encached Null_String_Cache 0295 00da | | Load_Top At_Offset_2 0296 e404 | | Load 0x2,0x4 0297 e231 | 1 | Load 0x1,0x31 0298 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0299 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 029a 800c | | Call 0x0,0xc 029b 00d9 | | Load_Top At_Offset_1 029c 8232 | 2 | Call 0x1,0x32 029d e405 | | Load 0x2,0x5 029e 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 029f 01d6 | | Execute Vector,Field_Write 02a0 00c8 | | Action Pop_Auxiliary_Range 02a1 3feb |? | Loop_Increasing 0x28d 02a2 00c9 | | Action Pop_Auxiliary_Loop 02a3 4807 |H | Short_Literal 0x7 02a4 4803 |H | Short_Literal 0x3 02a5 0007 | | Action Break_Optional 02a6 00d8 | | Load_Top At_Offset_0 02a7 e403 | | Load 0x2,0x3 02a8 e231 | 1 | Load 0x1,0x31 02a9 1b12 | | Execute Package,Field_Read,Field_Number 0x12 02aa 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 02ab 6801 |h | Jump_Zero 0x2ad 02ac 8406 | | Call 0x2,0x6 02ad 00c8 | | Action Pop_Auxiliary_Range 02ae 3ff7 |? | Loop_Increasing 0x2a6 02af 00ce | | Action Pop_Auxiliary 02b0 e5fe | | Load 0x2,-0x2 02b1 00da | | Load_Top At_Offset_2 02b2 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 02b3 00d9 | | Load_Top At_Offset_1 02b4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02b5 0000 0000 | | .XXX[0x3] 02b7 0000 | | 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; SUBPROGRAM 02b8 ; -------------------------------------------------------------------------------------- 02b8 02bc | | .CONST 0x02bc ; Address of begin 02b9 0004 | | .CONST 0x0004 ; Address of exception handler 02ba 0002 | | .CONST 0x0002 ; Number of locals 02bb INIT_02b8: 02bb 00e1 | | Load_Encached Boolean_Cache 02bc BODY_02b8: 02bc e5fe | | Load 0x2,-0x2 02bd 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 02be e5ff | | Load 0x2,-0x1 02bf 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 02c0 8013 | | Call 0x0,0x13 02c1 681e |h | Jump_Zero 0x2e0 02c2 e5fe | | Load 0x2,-0x2 02c3 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 02c4 e5ff | | Load 0x2,-0x1 02c5 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 02c6 8014 | | Call 0x0,0x14 02c7 6816 |h | Jump_Zero 0x2de 02c8 e5fe | | Load 0x2,-0x2 02c9 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 02ca e5ff | | Load 0x2,-0x1 02cb 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 02cc 8013 | | Call 0x0,0x13 02cd 680e |h | Jump_Zero 0x2dc 02ce 00db | | Load_Top At_Offset_3 02cf 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 02d0 e5fe | | Load 0x2,-0x2 02d1 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 02d2 027f | | Execute Discrete,Equal 02d3 6806 |h | Jump_Zero 0x2da 02d4 00db | | Load_Top At_Offset_3 02d5 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 02d6 e5fe | | Load 0x2,-0x2 02d7 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 02d8 027f | | Execute Discrete,Equal 02d9 7807 |x | Jump 0x2e1 02da 4800 |H | Short_Literal 0x0 02db 7805 |x | Jump 0x2e1 02dc 4800 |H | Short_Literal 0x0 02dd 7803 |x | Jump 0x2e1 02de 4800 |H | Short_Literal 0x0 02df 7801 |x | Jump 0x2e1 02e0 4800 |H | Short_Literal 0x0 02e1 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 02e2 00d8 | | Load_Top At_Offset_0 02e3 680e |h | Jump_Zero 0x2f2 02e4 00db | | Load_Top At_Offset_3 02e5 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02e6 e5fe | | Load 0x2,-0x2 02e7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02e8 01df | | Execute Vector,Equal 02e9 6806 |h | Jump_Zero 0x2f0 02ea 00db | | Load_Top At_Offset_3 02eb 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 02ec e5fe | | Load 0x2,-0x2 02ed 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 02ee 01df | | Execute Vector,Equal 02ef 7801 |x | Jump 0x2f1 02f0 4800 |H | Short_Literal 0x0 02f1 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 02f2 00d8 | | Load_Top At_Offset_0 02f3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02f4 0000 0000 | | .BLANK 0000[0x4] 02f8 ; -------------------------------------------------------------------------------------- 02f8 ; SUBPROGRAM 02f8 ; -------------------------------------------------------------------------------------- 02f8 02fb | | .CONST 0x02fb ; Address of begin 02f9 0004 | | .CONST 0x0004 ; Address of exception handler 02fa 0001 | | .CONST 0x0001 ; Number of locals 02fb BODY_02f8: 02fb INIT_02f8: 02fb 00cf | | Action Mark_Auxiliary 02fc 480e |H | Short_Literal 0xe 02fd 4800 |H | Short_Literal 0x0 02fe 0007 | | Action Break_Optional 02ff e5fd | | Load 0x2,-0x3 0300 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0301 00d9 | | Load_Top At_Offset_1 0302 00d8 | | Load_Top At_Offset_0 0303 00da | | Load_Top At_Offset_2 0304 01d7 | | Execute Vector,Field_Read 0305 e5fe | | Load 0x2,-0x2 0306 e404 | | Load 0x2,0x4 0307 e5ff | | Load 0x2,-0x1 0308 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0309 01d7 | | Execute Vector,Field_Read 030a 8015 | | Call 0x0,0x15 030b 8012 | | Call 0x0,0x12 030c 00d9 | | Load_Top At_Offset_1 030d 00db | | Load_Top At_Offset_3 030e 01d6 | | Execute Vector,Field_Write 030f 00d2 | | Pop_Control Pop_Count_2 0310 00c8 | | Action Pop_Auxiliary_Range 0311 3fed |? | Loop_Increasing 0x2ff 0312 00c9 | | Action Pop_Auxiliary_Loop 0313 480e |H | Short_Literal 0xe 0314 4800 |H | Short_Literal 0x0 0315 0007 | | Action Break_Optional 0316 e5fe | | Load 0x2,-0x2 0317 00d9 | | Load_Top At_Offset_1 0318 e5ff | | Load 0x2,-0x1 0319 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 031a 01d7 | | Execute Vector,Field_Read 031b 8011 | | Call 0x0,0x11 031c 800c | | Call 0x0,0xc 031d 00d9 | | Load_Top At_Offset_1 031e e5fd | | Load 0x2,-0x3 031f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0320 01d6 | | Execute Vector,Field_Write 0321 00c8 | | Action Pop_Auxiliary_Range 0322 3ff3 |? | Loop_Increasing 0x316 0323 00ce | | Action Pop_Auxiliary 0324 00db | | Load_Top At_Offset_3 0325 00db | | Load_Top At_Offset_3 0326 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0327 8011 | | Call 0x0,0x11 0328 800c | | Call 0x0,0xc 0329 e5fd | | Load 0x2,-0x3 032a 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 032b 00da | | Load_Top At_Offset_2 032c 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 032d e5fd | | Load 0x2,-0x3 032e 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 032f 00db | | Load_Top At_Offset_3 0330 00db | | Load_Top At_Offset_3 0331 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0332 8011 | | Call 0x0,0x11 0333 800c | | Call 0x0,0xc 0334 e5fd | | Load 0x2,-0x3 0335 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0336 00da | | Load_Top At_Offset_2 0337 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0338 e5fd | | Load 0x2,-0x3 0339 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 033a 00da | | Load_Top At_Offset_2 033b 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 033c e5fd | | Load 0x2,-0x3 033d 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 033e 00db | | Load_Top At_Offset_3 033f e5fd | | Load 0x2,-0x3 0340 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0341 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0342 0000 0000 | | .BLANK 0000[0x6] 0348 ; -------------------------------------------------------------------------------------- 0348 ; SUBPROGRAM 0348 ; -------------------------------------------------------------------------------------- 0348 034f | O | .CONST 0x034f ; Address of begin 0349 0004 | | .CONST 0x0004 ; Address of exception handler 034a 0002 | | .CONST 0x0002 ; Number of locals 034b INIT_0348: 034b e22c | , | Load 0x1,0x2c 034c 0322 | " | Declare_Variable Record 034d 00d8 | | Load_Top At_Offset_0 034e 1c00 | | Execute_Immediate Run_Utility,0x0 034f BODY_0348: 034f 00db | | Load_Top At_Offset_3 0350 00d9 | | Load_Top At_Offset_1 0351 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0352 4801 |H | Short_Literal 0x1 0353 00d9 | | Load_Top At_Offset_1 0354 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0355 00d8 | | Load_Top At_Offset_0 0356 00d9 | | Load_Top At_Offset_1 0357 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0358 8234 | 4 | Call 0x1,0x34 0359 00d1 | | Pop_Control Pop_Count_1 035a 00d8 | | Load_Top At_Offset_0 035b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 035c 0000 0000 | | .BLANK 0000[0x4] 0360 ; -------------------------------------------------------------------------------------- 0360 ; SUBPROGRAM 0360 ; -------------------------------------------------------------------------------------- 0360 0363 | c | .CONST 0x0363 ; Address of begin 0361 0004 | | .CONST 0x0004 ; Address of exception handler 0362 0001 | | .CONST 0x0001 ; Number of locals 0363 BODY_0360: 0363 INIT_0360: 0363 00da | | Load_Top At_Offset_2 0364 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0365 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0366 0000 0000 | | .XXX[0x2] 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 4801 |H | Short_Literal 0x1 036c 00db | | Load_Top At_Offset_3 036d 8226 | & | Call 0x1,0x26 036e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 036f 0000 | | .XXX[0x1] 0370 ; -------------------------------------------------------------------------------------- 0370 ; SUBPROGRAM 0370 ; -------------------------------------------------------------------------------------- 0370 037f | | .CONST 0x037f ; Address of begin 0371 0004 | | .CONST 0x0004 ; Address of exception handler 0372 0004 | | .CONST 0x0004 ; Number of locals 0373 INIT_0370: 0373 00da | | Load_Top At_Offset_2 0374 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0375 e22b | + | Load 0x1,0x2b 0376 011c | | Execute Any,Convert_Unchecked 0377 1c01 | | Execute_Immediate Run_Utility,0x1 0378 0092 07aa | | Action Push_String_Extended,0x7aa ; "=>" 037a 01cc | | Execute Vector,Catenate 037b 029f 061b | | Declare_Subprogram INIT_0618,For_Call 037d 029f 062b | +| Declare_Subprogram INIT_0628,For_Call 037f BODY_0370: 037f e5ff | | Load 0x2,-0x1 0380 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0381 e22e | . | Load 0x1,0x2e 0382 01d7 | | Execute Vector,Field_Read 0383 6802 |h | Jump_Zero 0x386 0384 8403 | | Call 0x2,0x3 0385 7801 |x | Jump 0x387 0386 8404 | | Call 0x2,0x4 0387 0831 | 1 | Execute_Immediate Raise,0x31 0388 ; -------------------------------------------------------------------------------------- 0388 ; SUBPROGRAM 0388 ; -------------------------------------------------------------------------------------- 0388 038b | | .CONST 0x038b ; Address of begin 0389 0004 | | .CONST 0x0004 ; Address of exception handler 038a 0001 | | .CONST 0x0001 ; Number of locals 038b BODY_0388: 038b INIT_0388: 038b 00da | | Load_Top At_Offset_2 038c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 038d 7023 |p# | Jump_Nonzero 0x3b1 038e 00da | | Load_Top At_Offset_2 038f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0390 e22e | . | Load 0x1,0x2e 0391 01d7 | | Execute Vector,Field_Read 0392 680b |h | Jump_Zero 0x39e 0393 00da | | Load_Top At_Offset_2 0394 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0395 00db | | Load_Top At_Offset_3 0396 8236 | 6 | Call 0x1,0x36 0397 7006 |p | Jump_Nonzero 0x39e 0398 00da | | Load_Top At_Offset_2 0399 00db | | Load_Top At_Offset_3 039a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 039b 8235 | 5 | Call 0x1,0x35 039c 00d1 | | Pop_Control Pop_Count_1 039d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 039e 00da | | Load_Top At_Offset_2 039f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 03a0 0f07 | | Execute_Immediate Equal,0x7 03a1 6804 |h | Jump_Zero 0x3a6 03a2 4801 |H | Short_Literal 0x1 03a3 00db | | Load_Top At_Offset_3 03a4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 03a5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03a6 e22b | + | Load 0x1,0x2b 03a7 00db | | Load_Top At_Offset_3 03a8 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 03a9 0268 | h | Execute Discrete,Successor 03aa 00db | | Load_Top At_Offset_3 03ab 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 03ac 00da | | Load_Top At_Offset_2 03ad 00db | | Load_Top At_Offset_3 03ae 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 03af 8234 | 4 | Call 0x1,0x34 03b0 00d1 | | Pop_Control Pop_Count_1 03b1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03b2 0000 0000 | | .BLANK 0000[0x6] 03b8 ; -------------------------------------------------------------------------------------- 03b8 ; SUBPROGRAM 03b8 ; -------------------------------------------------------------------------------------- 03b8 03bb | | .CONST 0x03bb ; Address of begin 03b9 0004 | | .CONST 0x0004 ; Address of exception handler 03ba 0001 | | .CONST 0x0001 ; Number of locals 03bb BODY_03b8: 03bb INIT_03b8: 03bb 4607 |F | Jump_Case 0x8 03bc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 03bd 7807 |x | Jump 0x3c5 ; case 0x1 03be 780a |x | Jump 0x3c9 ; case 0x2 03bf 780e |x | Jump 0x3ce ; case 0x3 03c0 7811 |x | Jump 0x3d2 ; case 0x4 03c1 7812 |x | Jump 0x3d4 ; case 0x5 03c2 7813 |x | Jump 0x3d6 ; case 0x6 03c3 7816 |x | Jump 0x3da ; case 0x7 03c4 4302 |C | .XXX[0x1] 03c5 00da | | Load_Top At_Offset_2 03c6 0091 0798 | | Action Push_String_Extended_Indexed,0x798 ; "NONE" 03c8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 03c9 00db | | Load_Top At_Offset_3 03ca 00db | | Load_Top At_Offset_3 03cb 00e0 | | Load_Encached Standard_Cache 03cc 181b | | Execute Package,Field_Execute,Field_Number 0x1b 03cd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 03ce 00da | | Load_Top At_Offset_2 03cf 00e0 | | Load_Encached Standard_Cache 03d0 181c | | Execute Package,Field_Execute,Field_Number 0x1c 03d1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 03d2 00db | | Load_Top At_Offset_3 03d3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 03d4 00db | | Load_Top At_Offset_3 03d5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 03d6 e22b | + | Load 0x1,0x2b 03d7 00dc | | Load_Top At_Offset_4 03d8 0267 | g | Execute Discrete,Predecessor 03d9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 03da e22b | + | Load 0x1,0x2b 03db 00dc | | Load_Top At_Offset_4 03dc 0268 | h | Execute Discrete,Successor 03dd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 03de 0000 0000 | | .XXX[0x2] 03e0 ; -------------------------------------------------------------------------------------- 03e0 ; SUBPROGRAM 03e0 ; -------------------------------------------------------------------------------------- 03e0 03f1 | | .CONST 0x03f1 ; Address of begin 03e1 0004 | | .CONST 0x0004 ; Address of exception handler 03e2 0003 | | .CONST 0x0003 ; Number of locals 03e3 INIT_03e0: 03e3 4801 |H | Short_Literal 0x1 03e4 00db | | Load_Top At_Offset_3 03e5 01db | | Execute Vector,Length 03e6 0901 | | Execute_Immediate Binary_Scale,0x1 03e7 00d8 | | Load_Top At_Offset_0 03e8 00e2 | | Load_Encached Integer_Cache 03e9 0260 | ` | Execute Discrete,In_Type 03ea 7001 |p | Jump_Nonzero 0x3ec 03eb 0801 | | Execute_Immediate Raise,0x1 03ec 00e9 | | Load_Encached String_Cache 03ed 035b | [ | Declare_Type Array,Constrained 03ee 0337 | 7 | Declare_Variable Array 03ef 00e3 | | Load_Encached Natural_Cache 03f0 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 03f1 BODY_03e0: 03f1 e5ff | | Load 0x2,-0x1 03f2 01db | | Execute Vector,Length 03f3 7002 |p | Jump_Nonzero 0x3f6 03f4 00ea | | Load_Encached Null_String_Cache 03f5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03f6 00cf | | Action Mark_Auxiliary 03f7 e5ff | | Load 0x2,-0x1 03f8 01dc | | Execute Vector,Last 03f9 e5ff | | Load 0x2,-0x1 03fa 01dd | | Execute Vector,First 03fb 0263 | c | Execute Discrete,Above_Bound 03fc 7041 |pA | Jump_Nonzero 0x43e 03fd 00d8 | | Load_Top At_Offset_0 03fe e5ff | | Load 0x2,-0x1 03ff 01d7 | | Execute Vector,Field_Read 0400 00d8 | | Load_Top At_Offset_0 0401 0d5b | [ | Execute_Immediate Less,0x5b 0402 700b |p | Jump_Nonzero 0x40e 0403 00d8 | | Load_Top At_Offset_0 0404 0c5e | ^ | Execute_Immediate Greater_Equal,0x5e 0405 7003 |p | Jump_Nonzero 0x409 0406 0f5c | \ | Execute_Immediate Equal,0x5c 0407 702b |p+ | Jump_Nonzero 0x433 0408 780b |x | Jump 0x414 0409 0b7b | { | Execute_Immediate Case_Compare,0x7b 040a 7008 |p | Jump_Nonzero 0x413 040b 0f7d | } | Execute_Immediate Equal,0x7d 040c 7007 |p | Jump_Nonzero 0x414 040d 7825 |x% | Jump 0x433 040e 4828 |H( | Short_Literal 0x28 040f 4829 |H) | Short_Literal 0x29 0410 0262 | b | Execute Discrete,In_Range 0411 7002 |p | Jump_Nonzero 0x414 0412 7820 |x | Jump 0x433 0413 00d1 | | Pop_Control Pop_Count_1 0414 00cf | | Action Mark_Auxiliary 0415 e5fe | | Load 0x2,-0x2 0416 0a01 | | Execute_Immediate Plus,0x1 0417 00d8 | | Load_Top At_Offset_0 0418 00e2 | | Load_Encached Integer_Cache 0419 0260 | ` | Execute Discrete,In_Type 041a 7001 |p | Jump_Nonzero 0x41c 041b 0801 | | Execute_Immediate Raise,0x1 041c 4801 |H | Short_Literal 0x1 041d 0263 | c | Execute Discrete,Above_Bound 041e 7009 |p | Jump_Nonzero 0x428 041f 485c |H\ | Short_Literal 0x5c 0420 e403 | | Load 0x2,0x3 0421 e402 | | Load 0x2,0x2 0422 01d6 | | Execute Vector,Field_Write 0423 e403 | | Load 0x2,0x3 0424 0a01 | | Execute_Immediate Plus,0x1 0425 c403 | | Store 0x2,0x3 0426 00c8 | | Action Pop_Auxiliary_Range 0427 3ff7 |? | Loop_Increasing 0x41f 0428 00ce | | Action Pop_Auxiliary 0429 00d8 | | Load_Top At_Offset_0 042a e5ff | | Load 0x2,-0x1 042b 01d7 | | Execute Vector,Field_Read 042c e403 | | Load 0x2,0x3 042d e402 | | Load 0x2,0x2 042e 01d6 | | Execute Vector,Field_Write 042f 00db | | Load_Top At_Offset_3 0430 0a01 | | Execute_Immediate Plus,0x1 0431 c403 | | Store 0x2,0x3 0432 7809 |x | Jump 0x43c 0433 00d8 | | Load_Top At_Offset_0 0434 e5ff | | Load 0x2,-0x1 0435 01d7 | | Execute Vector,Field_Read 0436 e403 | | Load 0x2,0x3 0437 e402 | | Load 0x2,0x2 0438 01d6 | | Execute Vector,Field_Write 0439 00db | | Load_Top At_Offset_3 043a 0a01 | | Execute_Immediate Plus,0x1 043b c403 | | Store 0x2,0x3 043c 00c8 | | Action Pop_Auxiliary_Range 043d 3fbf |? | Loop_Increasing 0x3fd 043e 00ce | | Action Pop_Auxiliary 043f 4829 |H) | Short_Literal 0x29 0440 4828 |H( | Short_Literal 0x28 0441 4801 |H | Short_Literal 0x1 0442 00db | | Load_Top At_Offset_3 0443 0aff | | Execute_Immediate Plus,-0x1 0444 e402 | | Load 0x2,0x2 0445 01cf | | Execute Vector,Slice_Read 0446 01ca | | Execute Vector,Prepend 0447 01cb | | Execute Vector,Append 0448 00e9 | | Load_Encached String_Cache 0449 01c6 | | Execute Vector,Convert_To_Formal 044a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 044b 0000 0000 | | .BLANK 0000[0x5] 0450 ; -------------------------------------------------------------------------------------- 0450 ; SUBPROGRAM 0450 ; -------------------------------------------------------------------------------------- 0450 0455 | U | .CONST 0x0455 ; Address of begin 0451 0004 | | .CONST 0x0004 ; Address of exception handler 0452 0002 | | .CONST 0x0002 ; Number of locals 0453 INIT_0450: 0453 e002 | | Load 0x0,0x2 0454 0007 | | Action Break_Optional 0455 BODY_0450: 0455 00d8 | | Load_Top At_Offset_0 0456 e5fe | | Load 0x2,-0x2 0457 e5ff | | Load 0x2,-0x1 0458 8016 | | Call 0x0,0x16 0459 0031 | 1 | Store_Top Heap_Access,At_Offset_1 045a 00d8 | | Load_Top At_Offset_0 045b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 045c 0000 0000 | | .BLANK 0000[0x4] 0460 ; -------------------------------------------------------------------------------------- 0460 ; SUBPROGRAM 0460 ; -------------------------------------------------------------------------------------- 0460 0470 | p | .CONST 0x0470 ; Address of begin 0461 0004 | | .CONST 0x0004 ; Address of exception handler 0462 0003 | | .CONST 0x0003 ; Number of locals 0463 INIT_0460: 0463 00da | | Load_Top At_Offset_2 0464 e231 | 1 | Load 0x1,0x31 0465 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0466 011c | | Execute Any,Convert_Unchecked 0467 1c01 | | Execute_Immediate Run_Utility,0x1 0468 4801 |H | Short_Literal 0x1 0469 00d9 | | Load_Top At_Offset_1 046a 0092 07ab | | Action Push_String_Extended,0x7ab ; "_params" 046c e017 | | Load 0x0,0x17 046d 181d | | Execute Package,Field_Execute,Field_Number 0x1d 046e 00e3 | | Load_Encached Natural_Cache 046f 03f1 | | Declare_Variable Discrete,With_Value 0470 BODY_0460: 0470 00d9 | | Load_Top At_Offset_1 0471 01dd | | Execute Vector,First 0472 00d9 | | Load_Top At_Offset_1 0473 0aff | | Execute_Immediate Plus,-0x1 0474 00db | | Load_Top At_Offset_3 0475 01cf | | Execute Vector,Slice_Read 0476 0092 07ac | | Action Push_String_Extended,0x7ac ; "_handle" 0478 01cc | | Execute Vector,Catenate 0479 e20f | | Load 0x1,0xf 047a 1c02 | | Execute_Immediate Run_Utility,0x2 047b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 047c 0000 0000 | | .BLANK 0000[0x4] 0480 ; -------------------------------------------------------------------------------------- 0480 ; SUBPROGRAM 0480 ; -------------------------------------------------------------------------------------- 0480 048f | | .CONST 0x048f ; Address of begin 0481 049c | | .CONST 0x049c ; Address of exception handler 0482 0003 | | .CONST 0x0003 ; Number of locals 0483 INIT_0480: 0483 00da | | Load_Top At_Offset_2 0484 e20f | | Load 0x1,0xf 0485 011c | | Execute Any,Convert_Unchecked 0486 1c01 | | Execute_Immediate Run_Utility,0x1 0487 4801 |H | Short_Literal 0x1 0488 00d9 | | Load_Top At_Offset_1 0489 0092 07ac | | Action Push_String_Extended,0x7ac ; "_handle" 048b e017 | | Load 0x0,0x17 048c 181d | | Execute Package,Field_Execute,Field_Number 0x1d 048d 00e3 | | Load_Encached Natural_Cache 048e 03f1 | | Declare_Variable Discrete,With_Value 048f BODY_0480: 048f 00d9 | | Load_Top At_Offset_1 0490 01dd | | Execute Vector,First 0491 00d9 | | Load_Top At_Offset_1 0492 0aff | | Execute_Immediate Plus,-0x1 0493 00db | | Load_Top At_Offset_3 0494 01cf | | Execute Vector,Slice_Read 0495 0092 07ab | | Action Push_String_Extended,0x7ab ; "_params" 0497 01cc | | Execute Vector,Catenate 0498 e231 | 1 | Load 0x1,0x31 0499 1b0d | | Execute Package,Field_Read,Field_Number 0xd 049a 1c02 | | Execute_Immediate Run_Utility,0x2 049b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 049c TRAP_0480: 049c 010e | | Execute Exception,Is_Constraint_Error 049d 6802 |h | Jump_Zero 0x4a0 049e 4800 |H | Short_Literal 0x0 049f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04a0 0100 | | Execute Exception,Raise 04a1 0000 0000 | | .BLANK 0000[0x7] 04a8 ; -------------------------------------------------------------------------------------- 04a8 ; SUBPROGRAM 04a8 ; -------------------------------------------------------------------------------------- 04a8 04ab | | .CONST 0x04ab ; Address of begin 04a9 0004 | | .CONST 0x0004 ; Address of exception handler 04aa 0001 | | .CONST 0x0001 ; Number of locals 04ab BODY_04a8: 04ab INIT_04a8: 04ab 00da | | Load_Top At_Offset_2 04ac 4801 |H | Short_Literal 0x1 04ad 4802 |H | Short_Literal 0x2 04ae 0262 | b | Execute Discrete,In_Range 04af 7001 |p | Jump_Nonzero 0x4b1 04b0 7803 |x | Jump 0x4b4 04b1 4801 |H | Short_Literal 0x1 04b2 e5fe | | Load 0x2,-0x2 04b3 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 04b4 4801 |H | Short_Literal 0x1 04b5 e5fe | | Load 0x2,-0x2 04b6 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 04b7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04b8 ; -------------------------------------------------------------------------------------- 04b8 ; SUBPROGRAM 04b8 ; -------------------------------------------------------------------------------------- 04b8 04bb | | .CONST 0x04bb ; Address of begin 04b9 0004 | | .CONST 0x0004 ; Address of exception handler 04ba 0001 | | .CONST 0x0001 ; Number of locals 04bb BODY_04b8: 04bb INIT_04b8: 04bb 00da | | Load_Top At_Offset_2 04bc 4801 |H | Short_Literal 0x1 04bd 4802 |H | Short_Literal 0x2 04be 0262 | b | Execute Discrete,In_Range 04bf 7001 |p | Jump_Nonzero 0x4c1 04c0 780e |x | Jump 0x4cf 04c1 00db | | Load_Top At_Offset_3 04c2 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 04c3 0f0e | | Execute_Immediate Equal,0xe 04c4 6804 |h | Jump_Zero 0x4c9 04c5 4800 |H | Short_Literal 0x0 04c6 e5fe | | Load 0x2,-0x2 04c7 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 04c8 7806 |x | Jump 0x4cf 04c9 e20f | | Load 0x1,0xf 04ca e5fe | | Load 0x2,-0x2 04cb 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 04cc 0268 | h | Execute Discrete,Successor 04cd e5fe | | Load 0x2,-0x2 04ce 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 04cf 4800 |H | Short_Literal 0x0 04d0 e5fe | | Load 0x2,-0x2 04d1 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 04d2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04d3 0000 0000 | | .BLANK 0000[0x5] 04d8 ; -------------------------------------------------------------------------------------- 04d8 ; SUBPROGRAM 04d8 ; -------------------------------------------------------------------------------------- 04d8 04db | | .CONST 0x04db ; Address of begin 04d9 0004 | | .CONST 0x0004 ; Address of exception handler 04da 0001 | | .CONST 0x0001 ; Number of locals 04db BODY_04d8: 04db INIT_04d8: 04db 00db | | Load_Top At_Offset_3 04dc 4801 |H | Short_Literal 0x1 04dd 4802 |H | Short_Literal 0x2 04de 0262 | b | Execute Discrete,In_Range 04df 7003 |p | Jump_Nonzero 0x4e3 04e0 7800 |x | Jump 0x4e1 04e1 4801 |H | Short_Literal 0x1 04e2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04e3 00da | | Load_Top At_Offset_2 04e4 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 04e5 0f00 | | Execute_Immediate Equal,0x0 04e6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04e7 0000 | | .XXX[0x1] 04e8 ; -------------------------------------------------------------------------------------- 04e8 ; SUBPROGRAM 04e8 ; -------------------------------------------------------------------------------------- 04e8 04eb | | .CONST 0x04eb ; Address of begin 04e9 0004 | | .CONST 0x0004 ; Address of exception handler 04ea 0001 | | .CONST 0x0001 ; Number of locals 04eb BODY_04e8: 04eb INIT_04e8: 04eb 00db | | Load_Top At_Offset_3 04ec 4607 |F | Jump_Case 0x8 04ed 780e |x | Jump 0x4fc ; case 0x0 04ee 780d |x | Jump 0x4fc ; case 0x1 04ef 780c |x | Jump 0x4fc ; case 0x2 04f0 780d |x | Jump 0x4fe ; case 0x3 04f1 781a |x | Jump 0x50c ; case 0x4 04f2 7812 |x | Jump 0x505 ; case 0x5 04f3 781d |x | Jump 0x511 ; case 0x6 04f4 7800 |x | Jump 0x4f5 ; case 0x7 04f5 00da | | Load_Top At_Offset_2 04f6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 04f7 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 04f8 00e1 | | Load_Encached Boolean_Cache 04f9 011c | | Execute Any,Convert_Unchecked 04fa 1c01 | | Execute_Immediate Run_Utility,0x1 04fb 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 04fc 00ea | | Load_Encached Null_String_Cache 04fd 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 04fe e5fd | | Load 0x2,-0x3 04ff 00db | | Load_Top At_Offset_3 0500 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0501 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0502 8011 | | Call 0x0,0x11 0503 822f | / | Call 0x1,0x2f 0504 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0505 e5fd | | Load 0x2,-0x3 0506 00db | | Load_Top At_Offset_3 0507 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0508 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0509 8011 | | Call 0x0,0x11 050a 822f | / | Call 0x1,0x2f 050b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 050c 00da | | Load_Top At_Offset_2 050d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 050e 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 050f 8018 | | Call 0x0,0x18 0510 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0511 00da | | Load_Top At_Offset_2 0512 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0513 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0514 e210 | | Load 0x1,0x10 0515 011c | | Execute Any,Convert_Unchecked 0516 1c01 | | Execute_Immediate Run_Utility,0x1 0517 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0518 ; -------------------------------------------------------------------------------------- 0518 ; SUBPROGRAM 0518 ; -------------------------------------------------------------------------------------- 0518 051f | | .CONST 0x051f ; Address of begin 0519 0004 | | .CONST 0x0004 ; Address of exception handler 051a 0003 | | .CONST 0x0003 ; Number of locals 051b INIT_0518: 051b 029f 0643 | C| Declare_Subprogram INIT_0640,For_Call 051d 029f 0663 | c| Declare_Subprogram INIT_0660,For_Call 051f BODY_0518: 051f e5fe | | Load 0x2,-0x2 0520 e5ff | | Load 0x2,-0x1 0521 8236 | 6 | Call 0x1,0x36 0522 6802 |h | Jump_Zero 0x525 0523 00ea | | Load_Encached Null_String_Cache 0524 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0525 e5fe | | Load 0x2,-0x2 0526 4607 |F | Jump_Case 0x8 0527 7807 |x | Jump 0x52f ; case 0x0 0528 7808 |x | Jump 0x531 ; case 0x1 0529 7809 |x | Jump 0x533 ; case 0x2 052a 7804 |x | Jump 0x52f ; case 0x3 052b 7803 |x | Jump 0x52f ; case 0x4 052c 7802 |x | Jump 0x52f ; case 0x5 052d 7801 |x | Jump 0x52f ; case 0x6 052e 7800 |x | Jump 0x52f ; case 0x7 052f 00ea | | Load_Encached Null_String_Cache 0530 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0531 8402 | | Call 0x2,0x2 0532 7801 |x | Jump 0x534 0533 8403 | | Call 0x2,0x3 0534 0831 | 1 | Execute_Immediate Raise,0x31 0535 0000 0000 | | .XXX[0x3] 0537 0000 | | 0538 ; -------------------------------------------------------------------------------------- 0538 ; SUBPROGRAM 0538 ; -------------------------------------------------------------------------------------- 0538 053b | ; | .CONST 0x053b ; Address of begin 0539 0004 | | .CONST 0x0004 ; Address of exception handler 053a 0001 | | .CONST 0x0001 ; Number of locals 053b BODY_0538: 053b INIT_0538: 053b 4607 |F | Jump_Case 0x8 053c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 053d 7807 |x | Jump 0x545 ; case 0x1 053e 780a |x | Jump 0x549 ; case 0x2 053f 780e |x | Jump 0x54e ; case 0x3 0540 7811 |x | Jump 0x552 ; case 0x4 0541 7812 |x | Jump 0x554 ; case 0x5 0542 7813 |x | Jump 0x556 ; case 0x6 0543 7816 |x | Jump 0x55a ; case 0x7 0544 4302 |C | .XXX[0x1] 0545 00da | | Load_Top At_Offset_2 0546 0091 07a0 | | Action Push_String_Extended_Indexed,0x7a0 ; "PSIMPLE_TEST_CASE" 0548 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0549 00db | | Load_Top At_Offset_3 054a 00db | | Load_Top At_Offset_3 054b 00e0 | | Load_Encached Standard_Cache 054c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 054d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 054e 00da | | Load_Top At_Offset_2 054f 00e0 | | Load_Encached Standard_Cache 0550 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0551 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0552 00db | | Load_Top At_Offset_3 0553 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0554 00db | | Load_Top At_Offset_3 0555 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0556 e402 | | Load 0x2,0x2 0557 00dc | | Load_Top At_Offset_4 0558 0267 | g | Execute Discrete,Predecessor 0559 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 055a e402 | | Load 0x2,0x2 055b 00dc | | Load_Top At_Offset_4 055c 0268 | h | Execute Discrete,Successor 055d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 055e 0000 0000 | | .XXX[0x2] 0560 ; -------------------------------------------------------------------------------------- 0560 ; SUBPROGRAM 0560 ; -------------------------------------------------------------------------------------- 0560 0563 | c | .CONST 0x0563 ; Address of begin 0561 0004 | | .CONST 0x0004 ; Address of exception handler 0562 0001 | | .CONST 0x0001 ; Number of locals 0563 BODY_0560: 0563 INIT_0560: 0563 00da | | Load_Top At_Offset_2 0564 7006 |p | Jump_Nonzero 0x56b 0565 480a |H | Short_Literal 0xa 0566 e5fe | | Load 0x2,-0x2 0567 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0568 01d7 | | Execute Vector,Field_Read 0569 8015 | | Call 0x0,0x15 056a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 056b 0092 07ad | | Action Push_String_Extended,0x7ad ; "<output_compare>" 056d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 056e 0000 0000 | | .XXX[0x2] 0570 ; -------------------------------------------------------------------------------------- 0570 ; SUBPROGRAM 0570 ; -------------------------------------------------------------------------------------- 0570 0573 | s | .CONST 0x0573 ; Address of begin 0571 0004 | | .CONST 0x0004 ; Address of exception handler 0572 0001 | | .CONST 0x0001 ; Number of locals 0573 BODY_0570: 0573 INIT_0570: 0573 e5fc | | Load 0x2,-0x4 0574 6803 |h | Jump_Zero 0x578 0575 00da | | Load_Top At_Offset_2 0576 8019 | | Call 0x0,0x19 0577 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0578 00da | | Load_Top At_Offset_2 0579 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 057a 0000 0000 | | .BLANK 0000[0x6] 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 067b | {| Declare_Subprogram INIT_0678,For_Call 0585 BODY_0580: 0585 e5fc | | Load 0x2,-0x4 0586 6802 |h | Jump_Zero 0x589 0587 8602 | | Call 0x3,0x2 0588 7802 |x | Jump 0x58b 0589 00db | | Load_Top At_Offset_3 058a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 058b 0831 | 1 | Execute_Immediate Raise,0x31 058c 0000 0000 | | .BLANK 0000[0x4] 0590 ; -------------------------------------------------------------------------------------- 0590 ; SUBPROGRAM 0590 ; -------------------------------------------------------------------------------------- 0590 059c | | .CONST 0x059c ; Address of begin 0591 0004 | | .CONST 0x0004 ; Address of exception handler 0592 0004 | | .CONST 0x0004 ; Number of locals 0593 INIT_0590: 0593 e5ff | | Load 0x2,-0x1 0594 e5fe | | Load 0x2,-0x2 0595 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0596 01d7 | | Execute Vector,Field_Read 0597 0007 | | Action Break_Optional 0598 00d8 | | Load_Top At_Offset_0 0599 8015 | | Call 0x0,0x15 059a 029f 0693 | | Declare_Subprogram INIT_0690,For_Call 059c BODY_0590: 059c 00d9 | | Load_Top At_Offset_1 059d 01db | | Execute Vector,Length 059e 7003 |p | Jump_Nonzero 0x5a2 059f 8010 | | Call 0x0,0x10 05a0 00cb | | Action Pop_Block_With_Result 05a1 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 05a2 e5fd | | Load 0x2,-0x3 05a3 6802 |h | Jump_Zero 0x5a6 05a4 8604 | | Call 0x3,0x4 05a5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05a6 00da | | Load_Top At_Offset_2 05a7 8405 | | Call 0x2,0x5 05a8 00cb | | Action Pop_Block_With_Result 05a9 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 05aa 0000 0000 | | .BLANK 0000[0x6] 05b0 ; -------------------------------------------------------------------------------------- 05b0 ; SUBPROGRAM 05b0 ; -------------------------------------------------------------------------------------- 05b0 05c2 | | .CONST 0x05c2 ; Address of begin 05b1 0004 | | .CONST 0x0004 ; Address of exception handler 05b2 0004 | | .CONST 0x0004 ; Number of locals 05b3 INIT_05b0: 05b3 e01a | | Load 0x0,0x1a 05b4 1811 | | Execute Package,Field_Execute,Field_Number 0x11 05b5 e01b | | Load 0x0,0x1b 05b6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 05b7 4802 |H | Short_Literal 0x2 05b8 801c | | Call 0x0,0x1c 05b9 e5fe | | Load 0x2,-0x2 05ba 8015 | | Call 0x0,0x15 05bb 4801 |H | Short_Literal 0x1 05bc 00d9 | | Load_Top At_Offset_1 05bd 00db | | Load_Top At_Offset_3 05be e017 | | Load 0x0,0x17 05bf 181d | | Execute Package,Field_Execute,Field_Number 0x1d 05c0 00e3 | | Load_Encached Natural_Cache 05c1 03f1 | | Declare_Variable Discrete,With_Value 05c2 BODY_05b0: 05c2 00d8 | | Load_Top At_Offset_0 05c3 7009 |p | Jump_Nonzero 0x5cd 05c4 e5fd | | Load 0x2,-0x3 05c5 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 05c6 e5fe | | Load 0x2,-0x2 05c7 8230 | 0 | Call 0x1,0x30 05c8 e5ff | | Load 0x2,-0x1 05c9 e5fd | | Load 0x2,-0x3 05ca 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 05cb 01d6 | | Execute Vector,Field_Write 05cc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05cd e5fd | | Load 0x2,-0x3 05ce 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 05cf 00da | | Load_Top At_Offset_2 05d0 01dd | | Execute Vector,First 05d1 e602 | | Load 0x3,0x2 05d2 01db | | Execute Vector,Length 05d3 0273 | s | Execute Discrete,Plus 05d4 0a01 | | Execute_Immediate Plus,0x1 05d5 00d8 | | Load_Top At_Offset_0 05d6 00e2 | | Load_Encached Integer_Cache 05d7 0260 | ` | Execute Discrete,In_Type 05d8 7001 |p | Jump_Nonzero 0x5da 05d9 0801 | | Execute_Immediate Raise,0x1 05da 00db | | Load_Top At_Offset_3 05db 01dc | | Execute Vector,Last 05dc e603 | | Load 0x3,0x3 05dd 01cf | | Execute Vector,Slice_Read 05de 800c | | Call 0x0,0xc 05df e5ff | | Load 0x2,-0x1 05e0 e5fd | | Load 0x2,-0x3 05e1 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 05e2 01d6 | | Execute Vector,Field_Write 05e3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05e4 0000 0000 | | .BLANK 0000[0x4] 05e8 ; -------------------------------------------------------------------------------------- 05e8 ; SUBPROGRAM 05e8 ; -------------------------------------------------------------------------------------- 05e8 05f5 | | .CONST 0x05f5 ; Address of begin 05e9 0004 | | .CONST 0x0004 ; Address of exception handler 05ea 0004 | | .CONST 0x0004 ; Number of locals 05eb INIT_05e8: 05eb 00ea | | Load_Encached Null_String_Cache 05ec e409 | | Load 0x2,0x9 05ed e403 | | Load 0x2,0x3 05ee e231 | 1 | Load 0x1,0x31 05ef 1b12 | | Execute Package,Field_Read,Field_Number 0x12 05f0 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 05f1 029f 06b3 | | Declare_Subprogram INIT_06b0,For_Call 05f3 029f 06c3 | | Declare_Subprogram INIT_06c0,For_Call 05f5 BODY_05e8: 05f5 e409 | | Load 0x2,0x9 05f6 0afd | | Execute_Immediate Plus,-0x3 05f7 4604 |F | Jump_Case 0x5 05f8 7806 |x | Jump 0x5ff ; case 0x0 05f9 780b |x | Jump 0x605 ; case 0x1 05fa 7810 |x | Jump 0x60b ; case 0x2 05fb 7815 |x | Jump 0x611 ; case 0x3 05fc 7800 |x | Jump 0x5fd ; case 0x4 05fd 8604 | | Call 0x3,0x4 05fe 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05ff e5fe | | Load 0x2,-0x2 0600 00db | | Load_Top At_Offset_3 0601 800c | | Call 0x0,0xc 0602 e405 | | Load 0x2,0x5 0603 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0604 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0605 e5fe | | Load 0x2,-0x2 0606 00db | | Load_Top At_Offset_3 0607 801d | | Call 0x0,0x1d 0608 e405 | | Load 0x2,0x5 0609 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 060a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 060b e5fe | | Load 0x2,-0x2 060c 00db | | Load_Top At_Offset_3 060d 800c | | Call 0x0,0xc 060e e405 | | Load 0x2,0x5 060f 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0610 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0611 8603 | | Call 0x3,0x3 0612 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0613 0000 0000 | | .BLANK 0000[0x5] 0618 ; -------------------------------------------------------------------------------------- 0618 ; SUBPROGRAM 0618 ; -------------------------------------------------------------------------------------- 0618 0620 | | .CONST 0x0620 ; Address of begin 0619 0004 | | .CONST 0x0004 ; Address of exception handler 061a 0002 | | .CONST 0x0002 ; Number of locals 061b INIT_0618: 061b e5fe | | Load 0x2,-0x2 061c e5ff | | Load 0x2,-0x1 061d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 061e e5ff | | Load 0x2,-0x1 061f 8238 | 8 | Call 0x1,0x38 0620 BODY_0618: 0620 00d8 | | Load_Top At_Offset_0 0621 00cb | | Action Pop_Block_With_Result 0622 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0623 0000 0000 | | .BLANK 0000[0x5] 0628 ; -------------------------------------------------------------------------------------- 0628 ; SUBPROGRAM 0628 ; -------------------------------------------------------------------------------------- 0628 0630 | 0 | .CONST 0x0630 ; Address of begin 0629 0004 | | .CONST 0x0004 ; Address of exception handler 062a 0002 | | .CONST 0x0002 ; Number of locals 062b INIT_0628: 062b e5fe | | Load 0x2,-0x2 062c e5ff | | Load 0x2,-0x1 062d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 062e e5ff | | Load 0x2,-0x1 062f 8237 | 7 | Call 0x1,0x37 0630 BODY_0628: 0630 00d8 | | Load_Top At_Offset_0 0631 01db | | Execute Vector,Length 0632 6805 |h | Jump_Zero 0x638 0633 e402 | | Load 0x2,0x2 0634 00d9 | | Load_Top At_Offset_1 0635 01cc | | Execute Vector,Catenate 0636 00cb | | Action Pop_Block_With_Result 0637 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0638 00ea | | Load_Encached Null_String_Cache 0639 00cb | | Action Pop_Block_With_Result 063a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 063b 0000 0000 | | .BLANK 0000[0x5] 0640 ; -------------------------------------------------------------------------------------- 0640 ; SUBPROGRAM 0640 ; -------------------------------------------------------------------------------------- 0640 064a | J | .CONST 0x064a ; Address of begin 0641 0004 | | .CONST 0x0004 ; Address of exception handler 0642 0002 | | .CONST 0x0002 ; Number of locals 0643 INIT_0640: 0643 e5ff | | Load 0x2,-0x1 0644 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0645 e5ff | | Load 0x2,-0x1 0646 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0647 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0648 01d7 | | Execute Vector,Field_Read 0649 8011 | | Call 0x0,0x11 064a BODY_0640: 064a 00d8 | | Load_Top At_Offset_0 064b 01db | | Execute Vector,Length 064c 680e |h | Jump_Zero 0x65b 064d e5ff | | Load 0x2,-0x1 064e 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 064f e20f | | Load 0x1,0xf 0650 011c | | Execute Any,Convert_Unchecked 0651 1c01 | | Execute_Immediate Run_Utility,0x1 0652 0092 07aa | | Action Push_String_Extended,0x7aa ; "=>" 0654 01cc | | Execute Vector,Catenate 0655 e5fd | | Load 0x2,-0x3 0656 00da | | Load_Top At_Offset_2 0657 822f | / | Call 0x1,0x2f 0658 01cc | | Execute Vector,Catenate 0659 00cb | | Action Pop_Block_With_Result 065a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 065b 00ea | | Load_Encached Null_String_Cache 065c 00cb | | Action Pop_Block_With_Result 065d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 065e 0000 0000 | | .XXX[0x2] 0660 ; -------------------------------------------------------------------------------------- 0660 ; SUBPROGRAM 0660 ; -------------------------------------------------------------------------------------- 0660 0668 | h | .CONST 0x0668 ; Address of begin 0661 0004 | | .CONST 0x0004 ; Address of exception handler 0662 0003 | | .CONST 0x0003 ; Number of locals 0663 INIT_0660: 0663 e5ff | | Load 0x2,-0x1 0664 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0665 8233 | 3 | Call 0x1,0x33 0666 029f 06d3 | | Declare_Subprogram INIT_06d0,For_Call 0668 BODY_0660: 0668 00d9 | | Load_Top At_Offset_1 0669 e231 | 1 | Load 0x1,0x31 066a 1b10 | | Execute Package,Field_Read,Field_Number 0x10 066b 0260 | ` | Execute Discrete,In_Type 066c 6802 |h | Jump_Zero 0x66f 066d 8603 | | Call 0x3,0x3 066e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 066f 00ea | | Load_Encached Null_String_Cache 0670 00cb | | Action Pop_Block_With_Result 0671 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0672 0000 0000 | | .BLANK 0000[0x6] 0678 ; -------------------------------------------------------------------------------------- 0678 ; SUBPROGRAM 0678 ; -------------------------------------------------------------------------------------- 0678 067e | ~ | .CONST 0x067e ; Address of begin 0679 0004 | | .CONST 0x0004 ; Address of exception handler 067a 0002 | | .CONST 0x0002 ; Number of locals 067b INIT_0678: 067b e7ff | | Load 0x3,-0x1 067c 8015 | | Call 0x0,0x15 067d 8019 | | Call 0x0,0x19 067e BODY_0678: 067e 00d8 | | Load_Top At_Offset_0 067f e7ff | | Load 0x3,-0x1 0680 8015 | | Call 0x0,0x15 0681 01de | | Execute Vector,Not_Equal 0682 6806 |h | Jump_Zero 0x689 0683 e5fe | | Load 0x2,-0x2 0684 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0685 00d9 | | Load_Top At_Offset_1 0686 800c | | Call 0x0,0xc 0687 00cb | | Action Pop_Block_With_Result 0688 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0689 e7ff | | Load 0x3,-0x1 068a 00cb | | Action Pop_Block_With_Result 068b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 068c 0000 0000 | | .BLANK 0000[0x4] 0690 ; -------------------------------------------------------------------------------------- 0690 ; SUBPROGRAM 0690 ; -------------------------------------------------------------------------------------- 0690 069d | | .CONST 0x069d ; Address of begin 0691 0004 | | .CONST 0x0004 ; Address of exception handler 0692 0002 | | .CONST 0x0002 ; Number of locals 0693 INIT_0690: 0693 e603 | | Load 0x3,0x3 0694 e406 | | Load 0x2,0x6 0695 4807 |H | Short_Literal 0x7 0696 4802 |H | Short_Literal 0x2 0697 0099 | | Action Reference_Dynamic 0698 e408 | | Load 0x2,0x8 0699 4809 |H | Short_Literal 0x9 069a 4802 |H | Short_Literal 0x2 069b 0099 | | Action Reference_Dynamic 069c 800d | | Call 0x0,0xd 069d BODY_0690: 069d 00d8 | | Load_Top At_Offset_0 069e e603 | | Load 0x3,0x3 069f 01de | | Execute Vector,Not_Equal 06a0 680a |h | Jump_Zero 0x6ab 06a1 e5fe | | Load 0x2,-0x2 06a2 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 06a3 00d9 | | Load_Top At_Offset_1 06a4 8404 | | Call 0x2,0x4 06a5 800c | | Call 0x0,0xc 06a6 e002 | | Load 0x0,0x2 06a7 0216 | | Execute Heap_Access,Convert 06a8 00cb | | Action Pop_Block_With_Result 06a9 00cb | | Action Pop_Block_With_Result 06aa 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 06ab e602 | | Load 0x3,0x2 06ac 8405 | | Call 0x2,0x5 06ad 00cb | | Action Pop_Block_With_Result 06ae 00cb | | Action Pop_Block_With_Result 06af 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 06b0 ; -------------------------------------------------------------------------------------- 06b0 ; SUBPROGRAM 06b0 ; -------------------------------------------------------------------------------------- 06b0 06b3 | | .CONST 0x06b3 ; Address of begin 06b1 06b9 | | .CONST 0x06b9 ; Address of exception handler 06b2 0001 | | .CONST 0x0001 ; Number of locals 06b3 BODY_06b0: 06b3 INIT_06b0: 06b3 e602 | | Load 0x3,0x2 06b4 e210 | | Load 0x1,0x10 06b5 1c02 | | Execute_Immediate Run_Utility,0x2 06b6 e405 | | Load 0x2,0x5 06b7 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 06b8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 06b9 TRAP_06b0: 06b9 0007 | | Action Break_Optional 06ba 4800 |H | Short_Literal 0x0 06bb e405 | | Load 0x2,0x5 06bc 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 06bd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 06be 0000 0000 | | .XXX[0x2] 06c0 ; -------------------------------------------------------------------------------------- 06c0 ; SUBPROGRAM 06c0 ; -------------------------------------------------------------------------------------- 06c0 06c3 | | .CONST 0x06c3 ; Address of begin 06c1 06c9 | | .CONST 0x06c9 ; Address of exception handler 06c2 0001 | | .CONST 0x0001 ; Number of locals 06c3 BODY_06c0: 06c3 INIT_06c0: 06c3 e602 | | Load 0x3,0x2 06c4 00e1 | | Load_Encached Boolean_Cache 06c5 1c02 | | Execute_Immediate Run_Utility,0x2 06c6 e405 | | Load 0x2,0x5 06c7 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 06c8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 06c9 TRAP_06c0: 06c9 0007 | | Action Break_Optional 06ca 4801 |H | Short_Literal 0x1 06cb e405 | | Load 0x2,0x5 06cc 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 06cd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 06ce 0000 0000 | | .XXX[0x2] 06d0 ; -------------------------------------------------------------------------------------- 06d0 ; SUBPROGRAM 06d0 ; -------------------------------------------------------------------------------------- 06d0 06da | | .CONST 0x06da ; Address of begin 06d1 0004 | | .CONST 0x0004 ; Address of exception handler 06d2 0002 | | .CONST 0x0002 ; Number of locals 06d3 INIT_06d0: 06d3 e5ff | | Load 0x2,-0x1 06d4 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 06d5 e5ff | | Load 0x2,-0x1 06d6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 06d7 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 06d8 01d7 | | Execute Vector,Field_Read 06d9 8011 | | Call 0x0,0x11 06da BODY_06d0: 06da 00d8 | | Load_Top At_Offset_0 06db 01db | | Execute Vector,Length 06dc 680f |h | Jump_Zero 0x6ec 06dd e602 | | Load 0x3,0x2 06de e231 | 1 | Load 0x1,0x31 06df 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06e0 011c | | Execute Any,Convert_Unchecked 06e1 1c01 | | Execute_Immediate Run_Utility,0x1 06e2 0092 07aa | | Action Push_String_Extended,0x7aa ; "=>" 06e4 01cc | | Execute Vector,Catenate 06e5 e5fd | | Load 0x2,-0x3 06e6 00da | | Load_Top At_Offset_2 06e7 822f | / | Call 0x1,0x2f 06e8 01cc | | Execute Vector,Catenate 06e9 00cb | | Action Pop_Block_With_Result 06ea 00cb | | Action Pop_Block_With_Result 06eb 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 06ec 00ea | | Load_Encached Null_String_Cache 06ed 00cb | | Action Pop_Block_With_Result 06ee 00cb | | Action Pop_Block_With_Result 06ef 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 06f0 ; -------------------------------------------------------------------------------------- 06f0 ; SUBPROGRAM 06f0 ; -------------------------------------------------------------------------------------- 06f0 06f3 | | .CONST 0x06f3 ; Address of begin 06f1 0004 | | .CONST 0x0004 ; Address of exception handler 06f2 0001 | | .CONST 0x0001 ; Number of locals 06f3 BODY_06f0: 06f3 INIT_06f0: 06f3 4601 |F | Jump_Case 0x2 06f4 7801 |x | Jump 0x6f6 ; case 0x0 06f5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 06f6 00da | | Load_Top At_Offset_2 06f7 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 06f8 1c00 | | Execute_Immediate Run_Utility,0x0 06f9 4800 |H | Short_Literal 0x0 06fa 00db | | Load_Top At_Offset_3 06fb 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 06fc 4801 |H | Short_Literal 0x1 06fd 00db | | Load_Top At_Offset_3 06fe 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 06ff 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0700 ; -------------------------------------------------------------------------------------- 0700 ; SUBPROGRAM 0700 ; -------------------------------------------------------------------------------------- 0700 0703 | | .CONST 0x0703 ; Address of begin 0701 0004 | | .CONST 0x0004 ; Address of exception handler 0702 0001 | | .CONST 0x0001 ; Number of locals 0703 BODY_0700: 0703 INIT_0700: 0703 4601 |F | Jump_Case 0x2 0704 7801 |x | Jump 0x706 ; case 0x0 0705 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0706 00da | | Load_Top At_Offset_2 0707 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0708 1c00 | | Execute_Immediate Run_Utility,0x0 0709 4800 |H | Short_Literal 0x0 070a 00db | | Load_Top At_Offset_3 070b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 070c 4800 |H | Short_Literal 0x0 070d 00db | | Load_Top At_Offset_3 070e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 070f 4801 |H | Short_Literal 0x1 0710 00db | | Load_Top At_Offset_3 0711 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0712 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0713 0000 0000 | | .BLANK 0000[0x5] 0718 ; -------------------------------------------------------------------------------------- 0718 ; SUBPROGRAM 0718 ; -------------------------------------------------------------------------------------- 0718 075d | ] | .CONST 0x075d ; Address of begin 0719 0004 | | .CONST 0x0004 ; Address of exception handler 071a 0013 | | .CONST 0x0013 ; Number of locals 071b INIT_0718: 071b 4800 |H | Short_Literal 0x0 071c 4806 |H | Short_Literal 0x6 071d 029f 0763 | c| Declare_Subprogram INIT_0760,For_Call 071f 03fe | | Declare_Type Discrete,Defined,Visible 0720 4801 |H | Short_Literal 0x1 0721 480e |H | Short_Literal 0xe 0722 e001 | | Load 0x0,0x1 0723 03f9 | | Declare_Type Discrete,Constrained,Visible 0724 4803 |H | Short_Literal 0x3 0725 4807 |H | Short_Literal 0x7 0726 e002 | | Load 0x0,0x2 0727 03f9 | | Declare_Type Discrete,Constrained,Visible 0728 4801 |H | Short_Literal 0x1 0729 4806 |H | Short_Literal 0x6 072a e20d | | Load 0x1,0xd 072b 03f9 | | Declare_Type Discrete,Constrained,Visible 072c e003 | | Load 0x0,0x3 072d e004 | | Load 0x0,0x4 072e e001 | | Load 0x0,0x1 072f 4800 |H | Short_Literal 0x0 0730 4801 |H | Short_Literal 0x1 0731 480e |H | Short_Literal 0xe 0732 0092 07ae | | Action Push_String_Extended,0x7ae ; "others => Unspecified" 0734 00ea | | Load_Encached Null_String_Cache 0735 00ea | | Load_Encached Null_String_Cache 0736 4801 |H | Short_Literal 0x1 0737 480e |H | Short_Literal 0xe 0738 e005 | | Load 0x0,0x5 0739 0386 | | Declare_Variable Package,Visible 073a 00d8 | | Load_Top At_Offset_0 073b 020f | | Execute Module,Activate 073c e006 | | Load 0x0,0x6 073d e007 | | Load 0x0,0x7 073e e002 | | Load 0x0,0x2 073f 4800 |H | Short_Literal 0x0 0740 4801 |H | Short_Literal 0x1 0741 4807 |H | Short_Literal 0x7 0742 0092 07ae | | Action Push_String_Extended,0x7ae ; "others => Unspecified" 0744 00ea | | Load_Encached Null_String_Cache 0745 00ea | | Load_Encached Null_String_Cache 0746 4801 |H | Short_Literal 0x1 0747 4807 |H | Short_Literal 0x7 0748 e005 | | Load 0x0,0x5 0749 0386 | | Declare_Variable Package,Visible 074a 00d8 | | Load_Top At_Offset_0 074b 020f | | Execute Module,Activate 074c e008 | | Load 0x0,0x8 074d e009 | | Load 0x0,0x9 074e e20d | | Load 0x1,0xd 074f 4800 |H | Short_Literal 0x0 0750 4801 |H | Short_Literal 0x1 0751 4806 |H | Short_Literal 0x6 0752 0092 07ae | | Action Push_String_Extended,0x7ae ; "others => Unspecified" 0754 00ea | | Load_Encached Null_String_Cache 0755 00ea | | Load_Encached Null_String_Cache 0756 4801 |H | Short_Literal 0x1 0757 4806 |H | Short_Literal 0x6 0758 e005 | | Load 0x0,0x5 0759 0386 | | Declare_Variable Package,Visible 075a 00d8 | | Load_Top At_Offset_0 075b 020f | | Execute Module,Activate 075c 00bf | | Action Accept_Activation 075d BODY_0718: 075d 00bc | | Action Signal_Activated 075e 00bb | | Action Signal_Completion 075f 0000 | | .XXX[0x1] 0760 ; -------------------------------------------------------------------------------------- 0760 ; SUBPROGRAM 0760 ; -------------------------------------------------------------------------------------- 0760 0763 | c | .CONST 0x0763 ; Address of begin 0761 0004 | | .CONST 0x0004 ; Address of exception handler 0762 0001 | | .CONST 0x0001 ; Number of locals 0763 BODY_0760: 0763 INIT_0760: 0763 4607 |F | Jump_Case 0x8 0764 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0765 7807 |x | Jump 0x76d ; case 0x1 0766 780a |x | Jump 0x771 ; case 0x2 0767 780e |x | Jump 0x776 ; case 0x3 0768 7811 |x | Jump 0x77a ; case 0x4 0769 7812 |x | Jump 0x77c ; case 0x5 076a 7813 |x | Jump 0x77e ; case 0x6 076b 7816 |x | Jump 0x782 ; case 0x7 076c 4302 |C | .XXX[0x1] 076d 00da | | Load_Top At_Offset_2 076e 0091 07a2 | | Action Push_String_Extended_Indexed,0x7a2 ; "NO_PARAM_ELEMENT" 0770 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0771 00db | | Load_Top At_Offset_3 0772 00db | | Load_Top At_Offset_3 0773 00e0 | | Load_Encached Standard_Cache 0774 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0775 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0776 00da | | Load_Top At_Offset_2 0777 00e0 | | Load_Encached Standard_Cache 0778 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0779 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 077a 00db | | Load_Top At_Offset_3 077b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 077c 00db | | Load_Top At_Offset_3 077d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 077e e20d | | Load 0x1,0xd 077f 00dc | | Load_Top At_Offset_4 0780 0267 | g | Execute Discrete,Predecessor 0781 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0782 e20d | | Load 0x1,0xd 0783 00dc | | Load_Top At_Offset_4 0784 0268 | h | Execute Discrete,Successor 0785 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0786 ; -------------------------------------------------------------------------------------- 0786 ; STRING TABLE 0786 ; -------------------------------------------------------------------------------------- 0786 0054 | T | .STRTAB 0x0054->0x07b0 ; "NO_ELEMENT" 0787 005c | \ | .STRTAB 0x005c->0x07b5 ; "SUBJECT_PROGRAM_HANDLE" 0788 0070 | p | .STRTAB 0x0070->0x07c0 ; "TEST_DRIVER_HANDLE" 0789 0080 | | .STRTAB 0x0080->0x07c9 ; "EXECUTION_CONTEXT_HANDLE" 078a 0096 | | .STRTAB 0x0096->0x07d5 ; "EXECUTABLE_TEST_CODE_HANDLE" 078b 00af | | .STRTAB 0x00af->0x07e2 ; "EVALUATION_ACTION_HANDLE" 078c 00c5 | | .STRTAB 0x00c5->0x07ee ; "INPUT_DATA_HANDLE" 078d 00d4 | | .STRTAB 0x00d4->0x07f7 ; "OUTPUT_DATA_HANDLE" 078e 00e4 | | .STRTAB 0x00e4->0x0800 ; "EXPECTED_OUTPUT_HANDLE" 078f 00f8 | | .STRTAB 0x00f8->0x080b ; "ERROR_OUTPUT_HANDLE" 0790 0109 | | .STRTAB 0x0109->0x0814 ; "COVERAGE_ANALYZER_HANDLE" 0791 011f | | .STRTAB 0x011f->0x0820 ; "RCI_CMD_TEMPLATE_HANDLE" 0792 0134 | 4 | .STRTAB 0x0134->0x082c ; "PRE_CONDITION_HANDLE" 0793 0146 | F | .STRTAB 0x0146->0x0836 ; "PROLOG_HANDLE" 0794 0151 | Q | .STRTAB 0x0151->0x083c ; "EPILOG_HANDLE" 0795 015c | \ | .STRTAB 0x015c->0x0843 ; "DIRECT_CALL" 0796 0165 | e | .STRTAB 0x0165->0x0848 ; "SEPARATE_JOB" 0797 016f | o | .STRTAB 0x016f->0x084e ; "CONNECTED_JOB" 0798 017a | z | .STRTAB 0x017a->0x0855 ; "NONE" 0799 017c | | | .STRTAB 0x017c->0x0857 ; "THE_HANDLES" 079a 0185 | | .STRTAB 0x0185->0x085c ; "THE_PARAMS" 079b 018d | | .STRTAB 0x018d->0x0861 ; "DESCRIPTION" 079c 0196 | | .STRTAB 0x0196->0x0867 ; "TERM_CONTROL" 079d 01a0 | | .STRTAB 0x01a0->0x086d ; "KEYWORDS" 079e 01a6 | | .STRTAB 0x01a6->0x0871 ; "THE_RUN_MODE" 079f 01b0 | | .STRTAB 0x01b0->0x0877 ; "ALLOW_COVERAGE_ANALYSIS" 07a0 01c5 | | .STRTAB 0x01c5->0x0882 ; "PSIMPLE_TEST_CASE" 07a1 01d4 | | .STRTAB 0x01d4->0x088b ; "POUTPUT_COMPARE" 07a2 01e1 | | .STRTAB 0x01e1->0x0892 ; "NO_PARAM_ELEMENT" 07a3 01ef | | .STRTAB 0x01ef->0x089a ; "EXECUTABLE_TEST_CODE_PARAMS" 07a4 0208 | | .STRTAB 0x0208->0x08a8 ; "EVALUATION_ACTION_PARAMS" 07a5 021e | | .STRTAB 0x021e->0x08b4 ; "COVERAGE_ANALYZER_PARAMS" 07a6 0234 | 4 | .STRTAB 0x0234->0x08c0 ; "PRE_CONDITION_PARAMS" 07a7 0246 | F | .STRTAB 0x0246->0x08ca ; "PROLOG_PARAMS" 07a8 0251 | Q | .STRTAB 0x0251->0x08d0 ; "EPILOG_PARAMS" 07a9 025c | \ | .STRTAB 0x025c->0x08d7 ; "<default>" 07aa 0263 | c | .STRTAB 0x0263->0x08db ; "=>" 07ab 0263 | c | .STRTAB 0x0263->0x08dc ; "_params" 07ac 0268 | h | .STRTAB 0x0268->0x08e0 ; "_handle" 07ad 026d | m | .STRTAB 0x026d->0x08e3 ; "<output_compare>" 07ae 027b | { | .STRTAB 0x027b->0x08eb ; "others => Unspecified" 07af 028e | | .STREND 0x028e->0x08f6 07b0 4e4f 5f45 |NO_E| .STRTAB_STRINGS 08f6 0000 0000 | | .XXX[0x2] 08f8 ; -------------------------------------------------------------------------------------- 08f8 ; Debug Table 08f8 ; -------------------------------------------------------------------------------------- 08f8 0004 000a | | .DEBUG4 0x0004,0x000a,0x2315,0x0000,0x0001,0x0000 08fe 0000 0000 | | .BLANK 0000[0x102]