|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5850da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦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 04d0 | | .CONST 0x04d0 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0052 | R | .CONST 0x0052 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0015 | | .CONST 0x0015 ; Number of locals 000b INIT_0008: 000b 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 000d 00c4 | | Action Make_Default 000e 00c4 | | Action Make_Default 000f 00c4 | | Action Make_Default 0010 00c4 | | Action Make_Default 0011 00c4 | | Action Make_Default 0012 00c4 | | Action Make_Default 0013 00c4 | | Action Make_Default 0014 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 0016 c214 | | Store 0x1,0x14 0017 4805 |H | Short_Literal 0x5 0018 0093 038b | | push_full_address INIT_0388 001a 02a0 | | Declare_Subprogram Null_Subprogram 001b 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated 001c c212 | | Store 0x1,0x12 001d 4804 |H | Short_Literal 0x4 001e 0093 0223 | #| push_full_address INIT_0220 0020 02a0 | | Declare_Subprogram Null_Subprogram 0021 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated 0022 c210 | | Store 0x1,0x10 0023 4804 |H | Short_Literal 0x4 0024 0093 010b | | push_full_address INIT_0108 0026 02a0 | | Declare_Subprogram Null_Subprogram 0027 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated 0028 c211 | | Store 0x1,0x11 0029 00bf | | Action Accept_Activation 002a e001 | | Load 0x0,0x1 002b 1b17 | | Execute Package,Field_Read,Field_Number 0x17 002c 1d0d | | Execute_Immediate Reference_Lex_1,0xd 002d 00c7 | | Action Elaborate_Subprogram 002e 1d14 | | Execute_Immediate Reference_Lex_1,0x14 002f 00c7 | | Action Elaborate_Subprogram 0030 e002 | | Load 0x0,0x2 0031 e003 | | Load 0x0,0x3 0032 e004 | | Load 0x0,0x4 0033 e005 | | Load 0x0,0x5 0034 e001 | | Load 0x0,0x1 0035 e006 | | Load 0x0,0x6 0036 e007 | | Load 0x0,0x7 0037 4807 |H | Short_Literal 0x7 0038 e212 | | Load 0x1,0x12 0039 020e | | Execute Module,Augment_Imports 003a 00db | | Load_Top At_Offset_3 003b 020d | | Execute Module,Elaborate 003c 0007 | | Action Break_Optional 003d e008 | | Load 0x0,0x8 003e e009 | | Load 0x0,0x9 003f e004 | | Load 0x0,0x4 0040 e005 | | Load 0x0,0x5 0041 e001 | | Load 0x0,0x1 0042 e006 | | Load 0x0,0x6 0043 4806 |H | Short_Literal 0x6 0044 e210 | | Load 0x1,0x10 0045 020e | | Execute Module,Augment_Imports 0046 e210 | | Load 0x1,0x10 0047 020d | | Execute Module,Elaborate 0048 0007 | | Action Break_Optional 0049 e00a | | Load 0x0,0xa 004a e00b | | Load 0x0,0xb 004b e004 | | Load 0x0,0x4 004c e001 | | Load 0x0,0x1 004d 4804 |H | Short_Literal 0x4 004e e211 | | Load 0x1,0x11 004f 020e | | Execute Module,Augment_Imports 0050 e211 | | Load 0x1,0x11 0051 020d | | Execute Module,Elaborate 0052 BODY_0008: 0052 00bc | | Action Signal_Activated 0053 00bb | | Action Signal_Completion 0054 0000 0000 | | .BLANK 0000[0x4] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 0077 | w | .CONST 0x0077 ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 000d | | .CONST 0x000d ; Number of locals 005b INIT_0058: 005b 029f 00cb | | Declare_Subprogram INIT_00c8,For_Call 005d 029f 00db | | Declare_Subprogram INIT_00d8,For_Call 005f 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call 0061 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call 0063 e004 | | Load 0x0,0x4 0064 190d | | Execute Package,Field_Reference,Field_Number 0xd 0065 00c6 | | Action Check_Subprogram_Elaborated 0066 e5fa | | Load 0x2,-0x6 0067 4802 |H | Short_Literal 0x2 0068 4802 |H | Short_Literal 0x2 0069 0099 | | Action Reference_Dynamic 006a 4803 |H | Short_Literal 0x3 006b 4802 |H | Short_Literal 0x2 006c 0099 | | Action Reference_Dynamic 006d 4804 |H | Short_Literal 0x4 006e 4802 |H | Short_Literal 0x2 006f 0099 | | Action Reference_Dynamic 0070 4805 |H | Short_Literal 0x5 0071 4802 |H | Short_Literal 0x2 0072 0099 | | Action Reference_Dynamic 0073 e00c | | Load 0x0,0xc 0074 e00d | | Load 0x0,0xd 0075 480d |H | Short_Literal 0xd 0076 0007 | | Action Break_Optional 0077 BODY_0058: 0077 e5f7 | | Load 0x2,-0x9 0078 e5f8 | | Load 0x2,-0x8 0079 e5f9 | | Load 0x2,-0x7 007a e5fa | | Load 0x2,-0x6 007b 0119 | | Execute Any,Check_In_Formal_Type 007c e406 | | Load 0x2,0x6 007d 4807 |H | Short_Literal 0x7 007e 4802 |H | Short_Literal 0x2 007f 0099 | | Action Reference_Dynamic 0080 4808 |H | Short_Literal 0x8 0081 4802 |H | Short_Literal 0x2 0082 0099 | | Action Reference_Dynamic 0083 4809 |H | Short_Literal 0x9 0084 4802 |H | Short_Literal 0x2 0085 0099 | | Action Reference_Dynamic 0086 480a |H | Short_Literal 0xa 0087 4802 |H | Short_Literal 0x2 0088 0099 | | Action Reference_Dynamic 0089 480b |H | Short_Literal 0xb 008a 4802 |H | Short_Literal 0x2 008b 0099 | | Action Reference_Dynamic 008c e004 | | Load 0x0,0x4 008d 180d | | Execute Package,Field_Execute,Field_Number 0xd 008e 450a |E | Exit_Suprogram New_Top_Offset 0xa 008f 0000 | | .XXX[0x1] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 00a7 | | .CONST 0x00a7 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0009 | | .CONST 0x0009 ; Number of locals 0093 INIT_0090: 0093 e004 | | Load 0x0,0x4 0094 1915 | | Execute Package,Field_Reference,Field_Number 0x15 0095 00c6 | | Action Check_Subprogram_Elaborated 0096 e5fa | | Load 0x2,-0x6 0097 4ffb |O | Short_Literal -0x5 0098 4802 |H | Short_Literal 0x2 0099 0099 | | Action Reference_Dynamic 009a 4ffc |O | Short_Literal -0x4 009b 4802 |H | Short_Literal 0x2 009c 0099 | | Action Reference_Dynamic 009d 4ffd |O | Short_Literal -0x3 009e 4802 |H | Short_Literal 0x2 009f 0099 | | Action Reference_Dynamic 00a0 4ffe |O | Short_Literal -0x2 00a1 4802 |H | Short_Literal 0x2 00a2 0099 | | Action Reference_Dynamic 00a3 e00e | | Load 0x0,0xe 00a4 e00f | | Load 0x0,0xf 00a5 4809 |H | Short_Literal 0x9 00a6 0007 | | Action Break_Optional 00a7 BODY_0090: 00a7 e5f8 | | Load 0x2,-0x8 00a8 00d8 | | Load_Top At_Offset_0 00a9 0120 | | Execute Any,Is_Value 00aa 6803 |h | Jump_Zero 0xae 00ab e402 | | Load 0x2,0x2 00ac 011e | | Execute Any,Convert 00ad 7802 |x | Jump 0xb0 00ae e5fa | | Load 0x2,-0x6 00af 0119 | | Execute Any,Check_In_Formal_Type 00b0 e5f9 | | Load 0x2,-0x7 00b1 e402 | | Load 0x2,0x2 00b2 4803 |H | Short_Literal 0x3 00b3 4802 |H | Short_Literal 0x2 00b4 0099 | | Action Reference_Dynamic 00b5 4804 |H | Short_Literal 0x4 00b6 4802 |H | Short_Literal 0x2 00b7 0099 | | Action Reference_Dynamic 00b8 4805 |H | Short_Literal 0x5 00b9 4802 |H | Short_Literal 0x2 00ba 0099 | | Action Reference_Dynamic 00bb 4806 |H | Short_Literal 0x6 00bc 4802 |H | Short_Literal 0x2 00bd 0099 | | Action Reference_Dynamic 00be 4807 |H | Short_Literal 0x7 00bf 4802 |H | Short_Literal 0x2 00c0 0099 | | Action Reference_Dynamic 00c1 e004 | | Load 0x0,0x4 00c2 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00c3 c5f8 | | Store 0x2,-0x8 00c4 4508 |E | Exit_Suprogram New_Top_Offset 0x8 00c5 0000 0000 | | .XXX[0x3] 00c7 0000 | | 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cb | | .CONST 0x00cb ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0001 | | .CONST 0x0001 ; Number of locals 00cb BODY_00c8: 00cb INIT_00c8: 00cb e7fc | | Load 0x3,-0x4 00cc 00e1 | | Load_Encached Boolean_Cache 00cd e7fe | | Load 0x3,-0x2 00ce e7ff | | Load 0x3,-0x1 00cf e5fa | | Load 0x2,-0x6 00d0 0119 | | Execute Any,Check_In_Formal_Type 00d1 85fb | | Call 0x2,-0x5 00d2 c7fd | | Store 0x3,-0x3 00d3 c7fc | | Store 0x3,-0x4 00d4 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00d5 0000 0000 | | .XXX[0x3] 00d7 0000 | | 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00db | | .CONST 0x00db ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0001 | | .CONST 0x0001 ; Number of locals 00db BODY_00d8: 00db INIT_00d8: 00db 00db | | Load_Top At_Offset_3 00dc 00db | | Load_Top At_Offset_3 00dd e5fa | | Load 0x2,-0x6 00de 0119 | | Execute Any,Check_In_Formal_Type 00df 85fc | | Call 0x2,-0x4 00e0 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00e1 0000 0000 | | .BLANK 0000[0x7] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00eb | | .CONST 0x00eb ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0001 | | .CONST 0x0001 ; Number of locals 00eb BODY_00e8: 00eb INIT_00e8: 00eb e7fd | | Load 0x3,-0x3 00ec e7fe | | Load 0x3,-0x2 00ed e7ff | | Load 0x3,-0x1 00ee e5fa | | Load 0x2,-0x6 00ef 0119 | | Execute Any,Check_In_Formal_Type 00f0 85fd | | Call 0x2,-0x3 00f1 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00f2 0000 0000 | | .BLANK 0000[0x6] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00fb | | .CONST 0x00fb ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0001 | | .CONST 0x0001 ; Number of locals 00fb BODY_00f8: 00fb INIT_00f8: 00fb e7fd | | Load 0x3,-0x3 00fc e7fe | | Load 0x3,-0x2 00fd e7ff | | Load 0x3,-0x1 00fe e5fa | | Load 0x2,-0x6 00ff 0119 | | Execute Any,Check_In_Formal_Type 0100 85fe | | Call 0x2,-0x2 0101 c7fd | | Store 0x3,-0x3 0102 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0103 0000 0000 | | .BLANK 0000[0x5] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 0147 | G | .CONST 0x0147 ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 001e | | .CONST 0x001e ; Number of locals 010b INIT_0108: 010b 00e5 | | Load_Encached Long_Integer_Cache 010c 0129 | ) | Execute Any,Make_Visible 010d 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 010f 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated 0111 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated 0113 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated 0115 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated 0117 e20f | | Load 0x1,0xf 0118 02a0 | | Declare_Subprogram Null_Subprogram 0119 03ae | | Declare_Type Heap_Access,Defined,Visible 011a 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated 011c 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated 011e 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated 0120 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated 0122 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated 0124 00bf | | Action Accept_Activation 0125 029b 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Unelaborated 0127 e001 | | Load 0x0,0x1 0128 e002 | | Load 0x0,0x2 0129 e20f | | Load 0x1,0xf 012a e217 | | Load 0x1,0x17 012b 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 012c e003 | | Load 0x0,0x3 012d 1b11 | | Execute Package,Field_Read,Field_Number 0x11 012e 0387 | | Declare_Variable Package 012f 00d8 | | Load_Top At_Offset_0 0130 020f | | Execute Module,Activate 0131 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0132 00c7 | | Action Elaborate_Subprogram 0133 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0134 00c7 | | Action Elaborate_Subprogram 0135 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0136 00c7 | | Action Elaborate_Subprogram 0137 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0138 00c7 | | Action Elaborate_Subprogram 0139 1d15 | | Execute_Immediate Reference_Lex_1,0x15 013a 00c7 | | Action Elaborate_Subprogram 013b 1d16 | | Execute_Immediate Reference_Lex_1,0x16 013c 00c7 | | Action Elaborate_Subprogram 013d 1d18 | | Execute_Immediate Reference_Lex_1,0x18 013e 00c7 | | Action Elaborate_Subprogram 013f 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0140 00c7 | | Action Elaborate_Subprogram 0141 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0142 00c7 | | Action Elaborate_Subprogram 0143 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0144 00c7 | | Action Elaborate_Subprogram 0145 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0146 00c7 | | Action Elaborate_Subprogram 0147 BODY_0108: 0147 00bc | | Action Signal_Activated 0148 00bb | | Action Signal_Completion 0149 0000 0000 | | .BLANK 0000[0x7] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0155 | U | .CONST 0x0155 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0002 | | .CONST 0x0002 ; Number of locals 0153 INIT_0150: 0153 e21e | | Load 0x1,0x1e 0154 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0155 BODY_0150: 0155 e5fc | | Load 0x2,-0x4 0156 e21e | | Load 0x1,0x1e 0157 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0158 e5fe | | Load 0x2,-0x2 0159 e5ff | | Load 0x2,-0x1 015a e20f | | Load 0x1,0xf 015b 0119 | | Execute Any,Check_In_Formal_Type 015c e21e | | Load 0x1,0x1e 015d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 015e 0032 | 2 | Store_Top Heap_Access,At_Offset_2 015f c5fc | | Store 0x2,-0x4 0160 00d8 | | Load_Top At_Offset_0 0161 e21e | | Load 0x1,0x1e 0162 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0163 a5fd | | Store_Unchecked 0x2,-0x3 0164 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0165 0000 0000 | | .XXX[0x3] 0167 0000 | | 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 016b | k | .CONST 0x016b ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0001 | | .CONST 0x0001 ; Number of locals 016b BODY_0168: 016b INIT_0168: 016b 00db | | Load_Top At_Offset_3 016c 00db | | Load_Top At_Offset_3 016d 00d8 | | Load_Top At_Offset_0 016e e004 | | Load 0x0,0x4 016f 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0170 0260 | ` | Execute Discrete,In_Type 0171 7001 |p | Jump_Nonzero 0x173 0172 0801 | | Execute_Immediate Raise,0x1 0173 e21e | | Load 0x1,0x1e 0174 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0175 e21e | | Load 0x1,0x1e 0176 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0177 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 017b | { | .CONST 0x017b ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0001 | | .CONST 0x0001 ; Number of locals 017b BODY_0178: 017b INIT_0178: 017b e5fd | | Load 0x2,-0x3 017c e5fe | | Load 0x2,-0x2 017d e5ff | | Load 0x2,-0x1 017e 00d8 | | Load_Top At_Offset_0 017f e004 | | Load 0x0,0x4 0180 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0181 0260 | ` | Execute Discrete,In_Type 0182 7001 |p | Jump_Nonzero 0x184 0183 0801 | | Execute_Immediate Raise,0x1 0184 e21e | | Load 0x1,0x1e 0185 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0186 e21e | | Load 0x1,0x1e 0187 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0188 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0189 0000 0000 | | .BLANK 0000[0x7] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 0193 | | .CONST 0x0193 ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0001 | | .CONST 0x0001 ; Number of locals 0193 BODY_0190: 0193 INIT_0190: 0193 00db | | Load_Top At_Offset_3 0194 0120 | | Execute Any,Is_Value 0195 6803 |h | Jump_Zero 0x199 0196 e21e | | Load 0x1,0x1e 0197 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0198 7803 |x | Jump 0x19c 0199 00db | | Load_Top At_Offset_3 019a e20f | | Load 0x1,0xf 019b 0119 | | Execute Any,Check_In_Formal_Type 019c 00db | | Load_Top At_Offset_3 019d 00d8 | | Load_Top At_Offset_0 019e e004 | | Load 0x0,0x4 019f 1b17 | | Execute Package,Field_Read,Field_Number 0x17 01a0 0260 | ` | Execute Discrete,In_Type 01a1 7001 |p | Jump_Nonzero 0x1a3 01a2 0801 | | Execute_Immediate Raise,0x1 01a3 e21e | | Load 0x1,0x1e 01a4 181d | | Execute Package,Field_Execute,Field_Number 0x1d 01a5 e21e | | Load 0x1,0x1e 01a6 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01a7 c5fe | | Store 0x2,-0x2 01a8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01a9 0000 0000 | | .BLANK 0000[0x7] 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 00d8 | | Load_Top At_Offset_0 01b5 e004 | | Load 0x0,0x4 01b6 1b17 | | Execute Package,Field_Read,Field_Number 0x17 01b7 0260 | ` | Execute Discrete,In_Type 01b8 7001 |p | Jump_Nonzero 0x1ba 01b9 0801 | | Execute_Immediate Raise,0x1 01ba e21e | | Load 0x1,0x1e 01bb 181d | | Execute Package,Field_Execute,Field_Number 0x1d 01bc e21e | | Load 0x1,0x1e 01bd 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01be 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01bf 0000 | | .XXX[0x1] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c3 | | .CONST 0x01c3 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0001 | | .CONST 0x0001 ; Number of locals 01c3 BODY_01c0: 01c3 INIT_01c0: 01c3 00da | | Load_Top At_Offset_2 01c4 00d8 | | Load_Top At_Offset_0 01c5 e004 | | Load 0x0,0x4 01c6 1b17 | | Execute Package,Field_Read,Field_Number 0x17 01c7 0260 | ` | Execute Discrete,In_Type 01c8 7001 |p | Jump_Nonzero 0x1ca 01c9 0801 | | Execute_Immediate Raise,0x1 01ca e21e | | Load 0x1,0x1e 01cb 181d | | Execute Package,Field_Execute,Field_Number 0x1d 01cc e21e | | Load 0x1,0x1e 01cd 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01ce 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01cf 0000 | | .XXX[0x1] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d3 | | .CONST 0x01d3 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0001 | | .CONST 0x0001 ; Number of locals 01d3 BODY_01d0: 01d3 INIT_01d0: 01d3 00da | | Load_Top At_Offset_2 01d4 00d8 | | Load_Top At_Offset_0 01d5 e004 | | Load 0x0,0x4 01d6 1b17 | | Execute Package,Field_Read,Field_Number 0x17 01d7 0260 | ` | Execute Discrete,In_Type 01d8 7001 |p | Jump_Nonzero 0x1da 01d9 0801 | | Execute_Immediate Raise,0x1 01da e21e | | Load 0x1,0x1e 01db 181d | | Execute Package,Field_Execute,Field_Number 0x1d 01dc e21e | | Load 0x1,0x1e 01dd 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01de 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01df 0000 | | .XXX[0x1] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01e3 | | .CONST 0x01e3 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0001 | | .CONST 0x0001 ; Number of locals 01e3 BODY_01e0: 01e3 INIT_01e0: 01e3 00db | | Load_Top At_Offset_3 01e4 00db | | Load_Top At_Offset_3 01e5 00d8 | | Load_Top At_Offset_0 01e6 e004 | | Load 0x0,0x4 01e7 1b17 | | Execute Package,Field_Read,Field_Number 0x17 01e8 0260 | ` | Execute Discrete,In_Type 01e9 7001 |p | Jump_Nonzero 0x1eb 01ea 0801 | | Execute_Immediate Raise,0x1 01eb e21e | | Load 0x1,0x1e 01ec 181d | | Execute Package,Field_Execute,Field_Number 0x1d 01ed e21e | | Load 0x1,0x1e 01ee 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01ef 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01f3 | | .CONST 0x01f3 ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0001 | | .CONST 0x0001 ; Number of locals 01f3 BODY_01f0: 01f3 INIT_01f0: 01f3 00da | | Load_Top At_Offset_2 01f4 00d8 | | Load_Top At_Offset_0 01f5 e004 | | Load 0x0,0x4 01f6 1b17 | | Execute Package,Field_Read,Field_Number 0x17 01f7 0260 | ` | Execute Discrete,In_Type 01f8 7001 |p | Jump_Nonzero 0x1fa 01f9 0801 | | Execute_Immediate Raise,0x1 01fa e21e | | Load 0x1,0x1e 01fb 181d | | Execute Package,Field_Execute,Field_Number 0x1d 01fc e21e | | Load 0x1,0x1e 01fd 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01fe 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ff 0000 | | .XXX[0x1] 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 0203 | | .CONST 0x0203 ; Address of begin 0201 0004 | | .CONST 0x0004 ; Address of exception handler 0202 0001 | | .CONST 0x0001 ; Number of locals 0203 BODY_0200: 0203 INIT_0200: 0203 00da | | Load_Top At_Offset_2 0204 00d8 | | Load_Top At_Offset_0 0205 e004 | | Load 0x0,0x4 0206 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0207 0260 | ` | Execute Discrete,In_Type 0208 7001 |p | Jump_Nonzero 0x20a 0209 0801 | | Execute_Immediate Raise,0x1 020a e21e | | Load 0x1,0x1e 020b 181d | | Execute Package,Field_Execute,Field_Number 0x1d 020c e21e | | Load 0x1,0x1e 020d 181c | | Execute Package,Field_Execute,Field_Number 0x1c 020e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 020f 0000 | | .XXX[0x1] 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0213 | | .CONST 0x0213 ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0001 | | .CONST 0x0001 ; Number of locals 0213 BODY_0210: 0213 INIT_0210: 0213 00db | | Load_Top At_Offset_3 0214 e20f | | Load 0x1,0xf 0215 0119 | | Execute Any,Check_In_Formal_Type 0216 00db | | Load_Top At_Offset_3 0217 8210 | | Call 0x1,0x10 0218 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0219 0000 0000 | | .BLANK 0000[0x7] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0267 | g | .CONST 0x0267 ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0020 | | .CONST 0x0020 ; Number of locals 0223 INIT_0220: 0223 00e5 | | Load_Encached Long_Integer_Cache 0224 0129 | ) | Execute Any,Make_Visible 0225 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated 0227 029a 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call,Visible,Unelaborated 0229 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated 022b 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated 022d 029a 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call,Visible,Unelaborated 022f 029a 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call,Visible,Unelaborated 0231 029a 031b | | Declare_Subprogram INIT_0318,For_Outer_Call,Visible,Unelaborated 0233 e20f | | Load 0x1,0xf 0234 02a0 | | Declare_Subprogram Null_Subprogram 0235 03ae | | Declare_Type Heap_Access,Defined,Visible 0236 029a 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call,Visible,Unelaborated 0238 029a 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call,Visible,Unelaborated 023a 029a 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call,Visible,Unelaborated 023c 029a 035b | [| Declare_Subprogram INIT_0358,For_Outer_Call,Visible,Unelaborated 023e 029a 036b | k| Declare_Subprogram INIT_0368,For_Outer_Call,Visible,Unelaborated 0240 00bf | | Action Accept_Activation 0241 029b 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call,Unelaborated 0243 e001 | | Load 0x0,0x1 0244 e002 | | Load 0x0,0x2 0245 e20f | | Load 0x1,0xf 0246 e219 | | Load 0x1,0x19 0247 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0248 e003 | | Load 0x0,0x3 0249 1b10 | | Execute Package,Field_Read,Field_Number 0x10 024a 0387 | | Declare_Variable Package 024b 00d8 | | Load_Top At_Offset_0 024c 020f | | Execute Module,Activate 024d 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 024e 00c7 | | Action Elaborate_Subprogram 024f 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0250 00c7 | | Action Elaborate_Subprogram 0251 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0252 00c7 | | Action Elaborate_Subprogram 0253 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0254 00c7 | | Action Elaborate_Subprogram 0255 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0256 00c7 | | Action Elaborate_Subprogram 0257 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0258 00c7 | | Action Elaborate_Subprogram 0259 1d17 | | Execute_Immediate Reference_Lex_1,0x17 025a 00c7 | | Action Elaborate_Subprogram 025b 1d18 | | Execute_Immediate Reference_Lex_1,0x18 025c 00c7 | | Action Elaborate_Subprogram 025d 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 025e 00c7 | | Action Elaborate_Subprogram 025f 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0260 00c7 | | Action Elaborate_Subprogram 0261 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0262 00c7 | | Action Elaborate_Subprogram 0263 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0264 00c7 | | Action Elaborate_Subprogram 0265 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0266 00c7 | | Action Elaborate_Subprogram 0267 BODY_0220: 0267 00bc | | Action Signal_Activated 0268 00bb | | Action Signal_Completion 0269 0000 0000 | | .BLANK 0000[0x7] 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 0275 | u | .CONST 0x0275 ; Address of begin 0271 0004 | | .CONST 0x0004 ; Address of exception handler 0272 0002 | | .CONST 0x0002 ; Number of locals 0273 INIT_0270: 0273 e220 | | Load 0x1,0x20 0274 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0275 BODY_0270: 0275 e5fa | | Load 0x2,-0x6 0276 e220 | | Load 0x1,0x20 0277 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0278 e5fc | | Load 0x2,-0x4 0279 e004 | | Load 0x0,0x4 027a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 027b 00d9 | | Load_Top At_Offset_1 027c 00d0 | | Action Swap_Control 027d 0260 | ` | Execute Discrete,In_Type 027e 7001 |p | Jump_Nonzero 0x280 027f 0801 | | Execute_Immediate Raise,0x1 0280 e5fd | | Load 0x2,-0x3 0281 e5fe | | Load 0x2,-0x2 0282 e5ff | | Load 0x2,-0x1 0283 e20f | | Load 0x1,0xf 0284 0119 | | Execute Any,Check_In_Formal_Type 0285 e220 | | Load 0x1,0x20 0286 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0287 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0288 c5fa | | Store 0x2,-0x6 0289 00d8 | | Load_Top At_Offset_0 028a e220 | | Load 0x1,0x20 028b 1820 | | Execute Package,Field_Execute,Field_Number 0x20 028c a5fb | | Store_Unchecked 0x2,-0x5 028d 4505 |E | Exit_Suprogram New_Top_Offset 0x5 028e 0000 0000 | | .XXX[0x2] 0290 ; -------------------------------------------------------------------------------------- 0290 ; SUBPROGRAM 0290 ; -------------------------------------------------------------------------------------- 0290 0295 | | .CONST 0x0295 ; Address of begin 0291 0004 | | .CONST 0x0004 ; Address of exception handler 0292 0002 | | .CONST 0x0002 ; Number of locals 0293 INIT_0290: 0293 e220 | | Load 0x1,0x20 0294 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0295 BODY_0290: 0295 e5fb | | Load 0x2,-0x5 0296 e220 | | Load 0x1,0x20 0297 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0298 e5fd | | Load 0x2,-0x3 0299 e004 | | Load 0x0,0x4 029a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 029b 00d9 | | Load_Top At_Offset_1 029c 00d0 | | Action Swap_Control 029d 0260 | ` | Execute Discrete,In_Type 029e 7001 |p | Jump_Nonzero 0x2a0 029f 0801 | | Execute_Immediate Raise,0x1 02a0 e5fe | | Load 0x2,-0x2 02a1 e5ff | | Load 0x2,-0x1 02a2 e20f | | Load 0x1,0xf 02a3 0119 | | Execute Any,Check_In_Formal_Type 02a4 e220 | | Load 0x1,0x20 02a5 1814 | | Execute Package,Field_Execute,Field_Number 0x14 02a6 0032 | 2 | Store_Top Heap_Access,At_Offset_2 02a7 c5fb | | Store 0x2,-0x5 02a8 00d8 | | Load_Top At_Offset_0 02a9 e220 | | Load 0x1,0x20 02aa 1820 | | Execute Package,Field_Execute,Field_Number 0x20 02ab a5fc | | Store_Unchecked 0x2,-0x4 02ac 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02ad 0000 0000 | | .XXX[0x3] 02af 0000 | | 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02b3 | | .CONST 0x02b3 ; Address of begin 02b1 0004 | | .CONST 0x0004 ; Address of exception handler 02b2 0001 | | .CONST 0x0001 ; Number of locals 02b3 BODY_02b0: 02b3 INIT_02b0: 02b3 00db | | Load_Top At_Offset_3 02b4 00db | | Load_Top At_Offset_3 02b5 00d8 | | Load_Top At_Offset_0 02b6 e005 | | Load 0x0,0x5 02b7 1b17 | | Execute Package,Field_Read,Field_Number 0x17 02b8 0260 | ` | Execute Discrete,In_Type 02b9 7001 |p | Jump_Nonzero 0x2bb 02ba 0801 | | Execute_Immediate Raise,0x1 02bb e220 | | Load 0x1,0x20 02bc 181f | | Execute Package,Field_Execute,Field_Number 0x1f 02bd e220 | | Load 0x1,0x20 02be 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02bf 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; SUBPROGRAM 02c0 ; -------------------------------------------------------------------------------------- 02c0 02c3 | | .CONST 0x02c3 ; Address of begin 02c1 0004 | | .CONST 0x0004 ; Address of exception handler 02c2 0001 | | .CONST 0x0001 ; Number of locals 02c3 BODY_02c0: 02c3 INIT_02c0: 02c3 e5fd | | Load 0x2,-0x3 02c4 e5fe | | Load 0x2,-0x2 02c5 e5ff | | Load 0x2,-0x1 02c6 00d8 | | Load_Top At_Offset_0 02c7 e005 | | Load 0x0,0x5 02c8 1b17 | | Execute Package,Field_Read,Field_Number 0x17 02c9 0260 | ` | Execute Discrete,In_Type 02ca 7001 |p | Jump_Nonzero 0x2cc 02cb 0801 | | Execute_Immediate Raise,0x1 02cc e220 | | Load 0x1,0x20 02cd 181f | | Execute Package,Field_Execute,Field_Number 0x1f 02ce e220 | | Load 0x1,0x20 02cf 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02d0 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02d1 0000 0000 | | .BLANK 0000[0x7] 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; SUBPROGRAM 02d8 ; -------------------------------------------------------------------------------------- 02d8 02db | | .CONST 0x02db ; Address of begin 02d9 0004 | | .CONST 0x0004 ; Address of exception handler 02da 0001 | | .CONST 0x0001 ; Number of locals 02db BODY_02d8: 02db INIT_02d8: 02db 00db | | Load_Top At_Offset_3 02dc 0120 | | Execute Any,Is_Value 02dd 6803 |h | Jump_Zero 0x2e1 02de e220 | | Load 0x1,0x20 02df 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02e0 7803 |x | Jump 0x2e4 02e1 00db | | Load_Top At_Offset_3 02e2 e20f | | Load 0x1,0xf 02e3 0119 | | Execute Any,Check_In_Formal_Type 02e4 00db | | Load_Top At_Offset_3 02e5 00d8 | | Load_Top At_Offset_0 02e6 e005 | | Load 0x0,0x5 02e7 1b17 | | Execute Package,Field_Read,Field_Number 0x17 02e8 0260 | ` | Execute Discrete,In_Type 02e9 7001 |p | Jump_Nonzero 0x2eb 02ea 0801 | | Execute_Immediate Raise,0x1 02eb e220 | | Load 0x1,0x20 02ec 181f | | Execute Package,Field_Execute,Field_Number 0x1f 02ed e220 | | Load 0x1,0x20 02ee 1817 | | Execute Package,Field_Execute,Field_Number 0x17 02ef c5fe | | Store 0x2,-0x2 02f0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02f1 0000 0000 | | .BLANK 0000[0x7] 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 00d8 | | Load_Top At_Offset_0 02fd e005 | | Load 0x0,0x5 02fe 1b17 | | Execute Package,Field_Read,Field_Number 0x17 02ff 0260 | ` | Execute Discrete,In_Type 0300 7001 |p | Jump_Nonzero 0x302 0301 0801 | | Execute_Immediate Raise,0x1 0302 e220 | | Load 0x1,0x20 0303 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0304 e220 | | Load 0x1,0x20 0305 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0306 00d8 | | Load_Top At_Offset_0 0307 e006 | | Load 0x0,0x6 0308 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0309 0122 | " | Execute Any,Make_Root_Type 030a 0260 | ` | Execute Discrete,In_Type 030b 7001 |p | Jump_Nonzero 0x30d 030c 0801 | | Execute_Immediate Raise,0x1 030d e006 | | Load 0x0,0x6 030e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 030f 00d9 | | Load_Top At_Offset_1 0310 00d0 | | Action Swap_Control 0311 0260 | ` | Execute Discrete,In_Type 0312 7001 |p | Jump_Nonzero 0x314 0313 0801 | | Execute_Immediate Raise,0x1 0314 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0315 0000 0000 | | .XXX[0x3] 0317 0000 | | 0318 ; -------------------------------------------------------------------------------------- 0318 ; SUBPROGRAM 0318 ; -------------------------------------------------------------------------------------- 0318 031b | | .CONST 0x031b ; Address of begin 0319 0004 | | .CONST 0x0004 ; Address of exception handler 031a 0001 | | .CONST 0x0001 ; Number of locals 031b BODY_0318: 031b INIT_0318: 031b 00da | | Load_Top At_Offset_2 031c 00d8 | | Load_Top At_Offset_0 031d e005 | | Load 0x0,0x5 031e 1b17 | | Execute Package,Field_Read,Field_Number 0x17 031f 0260 | ` | Execute Discrete,In_Type 0320 7001 |p | Jump_Nonzero 0x322 0321 0801 | | Execute_Immediate Raise,0x1 0322 e220 | | Load 0x1,0x20 0323 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0324 e220 | | Load 0x1,0x20 0325 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0326 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0327 0000 | | .XXX[0x1] 0328 ; -------------------------------------------------------------------------------------- 0328 ; SUBPROGRAM 0328 ; -------------------------------------------------------------------------------------- 0328 032b | + | .CONST 0x032b ; Address of begin 0329 0004 | | .CONST 0x0004 ; Address of exception handler 032a 0001 | | .CONST 0x0001 ; Number of locals 032b BODY_0328: 032b INIT_0328: 032b 00da | | Load_Top At_Offset_2 032c 00d8 | | Load_Top At_Offset_0 032d e005 | | Load 0x0,0x5 032e 1b17 | | Execute Package,Field_Read,Field_Number 0x17 032f 0260 | ` | Execute Discrete,In_Type 0330 7001 |p | Jump_Nonzero 0x332 0331 0801 | | Execute_Immediate Raise,0x1 0332 e220 | | Load 0x1,0x20 0333 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0334 e220 | | Load 0x1,0x20 0335 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0336 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0337 0000 | | .XXX[0x1] 0338 ; -------------------------------------------------------------------------------------- 0338 ; SUBPROGRAM 0338 ; -------------------------------------------------------------------------------------- 0338 033b | ; | .CONST 0x033b ; Address of begin 0339 0004 | | .CONST 0x0004 ; Address of exception handler 033a 0001 | | .CONST 0x0001 ; Number of locals 033b BODY_0338: 033b INIT_0338: 033b 00da | | Load_Top At_Offset_2 033c 00d8 | | Load_Top At_Offset_0 033d e005 | | Load 0x0,0x5 033e 1b17 | | Execute Package,Field_Read,Field_Number 0x17 033f 0260 | ` | Execute Discrete,In_Type 0340 7001 |p | Jump_Nonzero 0x342 0341 0801 | | Execute_Immediate Raise,0x1 0342 e220 | | Load 0x1,0x20 0343 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0344 e220 | | Load 0x1,0x20 0345 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0346 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0347 0000 | | .XXX[0x1] 0348 ; -------------------------------------------------------------------------------------- 0348 ; SUBPROGRAM 0348 ; -------------------------------------------------------------------------------------- 0348 034b | K | .CONST 0x034b ; Address of begin 0349 0004 | | .CONST 0x0004 ; Address of exception handler 034a 0001 | | .CONST 0x0001 ; Number of locals 034b BODY_0348: 034b INIT_0348: 034b 00db | | Load_Top At_Offset_3 034c 00db | | Load_Top At_Offset_3 034d 00d8 | | Load_Top At_Offset_0 034e e005 | | Load 0x0,0x5 034f 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0350 0260 | ` | Execute Discrete,In_Type 0351 7001 |p | Jump_Nonzero 0x353 0352 0801 | | Execute_Immediate Raise,0x1 0353 e220 | | Load 0x1,0x20 0354 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0355 e220 | | Load 0x1,0x20 0356 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0357 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0358 ; -------------------------------------------------------------------------------------- 0358 ; SUBPROGRAM 0358 ; -------------------------------------------------------------------------------------- 0358 035b | [ | .CONST 0x035b ; Address of begin 0359 0004 | | .CONST 0x0004 ; Address of exception handler 035a 0001 | | .CONST 0x0001 ; Number of locals 035b BODY_0358: 035b INIT_0358: 035b 00da | | Load_Top At_Offset_2 035c 00d8 | | Load_Top At_Offset_0 035d e005 | | Load 0x0,0x5 035e 1b17 | | Execute Package,Field_Read,Field_Number 0x17 035f 0260 | ` | Execute Discrete,In_Type 0360 7001 |p | Jump_Nonzero 0x362 0361 0801 | | Execute_Immediate Raise,0x1 0362 e220 | | Load 0x1,0x20 0363 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0364 e220 | | Load 0x1,0x20 0365 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0366 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0367 0000 | | .XXX[0x1] 0368 ; -------------------------------------------------------------------------------------- 0368 ; SUBPROGRAM 0368 ; -------------------------------------------------------------------------------------- 0368 036b | k | .CONST 0x036b ; Address of begin 0369 0004 | | .CONST 0x0004 ; Address of exception handler 036a 0001 | | .CONST 0x0001 ; Number of locals 036b BODY_0368: 036b INIT_0368: 036b 00da | | Load_Top At_Offset_2 036c 00d8 | | Load_Top At_Offset_0 036d e005 | | Load 0x0,0x5 036e 1b17 | | Execute Package,Field_Read,Field_Number 0x17 036f 0260 | ` | Execute Discrete,In_Type 0370 7001 |p | Jump_Nonzero 0x372 0371 0801 | | Execute_Immediate Raise,0x1 0372 e220 | | Load 0x1,0x20 0373 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0374 e220 | | Load 0x1,0x20 0375 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0376 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0377 0000 | | .XXX[0x1] 0378 ; -------------------------------------------------------------------------------------- 0378 ; SUBPROGRAM 0378 ; -------------------------------------------------------------------------------------- 0378 037b | { | .CONST 0x037b ; Address of begin 0379 0004 | | .CONST 0x0004 ; Address of exception handler 037a 0001 | | .CONST 0x0001 ; Number of locals 037b BODY_0378: 037b INIT_0378: 037b e5fd | | Load 0x2,-0x3 037c e20f | | Load 0x1,0xf 037d 0119 | | Execute Any,Check_In_Formal_Type 037e e5fe | | Load 0x2,-0x2 037f e5ff | | Load 0x2,-0x1 0380 8210 | | Call 0x1,0x10 0381 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0382 0000 0000 | | .BLANK 0000[0x6] 0388 ; -------------------------------------------------------------------------------------- 0388 ; SUBPROGRAM 0388 ; -------------------------------------------------------------------------------------- 0388 03cc | | .CONST 0x03cc ; Address of begin 0389 0004 | | .CONST 0x0004 ; Address of exception handler 038a 0020 | | .CONST 0x0020 ; Number of locals 038b INIT_0388: 038b 00e5 | | Load_Encached Long_Integer_Cache 038c 0129 | ) | Execute Any,Make_Visible 038d 029a 03d3 | | Declare_Subprogram INIT_03d0,For_Outer_Call,Visible,Unelaborated 038f 029a 03f3 | | Declare_Subprogram INIT_03f0,For_Outer_Call,Visible,Unelaborated 0391 029a 0403 | | Declare_Subprogram INIT_0400,For_Outer_Call,Visible,Unelaborated 0393 029a 041b | | Declare_Subprogram INIT_0418,For_Outer_Call,Visible,Unelaborated 0395 029a 043b | ;| Declare_Subprogram INIT_0438,For_Outer_Call,Visible,Unelaborated 0397 e20f | | Load 0x1,0xf 0398 02a0 | | Declare_Subprogram Null_Subprogram 0399 03ae | | Declare_Type Heap_Access,Defined,Visible 039a 029a 045b | [| Declare_Subprogram INIT_0458,For_Outer_Call,Visible,Unelaborated 039c 029a 046b | k| Declare_Subprogram INIT_0468,For_Outer_Call,Visible,Unelaborated 039e 029a 047b | {| Declare_Subprogram INIT_0478,For_Outer_Call,Visible,Unelaborated 03a0 029a 048b | | Declare_Subprogram INIT_0488,For_Outer_Call,Visible,Unelaborated 03a2 029a 049b | | Declare_Subprogram INIT_0498,For_Outer_Call,Visible,Unelaborated 03a4 00bf | | Action Accept_Activation 03a5 029b 04ab | | Declare_Subprogram INIT_04a8,For_Outer_Call,Unelaborated 03a7 029b 04bb | | Declare_Subprogram INIT_04b8,For_Outer_Call,Unelaborated 03a9 e001 | | Load 0x0,0x1 03aa e002 | | Load 0x0,0x2 03ab e20f | | Load 0x1,0xf 03ac e218 | | Load 0x1,0x18 03ad 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 03ae 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 03af e003 | | Load 0x0,0x3 03b0 1b12 | | Execute Package,Field_Read,Field_Number 0x12 03b1 0387 | | Declare_Variable Package 03b2 00d8 | | Load_Top At_Offset_0 03b3 020f | | Execute Module,Activate 03b4 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 03b5 00c7 | | Action Elaborate_Subprogram 03b6 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 03b7 00c7 | | Action Elaborate_Subprogram 03b8 1d13 | | Execute_Immediate Reference_Lex_1,0x13 03b9 00c7 | | Action Elaborate_Subprogram 03ba 1d14 | | Execute_Immediate Reference_Lex_1,0x14 03bb 00c7 | | Action Elaborate_Subprogram 03bc 1d15 | | Execute_Immediate Reference_Lex_1,0x15 03bd 00c7 | | Action Elaborate_Subprogram 03be 1d16 | | Execute_Immediate Reference_Lex_1,0x16 03bf 00c7 | | Action Elaborate_Subprogram 03c0 1d17 | | Execute_Immediate Reference_Lex_1,0x17 03c1 00c7 | | Action Elaborate_Subprogram 03c2 1d19 | | Execute_Immediate Reference_Lex_1,0x19 03c3 00c7 | | Action Elaborate_Subprogram 03c4 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 03c5 00c7 | | Action Elaborate_Subprogram 03c6 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 03c7 00c7 | | Action Elaborate_Subprogram 03c8 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 03c9 00c7 | | Action Elaborate_Subprogram 03ca 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 03cb 00c7 | | Action Elaborate_Subprogram 03cc BODY_0388: 03cc 00bc | | Action Signal_Activated 03cd 00bb | | Action Signal_Completion 03ce 0000 0000 | | .XXX[0x2] 03d0 ; -------------------------------------------------------------------------------------- 03d0 ; SUBPROGRAM 03d0 ; -------------------------------------------------------------------------------------- 03d0 03d5 | | .CONST 0x03d5 ; Address of begin 03d1 0004 | | .CONST 0x0004 ; Address of exception handler 03d2 0002 | | .CONST 0x0002 ; Number of locals 03d3 INIT_03d0: 03d3 e220 | | Load 0x1,0x20 03d4 1b13 | | Execute Package,Field_Read,Field_Number 0x13 03d5 BODY_03d0: 03d5 e5fc | | Load 0x2,-0x4 03d6 e220 | | Load 0x1,0x20 03d7 1b13 | | Execute Package,Field_Read,Field_Number 0x13 03d8 e5fe | | Load 0x2,-0x2 03d9 e004 | | Load 0x0,0x4 03da 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03db 00d9 | | Load_Top At_Offset_1 03dc 00d0 | | Action Swap_Control 03dd 0260 | ` | Execute Discrete,In_Type 03de 7001 |p | Jump_Nonzero 0x3e0 03df 0801 | | Execute_Immediate Raise,0x1 03e0 e5ff | | Load 0x2,-0x1 03e1 e20f | | Load 0x1,0xf 03e2 0119 | | Execute Any,Check_In_Formal_Type 03e3 e220 | | Load 0x1,0x20 03e4 1814 | | Execute Package,Field_Execute,Field_Number 0x14 03e5 0032 | 2 | Store_Top Heap_Access,At_Offset_2 03e6 c5fc | | Store 0x2,-0x4 03e7 00d8 | | Load_Top At_Offset_0 03e8 e220 | | Load 0x1,0x20 03e9 181f | | Execute Package,Field_Execute,Field_Number 0x1f 03ea a5fd | | Store_Unchecked 0x2,-0x3 03eb 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03ec 0000 0000 | | .BLANK 0000[0x4] 03f0 ; -------------------------------------------------------------------------------------- 03f0 ; SUBPROGRAM 03f0 ; -------------------------------------------------------------------------------------- 03f0 03f3 | | .CONST 0x03f3 ; Address of begin 03f1 0004 | | .CONST 0x0004 ; Address of exception handler 03f2 0001 | | .CONST 0x0001 ; Number of locals 03f3 BODY_03f0: 03f3 INIT_03f0: 03f3 00db | | Load_Top At_Offset_3 03f4 00db | | Load_Top At_Offset_3 03f5 00d8 | | Load_Top At_Offset_0 03f6 e005 | | Load 0x0,0x5 03f7 1b17 | | Execute Package,Field_Read,Field_Number 0x17 03f8 0260 | ` | Execute Discrete,In_Type 03f9 7001 |p | Jump_Nonzero 0x3fb 03fa 0801 | | Execute_Immediate Raise,0x1 03fb e220 | | Load 0x1,0x20 03fc 181e | | Execute Package,Field_Execute,Field_Number 0x1e 03fd e220 | | Load 0x1,0x20 03fe 1815 | | Execute Package,Field_Execute,Field_Number 0x15 03ff 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0400 ; -------------------------------------------------------------------------------------- 0400 ; SUBPROGRAM 0400 ; -------------------------------------------------------------------------------------- 0400 0403 | | .CONST 0x0403 ; Address of begin 0401 0004 | | .CONST 0x0004 ; Address of exception handler 0402 0001 | | .CONST 0x0001 ; Number of locals 0403 BODY_0400: 0403 INIT_0400: 0403 e5fd | | Load 0x2,-0x3 0404 e5fe | | Load 0x2,-0x2 0405 e5ff | | Load 0x2,-0x1 0406 00d8 | | Load_Top At_Offset_0 0407 e005 | | Load 0x0,0x5 0408 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0409 0260 | ` | Execute Discrete,In_Type 040a 7001 |p | Jump_Nonzero 0x40c 040b 0801 | | Execute_Immediate Raise,0x1 040c e220 | | Load 0x1,0x20 040d 181e | | Execute Package,Field_Execute,Field_Number 0x1e 040e e220 | | Load 0x1,0x20 040f 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0410 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0411 0000 0000 | | .BLANK 0000[0x7] 0418 ; -------------------------------------------------------------------------------------- 0418 ; SUBPROGRAM 0418 ; -------------------------------------------------------------------------------------- 0418 041b | | .CONST 0x041b ; Address of begin 0419 0004 | | .CONST 0x0004 ; Address of exception handler 041a 0001 | | .CONST 0x0001 ; Number of locals 041b BODY_0418: 041b INIT_0418: 041b 00db | | Load_Top At_Offset_3 041c 0120 | | Execute Any,Is_Value 041d 6803 |h | Jump_Zero 0x421 041e e220 | | Load 0x1,0x20 041f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0420 7803 |x | Jump 0x424 0421 00db | | Load_Top At_Offset_3 0422 e20f | | Load 0x1,0xf 0423 0119 | | Execute Any,Check_In_Formal_Type 0424 00db | | Load_Top At_Offset_3 0425 00d8 | | Load_Top At_Offset_0 0426 e005 | | Load 0x0,0x5 0427 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0428 0260 | ` | Execute Discrete,In_Type 0429 7001 |p | Jump_Nonzero 0x42b 042a 0801 | | Execute_Immediate Raise,0x1 042b e220 | | Load 0x1,0x20 042c 181e | | Execute Package,Field_Execute,Field_Number 0x1e 042d e220 | | Load 0x1,0x20 042e 1817 | | Execute Package,Field_Execute,Field_Number 0x17 042f c5fe | | Store 0x2,-0x2 0430 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0431 0000 0000 | | .BLANK 0000[0x7] 0438 ; -------------------------------------------------------------------------------------- 0438 ; SUBPROGRAM 0438 ; -------------------------------------------------------------------------------------- 0438 043b | ; | .CONST 0x043b ; Address of begin 0439 0004 | | .CONST 0x0004 ; Address of exception handler 043a 0001 | | .CONST 0x0001 ; Number of locals 043b BODY_0438: 043b INIT_0438: 043b 00da | | Load_Top At_Offset_2 043c 00d8 | | Load_Top At_Offset_0 043d e005 | | Load 0x0,0x5 043e 1b17 | | Execute Package,Field_Read,Field_Number 0x17 043f 0260 | ` | Execute Discrete,In_Type 0440 7001 |p | Jump_Nonzero 0x442 0441 0801 | | Execute_Immediate Raise,0x1 0442 e220 | | Load 0x1,0x20 0443 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0444 e220 | | Load 0x1,0x20 0445 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0446 00d8 | | Load_Top At_Offset_0 0447 e006 | | Load 0x0,0x6 0448 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0449 0122 | " | Execute Any,Make_Root_Type 044a 0260 | ` | Execute Discrete,In_Type 044b 7001 |p | Jump_Nonzero 0x44d 044c 0801 | | Execute_Immediate Raise,0x1 044d e006 | | Load 0x0,0x6 044e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 044f 00d9 | | Load_Top At_Offset_1 0450 00d0 | | Action Swap_Control 0451 0260 | ` | Execute Discrete,In_Type 0452 7001 |p | Jump_Nonzero 0x454 0453 0801 | | Execute_Immediate Raise,0x1 0454 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0455 0000 0000 | | .XXX[0x3] 0457 0000 | | 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 00da | | Load_Top At_Offset_2 045c 00d8 | | Load_Top At_Offset_0 045d e005 | | Load 0x0,0x5 045e 1b17 | | Execute Package,Field_Read,Field_Number 0x17 045f 0260 | ` | Execute Discrete,In_Type 0460 7001 |p | Jump_Nonzero 0x462 0461 0801 | | Execute_Immediate Raise,0x1 0462 e220 | | Load 0x1,0x20 0463 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0464 e220 | | Load 0x1,0x20 0465 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0466 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0467 0000 | | .XXX[0x1] 0468 ; -------------------------------------------------------------------------------------- 0468 ; SUBPROGRAM 0468 ; -------------------------------------------------------------------------------------- 0468 046b | k | .CONST 0x046b ; Address of begin 0469 0004 | | .CONST 0x0004 ; Address of exception handler 046a 0001 | | .CONST 0x0001 ; Number of locals 046b BODY_0468: 046b INIT_0468: 046b 00da | | Load_Top At_Offset_2 046c 00d8 | | Load_Top At_Offset_0 046d e005 | | Load 0x0,0x5 046e 1b17 | | Execute Package,Field_Read,Field_Number 0x17 046f 0260 | ` | Execute Discrete,In_Type 0470 7001 |p | Jump_Nonzero 0x472 0471 0801 | | Execute_Immediate Raise,0x1 0472 e220 | | Load 0x1,0x20 0473 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0474 e220 | | Load 0x1,0x20 0475 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0476 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0477 0000 | | .XXX[0x1] 0478 ; -------------------------------------------------------------------------------------- 0478 ; SUBPROGRAM 0478 ; -------------------------------------------------------------------------------------- 0478 047b | { | .CONST 0x047b ; Address of begin 0479 0004 | | .CONST 0x0004 ; Address of exception handler 047a 0001 | | .CONST 0x0001 ; Number of locals 047b BODY_0478: 047b INIT_0478: 047b 00db | | Load_Top At_Offset_3 047c 00db | | Load_Top At_Offset_3 047d 00d8 | | Load_Top At_Offset_0 047e e005 | | Load 0x0,0x5 047f 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0480 0260 | ` | Execute Discrete,In_Type 0481 7001 |p | Jump_Nonzero 0x483 0482 0801 | | Execute_Immediate Raise,0x1 0483 e220 | | Load 0x1,0x20 0484 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0485 e220 | | Load 0x1,0x20 0486 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0487 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0488 ; -------------------------------------------------------------------------------------- 0488 ; SUBPROGRAM 0488 ; -------------------------------------------------------------------------------------- 0488 048b | | .CONST 0x048b ; Address of begin 0489 0004 | | .CONST 0x0004 ; Address of exception handler 048a 0001 | | .CONST 0x0001 ; Number of locals 048b BODY_0488: 048b INIT_0488: 048b 00da | | Load_Top At_Offset_2 048c 00d8 | | Load_Top At_Offset_0 048d e005 | | Load 0x0,0x5 048e 1b17 | | Execute Package,Field_Read,Field_Number 0x17 048f 0260 | ` | Execute Discrete,In_Type 0490 7001 |p | Jump_Nonzero 0x492 0491 0801 | | Execute_Immediate Raise,0x1 0492 e220 | | Load 0x1,0x20 0493 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0494 e220 | | Load 0x1,0x20 0495 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0496 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 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 00da | | Load_Top At_Offset_2 049c 00d8 | | Load_Top At_Offset_0 049d e005 | | Load 0x0,0x5 049e 1b17 | | Execute Package,Field_Read,Field_Number 0x17 049f 0260 | ` | Execute Discrete,In_Type 04a0 7001 |p | Jump_Nonzero 0x4a2 04a1 0801 | | Execute_Immediate Raise,0x1 04a2 e220 | | Load 0x1,0x20 04a3 181e | | Execute Package,Field_Execute,Field_Number 0x1e 04a4 e220 | | Load 0x1,0x20 04a5 181d | | Execute Package,Field_Execute,Field_Number 0x1d 04a6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04a7 0000 | | .XXX[0x1] 04a8 ; -------------------------------------------------------------------------------------- 04a8 ; SUBPROGRAM 04a8 ; -------------------------------------------------------------------------------------- 04a8 04ab | | .CONST 0x04ab ; Address of begin 04a9 0004 | | .CONST 0x0004 ; Address of exception handler 04aa 0001 | | .CONST 0x0001 ; Number of locals 04ab BODY_04a8: 04ab INIT_04a8: 04ab 00db | | Load_Top At_Offset_3 04ac e20f | | Load 0x1,0xf 04ad 0119 | | Execute Any,Check_In_Formal_Type 04ae 00db | | Load_Top At_Offset_3 04af 8210 | | Call 0x1,0x10 04b0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04b1 0000 0000 | | .BLANK 0000[0x7] 04b8 ; -------------------------------------------------------------------------------------- 04b8 ; SUBPROGRAM 04b8 ; -------------------------------------------------------------------------------------- 04b8 04bb | | .CONST 0x04bb ; Address of begin 04b9 0004 | | .CONST 0x0004 ; Address of exception handler 04ba 0001 | | .CONST 0x0001 ; Number of locals 04bb BODY_04b8: 04bb INIT_04b8: 04bb e007 | | Load 0x0,0x7 04bc 1b10 | | Execute Package,Field_Read,Field_Number 0x10 04bd e5fe | | Load 0x2,-0x2 04be 00d8 | | Load_Top At_Offset_0 04bf 0120 | | Execute Any,Is_Value 04c0 6803 |h | Jump_Zero 0x4c4 04c1 e20f | | Load 0x1,0xf 04c2 011e | | Execute Any,Convert 04c3 7802 |x | Jump 0x4c6 04c4 e20f | | Load 0x1,0xf 04c5 0119 | | Execute Any,Check_In_Formal_Type 04c6 e5ff | | Load 0x2,-0x1 04c7 8211 | | Call 0x1,0x11 04c8 c5fe | | Store 0x2,-0x2 04c9 c5fd | | Store 0x2,-0x3 04ca 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04cb 0000 0000 | | .BLANK 0000[0x5] 04d0 ; -------------------------------------------------------------------------------------- 04d0 ; Debug Table 04d0 ; -------------------------------------------------------------------------------------- 04d0 0004 000d | | .DEBUG4 0x0004,0x000d,0xd955,0x0000,0x0001,0x0000 04d6 0000 0004 | | .XXX[0x1f] 04d8 96c8 8021 | !| 04da 0680 0002 | | 04dc adcb 8000 | | 04de 0000 0004 | | 04e0 9708 8021 | !| 04e2 0680 0002 | | 04e4 b1c0 0000 | | 04e6 0000 0004 | | 04e8 9748 8021 | H !| 04ea 0680 0002 | | 04ec 9520 0000 | | 04ee 0000 0004 | | 04f0 9788 8021 | !| 04f2 0680 0002 | | 04f4 5fa5 |_ | 04f5 0000 0000 | | .BLANK 0000[0x4] 04f9 0021 0680 | ! | .XXX[0x4c] 04fb 0002 309b | 0 | 04fd 8000 0000 | | 04ff 0004 9808 | | 0501 8021 0680 | ! | 0503 0002 3490 | 4 | 0505 0000 0000 | | 0507 0004 9848 | H| 0509 8021 0680 | ! | 050b 0001 fa5e | ^| 050d 0000 0000 | | 050f 0004 9888 | | 0511 8021 0680 | ! | 0513 0001 cc17 | | 0515 0000 0000 | | 0517 0004 98c8 | | 0519 8021 0680 | ! | 051b 0001 969c | | 051d 0000 0000 | | 051f 0004 9908 | | 0521 8021 0680 | ! | 0523 0002 bae1 | | 0525 0000 0000 | | 0527 0004 9948 | H| 0529 8021 0680 | ! | 052b 0002 adcb | | 052d 8000 0000 | | 052f 0004 9988 | | 0531 8021 0680 | ! | 0533 0002 b1c0 | | 0535 0000 0000 | | 0537 0004 99c8 | | 0539 8021 0680 | ! | 053b 0002 9520 | | 053d 0000 0000 | | 053f 0004 9a08 | | 0541 8021 0680 | ! | 0543 0002 5fa5 | _ | 0545 0000 0000 | | .BLANK 0000[0x4] 0549 0021 0680 | ! | .XXX[0x7] 054b 0000 5748 | WH| 054d 8000 0001 | | 054f 4000 |@ | 0550 0000 0000 | | .BLANK 0000[0x7] 0557 0008 41a0 | A | .XXX[0x9] 0559 0000 8c26 | &| 055b f004 0000 | | 055d 0000 0000 | | 055f 0002 | | 0560 0000 0000 | | .BLANK 0000[0x6] 0566 0012 5324 | S$| .XXX[0xf] 0568 0000 0000 | | 056a 0012 4f8c | O | 056c 0084 1a00 | | 056e 0008 d241 | A| 0570 0040 0000 | @ | 0572 0000 024d | M| 0574 5ce0 |\ | 0575 0000 0000 | | .BLANK 0000[0x6] 057b 0125 3240 | %2@| .XXX[0xf] 057d 0000 0000 | | 057f 0126 c7e0 | & | 0581 0841 a000 | A | 0583 007e 9790 | ~ | 0585 0400 0000 | | 0587 0000 24da | $ | 0589 fe00 | | 058a 0000 0000 | | .BLANK 0000[0x6] 0590 1253 2400 | S$ | .XXX[0xf] 0592 0000 0000 | | 0594 126f 1600 | o | 0596 841a 0000 | | 0598 0730 5d00 | 0] | 059a 4000 0000 |@ | 059c 0002 4e02 | N | 059e e000 | | 059f 0000 0000 | | .BLANK 0000[0x5] 05a4 0001 2532 | %2| .XXX[0xf] 05a6 4000 0000 |@ | 05a8 0001 271a | ' | 05aa e008 41a0 | A | 05ac 0000 65a7 | e | 05ae 1004 0000 | | 05b0 0000 0024 | $| 05b2 e55e | ^ | 05b3 0000 0000 | | .BLANK 0000[0x6] 05b9 0012 5324 | S$| .XXX[0xf] 05bb 0000 0000 | | 05bd 0012 7446 | tF| 05bf 0084 1a00 | | 05c1 000a eb85 | | 05c3 0040 0000 | @ | 05c5 0000 024e | N| 05c7 a8e0 | | 05c8 0000 0000 | | .BLANK 0000[0x6] 05ce 0125 3240 | %2@| .XXX[0xf] 05d0 0000 0000 | | 05d2 0127 6de0 | 'm | 05d4 0841 a000 | A | 05d6 00ab 72f0 | r | 05d8 0400 0000 | | 05da 0000 24ef | $ | 05dc be00 | | 05dd 0000 0000 | | .BLANK 0000[0x6] 05e3 1253 2400 | S$ | .XXX[0xf] 05e5 0000 0000 | | 05e7 1279 7600 | yv | 05e9 841a 0000 | | 05eb 0ac7 0100 | | 05ed 4000 0000 |@ | 05ef 0002 4f4e | ON| 05f1 e000 | | 05f2 0000 0000 | | .BLANK 0000[0x5] 05f7 0001 2532 | %2| .XXX[0x9] 05f9 4000 0000 |@ | 05fb 0001 27c0 | ' | 05fd e008 41a0 | A | 05ff 0000 | |