|
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: 4096 (0x1000) Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0b849f
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 05a8 | | .CONST 0x05a8 ; 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 0003 | | .CONST 0x0003 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 007c | | | .CONST 0x007c ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0024 | $ | .CONST 0x0024 ; Number of locals 000b INIT_0008: 000b 0093 0000 | | push_full_address 0x0 000d 607e |`~ | Indirect_Literal Discrete,0x8c,{0x80000000, 0x00020000} 000e 0273 | s | Execute Discrete,Plus 000f e002 | | Load 0x0,0x2 0010 0273 | s | Execute Discrete,Plus 0011 e003 | | Load 0x0,0x3 0012 0273 | s | Execute Discrete,Plus 0013 e004 | | Load 0x0,0x4 0014 e005 | | Load 0x0,0x5 0015 0386 | | Declare_Variable Package,Visible 0016 00d8 | | Load_Top At_Offset_0 0017 020f | | Execute Module,Activate 0018 0093 0000 | | push_full_address 0x0 001a 606d |`m | Indirect_Literal Discrete,0x88,{0x80000000, 0x00010000} 001b 0273 | s | Execute Discrete,Plus 001c e002 | | Load 0x0,0x2 001d 0273 | s | Execute Discrete,Plus 001e e006 | | Load 0x0,0x6 001f 0273 | s | Execute Discrete,Plus 0020 e007 | | Load 0x0,0x7 0021 e005 | | Load 0x0,0x5 0022 0386 | | Declare_Variable Package,Visible 0023 00d8 | | Load_Top At_Offset_0 0024 020f | | Execute Module,Activate 0025 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated 0027 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 0029 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated 002b 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated 002d 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated 002f 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 0031 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated 0033 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated 0035 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated 0037 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated 0039 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated 003b 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated 003d 029a 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call,Visible,Unelaborated 003f 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated 0041 029a 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call,Visible,Unelaborated 0043 029a 03a3 | | Declare_Subprogram INIT_03a0,For_Outer_Call,Visible,Unelaborated 0045 029a 03f3 | | Declare_Subprogram INIT_03f0,For_Outer_Call,Visible,Unelaborated 0047 029a 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call,Visible,Unelaborated 0049 029a 04c3 | | Declare_Subprogram INIT_04c0,For_Outer_Call,Visible,Unelaborated 004b e008 | | Load 0x0,0x8 004c e20d | | Load 0x1,0xd 004d 0098 | | Execute Package,Field_Read_Dynamic 004e 02a0 | | Declare_Subprogram Null_Subprogram 004f 4801 |H | Short_Literal 0x1 0050 032e | . | Declare_Type Record,Defined,Visible 0051 00bf | | Action Accept_Activation 0052 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0053 00c7 | | Action Elaborate_Subprogram 0054 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0055 00c7 | | Action Elaborate_Subprogram 0056 029d 0513 | | Declare_Subprogram INIT_0510,For_Outer_Call 0058 029d 051b | | Declare_Subprogram INIT_0518,For_Outer_Call 005a 1d11 | | Execute_Immediate Reference_Lex_1,0x11 005b 00c7 | | Action Elaborate_Subprogram 005c 1d12 | | Execute_Immediate Reference_Lex_1,0x12 005d 00c7 | | Action Elaborate_Subprogram 005e 1d13 | | Execute_Immediate Reference_Lex_1,0x13 005f 00c7 | | Action Elaborate_Subprogram 0060 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0061 00c7 | | Action Elaborate_Subprogram 0062 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0063 00c7 | | Action Elaborate_Subprogram 0064 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0065 00c7 | | Action Elaborate_Subprogram 0066 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0067 00c7 | | Action Elaborate_Subprogram 0068 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0069 00c7 | | Action Elaborate_Subprogram 006a 1d19 | | Execute_Immediate Reference_Lex_1,0x19 006b 00c7 | | Action Elaborate_Subprogram 006c 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 006d 00c7 | | Action Elaborate_Subprogram 006e 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 006f 00c7 | | Action Elaborate_Subprogram 0070 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0071 00c7 | | Action Elaborate_Subprogram 0072 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0073 00c7 | | Action Elaborate_Subprogram 0074 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0075 00c7 | | Action Elaborate_Subprogram 0076 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0077 00c7 | | Action Elaborate_Subprogram 0078 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0079 00c7 | | Action Elaborate_Subprogram 007a 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 007b 00c7 | | Action Elaborate_Subprogram 007c BODY_0008: 007c 00bc | | Action Signal_Activated 007d 00bb | | Action Signal_Completion 007e 0000 0000 | | .XXX[0x2] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0083 | | .CONST 0x0083 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0001 | | .CONST 0x0001 ; Number of locals 0083 BODY_0080: 0083 INIT_0080: 0083 e009 | | Load 0x0,0x9 0084 00ca | | Action Exit_Nullary_Function 0085 0000 0000 | | .XXX[0x3] 0087 0000 | | 0088 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 008c 8000 0000 | | .LITERAL {0x80000000, 0x00020000} 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0093 | | .CONST 0x0093 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0001 | | .CONST 0x0001 ; Number of locals 0093 BODY_0090: 0093 INIT_0090: 0093 00da | | Load_Top At_Offset_2 0094 e5fe | | Load 0x2,-0x2 0095 01df | | Execute Vector,Equal 0096 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0097 0000 | | .XXX[0x1] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 00a7 | | .CONST 0x00a7 ; Address of begin 0099 00a9 | | .CONST 0x00a9 ; Address of exception handler 009a 0004 | | .CONST 0x0004 ; Number of locals 009b INIT_0098: 009b e00a | | Load 0x0,0xa 009c e20d | | Load 0x1,0xd 009d 0098 | | Execute Package,Field_Read_Dynamic 009e 0007 | | Action Break_Optional 009f 6010 |` | Indirect_Literal Discrete,0xb0,{0x00000000, 0x00000400} 00a0 e00b | | Load 0x0,0xb 00a1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00a2 1c08 | | Execute_Immediate Run_Utility,0x8 00a3 00d8 | | Load_Top At_Offset_0 00a4 1c00 | | Execute_Immediate Run_Utility,0x0 00a5 029f 0523 | #| Declare_Subprogram INIT_0520,For_Call 00a7 BODY_0098: 00a7 8404 | | Call 0x2,0x4 00a8 0831 | 1 | Execute_Immediate Raise,0x31 00a9 TRAP_0098: 00a9 010e | | Execute Exception,Is_Constraint_Error 00aa 6804 |h | Jump_Zero 0xaf 00ab 0092 055d | ]| Action Push_String_Extended,0x55d ; "object_manager.image =>size of bounded string to short" 00ad 800c | | Call 0x0,0xc 00ae 0831 | 1 | Execute_Immediate Raise,0x31 00af 0100 | | Execute Exception,Raise 00b0 0000 0000 | | .LITERAL {0x00000000, 0x00000400} 00b4 0000 0000 | | .BLANK 0000[0x4] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00c7 | | .CONST 0x00c7 ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0004 | | .CONST 0x0004 ; Number of locals 00bb INIT_00b8: 00bb e00a | | Load 0x0,0xa 00bc e20d | | Load 0x1,0xd 00bd 0098 | | Execute Package,Field_Read_Dynamic 00be 0007 | | Action Break_Optional 00bf e00d | | Load 0x0,0xd 00c0 02ff | | Declare_Variable Variant_Record 00c1 00d8 | | Load_Top At_Offset_0 00c2 1c00 | | Execute_Immediate Run_Utility,0x0 00c3 e004 | | Load 0x0,0x4 00c4 0322 | " | Declare_Variable Record 00c5 00d8 | | Load_Top At_Offset_0 00c6 1c00 | | Execute_Immediate Run_Utility,0x0 00c7 BODY_00b8: 00c7 e5ff | | Load 0x2,-0x1 00c8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00c9 e00e | | Load 0x0,0xe 00ca e20d | | Load 0x1,0xd 00cb 0096 | | Execute Package,Entry 00cc 7026 |p& | Jump_Nonzero 0xf3 00cd e00a | | Load 0x0,0xa 00ce e20d | | Load 0x1,0xd 00cf 0098 | | Execute Package,Field_Read_Dynamic 00d0 e5ff | | Load 0x2,-0x1 00d1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00d2 e00f | | Load 0x0,0xf 00d3 e20d | | Load 0x1,0xd 00d4 0096 | | Execute Package,Entry 00d5 003b | ; | Store_Top Access,At_Offset_3 00d6 00cf | | Action Mark_Auxiliary 00d7 7813 |x | Jump 0xeb 00d8 00db | | Load_Top At_Offset_3 00d9 e010 | | Load 0x0,0x10 00da e20d | | Load 0x1,0xd 00db 0096 | | Execute Package,Entry 00dc 00da | | Load_Top At_Offset_2 00dd 017d | } | Execute Record,Structure_Write 00de 00d9 | | Load_Top At_Offset_1 00df 8011 | | Call 0x0,0x11 00e0 e5fe | | Load 0x2,-0x2 00e1 01df | | Execute Vector,Equal 00e2 6802 |h | Jump_Zero 0xe5 00e3 00d9 | | Load_Top At_Offset_1 00e4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00e5 00db | | Load_Top At_Offset_3 00e6 e012 | | Load 0x0,0x12 00e7 e20d | | Load 0x1,0xd 00e8 0096 | | Execute Package,Entry 00e9 c402 | | Store 0x2,0x2 00ea 00c9 | | Action Pop_Auxiliary_Loop 00eb 00db | | Load_Top At_Offset_3 00ec e013 | | Load 0x0,0x13 00ed e20d | | Load 0x1,0xd 00ee 0096 | | Execute Package,Entry 00ef 6fe8 |o | Jump_Zero 0xd8 00f0 00ce | | Action Pop_Auxiliary 00f1 8014 | | Call 0x0,0x14 00f2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00f3 0831 | 1 | Execute_Immediate Raise,0x31 00f4 0000 0000 | | .BLANK 0000[0x4] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 010b | | .CONST 0x010b ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0005 | | .CONST 0x0005 ; Number of locals 00fb INIT_00f8: 00fb e00a | | Load 0x0,0xa 00fc e20d | | Load 0x1,0xd 00fd 0098 | | Execute Package,Field_Read_Dynamic 00fe 0007 | | Action Break_Optional 00ff e008 | | Load 0x0,0x8 0100 e20e | | Load 0x1,0xe 0101 0098 | | Execute Package,Field_Read_Dynamic 0102 0007 | | Action Break_Optional 0103 e00d | | Load 0x0,0xd 0104 02ff | | Declare_Variable Variant_Record 0105 00d8 | | Load_Top At_Offset_0 0106 1c00 | | Execute_Immediate Run_Utility,0x0 0107 e004 | | Load 0x0,0x4 0108 0322 | " | Declare_Variable Record 0109 00d8 | | Load_Top At_Offset_0 010a 1c00 | | Execute_Immediate Run_Utility,0x0 010b BODY_00f8: 010b e015 | | Load 0x0,0x15 010c e20e | | Load 0x1,0xe 010d 0096 | | Execute Package,Entry 010e 003b | ; | Store_Top Access,At_Offset_3 010f e5ff | | Load 0x2,-0x1 0110 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0111 e00e | | Load 0x0,0xe 0112 e20d | | Load 0x1,0xd 0113 0096 | | Execute Package,Entry 0114 7033 |p3 | Jump_Nonzero 0x148 0115 e00a | | Load 0x0,0xa 0116 e20d | | Load 0x1,0xd 0117 0098 | | Execute Package,Field_Read_Dynamic 0118 e5ff | | Load 0x2,-0x1 0119 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 011a e00f | | Load 0x0,0xf 011b e20d | | Load 0x1,0xd 011c 0096 | | Execute Package,Entry 011d c402 | | Store 0x2,0x2 011e 00cf | | Action Mark_Auxiliary 011f 7820 |x | Jump 0x140 0120 e402 | | Load 0x2,0x2 0121 e010 | | Load 0x0,0x10 0122 e20d | | Load 0x1,0xd 0123 0096 | | Execute Package,Entry 0124 00da | | Load_Top At_Offset_2 0125 017d | } | Execute Record,Structure_Write 0126 00d9 | | Load_Top At_Offset_1 0127 8016 | | Call 0x0,0x16 0128 e00b | | Load 0x0,0xb 0129 1813 | | Execute Package,Field_Execute,Field_Number 0x13 012a e5fe | | Load 0x2,-0x2 012b e00b | | Load 0x0,0xb 012c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 012d 01df | | Execute Vector,Equal 012e e5fd | | Load 0x2,-0x3 012f 00db | | Load_Top At_Offset_3 0130 8017 | | Call 0x0,0x17 0131 0279 | y | Execute Discrete,And 0132 6807 |h | Jump_Zero 0x13a 0133 00db | | Load_Top At_Offset_3 0134 00da | | Load_Top At_Offset_2 0135 8011 | | Call 0x0,0x11 0136 e018 | | Load 0x0,0x18 0137 e20e | | Load 0x1,0xe 0138 0096 | | Execute Package,Entry 0139 a403 | | Store_Unchecked 0x2,0x3 013a e402 | | Load 0x2,0x2 013b e012 | | Load 0x0,0x12 013c e20d | | Load 0x1,0xd 013d 0096 | | Execute Package,Entry 013e c402 | | Store 0x2,0x2 013f 00c9 | | Action Pop_Auxiliary_Loop 0140 e402 | | Load 0x2,0x2 0141 e013 | | Load 0x0,0x13 0142 e20d | | Load 0x1,0xd 0143 0096 | | Execute Package,Entry 0144 6fdb |o | Jump_Zero 0x120 0145 00ce | | Action Pop_Auxiliary 0146 00da | | Load_Top At_Offset_2 0147 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0148 0831 | 1 | Execute_Immediate Raise,0x31 0149 0000 0000 | | .BLANK 0000[0x7] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 015f | _ | .CONST 0x015f ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0004 | | .CONST 0x0004 ; Number of locals 0153 INIT_0150: 0153 e00a | | Load 0x0,0xa 0154 e20d | | Load 0x1,0xd 0155 0098 | | Execute Package,Field_Read_Dynamic 0156 0007 | | Action Break_Optional 0157 e00d | | Load 0x0,0xd 0158 02ff | | Declare_Variable Variant_Record 0159 00d8 | | Load_Top At_Offset_0 015a 1c00 | | Execute_Immediate Run_Utility,0x0 015b e004 | | Load 0x0,0x4 015c 0322 | " | Declare_Variable Record 015d 00d8 | | Load_Top At_Offset_0 015e 1c00 | | Execute_Immediate Run_Utility,0x0 015f BODY_0150: 015f e5ff | | Load 0x2,-0x1 0160 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0161 e00e | | Load 0x0,0xe 0162 e20d | | Load 0x1,0xd 0163 0096 | | Execute Package,Entry 0164 7029 |p) | Jump_Nonzero 0x18e 0165 e00a | | Load 0x0,0xa 0166 e20d | | Load 0x1,0xd 0167 0098 | | Execute Package,Field_Read_Dynamic 0168 e5ff | | Load 0x2,-0x1 0169 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 016a e00f | | Load 0x0,0xf 016b e20d | | Load 0x1,0xd 016c 0096 | | Execute Package,Entry 016d 003b | ; | Store_Top Access,At_Offset_3 016e 00cf | | Action Mark_Auxiliary 016f 7818 |x | Jump 0x188 0170 00db | | Load_Top At_Offset_3 0171 e010 | | Load 0x0,0x10 0172 e20d | | Load 0x1,0xd 0173 0096 | | Execute Package,Entry 0174 00da | | Load_Top At_Offset_2 0175 017d | } | Execute Record,Structure_Write 0176 00d9 | | Load_Top At_Offset_1 0177 8011 | | Call 0x0,0x11 0178 e5fe | | Load 0x2,-0x2 0179 01df | | Execute Vector,Equal 017a e5fd | | Load 0x2,-0x3 017b 00db | | Load_Top At_Offset_3 017c 8017 | | Call 0x0,0x17 017d 0279 | y | Execute Discrete,And 017e 6803 |h | Jump_Zero 0x182 017f 00d9 | | Load_Top At_Offset_1 0180 8011 | | Call 0x0,0x11 0181 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0182 00db | | Load_Top At_Offset_3 0183 e012 | | Load 0x0,0x12 0184 e20d | | Load 0x1,0xd 0185 0096 | | Execute Package,Entry 0186 c402 | | Store 0x2,0x2 0187 00c9 | | Action Pop_Auxiliary_Loop 0188 00db | | Load_Top At_Offset_3 0189 e013 | | Load 0x0,0x13 018a e20d | | Load 0x1,0xd 018b 0096 | | Execute Package,Entry 018c 6fe3 |o | Jump_Zero 0x170 018d 00ce | | Action Pop_Auxiliary 018e e019 | | Load 0x0,0x19 018f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 01b2 | | .CONST 0x01b2 ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 000a | | .CONST 0x000a ; Number of locals 0193 INIT_0190: 0193 e01a | | Load 0x0,0x1a 0194 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0195 e01a | | Load 0x0,0x1a 0196 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0197 e004 | | Load 0x0,0x4 0198 0322 | " | Declare_Variable Record 0199 00d8 | | Load_Top At_Offset_0 019a 1c00 | | Execute_Immediate Run_Utility,0x0 019b e00d | | Load 0x0,0xd 019c 02ff | | Declare_Variable Variant_Record 019d 00d8 | | Load_Top At_Offset_0 019e 1c00 | | Execute_Immediate Run_Utility,0x0 019f 4801 |H | Short_Literal 0x1 01a0 4802 |H | Short_Literal 0x2 01a1 e01b | | Load 0x0,0x1b 01a2 1b15 | | Execute Package,Field_Read,Field_Number 0x15 01a3 035b | [ | Declare_Type Array,Constrained 01a4 0337 | 7 | Declare_Variable Array 01a5 4801 |H | Short_Literal 0x1 01a6 4804 |H | Short_Literal 0x4 01a7 e01b | | Load 0x0,0x1b 01a8 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01a9 035b | [ | Declare_Type Array,Constrained 01aa 0337 | 7 | Declare_Variable Array 01ab e01c | | Load 0x0,0x1c 01ac 0322 | " | Declare_Variable Record 01ad 00d8 | | Load_Top At_Offset_0 01ae 1c00 | | Execute_Immediate Run_Utility,0x0 01af e007 | | Load 0x0,0x7 01b0 0337 | 7 | Declare_Variable Array 01b1 00e1 | | Load_Encached Boolean_Cache 01b2 BODY_0190: 01b2 e5ff | | Load 0x2,-0x1 01b3 801d | | Call 0x0,0x1d 01b4 a402 | | Store_Unchecked 0x2,0x2 01b5 e01a | | Load 0x0,0x1a 01b6 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 01b7 e402 | | Load 0x2,0x2 01b8 e01a | | Load 0x0,0x1a 01b9 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01ba c403 | | Store 0x2,0x3 01bb e403 | | Load 0x2,0x3 01bc e01a | | Load 0x0,0x1a 01bd 181d | | Execute Package,Field_Execute,Field_Number 0x1d 01be e405 | | Load 0x2,0x5 01bf 016d | m | Execute Variant_Record,Structure_Write 01c0 e5ff | | Load 0x2,-0x1 01c1 801e | | Call 0x0,0x1e 01c2 8223 | # | Call 0x1,0x23 01c3 e406 | | Load 0x2,0x6 01c4 01d4 | | Execute Vector,Structure_Write 01c5 e5ff | | Load 0x2,-0x1 01c6 801e | | Call 0x0,0x1e 01c7 8224 | $ | Call 0x1,0x24 01c8 e407 | | Load 0x2,0x7 01c9 01d4 | | Execute Vector,Structure_Write 01ca 00e1 | | Load_Encached Boolean_Cache 01cb e404 | | Load 0x2,0x4 01cc e407 | | Load 0x2,0x7 01cd e406 | | Load 0x2,0x6 01ce e405 | | Load 0x2,0x5 01cf 801f | | Call 0x0,0x1f 01d0 00d1 | | Pop_Control Pop_Count_1 01d1 0059 | Y | Store_Top Discrete,At_Offset_1 01d2 e404 | | Load 0x2,0x4 01d3 8011 | | Call 0x0,0x11 01d4 00da | | Load_Top At_Offset_2 01d5 01d4 | | Execute Vector,Structure_Write 01d6 e5fc | | Load 0x2,-0x4 01d7 e01a | | Load 0x0,0x1a 01d8 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01d9 e5ff | | Load 0x2,-0x1 01da 8020 | | Call 0x0,0x20 01db e5ff | | Load 0x2,-0x1 01dc 8021 | ! | Call 0x0,0x21 01dd e409 | | Load 0x2,0x9 01de e019 | | Load 0x0,0x19 01df 8022 | " | Call 0x0,0x22 01e0 00d1 | | Pop_Control Pop_Count_1 01e1 00d9 | | Load_Top At_Offset_1 01e2 e5fd | | Load 0x2,-0x3 01e3 01d4 | | Execute Vector,Structure_Write 01e4 e5fe | | Load 0x2,-0x2 01e5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01e6 e404 | | Load 0x2,0x4 01e7 e018 | | Load 0x0,0x18 01e8 e20d | | Load 0x1,0xd 01e9 0096 | | Execute Package,Entry 01ea e5fe | | Load 0x2,-0x2 01eb 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01ec 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01ed 0000 0000 | | .XXX[0x3] 01ef 0000 | | 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01fd | | .CONST 0x01fd ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0004 | | .CONST 0x0004 ; Number of locals 01f3 INIT_01f0: 01f3 e004 | | Load 0x0,0x4 01f4 0322 | " | Declare_Variable Record 01f5 00d8 | | Load_Top At_Offset_0 01f6 1c00 | | Execute_Immediate Run_Utility,0x0 01f7 e01c | | Load 0x0,0x1c 01f8 0322 | " | Declare_Variable Record 01f9 00d8 | | Load_Top At_Offset_0 01fa 1c00 | | Execute_Immediate Run_Utility,0x0 01fb e007 | | Load 0x0,0x7 01fc 0337 | 7 | Declare_Variable Array 01fd BODY_01f0: 01fd e5fe | | Load 0x2,-0x2 01fe e5ff | | Load 0x2,-0x1 01ff 8212 | | Call 0x1,0x12 0200 00db | | Load_Top At_Offset_3 0201 017d | } | Execute Record,Structure_Write 0202 00da | | Load_Top At_Offset_2 0203 8023 | # | Call 0x0,0x23 0204 00da | | Load_Top At_Offset_2 0205 017d | } | Execute Record,Structure_Write 0206 00d9 | | Load_Top At_Offset_1 0207 e5fd | | Load 0x2,-0x3 0208 8024 | $ | Call 0x0,0x24 0209 00d2 | | Pop_Control Pop_Count_2 020a 4801 |H | Short_Literal 0x1 020b 4806 |H | Short_Literal 0x6 020c e025 | % | Load 0x0,0x25 020d 01cf | | Execute Vector,Slice_Read 020e e026 | & | Load 0x0,0x26 020f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0210 e007 | | Load 0x0,0x7 0211 01c7 | | Execute Vector,Convert 0212 00d9 | | Load_Top At_Offset_1 0213 01d4 | | Execute Vector,Structure_Write 0214 00d8 | | Load_Top At_Offset_0 0215 e5fd | | Load 0x2,-0x3 0216 801e | | Call 0x0,0x1e 0217 8210 | | Call 0x1,0x10 0218 6803 |h | Jump_Zero 0x21c 0219 4800 |H | Short_Literal 0x0 021a a5fc | | Store_Unchecked 0x2,-0x4 021b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 021c 4801 |H | Short_Literal 0x1 021d a5fc | | Store_Unchecked 0x2,-0x4 021e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 021f 0000 | | .XXX[0x1] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0227 | ' | .CONST 0x0227 ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0002 | | .CONST 0x0002 ; Number of locals 0223 INIT_0220: 0223 e004 | | Load 0x0,0x4 0224 0322 | " | Declare_Variable Record 0225 00d8 | | Load_Top At_Offset_0 0226 1c00 | | Execute_Immediate Run_Utility,0x0 0227 BODY_0220: 0227 e5fe | | Load 0x2,-0x2 0228 e5ff | | Load 0x2,-0x1 0229 8212 | | Call 0x1,0x12 022a 00d9 | | Load_Top At_Offset_1 022b 017d | } | Execute Record,Structure_Write 022c 00d8 | | Load_Top At_Offset_0 022d 8027 | ' | Call 0x0,0x27 022e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 022f 0000 | | .XXX[0x1] 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 023b | ; | .CONST 0x023b ; Address of begin 0231 0004 | | .CONST 0x0004 ; Address of exception handler 0232 0003 | | .CONST 0x0003 ; Number of locals 0233 INIT_0230: 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 e004 | | Load 0x0,0x4 0238 0322 | " | Declare_Variable Record 0239 00d8 | | Load_Top At_Offset_0 023a 1c00 | | Execute_Immediate Run_Utility,0x0 023b BODY_0230: 023b e5ff | | Load 0x2,-0x1 023c e5fe | | Load 0x2,-0x2 023d 8212 | | Call 0x1,0x12 023e 00da | | Load_Top At_Offset_2 023f 017d | } | Execute Record,Structure_Write 0240 e5ff | | Load 0x2,-0x1 0241 e5fe | | Load 0x2,-0x2 0242 8212 | | Call 0x1,0x12 0243 00d9 | | Load_Top At_Offset_1 0244 017d | } | Execute Record,Structure_Write 0245 00d9 | | Load_Top At_Offset_1 0246 8028 | ( | Call 0x0,0x28 0247 00d1 | | Pop_Control Pop_Count_1 0248 e5fe | | Load 0x2,-0x2 0249 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 024a 00d9 | | Load_Top At_Offset_1 024b e029 | ) | Load 0x0,0x29 024c e20d | | Load 0x1,0xd 024d 0096 | | Execute Package,Entry 024e e5fe | | Load 0x2,-0x2 024f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0250 00d9 | | Load_Top At_Offset_1 0251 e5fe | | Load 0x2,-0x2 0252 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0253 e02a | * | Load 0x0,0x2a 0254 e20d | | Load 0x1,0xd 0255 0096 | | Execute Package,Entry 0256 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0257 0000 | | .XXX[0x1] 0258 ; -------------------------------------------------------------------------------------- 0258 ; SUBPROGRAM 0258 ; -------------------------------------------------------------------------------------- 0258 0263 | c | .CONST 0x0263 ; Address of begin 0259 0004 | | .CONST 0x0004 ; Address of exception handler 025a 0003 | | .CONST 0x0003 ; Number of locals 025b INIT_0258: 025b e004 | | Load 0x0,0x4 025c 0322 | " | Declare_Variable Record 025d 00d8 | | Load_Top At_Offset_0 025e 1c00 | | Execute_Immediate Run_Utility,0x0 025f e004 | | Load 0x0,0x4 0260 0322 | " | Declare_Variable Record 0261 00d8 | | Load_Top At_Offset_0 0262 1c00 | | Execute_Immediate Run_Utility,0x0 0263 BODY_0258: 0263 e5ff | | Load 0x2,-0x1 0264 e5fe | | Load 0x2,-0x2 0265 8212 | | Call 0x1,0x12 0266 00da | | Load_Top At_Offset_2 0267 017d | } | Execute Record,Structure_Write 0268 e5ff | | Load 0x2,-0x1 0269 e5fe | | Load 0x2,-0x2 026a 8212 | | Call 0x1,0x12 026b 00d9 | | Load_Top At_Offset_1 026c 017d | } | Execute Record,Structure_Write 026d 00d9 | | Load_Top At_Offset_1 026e 802b | + | Call 0x0,0x2b 026f 00d1 | | Pop_Control Pop_Count_1 0270 e5fe | | Load 0x2,-0x2 0271 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0272 00d9 | | Load_Top At_Offset_1 0273 e029 | ) | Load 0x0,0x29 0274 e20d | | Load 0x1,0xd 0275 0096 | | Execute Package,Entry 0276 e5fe | | Load 0x2,-0x2 0277 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0278 00d9 | | Load_Top At_Offset_1 0279 e5fe | | Load 0x2,-0x2 027a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 027b e02a | * | Load 0x0,0x2a 027c e20d | | Load 0x1,0xd 027d 0096 | | Execute Package,Entry 027e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 027f 0000 | | .XXX[0x1] 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 028b | | .CONST 0x028b ; Address of begin 0281 0004 | | .CONST 0x0004 ; Address of exception handler 0282 0003 | | .CONST 0x0003 ; Number of locals 0283 INIT_0280: 0283 e004 | | Load 0x0,0x4 0284 0322 | " | Declare_Variable Record 0285 00d8 | | Load_Top At_Offset_0 0286 1c00 | | Execute_Immediate Run_Utility,0x0 0287 e004 | | Load 0x0,0x4 0288 0322 | " | Declare_Variable Record 0289 00d8 | | Load_Top At_Offset_0 028a 1c00 | | Execute_Immediate Run_Utility,0x0 028b BODY_0280: 028b e5ff | | Load 0x2,-0x1 028c e5fe | | Load 0x2,-0x2 028d 8212 | | Call 0x1,0x12 028e 00da | | Load_Top At_Offset_2 028f 017d | } | Execute Record,Structure_Write 0290 e5ff | | Load 0x2,-0x1 0291 e5fe | | Load 0x2,-0x2 0292 8212 | | Call 0x1,0x12 0293 00d9 | | Load_Top At_Offset_1 0294 017d | } | Execute Record,Structure_Write 0295 00d9 | | Load_Top At_Offset_1 0296 802c | , | Call 0x0,0x2c 0297 00d1 | | Pop_Control Pop_Count_1 0298 e5fe | | Load 0x2,-0x2 0299 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 029a 00d9 | | Load_Top At_Offset_1 029b e029 | ) | Load 0x0,0x29 029c e20d | | Load 0x1,0xd 029d 0096 | | Execute Package,Entry 029e e5fe | | Load 0x2,-0x2 029f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 02a0 00d9 | | Load_Top At_Offset_1 02a1 e5fe | | Load 0x2,-0x2 02a2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02a3 e02a | * | Load 0x0,0x2a 02a4 e20d | | Load 0x1,0xd 02a5 0096 | | Execute Package,Entry 02a6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02a7 0000 | | .XXX[0x1] 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; SUBPROGRAM 02a8 ; -------------------------------------------------------------------------------------- 02a8 02b3 | | .CONST 0x02b3 ; Address of begin 02a9 0004 | | .CONST 0x0004 ; Address of exception handler 02aa 0003 | | .CONST 0x0003 ; Number of locals 02ab INIT_02a8: 02ab e004 | | Load 0x0,0x4 02ac 0322 | " | Declare_Variable Record 02ad 00d8 | | Load_Top At_Offset_0 02ae 1c00 | | Execute_Immediate Run_Utility,0x0 02af e004 | | Load 0x0,0x4 02b0 0322 | " | Declare_Variable Record 02b1 00d8 | | Load_Top At_Offset_0 02b2 1c00 | | Execute_Immediate Run_Utility,0x0 02b3 BODY_02a8: 02b3 e5ff | | Load 0x2,-0x1 02b4 e5fe | | Load 0x2,-0x2 02b5 8212 | | Call 0x1,0x12 02b6 00da | | Load_Top At_Offset_2 02b7 017d | } | Execute Record,Structure_Write 02b8 e5ff | | Load 0x2,-0x1 02b9 e5fe | | Load 0x2,-0x2 02ba 8212 | | Call 0x1,0x12 02bb 00d9 | | Load_Top At_Offset_1 02bc 017d | } | Execute Record,Structure_Write 02bd 00d9 | | Load_Top At_Offset_1 02be 802d | - | Call 0x0,0x2d 02bf 00d1 | | Pop_Control Pop_Count_1 02c0 e5fe | | Load 0x2,-0x2 02c1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02c2 00d9 | | Load_Top At_Offset_1 02c3 e029 | ) | Load 0x0,0x29 02c4 e20d | | Load 0x1,0xd 02c5 0096 | | Execute Package,Entry 02c6 e5fe | | Load 0x2,-0x2 02c7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 02c8 00d9 | | Load_Top At_Offset_1 02c9 e5fe | | Load 0x2,-0x2 02ca 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02cb e02a | * | Load 0x0,0x2a 02cc e20d | | Load 0x1,0xd 02cd 0096 | | Execute Package,Entry 02ce 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02cf 0000 | | .XXX[0x1] 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; SUBPROGRAM 02d0 ; -------------------------------------------------------------------------------------- 02d0 02db | | .CONST 0x02db ; Address of begin 02d1 0004 | | .CONST 0x0004 ; Address of exception handler 02d2 0003 | | .CONST 0x0003 ; Number of locals 02d3 INIT_02d0: 02d3 e004 | | Load 0x0,0x4 02d4 0322 | " | Declare_Variable Record 02d5 00d8 | | Load_Top At_Offset_0 02d6 1c00 | | Execute_Immediate Run_Utility,0x0 02d7 00d8 | | Load_Top At_Offset_0 02d8 0322 | " | Declare_Variable Record 02d9 00d8 | | Load_Top At_Offset_0 02da 1c00 | | Execute_Immediate Run_Utility,0x0 02db BODY_02d0: 02db e5ff | | Load 0x2,-0x1 02dc e5fe | | Load 0x2,-0x2 02dd 8212 | | Call 0x1,0x12 02de 00da | | Load_Top At_Offset_2 02df 017d | } | Execute Record,Structure_Write 02e0 e5ff | | Load 0x2,-0x1 02e1 e5fe | | Load 0x2,-0x2 02e2 8212 | | Call 0x1,0x12 02e3 00d9 | | Load_Top At_Offset_1 02e4 017d | } | Execute Record,Structure_Write 02e5 00d9 | | Load_Top At_Offset_1 02e6 802e | . | Call 0x0,0x2e 02e7 00d1 | | Pop_Control Pop_Count_1 02e8 e5fe | | Load 0x2,-0x2 02e9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02ea 00d9 | | Load_Top At_Offset_1 02eb e02f | / | Load 0x0,0x2f 02ec e20d | | Load 0x1,0xd 02ed 0096 | | Execute Package,Entry 02ee e5fe | | Load 0x2,-0x2 02ef 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 02f0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02f1 0000 0000 | | .BLANK 0000[0x7] 02f8 ; -------------------------------------------------------------------------------------- 02f8 ; SUBPROGRAM 02f8 ; -------------------------------------------------------------------------------------- 02f8 031a | | .CONST 0x031a ; Address of begin 02f9 0004 | | .CONST 0x0004 ; Address of exception handler 02fa 000b | | .CONST 0x000b ; Number of locals 02fb INIT_02f8: 02fb e004 | | Load 0x0,0x4 02fc 0322 | " | Declare_Variable Record 02fd 00d8 | | Load_Top At_Offset_0 02fe 1c00 | | Execute_Immediate Run_Utility,0x0 02ff e004 | | Load 0x0,0x4 0300 0322 | " | Declare_Variable Record 0301 00d8 | | Load_Top At_Offset_0 0302 1c00 | | Execute_Immediate Run_Utility,0x0 0303 e01a | | Load 0x0,0x1a 0304 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0305 e01a | | Load 0x0,0x1a 0306 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0307 03bd | | Declare_Variable Access,Duplicate 0308 e01a | | Load 0x0,0x1a 0309 1b10 | | Execute Package,Field_Read,Field_Number 0x10 030a e00d | | Load 0x0,0xd 030b 02ff | | Declare_Variable Variant_Record 030c 00d8 | | Load_Top At_Offset_0 030d 1c00 | | Execute_Immediate Run_Utility,0x0 030e 00d8 | | Load_Top At_Offset_0 030f 02ff | | Declare_Variable Variant_Record 0310 00d8 | | Load_Top At_Offset_0 0311 1c00 | | Execute_Immediate Run_Utility,0x0 0312 00d8 | | Load_Top At_Offset_0 0313 02ff | | Declare_Variable Variant_Record 0314 00d8 | | Load_Top At_Offset_0 0315 1c00 | | Execute_Immediate Run_Utility,0x0 0316 e030 | 0 | Load 0x0,0x30 0317 0322 | " | Declare_Variable Record 0318 00d8 | | Load_Top At_Offset_0 0319 1c00 | | Execute_Immediate Run_Utility,0x0 031a BODY_02f8: 031a e5fe | | Load 0x2,-0x2 031b 801d | | Call 0x0,0x1d 031c a407 | | Store_Unchecked 0x2,0x7 031d e01a | | Load 0x0,0x1a 031e 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 031f e407 | | Load 0x2,0x7 0320 e01a | | Load 0x0,0x1a 0321 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0322 c404 | | Store 0x2,0x4 0323 e404 | | Load 0x2,0x4 0324 e01a | | Load 0x0,0x1a 0325 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0326 e408 | | Load 0x2,0x8 0327 016d | m | Execute Variant_Record,Structure_Write 0328 e404 | | Load 0x2,0x4 0329 e01a | | Load 0x0,0x1a 032a 181c | | Execute Package,Field_Execute,Field_Number 0x1c 032b c404 | | Store 0x2,0x4 032c e404 | | Load 0x2,0x4 032d e01a | | Load 0x0,0x1a 032e 181d | | Execute Package,Field_Execute,Field_Number 0x1d 032f 00db | | Load_Top At_Offset_3 0330 016d | m | Execute Variant_Record,Structure_Write 0331 e404 | | Load 0x2,0x4 0332 e01a | | Load 0x0,0x1a 0333 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0334 c404 | | Store 0x2,0x4 0335 e404 | | Load 0x2,0x4 0336 e01a | | Load 0x0,0x1a 0337 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0338 00da | | Load_Top At_Offset_2 0339 016d | m | Execute Variant_Record,Structure_Write 033a e404 | | Load 0x2,0x4 033b e01a | | Load 0x0,0x1a 033c 181c | | Execute Package,Field_Execute,Field_Number 0x1c 033d c404 | | Store 0x2,0x4 033e 00cf | | Action Mark_Auxiliary 033f 00da | | Load_Top At_Offset_2 0340 e00b | | Load 0x0,0xb 0341 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0342 00e2 | | Load_Encached Integer_Cache 0343 00e0 | | Load_Encached Standard_Cache 0344 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0345 4801 |H | Short_Literal 0x1 0346 0263 | c | Execute Discrete,Above_Bound 0347 700d |p | Jump_Nonzero 0x355 0348 e405 | | Load 0x2,0x5 0349 e404 | | Load 0x2,0x4 034a e01a | | Load 0x0,0x1a 034b 181d | | Execute Package,Field_Execute,Field_Number 0x1d 034c e01a | | Load 0x0,0x1a 034d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 034e a405 | | Store_Unchecked 0x2,0x5 034f e404 | | Load 0x2,0x4 0350 e01a | | Load 0x0,0x1a 0351 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0352 c404 | | Store 0x2,0x4 0353 00c8 | | Action Pop_Auxiliary_Range 0354 3ff3 |? | Loop_Increasing 0x348 0355 00ce | | Action Pop_Auxiliary 0356 e404 | | Load 0x2,0x4 0357 e01a | | Load 0x0,0x1a 0358 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0359 00da | | Load_Top At_Offset_2 035a 016d | m | Execute Variant_Record,Structure_Write 035b e404 | | Load 0x2,0x4 035c e01a | | Load 0x0,0x1a 035d 181c | | Execute Package,Field_Execute,Field_Number 0x1c 035e c404 | | Store 0x2,0x4 035f 00cf | | Action Mark_Auxiliary 0360 00da | | Load_Top At_Offset_2 0361 e00b | | Load 0x0,0xb 0362 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0363 00e2 | | Load_Encached Integer_Cache 0364 00e0 | | Load_Encached Standard_Cache 0365 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0366 4801 |H | Short_Literal 0x1 0367 0263 | c | Execute Discrete,Above_Bound 0368 700d |p | Jump_Nonzero 0x376 0369 e406 | | Load 0x2,0x6 036a e404 | | Load 0x2,0x4 036b e01a | | Load 0x0,0x1a 036c 181d | | Execute Package,Field_Execute,Field_Number 0x1d 036d e01a | | Load 0x0,0x1a 036e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 036f a406 | | Store_Unchecked 0x2,0x6 0370 e404 | | Load 0x2,0x4 0371 e01a | | Load 0x0,0x1a 0372 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0373 c404 | | Store 0x2,0x4 0374 00c8 | | Action Pop_Auxiliary_Range 0375 3ff3 |? | Loop_Increasing 0x369 0376 00ce | | Action Pop_Auxiliary 0377 00d8 | | Load_Top At_Offset_0 0378 e406 | | Load 0x2,0x6 0379 e405 | | Load 0x2,0x5 037a e409 | | Load 0x2,0x9 037b 8031 | 1 | Call 0x0,0x31 037c 00d1 | | Pop_Control Pop_Count_1 037d e5ff | | Load 0x2,-0x1 037e e5fd | | Load 0x2,-0x3 037f 8212 | | Call 0x1,0x12 0380 e402 | | Load 0x2,0x2 0381 017d | } | Execute Record,Structure_Write 0382 e5ff | | Load 0x2,-0x1 0383 e5fd | | Load 0x2,-0x3 0384 8212 | | Call 0x1,0x12 0385 e403 | | Load 0x2,0x3 0386 017d | } | Execute Record,Structure_Write 0387 e402 | | Load 0x2,0x2 0388 8027 | ' | Call 0x0,0x27 0389 6803 |h | Jump_Zero 0x38d 038a e402 | | Load 0x2,0x2 038b 8028 | ( | Call 0x0,0x28 038c 00d1 | | Pop_Control Pop_Count_1 038d e402 | | Load 0x2,0x2 038e 00d9 | | Load_Top At_Offset_1 038f 8032 | 2 | Call 0x0,0x32 0390 00d1 | | Pop_Control Pop_Count_1 0391 e5fd | | Load 0x2,-0x3 0392 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0393 e403 | | Load 0x2,0x3 0394 e029 | ) | Load 0x0,0x29 0395 e20d | | Load 0x1,0xd 0396 0096 | | Execute Package,Entry 0397 e5fd | | Load 0x2,-0x3 0398 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0399 e402 | | Load 0x2,0x2 039a e5fd | | Load 0x2,-0x3 039b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 039c e02a | * | Load 0x0,0x2a 039d e20d | | Load 0x1,0xd 039e 0096 | | Execute Package,Entry 039f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03a0 ; -------------------------------------------------------------------------------------- 03a0 ; SUBPROGRAM 03a0 ; -------------------------------------------------------------------------------------- 03a0 03b7 | | .CONST 0x03b7 ; Address of begin 03a1 0004 | | .CONST 0x0004 ; Address of exception handler 03a2 0007 | | .CONST 0x0007 ; Number of locals 03a3 INIT_03a0: 03a3 e01a | | Load 0x0,0x1a 03a4 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 03a5 e01a | | Load 0x0,0x1a 03a6 1b10 | | Execute Package,Field_Read,Field_Number 0x10 03a7 e00d | | Load 0x0,0xd 03a8 02ff | | Declare_Variable Variant_Record 03a9 00d8 | | Load_Top At_Offset_0 03aa 1c00 | | Execute_Immediate Run_Utility,0x0 03ab 00d8 | | Load_Top At_Offset_0 03ac 02ff | | Declare_Variable Variant_Record 03ad 00d8 | | Load_Top At_Offset_0 03ae 1c00 | | Execute_Immediate Run_Utility,0x0 03af e004 | | Load 0x0,0x4 03b0 0322 | " | Declare_Variable Record 03b1 00d8 | | Load_Top At_Offset_0 03b2 1c00 | | Execute_Immediate Run_Utility,0x0 03b3 e004 | | Load 0x0,0x4 03b4 0322 | " | Declare_Variable Record 03b5 00d8 | | Load_Top At_Offset_0 03b6 1c00 | | Execute_Immediate Run_Utility,0x0 03b7 BODY_03a0: 03b7 e5fe | | Load 0x2,-0x2 03b8 801d | | Call 0x0,0x1d 03b9 a403 | | Store_Unchecked 0x2,0x3 03ba e01a | | Load 0x0,0x1a 03bb 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 03bc e403 | | Load 0x2,0x3 03bd e01a | | Load 0x0,0x1a 03be 181b | | Execute Package,Field_Execute,Field_Number 0x1b 03bf c402 | | Store 0x2,0x2 03c0 e402 | | Load 0x2,0x2 03c1 e01a | | Load 0x0,0x1a 03c2 181d | | Execute Package,Field_Execute,Field_Number 0x1d 03c3 e404 | | Load 0x2,0x4 03c4 016d | m | Execute Variant_Record,Structure_Write 03c5 e402 | | Load 0x2,0x2 03c6 e01a | | Load 0x0,0x1a 03c7 181c | | Execute Package,Field_Execute,Field_Number 0x1c 03c8 c402 | | Store 0x2,0x2 03c9 e402 | | Load 0x2,0x2 03ca e01a | | Load 0x0,0x1a 03cb 181d | | Execute Package,Field_Execute,Field_Number 0x1d 03cc 00db | | Load_Top At_Offset_3 03cd 016d | m | Execute Variant_Record,Structure_Write 03ce e5ff | | Load 0x2,-0x1 03cf e5fd | | Load 0x2,-0x3 03d0 8212 | | Call 0x1,0x12 03d1 00da | | Load_Top At_Offset_2 03d2 017d | } | Execute Record,Structure_Write 03d3 e5ff | | Load 0x2,-0x1 03d4 e5fd | | Load 0x2,-0x3 03d5 8212 | | Call 0x1,0x12 03d6 00d9 | | Load_Top At_Offset_1 03d7 017d | } | Execute Record,Structure_Write 03d8 00d9 | | Load_Top At_Offset_1 03d9 00db | | Load_Top At_Offset_3 03da 8033 | 3 | Call 0x0,0x33 03db 00d1 | | Pop_Control Pop_Count_1 03dc e5fd | | Load 0x2,-0x3 03dd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03de 00d9 | | Load_Top At_Offset_1 03df e029 | ) | Load 0x0,0x29 03e0 e20d | | Load 0x1,0xd 03e1 0096 | | Execute Package,Entry 03e2 e5fd | | Load 0x2,-0x3 03e3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 03e4 00d9 | | Load_Top At_Offset_1 03e5 e5fd | | Load 0x2,-0x3 03e6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03e7 e02a | * | Load 0x0,0x2a 03e8 e20d | | Load 0x1,0xd 03e9 0096 | | Execute Package,Entry 03ea 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03eb 0000 0000 | | .BLANK 0000[0x5] 03f0 ; -------------------------------------------------------------------------------------- 03f0 ; SUBPROGRAM 03f0 ; -------------------------------------------------------------------------------------- 03f0 040f | | .CONST 0x040f ; Address of begin 03f1 0004 | | .CONST 0x0004 ; Address of exception handler 03f2 0009 | | .CONST 0x0009 ; Number of locals 03f3 INIT_03f0: 03f3 e004 | | Load 0x0,0x4 03f4 0322 | " | Declare_Variable Record 03f5 00d8 | | Load_Top At_Offset_0 03f6 1c00 | | Execute_Immediate Run_Utility,0x0 03f7 e004 | | Load 0x0,0x4 03f8 0322 | " | Declare_Variable Record 03f9 00d8 | | Load_Top At_Offset_0 03fa 1c00 | | Execute_Immediate Run_Utility,0x0 03fb e01a | | Load 0x0,0x1a 03fc 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 03fd e01a | | Load 0x0,0x1a 03fe 1b10 | | Execute Package,Field_Read,Field_Number 0x10 03ff e00d | | Load 0x0,0xd 0400 02ff | | Declare_Variable Variant_Record 0401 00d8 | | Load_Top At_Offset_0 0402 1c00 | | Execute_Immediate Run_Utility,0x0 0403 00d8 | | Load_Top At_Offset_0 0404 02ff | | Declare_Variable Variant_Record 0405 00d8 | | Load_Top At_Offset_0 0406 1c00 | | Execute_Immediate Run_Utility,0x0 0407 e030 | 0 | Load 0x0,0x30 0408 0322 | " | Declare_Variable Record 0409 00d8 | | Load_Top At_Offset_0 040a 1c00 | | Execute_Immediate Run_Utility,0x0 040b 00d8 | | Load_Top At_Offset_0 040c 0322 | " | Declare_Variable Record 040d 00d8 | | Load_Top At_Offset_0 040e 1c00 | | Execute_Immediate Run_Utility,0x0 040f BODY_03f0: 040f e5fd | | Load 0x2,-0x3 0410 801d | | Call 0x0,0x1d 0411 a405 | | Store_Unchecked 0x2,0x5 0412 e01a | | Load 0x0,0x1a 0413 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0414 e405 | | Load 0x2,0x5 0415 e01a | | Load 0x0,0x1a 0416 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0417 c404 | | Store 0x2,0x4 0418 e404 | | Load 0x2,0x4 0419 e01a | | Load 0x0,0x1a 041a 181d | | Execute Package,Field_Execute,Field_Number 0x1d 041b e406 | | Load 0x2,0x6 041c 016d | m | Execute Variant_Record,Structure_Write 041d e404 | | Load 0x2,0x4 041e e01a | | Load 0x0,0x1a 041f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0420 c404 | | Store 0x2,0x4 0421 e404 | | Load 0x2,0x4 0422 e01a | | Load 0x0,0x1a 0423 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0424 00db | | Load_Top At_Offset_3 0425 016d | m | Execute Variant_Record,Structure_Write 0426 e5fe | | Load 0x2,-0x2 0427 e5fc | | Load 0x2,-0x4 0428 8212 | | Call 0x1,0x12 0429 e402 | | Load 0x2,0x2 042a 017d | } | Execute Record,Structure_Write 042b e5fe | | Load 0x2,-0x2 042c e5fc | | Load 0x2,-0x4 042d 8212 | | Call 0x1,0x12 042e e403 | | Load 0x2,0x3 042f 017d | } | Execute Record,Structure_Write 0430 0092 055e | ^| Action Push_String_Extended,0x55e ; "the object to subscribe is" 0432 e402 | | Load 0x2,0x2 0433 8034 | 4 | Call 0x0,0x34 0434 01cc | | Execute Vector,Catenate 0435 800c | | Call 0x0,0xc 0436 00da | | Load_Top At_Offset_2 0437 e402 | | Load 0x2,0x2 0438 8017 | | Call 0x0,0x17 0439 6822 |h" | Jump_Zero 0x45c 043a 00da | | Load_Top At_Offset_2 043b e402 | | Load 0x2,0x2 043c 8035 | 5 | Call 0x0,0x35 043d 00da | | Load_Top At_Offset_2 043e 017d | } | Execute Record,Structure_Write 043f 00da | | Load_Top At_Offset_2 0440 e402 | | Load 0x2,0x2 0441 8035 | 5 | Call 0x0,0x35 0442 00d9 | | Load_Top At_Offset_1 0443 017d | } | Execute Record,Structure_Write 0444 00d9 | | Load_Top At_Offset_1 0445 e5ff | | Load 0x2,-0x1 0446 8036 | 6 | Call 0x0,0x36 0447 00d1 | | Pop_Control Pop_Count_1 0448 00d9 | | Load_Top At_Offset_1 0449 00d9 | | Load_Top At_Offset_1 044a e402 | | Load 0x2,0x2 044b 8037 | 7 | Call 0x0,0x37 044c 00d3 | | Pop_Control Pop_Count_3 044d e5fc | | Load 0x2,-0x4 044e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 044f e403 | | Load 0x2,0x3 0450 e029 | ) | Load 0x0,0x29 0451 e20d | | Load 0x1,0xd 0452 0096 | | Execute Package,Entry 0453 e5fc | | Load 0x2,-0x4 0454 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0455 e402 | | Load 0x2,0x2 0456 e5fc | | Load 0x2,-0x4 0457 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0458 e02a | * | Load 0x0,0x2a 0459 e20d | | Load 0x1,0xd 045a 0096 | | Execute Package,Entry 045b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 045c 0092 055f | _| Action Push_String_Extended,0x55f ; "do not found the specified method in any object" 045e 800c | | Call 0x0,0xc 045f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0460 ; -------------------------------------------------------------------------------------- 0460 ; SUBPROGRAM 0460 ; -------------------------------------------------------------------------------------- 0460 047b | { | .CONST 0x047b ; Address of begin 0461 0004 | | .CONST 0x0004 ; Address of exception handler 0462 0008 | | .CONST 0x0008 ; Number of locals 0463 INIT_0460: 0463 e004 | | Load 0x0,0x4 0464 0322 | " | Declare_Variable Record 0465 00d8 | | Load_Top At_Offset_0 0466 1c00 | | Execute_Immediate Run_Utility,0x0 0467 e004 | | Load 0x0,0x4 0468 0322 | " | Declare_Variable Record 0469 00d8 | | Load_Top At_Offset_0 046a 1c00 | | Execute_Immediate Run_Utility,0x0 046b e01a | | Load 0x0,0x1a 046c 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 046d e01a | | Load 0x0,0x1a 046e 1b10 | | Execute Package,Field_Read,Field_Number 0x10 046f e00d | | Load 0x0,0xd 0470 02ff | | Declare_Variable Variant_Record 0471 00d8 | | Load_Top At_Offset_0 0472 1c00 | | Execute_Immediate Run_Utility,0x0 0473 00d8 | | Load_Top At_Offset_0 0474 02ff | | Declare_Variable Variant_Record 0475 00d8 | | Load_Top At_Offset_0 0476 1c00 | | Execute_Immediate Run_Utility,0x0 0477 e030 | 0 | Load 0x0,0x30 0478 0322 | " | Declare_Variable Record 0479 00d8 | | Load_Top At_Offset_0 047a 1c00 | | Execute_Immediate Run_Utility,0x0 047b BODY_0460: 047b e5fd | | Load 0x2,-0x3 047c 801d | | Call 0x0,0x1d 047d a405 | | Store_Unchecked 0x2,0x5 047e e01a | | Load 0x0,0x1a 047f 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0480 e405 | | Load 0x2,0x5 0481 e01a | | Load 0x0,0x1a 0482 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0483 c404 | | Store 0x2,0x4 0484 e404 | | Load 0x2,0x4 0485 e01a | | Load 0x0,0x1a 0486 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0487 00db | | Load_Top At_Offset_3 0488 016d | m | Execute Variant_Record,Structure_Write 0489 e404 | | Load 0x2,0x4 048a e01a | | Load 0x0,0x1a 048b 181c | | Execute Package,Field_Execute,Field_Number 0x1c 048c c404 | | Store 0x2,0x4 048d e404 | | Load 0x2,0x4 048e e01a | | Load 0x0,0x1a 048f 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0490 00da | | Load_Top At_Offset_2 0491 016d | m | Execute Variant_Record,Structure_Write 0492 e5fe | | Load 0x2,-0x2 0493 e5fc | | Load 0x2,-0x4 0494 8212 | | Call 0x1,0x12 0495 e402 | | Load 0x2,0x2 0496 017d | } | Execute Record,Structure_Write 0497 e5fe | | Load 0x2,-0x2 0498 e5fc | | Load 0x2,-0x4 0499 8212 | | Call 0x1,0x12 049a e403 | | Load 0x2,0x3 049b 017d | } | Execute Record,Structure_Write 049c 00d9 | | Load_Top At_Offset_1 049d e402 | | Load 0x2,0x2 049e 8035 | 5 | Call 0x0,0x35 049f 00d9 | | Load_Top At_Offset_1 04a0 017d | } | Execute Record,Structure_Write 04a1 00d8 | | Load_Top At_Offset_0 04a2 e5fe | | Load 0x2,-0x2 04a3 8038 | 8 | Call 0x0,0x38 04a4 00d1 | | Pop_Control Pop_Count_1 04a5 e402 | | Load 0x2,0x2 04a6 00da | | Load_Top At_Offset_2 04a7 8033 | 3 | Call 0x0,0x33 04a8 00d1 | | Pop_Control Pop_Count_1 04a9 e402 | | Load 0x2,0x2 04aa 00d9 | | Load_Top At_Offset_1 04ab 8032 | 2 | Call 0x0,0x32 04ac 00d1 | | Pop_Control Pop_Count_1 04ad e5fc | | Load 0x2,-0x4 04ae 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04af e403 | | Load 0x2,0x3 04b0 e029 | ) | Load 0x0,0x29 04b1 e20d | | Load 0x1,0xd 04b2 0096 | | Execute Package,Entry 04b3 e5fc | | Load 0x2,-0x4 04b4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 04b5 e402 | | Load 0x2,0x2 04b6 e5fc | | Load 0x2,-0x4 04b7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04b8 e02a | * | Load 0x0,0x2a 04b9 e20d | | Load 0x1,0xd 04ba 0096 | | Execute Package,Entry 04bb 4504 |E | Exit_Suprogram New_Top_Offset 0x4 04bc 0000 0000 | | .BLANK 0000[0x4] 04c0 ; -------------------------------------------------------------------------------------- 04c0 ; SUBPROGRAM 04c0 ; -------------------------------------------------------------------------------------- 04c0 04d3 | | .CONST 0x04d3 ; Address of begin 04c1 0004 | | .CONST 0x0004 ; Address of exception handler 04c2 0006 | | .CONST 0x0006 ; Number of locals 04c3 INIT_04c0: 04c3 e004 | | Load 0x0,0x4 04c4 0322 | " | Declare_Variable Record 04c5 00d8 | | Load_Top At_Offset_0 04c6 1c00 | | Execute_Immediate Run_Utility,0x0 04c7 e030 | 0 | Load 0x0,0x30 04c8 0322 | " | Declare_Variable Record 04c9 00d8 | | Load_Top At_Offset_0 04ca 1c00 | | Execute_Immediate Run_Utility,0x0 04cb e008 | | Load 0x0,0x8 04cc e20e | | Load 0x1,0xe 04cd 0098 | | Execute Package,Field_Read_Dynamic 04ce 0007 | | Action Break_Optional 04cf e039 | 9 | Load 0x0,0x39 04d0 0007 | | Action Break_Optional 04d1 e03a | : | Load 0x0,0x3a 04d2 0007 | | Action Break_Optional 04d3 BODY_04c0: 04d3 e5fe | | Load 0x2,-0x2 04d4 e5ff | | Load 0x2,-0x1 04d5 8212 | | Call 0x1,0x12 04d6 e402 | | Load 0x2,0x2 04d7 017d | } | Execute Record,Structure_Write 04d8 e5fd | | Load 0x2,-0x3 04d9 e402 | | Load 0x2,0x2 04da 8035 | 5 | Call 0x0,0x35 04db e403 | | Load 0x2,0x3 04dc 017d | } | Execute Record,Structure_Write 04dd 00db | | Load_Top At_Offset_3 04de 803b | ; | Call 0x0,0x3b 04df 003a | : | Store_Top Access,At_Offset_2 04e0 00d9 | | Load_Top At_Offset_1 04e1 803c | < | Call 0x0,0x3c 04e2 7024 |p$ | Jump_Nonzero 0x507 04e3 e03a | : | Load 0x0,0x3a 04e4 00da | | Load_Top At_Offset_2 04e5 803d | = | Call 0x0,0x3d 04e6 0039 | 9 | Store_Top Access,At_Offset_1 04e7 e015 | | Load 0x0,0x15 04e8 e20e | | Load 0x1,0xe 04e9 0096 | | Execute Package,Entry 04ea 003b | ; | Store_Top Access,At_Offset_3 04eb 00cf | | Action Mark_Auxiliary 04ec 7816 |x | Jump 0x503 04ed 0092 0560 | `| Action Push_String_Extended,0x560 ; "found " 04ef 00da | | Load_Top At_Offset_2 04f0 803e | > | Call 0x0,0x3e 04f1 e026 | & | Load 0x0,0x26 04f2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 04f3 01cc | | Execute Vector,Catenate 04f4 800c | | Call 0x0,0xc 04f5 00db | | Load_Top At_Offset_3 04f6 00da | | Load_Top At_Offset_2 04f7 803e | > | Call 0x0,0x3e 04f8 e018 | | Load 0x0,0x18 04f9 e20e | | Load 0x1,0xe 04fa 0096 | | Execute Package,Entry 04fb a404 | | Store_Unchecked 0x2,0x4 04fc 00d9 | | Load_Top At_Offset_1 04fd 803f | ? | Call 0x0,0x3f 04fe 003a | : | Store_Top Access,At_Offset_2 04ff 00d9 | | Load_Top At_Offset_1 0500 8040 | @ | Call 0x0,0x40 0501 7004 |p | Jump_Nonzero 0x506 0502 00c9 | | Action Pop_Auxiliary_Loop 0503 00d9 | | Load_Top At_Offset_1 0504 8040 | @ | Call 0x0,0x40 0505 6fe7 |o | Jump_Zero 0x4ed 0506 00ce | | Action Pop_Auxiliary 0507 00da | | Load_Top At_Offset_2 0508 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0509 0000 0000 | | .BLANK 0000[0x7] 0510 ; -------------------------------------------------------------------------------------- 0510 ; SUBPROGRAM 0510 ; -------------------------------------------------------------------------------------- 0510 0513 | | .CONST 0x0513 ; Address of begin 0511 0004 | | .CONST 0x0004 ; Address of exception handler 0512 0001 | | .CONST 0x0001 ; Number of locals 0513 BODY_0510: 0513 INIT_0510: 0513 4801 |H | Short_Literal 0x1 0514 4802 |H | Short_Literal 0x2 0515 e5ff | | Load 0x2,-0x1 0516 01cf | | Execute Vector,Slice_Read 0517 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0518 ; -------------------------------------------------------------------------------------- 0518 ; SUBPROGRAM 0518 ; -------------------------------------------------------------------------------------- 0518 051b | | .CONST 0x051b ; Address of begin 0519 0004 | | .CONST 0x0004 ; Address of exception handler 051a 0001 | | .CONST 0x0001 ; Number of locals 051b BODY_0518: 051b INIT_0518: 051b 4803 |H | Short_Literal 0x3 051c 4806 |H | Short_Literal 0x6 051d e5ff | | Load 0x2,-0x1 051e 01cf | | Execute Vector,Slice_Read 051f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0520 ; -------------------------------------------------------------------------------------- 0520 ; SUBPROGRAM 0520 ; -------------------------------------------------------------------------------------- 0520 0523 | # | .CONST 0x0523 ; Address of begin 0521 0004 | | .CONST 0x0004 ; Address of exception handler 0522 0001 | | .CONST 0x0001 ; Number of locals 0523 BODY_0520: 0523 INIT_0520: 0523 e5ff | | Load 0x2,-0x1 0524 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0525 e00e | | Load 0x0,0xe 0526 e20d | | Load 0x1,0xd 0527 0096 | | Execute Package,Entry 0528 702f |p/ | Jump_Nonzero 0x558 0529 e00a | | Load 0x0,0xa 052a e20d | | Load 0x1,0xd 052b 0098 | | Execute Package,Field_Read_Dynamic 052c e5ff | | Load 0x2,-0x1 052d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 052e e00f | | Load 0x0,0xf 052f e20d | | Load 0x1,0xd 0530 0096 | | Execute Package,Entry 0531 c402 | | Store 0x2,0x2 0532 00cf | | Action Mark_Auxiliary 0533 781e |x | Jump 0x552 0534 e403 | | Load 0x2,0x3 0535 e402 | | Load 0x2,0x2 0536 e010 | | Load 0x0,0x10 0537 e20d | | Load 0x1,0xd 0538 0096 | | Execute Package,Entry 0539 8034 | 4 | Call 0x0,0x34 053a e00b | | Load 0x0,0xb 053b 1818 | | Execute Package,Field_Execute,Field_Number 0x18 053c 00d1 | | Pop_Control Pop_Count_1 053d e403 | | Load 0x2,0x3 053e 4825 |H% | Short_Literal 0x25 053f e00b | | Load 0x0,0xb 0540 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0541 00d1 | | Pop_Control Pop_Count_1 0542 e403 | | Load 0x2,0x3 0543 480a |H | Short_Literal 0xa 0544 e00b | | Load 0x0,0xb 0545 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0546 00d1 | | Pop_Control Pop_Count_1 0547 e403 | | Load 0x2,0x3 0548 480d |H | Short_Literal 0xd 0549 e00b | | Load 0x0,0xb 054a 1819 | | Execute Package,Field_Execute,Field_Number 0x19 054b 00d1 | | Pop_Control Pop_Count_1 054c e402 | | Load 0x2,0x2 054d e012 | | Load 0x0,0x12 054e e20d | | Load 0x1,0xd 054f 0096 | | Execute Package,Entry 0550 c402 | | Store 0x2,0x2 0551 00c9 | | Action Pop_Auxiliary_Loop 0552 e402 | | Load 0x2,0x2 0553 e013 | | Load 0x0,0x13 0554 e20d | | Load 0x1,0xd 0555 0096 | | Execute Package,Entry 0556 6fdd |o | Jump_Zero 0x534 0557 00ce | | Action Pop_Auxiliary 0558 e403 | | Load 0x2,0x3 0559 e00b | | Load 0x0,0xb 055a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 055b 00cb | | Action Pop_Block_With_Result 055c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 055d ; -------------------------------------------------------------------------------------- 055d ; STRING TABLE 055d ; -------------------------------------------------------------------------------------- 055d 000a | | .STRTAB 0x000a->0x0562 ; "object_manager.image =>size of bounded string to short" 055e 003e | > | .STRTAB 0x003e->0x057d ; "the object to subscribe is" 055f 0056 | V | .STRTAB 0x0056->0x058a ; "do not found the specified method in any object" 0560 0083 | | .STRTAB 0x0083->0x05a1 ; "found " 0561 0087 | | .STREND 0x0087->0x05a4 0562 6f62 6a65 |obje| .STRTAB_STRINGS 05a5 0000 0000 | | .XXX[0x3] 05a7 0000 | | 05a8 ; -------------------------------------------------------------------------------------- 05a8 ; Debug Table 05a8 ; -------------------------------------------------------------------------------------- 05a8 0004 000a | | .DEBUG4 0x0004,0x000a,0x7001,0x0000,0x0001,0x0018 05ae 000b 060e | | .DBG4T 0x000b,0x060e,0x8000,0x8000 05b2 0052 063c | R <| .DBG4T 0x0052,0x063c,0x8000,0x0000 05b6 0083 0653 | S| .DBG4T 0x0083,0x0653,0x0002,0x0000 05ba 0093 0656 | V| .DBG4T 0x0093,0x0656,0x0002,0x0000 05be 009b 0659 | Y| .DBG4T 0x009b,0x0659,0x0002,0x0000 05c2 00bb 065f | _| .DBG4T 0x00bb,0x065f,0x0002,0x4000 05c6 00fb 0674 | t| .DBG4T 0x00fb,0x0674,0x0002,0x4000 05ca 0153 068c | S | .DBG4T 0x0153,0x068c,0x0002,0x4000 05ce 0193 06a1 | | .DBG4T 0x0193,0x06a1,0x0001,0x0000 05d2 01f3 06b6 | | .DBG4T 0x01f3,0x06b6,0x0001,0x0000 05d6 0223 06c2 | # | .DBG4T 0x0223,0x06c2,0x0002,0x0000 05da 0233 06c7 | 3 | .DBG4T 0x0233,0x06c7,0x0001,0x0000 05de 025b 06d0 | [ | .DBG4T 0x025b,0x06d0,0x0001,0x0000 05e2 0283 06d9 | | .DBG4T 0x0283,0x06d9,0x0001,0x0000 05e6 02ab 06e2 | | .DBG4T 0x02ab,0x06e2,0x0001,0x0000 05ea 02d3 06eb | | .DBG4T 0x02d3,0x06eb,0x0001,0x0000 05ee 02fb 06f2 | | .DBG4T 0x02fb,0x06f2,0x0001,0x0000 05f2 03a3 0713 | | .DBG4T 0x03a3,0x0713,0x0001,0x0000 05f6 03f3 0724 | $| .DBG4T 0x03f3,0x0724,0x0001,0x0000 05fa 0463 073c | c <| .DBG4T 0x0463,0x073c,0x0001,0x0000 05fe 04c3 0751 | Q| .DBG4T 0x04c3,0x0751,0x0002,0x4000 0602 0513 0770 | p| .DBG4T 0x0513,0x0770,0x0002,0x0000 0606 051b 0773 | s| .DBG4T 0x051b,0x0773,0x0002,0x0000 060a 0523 0776 | # v| .DBG4T 0x0523,0x0776,0x0004,0x4000 060e ; -------------------------------------------------------------------------------------- 060e ; Debug chain 060e ; -------------------------------------------------------------------------------------- 060e 0016 0000 | | .DBGLEN 0x0016,0x0000 0610 000b 0018 | | .DBGLNO 0x000b,0x0018,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0031,0x0033,0x0035,0x0037,0x0039,0x003b,0x003d,0x003f,0x0041,0x0043,0x0045,0x0047,0x0049,0x004b 0626 0001 0003 | | .XXX[0x16] 0628 0005 0006 | | 062a 0007 0008 | | 062c 0009 000a | | 062e 000b 000c | | 0630 000d 000e | | 0632 000f 0010 | | 0634 0011 0012 | | 0636 0013 0014 | | 0638 0015 0016 | | 063a 0017 0018 | | 063c ; -------------------------------------------------------------------------------------- 063c ; Debug chain 063c ; -------------------------------------------------------------------------------------- 063c 0015 0000 | | .DBGLEN 0x0015,0x0000 063e 0052 0054 | R T| .DBGLNO 0x0052,0x0054,0x0056,0x0058,0x005a,0x005c,0x005e,0x0060,0x0062,0x0064,0x0066,0x0068,0x006a,0x006c,0x006e,0x0070,0x0072,0x0074,0x0076,0x0078,0x007a 0653 ; -------------------------------------------------------------------------------------- 0653 ; Debug chain 0653 ; -------------------------------------------------------------------------------------- 0653 0000 0001 | | .DBGLEN 0x0000,0x0001 0655 0083 | | .DBGLNO 0x0083 0656 ; -------------------------------------------------------------------------------------- 0656 ; Debug chain 0656 ; -------------------------------------------------------------------------------------- 0656 0000 0001 | | .DBGLEN 0x0000,0x0001 0658 0093 | | .DBGLNO 0x0093 0659 ; -------------------------------------------------------------------------------------- 0659 ; Debug chain 0659 ; -------------------------------------------------------------------------------------- 0659 0002 0002 | | .DBGLEN 0x0002,0x0002 065b 009b 009f | | .DBGLNO 0x009b,0x009f,0x00a7,0x00ab 065f ; -------------------------------------------------------------------------------------- 065f ; Debug chain 065f ; -------------------------------------------------------------------------------------- 065f 0003 0008 | | .DBGLEN 0x0003,0x0008 0661 00bb 00bf | | .DBGLNO 0x00bb,0x00bf,0x00c3,0x00c7,0x00cd,0x00d8,0x00de,0x00e3,0x00e5,0x00eb,0x00f1 066c 0001 0002 | | .XXX[0x8] 066e 0004 0005 | | 0670 0006 0007 | | 0672 0003 0008 | | 0674 ; -------------------------------------------------------------------------------------- 0674 ; Debug chain 0674 ; -------------------------------------------------------------------------------------- 0674 0004 0009 | | .DBGLEN 0x0004,0x0009 0676 00fb 00ff | | .DBGLNO 0x00fb,0x00ff,0x0103,0x0107,0x010b,0x010f,0x0115,0x0120,0x0126,0x0133,0x013a,0x0140,0x0146 0683 0001 0002 | | .XXX[0x9] 0685 0003 0005 | | 0687 0006 0007 | | 0689 0008 0004 | | 068b 0009 | | 068c ; -------------------------------------------------------------------------------------- 068c ; Debug chain 068c ; -------------------------------------------------------------------------------------- 068c 0003 0008 | | .DBGLEN 0x0003,0x0008 068e 0153 0157 | S W| .DBGLNO 0x0153,0x0157,0x015b,0x015f,0x0165,0x0170,0x0176,0x017f,0x0182,0x0188,0x018e 0699 0001 0002 | | .XXX[0x8] 069b 0004 0005 | | 069d 0006 0007 | | 069f 0003 0008 | | 06a1 ; -------------------------------------------------------------------------------------- 06a1 ; Debug chain 06a1 ; -------------------------------------------------------------------------------------- 06a1 0009 000a | | .DBGLEN 0x0009,0x000a 06a3 0193 0195 | | .DBGLNO 0x0193,0x0195,0x0197,0x019b,0x019f,0x01a5,0x01ab,0x01af,0x01b1,0x01b2,0x01b5,0x01bb,0x01c0,0x01c5,0x01ca,0x01d2,0x01d6,0x01e1,0x01e4 06b6 ; -------------------------------------------------------------------------------------- 06b6 ; Debug chain 06b6 ; -------------------------------------------------------------------------------------- 06b6 0003 0007 | | .DBGLEN 0x0003,0x0007 06b8 01f3 01f7 | | .DBGLNO 0x01f3,0x01f7,0x01fb,0x01fd,0x0202,0x0206,0x020a,0x0214,0x0219,0x021c 06c2 ; -------------------------------------------------------------------------------------- 06c2 ; Debug chain 06c2 ; -------------------------------------------------------------------------------------- 06c2 0001 0002 | | .DBGLEN 0x0001,0x0002 06c4 0223 0227 | # '| .DBGLNO 0x0223,0x0227,0x022c 06c7 ; -------------------------------------------------------------------------------------- 06c7 ; Debug chain 06c7 ; -------------------------------------------------------------------------------------- 06c7 0002 0005 | | .DBGLEN 0x0002,0x0005 06c9 0233 0237 | 3 7| .DBGLNO 0x0233,0x0237,0x023b,0x0240,0x0245,0x0248,0x0250 06d0 ; -------------------------------------------------------------------------------------- 06d0 ; Debug chain 06d0 ; -------------------------------------------------------------------------------------- 06d0 0002 0005 | | .DBGLEN 0x0002,0x0005 06d2 025b 025f | [ _| .DBGLNO 0x025b,0x025f,0x0263,0x0268,0x026d,0x0270,0x0278 06d9 ; -------------------------------------------------------------------------------------- 06d9 ; Debug chain 06d9 ; -------------------------------------------------------------------------------------- 06d9 0002 0005 | | .DBGLEN 0x0002,0x0005 06db 0283 0287 | | .DBGLNO 0x0283,0x0287,0x028b,0x0290,0x0295,0x0298,0x02a0 06e2 ; -------------------------------------------------------------------------------------- 06e2 ; Debug chain 06e2 ; -------------------------------------------------------------------------------------- 06e2 0002 0005 | | .DBGLEN 0x0002,0x0005 06e4 02ab 02af | | .DBGLNO 0x02ab,0x02af,0x02b3,0x02b8,0x02bd,0x02c0,0x02c8 06eb ; -------------------------------------------------------------------------------------- 06eb ; Debug chain 06eb ; -------------------------------------------------------------------------------------- 06eb 0001 0004 | | .DBGLEN 0x0001,0x0004 06ed 02d3 02db | | .DBGLNO 0x02d3,0x02db,0x02e0,0x02e5,0x02e8 06f2 ; -------------------------------------------------------------------------------------- 06f2 ; Debug chain 06f2 ; -------------------------------------------------------------------------------------- 06f2 0007 0018 | | .DBGLEN 0x0007,0x0018 06f4 02fb 02ff | | .DBGLNO 0x02fb,0x02ff,0x0303,0x0305,0x0308,0x030a,0x0316,0x031a,0x031d,0x0323,0x0328,0x032c,0x0331,0x0335,0x033a,0x033f,0x0348,0x034f,0x0356,0x035b,0x0360,0x0369,0x0370,0x0377,0x037d,0x0382,0x0387,0x038a,0x038d,0x0391,0x0399 0713 ; -------------------------------------------------------------------------------------- 0713 ; Debug chain 0713 ; -------------------------------------------------------------------------------------- 0713 0005 000a | | .DBGLEN 0x0005,0x000a 0715 03a3 03a5 | | .DBGLNO 0x03a3,0x03a5,0x03a7,0x03af,0x03b3,0x03b7,0x03ba,0x03c0,0x03c5,0x03c9,0x03ce,0x03d3,0x03d8,0x03dc,0x03e4 0724 ; -------------------------------------------------------------------------------------- 0724 ; Debug chain 0724 ; -------------------------------------------------------------------------------------- 0724 0006 0010 | | .DBGLEN 0x0006,0x0010 0726 03f3 03f7 | | .DBGLNO 0x03f3,0x03f7,0x03fb,0x03fd,0x03ff,0x0407,0x040f,0x0412,0x0418,0x041d,0x0421,0x0426,0x042b,0x0430,0x0436,0x043a,0x043f,0x0444,0x0448,0x044d,0x0455,0x045c 073c ; -------------------------------------------------------------------------------------- 073c ; Debug chain 073c ; -------------------------------------------------------------------------------------- 073c 0006 000d | | .DBGLEN 0x0006,0x000d 073e 0463 0467 | c g| .DBGLNO 0x0463,0x0467,0x046b,0x046d,0x046f,0x0477,0x047b,0x047e,0x0484,0x0489,0x048d,0x0492,0x0497,0x049c,0x04a1,0x04a5,0x04a9,0x04ad,0x04b5 0751 ; -------------------------------------------------------------------------------------- 0751 ; Debug chain 0751 ; -------------------------------------------------------------------------------------- 0751 0005 000c | | .DBGLEN 0x0005,0x000c 0753 04c3 04c7 | | .DBGLNO 0x04c3,0x04c7,0x04cb,0x04cf,0x04d1,0x04d3,0x04d8,0x04dd,0x04e0,0x04e3,0x04e7,0x04ed,0x04f5,0x04fc,0x04ff,0x0503,0x0507 0764 0001 0002 | | .XXX[0xc] 0766 0003 0004 | | 0768 0005 0006 | | 076a 0008 0009 | | 076c 000a 000b | | 076e 0007 000c | | 0770 ; -------------------------------------------------------------------------------------- 0770 ; Debug chain 0770 ; -------------------------------------------------------------------------------------- 0770 0000 0001 | | .DBGLEN 0x0000,0x0001 0772 0513 | | .DBGLNO 0x0513 0773 ; -------------------------------------------------------------------------------------- 0773 ; Debug chain 0773 ; -------------------------------------------------------------------------------------- 0773 0000 0001 | | .DBGLEN 0x0000,0x0001 0775 051b | | .DBGLNO 0x051b 0776 ; -------------------------------------------------------------------------------------- 0776 ; Debug chain 0776 ; -------------------------------------------------------------------------------------- 0776 0000 0009 | | .DBGLEN 0x0000,0x0009 0778 0523 0529 | # )| .DBGLNO 0x0523,0x0529,0x0534,0x053d,0x0542,0x0547,0x054c,0x0552,0x0558 0781 0001 0002 | | .XXX[0x9] 0783 0004 0005 | | 0785 0006 0007 | | 0787 0008 0003 | | 0789 0009 | | 078a 0000 0000 | | .BLANK 0000[0x76]