|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 4096 (0x1000)
Notes: 00_class, 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 0710 | | .CONST 0x0710 ; 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 8004 | | .CONST 0x8004 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0141 | A | .CONST 0x0141 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0051 | Q | .CONST 0x0051 ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1
000c 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
000d 0321 | ! | Declare_Variable Record,Visible
000e 00d8 | | Load_Top At_Offset_0
000f 1c00 | | Execute_Immediate Run_Utility,0x0
0010 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated
0012 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated
0014 e001 | | Load 0x0,0x1
0015 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0016 0129 | ) | Execute Any,Make_Visible
0017 00e3 | | Load_Encached Natural_Cache
0018 4800 |H | Short_Literal 0x0
0019 4801 |H | Short_Literal 0x1
001a 4801 |H | Short_Literal 0x1
001b 4802 |H | Short_Literal 0x2
001c 0319 | | Declare_Type Variant_Record,Incomplete,Visible
001d 029f 06d3 | | Declare_Subprogram INIT_06d0,For_Call
001f 00d9 | | Load_Top At_Offset_1
0020 012a | * | Execute Any,Change_Utility
0021 0007 | | Action Break_Optional
0022 00c4 | | Action Make_Default
0023 00d9 | | Load_Top At_Offset_1
0024 0129 | ) | Execute Any,Make_Visible
0025 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
0027 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
0029 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated
002b 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated
002d 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated
002f 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0030 0129 | ) | Execute Any,Make_Visible
0031 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0032 0129 | ) | Execute Any,Make_Visible
0033 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated
0035 e002 | | Load 0x0,0x2
0036 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address
0037 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated
0039 e003 | | Load 0x0,0x3
003a 0129 | ) | Execute Any,Make_Visible
003b 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated
003d 029a 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call,Visible,Unelaborated
003f 029a 039b | | Declare_Subprogram INIT_0398,For_Outer_Call,Visible,Unelaborated
0041 029a 03bb | | Declare_Subprogram INIT_03b8,For_Outer_Call,Visible,Unelaborated
0043 029a 03cb | | Declare_Subprogram INIT_03c8,For_Outer_Call,Visible,Unelaborated
0045 029a 03d3 | | Declare_Subprogram INIT_03d0,For_Outer_Call,Visible,Unelaborated
0047 e004 | | Load 0x0,0x4
0048 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address
0049 029a 03e3 | | Declare_Subprogram INIT_03e0,For_Outer_Call,Visible,Unelaborated
004b 4804 |H | Short_Literal 0x4
004c e005 | | Load 0x0,0x5
004d 02a0 | | Declare_Subprogram Null_Subprogram
004e 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated
004f e006 | | Load 0x0,0x6
0050 4801 |H | Short_Literal 0x1
0051 00da | | Load_Top At_Offset_2
0052 020e | | Execute Module,Augment_Imports
0053 0007 | | Action Break_Optional
0054 00e3 | | Load_Encached Natural_Cache
0055 0129 | ) | Execute Any,Make_Visible
0056 029a 03f3 | | Declare_Subprogram INIT_03f0,For_Outer_Call,Visible,Unelaborated
0058 029a 03fb | | Declare_Subprogram INIT_03f8,For_Outer_Call,Visible,Unelaborated
005a 029a 0403 | | Declare_Subprogram INIT_0400,For_Outer_Call,Visible,Unelaborated
005c 029a 043b | ;| Declare_Subprogram INIT_0438,For_Outer_Call,Visible,Unelaborated
005e 029a 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call,Visible,Unelaborated
0060 029a 0473 | s| Declare_Subprogram INIT_0470,For_Outer_Call,Visible,Unelaborated
0062 029a 0483 | | Declare_Subprogram INIT_0480,For_Outer_Call,Visible,Unelaborated
0064 029a 0493 | | Declare_Subprogram INIT_0490,For_Outer_Call,Visible,Unelaborated
0066 029a 04a3 | | Declare_Subprogram INIT_04a0,For_Outer_Call,Visible,Unelaborated
0068 029a 04b3 | | Declare_Subprogram INIT_04b0,For_Outer_Call,Visible,Unelaborated
006a 029a 04c3 | | Declare_Subprogram INIT_04c0,For_Outer_Call,Visible,Unelaborated
006c 029a 04d3 | | Declare_Subprogram INIT_04d0,For_Outer_Call,Visible,Unelaborated
006e e001 | | Load 0x0,0x1
006f 1917 | | Execute Package,Field_Reference,Field_Number 0x17
0070 0129 | ) | Execute Any,Make_Visible
0071 e001 | | Load 0x0,0x1
0072 1916 | | Execute Package,Field_Reference,Field_Number 0x16
0073 0129 | ) | Execute Any,Make_Visible
0074 e001 | | Load 0x0,0x1
0075 1910 | | Execute Package,Field_Reference,Field_Number 0x10
0076 0129 | ) | Execute Any,Make_Visible
0077 e001 | | Load 0x0,0x1
0078 1911 | | Execute Package,Field_Reference,Field_Number 0x11
0079 0129 | ) | Execute Any,Make_Visible
007a e001 | | Load 0x0,0x1
007b 1b12 | | Execute Package,Field_Read,Field_Number 0x12
007c 0129 | ) | Execute Any,Make_Visible
007d e001 | | Load 0x0,0x1
007e 1b13 | | Execute Package,Field_Read,Field_Number 0x13
007f 0129 | ) | Execute Any,Make_Visible
0080 e001 | | Load 0x0,0x1
0081 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0082 0129 | ) | Execute Any,Make_Visible
0083 e007 | | Load 0x0,0x7
0084 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address
0085 4800 |H | Short_Literal 0x0
0086 e008 | | Load 0x0,0x8
0087 02a0 | | Declare_Subprogram Null_Subprogram
0088 038e | | Declare_Type Package,Defined
0089 00b6 | | Action Make_Scope
008a 4801 |H | Short_Literal 0x1
008b 00da | | Load_Top At_Offset_2
008c 020e | | Execute Module,Augment_Imports
008d 0387 | | Declare_Variable Package
008e 4800 |H | Short_Literal 0x0
008f 4804 |H | Short_Literal 0x4
0090 029f 04e3 | | Declare_Subprogram INIT_04e0,For_Call
0092 03fd | | Declare_Type Discrete,Defined
0093 00d8 | | Load_Top At_Offset_0
0094 00e1 | | Load_Encached Boolean_Cache
0095 4802 |H | Short_Literal 0x2
0096 e245 | E | Load 0x1,0x45
0097 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0098 00e1 | | Load_Encached Boolean_Cache
0099 4801 |H | Short_Literal 0x1
009a 00e7 | | Load_Encached Duration_Cache
009b 029f 067b | {| Declare_Subprogram INIT_0678,For_Call
009d 4803 |H | Short_Literal 0x3
009e 4801 |H | Short_Literal 0x1
009f 4802 |H | Short_Literal 0x2
00a0 4800 |H | Short_Literal 0x0
00a1 4801 |H | Short_Literal 0x1
00a2 031d | | Declare_Type Variant_Record,Defined
00a3 00e4 | | Load_Encached Positive_Cache
00a4 0266 | f | Execute Discrete,Bounds
00a5 00da | | Load_Top At_Offset_2
00a6 029f 050b | | Declare_Subprogram INIT_0508,For_Call
00a8 4801 |H | Short_Literal 0x1
00a9 0350 | P | Declare_Type Array,Defined,Bounds_With_Object
00aa 00d8 | | Load_Top At_Offset_0
00ab 029f 06d3 | | Declare_Subprogram INIT_06d0,For_Call
00ad 4800 |H | Short_Literal 0x0
00ae 4801 |H | Short_Literal 0x1
00af 4800 |H | Short_Literal 0x0
00b0 e219 | | Load 0x1,0x19
00b1 0307 | | Complete_Type Variant_Record,By_Defining
00b2 4800 |H | Short_Literal 0x0
00b3 e219 | | Load 0x1,0x19
00b4 1c08 | | Execute_Immediate Run_Utility,0x8
00b5 00d8 | | Load_Top At_Offset_0
00b6 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
00b7 0335 | 5 | Declare_Variable Array,Duplicate
00b8 00cd | | Action Spare6_Action
00b9 00d9 | | Load_Top At_Offset_1
00ba 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
00bb 01d9 | | Execute Vector,Reverse_Bounds
00bc 0263 | c | Execute Discrete,Above_Bound
00bd 700d |p | Jump_Nonzero 0xcb
00be 4801 |H | Short_Literal 0x1
00bf e247 | G | Load 0x1,0x47
00c0 1c08 | | Execute_Immediate Run_Utility,0x8
00c1 4801 |H | Short_Literal 0x1
00c2 00d9 | | Load_Top At_Offset_1
00c3 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00c4 4800 |H | Short_Literal 0x0
00c5 00d9 | | Load_Top At_Offset_1
00c6 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
00c7 00d9 | | Load_Top At_Offset_1
00c8 e24a | J | Load 0x1,0x4a
00c9 01d6 | | Execute Vector,Field_Write
00ca 3ff3 |? | Loop_Increasing 0xbe
00cb 00d9 | | Load_Top At_Offset_1
00cc 00d8 | | Load_Top At_Offset_0
00cd 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
00ce 00da | | Load_Top At_Offset_2
00cf 01da | | Execute Vector,Bounds
00d0 00da | | Load_Top At_Offset_2
00d1 01da | | Execute Vector,Bounds
00d2 00da | | Load_Top At_Offset_2
00d3 027f | | Execute Discrete,Equal
00d4 7001 |p | Jump_Nonzero 0xd6
00d5 08e0 | | Execute_Immediate Raise,0xe0
00d6 00cd | | Action Spare6_Action
00d7 027f | | Execute Discrete,Equal
00d8 7001 |p | Jump_Nonzero 0xda
00d9 08e0 | | Execute_Immediate Raise,0xe0
00da 00d2 | | Pop_Control Pop_Count_2
00db 00d9 | | Load_Top At_Offset_1
00dc 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
00dd 0129 | ) | Execute Any,Make_Visible
00de c21a | | Store 0x1,0x1a
00df 00bf | | Action Accept_Activation
00e0 4804 |H | Short_Literal 0x4
00e1 00da | | Load_Top At_Offset_2
00e2 1c08 | | Execute_Immediate Run_Utility,0x8
00e3 4801 |H | Short_Literal 0x1
00e4 00d9 | | Load_Top At_Offset_1
00e5 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00e6 4800 |H | Short_Literal 0x0
00e7 00db | | Load_Top At_Offset_3
00e8 1c07 | | Execute_Immediate Run_Utility,0x7
00e9 4801 |H | Short_Literal 0x1
00ea e247 | G | Load 0x1,0x47
00eb 1c07 | | Execute_Immediate Run_Utility,0x7
00ec e009 | | Load 0x0,0x9
00ed 02a9 | | Declare_Subprogram For_Call,Unelaborated,With_Address
00ee 1d16 | | Execute_Immediate Reference_Lex_1,0x16
00ef 00c7 | | Action Elaborate_Subprogram
00f0 1d17 | | Execute_Immediate Reference_Lex_1,0x17
00f1 00c7 | | Action Elaborate_Subprogram
00f2 e245 | E | Load 0x1,0x45
00f3 020f | | Execute Module,Activate
00f4 029d 0523 | #| Declare_Subprogram INIT_0520,For_Outer_Call
00f6 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00f7 00c7 | | Action Elaborate_Subprogram
00f8 029d 053b | ;| Declare_Subprogram INIT_0538,For_Outer_Call
00fa 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
00fb 00c7 | | Action Elaborate_Subprogram
00fc 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
00fd 00c7 | | Action Elaborate_Subprogram
00fe 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00ff 00c7 | | Action Elaborate_Subprogram
0100 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0101 00c7 | | Action Elaborate_Subprogram
0102 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0103 00c7 | | Action Elaborate_Subprogram
0104 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
0105 00c7 | | Action Elaborate_Subprogram
0106 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
0107 00c7 | | Action Elaborate_Subprogram
0108 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35
0109 00c7 | | Action Elaborate_Subprogram
010a 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36
010b 00c7 | | Action Elaborate_Subprogram
010c 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37
010d 00c7 | | Action Elaborate_Subprogram
010e 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38
010f 00c7 | | Action Elaborate_Subprogram
0110 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39
0111 00c7 | | Action Elaborate_Subprogram
0112 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a
0113 00c7 | | Action Elaborate_Subprogram
0114 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b
0115 00c7 | | Action Elaborate_Subprogram
0116 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c
0117 00c7 | | Action Elaborate_Subprogram
0118 029d 054b | K| Declare_Subprogram INIT_0548,For_Outer_Call
011a 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
011b 00c7 | | Action Elaborate_Subprogram
011c 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
011d 00c7 | | Action Elaborate_Subprogram
011e 1d4c | L | Execute_Immediate Reference_Lex_1,0x4c
011f 00c7 | | Action Elaborate_Subprogram
0120 029d 05b3 | | Declare_Subprogram INIT_05b0,For_Outer_Call
0122 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
0123 00c7 | | Action Elaborate_Subprogram
0124 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
0125 00c7 | | Action Elaborate_Subprogram
0126 029d 05cb | | Declare_Subprogram INIT_05c8,For_Outer_Call
0128 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
0129 00c7 | | Action Elaborate_Subprogram
012a 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
012b 00c7 | | Action Elaborate_Subprogram
012c 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
012d 00c7 | | Action Elaborate_Subprogram
012e 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
012f 00c7 | | Action Elaborate_Subprogram
0130 00b6 | | Action Make_Scope
0131 4801 |H | Short_Literal 0x1
0132 e22f | / | Load 0x1,0x2f
0133 020e | | Execute Module,Augment_Imports
0134 e22f | / | Load 0x1,0x2f
0135 020d | | Execute Module,Elaborate
0136 0007 | | Action Break_Optional
0137 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
0138 00c7 | | Action Elaborate_Subprogram
0139 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
013a 00c7 | | Action Elaborate_Subprogram
013b 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33
013c 00c7 | | Action Elaborate_Subprogram
013d 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34
013e 00c7 | | Action Elaborate_Subprogram
013f 1d44 | D | Execute_Immediate Reference_Lex_1,0x44
0140 00c7 | | Action Elaborate_Subprogram
0141 BODY_0008:
0141 00bc | | Action Signal_Activated
0142 00bb | | Action Signal_Completion
0143 0000 0000 | | .BLANK 0000[0x5]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b | K | .CONST 0x014b ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0001 | | .CONST 0x0001 ; Number of locals
014b BODY_0148:
014b INIT_0148:
014b e215 | | Load 0x1,0x15
014c e5fe | | Load 0x2,-0x2
014d e5ff | | Load 0x2,-0x1
014e e001 | | Load 0x0,0x1
014f 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0150 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0151 0000 0000 | | .BLANK 0000[0x7]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b e215 | | Load 0x1,0x15
015c e001 | | Load 0x0,0x1
015d 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
015e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
015f 0000 | | .XXX[0x1]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163 | c | .CONST 0x0163 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0001 | | .CONST 0x0001 ; Number of locals
0163 BODY_0160:
0163 INIT_0160:
0163 4801 |H | Short_Literal 0x1
0164 e219 | | Load 0x1,0x19
0165 1c08 | | Execute_Immediate Run_Utility,0x8
0166 4801 |H | Short_Literal 0x1
0167 4801 |H | Short_Literal 0x1
0168 e248 | H | Load 0x1,0x48
0169 0334 | 4 | Declare_Variable Array,With_Constraint
016a 4800 |H | Short_Literal 0x0
016b e247 | G | Load 0x1,0x47
016c 1c08 | | Execute_Immediate Run_Utility,0x8
016d 4801 |H | Short_Literal 0x1
016e 00d9 | | Load_Top At_Offset_1
016f 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0170 e5ff | | Load 0x2,-0x1
0171 e245 | E | Load 0x1,0x45
0172 180f | | Execute Package,Field_Execute,Field_Number 0xf
0173 00d9 | | Load_Top At_Offset_1
0174 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0175 4800 |H | Short_Literal 0x0
0176 00d9 | | Load_Top At_Offset_1
0177 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0178 4801 |H | Short_Literal 0x1
0179 00da | | Load_Top At_Offset_2
017a 01d6 | | Execute Vector,Field_Write
017b 00d9 | | Load_Top At_Offset_1
017c 00d8 | | Load_Top At_Offset_0
017d 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
017e 00da | | Load_Top At_Offset_2
017f 01da | | Execute Vector,Bounds
0180 00da | | Load_Top At_Offset_2
0181 01da | | Execute Vector,Bounds
0182 00da | | Load_Top At_Offset_2
0183 027f | | Execute Discrete,Equal
0184 7001 |p | Jump_Nonzero 0x186
0185 08e0 | | Execute_Immediate Raise,0xe0
0186 00cd | | Action Spare6_Action
0187 027f | | Execute Discrete,Equal
0188 7001 |p | Jump_Nonzero 0x18a
0189 08e0 | | Execute_Immediate Raise,0xe0
018a 00d2 | | Pop_Control Pop_Count_2
018b 00d9 | | Load_Top At_Offset_1
018c 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
018d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
018e 0000 0000 | | .XXX[0x2]
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 4801 |H | Short_Literal 0x1
0194 e219 | | Load 0x1,0x19
0195 1c08 | | Execute_Immediate Run_Utility,0x8
0196 4801 |H | Short_Literal 0x1
0197 4801 |H | Short_Literal 0x1
0198 e248 | H | Load 0x1,0x48
0199 0334 | 4 | Declare_Variable Array,With_Constraint
019a 4800 |H | Short_Literal 0x0
019b e247 | G | Load 0x1,0x47
019c 1c08 | | Execute_Immediate Run_Utility,0x8
019d 4801 |H | Short_Literal 0x1
019e 00d9 | | Load_Top At_Offset_1
019f 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01a0 e5fe | | Load 0x2,-0x2
01a1 e5ff | | Load 0x2,-0x1
01a2 e001 | | Load 0x0,0x1
01a3 180f | | Execute Package,Field_Execute,Field_Number 0xf
01a4 800a | | Call 0x0,0xa
01a5 e245 | E | Load 0x1,0x45
01a6 180f | | Execute Package,Field_Execute,Field_Number 0xf
01a7 00d9 | | Load_Top At_Offset_1
01a8 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
01a9 e5fe | | Load 0x2,-0x2
01aa 00d9 | | Load_Top At_Offset_1
01ab 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
01ac 4801 |H | Short_Literal 0x1
01ad 00da | | Load_Top At_Offset_2
01ae 01d6 | | Execute Vector,Field_Write
01af 00d9 | | Load_Top At_Offset_1
01b0 00d8 | | Load_Top At_Offset_0
01b1 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
01b2 00da | | Load_Top At_Offset_2
01b3 01da | | Execute Vector,Bounds
01b4 00da | | Load_Top At_Offset_2
01b5 01da | | Execute Vector,Bounds
01b6 00da | | Load_Top At_Offset_2
01b7 027f | | Execute Discrete,Equal
01b8 7001 |p | Jump_Nonzero 0x1ba
01b9 08e0 | | Execute_Immediate Raise,0xe0
01ba 00cd | | Action Spare6_Action
01bb 027f | | Execute Discrete,Equal
01bc 7001 |p | Jump_Nonzero 0x1be
01bd 08e0 | | Execute_Immediate Raise,0xe0
01be 00d2 | | Pop_Control Pop_Count_2
01bf 00d9 | | Load_Top At_Offset_1
01c0 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
01c1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01c2 0000 0000 | | .BLANK 0000[0x6]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb | | .CONST 0x01cb ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0001 | | .CONST 0x0001 ; Number of locals
01cb BODY_01c8:
01cb INIT_01c8:
01cb 4801 |H | Short_Literal 0x1
01cc e219 | | Load 0x1,0x19
01cd 1c08 | | Execute_Immediate Run_Utility,0x8
01ce 4801 |H | Short_Literal 0x1
01cf 4801 |H | Short_Literal 0x1
01d0 e248 | H | Load 0x1,0x48
01d1 0334 | 4 | Declare_Variable Array,With_Constraint
01d2 4802 |H | Short_Literal 0x2
01d3 e247 | G | Load 0x1,0x47
01d4 1c08 | | Execute_Immediate Run_Utility,0x8
01d5 4801 |H | Short_Literal 0x1
01d6 00d9 | | Load_Top At_Offset_1
01d7 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01d8 4801 |H | Short_Literal 0x1
01d9 00da | | Load_Top At_Offset_2
01da 01d6 | | Execute Vector,Field_Write
01db 00d9 | | Load_Top At_Offset_1
01dc 00d8 | | Load_Top At_Offset_0
01dd 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
01de 00da | | Load_Top At_Offset_2
01df 01da | | Execute Vector,Bounds
01e0 00da | | Load_Top At_Offset_2
01e1 01da | | Execute Vector,Bounds
01e2 00da | | Load_Top At_Offset_2
01e3 027f | | Execute Discrete,Equal
01e4 7001 |p | Jump_Nonzero 0x1e6
01e5 08e0 | | Execute_Immediate Raise,0xe0
01e6 00cd | | Action Spare6_Action
01e7 027f | | Execute Discrete,Equal
01e8 7001 |p | Jump_Nonzero 0x1ea
01e9 08e0 | | Execute_Immediate Raise,0xe0
01ea 00d2 | | Pop_Control Pop_Count_2
01eb 00d9 | | Load_Top At_Offset_1
01ec 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
01ed 00ca | | Action Exit_Nullary_Function
01ee 0000 0000 | | .XXX[0x2]
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 4801 |H | Short_Literal 0x1
01f4 e219 | | Load 0x1,0x19
01f5 1c08 | | Execute_Immediate Run_Utility,0x8
01f6 4801 |H | Short_Literal 0x1
01f7 4801 |H | Short_Literal 0x1
01f8 e248 | H | Load 0x1,0x48
01f9 0334 | 4 | Declare_Variable Array,With_Constraint
01fa 4803 |H | Short_Literal 0x3
01fb e247 | G | Load 0x1,0x47
01fc 1c08 | | Execute_Immediate Run_Utility,0x8
01fd 4801 |H | Short_Literal 0x1
01fe 00d9 | | Load_Top At_Offset_1
01ff 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0200 4801 |H | Short_Literal 0x1
0201 00da | | Load_Top At_Offset_2
0202 01d6 | | Execute Vector,Field_Write
0203 00d9 | | Load_Top At_Offset_1
0204 00d8 | | Load_Top At_Offset_0
0205 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0206 00da | | Load_Top At_Offset_2
0207 01da | | Execute Vector,Bounds
0208 00da | | Load_Top At_Offset_2
0209 01da | | Execute Vector,Bounds
020a 00da | | Load_Top At_Offset_2
020b 027f | | Execute Discrete,Equal
020c 7001 |p | Jump_Nonzero 0x20e
020d 08e0 | | Execute_Immediate Raise,0xe0
020e 00cd | | Action Spare6_Action
020f 027f | | Execute Discrete,Equal
0210 7001 |p | Jump_Nonzero 0x212
0211 08e0 | | Execute_Immediate Raise,0xe0
0212 00d2 | | Pop_Control Pop_Count_2
0213 00d9 | | Load_Top At_Offset_1
0214 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
0215 00ca | | Action Exit_Nullary_Function
0216 0000 0000 | | .XXX[0x2]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b | | .CONST 0x021b ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0001 | | .CONST 0x0001 ; Number of locals
021b BODY_0218:
021b INIT_0218:
021b 00da | | Load_Top At_Offset_2
021c 0d01 | | Execute_Immediate Less,0x1
021d 6802 |h | Jump_Zero 0x220
021e e21a | | Load 0x1,0x1a
021f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0220 4801 |H | Short_Literal 0x1
0221 e219 | | Load 0x1,0x19
0222 1c08 | | Execute_Immediate Run_Utility,0x8
0223 4801 |H | Short_Literal 0x1
0224 4801 |H | Short_Literal 0x1
0225 e248 | H | Load 0x1,0x48
0226 0334 | 4 | Declare_Variable Array,With_Constraint
0227 4801 |H | Short_Literal 0x1
0228 e247 | G | Load 0x1,0x47
0229 1c08 | | Execute_Immediate Run_Utility,0x8
022a 4801 |H | Short_Literal 0x1
022b 00d9 | | Load_Top At_Offset_1
022c 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
022d e5ff | | Load 0x2,-0x1
022e 00d9 | | Load_Top At_Offset_1
022f 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0230 4801 |H | Short_Literal 0x1
0231 00da | | Load_Top At_Offset_2
0232 01d6 | | Execute Vector,Field_Write
0233 00d9 | | Load_Top At_Offset_1
0234 00d8 | | Load_Top At_Offset_0
0235 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0236 00da | | Load_Top At_Offset_2
0237 01da | | Execute Vector,Bounds
0238 00da | | Load_Top At_Offset_2
0239 01da | | Execute Vector,Bounds
023a 00da | | Load_Top At_Offset_2
023b 027f | | Execute Discrete,Equal
023c 7001 |p | Jump_Nonzero 0x23e
023d 08e0 | | Execute_Immediate Raise,0xe0
023e 00cd | | Action Spare6_Action
023f 027f | | Execute Discrete,Equal
0240 7001 |p | Jump_Nonzero 0x242
0241 08e0 | | Execute_Immediate Raise,0xe0
0242 00d2 | | Pop_Control Pop_Count_2
0243 00d9 | | Load_Top At_Offset_1
0244 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
0245 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0246 0000 0000 | | .XXX[0x2]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024d | M | .CONST 0x024d ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0002 | | .CONST 0x0002 ; Number of locals
024b INIT_0248:
024b 029f 05eb | | Declare_Subprogram INIT_05e8,For_Call
024d BODY_0248:
024d 00db | | Load_Top At_Offset_3
024e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
024f 0d01 | | Execute_Immediate Less,0x1
0250 6804 |h | Jump_Zero 0x255
0251 e5fe | | Load 0x2,-0x2
0252 02fd | | Declare_Variable Variant_Record,Duplicate
0253 00cd | | Action Spare6_Action
0254 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0255 e5fe | | Load 0x2,-0x2
0256 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0257 0d01 | | Execute_Immediate Less,0x1
0258 6804 |h | Jump_Zero 0x25d
0259 00db | | Load_Top At_Offset_3
025a 02fd | | Declare_Variable Variant_Record,Duplicate
025b 00cd | | Action Spare6_Action
025c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
025d 00cf | | Action Mark_Auxiliary
025e e5fe | | Load 0x2,-0x2
025f 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0260 01d9 | | Execute Vector,Reverse_Bounds
0261 0263 | c | Execute Discrete,Above_Bound
0262 7027 |p' | Jump_Nonzero 0x28a
0263 00d8 | | Load_Top At_Offset_0
0264 e5fe | | Load 0x2,-0x2
0265 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0266 01d5 | | Execute Vector,Field_Reference
0267 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0268 0f04 | | Execute_Immediate Equal,0x4
0269 681e |h | Jump_Zero 0x288
026a e00b | | Load 0x0,0xb
026b 0322 | " | Declare_Variable Record
026c 00d9 | | Load_Top At_Offset_1
026d 0a01 | | Execute_Immediate Plus,0x1
026e 00d9 | | Load_Top At_Offset_1
026f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0270 e5fe | | Load 0x2,-0x2
0271 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0272 01dc | | Execute Vector,Last
0273 00d9 | | Load_Top At_Offset_1
0274 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0275 e5fe | | Load 0x2,-0x2
0276 824d | M | Call 0x1,0x4d
0277 e5ff | | Load 0x2,-0x1
0278 8223 | # | Call 0x1,0x23
0279 e00b | | Load 0x0,0xb
027a 0322 | " | Declare_Variable Record
027b 4801 |H | Short_Literal 0x1
027c 00d9 | | Load_Top At_Offset_1
027d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
027e 00da | | Load_Top At_Offset_2
027f 0aff | | Execute_Immediate Plus,-0x1
0280 00d9 | | Load_Top At_Offset_1
0281 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0282 e5fe | | Load 0x2,-0x2
0283 824d | M | Call 0x1,0x4d
0284 e5ff | | Load 0x2,-0x1
0285 8223 | # | Call 0x1,0x23
0286 8228 | ( | Call 0x1,0x28
0287 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0288 00c8 | | Action Pop_Auxiliary_Range
0289 3fd9 |? | Loop_Increasing 0x263
028a 00c9 | | Action Pop_Auxiliary_Loop
028b e5ff | | Load 0x2,-0x1
028c 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
028d 01d9 | | Execute Vector,Reverse_Bounds
028e 0263 | c | Execute Discrete,Above_Bound
028f 7027 |p' | Jump_Nonzero 0x2b7
0290 00d8 | | Load_Top At_Offset_0
0291 e5ff | | Load 0x2,-0x1
0292 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0293 01d5 | | Execute Vector,Field_Reference
0294 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0295 0f04 | | Execute_Immediate Equal,0x4
0296 681e |h | Jump_Zero 0x2b5
0297 e5fe | | Load 0x2,-0x2
0298 e00b | | Load 0x0,0xb
0299 0322 | " | Declare_Variable Record
029a 00da | | Load_Top At_Offset_2
029b 0a01 | | Execute_Immediate Plus,0x1
029c 00d9 | | Load_Top At_Offset_1
029d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
029e e5ff | | Load 0x2,-0x1
029f 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
02a0 01dc | | Execute Vector,Last
02a1 00d9 | | Load_Top At_Offset_1
02a2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02a3 e5ff | | Load 0x2,-0x1
02a4 824d | M | Call 0x1,0x4d
02a5 8223 | # | Call 0x1,0x23
02a6 e5fe | | Load 0x2,-0x2
02a7 e00b | | Load 0x0,0xb
02a8 0322 | " | Declare_Variable Record
02a9 4801 |H | Short_Literal 0x1
02aa 00d9 | | Load_Top At_Offset_1
02ab 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02ac 00db | | Load_Top At_Offset_3
02ad 0aff | | Execute_Immediate Plus,-0x1
02ae 00d9 | | Load_Top At_Offset_1
02af 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02b0 e5ff | | Load 0x2,-0x1
02b1 824d | M | Call 0x1,0x4d
02b2 8223 | # | Call 0x1,0x23
02b3 8228 | ( | Call 0x1,0x28
02b4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02b5 00c8 | | Action Pop_Auxiliary_Range
02b6 3fd9 |? | Loop_Increasing 0x290
02b7 00ce | | Action Pop_Auxiliary
02b8 8402 | | Call 0x2,0x2
02b9 0831 | 1 | Execute_Immediate Raise,0x31
02ba 0000 0000 | | .BLANK 0000[0x6]
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 00db | | Load_Top At_Offset_3
02c4 4800 |H | Short_Literal 0x0
02c5 e5ff | | Load 0x2,-0x1
02c6 e001 | | Load 0x0,0x1
02c7 180f | | Execute Package,Field_Execute,Field_Number 0xf
02c8 800a | | Call 0x0,0xa
02c9 824f | O | Call 0x1,0x4f
02ca 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02cb 0000 0000 | | .BLANK 0000[0x5]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d3 | | .CONST 0x02d3 ; Address of begin
02d1 0004 | | .CONST 0x0004 ; Address of exception handler
02d2 0001 | | .CONST 0x0001 ; Number of locals
02d3 BODY_02d0:
02d3 INIT_02d0:
02d3 00da | | Load_Top At_Offset_2
02d4 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02d5 0d01 | | Execute_Immediate Less,0x1
02d6 6804 |h | Jump_Zero 0x2db
02d7 00db | | Load_Top At_Offset_3
02d8 02fd | | Declare_Variable Variant_Record,Duplicate
02d9 00cd | | Action Spare6_Action
02da 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02db 00db | | Load_Top At_Offset_3
02dc 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02dd 0d01 | | Execute_Immediate Less,0x1
02de 6804 |h | Jump_Zero 0x2e3
02df 00da | | Load_Top At_Offset_2
02e0 02fd | | Declare_Variable Variant_Record,Duplicate
02e1 00cd | | Action Spare6_Action
02e2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02e3 00cf | | Action Mark_Auxiliary
02e4 e5fe | | Load 0x2,-0x2
02e5 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
02e6 01d9 | | Execute Vector,Reverse_Bounds
02e7 0263 | c | Execute Discrete,Above_Bound
02e8 7027 |p' | Jump_Nonzero 0x310
02e9 00d8 | | Load_Top At_Offset_0
02ea e5fe | | Load 0x2,-0x2
02eb 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
02ec 01d5 | | Execute Vector,Field_Reference
02ed 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02ee 0f04 | | Execute_Immediate Equal,0x4
02ef 681e |h | Jump_Zero 0x30e
02f0 e00b | | Load 0x0,0xb
02f1 0322 | " | Declare_Variable Record
02f2 00d9 | | Load_Top At_Offset_1
02f3 0a01 | | Execute_Immediate Plus,0x1
02f4 00d9 | | Load_Top At_Offset_1
02f5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02f6 e5fe | | Load 0x2,-0x2
02f7 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
02f8 01dc | | Execute Vector,Last
02f9 00d9 | | Load_Top At_Offset_1
02fa 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02fb e5fe | | Load 0x2,-0x2
02fc 824d | M | Call 0x1,0x4d
02fd e5ff | | Load 0x2,-0x1
02fe 8227 | ' | Call 0x1,0x27
02ff e00b | | Load 0x0,0xb
0300 0322 | " | Declare_Variable Record
0301 4801 |H | Short_Literal 0x1
0302 00d9 | | Load_Top At_Offset_1
0303 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0304 00da | | Load_Top At_Offset_2
0305 0aff | | Execute_Immediate Plus,-0x1
0306 00d9 | | Load_Top At_Offset_1
0307 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0308 e5fe | | Load 0x2,-0x2
0309 824d | M | Call 0x1,0x4d
030a e5ff | | Load 0x2,-0x1
030b 8227 | ' | Call 0x1,0x27
030c 8228 | ( | Call 0x1,0x28
030d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
030e 00c8 | | Action Pop_Auxiliary_Range
030f 3fd9 |? | Loop_Increasing 0x2e9
0310 00c9 | | Action Pop_Auxiliary_Loop
0311 00db | | Load_Top At_Offset_3
0312 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0313 01d9 | | Execute Vector,Reverse_Bounds
0314 0263 | c | Execute Discrete,Above_Bound
0315 7027 |p' | Jump_Nonzero 0x33d
0316 00d8 | | Load_Top At_Offset_0
0317 e5ff | | Load 0x2,-0x1
0318 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0319 01d5 | | Execute Vector,Field_Reference
031a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
031b 0f04 | | Execute_Immediate Equal,0x4
031c 681e |h | Jump_Zero 0x33b
031d e5fe | | Load 0x2,-0x2
031e e00b | | Load 0x0,0xb
031f 0322 | " | Declare_Variable Record
0320 00da | | Load_Top At_Offset_2
0321 0a01 | | Execute_Immediate Plus,0x1
0322 00d9 | | Load_Top At_Offset_1
0323 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0324 e5ff | | Load 0x2,-0x1
0325 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0326 01dc | | Execute Vector,Last
0327 00d9 | | Load_Top At_Offset_1
0328 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0329 e5ff | | Load 0x2,-0x1
032a 824d | M | Call 0x1,0x4d
032b 8227 | ' | Call 0x1,0x27
032c e5fe | | Load 0x2,-0x2
032d e00b | | Load 0x0,0xb
032e 0322 | " | Declare_Variable Record
032f 4801 |H | Short_Literal 0x1
0330 00d9 | | Load_Top At_Offset_1
0331 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0332 00db | | Load_Top At_Offset_3
0333 0aff | | Execute_Immediate Plus,-0x1
0334 00d9 | | Load_Top At_Offset_1
0335 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0336 e5ff | | Load 0x2,-0x1
0337 824d | M | Call 0x1,0x4d
0338 8227 | ' | Call 0x1,0x27
0339 8228 | ( | Call 0x1,0x28
033a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
033b 00c8 | | Action Pop_Auxiliary_Range
033c 3fd9 |? | Loop_Increasing 0x316
033d 00ce | | Action Pop_Auxiliary
033e 00da | | Load_Top At_Offset_2
033f 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0340 e5fe | | Load 0x2,-0x2
0341 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0342 0273 | s | Execute Discrete,Plus
0343 e219 | | Load 0x1,0x19
0344 1c08 | | Execute_Immediate Run_Utility,0x8
0345 00db | | Load_Top At_Offset_3
0346 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0347 e5fe | | Load 0x2,-0x2
0348 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0349 01cc | | Execute Vector,Catenate
034a 00d9 | | Load_Top At_Offset_1
034b 00d8 | | Load_Top At_Offset_0
034c 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
034d 00da | | Load_Top At_Offset_2
034e 01da | | Execute Vector,Bounds
034f 00da | | Load_Top At_Offset_2
0350 01da | | Execute Vector,Bounds
0351 00da | | Load_Top At_Offset_2
0352 027f | | Execute Discrete,Equal
0353 7001 |p | Jump_Nonzero 0x355
0354 08e0 | | Execute_Immediate Raise,0xe0
0355 00cd | | Action Spare6_Action
0356 027f | | Execute Discrete,Equal
0357 7001 |p | Jump_Nonzero 0x359
0358 08e0 | | Execute_Immediate Raise,0xe0
0359 00d2 | | Pop_Control Pop_Count_2
035a 00d9 | | Load_Top At_Offset_1
035b 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
035c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
035d 0000 0000 | | .XXX[0x3]
035f 0000 | |
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0363 | c | .CONST 0x0363 ; Address of begin
0361 0004 | | .CONST 0x0004 ; Address of exception handler
0362 0001 | | .CONST 0x0001 ; Number of locals
0363 BODY_0360:
0363 INIT_0360:
0363 00da | | Load_Top At_Offset_2
0364 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0365 0d01 | | Execute_Immediate Less,0x1
0366 6808 |h | Jump_Zero 0x36f
0367 00db | | Load_Top At_Offset_3
0368 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0369 0d01 | | Execute_Immediate Less,0x1
036a 6804 |h | Jump_Zero 0x36f
036b 00da | | Load_Top At_Offset_2
036c 02fd | | Declare_Variable Variant_Record,Duplicate
036d 00cd | | Action Spare6_Action
036e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
036f 00da | | Load_Top At_Offset_2
0370 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0371 e5fe | | Load 0x2,-0x2
0372 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0373 0273 | s | Execute Discrete,Plus
0374 0a01 | | Execute_Immediate Plus,0x1
0375 e219 | | Load 0x1,0x19
0376 1c08 | | Execute_Immediate Run_Utility,0x8
0377 e249 | I | Load 0x1,0x49
0378 e5ff | | Load 0x2,-0x1
0379 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
037a 01cb | | Execute Vector,Append
037b e5fe | | Load 0x2,-0x2
037c 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
037d 01cc | | Execute Vector,Catenate
037e 00d9 | | Load_Top At_Offset_1
037f 00d8 | | Load_Top At_Offset_0
0380 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0381 00da | | Load_Top At_Offset_2
0382 01da | | Execute Vector,Bounds
0383 00da | | Load_Top At_Offset_2
0384 01da | | Execute Vector,Bounds
0385 00da | | Load_Top At_Offset_2
0386 027f | | Execute Discrete,Equal
0387 7001 |p | Jump_Nonzero 0x389
0388 08e0 | | Execute_Immediate Raise,0xe0
0389 00cd | | Action Spare6_Action
038a 027f | | Execute Discrete,Equal
038b 7001 |p | Jump_Nonzero 0x38d
038c 08e0 | | Execute_Immediate Raise,0xe0
038d 00d2 | | Pop_Control Pop_Count_2
038e 00d9 | | Load_Top At_Offset_1
038f 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
0390 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0391 0000 0000 | | .BLANK 0000[0x7]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 039f | | .CONST 0x039f ; Address of begin
0399 0004 | | .CONST 0x0004 ; Address of exception handler
039a 0004 | | .CONST 0x0004 ; Number of locals
039b INIT_0398:
039b e230 | 0 | Load 0x1,0x30
039c 03e9 | | Declare_Variable Discrete,Duplicate
039d 029f 065b | [| Declare_Subprogram INIT_0658,For_Call
039f BODY_0398:
039f e230 | 0 | Load 0x1,0x30
03a0 e5ff | | Load 0x2,-0x1
03a1 8231 | 1 | Call 0x1,0x31
03a2 005b | [ | Store_Top Discrete,At_Offset_3
03a3 00cf | | Action Mark_Auxiliary
03a4 7806 |x | Jump 0x3ab
03a5 8404 | | Call 0x2,0x4
03a6 00db | | Load_Top At_Offset_3
03a7 e5ff | | Load 0x2,-0x1
03a8 8234 | 4 | Call 0x1,0x34
03a9 c402 | | Store 0x2,0x2
03aa 00c9 | | Action Pop_Auxiliary_Loop
03ab 00db | | Load_Top At_Offset_3
03ac 8232 | 2 | Call 0x1,0x32
03ad 6ff7 |o | Jump_Zero 0x3a5
03ae 00ce | | Action Pop_Auxiliary
03af 4800 |H | Short_Literal 0x0
03b0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03b1 0000 0000 | | .BLANK 0000[0x7]
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03bb | | .CONST 0x03bb ; Address of begin
03b9 0004 | | .CONST 0x0004 ; Address of exception handler
03ba 0001 | | .CONST 0x0001 ; Number of locals
03bb BODY_03b8:
03bb INIT_03b8:
03bb e211 | | Load 0x1,0x11
03bc e5fe | | Load 0x2,-0x2
03bd 821d | | Call 0x1,0x1d
03be 00db | | Load_Top At_Offset_3
03bf 8229 | ) | Call 0x1,0x29
03c0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03c1 0000 0000 | | .BLANK 0000[0x7]
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03ce | | .CONST 0x03ce ; Address of begin
03c9 0004 | | .CONST 0x0004 ; Address of exception handler
03ca 0002 | | .CONST 0x0002 ; Number of locals
03cb INIT_03c8:
03cb 00db | | Load_Top At_Offset_3
03cc 00db | | Load_Top At_Offset_3
03cd 822d | - | Call 0x1,0x2d
03ce BODY_03c8:
03ce 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03cf 0000 | | .XXX[0x1]
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03d3 | | .CONST 0x03d3 ; Address of begin
03d1 0004 | | .CONST 0x0004 ; Address of exception handler
03d2 0001 | | .CONST 0x0001 ; Number of locals
03d3 BODY_03d0:
03d3 INIT_03d0:
03d3 00db | | Load_Top At_Offset_3
03d4 e211 | | Load 0x1,0x11
03d5 e5ff | | Load 0x2,-0x1
03d6 821d | | Call 0x1,0x1d
03d7 822b | + | Call 0x1,0x2b
03d8 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03d9 0000 0000 | | .BLANK 0000[0x7]
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03e3 | | .CONST 0x03e3 ; Address of begin
03e1 0004 | | .CONST 0x0004 ; Address of exception handler
03e2 0001 | | .CONST 0x0001 ; Number of locals
03e3 BODY_03e0:
03e3 INIT_03e0:
03e3 00db | | Load_Top At_Offset_3
03e4 e211 | | Load 0x1,0x11
03e5 e5ff | | Load 0x2,-0x1
03e6 821d | | Call 0x1,0x1d
03e7 822d | - | Call 0x1,0x2d
03e8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03e9 0000 0000 | | .BLANK 0000[0x7]
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 4801 |H | Short_Literal 0x1
03f4 a5fe | | Store_Unchecked 0x2,-0x2
03f5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03f6 0000 0000 | | .XXX[0x2]
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 03fb | | .CONST 0x03fb ; Address of begin
03f9 0004 | | .CONST 0x0004 ; Address of exception handler
03fa 0001 | | .CONST 0x0001 ; Number of locals
03fb BODY_03f8:
03fb INIT_03f8:
03fb 00da | | Load_Top At_Offset_2
03fc 0d01 | | Execute_Immediate Less,0x1
03fd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03fe 0000 0000 | | .XXX[0x2]
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0408 | | .CONST 0x0408 ; Address of begin
0401 0004 | | .CONST 0x0004 ; Address of exception handler
0402 0002 | | .CONST 0x0002 ; Number of locals
0403 INIT_0400:
0403 00db | | Load_Top At_Offset_3
0404 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0405 01dc | | Execute Vector,Last
0406 00e3 | | Load_Encached Natural_Cache
0407 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0408 BODY_0400:
0408 00db | | Load_Top At_Offset_3
0409 8232 | 2 | Call 0x1,0x32
040a 6802 |h | Jump_Zero 0x40d
040b e21a | | Load 0x1,0x1a
040c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
040d 00cf | | Action Mark_Auxiliary
040e 00d9 | | Load_Top At_Offset_1
040f e5ff | | Load 0x2,-0x1
0410 00d8 | | Load_Top At_Offset_0
0411 00e4 | | Load_Encached Positive_Cache
0412 0260 | ` | Execute Discrete,In_Type
0413 7001 |p | Jump_Nonzero 0x415
0414 0801 | | Execute_Immediate Raise,0x1
0415 0263 | c | Execute Discrete,Above_Bound
0416 700e |p | Jump_Nonzero 0x425
0417 00d8 | | Load_Top At_Offset_0
0418 e5fe | | Load 0x2,-0x2
0419 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
041a 01d5 | | Execute Vector,Field_Reference
041b 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
041c 0f04 | | Execute_Immediate Equal,0x4
041d 6805 |h | Jump_Zero 0x423
041e 00d8 | | Load_Top At_Offset_0
041f 0aff | | Execute_Immediate Plus,-0x1
0420 c402 | | Store 0x2,0x2
0421 00d2 | | Pop_Control Pop_Count_2
0422 7802 |x | Jump 0x425
0423 00c8 | | Action Pop_Auxiliary_Range
0424 3ff2 |? | Loop_Increasing 0x417
0425 00ce | | Action Pop_Auxiliary
0426 e00b | | Load 0x0,0xb
0427 0322 | " | Declare_Variable Record
0428 e5ff | | Load 0x2,-0x1
0429 00d8 | | Load_Top At_Offset_0
042a 00e4 | | Load_Encached Positive_Cache
042b 0260 | ` | Execute Discrete,In_Type
042c 7001 |p | Jump_Nonzero 0x42e
042d 0801 | | Execute_Immediate Raise,0x1
042e 00d9 | | Load_Top At_Offset_1
042f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0430 00d9 | | Load_Top At_Offset_1
0431 00d9 | | Load_Top At_Offset_1
0432 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0433 e5fe | | Load 0x2,-0x2
0434 824d | M | Call 0x1,0x4d
0435 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0436 0000 0000 | | .XXX[0x2]
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 00db | | Load_Top At_Offset_3
043c 8232 | 2 | Call 0x1,0x32
043d 7021 |p! | Jump_Nonzero 0x45f
043e 00cf | | Action Mark_Auxiliary
043f 00db | | Load_Top At_Offset_3
0440 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0441 01dc | | Execute Vector,Last
0442 e5fe | | Load 0x2,-0x2
0443 00d8 | | Load_Top At_Offset_0
0444 00e4 | | Load_Encached Positive_Cache
0445 0260 | ` | Execute Discrete,In_Type
0446 7001 |p | Jump_Nonzero 0x448
0447 0801 | | Execute_Immediate Raise,0x1
0448 0263 | c | Execute Discrete,Above_Bound
0449 7012 |p | Jump_Nonzero 0x45c
044a 00d8 | | Load_Top At_Offset_0
044b e5ff | | Load 0x2,-0x1
044c 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
044d 01d5 | | Execute Vector,Field_Reference
044e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
044f 0f04 | | Execute_Immediate Equal,0x4
0450 6809 |h | Jump_Zero 0x45a
0451 00d8 | | Load_Top At_Offset_0
0452 0a01 | | Execute_Immediate Plus,0x1
0453 00d8 | | Load_Top At_Offset_0
0454 e230 | 0 | Load 0x1,0x30
0455 0260 | ` | Execute Discrete,In_Type
0456 7001 |p | Jump_Nonzero 0x458
0457 0801 | | Execute_Immediate Raise,0x1
0458 a5fe | | Store_Unchecked 0x2,-0x2
0459 4502 |E | Exit_Suprogram New_Top_Offset 0x2
045a 00c8 | | Action Pop_Auxiliary_Range
045b 3fee |? | Loop_Increasing 0x44a
045c 00ce | | Action Pop_Auxiliary
045d 4800 |H | Short_Literal 0x0
045e a5fe | | Store_Unchecked 0x2,-0x2
045f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0463 | c | .CONST 0x0463 ; Address of begin
0461 0004 | | .CONST 0x0004 ; Address of exception handler
0462 0001 | | .CONST 0x0001 ; Number of locals
0463 BODY_0460:
0463 INIT_0460:
0463 e211 | | Load 0x1,0x11
0464 e5fe | | Load 0x2,-0x2
0465 821d | | Call 0x1,0x1d
0466 00db | | Load_Top At_Offset_3
0467 8223 | # | Call 0x1,0x23
0468 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0469 0000 0000 | | .BLANK 0000[0x7]
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0473 | s | .CONST 0x0473 ; Address of begin
0471 0004 | | .CONST 0x0004 ; Address of exception handler
0472 0001 | | .CONST 0x0001 ; Number of locals
0473 BODY_0470:
0473 INIT_0470:
0473 00db | | Load_Top At_Offset_3
0474 e211 | | Load 0x1,0x11
0475 e5ff | | Load 0x2,-0x1
0476 821d | | Call 0x1,0x1d
0477 8223 | # | Call 0x1,0x23
0478 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0479 0000 0000 | | .BLANK 0000[0x7]
0480 ; --------------------------------------------------------------------------------------
0480 ; SUBPROGRAM
0480 ; --------------------------------------------------------------------------------------
0480 0483 | | .CONST 0x0483 ; Address of begin
0481 0004 | | .CONST 0x0004 ; Address of exception handler
0482 0001 | | .CONST 0x0001 ; Number of locals
0483 BODY_0480:
0483 INIT_0480:
0483 e211 | | Load 0x1,0x11
0484 e5fe | | Load 0x2,-0x2
0485 821d | | Call 0x1,0x1d
0486 00db | | Load_Top At_Offset_3
0487 8227 | ' | Call 0x1,0x27
0488 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0489 0000 0000 | | .BLANK 0000[0x7]
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 0493 | | .CONST 0x0493 ; Address of begin
0491 0004 | | .CONST 0x0004 ; Address of exception handler
0492 0001 | | .CONST 0x0001 ; Number of locals
0493 BODY_0490:
0493 INIT_0490:
0493 00db | | Load_Top At_Offset_3
0494 e211 | | Load 0x1,0x11
0495 e5ff | | Load 0x2,-0x1
0496 821d | | Call 0x1,0x1d
0497 8227 | ' | Call 0x1,0x27
0498 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0499 0000 0000 | | .BLANK 0000[0x7]
04a0 ; --------------------------------------------------------------------------------------
04a0 ; SUBPROGRAM
04a0 ; --------------------------------------------------------------------------------------
04a0 04a3 | | .CONST 0x04a3 ; Address of begin
04a1 0004 | | .CONST 0x0004 ; Address of exception handler
04a2 0001 | | .CONST 0x0001 ; Number of locals
04a3 BODY_04a0:
04a3 INIT_04a0:
04a3 e211 | | Load 0x1,0x11
04a4 e5fe | | Load 0x2,-0x2
04a5 821d | | Call 0x1,0x1d
04a6 e211 | | Load 0x1,0x11
04a7 e5ff | | Load 0x2,-0x1
04a8 821d | | Call 0x1,0x1d
04a9 8227 | ' | Call 0x1,0x27
04aa 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
04ab 0000 0000 | | .BLANK 0000[0x5]
04b0 ; --------------------------------------------------------------------------------------
04b0 ; SUBPROGRAM
04b0 ; --------------------------------------------------------------------------------------
04b0 04b3 | | .CONST 0x04b3 ; Address of begin
04b1 0004 | | .CONST 0x0004 ; Address of exception handler
04b2 0001 | | .CONST 0x0001 ; Number of locals
04b3 BODY_04b0:
04b3 INIT_04b0:
04b3 e211 | | Load 0x1,0x11
04b4 e5fe | | Load 0x2,-0x2
04b5 821d | | Call 0x1,0x1d
04b6 00db | | Load_Top At_Offset_3
04b7 8228 | ( | Call 0x1,0x28
04b8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
04b9 0000 0000 | | .BLANK 0000[0x7]
04c0 ; --------------------------------------------------------------------------------------
04c0 ; SUBPROGRAM
04c0 ; --------------------------------------------------------------------------------------
04c0 04c3 | | .CONST 0x04c3 ; Address of begin
04c1 0004 | | .CONST 0x0004 ; Address of exception handler
04c2 0001 | | .CONST 0x0001 ; Number of locals
04c3 BODY_04c0:
04c3 INIT_04c0:
04c3 00db | | Load_Top At_Offset_3
04c4 e211 | | Load 0x1,0x11
04c5 e5ff | | Load 0x2,-0x1
04c6 821d | | Call 0x1,0x1d
04c7 8228 | ( | Call 0x1,0x28
04c8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
04c9 0000 0000 | | .BLANK 0000[0x7]
04d0 ; --------------------------------------------------------------------------------------
04d0 ; SUBPROGRAM
04d0 ; --------------------------------------------------------------------------------------
04d0 04d3 | | .CONST 0x04d3 ; Address of begin
04d1 0004 | | .CONST 0x0004 ; Address of exception handler
04d2 0001 | | .CONST 0x0001 ; Number of locals
04d3 BODY_04d0:
04d3 INIT_04d0:
04d3 e211 | | Load 0x1,0x11
04d4 e5fe | | Load 0x2,-0x2
04d5 821d | | Call 0x1,0x1d
04d6 e211 | | Load 0x1,0x11
04d7 e5ff | | Load 0x2,-0x1
04d8 821d | | Call 0x1,0x1d
04d9 8228 | ( | Call 0x1,0x28
04da 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
04db 0000 0000 | | .BLANK 0000[0x5]
04e0 ; --------------------------------------------------------------------------------------
04e0 ; SUBPROGRAM
04e0 ; --------------------------------------------------------------------------------------
04e0 04e3 | | .CONST 0x04e3 ; Address of begin
04e1 0004 | | .CONST 0x0004 ; Address of exception handler
04e2 0001 | | .CONST 0x0001 ; Number of locals
04e3 BODY_04e0:
04e3 INIT_04e0:
04e3 4607 |F | Jump_Case 0x8
04e4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
04e5 7806 |x | Jump 0x4ec ; case 0x1
04e6 7809 |x | Jump 0x4f0 ; case 0x2
04e7 780d |x | Jump 0x4f5 ; case 0x3
04e8 7810 |x | Jump 0x4f9 ; case 0x4
04e9 7811 |x | Jump 0x4fb ; case 0x5
04ea 7812 |x | Jump 0x4fd ; case 0x6
04eb 7815 |x | Jump 0x501 ; case 0x7
04ec 00da | | Load_Top At_Offset_2
04ed 0091 06f5 | | Action Push_String_Extended_Indexed,0x6f5 ; "DATA"
04ef 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
04f0 00db | | Load_Top At_Offset_3
04f1 00db | | Load_Top At_Offset_3
04f2 00e0 | | Load_Encached Standard_Cache
04f3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
04f4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04f5 00da | | Load_Top At_Offset_2
04f6 00e0 | | Load_Encached Standard_Cache
04f7 181c | | Execute Package,Field_Execute,Field_Number 0x1c
04f8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
04f9 00db | | Load_Top At_Offset_3
04fa 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04fb 00db | | Load_Top At_Offset_3
04fc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04fd e246 | F | Load 0x1,0x46
04fe 00dc | | Load_Top At_Offset_4
04ff 0267 | g | Execute Discrete,Predecessor
0500 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0501 e246 | F | Load 0x1,0x46
0502 00dc | | Load_Top At_Offset_4
0503 0268 | h | Execute Discrete,Successor
0504 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0505 0000 0000 | | .XXX[0x3]
0507 0000 | |
0508 ; --------------------------------------------------------------------------------------
0508 ; SUBPROGRAM
0508 ; --------------------------------------------------------------------------------------
0508 050b | | .CONST 0x050b ; Address of begin
0509 0004 | | .CONST 0x0004 ; Address of exception handler
050a 0001 | | .CONST 0x0001 ; Number of locals
050b BODY_0508:
050b INIT_0508:
050b 00d1 | | Pop_Control Pop_Count_1
050c 00da | | Load_Top At_Offset_2
050d 01d8 | | Execute Vector,Element_Type
050e 02ff | | Declare_Variable Variant_Record
050f 00d8 | | Load_Top At_Offset_0
0510 1c00 | | Execute_Immediate Run_Utility,0x0
0511 00db | | Load_Top At_Offset_3
0512 01dc | | Execute Vector,Last
0513 e5ff | | Load 0x2,-0x1
0514 01dd | | Execute Vector,First
0515 0263 | c | Execute Discrete,Above_Bound
0516 7006 |p | Jump_Nonzero 0x51d
0517 00da | | Load_Top At_Offset_2
0518 00d9 | | Load_Top At_Offset_1
0519 e5ff | | Load 0x2,-0x1
051a 01d6 | | Execute Vector,Field_Write
051b 0a01 | | Execute_Immediate Plus,0x1
051c 7ff8 | | Jump 0x515
051d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
051e 0000 0000 | | .XXX[0x2]
0520 ; --------------------------------------------------------------------------------------
0520 ; SUBPROGRAM
0520 ; --------------------------------------------------------------------------------------
0520 052d | - | .CONST 0x052d ; Address of begin
0521 0004 | | .CONST 0x0004 ; Address of exception handler
0522 0002 | | .CONST 0x0002 ; Number of locals
0523 INIT_0520:
0523 00db | | Load_Top At_Offset_3
0524 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0525 e5fe | | Load 0x2,-0x2
0526 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0527 0272 | r | Execute Discrete,Minus
0528 0a01 | | Execute_Immediate Plus,0x1
0529 e219 | | Load 0x1,0x19
052a 1c08 | | Execute_Immediate Run_Utility,0x8
052b 00d8 | | Load_Top At_Offset_0
052c 1c00 | | Execute_Immediate Run_Utility,0x0
052d BODY_0520:
052d e5fe | | Load 0x2,-0x2
052e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
052f e5fe | | Load 0x2,-0x2
0530 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0531 e5ff | | Load 0x2,-0x1
0532 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0533 01cf | | Execute Vector,Slice_Read
0534 00d9 | | Load_Top At_Offset_1
0535 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
0536 00d8 | | Load_Top At_Offset_0
0537 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0538 ; --------------------------------------------------------------------------------------
0538 ; SUBPROGRAM
0538 ; --------------------------------------------------------------------------------------
0538 053b | ; | .CONST 0x053b ; Address of begin
0539 0004 | | .CONST 0x0004 ; Address of exception handler
053a 0001 | | .CONST 0x0001 ; Number of locals
053b BODY_0538:
053b INIT_0538:
053b 4801 |H | Short_Literal 0x1
053c 4801 |H | Short_Literal 0x1
053d e00c | | Load 0x0,0xc
053e 1b12 | | Execute Package,Field_Read,Field_Number 0x12
053f 0334 | 4 | Declare_Variable Array,With_Constraint
0540 00db | | Load_Top At_Offset_3
0541 4801 |H | Short_Literal 0x1
0542 00da | | Load_Top At_Offset_2
0543 01d6 | | Execute Vector,Field_Write
0544 821c | | Call 0x1,0x1c
0545 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0546 0000 0000 | | .XXX[0x2]
0548 ; --------------------------------------------------------------------------------------
0548 ; SUBPROGRAM
0548 ; --------------------------------------------------------------------------------------
0548 0559 | Y | .CONST 0x0559 ; Address of begin
0549 0004 | | .CONST 0x0004 ; Address of exception handler
054a 0004 | | .CONST 0x0004 ; Number of locals
054b INIT_0548:
054b 00db | | Load_Top At_Offset_3
054c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
054d 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
054e 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
054f e5fe | | Load 0x2,-0x2
0550 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0551 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0552 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0553 e5ff | | Load 0x2,-0x1
0554 e001 | | Load 0x0,0x1
0555 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0556 00e3 | | Load_Encached Natural_Cache
0557 00e3 | | Load_Encached Natural_Cache
0558 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0559 BODY_0548:
0559 00cf | | Action Mark_Auxiliary
055a 7848 |xH | Jump 0x5a3
055b e5fe | | Load 0x2,-0x2
055c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
055d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
055e 0c01 | | Execute_Immediate Greater_Equal,0x1
055f 6823 |h# | Jump_Zero 0x583
0560 e5fe | | Load 0x2,-0x2
0561 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0562 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0563 00ba | | Action Initiate_Delay
0564 00e3 | | Load_Encached Natural_Cache
0565 e5fe | | Load 0x2,-0x2
0566 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0567 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0568 e402 | | Load 0x2,0x2
0569 01dd | | Execute Vector,First
056a e404 | | Load 0x2,0x4
056b 0273 | s | Execute Discrete,Plus
056c 00d8 | | Load_Top At_Offset_0
056d 00e2 | | Load_Encached Integer_Cache
056e 0260 | ` | Execute Discrete,In_Type
056f 7001 |p | Jump_Nonzero 0x571
0570 0801 | | Execute_Immediate Raise,0x1
0571 e402 | | Load 0x2,0x2
0572 01dd | | Execute Vector,First
0573 e404 | | Load 0x2,0x4
0574 0273 | s | Execute Discrete,Plus
0575 00d8 | | Load_Top At_Offset_0
0576 00e2 | | Load_Encached Integer_Cache
0577 0260 | ` | Execute Discrete,In_Type
0578 7001 |p | Jump_Nonzero 0x57a
0579 0801 | | Execute_Immediate Raise,0x1
057a e402 | | Load 0x2,0x2
057b 01cf | | Execute Vector,Slice_Read
057c e5fe | | Load 0x2,-0x2
057d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
057e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
057f e00d | | Load 0x0,0xd
0580 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0581 005b | [ | Store_Top Discrete,At_Offset_3
0582 7817 |x | Jump 0x59a
0583 00e3 | | Load_Encached Natural_Cache
0584 e5fe | | Load 0x2,-0x2
0585 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0586 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0587 e402 | | Load 0x2,0x2
0588 01dd | | Execute Vector,First
0589 e404 | | Load 0x2,0x4
058a 0273 | s | Execute Discrete,Plus
058b 00d8 | | Load_Top At_Offset_0
058c 00e2 | | Load_Encached Integer_Cache
058d 0260 | ` | Execute Discrete,In_Type
058e 7001 |p | Jump_Nonzero 0x590
058f 0801 | | Execute_Immediate Raise,0x1
0590 e402 | | Load 0x2,0x2
0591 01dc | | Execute Vector,Last
0592 e402 | | Load 0x2,0x2
0593 01cf | | Execute Vector,Slice_Read
0594 e5fe | | Load 0x2,-0x2
0595 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0596 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0597 e00d | | Load 0x0,0xd
0598 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0599 005b | [ | Store_Top Discrete,At_Offset_3
059a 00da | | Load_Top At_Offset_2
059b 7002 |p | Jump_Nonzero 0x59e
059c e226 | & | Load 0x1,0x26
059d 0257 | W | Execute Discrete,Raise
059e 00d9 | | Load_Top At_Offset_1
059f 00db | | Load_Top At_Offset_3
05a0 0273 | s | Execute Discrete,Plus
05a1 005a | Z | Store_Top Discrete,At_Offset_2
05a2 00c9 | | Action Pop_Auxiliary_Loop
05a3 00d9 | | Load_Top At_Offset_1
05a4 e402 | | Load 0x2,0x2
05a5 01db | | Execute Vector,Length
05a6 027c | | | Execute Discrete,Less
05a7 77b3 |w | Jump_Nonzero 0x55b
05a8 00ce | | Action Pop_Auxiliary
05a9 4800 |H | Short_Literal 0x0
05aa e5fe | | Load 0x2,-0x2
05ab 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
05ac e5ff | | Load 0x2,-0x1
05ad 8214 | | Call 0x1,0x14
05ae 4503 |E | Exit_Suprogram New_Top_Offset 0x3
05af 0000 | | .XXX[0x1]
05b0 ; --------------------------------------------------------------------------------------
05b0 ; SUBPROGRAM
05b0 ; --------------------------------------------------------------------------------------
05b0 05b7 | | .CONST 0x05b7 ; Address of begin
05b1 0004 | | .CONST 0x0004 ; Address of exception handler
05b2 0002 | | .CONST 0x0002 ; Number of locals
05b3 INIT_05b0:
05b3 e00e | | Load 0x0,0xe
05b4 0322 | " | Declare_Variable Record
05b5 00d8 | | Load_Top At_Offset_0
05b6 1c00 | | Execute_Immediate Run_Utility,0x0
05b7 BODY_05b0:
05b7 00d8 | | Load_Top At_Offset_0
05b8 e5fe | | Load 0x2,-0x2
05b9 e5ff | | Load 0x2,-0x1
05ba 824c | L | Call 0x1,0x4c
05bb 00d1 | | Pop_Control Pop_Count_1
05bc 00d8 | | Load_Top At_Offset_0
05bd 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
05be 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05bf e5fe | | Load 0x2,-0x2
05c0 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
05c1 01dc | | Execute Vector,Last
05c2 027d | } | Execute Discrete,Greater
05c3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05c4 0000 0000 | | .BLANK 0000[0x4]
05c8 ; --------------------------------------------------------------------------------------
05c8 ; SUBPROGRAM
05c8 ; --------------------------------------------------------------------------------------
05c8 05cd | | .CONST 0x05cd ; Address of begin
05c9 0004 | | .CONST 0x0004 ; Address of exception handler
05ca 0002 | | .CONST 0x0002 ; Number of locals
05cb INIT_05c8:
05cb 00e4 | | Load_Encached Positive_Cache
05cc 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
05cd BODY_05c8:
05cd 00cf | | Action Mark_Auxiliary
05ce e5ff | | Load 0x2,-0x1
05cf 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
05d0 01d9 | | Execute Vector,Reverse_Bounds
05d1 0263 | c | Execute Discrete,Above_Bound
05d2 700c |p | Jump_Nonzero 0x5df
05d3 00d8 | | Load_Top At_Offset_0
05d4 e5ff | | Load 0x2,-0x1
05d5 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
05d6 01d5 | | Execute Vector,Field_Reference
05d7 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
05d8 0f04 | | Execute_Immediate Equal,0x4
05d9 6803 |h | Jump_Zero 0x5dd
05da 00db | | Load_Top At_Offset_3
05db 0a01 | | Execute_Immediate Plus,0x1
05dc c402 | | Store 0x2,0x2
05dd 00c8 | | Action Pop_Auxiliary_Range
05de 3ff4 |? | Loop_Increasing 0x5d3
05df 00ce | | Action Pop_Auxiliary
05e0 00d8 | | Load_Top At_Offset_0
05e1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05e2 0000 0000 | | .BLANK 0000[0x6]
05e8 ; --------------------------------------------------------------------------------------
05e8 ; SUBPROGRAM
05e8 ; --------------------------------------------------------------------------------------
05e8 05f4 | | .CONST 0x05f4 ; Address of begin
05e9 0004 | | .CONST 0x0004 ; Address of exception handler
05ea 0002 | | .CONST 0x0002 ; Number of locals
05eb INIT_05e8:
05eb e5ff | | Load 0x2,-0x1
05ec 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
05ed e5fe | | Load 0x2,-0x2
05ee 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
05ef 0273 | s | Execute Discrete,Plus
05f0 e219 | | Load 0x1,0x19
05f1 1c08 | | Execute_Immediate Run_Utility,0x8
05f2 00d8 | | Load_Top At_Offset_0
05f3 1c00 | | Execute_Immediate Run_Utility,0x0
05f4 BODY_05e8:
05f4 e5ff | | Load 0x2,-0x1
05f5 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
05f6 e5fe | | Load 0x2,-0x2
05f7 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
05f8 01cc | | Execute Vector,Catenate
05f9 00d9 | | Load_Top At_Offset_1
05fa 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
05fb e5ff | | Load 0x2,-0x1
05fc 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
05fd 00d9 | | Load_Top At_Offset_1
05fe 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
05ff 01d5 | | Execute Vector,Field_Reference
0600 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0601 0f01 | | Execute_Immediate Equal,0x1
0602 6846 |hF | Jump_Zero 0x649
0603 e5ff | | Load 0x2,-0x1
0604 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0605 0a01 | | Execute_Immediate Plus,0x1
0606 00d9 | | Load_Top At_Offset_1
0607 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0608 01d5 | | Execute Vector,Field_Reference
0609 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
060a 0f01 | | Execute_Immediate Equal,0x1
060b 683d |h= | Jump_Zero 0x649
060c e5ff | | Load 0x2,-0x1
060d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
060e 00d9 | | Load_Top At_Offset_1
060f 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0610 01d5 | | Execute Vector,Field_Reference
0611 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0612 e5ff | | Load 0x2,-0x1
0613 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0614 0a01 | | Execute_Immediate Plus,0x1
0615 00da | | Load_Top At_Offset_2
0616 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0617 01d5 | | Execute Vector,Field_Reference
0618 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0619 0273 | s | Execute Discrete,Plus
061a e5ff | | Load 0x2,-0x1
061b 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
061c 00da | | Load_Top At_Offset_2
061d 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
061e 01d5 | | Execute Vector,Field_Reference
061f 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0620 e5ff | | Load 0x2,-0x1
0621 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0622 0a02 | | Execute_Immediate Plus,0x2
0623 00d8 | | Load_Top At_Offset_0
0624 00e2 | | Load_Encached Integer_Cache
0625 0260 | ` | Execute Discrete,In_Type
0626 7001 |p | Jump_Nonzero 0x628
0627 0801 | | Execute_Immediate Raise,0x1
0628 00d9 | | Load_Top At_Offset_1
0629 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
062a 00da | | Load_Top At_Offset_2
062b 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
062c 01cf | | Execute Vector,Slice_Read
062d e5ff | | Load 0x2,-0x1
062e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
062f 0a01 | | Execute_Immediate Plus,0x1
0630 00d8 | | Load_Top At_Offset_0
0631 00e2 | | Load_Encached Integer_Cache
0632 0260 | ` | Execute Discrete,In_Type
0633 7001 |p | Jump_Nonzero 0x635
0634 0801 | | Execute_Immediate Raise,0x1
0635 00da | | Load_Top At_Offset_2
0636 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0637 0aff | | Execute_Immediate Plus,-0x1
0638 00db | | Load_Top At_Offset_3
0639 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
063a 01ce | | Execute Vector,Slice_Write
063b e00b | | Load 0x0,0xb
063c 0322 | " | Declare_Variable Record
063d 4801 |H | Short_Literal 0x1
063e 00d9 | | Load_Top At_Offset_1
063f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0640 00d9 | | Load_Top At_Offset_1
0641 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0642 0aff | | Execute_Immediate Plus,-0x1
0643 00d9 | | Load_Top At_Offset_1
0644 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0645 00d9 | | Load_Top At_Offset_1
0646 824d | M | Call 0x1,0x4d
0647 00cb | | Action Pop_Block_With_Result
0648 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0649 4800 |H | Short_Literal 0x0
064a e5ff | | Load 0x2,-0x1
064b 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
064c 00da | | Load_Top At_Offset_2
064d 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
064e 01d5 | | Execute Vector,Field_Reference
064f 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0650 00d8 | | Load_Top At_Offset_0
0651 00cb | | Action Pop_Block_With_Result
0652 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0653 0000 0000 | | .BLANK 0000[0x5]
0658 ; --------------------------------------------------------------------------------------
0658 ; SUBPROGRAM
0658 ; --------------------------------------------------------------------------------------
0658 065e | ^ | .CONST 0x065e ; Address of begin
0659 0004 | | .CONST 0x0004 ; Address of exception handler
065a 0002 | | .CONST 0x0002 ; Number of locals
065b INIT_0658:
065b e5ff | | Load 0x2,-0x1
065c e402 | | Load 0x2,0x2
065d 8233 | 3 | Call 0x1,0x33
065e BODY_0658:
065e e230 | 0 | Load 0x1,0x30
065f e5fe | | Load 0x2,-0x2
0660 8231 | 1 | Call 0x1,0x31
0661 c403 | | Store 0x2,0x3
0662 00cf | | Action Mark_Auxiliary
0663 780e |x | Jump 0x672
0664 e5fe | | Load 0x2,-0x2
0665 e403 | | Load 0x2,0x3
0666 8233 | 3 | Call 0x1,0x33
0667 00da | | Load_Top At_Offset_2
0668 8250 | P | Call 0x1,0x50
0669 6803 |h | Jump_Zero 0x66d
066a 4801 |H | Short_Literal 0x1
066b 00cb | | Action Pop_Block_With_Result
066c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
066d e403 | | Load 0x2,0x3
066e e5fe | | Load 0x2,-0x2
066f 8234 | 4 | Call 0x1,0x34
0670 c403 | | Store 0x2,0x3
0671 00c9 | | Action Pop_Auxiliary_Loop
0672 e403 | | Load 0x2,0x3
0673 8232 | 2 | Call 0x1,0x32
0674 6fef |o | Jump_Zero 0x664
0675 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0676 0000 0000 | | .XXX[0x2]
0678 ; --------------------------------------------------------------------------------------
0678 ; SUBPROGRAM
0678 ; --------------------------------------------------------------------------------------
0678 067b | { | .CONST 0x067b ; Address of begin
0679 0004 | | .CONST 0x0004 ; Address of exception handler
067a 0001 | | .CONST 0x0001 ; Number of locals
067b BODY_0678:
067b INIT_0678:
067b 4608 |F | Jump_Case 0x9
067c 7808 |x | Jump 0x685 ; case 0x0
067d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
067e 7849 |xI | Jump 0x6c8 ; case 0x2
067f 7848 |xH | Jump 0x6c8 ; case 0x3
0680 7847 |xG | Jump 0x6c8 ; case 0x4
0681 7846 |xF | Jump 0x6c8 ; case 0x5
0682 7821 |x! | Jump 0x6a4 ; case 0x6
0683 782d |x- | Jump 0x6b1 ; case 0x7
0684 783c |x< | Jump 0x6c1 ; case 0x8
0685 00da | | Load_Top At_Offset_2
0686 016c | l | Execute Variant_Record,Is_Constrained
0687 7009 |p | Jump_Nonzero 0x691
0688 00cf | | Action Mark_Auxiliary
0689 4801 |H | Short_Literal 0x1
068a e5ff | | Load 0x2,-0x1
068b 1c08 | | Execute_Immediate Run_Utility,0x8
068c 00d8 | | Load_Top At_Offset_0
068d 1c00 | | Execute_Immediate Run_Utility,0x0
068e c5ff | | Store 0x2,-0x1
068f 00ce | | Action Pop_Auxiliary
0690 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0691 4801 |H | Short_Literal 0x1
0692 00db | | Load_Top At_Offset_3
0693 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0694 00da | | Load_Top At_Offset_2
0695 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0696 4604 |F | Jump_Case 0x5
0697 7804 |x | Jump 0x69c ; case 0x0
0698 7807 |x | Jump 0x6a0 ; case 0x1
0699 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
069a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
069b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
069c e211 | | Load 0x1,0x11
069d 00db | | Load_Top At_Offset_3
069e 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
069f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
06a0 4800 |H | Short_Literal 0x0
06a1 00db | | Load_Top At_Offset_3
06a2 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
06a3 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
06a4 00db | | Load_Top At_Offset_3
06a5 4604 |F | Jump_Case 0x5
06a6 7806 |x | Jump 0x6ad ; case 0x0
06a7 7807 |x | Jump 0x6af ; case 0x1
06a8 7802 |x | Jump 0x6ab ; case 0x2
06a9 7801 |x | Jump 0x6ab ; case 0x3
06aa 7800 |x | Jump 0x6ab ; case 0x4
06ab 48ff |H | Short_Literal 0xff
06ac 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
06ad 4801 |H | Short_Literal 0x1
06ae 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
06af 4802 |H | Short_Literal 0x2
06b0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
06b1 00db | | Load_Top At_Offset_3
06b2 e5fe | | Load 0x2,-0x2
06b3 4604 |F | Jump_Case 0x5
06b4 7806 |x | Jump 0x6bb ; case 0x0
06b5 7807 |x | Jump 0x6bd ; case 0x1
06b6 7802 |x | Jump 0x6b9 ; case 0x2
06b7 7801 |x | Jump 0x6b9 ; case 0x3
06b8 7800 |x | Jump 0x6b9 ; case 0x4
06b9 48ff |H | Short_Literal 0xff
06ba 7803 |x | Jump 0x6be
06bb 4801 |H | Short_Literal 0x1
06bc 7801 |x | Jump 0x6be
06bd 4802 |H | Short_Literal 0x2
06be e5ff | | Load 0x2,-0x1
06bf 031b | | Declare_Type Variant_Record,Constrained
06c0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
06c1 00db | | Load_Top At_Offset_3
06c2 e5fe | | Load 0x2,-0x2
06c3 e5ff | | Load 0x2,-0x1
06c4 1c06 | | Execute_Immediate Run_Utility,0x6
06c5 e5ff | | Load 0x2,-0x1
06c6 02fc | | Declare_Variable Variant_Record,With_Constraint
06c7 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
06c8 0869 | i | Execute_Immediate Raise,0x69
06c9 0000 0000 | | .BLANK 0000[0x7]
06d0 ; --------------------------------------------------------------------------------------
06d0 ; SUBPROGRAM
06d0 ; SUBPROGRAM
06d0 ; --------------------------------------------------------------------------------------
06d0 06d3 | | .CONST 0x06d3 ; Address of begin
06d1 0004 | | .CONST 0x0004 ; Address of exception handler
06d2 0001 | | .CONST 0x0001 ; Number of locals
06d3 BODY_06d0:
06d3 BODY_06d0:
06d3 INIT_06d0:
06d3 INIT_06d0:
06d3 4608 |F | Jump_Case 0x9
06d4 7808 |x | Jump 0x6dd ; case 0x0
06d5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
06d6 781d |x | Jump 0x6f4 ; case 0x2
06d7 781c |x | Jump 0x6f4 ; case 0x3
06d8 781b |x | Jump 0x6f4 ; case 0x4
06d9 781a |x | Jump 0x6f4 ; case 0x5
06da 7819 |x | Jump 0x6f4 ; case 0x6
06db 7805 |x | Jump 0x6e1 ; case 0x7
06dc 780d |x | Jump 0x6ea ; case 0x8
06dd 00da | | Load_Top At_Offset_2
06de 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
06df 1c00 | | Execute_Immediate Run_Utility,0x0
06e0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
06e1 00db | | Load_Top At_Offset_3
06e2 4801 |H | Short_Literal 0x1
06e3 e5fe | | Load 0x2,-0x2
06e4 e248 | H | Load 0x1,0x48
06e5 035b | [ | Declare_Type Array,Constrained
06e6 4801 |H | Short_Literal 0x1
06e7 e5ff | | Load 0x2,-0x1
06e8 031b | | Declare_Type Variant_Record,Constrained
06e9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
06ea 00db | | Load_Top At_Offset_3
06eb 00db | | Load_Top At_Offset_3
06ec 02fc | | Declare_Variable Variant_Record,With_Constraint
06ed 4801 |H | Short_Literal 0x1
06ee e5fe | | Load 0x2,-0x2
06ef e248 | H | Load 0x1,0x48
06f0 0334 | 4 | Declare_Variable Array,With_Constraint
06f1 2d02 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x2
06f2 016a | j | QQ_execute Variant_Record,XXX
06f3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
06f4 0869 | i | Execute_Immediate Raise,0x69
06f5 ; --------------------------------------------------------------------------------------
06f5 ; STRING TABLE
06f5 ; --------------------------------------------------------------------------------------
06f5 000c | | .STRTAB 0x000c->0x06fb ; "DATA"
06f6 000e | | .STRTAB 0x000e->0x06fd ; "SILENCE"
06f7 0013 | | .STRTAB 0x0013->0x0700 ; "BREAK"
06f8 0016 | | .STRTAB 0x0016->0x0703 ; "DISCONNECT"
06f9 001e | | .STRTAB 0x001e->0x0708 ; "OR_ELSE"
06fa 0023 | # | .STREND 0x0023->0x070b
06fb 4441 5441 |DATA| .STRTAB_STRINGS
070c 0000 0000 | | .BLANK 0000[0x4]
0710 ; --------------------------------------------------------------------------------------
0710 ; Debug Table
0710 ; --------------------------------------------------------------------------------------
0710 0004 000a | | .DEBUG4 0x0004,0x000a,0x7e3d,0x0000,0x0001,0x0000
0716 0000 0000 | | .BLANK 0000[0xea]