|
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: 6144 (0x1800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03b8fe
└─⟦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 0b90 | | .CONST 0x0b90 ; 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 8007 | | .CONST 0x8007 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0080 | | .CONST 0x0080 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0026 | & | .CONST 0x0026 ; Number of locals
000b INIT_0008:
000b 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e 4800 |H | Short_Literal 0x0
000f 4864 |Hd | Short_Literal 0x64
0010 e002 | | Load 0x0,0x2
0011 029f 051b | | Declare_Subprogram INIT_0518,For_Call
0013 4801 |H | Short_Literal 0x1
0014 035d | ] | Declare_Type Array,Defined
0015 00d8 | | Load_Top At_Offset_0
0016 0337 | 7 | Declare_Variable Array
0017 00d8 | | Load_Top At_Offset_0
0018 1c00 | | Execute_Immediate Run_Utility,0x0
0019 4800 |H | Short_Literal 0x0
001a 4864 |Hd | Short_Literal 0x64
001b 00e2 | | Load_Encached Integer_Cache
001c 03f8 | | Declare_Type Discrete,Constrained
001d 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
001e 4800 |H | Short_Literal 0x0
001f 48c8 |H | Short_Literal 0xc8
0020 00e2 | | Load_Encached Integer_Cache
0021 02a0 | | Declare_Subprogram Null_Subprogram
0022 4801 |H | Short_Literal 0x1
0023 035d | ] | Declare_Type Array,Defined
0024 00d8 | | Load_Top At_Offset_0
0025 0337 | 7 | Declare_Variable Array
0026 4800 |H | Short_Literal 0x0
0027 48c8 |H | Short_Literal 0xc8
0028 00e2 | | Load_Encached Integer_Cache
0029 02a0 | | Declare_Subprogram Null_Subprogram
002a 4801 |H | Short_Literal 0x1
002b 035d | ] | Declare_Type Array,Defined
002c 00d8 | | Load_Top At_Offset_0
002d 0337 | 7 | Declare_Variable Array
002e 0093 0000 | | push_full_address 0x0
0030 00a2 0514 | | Action Push_Discrete_Extended
0032 0273 | s | Execute Discrete,Plus
0033 0007 | | Action Break_Optional
0034 0093 0000 | | push_full_address 0x0
0036 00a2 0510 | | Action Push_Discrete_Extended
0038 0273 | s | Execute Discrete,Plus
0039 0007 | | Action Break_Optional
003a 0093 0000 | | push_full_address 0x0
003c 00a2 050c | | Action Push_Discrete_Extended
003e 0273 | s | Execute Discrete,Plus
003f 0007 | | Action Break_Optional
0040 0093 0000 | | push_full_address 0x0
0042 00a2 0508 | | Action Push_Discrete_Extended
0044 0273 | s | Execute Discrete,Plus
0045 0007 | | Action Break_Optional
0046 0093 0000 | | push_full_address 0x0
0048 00a2 0504 | | Action Push_Discrete_Extended
004a 0273 | s | Execute Discrete,Plus
004b 0007 | | Action Break_Optional
004c 0093 0000 | | push_full_address 0x0
004e 00a2 0500 | | Action Push_Discrete_Extended
0050 0273 | s | Execute Discrete,Plus
0051 0007 | | Action Break_Optional
0052 0093 0000 | | push_full_address 0x0
0054 00a2 04fc | | Action Push_Discrete_Extended
0056 0273 | s | Execute Discrete,Plus
0057 0007 | | Action Break_Optional
0058 0093 0000 | | push_full_address 0x0
005a 00a2 04f8 | | Action Push_Discrete_Extended
005c 0273 | s | Execute Discrete,Plus
005d 0007 | | Action Break_Optional
005e 0093 0000 | | push_full_address 0x0
0060 00a2 04f4 | | Action Push_Discrete_Extended
0062 0273 | s | Execute Discrete,Plus
0063 0007 | | Action Break_Optional
0064 0093 0000 | | push_full_address 0x0
0066 00a2 04f0 | | Action Push_Discrete_Extended
0068 0273 | s | Execute Discrete,Plus
0069 0007 | | Action Break_Optional
006a 0093 0000 | | push_full_address 0x0
006c 00a2 04ec | | Action Push_Discrete_Extended
006e 0273 | s | Execute Discrete,Plus
006f 0007 | | Action Break_Optional
0070 029d 0533 | 3| Declare_Subprogram INIT_0530,For_Outer_Call
0072 029d 055b | [| Declare_Subprogram INIT_0558,For_Outer_Call
0074 029d 056b | k| Declare_Subprogram INIT_0568,For_Outer_Call
0076 029d 057b | {| Declare_Subprogram INIT_0578,For_Outer_Call
0078 029d 05ab | | Declare_Subprogram INIT_05a8,For_Outer_Call
007a 029d 05cb | | Declare_Subprogram INIT_05c8,For_Outer_Call
007c 029d 0613 | | Declare_Subprogram INIT_0610,For_Outer_Call
007e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
007f 00c7 | | Action Elaborate_Subprogram
0080 BODY_0008:
0080 00bc | | Action Signal_Activated
0081 00bb | | Action Signal_Completion
0082 0000 0000 | | .BLANK 0000[0x6]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 010e | | .CONST 0x010e ; Address of begin
0089 0427 | ' | .CONST 0x0427 ; Address of exception handler
008a 003f | ? | .CONST 0x003f ; Number of locals
008b INIT_0088:
008b e003 | | Load 0x0,0x3
008c 0322 | " | Declare_Variable Record
008d e004 | | Load 0x0,0x4
008e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
008f e004 | | Load 0x0,0x4
0090 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
0091 02c7 | | Declare_Variable Any
0092 00d8 | | Load_Top At_Offset_0
0093 1c00 | | Execute_Immediate Run_Utility,0x0
0094 00e3 | | Load_Encached Natural_Cache
0095 00e2 | | Load_Encached Integer_Cache
0096 e005 | | Load 0x0,0x5
0097 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0098 00e2 | | Load_Encached Integer_Cache
0099 00e3 | | Load_Encached Natural_Cache
009a 00e3 | | Load_Encached Natural_Cache
009b 00e5 | | Load_Encached Long_Integer_Cache
009c 00e5 | | Load_Encached Long_Integer_Cache
009d 00e6 | | Load_Encached Float_Cache
009e 00e1 | | Load_Encached Boolean_Cache
009f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00a0 00e1 | | Load_Encached Boolean_Cache
00a1 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00a2 e006 | | Load 0x0,0x6
00a3 0322 | " | Declare_Variable Record
00a4 00e3 | | Load_Encached Natural_Cache
00a5 00e3 | | Load_Encached Natural_Cache
00a6 e004 | | Load 0x0,0x4
00a7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00a8 e004 | | Load 0x0,0x4
00a9 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
00aa 02c7 | | Declare_Variable Any
00ab 00d8 | | Load_Top At_Offset_0
00ac 1c00 | | Execute_Immediate Run_Utility,0x0
00ad e004 | | Load 0x0,0x4
00ae 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
00af 00e5 | | Load_Encached Long_Integer_Cache
00b0 e004 | | Load 0x0,0x4
00b1 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
00b2 02c7 | | Declare_Variable Any
00b3 00d8 | | Load_Top At_Offset_0
00b4 1c00 | | Execute_Immediate Run_Utility,0x0
00b5 e004 | | Load 0x0,0x4
00b6 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
00b7 02c7 | | Declare_Variable Any
00b8 00d8 | | Load_Top At_Offset_0
00b9 1c00 | | Execute_Immediate Run_Utility,0x0
00ba 00e3 | | Load_Encached Natural_Cache
00bb e004 | | Load 0x0,0x4
00bc 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a
00bd 0322 | " | Declare_Variable Record
00be 00e5 | | Load_Encached Long_Integer_Cache
00bf 00e6 | | Load_Encached Float_Cache
00c0 00e2 | | Load_Encached Integer_Cache
00c1 e004 | | Load 0x0,0x4
00c2 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
00c3 02c7 | | Declare_Variable Any
00c4 e004 | | Load 0x0,0x4
00c5 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a
00c6 a41e | | Store_Unchecked 0x2,0x1e
00c7 e004 | | Load 0x0,0x4
00c8 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
00c9 e002 | | Load 0x0,0x2
00ca 0322 | " | Declare_Variable Record
00cb 00d8 | | Load_Top At_Offset_0
00cc 1c00 | | Execute_Immediate Run_Utility,0x0
00cd 00e3 | | Load_Encached Natural_Cache
00ce 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
00cf 00e3 | | Load_Encached Natural_Cache
00d0 00e3 | | Load_Encached Natural_Cache
00d1 00e3 | | Load_Encached Natural_Cache
00d2 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00d3 00e3 | | Load_Encached Natural_Cache
00d4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00d5 00e1 | | Load_Encached Boolean_Cache
00d6 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
00d7 0092 09b4 | | Action Push_String_Extended,0x9b4 ; "interpreter_dump"
00d9 8007 | | Call 0x0,0x7
00da 00e1 | | Load_Encached Boolean_Cache
00db 03f1 | | Declare_Variable Discrete,With_Value
00dc 0092 09b5 | | Action Push_String_Extended,0x9b5 ; "interpreter_trace"
00de 8007 | | Call 0x0,0x7
00df 00e1 | | Load_Encached Boolean_Cache
00e0 03f1 | | Declare_Variable Discrete,With_Value
00e1 00e1 | | Load_Encached Boolean_Cache
00e2 029f 0643 | C| Declare_Subprogram INIT_0640,For_Call
00e4 029f 064b | K| Declare_Subprogram INIT_0648,For_Call
00e6 029f 066b | k| Declare_Subprogram INIT_0668,For_Call
00e8 029f 0683 | | Declare_Subprogram INIT_0680,For_Call
00ea 029f 068b | | Declare_Subprogram INIT_0688,For_Call
00ec 029f 069b | | Declare_Subprogram INIT_0698,For_Call
00ee 029f 06b3 | | Declare_Subprogram INIT_06b0,For_Call
00f0 029f 06bb | | Declare_Subprogram INIT_06b8,For_Call
00f2 029f 06fb | | Declare_Subprogram INIT_06f8,For_Call
00f4 029f 07ab | | Declare_Subprogram INIT_07a8,For_Call
00f6 029f 0823 | #| Declare_Subprogram INIT_0820,For_Call
00f8 029f 0863 | c| Declare_Subprogram INIT_0860,For_Call
00fa 029f 086b | k| Declare_Subprogram INIT_0868,For_Call
00fc 029f 087b | {| Declare_Subprogram INIT_0878,For_Call
00fe 029f 088b | | Declare_Subprogram INIT_0888,For_Call
0100 029f 089b | | Declare_Subprogram INIT_0898,For_Call
0102 029f 08a3 | | Declare_Subprogram INIT_08a0,For_Call
0104 029f 08ab | | Declare_Subprogram INIT_08a8,For_Call
0106 029f 08bb | | Declare_Subprogram INIT_08b8,For_Call
0108 029f 08e3 | | Declare_Subprogram INIT_08e0,For_Call
010a 029f 0913 | | Declare_Subprogram INIT_0910,For_Call
010c 029f 092b | +| Declare_Subprogram INIT_0928,For_Call
010e BODY_0088:
010e e5fd | | Load 0x2,-0x3
010f 4800 |H | Short_Literal 0x0
0110 8008 | | Call 0x0,0x8
0111 00d1 | | Pop_Control Pop_Count_1
0112 4800 |H | Short_Literal 0x0
0113 a425 | % | Store_Unchecked 0x2,0x25
0114 4801 |H | Short_Literal 0x1
0115 4800 |H | Short_Literal 0x0
0116 e214 | | Load 0x1,0x14
0117 01d6 | | Execute Vector,Field_Write
0118 4800 |H | Short_Literal 0x0
0119 a424 | $ | Store_Unchecked 0x2,0x24
011a 4801 |H | Short_Literal 0x1
011b a426 | & | Store_Unchecked 0x2,0x26
011c e426 | & | Load 0x2,0x26
011d 680b |h | Jump_Zero 0x129
011e e421 | ! | Load 0x2,0x21
011f 00d8 | | Load_Top At_Offset_0
0120 00e4 | | Load_Encached Positive_Cache
0121 0260 | ` | Execute Discrete,In_Type
0122 7001 |p | Jump_Nonzero 0x124
0123 0801 | | Execute_Immediate Raise,0x1
0124 e5fe | | Load 0x2,-0x2
0125 8009 | | Call 0x0,0x9
0126 e420 | | Load 0x2,0x20
0127 017d | } | Execute Record,Structure_Write
0128 7818 |x | Jump 0x141
0129 e421 | ! | Load 0x2,0x21
012a e423 | # | Load 0x2,0x23
012b 027b | { | Execute Discrete,Greater_Equal
012c 680f |h | Jump_Zero 0x13c
012d e422 | " | Load 0x2,0x22
012e a421 | ! | Store_Unchecked 0x2,0x21
012f 4801 |H | Short_Literal 0x1
0130 a426 | & | Store_Unchecked 0x2,0x26
0131 e421 | ! | Load 0x2,0x21
0132 00d8 | | Load_Top At_Offset_0
0133 00e4 | | Load_Encached Positive_Cache
0134 0260 | ` | Execute Discrete,In_Type
0135 7001 |p | Jump_Nonzero 0x137
0136 0801 | | Execute_Immediate Raise,0x1
0137 e5fe | | Load 0x2,-0x2
0138 8009 | | Call 0x0,0x9
0139 e420 | | Load 0x2,0x20
013a 017d | } | Execute Record,Structure_Write
013b 7805 |x | Jump 0x141
013c e421 | ! | Load 0x2,0x21
013d e20f | | Load 0x1,0xf
013e 01d5 | | Execute Vector,Field_Reference
013f e420 | | Load 0x2,0x20
0140 017d | } | Execute Record,Structure_Write
0141 e428 | ( | Load 0x2,0x28
0142 e427 | ' | Load 0x2,0x27
0143 e425 | % | Load 0x2,0x25
0144 e424 | $ | Load 0x2,0x24
0145 e426 | & | Load 0x2,0x26
0146 e420 | | Load 0x2,0x20
0147 e421 | ! | Load 0x2,0x21
0148 8220 | | Call 0x1,0x20
0149 e420 | | Load 0x2,0x20
014a 800a | | Call 0x0,0xa
014b 6802 |h | Jump_Zero 0x14e
014c e420 | | Load 0x2,0x20
014d 842c | , | Call 0x2,0x2c
014e e420 | | Load 0x2,0x20
014f 800b | | Call 0x0,0xb
0150 461b |F | Jump_Case 0x1c
0151 7ad0 |z | Jump 0x422 ; case 0x0
0152 781e |x | Jump 0x171 ; case 0x1
0153 7821 |x! | Jump 0x175 ; case 0x2
0154 7828 |x( | Jump 0x17d ; case 0x3
0155 7896 |x | Jump 0x1ec ; case 0x4
0156 78fb |x | Jump 0x252 ; case 0x5
0157 791b |y | Jump 0x273 ; case 0x6
0158 7a66 |zf | Jump 0x3bf ; case 0x7
0159 7a77 |zw | Jump 0x3d1 ; case 0x8
015a 7924 |y$ | Jump 0x27f ; case 0x9
015b 7944 |yD | Jump 0x2a0 ; case 0xa
015c 7943 |yC | Jump 0x2a0 ; case 0xb
015d 797a |yz | Jump 0x2d8 ; case 0xc
015e 799a |y | Jump 0x2f9 ; case 0xd
015f 79ba |y | Jump 0x31a ; case 0xe
0160 79db |y | Jump 0x33c ; case 0xf
0161 79fc |y | Jump 0x35e ; case 0x10
0162 7a21 |z! | Jump 0x384 ; case 0x11
0163 7a18 |z | Jump 0x37c ; case 0x12
0164 7a4b |zK | Jump 0x3b0 ; case 0x13
0165 7a7d |z} | Jump 0x3e3 ; case 0x14
0166 7a97 |z | Jump 0x3fe ; case 0x15
0167 7a9a |z | Jump 0x402 ; case 0x16
0168 7a9b |z | Jump 0x404 ; case 0x17
0169 7a9c |z | Jump 0x406 ; case 0x18
016a 7a9d |z | Jump 0x408 ; case 0x19
016b 7aad |z | Jump 0x419 ; case 0x1a
016c 7800 |x | Jump 0x16d ; case 0x1b
016d e00c | | Load 0x0,0xc
016e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
016f c5fc | | Store 0x2,-0x4
0170 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0171 00d8 | | Load_Top At_Offset_0
0172 020a | | Execute Module,Get_Name
0173 c41e | | Store 0x2,0x1e
0174 7aad |z | Jump 0x422
0175 e420 | | Load 0x2,0x20
0176 800d | | Call 0x0,0xd
0177 a416 | | Store_Unchecked 0x2,0x16
0178 e416 | | Load 0x2,0x16
0179 8222 | " | Call 0x1,0x22
017a 4801 |H | Short_Literal 0x1
017b 8430 | 0 | Call 0x2,0x30
017c 7aa5 |z | Jump 0x422
017d 843f | ? | Call 0x2,0x3f
017e 4802 |H | Short_Literal 0x2
017f e5fc | | Load 0x2,-0x4
0180 e00c | | Load 0x0,0xc
0181 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0182 6802 |h | Jump_Zero 0x185
0183 e21c | | Load 0x1,0x1c
0184 0257 | W | Execute Discrete,Raise
0185 e402 | | Load 0x2,0x2
0186 e420 | | Load 0x2,0x20
0187 800e | | Call 0x0,0xe
0188 017f | | Execute Record,Equal
0189 e404 | | Load 0x2,0x4
018a e420 | | Load 0x2,0x20
018b 800f | | Call 0x0,0xf
018c 012f | / | Execute Any,Equal
018d 0279 | y | Execute Discrete,And
018e 7002 |p | Jump_Nonzero 0x191
018f e21d | | Load 0x1,0x1d
0190 0257 | W | Execute Discrete,Raise
0191 e420 | | Load 0x2,0x20
0192 8010 | | Call 0x0,0x10
0193 a408 | | Store_Unchecked 0x2,0x8
0194 e420 | | Load 0x2,0x20
0195 842a | * | Call 0x2,0x2a
0196 c417 | | Store 0x2,0x17
0197 4800 |H | Short_Literal 0x0
0198 a406 | | Store_Unchecked 0x2,0x6
0199 e417 | | Load 0x2,0x17
019a e004 | | Load 0x0,0x4
019b 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
019c 8011 | | Call 0x0,0x11
019d 700c |p | Jump_Nonzero 0x1aa
019e e417 | | Load 0x2,0x17
019f e004 | | Load 0x0,0x4
01a0 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
01a1 8012 | | Call 0x0,0x12
01a2 8013 | | Call 0x0,0x13
01a3 e5ff | | Load 0x2,-0x1
01a4 e417 | | Load 0x2,0x17
01a5 e004 | | Load 0x0,0x4
01a6 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01a7 0aff | | Execute_Immediate Plus,-0x1
01a8 a406 | | Store_Unchecked 0x2,0x6
01a9 7802 |x | Jump 0x1ac
01aa 4fff |O | Short_Literal -0x1
01ab a406 | | Store_Unchecked 0x2,0x6
01ac e420 | | Load 0x2,0x20
01ad 8014 | | Call 0x0,0x14
01ae e406 | | Load 0x2,0x6
01af 0273 | s | Execute Discrete,Plus
01b0 c419 | | Store 0x2,0x19
01b1 e405 | | Load 0x2,0x5
01b2 00d8 | | Load_Top At_Offset_0
01b3 e005 | | Load 0x0,0x5
01b4 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
01b5 0260 | ` | Execute Discrete,In_Type
01b6 7001 |p | Jump_Nonzero 0x1b8
01b7 0801 | | Execute_Immediate Raise,0x1
01b8 a407 | | Store_Unchecked 0x2,0x7
01b9 e408 | | Load 0x2,0x8
01ba e404 | | Load 0x2,0x4
01bb e004 | | Load 0x0,0x4
01bc 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
01bd e419 | | Load 0x2,0x19
01be e417 | | Load 0x2,0x17
01bf 8225 | % | Call 0x1,0x25
01c0 7007 |p | Jump_Nonzero 0x1c8
01c1 e403 | | Load 0x2,0x3
01c2 8015 | | Call 0x0,0x15
01c3 6802 |h | Jump_Zero 0x1c6
01c4 e219 | | Load 0x1,0x19
01c5 0257 | W | Execute Discrete,Raise
01c6 e218 | | Load 0x1,0x18
01c7 0257 | W | Execute Discrete,Raise
01c8 e408 | | Load 0x2,0x8
01c9 0007 | | Action Break_Optional
01ca e420 | | Load 0x2,0x20
01cb 8016 | | Call 0x0,0x16
01cc 6810 |h | Jump_Zero 0x1dd
01cd e40e | | Load 0x2,0xe
01ce 6807 |h | Jump_Zero 0x1d6
01cf e407 | | Load 0x2,0x7
01d0 843b | ; | Call 0x2,0x3b
01d1 00d8 | | Load_Top At_Offset_0
01d2 e419 | | Load 0x2,0x19
01d3 e417 | | Load 0x2,0x17
01d4 0068 | h | Action Establish_Frame
01d5 7a4c |zL | Jump 0x422
01d6 e407 | | Load 0x2,0x7
01d7 8439 | 9 | Call 0x2,0x39
01d8 00d8 | | Load_Top At_Offset_0
01d9 e419 | | Load 0x2,0x19
01da e417 | | Load 0x2,0x17
01db 0068 | h | Action Establish_Frame
01dc 7a45 |zE | Jump 0x422
01dd e407 | | Load 0x2,0x7
01de 843a | : | Call 0x2,0x3a
01df 00d8 | | Load_Top At_Offset_0
01e0 e419 | | Load 0x2,0x19
01e1 e417 | | Load 0x2,0x17
01e2 0068 | h | Action Establish_Frame
01e3 4801 |H | Short_Literal 0x1
01e4 8430 | 0 | Call 0x2,0x30
01e5 e420 | | Load 0x2,0x20
01e6 8017 | | Call 0x0,0x17
01e7 6a3a |j: | Jump_Zero 0x422
01e8 4800 |H | Short_Literal 0x0
01e9 a429 | ) | Store_Unchecked 0x2,0x29
01ea 8432 | 2 | Call 0x2,0x32
01eb 7a36 |z6 | Jump 0x422
01ec e414 | | Load 0x2,0x14
01ed 0120 | | Execute Any,Is_Value
01ee 6803 |h | Jump_Zero 0x1f2
01ef e004 | | Load 0x0,0x4
01f0 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
01f1 7801 |x | Jump 0x1f3
01f2 e414 | | Load 0x2,0x14
01f3 e004 | | Load 0x0,0x4
01f4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01f5 00e3 | | Load_Encached Natural_Cache
01f6 e420 | | Load 0x2,0x20
01f7 8018 | | Call 0x0,0x18
01f8 8223 | # | Call 0x1,0x23
01f9 c412 | | Store 0x2,0x12
01fa c413 | | Store 0x2,0x13
01fb c414 | | Store 0x2,0x14
01fc e414 | | Load 0x2,0x14
01fd e004 | | Load 0x0,0x4
01fe 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
01ff e019 | | Load 0x0,0x19
0200 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0201 c418 | | Store 0x2,0x18
0202 e414 | | Load 0x2,0x14
0203 e004 | | Load 0x0,0x4
0204 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0205 e412 | | Load 0x2,0x12
0206 0273 | s | Execute Discrete,Plus
0207 c415 | | Store 0x2,0x15
0208 e415 | | Load 0x2,0x15
0209 e418 | | Load 0x2,0x18
020a e004 | | Load 0x0,0x4
020b 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b
020c e41a | | Load 0x2,0x1a
020d 017d | } | Execute Record,Structure_Write
020e e41a | | Load 0x2,0x1a
020f e004 | | Load 0x0,0x4
0210 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c
0211 0b0a | | Execute_Immediate Case_Compare,0xa
0212 7004 |p | Jump_Nonzero 0x217
0213 0f58 | X | Execute_Immediate Equal,0x58
0214 702a |p* | Jump_Nonzero 0x23f
0215 e217 | | Load 0x1,0x17
0216 0257 | W | Execute Discrete,Raise
0217 00d1 | | Pop_Control Pop_Count_1
0218 e41a | | Load 0x2,0x1a
0219 e004 | | Load 0x0,0x4
021a 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
021b 09e0 | | Execute_Immediate Binary_Scale,-0x20
021c 00d8 | | Load_Top At_Offset_0
021d e01a | | Load 0x0,0x1a
021e 1b15 | | Execute Package,Field_Read,Field_Number 0x15
021f 0260 | ` | Execute Discrete,In_Type
0220 7001 |p | Jump_Nonzero 0x222
0221 0801 | | Execute_Immediate Raise,0x1
0222 e019 | | Load 0x0,0x19
0223 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0224 c418 | | Store 0x2,0x18
0225 e41a | | Load 0x2,0x1a
0226 e004 | | Load 0x0,0x4
0227 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
0228 62bf |b | Indirect_Literal Discrete,0x4e8,{0x00000000, 0xffffffff}
0229 0279 | y | Execute Discrete,And
022a 09f9 | | Execute_Immediate Binary_Scale,-0x7
022b 00d8 | | Load_Top At_Offset_0
022c e004 | | Load 0x0,0x4
022d 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
022e 0260 | ` | Execute Discrete,In_Type
022f 7001 |p | Jump_Nonzero 0x231
0230 0801 | | Execute_Immediate Raise,0x1
0231 a415 | | Store_Unchecked 0x2,0x15
0232 e415 | | Load 0x2,0x15
0233 e418 | | Load 0x2,0x18
0234 e004 | | Load 0x0,0x4
0235 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b
0236 e41a | | Load 0x2,0x1a
0237 017d | } | Execute Record,Structure_Write
0238 e41a | | Load 0x2,0x1a
0239 e004 | | Load 0x0,0x4
023a 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c
023b 0f58 | X | Execute_Immediate Equal,0x58
023c 7002 |p | Jump_Nonzero 0x23f
023d e217 | | Load 0x1,0x17
023e 0257 | W | Execute Discrete,Raise
023f 4820 |H | Short_Literal 0x20
0240 4800 |H | Short_Literal 0x0
0241 e41a | | Load 0x2,0x1a
0242 e004 | | Load 0x0,0x4
0243 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
0244 e019 | | Load 0x0,0x19
0245 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0246 a416 | | Store_Unchecked 0x2,0x16
0247 e416 | | Load 0x2,0x16
0248 8222 | " | Call 0x1,0x22
0249 4801 |H | Short_Literal 0x1
024a 8430 | 0 | Call 0x2,0x30
024b e420 | | Load 0x2,0x20
024c 8017 | | Call 0x0,0x17
024d 69d4 |i | Jump_Zero 0x422
024e 4800 |H | Short_Literal 0x0
024f a429 | ) | Store_Unchecked 0x2,0x29
0250 8432 | 2 | Call 0x2,0x32
0251 79d0 |y | Jump 0x422
0252 e420 | | Load 0x2,0x20
0253 8016 | | Call 0x0,0x16
0254 6812 |h | Jump_Zero 0x267
0255 e40e | | Load 0x2,0xe
0256 6809 |h | Jump_Zero 0x260
0257 015e | ^ | Execute Variant_Record,Field_Reference_Dynamic
0258 e40f | | Load 0x2,0xf
0259 6802 |h | Jump_Zero 0x25c
025a 021b | | Execute Heap_Access,Set_Null
025b 7801 |x | Jump 0x25d
025c 022b | + | Execute Access,Set_Null
025d 4802 |H | Short_Literal 0x2
025e 842f | / | Call 0x2,0x2f
025f 79c2 |y | Jump 0x422
0260 00da | | Load_Top At_Offset_2
0261 00da | | Load_Top At_Offset_2
0262 015f | _ | Execute Variant_Record,Field_Write_Dynamic
0263 00d2 | | Pop_Control Pop_Count_2
0264 4803 |H | Short_Literal 0x3
0265 842f | / | Call 0x2,0x2f
0266 79bb |y | Jump 0x422
0267 c411 | | Store 0x2,0x11
0268 00d8 | | Load_Top At_Offset_0
0269 e411 | | Load 0x2,0x11
026a 0160 | ` | Execute Variant_Record,Field_Read_Dynamic
026b 0007 | | Action Break_Optional
026c e420 | | Load 0x2,0x20
026d 8017 | | Call 0x0,0x17
026e 69b3 |i | Jump_Zero 0x422
026f 4800 |H | Short_Literal 0x0
0270 a429 | ) | Store_Unchecked 0x2,0x29
0271 8432 | 2 | Call 0x2,0x32
0272 79af |y | Jump 0x422
0273 00d8 | | Load_Top At_Offset_0
0274 016b | k | Execute Variant_Record,Read_Variant
0275 0007 | | Action Break_Optional
0276 4801 |H | Short_Literal 0x1
0277 8430 | 0 | Call 0x2,0x30
0278 e420 | | Load 0x2,0x20
0279 8017 | | Call 0x0,0x17
027a 69a7 |i | Jump_Zero 0x422
027b 4800 |H | Short_Literal 0x0
027c a429 | ) | Store_Unchecked 0x2,0x29
027d 8432 | 2 | Call 0x2,0x32
027e 79a3 |y | Jump 0x422
027f e420 | | Load 0x2,0x20
0280 8016 | | Call 0x0,0x16
0281 6812 |h | Jump_Zero 0x294
0282 e40e | | Load 0x2,0xe
0283 6809 |h | Jump_Zero 0x28d
0284 0178 | x | Execute Record,Field_Reference_Dynamic
0285 e40f | | Load 0x2,0xf
0286 6802 |h | Jump_Zero 0x289
0287 021b | | Execute Heap_Access,Set_Null
0288 7801 |x | Jump 0x28a
0289 022b | + | Execute Access,Set_Null
028a 4802 |H | Short_Literal 0x2
028b 842f | / | Call 0x2,0x2f
028c 7995 |y | Jump 0x422
028d 00da | | Load_Top At_Offset_2
028e 00da | | Load_Top At_Offset_2
028f 0179 | y | Execute Record,Field_Write_Dynamic
0290 00d2 | | Pop_Control Pop_Count_2
0291 4803 |H | Short_Literal 0x3
0292 842f | / | Call 0x2,0x2f
0293 798e |y | Jump 0x422
0294 c411 | | Store 0x2,0x11
0295 00d8 | | Load_Top At_Offset_0
0296 e411 | | Load 0x2,0x11
0297 017a | z | Execute Record,Field_Read_Dynamic
0298 0007 | | Action Break_Optional
0299 e420 | | Load 0x2,0x20
029a 8017 | | Call 0x0,0x17
029b 6986 |i | Jump_Zero 0x422
029c 4800 |H | Short_Literal 0x0
029d a429 | ) | Store_Unchecked 0x2,0x29
029e 8432 | 2 | Call 0x2,0x32
029f 7982 |y | Jump 0x422
02a0 e420 | | Load 0x2,0x20
02a1 801b | | Call 0x0,0x1b
02a2 00d8 | | Load_Top At_Offset_0
02a3 00e3 | | Load_Encached Natural_Cache
02a4 0260 | ` | Execute Discrete,In_Type
02a5 7001 |p | Jump_Nonzero 0x2a7
02a6 0801 | | Execute_Immediate Raise,0x1
02a7 a411 | | Store_Unchecked 0x2,0x11
02a8 e420 | | Load 0x2,0x20
02a9 8016 | | Call 0x0,0x16
02aa 6815 |h | Jump_Zero 0x2c0
02ab e40e | | Load 0x2,0xe
02ac 680b |h | Jump_Zero 0x2b8
02ad e411 | | Load 0x2,0x11
02ae 00d0 | | Action Swap_Control
02af 0095 | | Execute Package,Field_Reference_Dynamic
02b0 e40f | | Load 0x2,0xf
02b1 6802 |h | Jump_Zero 0x2b4
02b2 021b | | Execute Heap_Access,Set_Null
02b3 7801 |x | Jump 0x2b5
02b4 022b | + | Execute Access,Set_Null
02b5 4801 |H | Short_Literal 0x1
02b6 842f | / | Call 0x2,0x2f
02b7 796a |yj | Jump 0x422
02b8 0008 | | Action Idle
02b9 e411 | | Load 0x2,0x11
02ba 00da | | Load_Top At_Offset_2
02bb 0097 | | Execute Package,Field_Write_Dynamic
02bc 00d1 | | Pop_Control Pop_Count_1
02bd 4802 |H | Short_Literal 0x2
02be 842f | / | Call 0x2,0x2f
02bf 7962 |yb | Jump 0x422
02c0 8434 | 4 | Call 0x2,0x34
02c1 8431 | 1 | Call 0x2,0x31
02c2 a41d | | Store_Unchecked 0x2,0x1d
02c3 e411 | | Load 0x2,0x11
02c4 e41d | | Load 0x2,0x1d
02c5 e019 | | Load 0x0,0x19
02c6 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
02c7 8226 | & | Call 0x1,0x26
02c8 7002 |p | Jump_Nonzero 0x2cb
02c9 e218 | | Load 0x1,0x18
02ca 0257 | W | Execute Discrete,Raise
02cb e411 | | Load 0x2,0x11
02cc 00d9 | | Load_Top At_Offset_1
02cd 0098 | | Execute Package,Field_Read_Dynamic
02ce 0007 | | Action Break_Optional
02cf 4801 |H | Short_Literal 0x1
02d0 8430 | 0 | Call 0x2,0x30
02d1 e420 | | Load 0x2,0x20
02d2 8017 | | Call 0x0,0x17
02d3 694e |iN | Jump_Zero 0x422
02d4 4800 |H | Short_Literal 0x0
02d5 a429 | ) | Store_Unchecked 0x2,0x29
02d6 8432 | 2 | Call 0x2,0x32
02d7 794a |yJ | Jump 0x422
02d8 e420 | | Load 0x2,0x20
02d9 8016 | | Call 0x0,0x16
02da 6812 |h | Jump_Zero 0x2ed
02db e40e | | Load 0x2,0xe
02dc 680b |h | Jump_Zero 0x2e8
02dd 0008 | | Action Idle
02de e40f | | Load 0x2,0xf
02df 6803 |h | Jump_Zero 0x2e3
02e0 0217 | | Execute Heap_Access,All_Reference
02e1 021b | | Execute Heap_Access,Set_Null
02e2 7802 |x | Jump 0x2e5
02e3 0227 | ' | Execute Access,All_Reference
02e4 022b | + | Execute Access,Set_Null
02e5 4801 |H | Short_Literal 0x1
02e6 842f | / | Call 0x2,0x2f
02e7 793a |y: | Jump 0x422
02e8 00d0 | | Action Swap_Control
02e9 0228 | ( | Execute Access,All_Write
02ea 4802 |H | Short_Literal 0x2
02eb 842f | / | Call 0x2,0x2f
02ec 7935 |y5 | Jump 0x422
02ed 00d8 | | Load_Top At_Offset_0
02ee 0229 | ) | Execute Access,All_Read
02ef 0007 | | Action Break_Optional
02f0 4801 |H | Short_Literal 0x1
02f1 8430 | 0 | Call 0x2,0x30
02f2 e420 | | Load 0x2,0x20
02f3 8017 | | Call 0x0,0x17
02f4 692d |i- | Jump_Zero 0x422
02f5 4800 |H | Short_Literal 0x0
02f6 a429 | ) | Store_Unchecked 0x2,0x29
02f7 8432 | 2 | Call 0x2,0x32
02f8 7929 |y) | Jump 0x422
02f9 e420 | | Load 0x2,0x20
02fa 8016 | | Call 0x0,0x16
02fb 6812 |h | Jump_Zero 0x30e
02fc e40e | | Load 0x2,0xe
02fd 680b |h | Jump_Zero 0x309
02fe 0008 | | Action Idle
02ff e40f | | Load 0x2,0xf
0300 6803 |h | Jump_Zero 0x304
0301 0217 | | Execute Heap_Access,All_Reference
0302 021b | | Execute Heap_Access,Set_Null
0303 7802 |x | Jump 0x306
0304 0227 | ' | Execute Access,All_Reference
0305 022b | + | Execute Access,Set_Null
0306 4801 |H | Short_Literal 0x1
0307 842f | / | Call 0x2,0x2f
0308 7919 |y | Jump 0x422
0309 00d0 | | Action Swap_Control
030a 0218 | | Execute Heap_Access,All_Write
030b 4802 |H | Short_Literal 0x2
030c 842f | / | Call 0x2,0x2f
030d 7914 |y | Jump 0x422
030e 00d8 | | Load_Top At_Offset_0
030f 0219 | | Execute Heap_Access,All_Read
0310 0007 | | Action Break_Optional
0311 4801 |H | Short_Literal 0x1
0312 8430 | 0 | Call 0x2,0x30
0313 e420 | | Load 0x2,0x20
0314 8017 | | Call 0x0,0x17
0315 690c |i | Jump_Zero 0x422
0316 4800 |H | Short_Literal 0x0
0317 a429 | ) | Store_Unchecked 0x2,0x29
0318 8432 | 2 | Call 0x2,0x32
0319 7908 |y | Jump 0x422
031a e420 | | Load 0x2,0x20
031b 8016 | | Call 0x0,0x16
031c 6804 |h | Jump_Zero 0x321
031d e40e | | Load 0x2,0xe
031e 7002 |p | Jump_Nonzero 0x321
031f 00d9 | | Load_Top At_Offset_1
0320 0007 | | Action Break_Optional
0321 c409 | | Store 0x2,0x9
0322 4801 |H | Short_Literal 0x1
0323 842f | / | Call 0x2,0x2f
0324 e409 | | Load 0x2,0x9
0325 0f01 | | Execute_Immediate Equal,0x1
0326 6802 |h | Jump_Zero 0x329
0327 e21f | | Load 0x1,0x1f
0328 0257 | W | Execute Discrete,Raise
0329 e409 | | Load 0x2,0x9
032a 0f02 | | Execute_Immediate Equal,0x2
032b 6808 |h | Jump_Zero 0x334
032c 843c | < | Call 0x2,0x3c
032d e420 | | Load 0x2,0x20
032e 8017 | | Call 0x0,0x17
032f 68f2 |h | Jump_Zero 0x422
0330 4800 |H | Short_Literal 0x0
0331 a429 | ) | Store_Unchecked 0x2,0x29
0332 8432 | 2 | Call 0x2,0x32
0333 78ee |x | Jump 0x422
0334 843d | = | Call 0x2,0x3d
0335 e420 | | Load 0x2,0x20
0336 8017 | | Call 0x0,0x17
0337 68ea |h | Jump_Zero 0x422
0338 4800 |H | Short_Literal 0x0
0339 a429 | ) | Store_Unchecked 0x2,0x29
033a 8432 | 2 | Call 0x2,0x32
033b 78e6 |x | Jump 0x422
033c e420 | | Load 0x2,0x20
033d 8016 | | Call 0x0,0x16
033e 6813 |h | Jump_Zero 0x352
033f e40e | | Load 0x2,0xe
0340 680a |h | Jump_Zero 0x34b
0341 00d0 | | Action Swap_Control
0342 01d5 | | Execute Vector,Field_Reference
0343 e40f | | Load 0x2,0xf
0344 6802 |h | Jump_Zero 0x347
0345 021b | | Execute Heap_Access,Set_Null
0346 7801 |x | Jump 0x348
0347 022b | + | Execute Access,Set_Null
0348 4802 |H | Short_Literal 0x2
0349 842f | / | Call 0x2,0x2f
034a 78d7 |x | Jump 0x422
034b 00d9 | | Load_Top At_Offset_1
034c 00db | | Load_Top At_Offset_3
034d 01d6 | | Execute Vector,Field_Write
034e 00d2 | | Pop_Control Pop_Count_2
034f 4803 |H | Short_Literal 0x3
0350 842f | / | Call 0x2,0x2f
0351 78d0 |x | Jump 0x422
0352 c40b | | Store 0x2,0xb
0353 e40b | | Load 0x2,0xb
0354 00d9 | | Load_Top At_Offset_1
0355 01d7 | | Execute Vector,Field_Read
0356 0007 | | Action Break_Optional
0357 e420 | | Load 0x2,0x20
0358 8017 | | Call 0x0,0x17
0359 68c8 |h | Jump_Zero 0x422
035a 4800 |H | Short_Literal 0x0
035b a429 | ) | Store_Unchecked 0x2,0x29
035c 8432 | 2 | Call 0x2,0x32
035d 78c4 |x | Jump 0x422
035e c409 | | Store 0x2,0x9
035f e409 | | Load 0x2,0x9
0360 0f01 | | Execute_Immediate Equal,0x1
0361 6803 |h | Jump_Zero 0x365
0362 00d8 | | Load_Top At_Offset_0
0363 01d9 | | Execute Vector,Reverse_Bounds
0364 780d |x | Jump 0x372
0365 e420 | | Load 0x2,0x20
0366 801c | | Call 0x0,0x1c
0367 a40a | | Store_Unchecked 0x2,0xa
0368 00d8 | | Load_Top At_Offset_0
0369 e40a | | Load 0x2,0xa
036a 00d0 | | Action Swap_Control
036b e409 | | Load 0x2,0x9
036c 0f02 | | Execute_Immediate Equal,0x2
036d 6802 |h | Jump_Zero 0x370
036e 01a9 | | Execute Matrix,Reverse_Bounds
036f 7802 |x | Jump 0x372
0370 01f9 | | Execute Array,Reverse_Bounds
0371 0007 | | Action Break_Optional
0372 4801 |H | Short_Literal 0x1
0373 8430 | 0 | Call 0x2,0x30
0374 e420 | | Load 0x2,0x20
0375 8017 | | Call 0x0,0x17
0376 68ab |h | Jump_Zero 0x422
0377 4800 |H | Short_Literal 0x0
0378 a429 | ) | Store_Unchecked 0x2,0x29
0379 8432 | 2 | Call 0x2,0x32
037a 8432 | 2 | Call 0x2,0x32
037b 78a6 |x | Jump 0x422
037c e420 | | Load 0x2,0x20
037d 801d | | Call 0x0,0x1d
037e a40d | | Store_Unchecked 0x2,0xd
037f e40d | | Load 0x2,0xd
0380 0007 | | Action Break_Optional
0381 4801 |H | Short_Literal 0x1
0382 8430 | 0 | Call 0x2,0x30
0383 789e |x | Jump 0x422
0384 e420 | | Load 0x2,0x20
0385 801e | | Call 0x0,0x1e
0386 e410 | | Load 0x2,0x10
0387 017d | } | Execute Record,Structure_Write
0388 e410 | | Load 0x2,0x10
0389 801f | | Call 0x0,0x1f
038a 4606 |F | Jump_Case 0x7
038b 780b |x | Jump 0x397 ; case 0x0
038c 780a |x | Jump 0x397 ; case 0x1
038d 7804 |x | Jump 0x392 ; case 0x2
038e 7810 |x | Jump 0x39f ; case 0x3
038f 7807 |x | Jump 0x397 ; case 0x4
0390 7801 |x | Jump 0x392 ; case 0x5
0391 7800 |x | Jump 0x392 ; case 0x6
0392 0092 09b6 | | Action Push_String_Extended,0x9b6 ; "Load_Discrete_Constant: unknown scalar type"
0394 e020 | | Load 0x0,0x20
0395 180f | | Execute Package,Field_Execute,Field_Number 0xf
0396 788b |x | Jump 0x422
0397 e420 | | Load 0x2,0x20
0398 8021 | ! | Call 0x0,0x21
0399 a40c | | Store_Unchecked 0x2,0xc
039a e40c | | Load 0x2,0xc
039b 0007 | | Action Break_Optional
039c 4801 |H | Short_Literal 0x1
039d 8430 | 0 | Call 0x2,0x30
039e 7883 |x | Jump 0x422
039f 0092 09b7 | | Action Push_String_Extended,0x9b7 ; "Load_Discrete_Constant: non-null access type"
03a1 e410 | | Load 0x2,0x10
03a2 8022 | " | Call 0x0,0x22
03a3 e020 | | Load 0x0,0x20
03a4 180e | | Execute Package,Field_Execute,Field_Number 0xe
03a5 4801 |H | Short_Literal 0x1
03a6 a40e | | Store_Unchecked 0x2,0xe
03a7 e410 | | Load 0x2,0x10
03a8 8023 | # | Call 0x0,0x23
03a9 6803 |h | Jump_Zero 0x3ad
03aa 4801 |H | Short_Literal 0x1
03ab a40f | | Store_Unchecked 0x2,0xf
03ac 7875 |xu | Jump 0x422
03ad 4800 |H | Short_Literal 0x0
03ae a40f | | Store_Unchecked 0x2,0xf
03af 7872 |xr | Jump 0x422
03b0 e41e | | Load 0x2,0x1e
03b1 e004 | | Load 0x0,0x4
03b2 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
03b3 a41f | | Store_Unchecked 0x2,0x1f
03b4 e41f | | Load 0x2,0x1f
03b5 0007 | | Action Break_Optional
03b6 4801 |H | Short_Literal 0x1
03b7 8430 | 0 | Call 0x2,0x30
03b8 e420 | | Load 0x2,0x20
03b9 8017 | | Call 0x0,0x17
03ba 6867 |hg | Jump_Zero 0x422
03bb 4800 |H | Short_Literal 0x0
03bc a429 | ) | Store_Unchecked 0x2,0x29
03bd 8432 | 2 | Call 0x2,0x32
03be 7863 |xc | Jump 0x422
03bf 00d8 | | Load_Top At_Offset_0
03c0 00d8 | | Load_Top At_Offset_0
03c1 6803 |h | Jump_Zero 0x3c5
03c2 0227 | ' | Execute Access,All_Reference
03c3 012d | - | Execute Any,Address
03c4 7803 |x | Jump 0x3c8
03c5 00d1 | | Pop_Control Pop_Count_1
03c6 4800 |H | Short_Literal 0x0
03c7 0007 | | Action Break_Optional
03c8 4801 |H | Short_Literal 0x1
03c9 8430 | 0 | Call 0x2,0x30
03ca e420 | | Load 0x2,0x20
03cb 8017 | | Call 0x0,0x17
03cc 6855 |hU | Jump_Zero 0x422
03cd 4801 |H | Short_Literal 0x1
03ce a429 | ) | Store_Unchecked 0x2,0x29
03cf 8432 | 2 | Call 0x2,0x32
03d0 7851 |xQ | Jump 0x422
03d1 00d8 | | Load_Top At_Offset_0
03d2 00d8 | | Load_Top At_Offset_0
03d3 6803 |h | Jump_Zero 0x3d7
03d4 0217 | | Execute Heap_Access,All_Reference
03d5 012d | - | Execute Any,Address
03d6 7803 |x | Jump 0x3da
03d7 00d1 | | Pop_Control Pop_Count_1
03d8 4800 |H | Short_Literal 0x0
03d9 0007 | | Action Break_Optional
03da 4801 |H | Short_Literal 0x1
03db 8430 | 0 | Call 0x2,0x30
03dc e420 | | Load 0x2,0x20
03dd 8017 | | Call 0x0,0x17
03de 6843 |hC | Jump_Zero 0x422
03df 4801 |H | Short_Literal 0x1
03e0 a429 | ) | Store_Unchecked 0x2,0x29
03e1 8432 | 2 | Call 0x2,0x32
03e2 783f |x? | Jump 0x422
03e3 0008 | | Action Idle
03e4 e420 | | Load 0x2,0x20
03e5 8024 | $ | Call 0x0,0x24
03e6 7002 |p | Jump_Nonzero 0x3e9
03e7 00d1 | | Pop_Control Pop_Count_1
03e8 7839 |x9 | Jump 0x422
03e9 e424 | $ | Load 0x2,0x24
03ea 7007 |p | Jump_Nonzero 0x3f2
03eb e425 | % | Load 0x2,0x25
03ec 0aff | | Execute_Immediate Plus,-0x1
03ed c425 | % | Store 0x2,0x25
03ee e425 | % | Load 0x2,0x25
03ef e212 | | Load 0x1,0x12
03f0 01d7 | | Execute Vector,Field_Read
03f1 c424 | $ | Store 0x2,0x24
03f2 e424 | $ | Load 0x2,0x24
03f3 6805 |h | Jump_Zero 0x3f9
03f4 e424 | $ | Load 0x2,0x24
03f5 0aff | | Execute_Immediate Plus,-0x1
03f6 c424 | $ | Store 0x2,0x24
03f7 00d1 | | Pop_Control Pop_Count_1
03f8 7ff9 | | Jump 0x3f2
03f9 e425 | % | Load 0x2,0x25
03fa e214 | | Load 0x1,0x14
03fb 01d7 | | Execute Vector,Field_Read
03fc c210 | | Store 0x1,0x10
03fd 7824 |x$ | Jump 0x422
03fe 4800 |H | Short_Literal 0x0
03ff a429 | ) | Store_Unchecked 0x2,0x29
0400 8432 | 2 | Call 0x2,0x32
0401 7820 |x | Jump 0x422
0402 842d | - | Call 0x2,0x2d
0403 781e |x | Jump 0x422
0404 842e | . | Call 0x2,0x2e
0405 781c |x | Jump 0x422
0406 e21a | | Load 0x1,0x1a
0407 0257 | W | Execute Discrete,Raise
0408 4801 |H | Short_Literal 0x1
0409 8430 | 0 | Call 0x2,0x30
040a e420 | | Load 0x2,0x20
040b 8010 | | Call 0x0,0x10
040c 00d8 | | Load_Top At_Offset_0
040d 00e3 | | Load_Encached Natural_Cache
040e 0260 | ` | Execute Discrete,In_Type
040f 7001 |p | Jump_Nonzero 0x411
0410 0801 | | Execute_Immediate Raise,0x1
0411 843e | > | Call 0x2,0x3e
0412 e420 | | Load 0x2,0x20
0413 8017 | | Call 0x0,0x17
0414 680d |h | Jump_Zero 0x422
0415 4800 |H | Short_Literal 0x0
0416 a429 | ) | Store_Unchecked 0x2,0x29
0417 8432 | 2 | Call 0x2,0x32
0418 7809 |x | Jump 0x422
0419 e420 | | Load 0x2,0x20
041a 8025 | % | Call 0x0,0x25
041b e420 | | Load 0x2,0x20
041c 8026 | & | Call 0x0,0x26
041d e420 | | Load 0x2,0x20
041e 8027 | ' | Call 0x0,0x27
041f e420 | | Load 0x2,0x20
0420 8018 | | Call 0x0,0x18
0421 8433 | 3 | Call 0x2,0x33
0422 e421 | ! | Load 0x2,0x21
0423 0a01 | | Execute_Immediate Plus,0x1
0424 c421 | ! | Store 0x2,0x21
0425 842b | + | Call 0x2,0x2b
0426 7cf5 || | Jump 0x11c
0427 TRAP_0088:
0427 e217 | | Load 0x1,0x17
0428 010f | | Execute Exception,Equal
0429 6808 |h | Jump_Zero 0x432
042a e420 | | Load 0x2,0x20
042b 8028 | ( | Call 0x0,0x28
042c 0092 09b8 | | Action Push_String_Extended,0x9b8 ; "Library unit not elaborated"
042e e00c | | Load 0x0,0xc
042f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0430 c5fc | | Store 0x2,-0x4
0431 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0432 e216 | | Load 0x1,0x16
0433 010f | | Execute Exception,Equal
0434 6808 |h | Jump_Zero 0x43d
0435 e420 | | Load 0x2,0x20
0436 8028 | ( | Call 0x0,0x28
0437 0092 09b9 | | Action Push_String_Extended,0x9b9 ; "Library unit is part of system"
0439 e00c | | Load 0x0,0xc
043a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
043b c5fc | | Store 0x2,-0x4
043c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
043d e21b | | Load 0x1,0x1b
043e 010f | | Execute Exception,Equal
043f 6808 |h | Jump_Zero 0x448
0440 e420 | | Load 0x2,0x20
0441 8028 | ( | Call 0x0,0x28
0442 0092 09ba | | Action Push_String_Extended,0x9ba ; "Invalid Program detected by Interpreter"
0444 e00c | | Load 0x0,0xc
0445 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0446 c5fc | | Store 0x2,-0x4
0447 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0448 e21c | | Load 0x1,0x1c
0449 010f | | Execute Exception,Equal
044a 6808 |h | Jump_Zero 0x453
044b e420 | | Load 0x2,0x20
044c 8028 | ( | Call 0x0,0x28
044d 0092 09bb | | Action Push_String_Extended,0x9bb ; "Inaccessible Frame Access"
044f e00c | | Load 0x0,0xc
0450 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0451 c5fc | | Store 0x2,-0x4
0452 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0453 e21d | | Load 0x1,0x1d
0454 010f | | Execute Exception,Equal
0455 6808 |h | Jump_Zero 0x45e
0456 e420 | | Load 0x2,0x20
0457 8028 | ( | Call 0x0,0x28
0458 0092 09bc | | Action Push_String_Extended,0x9bc ; "Task is executing a different subprogram"
045a e00c | | Load 0x0,0xc
045b 1814 | | Execute Package,Field_Execute,Field_Number 0x14
045c c5fc | | Store 0x2,-0x4
045d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
045e e21e | | Load 0x1,0x1e
045f 010f | | Execute Exception,Equal
0460 6808 |h | Jump_Zero 0x469
0461 e420 | | Load 0x2,0x20
0462 8028 | ( | Call 0x0,0x28
0463 0092 09bd | | Action Push_String_Extended,0x9bd ; "Uninitialized Value"
0465 e00c | | Load 0x0,0xc
0466 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0467 c5fc | | Store 0x2,-0x4
0468 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0469 010e | | Execute Exception,Is_Constraint_Error
046a 6839 |h9 | Jump_Zero 0x4a4
046b 8221 | ! | Call 0x1,0x21
046c 00d8 | | Load_Top At_Offset_0
046d 4801 |H | Short_Literal 0x1
046e 4808 |H | Short_Literal 0x8
046f 0262 | b | Execute Discrete,In_Range
0470 682a |h* | Jump_Zero 0x49b
0471 0aff | | Execute_Immediate Plus,-0x1
0472 4607 |F | Jump_Case 0x8
0473 780f |x | Jump 0x483 ; case 0x0
0474 7827 |x' | Jump 0x49c ; case 0x1
0475 7826 |x& | Jump 0x49c ; case 0x2
0476 7814 |x | Jump 0x48b ; case 0x3
0477 781b |x | Jump 0x493 ; case 0x4
0478 7823 |x# | Jump 0x49c ; case 0x5
0479 7801 |x | Jump 0x47b ; case 0x6
047a 7800 |x | Jump 0x47b ; case 0x7
047b e420 | | Load 0x2,0x20
047c 8028 | ( | Call 0x0,0x28
047d 0092 09be | | Action Push_String_Extended,0x9be ; "Record field is in an inactive variant part"
047f e00c | | Load 0x0,0xc
0480 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0481 c5fc | | Store 0x2,-0x4
0482 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0483 e420 | | Load 0x2,0x20
0484 8028 | ( | Call 0x0,0x28
0485 0092 09bf | | Action Push_String_Extended,0x9bf ; "Value out of range"
0487 e00c | | Load 0x0,0xc
0488 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0489 c5fc | | Store 0x2,-0x4
048a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
048b e420 | | Load 0x2,0x20
048c 8028 | ( | Call 0x0,0x28
048d 0092 09c0 | | Action Push_String_Extended,0x9c0 ; "Null pointer dereferenced"
048f e00c | | Load 0x0,0xc
0490 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0491 c5fc | | Store 0x2,-0x4
0492 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0493 e420 | | Load 0x2,0x20
0494 8028 | ( | Call 0x0,0x28
0495 0092 09c1 | | Action Push_String_Extended,0x9c1 ; "Array index out of bounds"
0497 e00c | | Load 0x0,0xc
0498 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0499 c5fc | | Store 0x2,-0x4
049a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
049b 00d1 | | Pop_Control Pop_Count_1
049c e420 | | Load 0x2,0x20
049d 8028 | ( | Call 0x0,0x28
049e 0092 09c2 | | Action Push_String_Extended,0x9c2 ; "Constraint_Error "
04a0 e00c | | Load 0x0,0xc
04a1 1814 | | Execute Package,Field_Execute,Field_Number 0x14
04a2 c5fc | | Store 0x2,-0x4
04a3 4503 |E | Exit_Suprogram New_Top_Offset 0x3
04a4 e21a | | Load 0x1,0x1a
04a5 010f | | Execute Exception,Equal
04a6 6808 |h | Jump_Zero 0x4af
04a7 e420 | | Load 0x2,0x20
04a8 8028 | ( | Call 0x0,0x28
04a9 0092 09c3 | | Action Push_String_Extended,0x9c3 ; "Unimplemented Interpreter Function"
04ab e00c | | Load 0x0,0xc
04ac 1814 | | Execute Package,Field_Execute,Field_Number 0x14
04ad c5fc | | Store 0x2,-0x4
04ae 4503 |E | Exit_Suprogram New_Top_Offset 0x3
04af e21f | | Load 0x1,0x1f
04b0 010f | | Execute Exception,Equal
04b1 6808 |h | Jump_Zero 0x4ba
04b2 e420 | | Load 0x2,0x20
04b3 8028 | ( | Call 0x0,0x28
04b4 0092 09c4 | | Action Push_String_Extended,0x9c4 ; "Invalid Abstract Program (Array Access)"
04b6 e00c | | Load 0x0,0xc
04b7 1814 | | Execute Package,Field_Execute,Field_Number 0x14
04b8 c5fc | | Store 0x2,-0x4
04b9 4503 |E | Exit_Suprogram New_Top_Offset 0x3
04ba e215 | | Load 0x1,0x15
04bb 010f | | Execute Exception,Equal
04bc 680a |h | Jump_Zero 0x4c7
04bd e5fc | | Load 0x2,-0x4
04be 00ea | | Load_Encached Null_String_Cache
04bf 0092 09c5 | | Action Push_String_Extended,0x9c5 ; "Attempt to access generic module, task type, or unelaborated package"
04c1 0092 09c6 | | Action Push_String_Extended,0x9c6 ; "Illegal Module"
04c3 e00c | | Load 0x0,0xc
04c4 1817 | | Execute Package,Field_Execute,Field_Number 0x17
04c5 c5fc | | Store 0x2,-0x4
04c6 4503 |E | Exit_Suprogram New_Top_Offset 0x3
04c7 e218 | | Load 0x1,0x18
04c8 010f | | Execute Exception,Equal
04c9 6808 |h | Jump_Zero 0x4d2
04ca e420 | | Load 0x2,0x20
04cb 8028 | ( | Call 0x0,0x28
04cc 0092 09c7 | | Action Push_String_Extended,0x9c7 ; "Attempt to access unelaborated variable"
04ce e00c | | Load 0x0,0xc
04cf 1814 | | Execute Package,Field_Execute,Field_Number 0x14
04d0 c5fc | | Store 0x2,-0x4
04d1 4503 |E | Exit_Suprogram New_Top_Offset 0x3
04d2 e219 | | Load 0x1,0x19
04d3 010f | | Execute Exception,Equal
04d4 6808 |h | Jump_Zero 0x4dd
04d5 e420 | | Load 0x2,0x20
04d6 8028 | ( | Call 0x0,0x28
04d7 0092 09c8 | | Action Push_String_Extended,0x9c8 ; "For-loop variable not accessible after exception raised"
04d9 e00c | | Load 0x0,0xc
04da 1814 | | Execute Package,Field_Execute,Field_Number 0x14
04db c5fc | | Store 0x2,-0x4
04dc 4503 |E | Exit_Suprogram New_Top_Offset 0x3
04dd e5fc | | Load 0x2,-0x4
04de 00ea | | Load_Encached Null_String_Cache
04df e029 | ) | Load 0x0,0x29
04e0 180d | | Execute Package,Field_Execute,Field_Number 0xd
04e1 0092 09c9 | | Action Push_String_Extended,0x9c9 ; "Unexpected exception"
04e3 e00c | | Load 0x0,0xc
04e4 1817 | | Execute Package,Field_Execute,Field_Number 0x17
04e5 c5fc | | Store 0x2,-0x4
04e6 4503 |E | Exit_Suprogram New_Top_Offset 0x3
04e7 0000 | | .XXX[0x1]
04e8 0000 0000 | | .LITERAL {0x00000000, 0xffffffff}
04ec 8000 0000 | | .XXX[0x2c]
04ee 000b 0000 | |
04f0 8000 0000 | |
04f2 000a 0000 | |
04f4 8000 0000 | |
04f6 0009 0000 | |
04f8 8000 0000 | |
04fa 0008 0000 | |
04fc 8000 0000 | |
04fe 0007 0000 | |
0500 8000 0000 | |
0502 0006 0000 | |
0504 8000 0000 | |
0506 0005 0000 | |
0508 8000 0000 | |
050a 0004 0000 | |
050c 8000 0000 | |
050e 0003 0000 | |
0510 8000 0000 | |
0512 0002 0000 | |
0514 8000 0000 | |
0516 0001 0000 | |
0518 ; --------------------------------------------------------------------------------------
0518 ; SUBPROGRAM
0518 ; --------------------------------------------------------------------------------------
0518 051b | | .CONST 0x051b ; Address of begin
0519 0004 | | .CONST 0x0004 ; Address of exception handler
051a 0001 | | .CONST 0x0001 ; Number of locals
051b BODY_0518:
051b INIT_0518:
051b 00d1 | | Pop_Control Pop_Count_1
051c 00da | | Load_Top At_Offset_2
051d 01dc | | Execute Vector,Last
051e 00db | | Load_Top At_Offset_3
051f 01dd | | Execute Vector,First
0520 0263 | c | Execute Discrete,Above_Bound
0521 7006 |p | Jump_Nonzero 0x528
0522 00d8 | | Load_Top At_Offset_0
0523 e5ff | | Load 0x2,-0x1
0524 01d5 | | Execute Vector,Field_Reference
0525 1c00 | | Execute_Immediate Run_Utility,0x0
0526 0a01 | | Execute_Immediate Plus,0x1
0527 7ff8 | | Jump 0x520
0528 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0529 0000 0000 | | .BLANK 0000[0x7]
0530 ; --------------------------------------------------------------------------------------
0530 ; SUBPROGRAM
0530 ; --------------------------------------------------------------------------------------
0530 0537 | 7 | .CONST 0x0537 ; Address of begin
0531 0004 | | .CONST 0x0004 ; Address of exception handler
0532 0003 | | .CONST 0x0003 ; Number of locals
0533 INIT_0530:
0533 029f 0973 | s| Declare_Subprogram INIT_0970,For_Call
0535 029f 0983 | | Declare_Subprogram INIT_0980,For_Call
0537 BODY_0530:
0537 e5fa | | Load 0x2,-0x6
0538 680f |h | Jump_Zero 0x548
0539 0092 09ca | | Action Push_String_Extended,0x9ca ; "Pop_Count: "
053b e5fc | | Load 0x2,-0x4
053c 00e0 | | Load_Encached Standard_Cache
053d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
053e 01cc | | Execute Vector,Catenate
053f 0092 09cb | | Action Push_String_Extended,0x9cb ; ", Mark_Count: "
0541 01cc | | Execute Vector,Catenate
0542 e5fb | | Load 0x2,-0x5
0543 00e0 | | Load_Encached Standard_Cache
0544 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0545 01cc | | Execute Vector,Catenate
0546 802a | * | Call 0x0,0x2a
0547 8403 | | Call 0x2,0x3
0548 e5f9 | | Load 0x2,-0x7
0549 680c |h | Jump_Zero 0x556
054a e5ff | | Load 0x2,-0x1
054b 00e0 | | Load_Encached Standard_Cache
054c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
054d 8402 | | Call 0x2,0x2
054e 01cc | | Execute Vector,Catenate
054f 0092 09cc | | Action Push_String_Extended,0x9cc ; ": "
0551 01cc | | Execute Vector,Catenate
0552 e5fe | | Load 0x2,-0x2
0553 802b | + | Call 0x0,0x2b
0554 01cc | | Execute Vector,Catenate
0555 802a | * | Call 0x0,0x2a
0556 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0557 0000 | | .XXX[0x1]
0558 ; --------------------------------------------------------------------------------------
0558 ; SUBPROGRAM
0558 ; --------------------------------------------------------------------------------------
0558 055c | \ | .CONST 0x055c ; Address of begin
0559 0561 | a | .CONST 0x0561 ; Address of exception handler
055a 0002 | | .CONST 0x0002 ; Number of locals
055b INIT_0558:
055b 00e5 | | Load_Encached Long_Integer_Cache
055c BODY_0558:
055c e5ff | | Load 0x2,-0x1
055d 0107 | | Execute Exception,Get_Name
055e c402 | | Store 0x2,0x2
055f 00d8 | | Load_Top At_Offset_0
0560 00ca | | Action Exit_Nullary_Function
0561 TRAP_0558:
0561 0007 | | Action Break_Optional
0562 4800 |H | Short_Literal 0x0
0563 00ca | | Action Exit_Nullary_Function
0564 0000 0000 | | .BLANK 0000[0x4]
0568 ; --------------------------------------------------------------------------------------
0568 ; SUBPROGRAM
0568 ; --------------------------------------------------------------------------------------
0568 056b | k | .CONST 0x056b ; Address of begin
0569 0004 | | .CONST 0x0004 ; Address of exception handler
056a 0001 | | .CONST 0x0001 ; Number of locals
056b BODY_0568:
056b INIT_0568:
056b 4800 |H | Short_Literal 0x0
056c 00db | | Load_Top At_Offset_3
056d e004 | | Load 0x0,0x4
056e 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
056f e004 | | Load 0x0,0x4
0570 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0571 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0572 0000 0000 | | .BLANK 0000[0x6]
0578 ; --------------------------------------------------------------------------------------
0578 ; SUBPROGRAM
0578 ; --------------------------------------------------------------------------------------
0578 0581 | | .CONST 0x0581 ; Address of begin
0579 0004 | | .CONST 0x0004 ; Address of exception handler
057a 0003 | | .CONST 0x0003 ; Number of locals
057b INIT_0578:
057b e00c | | Load 0x0,0xc
057c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
057d 02c7 | | Declare_Variable Any
057e 00d8 | | Load_Top At_Offset_0
057f 1c00 | | Execute_Immediate Run_Utility,0x0
0580 00e3 | | Load_Encached Natural_Cache
0581 BODY_0578:
0581 00d9 | | Load_Top At_Offset_1
0582 e004 | | Load 0x0,0x4
0583 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0584 e004 | | Load 0x0,0x4
0585 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
0586 e5fc | | Load 0x2,-0x4
0587 0120 | | Execute Any,Is_Value
0588 6803 |h | Jump_Zero 0x58c
0589 e004 | | Load 0x0,0x4
058a 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
058b 7801 |x | Jump 0x58d
058c e5fc | | Load 0x2,-0x4
058d e5ff | | Load 0x2,-0x1
058e 802c | , | Call 0x0,0x2c
058f c5fc | | Store 0x2,-0x4
0590 005b | [ | Store_Top Discrete,At_Offset_3
0591 c5fd | | Store 0x2,-0x3
0592 c402 | | Store 0x2,0x2
0593 4802 |H | Short_Literal 0x2
0594 00da | | Load_Top At_Offset_2
0595 e00c | | Load 0x0,0xc
0596 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0597 6802 |h | Jump_Zero 0x59a
0598 e217 | | Load 0x1,0x17
0599 0257 | W | Execute Discrete,Raise
059a 00d8 | | Load_Top At_Offset_0
059b 7002 |p | Jump_Nonzero 0x59e
059c e216 | | Load 0x1,0x16
059d 0257 | W | Execute Discrete,Raise
059e 00d8 | | Load_Top At_Offset_0
059f a5fe | | Store_Unchecked 0x2,-0x2
05a0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05a1 0000 0000 | | .BLANK 0000[0x7]
05a8 ; --------------------------------------------------------------------------------------
05a8 ; SUBPROGRAM
05a8 ; --------------------------------------------------------------------------------------
05a8 05ae | | .CONST 0x05ae ; Address of begin
05a9 0004 | | .CONST 0x0004 ; Address of exception handler
05aa 0002 | | .CONST 0x0002 ; Number of locals
05ab INIT_05a8:
05ab e004 | | Load 0x0,0x4
05ac 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a
05ad 0322 | " | Declare_Variable Record
05ae BODY_05a8:
05ae 4802 |H | Short_Literal 0x2
05af e5ff | | Load 0x2,-0x1
05b0 e004 | | Load 0x0,0x4
05b1 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b
05b2 00d9 | | Load_Top At_Offset_1
05b3 017d | } | Execute Record,Structure_Write
05b4 4814 |H | Short_Literal 0x14
05b5 4825 |H% | Short_Literal 0x25
05b6 00da | | Load_Top At_Offset_2
05b7 e004 | | Load 0x0,0x4
05b8 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e
05b9 e019 | | Load 0x0,0x19
05ba 1814 | | Execute Package,Field_Execute,Field_Number 0x14
05bb 00d8 | | Load_Top At_Offset_0
05bc e004 | | Load 0x0,0x4
05bd 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
05be 0260 | ` | Execute Discrete,In_Type
05bf 7001 |p | Jump_Nonzero 0x5c1
05c0 0801 | | Execute_Immediate Raise,0x1
05c1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05c2 0000 0000 | | .BLANK 0000[0x6]
05c8 ; --------------------------------------------------------------------------------------
05c8 ; SUBPROGRAM
05c8 ; --------------------------------------------------------------------------------------
05c8 05d6 | | .CONST 0x05d6 ; Address of begin
05c9 0609 | | .CONST 0x0609 ; Address of exception handler
05ca 0007 | | .CONST 0x0007 ; Number of locals
05cb INIT_05c8:
05cb e004 | | Load 0x0,0x4
05cc 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
05cd e004 | | Load 0x0,0x4
05ce 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05cf e004 | | Load 0x0,0x4
05d0 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
05d1 00e3 | | Load_Encached Natural_Cache
05d2 e004 | | Load 0x0,0x4
05d3 1b51 | Q | Execute Package,Field_Read,Field_Number 0x51
05d4 e004 | | Load 0x0,0x4
05d5 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
05d6 BODY_05c8:
05d6 e5fe | | Load 0x2,-0x2
05d7 7005 |p | Jump_Nonzero 0x5dd
05d8 e5ff | | Load 0x2,-0x1
05d9 8224 | $ | Call 0x1,0x24
05da 0a01 | | Execute_Immediate Plus,0x1
05db 0059 | Y | Store_Top Discrete,At_Offset_1
05dc 7826 |x& | Jump 0x603
05dd e004 | | Load 0x0,0x4
05de 1b51 | Q | Execute Package,Field_Read,Field_Number 0x51
05df 00e3 | | Load_Encached Natural_Cache
05e0 e004 | | Load 0x0,0x4
05e1 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
05e2 e004 | | Load 0x0,0x4
05e3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05e4 e004 | | Load 0x0,0x4
05e5 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
05e6 e5fe | | Load 0x2,-0x2
05e7 0aff | | Execute_Immediate Plus,-0x1
05e8 00d8 | | Load_Top At_Offset_0
05e9 00e3 | | Load_Encached Natural_Cache
05ea 0260 | ` | Execute Discrete,In_Type
05eb 7001 |p | Jump_Nonzero 0x5ed
05ec 0801 | | Execute_Immediate Raise,0x1
05ed e019 | | Load 0x0,0x19
05ee 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
05ef e5ff | | Load 0x2,-0x1
05f0 e004 | | Load 0x0,0x4
05f1 1853 | S | Execute Package,Field_Execute,Field_Number 0x53
05f2 c402 | | Store 0x2,0x2
05f3 c403 | | Store 0x2,0x3
05f4 c404 | | Store 0x2,0x4
05f5 c405 | | Store 0x2,0x5
05f6 005a | Z | Store_Top Discrete,At_Offset_2
05f7 00d9 | | Load_Top At_Offset_1
05f8 0f02 | | Execute_Immediate Equal,0x2
05f9 6805 |h | Jump_Zero 0x5ff
05fa e402 | | Load 0x2,0x2
05fb e004 | | Load 0x0,0x4
05fc 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
05fd 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
05fe 7804 |x | Jump 0x603
05ff e5ff | | Load 0x2,-0x1
0600 8224 | $ | Call 0x1,0x24
0601 0a01 | | Execute_Immediate Plus,0x1
0602 0059 | Y | Store_Top Discrete,At_Offset_1
0603 e5fd | | Load 0x2,-0x3
0604 e5fc | | Load 0x2,-0x4
0605 0273 | s | Execute Discrete,Plus
0606 00d9 | | Load_Top At_Offset_1
0607 027c | | | Execute Discrete,Less
0608 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0609 TRAP_05c8:
0609 0007 | | Action Break_Optional
060a 4801 |H | Short_Literal 0x1
060b 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
060c 0000 0000 | | .BLANK 0000[0x4]
0610 ; --------------------------------------------------------------------------------------
0610 ; SUBPROGRAM
0610 ; --------------------------------------------------------------------------------------
0610 061a | | .CONST 0x061a ; Address of begin
0611 0637 | 7 | .CONST 0x0637 ; Address of exception handler
0612 0004 | | .CONST 0x0004 ; Number of locals
0613 INIT_0610:
0613 e004 | | Load 0x0,0x4
0614 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
0615 e004 | | Load 0x0,0x4
0616 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
0617 e004 | | Load 0x0,0x4
0618 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a
0619 0322 | " | Declare_Variable Record
061a BODY_0610:
061a e5ff | | Load 0x2,-0x1
061b 8224 | $ | Call 0x1,0x24
061c 0a01 | | Execute_Immediate Plus,0x1
061d 005b | [ | Store_Top Discrete,At_Offset_3
061e 480d |H | Short_Literal 0xd
061f 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0620 00d9 | | Load_Top At_Offset_1
0621 00db | | Load_Top At_Offset_3
0622 027b | { | Execute Discrete,Greater_Equal
0623 700f |p | Jump_Nonzero 0x633
0624 00d9 | | Load_Top At_Offset_1
0625 e5ff | | Load 0x2,-0x1
0626 e004 | | Load 0x0,0x4
0627 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b
0628 00d9 | | Load_Top At_Offset_1
0629 017d | } | Execute Record,Structure_Write
062a 00d8 | | Load_Top At_Offset_0
062b e004 | | Load 0x0,0x4
062c 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c
062d 0f7f | | Execute_Immediate Equal,0x7f
062e 7004 |p | Jump_Nonzero 0x633
062f 00d9 | | Load_Top At_Offset_1
0630 0a01 | | Execute_Immediate Plus,0x1
0631 005a | Z | Store_Top Discrete,At_Offset_2
0632 7fed | | Jump 0x620
0633 e5fe | | Load 0x2,-0x2
0634 00da | | Load_Top At_Offset_2
0635 027c | | | Execute Discrete,Less
0636 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0637 TRAP_0610:
0637 0007 | | Action Break_Optional
0638 4801 |H | Short_Literal 0x1
0639 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
063a 0000 0000 | | .BLANK 0000[0x6]
0640 ; --------------------------------------------------------------------------------------
0640 ; SUBPROGRAM
0640 ; --------------------------------------------------------------------------------------
0640 0643 | C | .CONST 0x0643 ; Address of begin
0641 0004 | | .CONST 0x0004 ; Address of exception handler
0642 0001 | | .CONST 0x0001 ; Number of locals
0643 BODY_0640:
0643 INIT_0640:
0643 00da | | Load_Top At_Offset_2
0644 800d | | Call 0x0,0xd
0645 e019 | | Load 0x0,0x19
0646 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0647 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0648 ; --------------------------------------------------------------------------------------
0648 ; SUBPROGRAM
0648 ; --------------------------------------------------------------------------------------
0648 064b | K | .CONST 0x064b ; Address of begin
0649 0661 | a | .CONST 0x0661 ; Address of exception handler
064a 0001 | | .CONST 0x0001 ; Number of locals
064b BODY_0648:
064b INIT_0648:
064b e420 | | Load 0x2,0x20
064c 8024 | $ | Call 0x0,0x24
064d 6812 |h | Jump_Zero 0x660
064e e420 | | Load 0x2,0x20
064f 800b | | Call 0x0,0xb
0650 0f14 | | Execute_Immediate Equal,0x14
0651 700e |p | Jump_Nonzero 0x660
0652 e425 | % | Load 0x2,0x25
0653 0a01 | | Execute_Immediate Plus,0x1
0654 c425 | % | Store 0x2,0x25
0655 e210 | | Load 0x1,0x10
0656 e425 | % | Load 0x2,0x25
0657 e214 | | Load 0x1,0x14
0658 01d6 | | Execute Vector,Field_Write
0659 e424 | $ | Load 0x2,0x24
065a e425 | % | Load 0x2,0x25
065b 0aff | | Execute_Immediate Plus,-0x1
065c e212 | | Load 0x1,0x12
065d 01d6 | | Execute Vector,Field_Write
065e 4800 |H | Short_Literal 0x0
065f a424 | $ | Store_Unchecked 0x2,0x24
0660 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0661 TRAP_0648:
0661 0007 | | Action Break_Optional
0662 00d8 | | Load_Top At_Offset_0
0663 0101 | | Execute Exception,Reraise
0664 0000 0000 | | .BLANK 0000[0x4]
0668 ; --------------------------------------------------------------------------------------
0668 ; SUBPROGRAM
0668 ; --------------------------------------------------------------------------------------
0668 066b | k | .CONST 0x066b ; Address of begin
0669 0673 | s | .CONST 0x0673 ; Address of exception handler
066a 0001 | | .CONST 0x0001 ; Number of locals
066b BODY_0668:
066b INIT_0668:
066b 00da | | Load_Top At_Offset_2
066c e210 | | Load 0x1,0x10
066d e20f | | Load 0x1,0xf
066e 01d6 | | Execute Vector,Field_Write
066f e210 | | Load 0x1,0x10
0670 0a01 | | Execute_Immediate Plus,0x1
0671 c210 | | Store 0x1,0x10
0672 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0673 TRAP_0668:
0673 0007 | | Action Break_Optional
0674 e420 | | Load 0x2,0x20
0675 8028 | ( | Call 0x0,0x28
0676 0092 09cd | | Action Push_String_Extended,0x9cd ; "Instruction Buffer Overflow"
0678 e00c | | Load 0x0,0xc
0679 1814 | | Execute Package,Field_Execute,Field_Number 0x14
067a c5fc | | Store 0x2,-0x4
067b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
067c 0000 0000 | | .BLANK 0000[0x4]
0680 ; --------------------------------------------------------------------------------------
0680 ; SUBPROGRAM
0680 ; --------------------------------------------------------------------------------------
0680 0683 | | .CONST 0x0683 ; Address of begin
0681 0004 | | .CONST 0x0004 ; Address of exception handler
0682 0001 | | .CONST 0x0001 ; Number of locals
0683 BODY_0680:
0683 INIT_0680:
0683 4801 |H | Short_Literal 0x1
0684 a210 | | Store_Unchecked 0x1,0x10
0685 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0686 0000 0000 | | .XXX[0x2]
0688 ; --------------------------------------------------------------------------------------
0688 ; SUBPROGRAM
0688 ; --------------------------------------------------------------------------------------
0688 068b | | .CONST 0x068b ; Address of begin
0689 0004 | | .CONST 0x0004 ; Address of exception handler
068a 0001 | | .CONST 0x0001 ; Number of locals
068b BODY_0688:
068b INIT_0688:
068b 4800 |H | Short_Literal 0x0
068c a426 | & | Store_Unchecked 0x2,0x26
068d e421 | ! | Load 0x2,0x21
068e 0a01 | | Execute_Immediate Plus,0x1
068f c422 | " | Store 0x2,0x22
0690 e210 | | Load 0x1,0x10
0691 a423 | # | Store_Unchecked 0x2,0x23
0692 4801 |H | Short_Literal 0x1
0693 a210 | | Store_Unchecked 0x1,0x10
0694 4800 |H | Short_Literal 0x0
0695 a421 | ! | Store_Unchecked 0x2,0x21
0696 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0697 0000 | | .XXX[0x1]
0698 ; --------------------------------------------------------------------------------------
0698 ; SUBPROGRAM
0698 ; --------------------------------------------------------------------------------------
0698 069b | | .CONST 0x069b ; Address of begin
0699 06a0 | | .CONST 0x06a0 ; Address of exception handler
069a 0001 | | .CONST 0x0001 ; Number of locals
069b BODY_0698:
069b INIT_0698:
069b e424 | $ | Load 0x2,0x24
069c 00db | | Load_Top At_Offset_3
069d 0272 | r | Execute Discrete,Minus
069e c424 | $ | Store 0x2,0x24
069f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
06a0 TRAP_0698:
06a0 0007 | | Action Break_Optional
06a1 e420 | | Load 0x2,0x20
06a2 8028 | ( | Call 0x0,0x28
06a3 0092 09ce | | Action Push_String_Extended,0x9ce ; "Popped Stack below zero"
06a5 e00c | | Load 0x0,0xc
06a6 1814 | | Execute Package,Field_Execute,Field_Number 0x14
06a7 c5fc | | Store 0x2,-0x4
06a8 e21b | | Load 0x1,0x1b
06a9 0257 | W | Execute Discrete,Raise
06aa 0000 0000 | | .BLANK 0000[0x6]
06b0 ; --------------------------------------------------------------------------------------
06b0 ; SUBPROGRAM
06b0 ; --------------------------------------------------------------------------------------
06b0 06b3 | | .CONST 0x06b3 ; Address of begin
06b1 0004 | | .CONST 0x0004 ; Address of exception handler
06b2 0001 | | .CONST 0x0001 ; Number of locals
06b3 BODY_06b0:
06b3 INIT_06b0:
06b3 e424 | $ | Load 0x2,0x24
06b4 00db | | Load_Top At_Offset_3
06b5 0273 | s | Execute Discrete,Plus
06b6 c424 | $ | Store 0x2,0x24
06b7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
06b8 ; --------------------------------------------------------------------------------------
06b8 ; SUBPROGRAM
06b8 ; --------------------------------------------------------------------------------------
06b8 06ca | | .CONST 0x06ca ; Address of begin
06b9 0004 | | .CONST 0x0004 ; Address of exception handler
06ba 0005 | | .CONST 0x0005 ; Number of locals
06bb INIT_06b8:
06bb e004 | | Load 0x0,0x4
06bc 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
06bd e004 | | Load 0x0,0x4
06be 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
06bf 02c7 | | Declare_Variable Any
06c0 00d8 | | Load_Top At_Offset_0
06c1 1c00 | | Execute_Immediate Run_Utility,0x0
06c2 e004 | | Load 0x0,0x4
06c3 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a
06c4 0322 | " | Declare_Variable Record
06c5 e004 | | Load 0x0,0x4
06c6 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
06c7 02c7 | | Declare_Variable Any
06c8 00d8 | | Load_Top At_Offset_0
06c9 1c00 | | Execute_Immediate Run_Utility,0x0
06ca BODY_06b8:
06ca e004 | | Load 0x0,0x4
06cb 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
06cc e019 | | Load 0x0,0x19
06cd 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
06ce c603 | | Store 0x3,0x3
06cf e019 | | Load 0x0,0x19
06d0 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
06d1 00db | | Load_Top At_Offset_3
06d2 e004 | | Load 0x0,0x4
06d3 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
06d4 c605 | | Store 0x3,0x5
06d5 00d8 | | Load_Top At_Offset_0
06d6 e004 | | Load 0x0,0x4
06d7 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
06d8 a602 | | Store_Unchecked 0x3,0x2
06d9 00db | | Load_Top At_Offset_3
06da 0aff | | Execute_Immediate Plus,-0x1
06db e004 | | Load 0x0,0x4
06dc 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
06dd 00d9 | | Load_Top At_Offset_1
06de 00d0 | | Action Swap_Control
06df 0260 | ` | Execute Discrete,In_Type
06e0 7001 |p | Jump_Nonzero 0x6e2
06e1 0801 | | Execute_Immediate Raise,0x1
06e2 00db | | Load_Top At_Offset_3
06e3 e004 | | Load 0x0,0x4
06e4 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b
06e5 00da | | Load_Top At_Offset_2
06e6 017d | } | Execute Record,Structure_Write
06e7 4820 |H | Short_Literal 0x20
06e8 4800 |H | Short_Literal 0x0
06e9 00db | | Load_Top At_Offset_3
06ea e004 | | Load 0x0,0x4
06eb 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
06ec e019 | | Load 0x0,0x19
06ed 1814 | | Execute Package,Field_Execute,Field_Number 0x14
06ee 00d8 | | Load_Top At_Offset_0
06ef 00e2 | | Load_Encached Integer_Cache
06f0 0260 | ` | Execute Discrete,In_Type
06f1 7001 |p | Jump_Nonzero 0x6f3
06f2 0801 | | Execute_Immediate Raise,0x1
06f3 00ca | | Action Exit_Nullary_Function
06f4 0000 0000 | | .BLANK 0000[0x4]
06f8 ; --------------------------------------------------------------------------------------
06f8 ; SUBPROGRAM
06f8 ; --------------------------------------------------------------------------------------
06f8 0710 | | .CONST 0x0710 ; Address of begin
06f9 078d | | .CONST 0x078d ; Address of exception handler
06fa 0007 | | .CONST 0x0007 ; Number of locals
06fb INIT_06f8:
06fb 00e1 | | Load_Encached Boolean_Cache
06fc e02d | - | Load 0x0,0x2d
06fd 0322 | " | Declare_Variable Record
06fe 802e | . | Call 0x0,0x2e
06ff 00d9 | | Load_Top At_Offset_1
0700 017d | } | Execute Record,Structure_Write
0701 e004 | | Load 0x0,0x4
0702 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
0703 e004 | | Load 0x0,0x4
0704 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0705 02c7 | | Declare_Variable Any
0706 00d8 | | Load_Top At_Offset_0
0707 1c00 | | Execute_Immediate Run_Utility,0x0
0708 e004 | | Load 0x0,0x4
0709 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a
070a 0322 | " | Declare_Variable Record
070b e004 | | Load 0x0,0x4
070c 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
070d 02c7 | | Declare_Variable Any
070e 00d8 | | Load_Top At_Offset_0
070f 1c00 | | Execute_Immediate Run_Utility,0x0
0710 BODY_06f8:
0710 e426 | & | Load 0x2,0x26
0711 6804 |h | Jump_Zero 0x716
0712 e425 | % | Load 0x2,0x25
0713 e214 | | Load 0x1,0x14
0714 01d7 | | Execute Vector,Field_Read
0715 c210 | | Store 0x1,0x10
0716 e004 | | Load 0x0,0x4
0717 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0718 e019 | | Load 0x0,0x19
0719 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
071a c605 | | Store 0x3,0x5
071b e019 | | Load 0x0,0x19
071c 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
071d 00db | | Load_Top At_Offset_3
071e e004 | | Load 0x0,0x4
071f 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
0720 c607 | | Store 0x3,0x7
0721 00d8 | | Load_Top At_Offset_0
0722 e004 | | Load 0x0,0x4
0723 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0724 a604 | | Store_Unchecked 0x3,0x4
0725 00db | | Load_Top At_Offset_3
0726 0aff | | Execute_Immediate Plus,-0x1
0727 e004 | | Load 0x0,0x4
0728 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
0729 00d9 | | Load_Top At_Offset_1
072a 00d0 | | Action Swap_Control
072b 0260 | ` | Execute Discrete,In_Type
072c 7001 |p | Jump_Nonzero 0x72e
072d 0801 | | Execute_Immediate Raise,0x1
072e 00db | | Load_Top At_Offset_3
072f e004 | | Load 0x0,0x4
0730 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b
0731 00da | | Load_Top At_Offset_2
0732 017d | } | Execute Record,Structure_Write
0733 00d9 | | Load_Top At_Offset_1
0734 e004 | | Load 0x0,0x4
0735 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c
0736 00d8 | | Load_Top At_Offset_0
0737 0d18 | | Execute_Immediate Less,0x18
0738 701d |p | Jump_Nonzero 0x756
0739 00d8 | | Load_Top At_Offset_0
073a 0c19 | | Execute_Immediate Greater_Equal,0x19
073b 7017 |p | Jump_Nonzero 0x753
073c 00d1 | | Pop_Control Pop_Count_1
073d 4820 |H | Short_Literal 0x20
073e 4800 |H | Short_Literal 0x0
073f 00db | | Load_Top At_Offset_3
0740 e004 | | Load 0x0,0x4
0741 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
0742 e019 | | Load 0x0,0x19
0743 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0744 00d8 | | Load_Top At_Offset_0
0745 e01a | | Load 0x0,0x1a
0746 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0747 0260 | ` | Execute Discrete,In_Type
0748 7001 |p | Jump_Nonzero 0x74a
0749 0801 | | Execute_Immediate Raise,0x1
074a 802f | / | Call 0x0,0x2f
074b 8030 | 0 | Call 0x0,0x30
074c e603 | | Load 0x3,0x3
074d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
074e e00c | | Load 0x0,0xc
074f 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0750 e603 | | Load 0x3,0x3
0751 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0752 782a |x* | Jump 0x77d
0753 0f58 | X | Execute_Immediate Equal,0x58
0754 77e8 |w | Jump_Nonzero 0x73d
0755 780e |x | Jump 0x764
0756 0f08 | | Execute_Immediate Equal,0x8
0757 7001 |p | Jump_Nonzero 0x759
0758 780b |x | Jump 0x764
0759 e7ff | | Load 0x3,-0x1
075a c41c | | Store 0x2,0x1c
075b e00c | | Load 0x0,0xc
075c 1819 | | Execute Package,Field_Execute,Field_Number 0x19
075d e603 | | Load 0x3,0x3
075e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
075f e41c | | Load 0x2,0x1c
0760 8031 | 1 | Call 0x0,0x31
0761 e603 | | Load 0x3,0x3
0762 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0763 7819 |x | Jump 0x77d
0764 e7ff | | Load 0x3,-0x1
0765 00d8 | | Load_Top At_Offset_0
0766 0260 | ` | Execute Discrete,In_Type
0767 c602 | | Store 0x3,0x2
0768 e602 | | Load 0x3,0x2
0769 7009 |p | Jump_Nonzero 0x773
076a e420 | | Load 0x2,0x20
076b 8028 | ( | Call 0x0,0x28
076c 0092 09bd | | Action Push_String_Extended,0x9bd ; "Uninitialized Value"
076e e00c | | Load 0x0,0xc
076f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0770 e603 | | Load 0x3,0x3
0771 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0772 780a |x | Jump 0x77d
0773 e7ff | | Load 0x3,-0x1
0774 c41b | | Store 0x2,0x1b
0775 e00c | | Load 0x0,0xc
0776 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0777 e603 | | Load 0x3,0x3
0778 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0779 e41b | | Load 0x2,0x1b
077a 8032 | 2 | Call 0x0,0x32
077b e603 | | Load 0x3,0x3
077c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
077d e429 | ) | Load 0x2,0x29
077e 6806 |h | Jump_Zero 0x785
077f e603 | | Load 0x3,0x3
0780 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0781 8033 | 3 | Call 0x0,0x33
0782 8034 | 4 | Call 0x0,0x34
0783 e603 | | Load 0x3,0x3
0784 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0785 e5fd | | Load 0x2,-0x3
0786 e603 | | Load 0x3,0x3
0787 8035 | 5 | Call 0x0,0x35
0788 00d1 | | Pop_Control Pop_Count_1
0789 4801 |H | Short_Literal 0x1
078a 842f | / | Call 0x2,0x2f
078b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
078c 4501 |E | .XXX[0x1]
078d TRAP_06f8:
078d 0007 | | Action Break_Optional
078e e7ff | | Load 0x3,-0x1
078f c41b | | Store 0x2,0x1b
0790 e00c | | Load 0x0,0xc
0791 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0792 e603 | | Load 0x3,0x3
0793 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0794 e41b | | Load 0x2,0x1b
0795 8032 | 2 | Call 0x0,0x32
0796 e603 | | Load 0x3,0x3
0797 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0798 e429 | ) | Load 0x2,0x29
0799 6806 |h | Jump_Zero 0x7a0
079a e603 | | Load 0x3,0x3
079b 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
079c 8033 | 3 | Call 0x0,0x33
079d 8034 | 4 | Call 0x0,0x34
079e e603 | | Load 0x3,0x3
079f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
07a0 e5fd | | Load 0x2,-0x3
07a1 e603 | | Load 0x3,0x3
07a2 8035 | 5 | Call 0x0,0x35
07a3 00d1 | | Pop_Control Pop_Count_1
07a4 4801 |H | Short_Literal 0x1
07a5 842f | / | Call 0x2,0x2f
07a6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
07a7 4501 |E | .XXX[0x1]
07a8 ; --------------------------------------------------------------------------------------
07a8 ; SUBPROGRAM
07a8 ; --------------------------------------------------------------------------------------
07a8 07bf | | .CONST 0x07bf ; Address of begin
07a9 080b | | .CONST 0x080b ; Address of exception handler
07aa 0007 | | .CONST 0x0007 ; Number of locals
07ab INIT_07a8:
07ab 00e1 | | Load_Encached Boolean_Cache
07ac e036 | 6 | Load 0x0,0x36
07ad 0007 | | Action Break_Optional
07ae e02d | - | Load 0x0,0x2d
07af 0322 | " | Declare_Variable Record
07b0 00d8 | | Load_Top At_Offset_0
07b1 1c00 | | Execute_Immediate Run_Utility,0x0
07b2 4802 |H | Short_Literal 0x2
07b3 4801 |H | Short_Literal 0x1
07b4 00e9 | | Load_Encached String_Cache
07b5 035b | [ | Declare_Type Array,Constrained
07b6 0337 | 7 | Declare_Variable Array
07b7 e037 | 7 | Load 0x0,0x37
07b8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07b9 02c7 | | Declare_Variable Any
07ba 00d8 | | Load_Top At_Offset_0
07bb 1c00 | | Execute_Immediate Run_Utility,0x0
07bc e004 | | Load 0x0,0x4
07bd 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a
07be 0322 | " | Declare_Variable Record
07bf BODY_07a8:
07bf 00d9 | | Load_Top At_Offset_1
07c0 0120 | | Execute Any,Is_Value
07c1 6803 |h | Jump_Zero 0x7c5
07c2 e037 | 7 | Load 0x0,0x37
07c3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07c4 7801 |x | Jump 0x7c6
07c5 00d9 | | Load_Top At_Offset_1
07c6 00e1 | | Load_Encached Boolean_Cache
07c7 e7ff | | Load 0x3,-0x1
07c8 8038 | 8 | Call 0x0,0x38
07c9 c602 | | Store 0x3,0x2
07ca c606 | | Store 0x3,0x6
07cb e602 | | Load 0x3,0x2
07cc 700f |p | Jump_Nonzero 0x7dc
07cd 8039 | 9 | Call 0x0,0x39
07ce e604 | | Load 0x3,0x4
07cf 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
07d0 00db | | Load_Top At_Offset_3
07d1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
07d2 0092 09cf | | Action Push_String_Extended,0x9cf ; "User Image function not callable."
07d4 e00c | | Load 0x0,0xc
07d5 1815 | | Execute Package,Field_Execute,Field_Number 0x15
07d6 e604 | | Load 0x3,0x4
07d7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
07d8 e5fd | | Load 0x2,-0x3
07d9 e604 | | Load 0x3,0x4
07da 8035 | 5 | Call 0x0,0x35
07db 4505 |E | Exit_Suprogram New_Top_Offset 0x5
07dc 00d9 | | Load_Top At_Offset_1
07dd e037 | 7 | Load 0x0,0x37
07de 1810 | | Execute Package,Field_Execute,Field_Number 0x10
07df 00d9 | | Load_Top At_Offset_1
07e0 017d | } | Execute Record,Structure_Write
07e1 00d8 | | Load_Top At_Offset_0
07e2 e037 | 7 | Load 0x0,0x37
07e3 1816 | | Execute Package,Field_Execute,Field_Number 0x16
07e4 700f |p | Jump_Nonzero 0x7f4
07e5 8039 | 9 | Call 0x0,0x39
07e6 e604 | | Load 0x3,0x4
07e7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
07e8 00db | | Load_Top At_Offset_3
07e9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
07ea 0092 09d0 | | Action Push_String_Extended,0x9d0 ; "Internal error: image function not callable."
07ec e00c | | Load 0x0,0xc
07ed 1815 | | Execute Package,Field_Execute,Field_Number 0x15
07ee e604 | | Load 0x3,0x4
07ef 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
07f0 e5fd | | Load 0x2,-0x3
07f1 e604 | | Load 0x3,0x4
07f2 8035 | 5 | Call 0x0,0x35
07f3 4505 |E | Exit_Suprogram New_Top_Offset 0x5
07f4 e03a | : | Load 0x0,0x3a
07f5 186f | o | Execute Package,Field_Execute,Field_Number 0x6f
07f6 e7fc | | Load 0x3,-0x4
07f7 e605 | | Load 0x3,0x5
07f8 e7fd | | Load 0x3,-0x3
07f9 e7fb | | Load 0x3,-0x5
07fa 8607 | | Call 0x3,0x7
07fb e036 | 6 | Load 0x0,0x36
07fc e7fe | | Load 0x3,-0x2
07fd 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
07fe c603 | | Store 0x3,0x3
07ff e00c | | Load 0x0,0xc
0800 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0801 e604 | | Load 0x3,0x4
0802 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0803 e603 | | Load 0x3,0x3
0804 803b | ; | Call 0x0,0x3b
0805 e604 | | Load 0x3,0x4
0806 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0807 e5fd | | Load 0x2,-0x3
0808 e604 | | Load 0x3,0x4
0809 8035 | 5 | Call 0x0,0x35
080a 4505 |E | Exit_Suprogram New_Top_Offset 0x5
080b TRAP_07a8:
080b 0007 | | Action Break_Optional
080c 8039 | 9 | Call 0x0,0x39
080d e604 | | Load 0x3,0x4
080e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
080f e604 | | Load 0x3,0x4
0810 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0811 0092 09d1 | | Action Push_String_Extended,0x9d1 ; "Exception in user type image: "
0813 e029 | ) | Load 0x0,0x29
0814 180d | | Execute Package,Field_Execute,Field_Number 0xd
0815 01cc | | Execute Vector,Catenate
0816 e00c | | Load 0x0,0xc
0817 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0818 e604 | | Load 0x3,0x4
0819 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
081a e5fd | | Load 0x2,-0x3
081b e604 | | Load 0x3,0x4
081c 8035 | 5 | Call 0x0,0x35
081d 4505 |E | Exit_Suprogram New_Top_Offset 0x5
081e 0000 0000 | | .XXX[0x2]
0820 ; --------------------------------------------------------------------------------------
0820 ; SUBPROGRAM
0820 ; --------------------------------------------------------------------------------------
0820 0836 | 6 | .CONST 0x0836 ; Address of begin
0821 0004 | | .CONST 0x0004 ; Address of exception handler
0822 0007 | | .CONST 0x0007 ; Number of locals
0823 INIT_0820:
0823 e004 | | Load 0x0,0x4
0824 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0825 02c7 | | Declare_Variable Any
0826 00d8 | | Load_Top At_Offset_0
0827 1c00 | | Execute_Immediate Run_Utility,0x0
0828 e004 | | Load 0x0,0x4
0829 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
082a 02c7 | | Declare_Variable Any
082b 00d8 | | Load_Top At_Offset_0
082c 1c00 | | Execute_Immediate Run_Utility,0x0
082d 4fff |O | Short_Literal -0x1
082e 00e2 | | Load_Encached Integer_Cache
082f 03f1 | | Declare_Variable Discrete,With_Value
0830 e004 | | Load 0x0,0x4
0831 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
0832 e004 | | Load 0x0,0x4
0833 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a
0834 0322 | " | Declare_Variable Record
0835 00e5 | | Load_Encached Long_Integer_Cache
0836 BODY_0820:
0836 e019 | | Load 0x0,0x19
0837 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0838 e004 | | Load 0x0,0x4
0839 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
083a e004 | | Load 0x0,0x4
083b 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
083c c602 | | Store 0x3,0x2
083d e019 | | Load 0x0,0x19
083e 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
083f e602 | | Load 0x3,0x2
0840 e004 | | Load 0x0,0x4
0841 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
0842 c603 | | Store 0x3,0x3
0843 e603 | | Load 0x3,0x3
0844 e004 | | Load 0x0,0x4
0845 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0846 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0847 00da | | Load_Top At_Offset_2
0848 e604 | | Load 0x3,0x4
0849 0273 | s | Execute Discrete,Plus
084a e004 | | Load 0x0,0x4
084b 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
084c 00d9 | | Load_Top At_Offset_1
084d 00d0 | | Action Swap_Control
084e 0260 | ` | Execute Discrete,In_Type
084f 7001 |p | Jump_Nonzero 0x851
0850 0801 | | Execute_Immediate Raise,0x1
0851 e602 | | Load 0x3,0x2
0852 e004 | | Load 0x0,0x4
0853 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b
0854 00da | | Load_Top At_Offset_2
0855 017d | } | Execute Record,Structure_Write
0856 00d9 | | Load_Top At_Offset_1
0857 e004 | | Load 0x0,0x4
0858 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
0859 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
085a 00d8 | | Load_Top At_Offset_0
085b 7002 |p | Jump_Nonzero 0x85e
085c e215 | | Load 0x1,0x15
085d 0257 | W | Execute Discrete,Raise
085e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
085f 0000 | | .XXX[0x1]
0860 ; --------------------------------------------------------------------------------------
0860 ; SUBPROGRAM
0860 ; --------------------------------------------------------------------------------------
0860 0863 | c | .CONST 0x0863 ; Address of begin
0861 0004 | | .CONST 0x0004 ; Address of exception handler
0862 0001 | | .CONST 0x0001 ; Number of locals
0863 BODY_0860:
0863 INIT_0860:
0863 00dc | | Load_Top At_Offset_4
0864 00dc | | Load_Top At_Offset_4
0865 009c | | Action Load_Dynamic
0866 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0867 4501 |E | .XXX[0x1]
0868 ; --------------------------------------------------------------------------------------
0868 ; SUBPROGRAM
0868 ; --------------------------------------------------------------------------------------
0868 086b | k | .CONST 0x086b ; Address of begin
0869 0004 | | .CONST 0x0004 ; Address of exception handler
086a 0001 | | .CONST 0x0001 ; Number of locals
086b BODY_0868:
086b INIT_0868:
086b 00dc | | Load_Top At_Offset_4
086c 00dc | | Load_Top At_Offset_4
086d 0099 | | Action Reference_Dynamic
086e 022b | + | Execute Access,Set_Null
086f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0870 4501 |E | .XXX[0x1]
0871 0000 0000 | | .BLANK 0000[0x7]
0878 ; --------------------------------------------------------------------------------------
0878 ; SUBPROGRAM
0878 ; --------------------------------------------------------------------------------------
0878 087b | { | .CONST 0x087b ; Address of begin
0879 0004 | | .CONST 0x0004 ; Address of exception handler
087a 0001 | | .CONST 0x0001 ; Number of locals
087b BODY_0878:
087b INIT_0878:
087b 00dc | | Load_Top At_Offset_4
087c 00dc | | Load_Top At_Offset_4
087d 0099 | | Action Reference_Dynamic
087e 021b | | Execute Heap_Access,Set_Null
087f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0880 4501 |E | .XXX[0x1]
0881 0000 0000 | | .BLANK 0000[0x7]
0888 ; --------------------------------------------------------------------------------------
0888 ; SUBPROGRAM
0888 ; --------------------------------------------------------------------------------------
0888 088b | | .CONST 0x088b ; Address of begin
0889 0004 | | .CONST 0x0004 ; Address of exception handler
088a 0001 | | .CONST 0x0001 ; Number of locals
088b BODY_0888:
088b INIT_0888:
088b 00dd | | Load_Top At_Offset_5
088c 00dd | | Load_Top At_Offset_5
088d 00dd | | Load_Top At_Offset_5
088e 009b | | Action Store_Dynamic
088f 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0890 4501 |E | .XXX[0x1]
0891 0000 0000 | | .BLANK 0000[0x7]
0898 ; --------------------------------------------------------------------------------------
0898 ; SUBPROGRAM
0898 ; --------------------------------------------------------------------------------------
0898 089b | | .CONST 0x089b ; Address of begin
0899 0004 | | .CONST 0x0004 ; Address of exception handler
089a 0001 | | .CONST 0x0001 ; Number of locals
089b BODY_0898:
089b INIT_0898:
089b 4838 |H8 | Short_Literal 0x38
089c 4802 |H | Short_Literal 0x2
089d 0099 | | Action Reference_Dynamic
089e 012d | - | Execute Any,Address
089f 00ca | | Action Exit_Nullary_Function
08a0 ; --------------------------------------------------------------------------------------
08a0 ; SUBPROGRAM
08a0 ; --------------------------------------------------------------------------------------
08a0 08a3 | | .CONST 0x08a3 ; Address of begin
08a1 0004 | | .CONST 0x0004 ; Address of exception handler
08a2 0001 | | .CONST 0x0001 ; Number of locals
08a3 BODY_08a0:
08a3 INIT_08a0:
08a3 4835 |H5 | Short_Literal 0x35
08a4 4802 |H | Short_Literal 0x2
08a5 0099 | | Action Reference_Dynamic
08a6 012d | - | Execute Any,Address
08a7 00ca | | Action Exit_Nullary_Function
08a8 ; --------------------------------------------------------------------------------------
08a8 ; SUBPROGRAM
08a8 ; --------------------------------------------------------------------------------------
08a8 08ab | | .CONST 0x08ab ; Address of begin
08a9 0004 | | .CONST 0x0004 ; Address of exception handler
08aa 0001 | | .CONST 0x0001 ; Number of locals
08ab BODY_08a8:
08ab INIT_08a8:
08ab e40f | | Load 0x2,0xf
08ac 6805 |h | Jump_Zero 0x8b2
08ad 4837 |H7 | Short_Literal 0x37
08ae 4802 |H | Short_Literal 0x2
08af 0099 | | Action Reference_Dynamic
08b0 012d | - | Execute Any,Address
08b1 00ca | | Action Exit_Nullary_Function
08b2 4836 |H6 | Short_Literal 0x36
08b3 4802 |H | Short_Literal 0x2
08b4 0099 | | Action Reference_Dynamic
08b5 012d | - | Execute Any,Address
08b6 00ca | | Action Exit_Nullary_Function
08b7 0000 | | .XXX[0x1]
08b8 ; --------------------------------------------------------------------------------------
08b8 ; SUBPROGRAM
08b8 ; --------------------------------------------------------------------------------------
08b8 08bb | | .CONST 0x08bb ; Address of begin
08b9 0004 | | .CONST 0x0004 ; Address of exception handler
08ba 0001 | | .CONST 0x0001 ; Number of locals
08bb BODY_08b8:
08bb INIT_08b8:
08bb e420 | | Load 0x2,0x20
08bc 8016 | | Call 0x0,0x16
08bd 6819 |h | Jump_Zero 0x8d7
08be e40e | | Load 0x2,0xe
08bf 680e |h | Jump_Zero 0x8ce
08c0 4803 |H | Short_Literal 0x3
08c1 842f | / | Call 0x2,0x2f
08c2 e7ff | | Load 0x3,-0x1
08c3 e7fe | | Load 0x3,-0x2
08c4 e7fd | | Load 0x3,-0x3
08c5 01a5 | | Execute Matrix,Field_Reference
08c6 0007 | | Action Break_Optional
08c7 e40f | | Load 0x2,0xf
08c8 6802 |h | Jump_Zero 0x8cb
08c9 021b | | Execute Heap_Access,Set_Null
08ca 7801 |x | Jump 0x8cc
08cb 022b | + | Execute Access,Set_Null
08cc 4504 |E | Exit_Suprogram New_Top_Offset 0x4
08cd 4501 |E | .XXX[0x1]
08ce 4804 |H | Short_Literal 0x4
08cf 842f | / | Call 0x2,0x2f
08d0 e7ff | | Load 0x3,-0x1
08d1 e7fd | | Load 0x3,-0x3
08d2 e7fc | | Load 0x3,-0x4
08d3 e7fb | | Load 0x3,-0x5
08d4 01a6 | | Execute Matrix,Field_Write
08d5 4506 |E | Exit_Suprogram New_Top_Offset 0x6
08d6 4501 |E | .XXX[0x1]
08d7 4802 |H | Short_Literal 0x2
08d8 842f | / | Call 0x2,0x2f
08d9 e7ff | | Load 0x3,-0x1
08da e7fe | | Load 0x3,-0x2
08db e7fd | | Load 0x3,-0x3
08dc 01a7 | | Execute Matrix,Field_Read
08dd 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
08de 4501 0000 |E | .XXX[0x2]
08e0 ; --------------------------------------------------------------------------------------
08e0 ; SUBPROGRAM
08e0 ; --------------------------------------------------------------------------------------
08e0 08e3 | | .CONST 0x08e3 ; Address of begin
08e1 090a | | .CONST 0x090a ; Address of exception handler
08e2 0001 | | .CONST 0x0001 ; Number of locals
08e3 BODY_08e0:
08e3 INIT_08e0:
08e3 e420 | | Load 0x2,0x20
08e4 8016 | | Call 0x0,0x16
08e5 681b |h | Jump_Zero 0x901
08e6 e40e | | Load 0x2,0xe
08e7 680f |h | Jump_Zero 0x8f7
08e8 4804 |H | Short_Literal 0x4
08e9 842f | / | Call 0x2,0x2f
08ea e7ff | | Load 0x3,-0x1
08eb e7fe | | Load 0x3,-0x2
08ec e7fd | | Load 0x3,-0x3
08ed e7fc | | Load 0x3,-0x4
08ee 01f5 | | Execute Array,Field_Reference
08ef 0007 | | Action Break_Optional
08f0 e40f | | Load 0x2,0xf
08f1 6802 |h | Jump_Zero 0x8f4
08f2 021b | | Execute Heap_Access,Set_Null
08f3 7801 |x | Jump 0x8f5
08f4 022b | + | Execute Access,Set_Null
08f5 4505 |E | Exit_Suprogram New_Top_Offset 0x5
08f6 4501 |E | .XXX[0x1]
08f7 4805 |H | Short_Literal 0x5
08f8 842f | / | Call 0x2,0x2f
08f9 e7ff | | Load 0x3,-0x1
08fa e7fd | | Load 0x3,-0x3
08fb e7fc | | Load 0x3,-0x4
08fc e7fb | | Load 0x3,-0x5
08fd e7fa | | Load 0x3,-0x6
08fe 01f6 | | Execute Array,Field_Write
08ff 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0900 4501 |E | .XXX[0x1]
0901 4803 |H | Short_Literal 0x3
0902 842f | / | Call 0x2,0x2f
0903 e7ff | | Load 0x3,-0x1
0904 e7fe | | Load 0x3,-0x2
0905 e7fd | | Load 0x3,-0x3
0906 e7fc | | Load 0x3,-0x4
0907 01f7 | | Execute Array,Field_Read
0908 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0909 4501 |E | .XXX[0x1]
090a TRAP_08e0:
090a 010e | | Execute Exception,Is_Constraint_Error
090b 6802 |h | Jump_Zero 0x90e
090c 00d8 | | Load_Top At_Offset_0
090d 0101 | | Execute Exception,Reraise
090e e21a | | Load 0x1,0x1a
090f 0257 | W | Execute Discrete,Raise
0910 ; --------------------------------------------------------------------------------------
0910 ; SUBPROGRAM
0910 ; --------------------------------------------------------------------------------------
0910 091d | | .CONST 0x091d ; Address of begin
0911 0004 | | .CONST 0x0004 ; Address of exception handler
0912 0002 | | .CONST 0x0002 ; Number of locals
0913 INIT_0910:
0913 00da | | Load_Top At_Offset_2
0914 0275 | u | Execute Discrete,Unary_Minus
0915 0afe | | Execute_Immediate Plus,-0x2
0916 00d8 | | Load_Top At_Offset_0
0917 00e5 | | Load_Encached Long_Integer_Cache
0918 0260 | ` | Execute Discrete,In_Type
0919 7001 |p | Jump_Nonzero 0x91b
091a 0801 | | Execute_Immediate Raise,0x1
091b 00e5 | | Load_Encached Long_Integer_Cache
091c 03f1 | | Declare_Variable Discrete,With_Value
091d BODY_0910:
091d e602 | | Load 0x3,0x2
091e 4803 |H | Short_Literal 0x3
091f 009c | | Action Load_Dynamic
0920 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0921 4502 |E | .XXX[0x1]
0922 0000 0000 | | .BLANK 0000[0x6]
0928 ; --------------------------------------------------------------------------------------
0928 ; SUBPROGRAM
0928 ; --------------------------------------------------------------------------------------
0928 093c | < | .CONST 0x093c ; Address of begin
0929 0004 | | .CONST 0x0004 ; Address of exception handler
092a 0008 | | .CONST 0x0008 ; Number of locals
092b INIT_0928:
092b e03c | < | Load 0x0,0x3c
092c 0322 | " | Declare_Variable Record
092d 00d8 | | Load_Top At_Offset_0
092e 1c00 | | Execute_Immediate Run_Utility,0x0
092f e03d | = | Load 0x0,0x3d
0930 0007 | | Action Break_Optional
0931 e004 | | Load 0x0,0x4
0932 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0933 e004 | | Load 0x0,0x4
0934 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
0935 02c7 | | Declare_Variable Any
0936 00d8 | | Load_Top At_Offset_0
0937 1c00 | | Execute_Immediate Run_Utility,0x0
0938 00e1 | | Load_Encached Boolean_Cache
0939 00e3 | | Load_Encached Natural_Cache
093a e03e | > | Load 0x0,0x3e
093b 0007 | | Action Break_Optional
093c BODY_0928:
093c e5fc | | Load 0x2,-0x4
093d e03e | > | Load 0x0,0x3e
093e 00e3 | | Load_Encached Natural_Cache
093f e004 | | Load 0x0,0x4
0940 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0941 00e1 | | Load_Encached Boolean_Cache
0942 e404 | | Load 0x2,0x4
0943 0120 | | Execute Any,Is_Value
0944 6803 |h | Jump_Zero 0x948
0945 e004 | | Load 0x0,0x4
0946 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
0947 7801 |x | Jump 0x949
0948 e404 | | Load 0x2,0x4
0949 00e3 | | Load_Encached Natural_Cache
094a e605 | | Load 0x3,0x5
094b 0120 | | Execute Any,Is_Value
094c 6803 |h | Jump_Zero 0x950
094d e004 | | Load 0x0,0x4
094e 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
094f 7801 |x | Jump 0x951
0950 e605 | | Load 0x3,0x5
0951 e004 | | Load 0x0,0x4
0952 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0953 e03d | = | Load 0x0,0x3d
0954 e402 | | Load 0x2,0x2
0955 e602 | | Load 0x3,0x2
0956 e420 | | Load 0x2,0x20
0957 8014 | | Call 0x0,0x14
0958 00d8 | | Load_Top At_Offset_0
0959 00e4 | | Load_Encached Positive_Cache
095a 0260 | ` | Execute Discrete,In_Type
095b 7001 |p | Jump_Nonzero 0x95d
095c 0801 | | Execute_Immediate Raise,0x1
095d e420 | | Load 0x2,0x20
095e 800d | | Call 0x0,0xd
095f 803f | ? | Call 0x0,0x3f
0960 00d2 | | Pop_Control Pop_Count_2
0961 c603 | | Store 0x3,0x3
0962 c403 | | Store 0x2,0x3
0963 c605 | | Store 0x3,0x5
0964 c405 | | Store 0x2,0x5
0965 c404 | | Store 0x2,0x4
0966 c606 | | Store 0x3,0x6
0967 c604 | | Store 0x3,0x4
0968 c607 | | Store 0x3,0x7
0969 005a | Z | Store_Top Discrete,At_Offset_2
096a c5fc | | Store 0x2,-0x4
096b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
096c 0000 0000 | | .BLANK 0000[0x4]
0970 ; --------------------------------------------------------------------------------------
0970 ; SUBPROGRAM
0970 ; --------------------------------------------------------------------------------------
0970 0973 | s | .CONST 0x0973 ; Address of begin
0971 0004 | | .CONST 0x0004 ; Address of exception handler
0972 0001 | | .CONST 0x0001 ; Number of locals
0973 BODY_0970:
0973 INIT_0970:
0973 e5fd | | Load 0x2,-0x3
0974 6802 |h | Jump_Zero 0x977
0975 00ea | | Load_Encached Null_String_Cache
0976 00ca | | Action Exit_Nullary_Function
0977 0092 09d2 | | Action Push_String_Extended,0x9d2 ; "(Buf)"
0979 00ca | | Action Exit_Nullary_Function
097a 0000 0000 | | .BLANK 0000[0x6]
0980 ; --------------------------------------------------------------------------------------
0980 ; SUBPROGRAM
0980 ; --------------------------------------------------------------------------------------
0980 0996 | | .CONST 0x0996 ; Address of begin
0981 09b2 | | .CONST 0x09b2 ; Address of exception handler
0982 0003 | | .CONST 0x0003 ; Number of locals
0983 INIT_0980:
0983 e004 | | Load 0x0,0x4
0984 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0985 02c7 | | Declare_Variable Any
0986 e004 | | Load 0x0,0x4
0987 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0988 e019 | | Load 0x0,0x19
0989 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
098a a602 | | Store_Unchecked 0x3,0x2
098b e019 | | Load 0x0,0x19
098c 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
098d 00d9 | | Load_Top At_Offset_1
098e e004 | | Load 0x0,0x4
098f 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
0990 e004 | | Load 0x0,0x4
0991 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0992 0af4 | | Execute_Immediate Plus,-0xc
0993 e004 | | Load 0x0,0x4
0994 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
0995 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0996 BODY_0980:
0996 e5fc | | Load 0x2,-0x4
0997 0a04 | | Execute_Immediate Plus,0x4
0998 00d8 | | Load_Top At_Offset_0
0999 00e2 | | Load_Encached Integer_Cache
099a 0260 | ` | Execute Discrete,In_Type
099b 7001 |p | Jump_Nonzero 0x99d
099c 0801 | | Execute_Immediate Raise,0x1
099d 4800 |H | Short_Literal 0x0
099e 0263 | c | Execute Discrete,Above_Bound
099f 7011 |p | Jump_Nonzero 0x9b1
09a0 00da | | Load_Top At_Offset_2
09a1 00d9 | | Load_Top At_Offset_1
09a2 0272 | r | Execute Discrete,Minus
09a3 e004 | | Load 0x0,0x4
09a4 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
09a5 00d9 | | Load_Top At_Offset_1
09a6 00d0 | | Action Swap_Control
09a7 0260 | ` | Execute Discrete,In_Type
09a8 7001 |p | Jump_Nonzero 0x9aa
09a9 0801 | | Execute_Immediate Raise,0x1
09aa e602 | | Load 0x3,0x2
09ab e004 | | Load 0x0,0x4
09ac 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b
09ad e004 | | Load 0x0,0x4
09ae 185d | ] | Execute Package,Field_Execute,Field_Number 0x5d
09af 802a | * | Call 0x0,0x2a
09b0 3fef |? | Loop_Increasing 0x9a0
09b1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
09b2 TRAP_0980:
09b2 0007 | | Action Break_Optional
09b3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
09b4 ; --------------------------------------------------------------------------------------
09b4 ; STRING TABLE
09b4 ; --------------------------------------------------------------------------------------
09b4 0040 | @ | .STRTAB 0x0040->0x09d4 ; "interpreter_dump"
09b5 004e | N | .STRTAB 0x004e->0x09dc ; "interpreter_trace"
09b6 005d | ] | .STRTAB 0x005d->0x09e4 ; "Load_Discrete_Constant: unknown scalar type"
09b7 0086 | | .STRTAB 0x0086->0x09fa ; "Load_Discrete_Constant: non-null access type"
09b8 00b0 | | .STRTAB 0x00b0->0x0a10 ; "Library unit not elaborated"
09b9 00c9 | | .STRTAB 0x00c9->0x0a1d ; "Library unit is part of system"
09ba 00e5 | | .STRTAB 0x00e5->0x0a2c ; "Invalid Program detected by Interpreter"
09bb 010a | | .STRTAB 0x010a->0x0a40 ; "Inaccessible Frame Access"
09bc 0121 | ! | .STRTAB 0x0121->0x0a4c ; "Task is executing a different subprogram"
09bd 0147 | G | .STRTAB 0x0147->0x0a60 ; "Uninitialized Value"
09be 0158 | X | .STRTAB 0x0158->0x0a6a ; "Record field is in an inactive variant part"
09bf 0181 | | .STRTAB 0x0181->0x0a7f ; "Value out of range"
09c0 0191 | | .STRTAB 0x0191->0x0a88 ; "Null pointer dereferenced"
09c1 01a8 | | .STRTAB 0x01a8->0x0a95 ; "Array index out of bounds"
09c2 01bf | | .STRTAB 0x01bf->0x0aa1 ; "Constraint_Error "
09c3 01ce | | .STRTAB 0x01ce->0x0aaa ; "Unimplemented Interpreter Function"
09c4 01ee | | .STRTAB 0x01ee->0x0abb ; "Invalid Abstract Program (Array Access)"
09c5 0213 | | .STRTAB 0x0213->0x0ace ; "Attempt to access generic module, task type, or unelaborated package"
09c6 0255 | U | .STRTAB 0x0255->0x0af0 ; "Illegal Module"
09c7 0261 | a | .STRTAB 0x0261->0x0af7 ; "Attempt to access unelaborated variable"
09c8 0286 | | .STRTAB 0x0286->0x0b0b ; "For-loop variable not accessible after exception raised"
09c9 02bb | | .STRTAB 0x02bb->0x0b26 ; "Unexpected exception"
09ca 02cd | | .STRTAB 0x02cd->0x0b30 ; "Pop_Count: "
09cb 02d6 | | .STRTAB 0x02d6->0x0b36 ; ", Mark_Count: "
09cc 02e2 | | .STRTAB 0x02e2->0x0b3d ; ": "
09cd 02e2 | | .STRTAB 0x02e2->0x0b3e ; "Instruction Buffer Overflow"
09ce 02fb | | .STRTAB 0x02fb->0x0b4b ; "Popped Stack below zero"
09cf 0310 | | .STRTAB 0x0310->0x0b57 ; "User Image function not callable."
09d0 032f | / | .STRTAB 0x032f->0x0b67 ; "Internal error: image function not callable."
09d1 0359 | Y | .STRTAB 0x0359->0x0b7d ; "Exception in user type image: "
09d2 0375 | u | .STRTAB 0x0375->0x0b8c ; "(Buf)"
09d3 0378 | x | .STREND 0x0378->0x0b8f
09d4 696e 7465 |inte| .STRTAB_STRINGS
0b8f 0000 | | .XXX[0x1]
0b90 ; --------------------------------------------------------------------------------------
0b90 ; Debug Table
0b90 ; --------------------------------------------------------------------------------------
0b90 0004 0007 | | .DEBUG4 0x0004,0x0007,0x8190,0x0000,0x0001,0x0000
0b96 1906 4190 | A | .XXX[0x6a]
0b98 6419 0641 |d A|
0b9a 9064 1906 | d |
0b9c 4190 6419 |A d |
0b9e 0641 9064 | A d|
0ba0 1906 4190 | A |
0ba2 6419 0641 |d A|
0ba4 9064 1906 | d |
0ba6 4190 6419 |A d |
0ba8 0641 9064 | A d|
0baa 1906 4190 | A |
0bac 6419 0641 |d A|
0bae 9064 1906 | d |
0bb0 4190 6419 |A d |
0bb2 0641 9064 | A d|
0bb4 1906 4190 | A |
0bb6 6419 0641 |d A|
0bb8 9064 1906 | d |
0bba 4190 6419 |A d |
0bbc 0641 9064 | A d|
0bbe 1906 4190 | A |
0bc0 6419 0641 |d A|
0bc2 9064 1906 | d |
0bc4 4190 6419 |A d |
0bc6 0641 9064 | A d|
0bc8 1906 4190 | A |
0bca 6419 0641 |d A|
0bcc 9064 1906 | d |
0bce 4190 6419 |A d |
0bd0 0641 9064 | A d|
0bd2 1906 4190 | A |
0bd4 6419 0641 |d A|
0bd6 9064 1906 | d |
0bd8 4190 6419 |A d |
0bda 0641 9064 | A d|
0bdc 1906 4190 | A |
0bde 6419 0641 |d A|
0be0 9064 1906 | d |
0be2 4190 6419 |A d |
0be4 0641 9064 | A d|
0be6 1906 4190 | A |
0be8 6419 0641 |d A|
0bea 9064 1906 | d |
0bec 4190 6419 |A d |
0bee 0641 9064 | A d|
0bf0 1906 4190 | A |
0bf2 6419 0641 |d A|
0bf4 9064 1906 | d |
0bf6 4190 6419 |A d |
0bf8 0641 9064 | A d|
0bfa 1906 4190 | A |
0bfc 6419 0641 |d A|
0bfe 9064 1906 | d |