|
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_6a18da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 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 0009 | | .DEBUG4 0x0004,0x0009,0xeb4b,0x0000,0x0001,0x0000
04d6 0000 0000 | | .BLANK 0000[0x3a]
0510 cad3 | | .XXX[0x1]
0511 0000 0000 | | .BLANK 0000[0x4]
0515 0001 ea95 | | .XXX[0x8]
0517 0000 0000 | |
0519 0001 6955 | iU|
051b 0001 bdc9 | |
051d 0000 0000 | | .BLANK 0000[0x4]
0521 0001 6853 | hS| .XXX[0xa]
0523 0000 0000 | |
0525 0001 becb | |
0527 0000 0000 | |
0529 0001 c999 | |
052b 0000 0000 | | .BLANK 0000[0x14]
053f 0001 c693 | | .XXX[0x2]
0541 0000 0000 | | .BLANK 0000[0x6]
0547 0001 e1e3 | | .XXX[0x4]
0549 0001 eb97 | |
054b 0000 0000 | | .BLANK 0000[0xd]
0558 a06b | k | .XXX[0x1]
0559 0000 0000 | | .BLANK 0000[0x5]
055e c8cf 0000 | | .XXX[0x9]
0560 0000 0001 | |
0562 ae69 0000 | i |
0564 0000 0001 | |
0566 dedd | |
0567 0000 0000 | | .BLANK 0000[0x4]
056b 0001 8b93 | | .XXX[0x4]
056d 0001 dfdf | |
056f 0000 0000 | | .BLANK 0000[0x4]
0573 0001 7f2f | /| .XXX[0x2]
0575 0000 0000 | | .BLANK 0000[0x4]
0579 0001 6a57 | jW| .XXX[0x4]
057b 0001 23e5 | # |
057d 0000 0000 | | .BLANK 0000[0xa]
0587 0001 27ed | ' | .XXX[0x2]
0589 0000 0000 | | .BLANK 0000[0x6]
058f 0001 6585 | e | .XXX[0x10]
0591 0000 0000 | |
0593 0001 dddb | |
0595 0001 c591 | |
0597 0001 25e9 | % |
0599 0001 e0e1 | |
059b 0002 090f | |
059d 0000 c9d1 | |
059f 0000 0000 | | .BLANK 0000[0x8]
05a7 0001 c897 | | .XXX[0x8]
05a9 0000 0000 | |
05ab 0001 58b9 | X |
05ad 0001 c795 | |
05af 0000 0000 | | .BLANK 0000[0x5]
05b4 bbeb 0001 | | .XXX[0x3]
05b6 26eb |& |
05b7 0000 0000 | | .BLANK 0000[0x10]
05c7 0001 a9cf | | .XXX[0x14]
05c9 0000 a545 | E|
05cb 0001 24e7 | $ |
05cd 0001 5f1f | _ |
05cf 0000 0000 | |
05d1 0001 93c5 | |
05d3 0000 0000 | |
05d5 0001 e501 | |
05d7 0000 0000 | |
05d9 0001 e993 | |
05db 0000 0000 | | .BLANK 0000[0x6]
05e1 0001 afc0 | | .XXX[0xa]
05e3 0001 2012 | |
05e5 0001 a858 | X|
05e7 0000 0000 | |
05e9 0001 acf2 | |
05eb 0000 0000 | | .BLANK 0000[0xa]
05f5 0001 5a10 | Z | .XXX[0xb]
05f7 0001 8cea | |
05f9 0001 2226 | "&|
05fb 0001 96e8 | |
05fd 0000 cd2c | ,|
05ff 0000 | |