|
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 0948 | H | .CONST 0x0948 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 8006 | | .CONST 0x8006 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0196 | | .CONST 0x0196 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0043 | C | .CONST 0x0043 ; Number of locals 000b INIT_0008: 000b 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated 000d 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated 000f 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated 0011 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated 0013 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated 0015 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated 0017 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated 0019 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated 001b 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated 001d 029a 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call,Visible,Unelaborated 001f 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated 0021 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated 0023 029a 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call,Visible,Unelaborated 0025 029a 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call,Visible,Unelaborated 0027 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated 0029 029a 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call,Visible,Unelaborated 002b 029a 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call,Visible,Unelaborated 002d 4800 |H | Short_Literal 0x0 002e 0093 082b | +| push_full_address INIT_0828 0030 02a0 | | Declare_Subprogram Null_Subprogram 0031 038f | | Declare_Type Package,Defined,Visible 0032 0386 | | Declare_Variable Package,Visible 0033 0093 0000 | | push_full_address 0x0 0035 6172 |ar | Indirect_Literal Discrete,0x1a8,{0x80000000, 0x00020000} 0036 0273 | s | Execute Discrete,Plus 0037 e002 | | Load 0x0,0x2 0038 0273 | s | Execute Discrete,Plus 0039 e003 | | Load 0x0,0x3 003a 0273 | s | Execute Discrete,Plus 003b e004 | | Load 0x0,0x4 003c e005 | | Load 0x0,0x5 003d 4801 |H | Short_Literal 0x1 003e a006 | | Store_Unchecked 0x0,0x6 003f a007 | | Store_Unchecked 0x0,0x7 0040 a008 | | Store_Unchecked 0x0,0x8 0041 a009 | | Store_Unchecked 0x0,0x9 0042 a00a | | Store_Unchecked 0x0,0xa 0043 a00b | | Store_Unchecked 0x0,0xb 0044 a00c | | Store_Unchecked 0x0,0xc 0045 a00d | | Store_Unchecked 0x0,0xd 0046 a00e | | Store_Unchecked 0x0,0xe 0047 e00f | | Load 0x0,0xf 0048 0386 | | Declare_Variable Package,Visible 0049 00d8 | | Load_Top At_Offset_0 004a 020f | | Execute Module,Activate 004b e010 | | Load 0x0,0x10 004c e011 | | Load 0x0,0x11 004d 00da | | Load_Top At_Offset_2 004e 0098 | | Execute Package,Field_Read_Dynamic 004f e012 | | Load 0x0,0x12 0050 e013 | | Load 0x0,0x13 0051 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0052 02a0 | | Declare_Subprogram Null_Subprogram 0053 4804 |H | Short_Literal 0x4 0054 032e | . | Declare_Type Record,Defined,Visible 0055 029a 0413 | | Declare_Subprogram INIT_0410,For_Outer_Call,Visible,Unelaborated 0057 029a 045b | [| Declare_Subprogram INIT_0458,For_Outer_Call,Visible,Unelaborated 0059 029a 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call,Visible,Unelaborated 005b 029a 0473 | s| Declare_Subprogram INIT_0470,For_Outer_Call,Visible,Unelaborated 005d 029a 0493 | | Declare_Subprogram INIT_0490,For_Outer_Call,Visible,Unelaborated 005f 4800 |H | Short_Literal 0x0 0060 4803 |H | Short_Literal 0x3 0061 029f 049b | | Declare_Subprogram INIT_0498,For_Call 0063 03fe | | Declare_Type Discrete,Defined,Visible 0064 e220 | | Load 0x1,0x20 0065 00e1 | | Load_Encached Boolean_Cache 0066 00da | | Load_Top At_Offset_2 0067 00e1 | | Load_Encached Boolean_Cache 0068 e014 | | Load 0x0,0x14 0069 e21f | | Load 0x1,0x1f 006a 0098 | | Execute Package,Field_Read_Dynamic 006b e015 | | Load 0x0,0x15 006c 029f 0813 | | Declare_Subprogram INIT_0810,For_Call 006e 4806 |H | Short_Literal 0x6 006f 032e | . | Declare_Type Record,Defined,Visible 0070 029a 04c3 | | Declare_Subprogram INIT_04c0,For_Outer_Call,Visible,Unelaborated 0072 029a 04db | | Declare_Subprogram INIT_04d8,For_Outer_Call,Visible,Unelaborated 0074 029a 04e3 | | Declare_Subprogram INIT_04e0,For_Outer_Call,Visible,Unelaborated 0076 029a 050b | | Declare_Subprogram INIT_0508,For_Outer_Call,Visible,Unelaborated 0078 0093 0000 | | push_full_address 0x0 007a 6129 |a) | Indirect_Literal Discrete,0x1a4,{0x80000000, 0x00010000} 007b 0273 | s | Execute Discrete,Plus 007c e002 | | Load 0x0,0x2 007d 0273 | s | Execute Discrete,Plus 007e e016 | | Load 0x0,0x16 007f 0273 | s | Execute Discrete,Plus 0080 e220 | | Load 0x1,0x20 0081 e227 | ' | Load 0x1,0x27 0082 4801 |H | Short_Literal 0x1 0083 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 0084 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 0085 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 0086 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 0087 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 0088 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 0089 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 008a 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 008b 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b 008c a017 | | Store_Unchecked 0x0,0x17 008d e018 | | Load 0x0,0x18 008e 4806 |H | Short_Literal 0x6 008f e019 | | Load 0x0,0x19 0090 0386 | | Declare_Variable Package,Visible 0091 00d8 | | Load_Top At_Offset_0 0092 020f | | Execute Module,Activate 0093 e01a | | Load 0x0,0x1a 0094 00d9 | | Load_Top At_Offset_1 0095 0098 | | Execute Package,Field_Read_Dynamic 0096 0129 | ) | Execute Any,Make_Visible 0097 e220 | | Load 0x1,0x20 0098 e01b | | Load 0x0,0x1b 0099 e21f | | Load 0x1,0x1f 009a 0098 | | Execute Package,Field_Read_Dynamic 009b 02a0 | | Declare_Subprogram Null_Subprogram 009c 4802 |H | Short_Literal 0x2 009d 032e | . | Declare_Type Record,Defined,Visible 009e 00bf | | Action Accept_Activation 009f 0093 0000 | | push_full_address 0x0 00a1 60fe |` | Indirect_Literal Discrete,0x1a0,{0x80000000, 0x00010000} 00a2 0273 | s | Execute Discrete,Plus 00a3 0007 | | Action Break_Optional 00a4 e226 | & | Load 0x1,0x26 00a5 0266 | f | Execute Discrete,Bounds 00a6 00e1 | | Load_Encached Boolean_Cache 00a7 02a0 | | Declare_Subprogram Null_Subprogram 00a8 4801 |H | Short_Literal 0x1 00a9 035d | ] | Declare_Type Array,Defined 00aa 00d8 | | Load_Top At_Offset_0 00ab 0337 | 7 | Declare_Variable Array 00ac 00d8 | | Load_Top At_Offset_0 00ad 0335 | 5 | Declare_Variable Array,Duplicate 00ae 00cd | | Action Spare6_Action 00af 4800 |H | Short_Literal 0x0 00b0 4800 |H | Short_Literal 0x0 00b1 00da | | Load_Top At_Offset_2 00b2 01d6 | | Execute Vector,Field_Write 00b3 4801 |H | Short_Literal 0x1 00b4 4801 |H | Short_Literal 0x1 00b5 00da | | Load_Top At_Offset_2 00b6 01d6 | | Execute Vector,Field_Write 00b7 4801 |H | Short_Literal 0x1 00b8 4802 |H | Short_Literal 0x2 00b9 00da | | Load_Top At_Offset_2 00ba 01d6 | | Execute Vector,Field_Write 00bb 4800 |H | Short_Literal 0x0 00bc 4803 |H | Short_Literal 0x3 00bd 00da | | Load_Top At_Offset_2 00be 01d6 | | Execute Vector,Field_Write 00bf 00d9 | | Load_Top At_Offset_1 00c0 01d4 | | Execute Vector,Structure_Write 00c1 e01c | | Load 0x0,0x1c 00c2 0266 | f | Execute Discrete,Bounds 00c3 e01d | | Load 0x0,0x1d 00c4 02a0 | | Declare_Subprogram Null_Subprogram 00c5 4801 |H | Short_Literal 0x1 00c6 035d | ] | Declare_Type Array,Defined 00c7 00d8 | | Load_Top At_Offset_0 00c8 0337 | 7 | Declare_Variable Array 00c9 00d8 | | Load_Top At_Offset_0 00ca 0335 | 5 | Declare_Variable Array,Duplicate 00cb 00cd | | Action Spare6_Action 00cc 4802 |H | Short_Literal 0x2 00cd 4800 |H | Short_Literal 0x0 00ce 00da | | Load_Top At_Offset_2 00cf 01d6 | | Execute Vector,Field_Write 00d0 480c |H | Short_Literal 0xc 00d1 4801 |H | Short_Literal 0x1 00d2 00da | | Load_Top At_Offset_2 00d3 01d6 | | Execute Vector,Field_Write 00d4 480d |H | Short_Literal 0xd 00d5 4802 |H | Short_Literal 0x2 00d6 00da | | Load_Top At_Offset_2 00d7 01d6 | | Execute Vector,Field_Write 00d8 480e |H | Short_Literal 0xe 00d9 4803 |H | Short_Literal 0x3 00da 00da | | Load_Top At_Offset_2 00db 01d6 | | Execute Vector,Field_Write 00dc 4805 |H | Short_Literal 0x5 00dd 4804 |H | Short_Literal 0x4 00de 00da | | Load_Top At_Offset_2 00df 01d6 | | Execute Vector,Field_Write 00e0 00d9 | | Load_Top At_Offset_1 00e1 01d4 | | Execute Vector,Structure_Write 00e2 e01c | | Load 0x0,0x1c 00e3 0266 | f | Execute Discrete,Bounds 00e4 e01d | | Load 0x0,0x1d 00e5 02a0 | | Declare_Subprogram Null_Subprogram 00e6 4801 |H | Short_Literal 0x1 00e7 035d | ] | Declare_Type Array,Defined 00e8 00d8 | | Load_Top At_Offset_0 00e9 0337 | 7 | Declare_Variable Array 00ea 00d8 | | Load_Top At_Offset_0 00eb 0335 | 5 | Declare_Variable Array,Duplicate 00ec 00cd | | Action Spare6_Action 00ed 4804 |H | Short_Literal 0x4 00ee 4800 |H | Short_Literal 0x0 00ef 00da | | Load_Top At_Offset_2 00f0 01d6 | | Execute Vector,Field_Write 00f1 480c |H | Short_Literal 0xc 00f2 4801 |H | Short_Literal 0x1 00f3 00da | | Load_Top At_Offset_2 00f4 01d6 | | Execute Vector,Field_Write 00f5 480d |H | Short_Literal 0xd 00f6 4802 |H | Short_Literal 0x2 00f7 00da | | Load_Top At_Offset_2 00f8 01d6 | | Execute Vector,Field_Write 00f9 480e |H | Short_Literal 0xe 00fa 4803 |H | Short_Literal 0x3 00fb 00da | | Load_Top At_Offset_2 00fc 01d6 | | Execute Vector,Field_Write 00fd 4805 |H | Short_Literal 0x5 00fe 4804 |H | Short_Literal 0x4 00ff 00da | | Load_Top At_Offset_2 0100 01d6 | | Execute Vector,Field_Write 0101 00d9 | | Load_Top At_Offset_1 0102 01d4 | | Execute Vector,Structure_Write 0103 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0104 00c7 | | Action Elaborate_Subprogram 0105 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0106 00c7 | | Action Elaborate_Subprogram 0107 029d 053b | ;| Declare_Subprogram INIT_0538,For_Outer_Call 0109 029d 054b | K| Declare_Subprogram INIT_0548,For_Outer_Call 010b 1d0f | | Execute_Immediate Reference_Lex_1,0xf 010c 00c7 | | Action Elaborate_Subprogram 010d 1d10 | | Execute_Immediate Reference_Lex_1,0x10 010e 00c7 | | Action Elaborate_Subprogram 010f 029d 056b | k| Declare_Subprogram INIT_0568,For_Outer_Call 0111 029d 059b | | Declare_Subprogram INIT_0598,For_Outer_Call 0113 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0114 00c7 | | Action Elaborate_Subprogram 0115 029d 05cb | | Declare_Subprogram INIT_05c8,For_Outer_Call 0117 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0118 00c7 | | Action Elaborate_Subprogram 0119 1d13 | | Execute_Immediate Reference_Lex_1,0x13 011a 00c7 | | Action Elaborate_Subprogram 011b 1d14 | | Execute_Immediate Reference_Lex_1,0x14 011c 00c7 | | Action Elaborate_Subprogram 011d 1d15 | | Execute_Immediate Reference_Lex_1,0x15 011e 00c7 | | Action Elaborate_Subprogram 011f 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0120 00c7 | | Action Elaborate_Subprogram 0121 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0122 00c7 | | Action Elaborate_Subprogram 0123 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0124 00c7 | | Action Elaborate_Subprogram 0125 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0126 00c7 | | Action Elaborate_Subprogram 0127 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0128 00c7 | | Action Elaborate_Subprogram 0129 e01e | | Load 0x0,0x1e 012a e01f | | Load 0x0,0x1f 012b e22c | , | Load 0x1,0x2c 012c 0098 | | Execute Package,Field_Read_Dynamic 012d 0095 | | Execute Package,Field_Reference_Dynamic 012e e01a | | Load 0x0,0x1a 012f e22c | , | Load 0x1,0x2c 0130 0098 | | Execute Package,Field_Read_Dynamic 0131 e020 | | Load 0x0,0x20 0132 e01f | | Load 0x0,0x1f 0133 e22c | , | Load 0x1,0x2c 0134 0098 | | Execute Package,Field_Read_Dynamic 0135 0095 | | Execute Package,Field_Reference_Dynamic 0136 e021 | ! | Load 0x0,0x21 0137 e01f | | Load 0x0,0x1f 0138 e22c | , | Load 0x1,0x2c 0139 0098 | | Execute Package,Field_Read_Dynamic 013a 0095 | | Execute Package,Field_Reference_Dynamic 013b e022 | " | Load 0x0,0x22 013c e01f | | Load 0x0,0x1f 013d e22c | , | Load 0x1,0x2c 013e 0098 | | Execute Package,Field_Read_Dynamic 013f 0095 | | Execute Package,Field_Reference_Dynamic 0140 e023 | # | Load 0x0,0x23 0141 e01f | | Load 0x0,0x1f 0142 e22c | , | Load 0x1,0x2c 0143 0098 | | Execute Package,Field_Read_Dynamic 0144 0095 | | Execute Package,Field_Reference_Dynamic 0145 e024 | $ | Load 0x0,0x24 0146 e01f | | Load 0x0,0x1f 0147 e22c | , | Load 0x1,0x2c 0148 0098 | | Execute Package,Field_Read_Dynamic 0149 0095 | | Execute Package,Field_Reference_Dynamic 014a e025 | % | Load 0x0,0x25 014b e01f | | Load 0x0,0x1f 014c e22c | , | Load 0x1,0x2c 014d 0098 | | Execute Package,Field_Read_Dynamic 014e 0095 | | Execute Package,Field_Reference_Dynamic 014f e026 | & | Load 0x0,0x26 0150 e01f | | Load 0x0,0x1f 0151 e22c | , | Load 0x1,0x2c 0152 0098 | | Execute Package,Field_Read_Dynamic 0153 0095 | | Execute Package,Field_Reference_Dynamic 0154 e027 | ' | Load 0x0,0x27 0155 e01f | | Load 0x0,0x1f 0156 e22c | , | Load 0x1,0x2c 0157 0098 | | Execute Package,Field_Read_Dynamic 0158 0095 | | Execute Package,Field_Reference_Dynamic 0159 480a |H | Short_Literal 0xa 015a e21e | | Load 0x1,0x1e 015b 020e | | Execute Module,Augment_Imports 015c e21e | | Load 0x1,0x1e 015d 020f | | Execute Module,Activate 015e e028 | ( | Load 0x0,0x28 015f e029 | ) | Load 0x0,0x29 0160 e226 | & | Load 0x1,0x26 0161 4800 |H | Short_Literal 0x0 0162 4801 |H | Short_Literal 0x1 0163 4803 |H | Short_Literal 0x3 0164 0092 08ce | | Action Push_String_Extended,0x8ce ; "others => Unspecified" 0166 00ea | | Load_Encached Null_String_Cache 0167 00ea | | Load_Encached Null_String_Cache 0168 4801 |H | Short_Literal 0x1 0169 4803 |H | Short_Literal 0x3 016a e02a | * | Load 0x0,0x2a 016b 0387 | | Declare_Variable Package 016c 00d8 | | Load_Top At_Offset_0 016d 020f | | Execute Module,Activate 016e 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 016f 00c7 | | Action Elaborate_Subprogram 0170 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 0171 00c7 | | Action Elaborate_Subprogram 0172 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 0173 00c7 | | Action Elaborate_Subprogram 0174 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 0175 00c7 | | Action Elaborate_Subprogram 0176 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 0177 00c7 | | Action Elaborate_Subprogram 0178 029d 05e3 | | Declare_Subprogram INIT_05e0,For_Outer_Call 017a 029d 0603 | | Declare_Subprogram INIT_0600,For_Outer_Call 017c 029d 0623 | #| Declare_Subprogram INIT_0620,For_Outer_Call 017e 029d 063b | ;| Declare_Subprogram INIT_0638,For_Outer_Call 0180 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 0181 00c7 | | Action Elaborate_Subprogram 0182 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 0183 00c7 | | Action Elaborate_Subprogram 0184 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 0185 00c7 | | Action Elaborate_Subprogram 0186 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b 0187 00c7 | | Action Elaborate_Subprogram 0188 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0189 00c7 | | Action Elaborate_Subprogram 018a 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 018b 00c7 | | Action Elaborate_Subprogram 018c 029d 065b | [| Declare_Subprogram INIT_0658,For_Outer_Call 018e 029d 0663 | c| Declare_Subprogram INIT_0660,For_Outer_Call 0190 029d 066b | k| Declare_Subprogram INIT_0668,For_Outer_Call 0192 029d 0673 | s| Declare_Subprogram INIT_0670,For_Outer_Call 0194 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0195 00c7 | | Action Elaborate_Subprogram 0196 BODY_0008: 0196 00bc | | Action Signal_Activated 0197 00bb | | Action Signal_Completion 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 00da | | Load_Top At_Offset_2 019c e02b | + | Load 0x0,0x2b 019d e22c | , | Load 0x1,0x2c 019e 0096 | | Execute Package,Entry 019f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01a0 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 01a4 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 01a8 8000 0000 | | .LITERAL {0x80000000, 0x00020000} 01ac 0000 0000 | | .BLANK 0000[0x4] 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01b3 | | .CONST 0x01b3 ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 0001 | | .CONST 0x0001 ; Number of locals 01b3 BODY_01b0: 01b3 INIT_01b0: 01b3 00da | | Load_Top At_Offset_2 01b4 e01a | | Load 0x0,0x1a 01b5 e22c | , | Load 0x1,0x2c 01b6 0098 | | Execute Package,Field_Read_Dynamic 01b7 0216 | | Execute Heap_Access,Convert 01b8 e02c | , | Load 0x0,0x2c 01b9 e22c | , | Load 0x1,0x2c 01ba 0096 | | Execute Package,Entry 01bb 0033 | 3 | Store_Top Heap_Access,At_Offset_3 01bc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01bd 0000 0000 | | .XXX[0x3] 01bf 0000 | | 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01cb | | .CONST 0x01cb ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0002 | | .CONST 0x0002 ; Number of locals 01c3 INIT_01c0: 01c3 e220 | | Load 0x1,0x20 01c4 0322 | " | Declare_Variable Record 01c5 e5fe | | Load 0x2,-0x2 01c6 e02d | - | Load 0x0,0x2d 01c7 e22c | , | Load 0x1,0x2c 01c8 0096 | | Execute Package,Entry 01c9 00d9 | | Load_Top At_Offset_1 01ca 017d | } | Execute Record,Structure_Write 01cb BODY_01c0: 01cb 00d8 | | Load_Top At_Offset_0 01cc e5ff | | Load 0x2,-0x1 01cd 8237 | 7 | Call 0x1,0x37 01ce 00d1 | | Pop_Control Pop_Count_1 01cf 00d8 | | Load_Top At_Offset_0 01d0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01d1 e5ff | | Load 0x2,-0x1 01d2 e02e | . | Load 0x0,0x2e 01d3 e21f | | Load 0x1,0x1f 01d4 0096 | | Execute Package,Entry 01d5 00d1 | | Pop_Control Pop_Count_1 01d6 e5fe | | Load 0x2,-0x2 01d7 e01a | | Load 0x0,0x1a 01d8 e22c | , | Load 0x1,0x2c 01d9 0098 | | Execute Package,Field_Read_Dynamic 01da 0216 | | Execute Heap_Access,Convert 01db 00d9 | | Load_Top At_Offset_1 01dc e02f | / | Load 0x0,0x2f 01dd e22c | , | Load 0x1,0x2c 01de 0096 | | Execute Package,Entry 01df c5fe | | Store 0x2,-0x2 01e0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01e1 0000 0000 | | .BLANK 0000[0x7] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01f5 | | .CONST 0x01f5 ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0003 | | .CONST 0x0003 ; Number of locals 01eb INIT_01e8: 01eb e220 | | Load 0x1,0x20 01ec 0322 | " | Declare_Variable Record 01ed e5fd | | Load 0x2,-0x3 01ee e02d | - | Load 0x0,0x2d 01ef e22c | , | Load 0x1,0x2c 01f0 0096 | | Execute Package,Entry 01f1 00d9 | | Load_Top At_Offset_1 01f2 017d | } | Execute Record,Structure_Write 01f3 029f 067b | {| Declare_Subprogram INIT_0678,For_Call 01f5 BODY_01e8: 01f5 00d9 | | Load_Top At_Offset_1 01f6 e5ff | | Load 0x2,-0x1 01f7 8237 | 7 | Call 0x1,0x37 01f8 00d1 | | Pop_Control Pop_Count_1 01f9 e5fe | | Load 0x2,-0x2 01fa 7002 |p | Jump_Nonzero 0x1fd 01fb 8403 | | Call 0x2,0x3 01fc 780d |x | Jump 0x20a 01fd 00d9 | | Load_Top At_Offset_1 01fe 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01ff e5fe | | Load 0x2,-0x2 0200 00d8 | | Load_Top At_Offset_0 0201 00e4 | | Load_Encached Positive_Cache 0202 0260 | ` | Execute Discrete,In_Type 0203 7001 |p | Jump_Nonzero 0x205 0204 0801 | | Execute_Immediate Raise,0x1 0205 e5ff | | Load 0x2,-0x1 0206 e030 | 0 | Load 0x0,0x30 0207 e21f | | Load 0x1,0x1f 0208 0096 | | Execute Package,Entry 0209 00d1 | | Pop_Control Pop_Count_1 020a e5fd | | Load 0x2,-0x3 020b e01a | | Load 0x0,0x1a 020c e22c | , | Load 0x1,0x2c 020d 0098 | | Execute Package,Field_Read_Dynamic 020e 0216 | | Execute Heap_Access,Convert 020f 00da | | Load_Top At_Offset_2 0210 e02f | / | Load 0x0,0x2f 0211 e22c | , | Load 0x1,0x2c 0212 0096 | | Execute Package,Entry 0213 c5fd | | Store 0x2,-0x3 0214 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0215 0000 0000 | | .XXX[0x3] 0217 0000 | | 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 00db | | Load_Top At_Offset_3 021c e02d | - | Load 0x0,0x2d 021d e22c | , | Load 0x1,0x2c 021e 0096 | | Execute Package,Entry 021f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0220 00db | | Load_Top At_Offset_3 0221 8239 | 9 | Call 0x1,0x39 0222 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0223 0000 0000 | | .BLANK 0000[0x5] 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 0237 | 7 | .CONST 0x0237 ; Address of begin 0229 0253 | S | .CONST 0x0253 ; Address of exception handler 022a 0003 | | .CONST 0x0003 ; Number of locals 022b INIT_0228: 022b e220 | | Load 0x1,0x20 022c 0322 | " | Declare_Variable Record 022d e5fe | | Load 0x2,-0x2 022e e02d | - | Load 0x0,0x2d 022f e22c | , | Load 0x1,0x2c 0230 0096 | | Execute Package,Entry 0231 00d9 | | Load_Top At_Offset_1 0232 017d | } | Execute Record,Structure_Write 0233 e004 | | Load 0x0,0x4 0234 0322 | " | Declare_Variable Record 0235 00d8 | | Load_Top At_Offset_0 0236 1c00 | | Execute_Immediate Run_Utility,0x0 0237 BODY_0228: 0237 00d9 | | Load_Top At_Offset_1 0238 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0239 e5ff | | Load 0x2,-0x1 023a 8238 | 8 | Call 0x1,0x38 023b 00d9 | | Load_Top At_Offset_1 023c 017d | } | Execute Record,Structure_Write 023d 00d9 | | Load_Top At_Offset_1 023e 00d9 | | Load_Top At_Offset_1 023f 823a | : | Call 0x1,0x3a 0240 00d1 | | Pop_Control Pop_Count_1 0241 00d9 | | Load_Top At_Offset_1 0242 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0243 e5ff | | Load 0x2,-0x1 0244 e031 | 1 | Load 0x0,0x31 0245 e21f | | Load 0x1,0x1f 0246 0096 | | Execute Package,Entry 0247 00d1 | | Pop_Control Pop_Count_1 0248 e5fe | | Load 0x2,-0x2 0249 e01a | | Load 0x0,0x1a 024a e22c | , | Load 0x1,0x2c 024b 0098 | | Execute Package,Field_Read_Dynamic 024c 0216 | | Execute Heap_Access,Convert 024d 00da | | Load_Top At_Offset_2 024e e02f | / | Load 0x0,0x2f 024f e22c | , | Load 0x1,0x2c 0250 0096 | | Execute Package,Entry 0251 c5fe | | Store 0x2,-0x2 0252 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0253 TRAP_0228: 0253 e22f | / | Load 0x1,0x2f 0254 010f | | Execute Exception,Equal 0255 6801 |h | Jump_Zero 0x257 0256 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0257 0100 | | Execute Exception,Raise 0258 ; -------------------------------------------------------------------------------------- 0258 ; SUBPROGRAM 0258 ; -------------------------------------------------------------------------------------- 0258 0263 | c | .CONST 0x0263 ; Address of begin 0259 0004 | | .CONST 0x0004 ; Address of exception handler 025a 0002 | | .CONST 0x0002 ; Number of locals 025b INIT_0258: 025b e220 | | Load 0x1,0x20 025c 0322 | " | Declare_Variable Record 025d 00db | | Load_Top At_Offset_3 025e e02d | - | Load 0x0,0x2d 025f e22c | , | Load 0x1,0x2c 0260 0096 | | Execute Package,Entry 0261 00d9 | | Load_Top At_Offset_1 0262 017d | } | Execute Record,Structure_Write 0263 BODY_0258: 0263 00d8 | | Load_Top At_Offset_0 0264 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0265 8032 | 2 | Call 0x0,0x32 0266 00d9 | | Load_Top At_Offset_1 0267 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0268 00d8 | | Load_Top At_Offset_0 0269 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 026a e033 | 3 | Load 0x0,0x33 026b e21f | | Load 0x1,0x1f 026c 0096 | | Execute Package,Entry 026d 00d9 | | Load_Top At_Offset_1 026e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 026f 00db | | Load_Top At_Offset_3 0270 e01a | | Load 0x0,0x1a 0271 e22c | , | Load 0x1,0x2c 0272 0098 | | Execute Package,Field_Read_Dynamic 0273 0216 | | Execute Heap_Access,Convert 0274 00d9 | | Load_Top At_Offset_1 0275 e02f | / | Load 0x0,0x2f 0276 e22c | , | Load 0x1,0x2c 0277 0096 | | Execute Package,Entry 0278 c5ff | | Store 0x2,-0x1 0279 4501 |E | Exit_Suprogram New_Top_Offset 0x1 027a 0000 0000 | | .BLANK 0000[0x6] 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 0285 | | .CONST 0x0285 ; Address of begin 0281 0004 | | .CONST 0x0004 ; Address of exception handler 0282 0002 | | .CONST 0x0002 ; Number of locals 0283 INIT_0280: 0283 e22e | . | Load 0x1,0x2e 0284 0322 | " | Declare_Variable Record 0285 BODY_0280: 0285 00db | | Load_Top At_Offset_3 0286 e02d | - | Load 0x0,0x2d 0287 e22c | , | Load 0x1,0x2c 0288 0096 | | Execute Package,Entry 0289 00d9 | | Load_Top At_Offset_1 028a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 028b e01b | | Load 0x0,0x1b 028c e21f | | Load 0x1,0x1f 028d 0098 | | Execute Package,Field_Read_Dynamic 028e 00d9 | | Load_Top At_Offset_1 028f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0290 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0291 e034 | 4 | Load 0x0,0x34 0292 e21f | | Load 0x1,0x1f 0293 0096 | | Execute Package,Entry 0294 00d9 | | Load_Top At_Offset_1 0295 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0296 00d8 | | Load_Top At_Offset_0 0297 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 029b | | .CONST 0x029b ; Address of begin 0299 0004 | | .CONST 0x0004 ; Address of exception handler 029a 0001 | | .CONST 0x0001 ; Number of locals 029b BODY_0298: 029b INIT_0298: 029b 00da | | Load_Top At_Offset_2 029c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 029d e035 | 5 | Load 0x0,0x35 029e e21f | | Load 0x1,0x1f 029f 0096 | | Execute Package,Entry 02a0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02a1 0000 0000 | | .BLANK 0000[0x7] 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; SUBPROGRAM 02a8 ; -------------------------------------------------------------------------------------- 02a8 02ab | | .CONST 0x02ab ; Address of begin 02a9 0004 | | .CONST 0x0004 ; Address of exception handler 02aa 0001 | | .CONST 0x0001 ; Number of locals 02ab BODY_02a8: 02ab INIT_02a8: 02ab 00da | | Load_Top At_Offset_2 02ac 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02ad e036 | 6 | Load 0x0,0x36 02ae e21f | | Load 0x1,0x1f 02af 0096 | | Execute Package,Entry 02b0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02b1 0000 0000 | | .BLANK 0000[0x7] 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; SUBPROGRAM 02b8 ; -------------------------------------------------------------------------------------- 02b8 02bb | | .CONST 0x02bb ; Address of begin 02b9 0004 | | .CONST 0x0004 ; Address of exception handler 02ba 0001 | | .CONST 0x0001 ; Number of locals 02bb BODY_02b8: 02bb INIT_02b8: 02bb 00da | | Load_Top At_Offset_2 02bc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02bd e037 | 7 | Load 0x0,0x37 02be e21f | | Load 0x1,0x1f 02bf 0096 | | Execute Package,Entry 02c0 00db | | Load_Top At_Offset_3 02c1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 02c2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02c3 0000 0000 | | .BLANK 0000[0x5] 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; SUBPROGRAM 02c8 ; -------------------------------------------------------------------------------------- 02c8 02cb | | .CONST 0x02cb ; Address of begin 02c9 0004 | | .CONST 0x0004 ; Address of exception handler 02ca 0001 | | .CONST 0x0001 ; Number of locals 02cb BODY_02c8: 02cb INIT_02c8: 02cb 00da | | Load_Top At_Offset_2 02cc e02d | - | Load 0x0,0x2d 02cd e22c | , | Load 0x1,0x2c 02ce 0096 | | Execute Package,Entry 02cf 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 02d0 8038 | 8 | Call 0x0,0x38 02d1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02d2 0000 0000 | | .BLANK 0000[0x6] 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; SUBPROGRAM 02d8 ; -------------------------------------------------------------------------------------- 02d8 02e3 | | .CONST 0x02e3 ; Address of begin 02d9 0004 | | .CONST 0x0004 ; Address of exception handler 02da 0002 | | .CONST 0x0002 ; Number of locals 02db INIT_02d8: 02db e220 | | Load 0x1,0x20 02dc 0322 | " | Declare_Variable Record 02dd e5fe | | Load 0x2,-0x2 02de e02d | - | Load 0x0,0x2d 02df e22c | , | Load 0x1,0x2c 02e0 0096 | | Execute Package,Entry 02e1 00d9 | | Load_Top At_Offset_1 02e2 017d | } | Execute Record,Structure_Write 02e3 BODY_02d8: 02e3 00d8 | | Load_Top At_Offset_0 02e4 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 02e5 e5ff | | Load 0x2,-0x1 02e6 8039 | 9 | Call 0x0,0x39 02e7 00d9 | | Load_Top At_Offset_1 02e8 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 02e9 e5fe | | Load 0x2,-0x2 02ea e01a | | Load 0x0,0x1a 02eb e22c | , | Load 0x1,0x2c 02ec 0098 | | Execute Package,Field_Read_Dynamic 02ed 0216 | | Execute Heap_Access,Convert 02ee 00d9 | | Load_Top At_Offset_1 02ef e02f | / | Load 0x0,0x2f 02f0 e22c | , | Load 0x1,0x2c 02f1 0096 | | Execute Package,Entry 02f2 c5fe | | Store 0x2,-0x2 02f3 4502 |E | Exit_Suprogram 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 00da | | Load_Top At_Offset_2 02fc e02d | - | Load 0x0,0x2d 02fd e22c | , | Load 0x1,0x2c 02fe 0096 | | Execute Package,Entry 02ff 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0300 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0301 0000 0000 | | .BLANK 0000[0x7] 0308 ; -------------------------------------------------------------------------------------- 0308 ; SUBPROGRAM 0308 ; -------------------------------------------------------------------------------------- 0308 030b | | .CONST 0x030b ; Address of begin 0309 0004 | | .CONST 0x0004 ; Address of exception handler 030a 0001 | | .CONST 0x0001 ; Number of locals 030b BODY_0308: 030b INIT_0308: 030b 4800 |H | Short_Literal 0x0 030c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 030d 0000 0000 | | .XXX[0x3] 030f 0000 | | 0310 ; -------------------------------------------------------------------------------------- 0310 ; SUBPROGRAM 0310 ; -------------------------------------------------------------------------------------- 0310 0325 | % | .CONST 0x0325 ; Address of begin 0311 0004 | | .CONST 0x0004 ; Address of exception handler 0312 0005 | | .CONST 0x0005 ; Number of locals 0313 INIT_0310: 0313 e01b | | Load 0x0,0x1b 0314 e21f | | Load 0x1,0x1f 0315 0098 | | Execute Package,Field_Read_Dynamic 0316 0007 | | Action Break_Optional 0317 e220 | | Load 0x1,0x20 0318 0322 | " | Declare_Variable Record 0319 e5ff | | Load 0x2,-0x1 031a e02d | - | Load 0x0,0x2d 031b e22c | , | Load 0x1,0x2c 031c 0096 | | Execute Package,Entry 031d 00d9 | | Load_Top At_Offset_1 031e 017d | } | Execute Record,Structure_Write 031f 00e1 | | Load_Encached Boolean_Cache 0320 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0321 e004 | | Load 0x0,0x4 0322 0322 | " | Declare_Variable Record 0323 00d8 | | Load_Top At_Offset_0 0324 1c00 | | Execute_Immediate Run_Utility,0x0 0325 BODY_0310: 0325 e01b | | Load 0x0,0x1b 0326 e21f | | Load 0x1,0x1f 0327 0098 | | Execute Package,Field_Read_Dynamic 0328 00db | | Load_Top At_Offset_3 0329 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 032a e034 | 4 | Load 0x0,0x34 032b e21f | | Load 0x1,0x1f 032c 0096 | | Execute Package,Entry 032d c402 | | Store 0x2,0x2 032e 00cf | | Action Mark_Auxiliary 032f 7812 |x | Jump 0x342 0330 e402 | | Load 0x2,0x2 0331 e036 | 6 | Load 0x0,0x36 0332 e21f | | Load 0x1,0x1f 0333 0096 | | Execute Package,Entry 0334 00da | | Load_Top At_Offset_2 0335 017d | } | Execute Record,Structure_Write 0336 4801 |H | Short_Literal 0x1 0337 00da | | Load_Top At_Offset_2 0338 803a | : | Call 0x0,0x3a 0339 7002 |p | Jump_Nonzero 0x33c 033a 4800 |H | Short_Literal 0x0 033b 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 033c e402 | | Load 0x2,0x2 033d e037 | 7 | Load 0x0,0x37 033e e21f | | Load 0x1,0x1f 033f 0096 | | Execute Package,Entry 0340 c402 | | Store 0x2,0x2 0341 00c9 | | Action Pop_Auxiliary_Loop 0342 e402 | | Load 0x2,0x2 0343 e035 | 5 | Load 0x0,0x35 0344 e21f | | Load 0x1,0x1f 0345 0096 | | Execute Package,Entry 0346 6fe9 |o | Jump_Zero 0x330 0347 00ce | | Action Pop_Auxiliary 0348 00d9 | | Load_Top At_Offset_1 0349 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 034a 0000 0000 | | .BLANK 0000[0x6] 0350 ; -------------------------------------------------------------------------------------- 0350 ; SUBPROGRAM 0350 ; -------------------------------------------------------------------------------------- 0350 0386 | | .CONST 0x0386 ; Address of begin 0351 0004 | | .CONST 0x0004 ; Address of exception handler 0352 0010 | | .CONST 0x0010 ; Number of locals 0353 INIT_0350: 0353 4818 |H | Short_Literal 0x18 0354 03ce | | Declare_Type Access,Incomplete 0355 00e3 | | Load_Encached Natural_Cache 0356 00d9 | | Load_Top At_Offset_1 0357 02a0 | | Declare_Subprogram Null_Subprogram 0358 4802 |H | Short_Literal 0x2 0359 032d | - | Declare_Type Record,Defined 035a 00d8 | | Load_Top At_Offset_0 035b 02a0 | | Declare_Subprogram Null_Subprogram 035c 00db | | Load_Top At_Offset_3 035d 03c7 | | Complete_Type Access,By_Defining 035e 00d9 | | Load_Top At_Offset_1 035f 00da | | Load_Top At_Offset_2 0360 02a0 | | Declare_Subprogram Null_Subprogram 0361 4802 |H | Short_Literal 0x2 0362 032d | - | Declare_Type Record,Defined 0363 e5ff | | Load 0x2,-0x1 0364 e21e | | Load 0x1,0x1e 0365 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0366 e01b | | Load 0x0,0x1b 0367 e21f | | Load 0x1,0x1f 0368 0098 | | Execute Package,Field_Read_Dynamic 0369 0007 | | Action Break_Optional 036a e220 | | Load 0x1,0x20 036b 0322 | " | Declare_Variable Record 036c e5ff | | Load 0x2,-0x1 036d e02d | - | Load 0x0,0x2d 036e e22c | , | Load 0x1,0x2c 036f 0096 | | Execute Package,Entry 0370 00d9 | | Load_Top At_Offset_1 0371 017d | } | Execute Record,Structure_Write 0372 00e3 | | Load_Encached Natural_Cache 0373 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0374 e004 | | Load 0x0,0x4 0375 0322 | " | Declare_Variable Record 0376 00d8 | | Load_Top At_Offset_0 0377 1c00 | | Execute_Immediate Run_Utility,0x0 0378 e404 | | Load 0x2,0x4 0379 0322 | " | Declare_Variable Record 037a e402 | | Load 0x2,0x2 037b 0007 | | Action Break_Optional 037c 00e1 | | Load_Encached Boolean_Cache 037d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 037e 00e1 | | Load_Encached Boolean_Cache 037f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0380 029f 06a3 | | Declare_Subprogram INIT_06a0,For_Call 0382 029f 072b | +| Declare_Subprogram INIT_0728,For_Call 0384 029f 073b | ;| Declare_Subprogram INIT_0738,For_Call 0386 BODY_0350: 0386 e01b | | Load 0x0,0x1b 0387 e21f | | Load 0x1,0x1f 0388 0098 | | Execute Package,Field_Read_Dynamic 0389 e407 | | Load 0x2,0x7 038a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 038b e034 | 4 | Load 0x0,0x34 038c e21f | | Load 0x1,0x1f 038d 0096 | | Execute Package,Entry 038e c406 | | Store 0x2,0x6 038f 00cf | | Action Mark_Auxiliary 0390 7838 |x8 | Jump 0x3c9 0391 e406 | | Load 0x2,0x6 0392 e036 | 6 | Load 0x0,0x36 0393 e21f | | Load 0x1,0x1f 0394 0096 | | Execute Package,Entry 0395 e409 | | Load 0x2,0x9 0396 017d | } | Execute Record,Structure_Write 0397 e408 | | Load 0x2,0x8 0398 0a01 | | Execute_Immediate Plus,0x1 0399 c408 | | Store 0x2,0x8 039a 4801 |H | Short_Literal 0x1 039b e409 | | Load 0x2,0x9 039c 803a | : | Call 0x0,0x3a 039d 7025 |p% | Jump_Nonzero 0x3c3 039e 840f | | Call 0x2,0xf 039f e40a | | Load 0x2,0xa 03a0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03a1 700e |p | Jump_Nonzero 0x3b0 03a2 e402 | | Load 0x2,0x2 03a3 03bc | | Declare_Variable Access,By_Allocation 03a4 e40a | | Load 0x2,0xa 03a5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 03a6 e40a | | Load 0x2,0xa 03a7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03a8 e40a | | Load 0x2,0xa 03a9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 03aa e408 | | Load 0x2,0x8 03ab e40a | | Load 0x2,0xa 03ac 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03ad 0227 | ' | Execute Access,All_Reference 03ae 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 03af 7811 |x | Jump 0x3c1 03b0 e402 | | Load 0x2,0x2 03b1 03bc | | Declare_Variable Access,By_Allocation 03b2 e40a | | Load 0x2,0xa 03b3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03b4 0227 | ' | Execute Access,All_Reference 03b5 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 03b6 e40a | | Load 0x2,0xa 03b7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03b8 0227 | ' | Execute Access,All_Reference 03b9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03ba e40a | | Load 0x2,0xa 03bb 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 03bc e408 | | Load 0x2,0x8 03bd e40a | | Load 0x2,0xa 03be 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03bf 0227 | ' | Execute Access,All_Reference 03c0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 03c1 4801 |H | Short_Literal 0x1 03c2 a40d | | Store_Unchecked 0x2,0xd 03c3 e406 | | Load 0x2,0x6 03c4 e037 | 7 | Load 0x0,0x37 03c5 e21f | | Load 0x1,0x1f 03c6 0096 | | Execute Package,Entry 03c7 c406 | | Store 0x2,0x6 03c8 00c9 | | Action Pop_Auxiliary_Loop 03c9 e406 | | Load 0x2,0x6 03ca e035 | 5 | Load 0x0,0x35 03cb e21f | | Load 0x1,0x1f 03cc 0096 | | Execute Package,Entry 03cd 6fc3 |o | Jump_Zero 0x391 03ce 00ce | | Action Pop_Auxiliary 03cf 00db | | Load_Top At_Offset_3 03d0 6801 |h | Jump_Zero 0x3d2 03d1 8410 | | Call 0x2,0x10 03d2 e40a | | Load 0x2,0xa 03d3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03d4 a40b | | Store_Unchecked 0x2,0xb 03d5 00cf | | Action Mark_Auxiliary 03d6 7809 |x | Jump 0x3e0 03d7 e40b | | Load 0x2,0xb 03d8 0227 | ' | Execute Access,All_Reference 03d9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03da 840e | | Call 0x2,0xe 03db e40b | | Load 0x2,0xb 03dc 0227 | ' | Execute Access,All_Reference 03dd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03de a40b | | Store_Unchecked 0x2,0xb 03df 00c9 | | Action Pop_Auxiliary_Loop 03e0 e40b | | Load 0x2,0xb 03e1 77f5 |w | Jump_Nonzero 0x3d7 03e2 00ce | | Action Pop_Auxiliary 03e3 00db | | Load_Top At_Offset_3 03e4 6819 |h | Jump_Zero 0x3fe 03e5 e40c | | Load 0x2,0xc 03e6 680a |h | Jump_Zero 0x3f1 03e7 e03b | ; | Load 0x0,0x3b 03e8 180e | | Execute Package,Field_Execute,Field_Number 0xe 03e9 4803 |H | Short_Literal 0x3 03ea e405 | | Load 0x2,0x5 03eb 0092 08cf | | Action Push_String_Extended,0x8cf ; " updated." 03ed 01cc | | Execute Vector,Catenate 03ee e03c | < | Load 0x0,0x3c 03ef 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03f0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03f1 e03b | ; | Load 0x0,0x3b 03f2 180e | | Execute Package,Field_Execute,Field_Number 0xe 03f3 4805 |H | Short_Literal 0x5 03f4 0092 08d0 | | Action Push_String_Extended,0x8d0 ; "Update of " 03f6 e405 | | Load 0x2,0x5 03f7 01cc | | Execute Vector,Catenate 03f8 0092 08d1 | | Action Push_String_Extended,0x8d1 ; " failed." 03fa 01cc | | Execute Vector,Catenate 03fb e03c | < | Load 0x0,0x3c 03fc 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03fd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03fe e03b | ; | Load 0x0,0x3b 03ff 180e | | Execute Package,Field_Execute,Field_Number 0xe 0400 4802 |H | Short_Literal 0x2 0401 0092 08d2 | | Action Push_String_Extended,0x8d2 ; "The Test Set " 0403 e405 | | Load 0x2,0x5 0404 01cc | | Execute Vector,Catenate 0405 0092 08d3 | | Action Push_String_Extended,0x8d3 ; " is consistent." 0407 01cc | | Execute Vector,Catenate 0408 e03c | < | Load 0x0,0x3c 0409 1813 | | Execute Package,Field_Execute,Field_Number 0x13 040a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 040b 0000 0000 | | .BLANK 0000[0x5] 0410 ; -------------------------------------------------------------------------------------- 0410 ; SUBPROGRAM 0410 ; -------------------------------------------------------------------------------------- 0410 0417 | | .CONST 0x0417 ; Address of begin 0411 0004 | | .CONST 0x0004 ; Address of exception handler 0412 0003 | | .CONST 0x0003 ; Number of locals 0413 INIT_0410: 0413 e23b | ; | Load 0x1,0x3b 0414 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0415 e220 | | Load 0x1,0x20 0416 0322 | " | Declare_Variable Record 0417 BODY_0410: 0417 e5ff | | Load 0x2,-0x1 0418 e23b | ; | Load 0x1,0x3b 0419 1820 | | Execute Package,Field_Execute,Field_Number 0x20 041a 0032 | 2 | Store_Top Heap_Access,At_Offset_2 041b 00d9 | | Load_Top At_Offset_1 041c e23b | ; | Load 0x1,0x3b 041d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 041e 7002 |p | Jump_Nonzero 0x421 041f e03d | = | Load 0x0,0x3d 0420 0257 | W | Execute Discrete,Raise 0421 00cf | | Action Mark_Auxiliary 0422 4803 |H | Short_Literal 0x3 0423 4801 |H | Short_Literal 0x1 0424 0007 | | Action Break_Optional 0425 00d8 | | Load_Top At_Offset_0 0426 e402 | | Load 0x2,0x2 0427 e23b | ; | Load 0x1,0x3b 0428 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0429 6825 |h% | Jump_Zero 0x44f 042a 00d8 | | Load_Top At_Offset_0 042b 0aff | | Execute_Immediate Plus,-0x1 042c 4602 |F | Jump_Case 0x3 042d 780c |x | Jump 0x43a ; case 0x0 042e 7815 |x | Jump 0x444 ; case 0x1 042f 7800 |x | Jump 0x430 ; case 0x2 0430 e5fe | | Load 0x2,-0x2 0431 00ea | | Load_Encached Null_String_Cache 0432 00da | | Load_Top At_Offset_2 0433 e402 | | Load 0x2,0x2 0434 e23b | ; | Load 0x1,0x3b 0435 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0436 8039 | 9 | Call 0x0,0x39 0437 e403 | | Load 0x2,0x3 0438 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0439 7815 |x | Jump 0x44f 043a e5fe | | Load 0x2,-0x2 043b 00ea | | Load_Encached Null_String_Cache 043c 00da | | Load_Top At_Offset_2 043d e402 | | Load 0x2,0x2 043e e23b | ; | Load 0x1,0x3b 043f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0440 803e | > | Call 0x0,0x3e 0441 e403 | | Load 0x2,0x3 0442 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0443 780b |x | Jump 0x44f 0444 e5fe | | Load 0x2,-0x2 0445 00ea | | Load_Encached Null_String_Cache 0446 00da | | Load_Top At_Offset_2 0447 e402 | | Load 0x2,0x2 0448 e23b | ; | Load 0x1,0x3b 0449 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 044a e03f | ? | Load 0x0,0x3f 044b e21f | | Load 0x1,0x1f 044c 0096 | | Execute Package,Entry 044d e403 | | Load 0x2,0x3 044e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 044f 00c8 | | Action Pop_Auxiliary_Range 0450 3fd4 |? | Loop_Increasing 0x425 0451 00ce | | Action Pop_Auxiliary 0452 e5fe | | Load 0x2,-0x2 0453 00d9 | | Load_Top At_Offset_1 0454 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0455 00d8 | | Load_Top At_Offset_0 0456 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0457 0000 | | .XXX[0x1] 0458 ; -------------------------------------------------------------------------------------- 0458 ; SUBPROGRAM 0458 ; -------------------------------------------------------------------------------------- 0458 045b | [ | .CONST 0x045b ; Address of begin 0459 0004 | | .CONST 0x0004 ; Address of exception handler 045a 0001 | | .CONST 0x0001 ; Number of locals 045b BODY_0458: 045b INIT_0458: 045b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 045c 0000 0000 | | .BLANK 0000[0x4] 0460 ; -------------------------------------------------------------------------------------- 0460 ; SUBPROGRAM 0460 ; -------------------------------------------------------------------------------------- 0460 0465 | e | .CONST 0x0465 ; Address of begin 0461 0004 | | .CONST 0x0004 ; Address of exception handler 0462 0002 | | .CONST 0x0002 ; Number of locals 0463 INIT_0460: 0463 e220 | | Load 0x1,0x20 0464 0322 | " | Declare_Variable Record 0465 BODY_0460: 0465 00db | | Load_Top At_Offset_3 0466 8032 | 2 | Call 0x0,0x32 0467 00d9 | | Load_Top At_Offset_1 0468 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0469 00db | | Load_Top At_Offset_3 046a 00d9 | | Load_Top At_Offset_1 046b 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 046c 00d8 | | Load_Top At_Offset_0 046d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 046e 0000 0000 | | .XXX[0x2] 0470 ; -------------------------------------------------------------------------------------- 0470 ; SUBPROGRAM 0470 ; -------------------------------------------------------------------------------------- 0470 0473 | s | .CONST 0x0473 ; Address of begin 0471 0004 | | .CONST 0x0004 ; Address of exception handler 0472 0001 | | .CONST 0x0001 ; Number of locals 0473 BODY_0470: 0473 INIT_0470: 0473 00db | | Load_Top At_Offset_3 0474 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0475 00db | | Load_Top At_Offset_3 0476 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0477 8040 | @ | Call 0x0,0x40 0478 6810 |h | Jump_Zero 0x489 0479 00db | | Load_Top At_Offset_3 047a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 047b 00db | | Load_Top At_Offset_3 047c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 047d e041 | A | Load 0x0,0x41 047e e21f | | Load 0x1,0x1f 047f 0096 | | Execute Package,Entry 0480 6806 |h | Jump_Zero 0x487 0481 00db | | Load_Top At_Offset_3 0482 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0483 00db | | Load_Top At_Offset_3 0484 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0485 8042 | B | Call 0x0,0x42 0486 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0487 4800 |H | Short_Literal 0x0 0488 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0489 4800 |H | Short_Literal 0x0 048a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 048b 0000 0000 | | .BLANK 0000[0x5] 0490 ; -------------------------------------------------------------------------------------- 0490 ; SUBPROGRAM 0490 ; -------------------------------------------------------------------------------------- 0490 0493 | | .CONST 0x0493 ; Address of begin 0491 0004 | | .CONST 0x0004 ; Address of exception handler 0492 0001 | | .CONST 0x0001 ; Number of locals 0493 BODY_0490: 0493 INIT_0490: 0493 00da | | Load_Top At_Offset_2 0494 e5fd | | Load 0x2,-0x3 0495 017d | } | Execute Record,Structure_Write 0496 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0497 0000 | | .XXX[0x1] 0498 ; -------------------------------------------------------------------------------------- 0498 ; SUBPROGRAM 0498 ; -------------------------------------------------------------------------------------- 0498 049b | | .CONST 0x049b ; Address of begin 0499 0004 | | .CONST 0x0004 ; Address of exception handler 049a 0001 | | .CONST 0x0001 ; Number of locals 049b BODY_0498: 049b INIT_0498: 049b 4607 |F | Jump_Case 0x8 049c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 049d 7807 |x | Jump 0x4a5 ; case 0x1 049e 780a |x | Jump 0x4a9 ; case 0x2 049f 780e |x | Jump 0x4ae ; case 0x3 04a0 7811 |x | Jump 0x4b2 ; case 0x4 04a1 7812 |x | Jump 0x4b4 ; case 0x5 04a2 7813 |x | Jump 0x4b6 ; case 0x6 04a3 7816 |x | Jump 0x4ba ; case 0x7 04a4 4302 |C | .XXX[0x1] 04a5 00da | | Load_Top At_Offset_2 04a6 0091 08ca | | Action Push_String_Extended_Indexed,0x8ca ; "NONE" 04a8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 04a9 00db | | Load_Top At_Offset_3 04aa 00db | | Load_Top At_Offset_3 04ab 00e0 | | Load_Encached Standard_Cache 04ac 181b | | Execute Package,Field_Execute,Field_Number 0x1b 04ad 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 04ae 00da | | Load_Top At_Offset_2 04af 00e0 | | Load_Encached Standard_Cache 04b0 181c | | Execute Package,Field_Execute,Field_Number 0x1c 04b1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 04b2 00db | | Load_Top At_Offset_3 04b3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 04b4 00db | | Load_Top At_Offset_3 04b5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 04b6 e226 | & | Load 0x1,0x26 04b7 00dc | | Load_Top At_Offset_4 04b8 0267 | g | Execute Discrete,Predecessor 04b9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 04ba e226 | & | Load 0x1,0x26 04bb 00dc | | Load_Top At_Offset_4 04bc 0268 | h | Execute Discrete,Successor 04bd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 04be 0000 0000 | | .XXX[0x2] 04c0 ; -------------------------------------------------------------------------------------- 04c0 ; SUBPROGRAM 04c0 ; -------------------------------------------------------------------------------------- 04c0 04c7 | | .CONST 0x04c7 ; Address of begin 04c1 0004 | | .CONST 0x0004 ; Address of exception handler 04c2 0002 | | .CONST 0x0002 ; Number of locals 04c3 INIT_04c0: 04c3 e227 | ' | Load 0x1,0x27 04c4 0322 | " | Declare_Variable Record 04c5 00d8 | | Load_Top At_Offset_0 04c6 1c00 | | Execute_Immediate Run_Utility,0x0 04c7 BODY_04c0: 04c7 00db | | Load_Top At_Offset_3 04c8 00d9 | | Load_Top At_Offset_1 04c9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 04ca 4801 |H | Short_Literal 0x1 04cb 00d9 | | Load_Top At_Offset_1 04cc 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 04cd 00d8 | | Load_Top At_Offset_0 04ce 00d9 | | Load_Top At_Offset_1 04cf 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 04d0 823c | < | Call 0x1,0x3c 04d1 00d1 | | Pop_Control Pop_Count_1 04d2 00d8 | | Load_Top At_Offset_0 04d3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04d4 0000 0000 | | .BLANK 0000[0x4] 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 00da | | Load_Top At_Offset_2 04dc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 04dd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04de 0000 0000 | | .XXX[0x2] 04e0 ; -------------------------------------------------------------------------------------- 04e0 ; SUBPROGRAM 04e0 ; -------------------------------------------------------------------------------------- 04e0 04e5 | | .CONST 0x04e5 ; Address of begin 04e1 0004 | | .CONST 0x0004 ; Address of exception handler 04e2 0002 | | .CONST 0x0002 ; Number of locals 04e3 INIT_04e0: 04e3 029f 0763 | c| Declare_Subprogram INIT_0760,For_Call 04e5 BODY_04e0: 04e5 00db | | Load_Top At_Offset_3 04e6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 04e7 e231 | 1 | Load 0x1,0x31 04e8 01d7 | | Execute Vector,Field_Read 04e9 6802 |h | Jump_Zero 0x4ec 04ea 8402 | | Call 0x2,0x2 04eb 7816 |x | Jump 0x502 04ec 00db | | Load_Top At_Offset_3 04ed 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 04ee 680e |h | Jump_Zero 0x4fd 04ef 00db | | Load_Top At_Offset_3 04f0 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 04f1 e226 | & | Load 0x1,0x26 04f2 011c | | Execute Any,Convert_Unchecked 04f3 1c01 | | Execute_Immediate Run_Utility,0x1 04f4 0092 08d4 | | Action Push_String_Extended,0x8d4 ; "=>" 04f6 01cc | | Execute Vector,Catenate 04f7 e5ff | | Load 0x2,-0x1 04f8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 04f9 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 04fa 8038 | 8 | Call 0x0,0x38 04fb 01cc | | Execute Vector,Catenate 04fc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04fd 00db | | Load_Top At_Offset_3 04fe 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 04ff 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0500 8038 | 8 | Call 0x0,0x38 0501 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0502 0831 | 1 | Execute_Immediate Raise,0x31 0503 0000 0000 | | .BLANK 0000[0x5] 0508 ; -------------------------------------------------------------------------------------- 0508 ; SUBPROGRAM 0508 ; -------------------------------------------------------------------------------------- 0508 050b | | .CONST 0x050b ; Address of begin 0509 0004 | | .CONST 0x0004 ; Address of exception handler 050a 0001 | | .CONST 0x0001 ; Number of locals 050b BODY_0508: 050b INIT_0508: 050b 00da | | Load_Top At_Offset_2 050c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 050d 7023 |p# | Jump_Nonzero 0x531 050e 00da | | Load_Top At_Offset_2 050f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0510 e231 | 1 | Load 0x1,0x31 0511 01d7 | | Execute Vector,Field_Read 0512 680b |h | Jump_Zero 0x51e 0513 00da | | Load_Top At_Offset_2 0514 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0515 00db | | Load_Top At_Offset_3 0516 823e | > | Call 0x1,0x3e 0517 7006 |p | Jump_Nonzero 0x51e 0518 00da | | Load_Top At_Offset_2 0519 00db | | Load_Top At_Offset_3 051a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 051b 823d | = | Call 0x1,0x3d 051c 00d1 | | Pop_Control Pop_Count_1 051d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 051e 00da | | Load_Top At_Offset_2 051f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0520 0f03 | | Execute_Immediate Equal,0x3 0521 6804 |h | Jump_Zero 0x526 0522 4801 |H | Short_Literal 0x1 0523 00db | | Load_Top At_Offset_3 0524 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0525 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0526 e226 | & | Load 0x1,0x26 0527 00db | | Load_Top At_Offset_3 0528 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0529 0268 | h | Execute Discrete,Successor 052a 00db | | Load_Top At_Offset_3 052b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 052c 00da | | Load_Top At_Offset_2 052d 00db | | Load_Top At_Offset_3 052e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 052f 823c | < | Call 0x1,0x3c 0530 00d1 | | Pop_Control Pop_Count_1 0531 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0532 0000 0000 | | .BLANK 0000[0x6] 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 00da | | Load_Top At_Offset_2 053c 6802 |h | Jump_Zero 0x53f 053d 4800 |H | Short_Literal 0x0 053e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 053f 4801 |H | Short_Literal 0x1 0540 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0541 0000 0000 | | .BLANK 0000[0x7] 0548 ; -------------------------------------------------------------------------------------- 0548 ; SUBPROGRAM 0548 ; -------------------------------------------------------------------------------------- 0548 0553 | S | .CONST 0x0553 ; Address of begin 0549 0004 | | .CONST 0x0004 ; Address of exception handler 054a 0005 | | .CONST 0x0005 ; Number of locals 054b INIT_0548: 054b e012 | | Load 0x0,0x12 054c 0007 | | Action Break_Optional 054d 00d8 | | Load_Top At_Offset_0 054e 0007 | | Action Break_Optional 054f 029f 0783 | | Declare_Subprogram INIT_0780,For_Call 0551 029f 079b | | Declare_Subprogram INIT_0798,For_Call 0553 BODY_0548: 0553 00cf | | Action Mark_Auxiliary 0554 4804 |H | Short_Literal 0x4 0555 4800 |H | Short_Literal 0x0 0556 0007 | | Action Break_Optional 0557 00d8 | | Load_Top At_Offset_0 0558 8236 | 6 | Call 0x1,0x36 0559 4801 |H | Short_Literal 0x1 055a e5ff | | Load 0x2,-0x1 055b 8043 | C | Call 0x0,0x43 055c 00db | | Load_Top At_Offset_3 055d e233 | 3 | Load 0x1,0x33 055e 01d7 | | Execute Vector,Field_Read 055f 8044 | D | Call 0x0,0x44 0560 a402 | | Store_Unchecked 0x2,0x2 0561 8405 | | Call 0x2,0x5 0562 00c8 | | Action Pop_Auxiliary_Range 0563 3ff3 |? | Loop_Increasing 0x557 0564 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0565 0000 0000 | | .XXX[0x3] 0567 0000 | | 0568 ; -------------------------------------------------------------------------------------- 0568 ; SUBPROGRAM 0568 ; -------------------------------------------------------------------------------------- 0568 0571 | q | .CONST 0x0571 ; Address of begin 0569 0004 | | .CONST 0x0004 ; Address of exception handler 056a 0003 | | .CONST 0x0003 ; Number of locals 056b INIT_0568: 056b e01b | | Load 0x0,0x1b 056c e21f | | Load 0x1,0x1f 056d 0098 | | Execute Package,Field_Read_Dynamic 056e 0007 | | Action Break_Optional 056f 00e3 | | Load_Encached Natural_Cache 0570 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0571 BODY_0568: 0571 e01b | | Load 0x0,0x1b 0572 e21f | | Load 0x1,0x1f 0573 0098 | | Execute Package,Field_Read_Dynamic 0574 e5fe | | Load 0x2,-0x2 0575 e034 | 4 | Load 0x0,0x34 0576 e21f | | Load 0x1,0x1f 0577 0096 | | Execute Package,Entry 0578 003a | : | Store_Top Access,At_Offset_2 0579 00cf | | Action Mark_Auxiliary 057a 7812 |x | Jump 0x58d 057b 00d9 | | Load_Top At_Offset_1 057c e5ff | | Load 0x2,-0x1 057d 027f | | Execute Discrete,Equal 057e 6805 |h | Jump_Zero 0x584 057f 00da | | Load_Top At_Offset_2 0580 e036 | 6 | Load 0x0,0x36 0581 e21f | | Load 0x1,0x1f 0582 0096 | | Execute Package,Entry 0583 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0584 00da | | Load_Top At_Offset_2 0585 e037 | 7 | Load 0x0,0x37 0586 e21f | | Load 0x1,0x1f 0587 0096 | | Execute Package,Entry 0588 003b | ; | Store_Top Access,At_Offset_3 0589 00d9 | | Load_Top At_Offset_1 058a 0a01 | | Execute_Immediate Plus,0x1 058b 005a | Z | Store_Top Discrete,At_Offset_2 058c 00c9 | | Action Pop_Auxiliary_Loop 058d 00da | | Load_Top At_Offset_2 058e e035 | 5 | Load 0x0,0x35 058f e21f | | Load 0x1,0x1f 0590 0096 | | Execute Package,Entry 0591 6fe9 |o | Jump_Zero 0x57b 0592 00ce | | Action Pop_Auxiliary 0593 e22f | / | Load 0x1,0x2f 0594 0257 | W | Execute Discrete,Raise 0595 0000 0000 | | .XXX[0x3] 0597 0000 | | 0598 ; -------------------------------------------------------------------------------------- 0598 ; SUBPROGRAM 0598 ; -------------------------------------------------------------------------------------- 0598 05a1 | | .CONST 0x05a1 ; Address of begin 0599 0004 | | .CONST 0x0004 ; Address of exception handler 059a 0003 | | .CONST 0x0003 ; Number of locals 059b INIT_0598: 059b e01b | | Load 0x0,0x1b 059c e21f | | Load 0x1,0x1f 059d 0098 | | Execute Package,Field_Read_Dynamic 059e 0007 | | Action Break_Optional 059f 00e3 | | Load_Encached Natural_Cache 05a0 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 05a1 BODY_0598: 05a1 e01b | | Load 0x0,0x1b 05a2 e21f | | Load 0x1,0x1f 05a3 0098 | | Execute Package,Field_Read_Dynamic 05a4 e5fe | | Load 0x2,-0x2 05a5 e034 | 4 | Load 0x0,0x34 05a6 e21f | | Load 0x1,0x1f 05a7 0096 | | Execute Package,Entry 05a8 003a | : | Store_Top Access,At_Offset_2 05a9 00cf | | Action Mark_Auxiliary 05aa 780f |x | Jump 0x5ba 05ab 00da | | Load_Top At_Offset_2 05ac e036 | 6 | Load 0x0,0x36 05ad e21f | | Load 0x1,0x1f 05ae 0096 | | Execute Package,Entry 05af e5ff | | Load 0x2,-0x1 05b0 8009 | | Call 0x0,0x9 05b1 6802 |h | Jump_Zero 0x5b4 05b2 00d9 | | Load_Top At_Offset_1 05b3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05b4 00da | | Load_Top At_Offset_2 05b5 e037 | 7 | Load 0x0,0x37 05b6 e21f | | Load 0x1,0x1f 05b7 0096 | | Execute Package,Entry 05b8 003b | ; | Store_Top Access,At_Offset_3 05b9 00c9 | | Action Pop_Auxiliary_Loop 05ba 00da | | Load_Top At_Offset_2 05bb e035 | 5 | Load 0x0,0x35 05bc e21f | | Load 0x1,0x1f 05bd 0096 | | Execute Package,Entry 05be 6fec |o | Jump_Zero 0x5ab 05bf 00ce | | Action Pop_Auxiliary 05c0 00d8 | | Load_Top At_Offset_0 05c1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05c2 0000 0000 | | .BLANK 0000[0x6] 05c8 ; -------------------------------------------------------------------------------------- 05c8 ; SUBPROGRAM 05c8 ; -------------------------------------------------------------------------------------- 05c8 05ce | | .CONST 0x05ce ; Address of begin 05c9 0004 | | .CONST 0x0004 ; Address of exception handler 05ca 0003 | | .CONST 0x0003 ; Number of locals 05cb INIT_05c8: 05cb e012 | | Load 0x0,0x12 05cc 029f 07d3 | | Declare_Subprogram INIT_07d0,For_Call 05ce BODY_05c8: 05ce 00cf | | Action Mark_Auxiliary 05cf 4804 |H | Short_Literal 0x4 05d0 4800 |H | Short_Literal 0x0 05d1 0007 | | Action Break_Optional 05d2 00d8 | | Load_Top At_Offset_0 05d3 8236 | 6 | Call 0x1,0x36 05d4 4801 |H | Short_Literal 0x1 05d5 e5ff | | Load 0x2,-0x1 05d6 8043 | C | Call 0x0,0x43 05d7 00db | | Load_Top At_Offset_3 05d8 e233 | 3 | Load 0x1,0x33 05d9 01d7 | | Execute Vector,Field_Read 05da 8044 | D | Call 0x0,0x44 05db a402 | | Store_Unchecked 0x2,0x2 05dc 8403 | | Call 0x2,0x3 05dd 00c8 | | Action Pop_Auxiliary_Range 05de 3ff3 |? | Loop_Increasing 0x5d2 05df 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05e0 ; -------------------------------------------------------------------------------------- 05e0 ; SUBPROGRAM 05e0 ; -------------------------------------------------------------------------------------- 05e0 05e3 | | .CONST 0x05e3 ; Address of begin 05e1 0004 | | .CONST 0x0004 ; Address of exception handler 05e2 0001 | | .CONST 0x0001 ; Number of locals 05e3 BODY_05e0: 05e3 INIT_05e0: 05e3 00da | | Load_Top At_Offset_2 05e4 4603 |F | Jump_Case 0x4 05e5 7813 |x | Jump 0x5f9 ; case 0x0 05e6 7803 |x | Jump 0x5ea ; case 0x1 05e7 7809 |x | Jump 0x5f1 ; case 0x2 05e8 7810 |x | Jump 0x5f9 ; case 0x3 05e9 780f |x | .XXX[0x1] 05ea 00db | | Load_Top At_Offset_3 05eb 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 05ec 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 05ed 8045 | E | Call 0x0,0x45 05ee e5fe | | Load 0x2,-0x2 05ef 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 05f0 7808 |x | Jump 0x5f9 05f1 00db | | Load_Top At_Offset_3 05f2 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 05f3 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 05f4 e046 | F | Load 0x0,0x46 05f5 e21f | | Load 0x1,0x1f 05f6 0096 | | Execute Package,Entry 05f7 e5fe | | Load 0x2,-0x2 05f8 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 05f9 4801 |H | Short_Literal 0x1 05fa e5fe | | Load 0x2,-0x2 05fb 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 05fc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05fd 0000 0000 | | .XXX[0x3] 05ff 0000 | | 0600 ; -------------------------------------------------------------------------------------- 0600 ; SUBPROGRAM 0600 ; -------------------------------------------------------------------------------------- 0600 0603 | | .CONST 0x0603 ; Address of begin 0601 0004 | | .CONST 0x0004 ; Address of exception handler 0602 0001 | | .CONST 0x0001 ; Number of locals 0603 BODY_0600: 0603 INIT_0600: 0603 00da | | Load_Top At_Offset_2 0604 4603 |F | Jump_Case 0x4 0605 780f |x | Jump 0x615 ; case 0x0 0606 7803 |x | Jump 0x60a ; case 0x1 0607 7807 |x | Jump 0x60f ; case 0x2 0608 780c |x | Jump 0x615 ; case 0x3 0609 780b |x | .XXX[0x1] 060a 00db | | Load_Top At_Offset_3 060b 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 060c 8047 | G | Call 0x0,0x47 060d 00d1 | | Pop_Control Pop_Count_1 060e 7806 |x | Jump 0x615 060f 00db | | Load_Top At_Offset_3 0610 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0611 e048 | H | Load 0x0,0x48 0612 e21f | | Load 0x1,0x1f 0613 0096 | | Execute Package,Entry 0614 00d1 | | Pop_Control Pop_Count_1 0615 4800 |H | Short_Literal 0x0 0616 e5fe | | Load 0x2,-0x2 0617 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0618 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0619 0000 0000 | | .BLANK 0000[0x7] 0620 ; -------------------------------------------------------------------------------------- 0620 ; SUBPROGRAM 0620 ; -------------------------------------------------------------------------------------- 0620 0623 | # | .CONST 0x0623 ; Address of begin 0621 0004 | | .CONST 0x0004 ; Address of exception handler 0622 0001 | | .CONST 0x0001 ; Number of locals 0623 BODY_0620: 0623 INIT_0620: 0623 00db | | Load_Top At_Offset_3 0624 4603 |F | Jump_Case 0x4 0625 7803 |x | Jump 0x629 ; case 0x0 0626 7804 |x | Jump 0x62b ; case 0x1 0627 7807 |x | Jump 0x62f ; case 0x2 0628 7800 |x | Jump 0x629 ; case 0x3 0629 4801 |H | Short_Literal 0x1 062a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 062b 00da | | Load_Top At_Offset_2 062c 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 062d 8049 | I | Call 0x0,0x49 062e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 062f 00da | | Load_Top At_Offset_2 0630 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 0631 e04a | J | Load 0x0,0x4a 0632 e21f | | Load 0x1,0x1f 0633 0096 | | Execute Package,Entry 0634 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0635 0000 0000 | | .XXX[0x3] 0637 0000 | | 0638 ; -------------------------------------------------------------------------------------- 0638 ; SUBPROGRAM 0638 ; -------------------------------------------------------------------------------------- 0638 063b | ; | .CONST 0x063b ; Address of begin 0639 0004 | | .CONST 0x0004 ; Address of exception handler 063a 0001 | | .CONST 0x0001 ; Number of locals 063b BODY_0638: 063b INIT_0638: 063b 00db | | Load_Top At_Offset_3 063c 00db | | Load_Top At_Offset_3 063d 823e | > | Call 0x1,0x3e 063e 6803 |h | Jump_Zero 0x642 063f 0092 08d5 | | Action Push_String_Extended,0x8d5 ; ")" 0641 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0642 00db | | Load_Top At_Offset_3 0643 4603 |F | Jump_Case 0x4 0644 7803 |x | Jump 0x648 ; case 0x0 0645 7804 |x | Jump 0x64a ; case 0x1 0646 7807 |x | Jump 0x64e ; case 0x2 0647 7800 |x | Jump 0x648 ; case 0x3 0648 00ea | | Load_Encached Null_String_Cache 0649 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 064a 00da | | Load_Top At_Offset_2 064b 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 064c 804b | K | Call 0x0,0x4b 064d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 064e 00da | | Load_Top At_Offset_2 064f 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 0650 e04c | L | Load 0x0,0x4c 0651 e21f | | Load 0x1,0x1f 0652 0096 | | Execute Package,Entry 0653 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0654 0000 0000 | | .BLANK 0000[0x4] 0658 ; -------------------------------------------------------------------------------------- 0658 ; SUBPROGRAM 0658 ; -------------------------------------------------------------------------------------- 0658 065b | [ | .CONST 0x065b ; Address of begin 0659 0004 | | .CONST 0x0004 ; Address of exception handler 065a 0001 | | .CONST 0x0001 ; Number of locals 065b BODY_0658: 065b INIT_0658: 065b 00da | | Load_Top At_Offset_2 065c e5fe | | Load 0x2,-0x2 065d 027f | | Execute Discrete,Equal 065e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 065f 0000 | | .XXX[0x1] 0660 ; -------------------------------------------------------------------------------------- 0660 ; SUBPROGRAM 0660 ; -------------------------------------------------------------------------------------- 0660 0665 | e | .CONST 0x0665 ; Address of begin 0661 0004 | | .CONST 0x0004 ; Address of exception handler 0662 0002 | | .CONST 0x0002 ; Number of locals 0663 INIT_0660: 0663 00e3 | | Load_Encached Natural_Cache 0664 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0665 BODY_0660: 0665 00d8 | | Load_Top At_Offset_0 0666 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0667 0000 | | .XXX[0x1] 0668 ; -------------------------------------------------------------------------------------- 0668 ; SUBPROGRAM 0668 ; -------------------------------------------------------------------------------------- 0668 066b | k | .CONST 0x066b ; Address of begin 0669 0004 | | .CONST 0x0004 ; Address of exception handler 066a 0001 | | .CONST 0x0001 ; Number of locals 066b BODY_0668: 066b INIT_0668: 066b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 066c 0000 0000 | | .BLANK 0000[0x4] 0670 ; -------------------------------------------------------------------------------------- 0670 ; SUBPROGRAM 0670 ; -------------------------------------------------------------------------------------- 0670 0673 | s | .CONST 0x0673 ; Address of begin 0671 0004 | | .CONST 0x0004 ; Address of exception handler 0672 0001 | | .CONST 0x0001 ; Number of locals 0673 BODY_0670: 0673 INIT_0670: 0673 00da | | Load_Top At_Offset_2 0674 a5fd | | Store_Unchecked 0x2,-0x3 0675 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0676 0000 0000 | | .XXX[0x2] 0678 ; -------------------------------------------------------------------------------------- 0678 ; SUBPROGRAM 0678 ; -------------------------------------------------------------------------------------- 0678 068e | | .CONST 0x068e ; Address of begin 0679 0004 | | .CONST 0x0004 ; Address of exception handler 067a 0003 | | .CONST 0x0003 ; Number of locals 067b INIT_0678: 067b e011 | | Load 0x0,0x11 067c e21f | | Load 0x1,0x1f 067d 0098 | | Execute Package,Field_Read_Dynamic 067e 0322 | " | Declare_Variable Record 067f e402 | | Load 0x2,0x2 0680 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0681 00d9 | | Load_Top At_Offset_1 0682 017d | } | Execute Record,Structure_Write 0683 e011 | | Load 0x0,0x11 0684 e21f | | Load 0x1,0x1f 0685 0098 | | Execute Package,Field_Read_Dynamic 0686 0322 | " | Declare_Variable Record 0687 e402 | | Load 0x2,0x2 0688 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0689 e033 | 3 | Load 0x0,0x33 068a e21f | | Load 0x1,0x1f 068b 0096 | | Execute Package,Entry 068c 00d9 | | Load_Top At_Offset_1 068d 017d | } | Execute Record,Structure_Write 068e BODY_0678: 068e 00d8 | | Load_Top At_Offset_0 068f e5ff | | Load 0x2,-0x1 0690 e04d | M | Load 0x0,0x4d 0691 e21f | | Load 0x1,0x1f 0692 0096 | | Execute Package,Entry 0693 00d1 | | Pop_Control Pop_Count_1 0694 00d8 | | Load_Top At_Offset_0 0695 00da | | Load_Top At_Offset_2 0696 e04e | N | Load 0x0,0x4e 0697 e21f | | Load 0x1,0x1f 0698 0096 | | Execute Package,Entry 0699 00d1 | | Pop_Control Pop_Count_1 069a 00d8 | | Load_Top At_Offset_0 069b e402 | | Load 0x2,0x2 069c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 069d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 069e 0000 0000 | | .XXX[0x2] 06a0 ; -------------------------------------------------------------------------------------- 06a0 ; SUBPROGRAM 06a0 ; -------------------------------------------------------------------------------------- 06a0 06b6 | | .CONST 0x06b6 ; Address of begin 06a1 071a | | .CONST 0x071a ; Address of exception handler 06a2 0007 | | .CONST 0x0007 ; Number of locals 06a3 INIT_06a0: 06a3 e04f | O | Load 0x0,0x4f 06a4 0007 | | Action Break_Optional 06a5 e012 | | Load 0x0,0x12 06a6 0007 | | Action Break_Optional 06a7 e050 | P | Load 0x0,0x50 06a8 1b0f | | Execute Package,Field_Read,Field_Number 0xf 06a9 02c7 | | Declare_Variable Any 06aa 00d8 | | Load_Top At_Offset_0 06ab 1c00 | | Execute_Immediate Run_Utility,0x0 06ac e004 | | Load 0x0,0x4 06ad 0322 | " | Declare_Variable Record 06ae 00d8 | | Load_Top At_Offset_0 06af 1c00 | | Execute_Immediate Run_Utility,0x0 06b0 00d8 | | Load_Top At_Offset_0 06b1 0322 | " | Declare_Variable Record 06b2 00d8 | | Load_Top At_Offset_0 06b3 1c00 | | Execute_Immediate Run_Utility,0x0 06b4 029f 0803 | | Declare_Subprogram INIT_0800,For_Call 06b6 BODY_06a0: 06b6 e407 | | Load 0x2,0x7 06b7 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 06b8 8051 | Q | Call 0x0,0x51 06b9 a602 | | Store_Unchecked 0x3,0x2 06ba e407 | | Load 0x2,0x7 06bb 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 06bc e7ff | | Load 0x3,-0x1 06bd 00d8 | | Load_Top At_Offset_0 06be 00e4 | | Load_Encached Positive_Cache 06bf 0260 | ` | Execute Discrete,In_Type 06c0 7001 |p | Jump_Nonzero 0x6c2 06c1 0801 | | Execute_Immediate Raise,0x1 06c2 8238 | 8 | Call 0x1,0x38 06c3 00db | | Load_Top At_Offset_3 06c4 017d | } | Execute Record,Structure_Write 06c5 8607 | | Call 0x3,0x7 06c6 e602 | | Load 0x3,0x2 06c7 e603 | | Load 0x3,0x3 06c8 4800 |H | Short_Literal 0x0 06c9 8052 | R | Call 0x0,0x52 06ca c602 | | Store 0x3,0x2 06cb 00db | | Load_Top At_Offset_3 06cc e602 | | Load 0x3,0x2 06cd 8053 | S | Call 0x0,0x53 06ce c604 | | Store 0x3,0x4 06cf 4802 |H | Short_Literal 0x2 06d0 e603 | | Load 0x3,0x3 06d1 e604 | | Load 0x3,0x4 06d2 8054 | T | Call 0x0,0x54 06d3 e407 | | Load 0x2,0x7 06d4 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 06d5 e602 | | Load 0x3,0x2 06d6 8055 | U | Call 0x0,0x55 06d7 00da | | Load_Top At_Offset_2 06d8 017d | } | Execute Record,Structure_Write 06d9 e7ff | | Load 0x3,-0x1 06da 0f01 | | Execute_Immediate Equal,0x1 06db 6819 |h | Jump_Zero 0x6f5 06dc 00d9 | | Load_Top At_Offset_1 06dd e407 | | Load 0x2,0x7 06de 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 06df e056 | V | Load 0x0,0x56 06e0 e21f | | Load 0x1,0x1f 06e1 0096 | | Execute Package,Entry 06e2 e407 | | Load 0x2,0x7 06e3 00db | | Load_Top At_Offset_3 06e4 823a | : | Call 0x1,0x3a 06e5 00d1 | | Pop_Control Pop_Count_1 06e6 e407 | | Load 0x2,0x7 06e7 00da | | Load_Top At_Offset_2 06e8 8237 | 7 | Call 0x1,0x37 06e9 00d1 | | Pop_Control Pop_Count_1 06ea e5ff | | Load 0x2,-0x1 06eb e01a | | Load 0x0,0x1a 06ec e22c | , | Load 0x1,0x2c 06ed 0098 | | Execute Package,Field_Read_Dynamic 06ee 0216 | | Execute Heap_Access,Convert 06ef e407 | | Load 0x2,0x7 06f0 e02f | / | Load 0x0,0x2f 06f1 e22c | , | Load 0x1,0x2c 06f2 0096 | | Execute Package,Entry 06f3 c5ff | | Store 0x2,-0x1 06f4 7814 |x | Jump 0x709 06f5 e5ff | | Load 0x2,-0x1 06f6 e7ff | | Load 0x3,-0x1 06f7 00d8 | | Load_Top At_Offset_0 06f8 00e4 | | Load_Encached Positive_Cache 06f9 0260 | ` | Execute Discrete,In_Type 06fa 7001 |p | Jump_Nonzero 0x6fc 06fb 0801 | | Execute_Immediate Raise,0x1 06fc 8212 | | Call 0x1,0x12 06fd c5ff | | Store 0x2,-0x1 06fe e5ff | | Load 0x2,-0x1 06ff e7ff | | Load 0x3,-0x1 0700 0aff | | Execute_Immediate Plus,-0x1 0701 00d8 | | Load_Top At_Offset_0 0702 00e3 | | Load_Encached Natural_Cache 0703 0260 | ` | Execute Discrete,In_Type 0704 7001 |p | Jump_Nonzero 0x706 0705 0801 | | Execute_Immediate Raise,0x1 0706 00db | | Load_Top At_Offset_3 0707 8210 | | Call 0x1,0x10 0708 c5ff | | Store 0x2,-0x1 0709 e602 | | Load 0x3,0x2 070a 4800 |H | Short_Literal 0x0 070b 8057 | W | Call 0x0,0x57 070c c602 | | Store 0x3,0x2 070d e03b | ; | Load 0x0,0x3b 070e 180e | | Execute Package,Field_Execute,Field_Number 0xe 070f 4803 |H | Short_Literal 0x3 0710 e605 | | Load 0x3,0x5 0711 8058 | X | Call 0x0,0x58 0712 0092 08d6 | | Action Push_String_Extended,0x8d6 ; " updated in Test Set." 0714 01cc | | Execute Vector,Catenate 0715 e03c | < | Load 0x0,0x3c 0716 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0717 4801 |H | Short_Literal 0x1 0718 a40c | | Store_Unchecked 0x2,0xc 0719 4502 |E | Exit_Suprogram New_Top_Offset 0x2 071a TRAP_06a0: 071a 0007 | | Action Break_Optional 071b e03b | ; | Load 0x0,0x3b 071c 180e | | Execute Package,Field_Execute,Field_Number 0xe 071d 4805 |H | Short_Literal 0x5 071e e605 | | Load 0x3,0x5 071f 8058 | X | Call 0x0,0x58 0720 0092 08d7 | | Action Push_String_Extended,0x8d7 ; " not updated in Test Set." 0722 01cc | | Execute Vector,Catenate 0723 e03c | < | Load 0x0,0x3c 0724 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0725 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0726 0000 0000 | | .XXX[0x2] 0728 ; -------------------------------------------------------------------------------------- 0728 ; SUBPROGRAM 0728 ; -------------------------------------------------------------------------------------- 0728 0730 | 0 | .CONST 0x0730 ; Address of begin 0729 0004 | | .CONST 0x0004 ; Address of exception handler 072a 0002 | | .CONST 0x0002 ; Number of locals 072b INIT_0728: 072b 4800 |H | Short_Literal 0x0 072c e409 | | Load 0x2,0x9 072d 8059 | Y | Call 0x0,0x59 072e 00e1 | | Load_Encached Boolean_Cache 072f 03f1 | | Declare_Variable Discrete,With_Value 0730 BODY_0728: 0730 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0731 0000 0000 | | .BLANK 0000[0x7] 0738 ; -------------------------------------------------------------------------------------- 0738 ; SUBPROGRAM 0738 ; -------------------------------------------------------------------------------------- 0738 0743 | C | .CONST 0x0743 ; Address of begin 0739 0004 | | .CONST 0x0004 ; Address of exception handler 073a 0003 | | .CONST 0x0003 ; Number of locals 073b INIT_0738: 073b e05a | Z | Load 0x0,0x5a 073c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 073d e05b | [ | Load 0x0,0x5b 073e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 073f 4802 |H | Short_Literal 0x2 0740 805c | \ | Call 0x0,0x5c 0741 e5ff | | Load 0x2,-0x1 0742 8218 | | Call 0x1,0x18 0743 BODY_0738: 0743 00d9 | | Load_Top At_Offset_1 0744 e05d | ] | Load 0x0,0x5d 0745 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0746 00d9 | | Load_Top At_Offset_1 0747 e05d | ] | Load 0x0,0x5d 0748 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0749 01de | | Execute Vector,Not_Equal 074a 6812 |h | Jump_Zero 0x75d 074b e5ff | | Load 0x2,-0x1 074c 00da | | Load_Top At_Offset_2 074d 8219 | | Call 0x1,0x19 074e c5ff | | Store 0x2,-0x1 074f e03b | ; | Load 0x0,0x3b 0750 180e | | Execute Package,Field_Execute,Field_Number 0xe 0751 4806 |H | Short_Literal 0x6 0752 0092 08d8 | | Action Push_String_Extended,0x8d8 ; "Test_Set was constructed with " 0754 00db | | Load_Top At_Offset_3 0755 01cc | | Execute Vector,Catenate 0756 0092 08d9 | | Action Push_String_Extended,0x8d9 ; " and current Test_Case_Loc is " 0758 01cc | | Execute Vector,Catenate 0759 e602 | | Load 0x3,0x2 075a 01cc | | Execute Vector,Catenate 075b e03c | < | Load 0x0,0x3c 075c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 075d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 075e 0000 0000 | | .XXX[0x2] 0760 ; -------------------------------------------------------------------------------------- 0760 ; SUBPROGRAM 0760 ; -------------------------------------------------------------------------------------- 0760 0767 | g | .CONST 0x0767 ; Address of begin 0761 0004 | | .CONST 0x0004 ; Address of exception handler 0762 0002 | | .CONST 0x0002 ; Number of locals 0763 INIT_0760: 0763 e5ff | | Load 0x2,-0x1 0764 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0765 e5ff | | Load 0x2,-0x1 0766 823f | ? | Call 0x1,0x3f 0767 BODY_0760: 0767 e5ff | | Load 0x2,-0x1 0768 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0769 680c |h | Jump_Zero 0x776 076a e5ff | | Load 0x2,-0x1 076b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 076c e226 | & | Load 0x1,0x26 076d 011c | | Execute Any,Convert_Unchecked 076e 1c01 | | Execute_Immediate Run_Utility,0x1 076f 0092 08da | | Action Push_String_Extended,0x8da ; "=>(" 0771 01cc | | Execute Vector,Catenate 0772 00d9 | | Load_Top At_Offset_1 0773 01cc | | Execute Vector,Catenate 0774 00cb | | Action Pop_Block_With_Result 0775 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0776 00d8 | | Load_Top At_Offset_0 0777 00cb | | Action Pop_Block_With_Result 0778 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0779 0000 0000 | | .BLANK 0000[0x7] 0780 ; -------------------------------------------------------------------------------------- 0780 ; SUBPROGRAM 0780 ; -------------------------------------------------------------------------------------- 0780 078c | | .CONST 0x078c ; Address of begin 0781 0004 | | .CONST 0x0004 ; Address of exception handler 0782 0002 | | .CONST 0x0002 ; Number of locals 0783 INIT_0780: 0783 e05e | ^ | Load 0x0,0x5e 0784 0322 | " | Declare_Variable Record 0785 e5fe | | Load 0x2,-0x2 0786 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0787 4801 |H | Short_Literal 0x1 0788 e7fd | | Load 0x3,-0x3 0789 805f | _ | Call 0x0,0x5f 078a 00d9 | | Load_Top At_Offset_1 078b 017d | } | Execute Record,Structure_Write 078c BODY_0780: 078c e5fe | | Load 0x2,-0x2 078d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 078e e7ff | | Load 0x3,-0x1 078f 00da | | Load_Top At_Offset_2 0790 e7fe | | Load 0x3,-0x2 0791 8060 | ` | Call 0x0,0x60 0792 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0793 0000 0000 | | .BLANK 0000[0x5] 0798 ; -------------------------------------------------------------------------------------- 0798 ; SUBPROGRAM 0798 ; -------------------------------------------------------------------------------------- 0798 079d | | .CONST 0x079d ; Address of begin 0799 0004 | | .CONST 0x0004 ; Address of exception handler 079a 0002 | | .CONST 0x0002 ; Number of locals 079b INIT_0798: 079b e402 | | Load 0x2,0x2 079c 8038 | 8 | Call 0x0,0x38 079d BODY_0798: 079d e408 | | Load 0x2,0x8 079e 6811 |h | Jump_Zero 0x7b0 079f 00d8 | | Load_Top At_Offset_0 07a0 01db | | Execute Vector,Length 07a1 680d |h | Jump_Zero 0x7af 07a2 e5ff | | Load 0x2,-0x1 07a3 8043 | C | Call 0x0,0x43 07a4 e408 | | Load 0x2,0x8 07a5 e235 | 5 | Load 0x1,0x35 07a6 01d7 | | Execute Vector,Field_Read 07a7 8061 | a | Call 0x0,0x61 07a8 a403 | | Store_Unchecked 0x2,0x3 07a9 e403 | | Load 0x2,0x3 07aa 8038 | 8 | Call 0x0,0x38 07ab 8062 | b | Call 0x0,0x62 07ac e402 | | Load 0x2,0x2 07ad e408 | | Load 0x2,0x8 07ae 8404 | | Call 0x2,0x4 07af 4501 |E | Exit_Suprogram New_Top_Offset 0x1 07b0 e5ff | | Load 0x2,-0x1 07b1 8043 | C | Call 0x0,0x43 07b2 8063 | c | Call 0x0,0x63 07b3 701b |p | Jump_Nonzero 0x7cf 07b4 00d8 | | Load_Top At_Offset_0 07b5 01db | | Execute Vector,Length 07b6 7007 |p | Jump_Nonzero 0x7be 07b7 4801 |H | Short_Literal 0x1 07b8 4801 |H | Short_Literal 0x1 07b9 e5ff | | Load 0x2,-0x1 07ba 8043 | C | Call 0x0,0x43 07bb 4801 |H | Short_Literal 0x1 07bc 8044 | D | Call 0x0,0x44 07bd a402 | | Store_Unchecked 0x2,0x2 07be e402 | | Load 0x2,0x2 07bf 8038 | 8 | Call 0x0,0x38 07c0 01db | | Execute Vector,Length 07c1 680d |h | Jump_Zero 0x7cf 07c2 e5ff | | Load 0x2,-0x1 07c3 8043 | C | Call 0x0,0x43 07c4 e408 | | Load 0x2,0x8 07c5 e235 | 5 | Load 0x1,0x35 07c6 01d7 | | Execute Vector,Field_Read 07c7 8061 | a | Call 0x0,0x61 07c8 a403 | | Store_Unchecked 0x2,0x3 07c9 e403 | | Load 0x2,0x3 07ca 8038 | 8 | Call 0x0,0x38 07cb 8062 | b | Call 0x0,0x62 07cc e402 | | Load 0x2,0x2 07cd e408 | | Load 0x2,0x8 07ce 8404 | | Call 0x2,0x4 07cf 4501 |E | Exit_Suprogram New_Top_Offset 0x1 07d0 ; -------------------------------------------------------------------------------------- 07d0 ; SUBPROGRAM 07d0 ; -------------------------------------------------------------------------------------- 07d0 07d5 | | .CONST 0x07d5 ; Address of begin 07d1 0004 | | .CONST 0x0004 ; Address of exception handler 07d2 0002 | | .CONST 0x0002 ; Number of locals 07d3 INIT_07d0: 07d3 e402 | | Load 0x2,0x2 07d4 8038 | 8 | Call 0x0,0x38 07d5 BODY_07d0: 07d5 e406 | | Load 0x2,0x6 07d6 680a |h | Jump_Zero 0x7e1 07d7 00d8 | | Load_Top At_Offset_0 07d8 01db | | Execute Vector,Length 07d9 6806 |h | Jump_Zero 0x7e0 07da e5fe | | Load 0x2,-0x2 07db 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 07dc e406 | | Load 0x2,0x6 07dd e402 | | Load 0x2,0x2 07de 8064 | d | Call 0x0,0x64 07df 00d1 | | Pop_Control Pop_Count_1 07e0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 07e1 e5ff | | Load 0x2,-0x1 07e2 8043 | C | Call 0x0,0x43 07e3 8063 | c | Call 0x0,0x63 07e4 7014 |p | Jump_Nonzero 0x7f9 07e5 00d8 | | Load_Top At_Offset_0 07e6 01db | | Execute Vector,Length 07e7 7007 |p | Jump_Nonzero 0x7ef 07e8 4801 |H | Short_Literal 0x1 07e9 4801 |H | Short_Literal 0x1 07ea e5ff | | Load 0x2,-0x1 07eb 8043 | C | Call 0x0,0x43 07ec 4801 |H | Short_Literal 0x1 07ed 8044 | D | Call 0x0,0x44 07ee a402 | | Store_Unchecked 0x2,0x2 07ef e402 | | Load 0x2,0x2 07f0 8038 | 8 | Call 0x0,0x38 07f1 01db | | Execute Vector,Length 07f2 6806 |h | Jump_Zero 0x7f9 07f3 e5fe | | Load 0x2,-0x2 07f4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 07f5 e406 | | Load 0x2,0x6 07f6 e402 | | Load 0x2,0x2 07f7 8064 | d | Call 0x0,0x64 07f8 00d1 | | Pop_Control Pop_Count_1 07f9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 07fa 0000 0000 | | .BLANK 0000[0x6] 0800 ; -------------------------------------------------------------------------------------- 0800 ; SUBPROGRAM 0800 ; -------------------------------------------------------------------------------------- 0800 0809 | | .CONST 0x0809 ; Address of begin 0801 0004 | | .CONST 0x0004 ; Address of exception handler 0802 0002 | | .CONST 0x0002 ; Number of locals 0803 INIT_0800: 0803 e407 | | Load 0x2,0x7 0804 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0805 4802 |H | Short_Literal 0x2 0806 e605 | | Load 0x3,0x5 0807 8058 | X | Call 0x0,0x58 0808 8065 | e | Call 0x0,0x65 0809 BODY_0800: 0809 e407 | | Load 0x2,0x7 080a 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 080b 00d9 | | Load_Top At_Offset_1 080c 8039 | 9 | Call 0x0,0x39 080d a603 | | Store_Unchecked 0x3,0x3 080e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 080f 0000 | | .XXX[0x1] 0810 ; -------------------------------------------------------------------------------------- 0810 ; SUBPROGRAM 0810 ; -------------------------------------------------------------------------------------- 0810 0813 | | .CONST 0x0813 ; Address of begin 0811 0004 | | .CONST 0x0004 ; Address of exception handler 0812 0001 | | .CONST 0x0001 ; Number of locals 0813 BODY_0810: 0813 INIT_0810: 0813 4601 |F | Jump_Case 0x2 0814 7801 |x | Jump 0x816 ; case 0x0 0815 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0816 4800 |H | Short_Literal 0x0 0817 00db | | Load_Top At_Offset_3 0818 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0819 4800 |H | Short_Literal 0x0 081a 00db | | Load_Top At_Offset_3 081b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 081c 4801 |H | Short_Literal 0x1 081d 00db | | Load_Top At_Offset_3 081e 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 081f 00da | | Load_Top At_Offset_2 0820 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 0821 1c00 | | Execute_Immediate Run_Utility,0x0 0822 00da | | Load_Top At_Offset_2 0823 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 0824 1c00 | | Execute_Immediate Run_Utility,0x0 0825 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0826 0000 0000 | | .XXX[0x2] 0828 ; -------------------------------------------------------------------------------------- 0828 ; SUBPROGRAM 0828 ; -------------------------------------------------------------------------------------- 0828 0850 | P | .CONST 0x0850 ; Address of begin 0829 0004 | | .CONST 0x0004 ; Address of exception handler 082a 0015 | | .CONST 0x0015 ; Number of locals 082b INIT_0828: 082b 029a 085b | [| Declare_Subprogram INIT_0858,For_Outer_Call,Visible,Unelaborated 082d 029a 0863 | c| Declare_Subprogram INIT_0860,For_Outer_Call,Visible,Unelaborated 082f 029a 0873 | s| Declare_Subprogram INIT_0870,For_Outer_Call,Visible,Unelaborated 0831 029a 0883 | | Declare_Subprogram INIT_0880,For_Outer_Call,Visible,Unelaborated 0833 029a 088b | | Declare_Subprogram INIT_0888,For_Outer_Call,Visible,Unelaborated 0835 029a 089b | | Declare_Subprogram INIT_0898,For_Outer_Call,Visible,Unelaborated 0837 029a 08ab | | Declare_Subprogram INIT_08a8,For_Outer_Call,Visible,Unelaborated 0839 029a 08bb | | Declare_Subprogram INIT_08b8,For_Outer_Call,Visible,Unelaborated 083b 029a 08c3 | | Declare_Subprogram INIT_08c0,For_Outer_Call,Visible,Unelaborated 083d 00bf | | Action Accept_Activation 083e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 083f 00c7 | | Action Elaborate_Subprogram 0840 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0841 00c7 | | Action Elaborate_Subprogram 0842 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0843 00c7 | | Action Elaborate_Subprogram 0844 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0845 00c7 | | Action Elaborate_Subprogram 0846 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0847 00c7 | | Action Elaborate_Subprogram 0848 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0849 00c7 | | Action Elaborate_Subprogram 084a 1d13 | | Execute_Immediate Reference_Lex_1,0x13 084b 00c7 | | Action Elaborate_Subprogram 084c 1d14 | | Execute_Immediate Reference_Lex_1,0x14 084d 00c7 | | Action Elaborate_Subprogram 084e 1d15 | | Execute_Immediate Reference_Lex_1,0x15 084f 00c7 | | Action Elaborate_Subprogram 0850 BODY_0828: 0850 00bc | | Action Signal_Activated 0851 00bb | | Action Signal_Completion 0852 0000 0000 | | .BLANK 0000[0x6] 0858 ; -------------------------------------------------------------------------------------- 0858 ; SUBPROGRAM 0858 ; -------------------------------------------------------------------------------------- 0858 085b | [ | .CONST 0x085b ; Address of begin 0859 0004 | | .CONST 0x0004 ; Address of exception handler 085a 0001 | | .CONST 0x0001 ; Number of locals 085b BODY_0858: 085b INIT_0858: 085b 00db | | Load_Top At_Offset_3 085c 00db | | Load_Top At_Offset_3 085d 8001 | | Call 0x0,0x1 085e c5fe | | Store 0x2,-0x2 085f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0860 ; -------------------------------------------------------------------------------------- 0860 ; SUBPROGRAM 0860 ; -------------------------------------------------------------------------------------- 0860 0863 | c | .CONST 0x0863 ; Address of begin 0861 0004 | | .CONST 0x0004 ; Address of exception handler 0862 0001 | | .CONST 0x0001 ; Number of locals 0863 BODY_0860: 0863 INIT_0860: 0863 e5fd | | Load 0x2,-0x3 0864 e002 | | Load 0x0,0x2 0865 0216 | | Execute Heap_Access,Convert 0866 e5fe | | Load 0x2,-0x2 0867 e5ff | | Load 0x2,-0x1 0868 8003 | | Call 0x0,0x3 0869 c5fd | | Store 0x2,-0x3 086a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 086b 0000 0000 | | .BLANK 0000[0x5] 0870 ; -------------------------------------------------------------------------------------- 0870 ; SUBPROGRAM 0870 ; -------------------------------------------------------------------------------------- 0870 0873 | s | .CONST 0x0873 ; Address of begin 0871 0004 | | .CONST 0x0004 ; Address of exception handler 0872 0001 | | .CONST 0x0001 ; Number of locals 0873 BODY_0870: 0873 INIT_0870: 0873 00db | | Load_Top At_Offset_3 0874 e002 | | Load 0x0,0x2 0875 0216 | | Execute Heap_Access,Convert 0876 00db | | Load_Top At_Offset_3 0877 8004 | | Call 0x0,0x4 0878 c5fe | | Store 0x2,-0x2 0879 4502 |E | Exit_Suprogram New_Top_Offset 0x2 087a 0000 0000 | | .BLANK 0000[0x6] 0880 ; -------------------------------------------------------------------------------------- 0880 ; SUBPROGRAM 0880 ; -------------------------------------------------------------------------------------- 0880 0883 | | .CONST 0x0883 ; Address of begin 0881 0004 | | .CONST 0x0004 ; Address of exception handler 0882 0001 | | .CONST 0x0001 ; Number of locals 0883 BODY_0880: 0883 INIT_0880: 0883 00da | | Load_Top At_Offset_2 0884 8005 | | Call 0x0,0x5 0885 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0886 0000 0000 | | .XXX[0x2] 0888 ; -------------------------------------------------------------------------------------- 0888 ; SUBPROGRAM 0888 ; -------------------------------------------------------------------------------------- 0888 088b | | .CONST 0x088b ; Address of begin 0889 0004 | | .CONST 0x0004 ; Address of exception handler 088a 0001 | | .CONST 0x0001 ; Number of locals 088b BODY_0888: 088b INIT_0888: 088b 00da | | Load_Top At_Offset_2 088c e002 | | Load 0x0,0x2 088d 0216 | | Execute Heap_Access,Convert 088e 8006 | | Call 0x0,0x6 088f 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0890 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0891 0000 0000 | | .BLANK 0000[0x7] 0898 ; -------------------------------------------------------------------------------------- 0898 ; SUBPROGRAM 0898 ; -------------------------------------------------------------------------------------- 0898 089b | | .CONST 0x089b ; Address of begin 0899 0004 | | .CONST 0x0004 ; Address of exception handler 089a 0001 | | .CONST 0x0001 ; Number of locals 089b BODY_0898: 089b INIT_0898: 089b 00db | | Load_Top At_Offset_3 089c e002 | | Load 0x0,0x2 089d 0216 | | Execute Heap_Access,Convert 089e 00db | | Load_Top At_Offset_3 089f 8007 | | Call 0x0,0x7 08a0 c5fe | | Store 0x2,-0x2 08a1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 08a2 0000 0000 | | .BLANK 0000[0x6] 08a8 ; -------------------------------------------------------------------------------------- 08a8 ; SUBPROGRAM 08a8 ; -------------------------------------------------------------------------------------- 08a8 08ab | | .CONST 0x08ab ; Address of begin 08a9 0004 | | .CONST 0x0004 ; Address of exception handler 08aa 0001 | | .CONST 0x0001 ; Number of locals 08ab BODY_08a8: 08ab INIT_08a8: 08ab 00db | | Load_Top At_Offset_3 08ac e002 | | Load 0x0,0x2 08ad 0216 | | Execute Heap_Access,Convert 08ae 00db | | Load_Top At_Offset_3 08af 8008 | | Call 0x0,0x8 08b0 c5fe | | Store 0x2,-0x2 08b1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 08b2 0000 0000 | | .BLANK 0000[0x6] 08b8 ; -------------------------------------------------------------------------------------- 08b8 ; SUBPROGRAM 08b8 ; -------------------------------------------------------------------------------------- 08b8 08bb | | .CONST 0x08bb ; Address of begin 08b9 0004 | | .CONST 0x0004 ; Address of exception handler 08ba 0001 | | .CONST 0x0001 ; Number of locals 08bb BODY_08b8: 08bb INIT_08b8: 08bb 00da | | Load_Top At_Offset_2 08bc 8009 | | Call 0x0,0x9 08bd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08be 0000 0000 | | .XXX[0x2] 08c0 ; -------------------------------------------------------------------------------------- 08c0 ; SUBPROGRAM 08c0 ; -------------------------------------------------------------------------------------- 08c0 08c3 | | .CONST 0x08c3 ; Address of begin 08c1 0004 | | .CONST 0x0004 ; Address of exception handler 08c2 0001 | | .CONST 0x0001 ; Number of locals 08c3 BODY_08c0: 08c3 INIT_08c0: 08c3 00db | | Load_Top At_Offset_3 08c4 e002 | | Load 0x0,0x2 08c5 0216 | | Execute Heap_Access,Convert 08c6 00db | | Load_Top At_Offset_3 08c7 800a | | Call 0x0,0xa 08c8 c5fe | | Store 0x2,-0x2 08c9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 08ca ; -------------------------------------------------------------------------------------- 08ca ; STRING TABLE 08ca ; -------------------------------------------------------------------------------------- 08ca 0024 | $ | .STRTAB 0x0024->0x08dc ; "NONE" 08cb 0026 | & | .STRTAB 0x0026->0x08de ; "SUMMARY" 08cc 002b | + | .STRTAB 0x002b->0x08e1 ; "ELEMENTS" 08cd 0031 | 1 | .STRTAB 0x0031->0x08e5 ; "CONTEXT" 08ce 0036 | 6 | .STRTAB 0x0036->0x08e9 ; "others => Unspecified" 08cf 0049 | I | .STRTAB 0x0049->0x08f3 ; " updated." 08d0 0050 | P | .STRTAB 0x0050->0x08f8 ; "Update of " 08d1 0058 | X | .STRTAB 0x0058->0x08fd ; " failed." 08d2 005e | ^ | .STRTAB 0x005e->0x0901 ; "The Test Set " 08d3 0069 | i | .STRTAB 0x0069->0x0907 ; " is consistent." 08d4 0076 | v | .STRTAB 0x0076->0x090f ; "=>" 08d5 0076 | v | .STRTAB 0x0076->0x0910 ; ")" 08d6 0075 | u | .STRTAB 0x0075->0x0910 ; " updated in Test Set." 08d7 0088 | | .STRTAB 0x0088->0x091b ; " not updated in Test Set." 08d8 009f | | .STRTAB 0x009f->0x0927 ; "Test_Set was constructed with " 08d9 00bb | | .STRTAB 0x00bb->0x0936 ; " and current Test_Case_Loc is " 08da 00d8 | | .STRTAB 0x00d8->0x0946 ; "=>(" 08db 00d9 | | .STREND 0x00d9->0x0947 08dc 4e4f 4e45 |NONE| .STRTAB_STRINGS 0948 ; -------------------------------------------------------------------------------------- 0948 ; Debug Table 0948 ; -------------------------------------------------------------------------------------- 0948 0004 000a | | .DEBUG4 0x0004,0x000a,0x2376,0x0000,0x0001,0x0000 094e 0000 0000 | | .BLANK 0000[0xb2]