|
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_03bcfe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0ae0 | | .CONST 0x0ae0 ; 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 01de | | .CONST 0x01de ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0056 | V | .CONST 0x0056 ; Number of locals
000b INIT_0008:
000b 0092 0a2c | ,| Action Push_String_Extended,0xa2c ; "FREEZE_TASKS"
000d 0129 | ) | Execute Any,Make_Visible
000e 0092 0a2d | -| Action Push_String_Extended,0xa2d ; "TRUE"
0010 0129 | ) | Execute Any,Make_Visible
0011 e002 | | Load 0x0,0x2
0012 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0013 0129 | ) | Execute Any,Make_Visible
0014 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated
0016 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated
0018 00e4 | | Load_Encached Positive_Cache
0019 0266 | f | Execute Discrete,Bounds
001a e20f | | Load 0x1,0xf
001b 02a0 | | Declare_Subprogram Null_Subprogram
001c 4801 |H | Short_Literal 0x1
001d 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
001e 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated
0020 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated
0022 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated
0024 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated
0026 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated
0028 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated
002a 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated
002c 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated
002e 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated
0030 e003 | | Load 0x0,0x3
0031 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
0032 0129 | ) | Execute Any,Make_Visible
0033 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated
0035 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated
0037 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated
0039 029a 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call,Visible,Unelaborated
003b 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated
003d 00e2 | | Load_Encached Integer_Cache
003e 00e2 | | Load_Encached Integer_Cache
003f e004 | | Load 0x0,0x4
0040 e005 | | Load 0x0,0x5
0041 e006 | | Load 0x0,0x6
0042 e007 | | Load 0x0,0x7
0043 e008 | | Load 0x0,0x8
0044 e21c | | Load 0x1,0x1c
0045 00e3 | | Load_Encached Natural_Cache
0046 e21c | | Load 0x1,0x1c
0047 e008 | | Load 0x0,0x8
0048 e009 | | Load 0x0,0x9
0049 00e1 | | Load_Encached Boolean_Cache
004a 029f 09cb | | Declare_Subprogram INIT_09c8,For_Call
004c 480d |H | Short_Literal 0xd
004d 032e | . | Declare_Type Record,Defined,Visible
004e 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated
0050 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated
0052 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated
0054 029a 02f3 | | Declare_Subprogram INIT_02f0,For_Outer_Call,Visible,Unelaborated
0056 029a 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call,Visible,Unelaborated
0058 029a 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call,Visible,Unelaborated
005a 029a 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call,Visible,Unelaborated
005c 029a 036b | k| Declare_Subprogram INIT_0368,For_Outer_Call,Visible,Unelaborated
005e 029a 03bb | | Declare_Subprogram INIT_03b8,For_Outer_Call,Visible,Unelaborated
0060 029a 03cb | | Declare_Subprogram INIT_03c8,For_Outer_Call,Visible,Unelaborated
0062 029a 03d3 | | Declare_Subprogram INIT_03d0,For_Outer_Call,Visible,Unelaborated
0064 029a 0403 | | Declare_Subprogram INIT_0400,For_Outer_Call,Visible,Unelaborated
0066 029a 0413 | | Declare_Subprogram INIT_0410,For_Outer_Call,Visible,Unelaborated
0068 029a 044b | K| Declare_Subprogram INIT_0448,For_Outer_Call,Visible,Unelaborated
006a 4800 |H | Short_Literal 0x0
006b 480c |H | Short_Literal 0xc
006c 029f 0453 | S| Declare_Subprogram INIT_0450,For_Call
006e 03fe | | Declare_Type Discrete,Defined,Visible
006f 4800 |H | Short_Literal 0x0
0070 4803 |H | Short_Literal 0x3
0071 029f 047b | {| Declare_Subprogram INIT_0478,For_Call
0073 03fe | | Declare_Type Discrete,Defined,Visible
0074 4800 |H | Short_Literal 0x0
0075 4802 |H | Short_Literal 0x2
0076 029f 04a3 | | Declare_Subprogram INIT_04a0,For_Call
0078 03fe | | Declare_Type Discrete,Defined,Visible
0079 4800 |H | Short_Literal 0x0
007a 4802 |H | Short_Literal 0x2
007b 029f 04cb | | Declare_Subprogram INIT_04c8,For_Call
007d 03fe | | Declare_Type Discrete,Defined,Visible
007e e003 | | Load 0x0,0x3
007f 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
0080 00e1 | | Load_Encached Boolean_Cache
0081 e00a | | Load 0x0,0xa
0082 e00b | | Load 0x0,0xb
0083 00e5 | | Load_Encached Long_Integer_Cache
0084 e00c | | Load 0x0,0xc
0085 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0086 e00b | | Load 0x0,0xb
0087 00e5 | | Load_Encached Long_Integer_Cache
0088 00e5 | | Load_Encached Long_Integer_Cache
0089 00e1 | | Load_Encached Boolean_Cache
008a e00c | | Load 0x0,0xc
008b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
008c 00e3 | | Load_Encached Natural_Cache
008d e003 | | Load 0x0,0x3
008e 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
008f e00c | | Load 0x0,0xc
0090 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0091 00e1 | | Load_Encached Boolean_Cache
0092 00e1 | | Load_Encached Boolean_Cache
0093 00e1 | | Load_Encached Boolean_Cache
0094 00e1 | | Load_Encached Boolean_Cache
0095 00e1 | | Load_Encached Boolean_Cache
0096 e233 | 3 | Load 0x1,0x33
0097 e234 | 4 | Load 0x1,0x34
0098 029f 09eb | | Declare_Subprogram INIT_09e8,For_Call
009a 4815 |H | Short_Literal 0x15
009b 032e | . | Declare_Type Record,Defined,Visible
009c 029a 04f3 | | Declare_Subprogram INIT_04f0,For_Outer_Call,Visible,Unelaborated
009e 00e3 | | Load_Encached Natural_Cache
009f 04ff | | Execute_Immediate Set_Value_Visible_Unchecked,0xff
00a0 e20f | | Load 0x1,0xf
00a1 e232 | 2 | Load 0x1,0x32
00a2 e003 | | Load 0x0,0x3
00a3 1b41 | A | Execute Package,Field_Read,Field_Number 0x41
00a4 00e1 | | Load_Encached Boolean_Cache
00a5 00e1 | | Load_Encached Boolean_Cache
00a6 e004 | | Load 0x0,0x4
00a7 e005 | | Load 0x0,0x5
00a8 00e1 | | Load_Encached Boolean_Cache
00a9 e004 | | Load 0x0,0x4
00aa e005 | | Load 0x0,0x5
00ab e007 | | Load 0x0,0x7
00ac e008 | | Load 0x0,0x8
00ad e00b | | Load 0x0,0xb
00ae 00e3 | | Load_Encached Natural_Cache
00af 00e3 | | Load_Encached Natural_Cache
00b0 00e1 | | Load_Encached Boolean_Cache
00b1 e00d | | Load 0x0,0xd
00b2 1b20 | | Execute Package,Field_Read,Field_Number 0x20
00b3 e237 | 7 | Load 0x1,0x37
00b4 e00e | | Load 0x0,0xe
00b5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00b6 1c07 | | Execute_Immediate Run_Utility,0x7
00b7 0129 | ) | Execute Any,Make_Visible
00b8 029f 09fb | | Declare_Subprogram INIT_09f8,For_Call
00ba 4812 |H | Short_Literal 0x12
00bb 032e | . | Declare_Type Record,Defined,Visible
00bc 029a 04fb | | Declare_Subprogram INIT_04f8,For_Outer_Call,Visible,Unelaborated
00be 029a 0503 | | Declare_Subprogram INIT_0500,For_Outer_Call,Visible,Unelaborated
00c0 029a 050b | | Declare_Subprogram INIT_0508,For_Outer_Call,Visible,Unelaborated
00c2 029a 0553 | S| Declare_Subprogram INIT_0550,For_Outer_Call,Visible,Unelaborated
00c4 029a 0583 | | Declare_Subprogram INIT_0580,For_Outer_Call,Visible,Unelaborated
00c6 029a 0593 | | Declare_Subprogram INIT_0590,For_Outer_Call,Visible,Unelaborated
00c8 029a 05a3 | | Declare_Subprogram INIT_05a0,For_Outer_Call,Visible,Unelaborated
00ca 029a 05b3 | | Declare_Subprogram INIT_05b0,For_Outer_Call,Visible,Unelaborated
00cc 029a 05c3 | | Declare_Subprogram INIT_05c0,For_Outer_Call,Visible,Unelaborated
00ce 029a 05cb | | Declare_Subprogram INIT_05c8,For_Outer_Call,Visible,Unelaborated
00d0 029a 05eb | | Declare_Subprogram INIT_05e8,For_Outer_Call,Visible,Unelaborated
00d2 029a 05fb | | Declare_Subprogram INIT_05f8,For_Outer_Call,Visible,Unelaborated
00d4 029a 060b | | Declare_Subprogram INIT_0608,For_Outer_Call,Visible,Unelaborated
00d6 029a 062b | +| Declare_Subprogram INIT_0628,For_Outer_Call,Visible,Unelaborated
00d8 029a 06eb | | Declare_Subprogram INIT_06e8,For_Outer_Call,Visible,Unelaborated
00da 029a 070b | | Declare_Subprogram INIT_0708,For_Outer_Call,Visible,Unelaborated
00dc 029a 0713 | | Declare_Subprogram INIT_0710,For_Outer_Call,Visible,Unelaborated
00de 00e2 | | Load_Encached Integer_Cache
00df 0129 | ) | Execute Any,Make_Visible
00e0 029a 071b | | Declare_Subprogram INIT_0718,For_Outer_Call,Visible,Unelaborated
00e2 029a 0723 | #| Declare_Subprogram INIT_0720,For_Outer_Call,Visible,Unelaborated
00e4 00bf | | Action Accept_Activation
00e5 0092 0a2e | .| Action Push_String_Extended,0xa2e ; "CACHE_STACK_FRAMES"
00e7 e235 | 5 | Load 0x1,0x35
00e8 0322 | " | Declare_Variable Record
00e9 00d8 | | Load_Top At_Offset_0
00ea 1c01 | | Execute_Immediate Run_Utility,0x1
00eb 4800 |H | Short_Literal 0x0
00ec 00d9 | | Load_Top At_Offset_1
00ed 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00ee 4800 |H | Short_Literal 0x0
00ef 00d9 | | Load_Top At_Offset_1
00f0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00f1 e00f | | Load 0x0,0xf
00f2 00d9 | | Load_Top At_Offset_1
00f3 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00f4 8010 | | Call 0x0,0x10
00f5 00d9 | | Load_Top At_Offset_1
00f6 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00f7 8011 | | Call 0x0,0x11
00f8 00d9 | | Load_Top At_Offset_1
00f9 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
00fa 4800 |H | Short_Literal 0x0
00fb 00d9 | | Load_Top At_Offset_1
00fc 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
00fd 8010 | | Call 0x0,0x10
00fe 00d9 | | Load_Top At_Offset_1
00ff 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0100 8011 | | Call 0x0,0x11
0101 00d9 | | Load_Top At_Offset_1
0102 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0103 8011 | | Call 0x0,0x11
0104 00d9 | | Load_Top At_Offset_1
0105 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0106 4800 |H | Short_Literal 0x0
0107 00d9 | | Load_Top At_Offset_1
0108 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0109 4800 |H | Short_Literal 0x0
010a 00d9 | | Load_Top At_Offset_1
010b 380a |8 | Execute Record,Field_Write,Field_Number 0xa
010c 4800 |H | Short_Literal 0x0
010d 00d9 | | Load_Top At_Offset_1
010e 380b |8 | Execute Record,Field_Write,Field_Number 0xb
010f 4800 |H | Short_Literal 0x0
0110 00d9 | | Load_Top At_Offset_1
0111 380c |8 | Execute Record,Field_Write,Field_Number 0xc
0112 4800 |H | Short_Literal 0x0
0113 00d9 | | Load_Top At_Offset_1
0114 380d |8 | Execute Record,Field_Write,Field_Number 0xd
0115 4800 |H | Short_Literal 0x0
0116 00d9 | | Load_Top At_Offset_1
0117 380e |8 | Execute Record,Field_Write,Field_Number 0xe
0118 4800 |H | Short_Literal 0x0
0119 00d9 | | Load_Top At_Offset_1
011a 380f |8 | Execute Record,Field_Write,Field_Number 0xf
011b 4800 |H | Short_Literal 0x0
011c 00d9 | | Load_Top At_Offset_1
011d 3810 |8 | Execute Record,Field_Write,Field_Number 0x10
011e 4800 |H | Short_Literal 0x0
011f 00d9 | | Load_Top At_Offset_1
0120 3811 |8 | Execute Record,Field_Write,Field_Number 0x11
0121 4800 |H | Short_Literal 0x0
0122 00d9 | | Load_Top At_Offset_1
0123 3812 |8 | Execute Record,Field_Write,Field_Number 0x12
0124 4802 |H | Short_Literal 0x2
0125 00d9 | | Load_Top At_Offset_1
0126 3813 |8 | Execute Record,Field_Write,Field_Number 0x13
0127 4802 |H | Short_Literal 0x2
0128 00d9 | | Load_Top At_Offset_1
0129 3814 |8 | Execute Record,Field_Write,Field_Number 0x14
012a e238 | 8 | Load 0x1,0x38
012b 0322 | " | Declare_Variable Record
012c 00d8 | | Load_Top At_Offset_0
012d 1c01 | | Execute_Immediate Run_Utility,0x1
012e 8012 | | Call 0x0,0x12
012f 00d9 | | Load_Top At_Offset_1
0130 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0131 4803 |H | Short_Literal 0x3
0132 00d9 | | Load_Top At_Offset_1
0133 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0134 4800 |H | Short_Literal 0x0
0135 00d9 | | Load_Top At_Offset_1
0136 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0137 4800 |H | Short_Literal 0x0
0138 00d9 | | Load_Top At_Offset_1
0139 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
013a 4800 |H | Short_Literal 0x0
013b 00d9 | | Load_Top At_Offset_1
013c 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
013d e013 | | Load 0x0,0x13
013e 00d9 | | Load_Top At_Offset_1
013f 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0140 e014 | | Load 0x0,0x14
0141 00d9 | | Load_Top At_Offset_1
0142 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0143 4800 |H | Short_Literal 0x0
0144 00d9 | | Load_Top At_Offset_1
0145 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0146 e013 | | Load 0x0,0x13
0147 00d9 | | Load_Top At_Offset_1
0148 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0149 e014 | | Load 0x0,0x14
014a 00d9 | | Load_Top At_Offset_1
014b 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
014c 4800 |H | Short_Literal 0x0
014d 00d9 | | Load_Top At_Offset_1
014e 380a |8 | Execute Record,Field_Write,Field_Number 0xa
014f 8015 | | Call 0x0,0x15
0150 00d9 | | Load_Top At_Offset_1
0151 380b |8 | Execute Record,Field_Write,Field_Number 0xb
0152 8010 | | Call 0x0,0x10
0153 00d9 | | Load_Top At_Offset_1
0154 380c |8 | Execute Record,Field_Write,Field_Number 0xc
0155 4800 |H | Short_Literal 0x0
0156 00d9 | | Load_Top At_Offset_1
0157 380d |8 | Execute Record,Field_Write,Field_Number 0xd
0158 4800 |H | Short_Literal 0x0
0159 00d9 | | Load_Top At_Offset_1
015a 380e |8 | Execute Record,Field_Write,Field_Number 0xe
015b 4800 |H | Short_Literal 0x0
015c 00d9 | | Load_Top At_Offset_1
015d 380f |8 | Execute Record,Field_Write,Field_Number 0xf
015e 00d8 | | Load_Top At_Offset_0
015f 3410 |4 | Execute Record,Field_Reference,Field_Number 0x10
0160 487f |H | Short_Literal 0x7f
0161 00d9 | | Load_Top At_Offset_1
0162 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0163 4800 |H | Short_Literal 0x0
0164 00d0 | | Action Swap_Control
0165 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0166 e237 | 7 | Load 0x1,0x37
0167 00ea | | Load_Encached Null_String_Cache
0168 e00e | | Load 0x0,0xe
0169 1815 | | Execute Package,Field_Execute,Field_Number 0x15
016a 00d9 | | Load_Top At_Offset_1
016b 3811 |8 | Execute Record,Field_Write,Field_Number 0x11
016c 1d10 | | Execute_Immediate Reference_Lex_1,0x10
016d 00c7 | | Action Elaborate_Subprogram
016e 1d11 | | Execute_Immediate Reference_Lex_1,0x11
016f 00c7 | | Action Elaborate_Subprogram
0170 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0171 00c7 | | Action Elaborate_Subprogram
0172 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0173 00c7 | | Action Elaborate_Subprogram
0174 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0175 00c7 | | Action Elaborate_Subprogram
0176 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0177 00c7 | | Action Elaborate_Subprogram
0178 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0179 00c7 | | Action Elaborate_Subprogram
017a 1d18 | | Execute_Immediate Reference_Lex_1,0x18
017b 00c7 | | Action Elaborate_Subprogram
017c 1d19 | | Execute_Immediate Reference_Lex_1,0x19
017d 00c7 | | Action Elaborate_Subprogram
017e 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
017f 00c7 | | Action Elaborate_Subprogram
0180 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0181 00c7 | | Action Elaborate_Subprogram
0182 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0183 00c7 | | Action Elaborate_Subprogram
0184 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0185 00c7 | | Action Elaborate_Subprogram
0186 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0187 00c7 | | Action Elaborate_Subprogram
0188 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0189 00c7 | | Action Elaborate_Subprogram
018a 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
018b 00c7 | | Action Elaborate_Subprogram
018c 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
018d 00c7 | | Action Elaborate_Subprogram
018e 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
018f 00c7 | | Action Elaborate_Subprogram
0190 029d 0733 | 3| Declare_Subprogram INIT_0730,For_Outer_Call
0192 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
0193 00c7 | | Action Elaborate_Subprogram
0194 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
0195 00c7 | | Action Elaborate_Subprogram
0196 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
0197 00c7 | | Action Elaborate_Subprogram
0198 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0199 00c7 | | Action Elaborate_Subprogram
019a 029d 079b | | Declare_Subprogram INIT_0798,For_Outer_Call
019c 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
019d 00c7 | | Action Elaborate_Subprogram
019e 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
019f 00c7 | | Action Elaborate_Subprogram
01a0 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
01a1 00c7 | | Action Elaborate_Subprogram
01a2 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
01a3 00c7 | | Action Elaborate_Subprogram
01a4 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
01a5 00c7 | | Action Elaborate_Subprogram
01a6 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
01a7 00c7 | | Action Elaborate_Subprogram
01a8 029d 07a3 | | Declare_Subprogram INIT_07a0,For_Outer_Call
01aa 029d 07bb | | Declare_Subprogram INIT_07b8,For_Outer_Call
01ac 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
01ad 00c7 | | Action Elaborate_Subprogram
01ae 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
01af 00c7 | | Action Elaborate_Subprogram
01b0 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36
01b1 00c7 | | Action Elaborate_Subprogram
01b2 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39
01b3 00c7 | | Action Elaborate_Subprogram
01b4 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a
01b5 00c7 | | Action Elaborate_Subprogram
01b6 029d 07cb | | Declare_Subprogram INIT_07c8,For_Outer_Call
01b8 029d 0813 | | Declare_Subprogram INIT_0810,For_Outer_Call
01ba 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b
01bb 00c7 | | Action Elaborate_Subprogram
01bc 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c
01bd 00c7 | | Action Elaborate_Subprogram
01be 029d 085b | [| Declare_Subprogram INIT_0858,For_Outer_Call
01c0 1d3d | = | Execute_Immediate Reference_Lex_1,0x3d
01c1 00c7 | | Action Elaborate_Subprogram
01c2 1d3e | > | Execute_Immediate Reference_Lex_1,0x3e
01c3 00c7 | | Action Elaborate_Subprogram
01c4 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f
01c5 00c7 | | Action Elaborate_Subprogram
01c6 1d40 | @ | Execute_Immediate Reference_Lex_1,0x40
01c7 00c7 | | Action Elaborate_Subprogram
01c8 1d41 | A | Execute_Immediate Reference_Lex_1,0x41
01c9 00c7 | | Action Elaborate_Subprogram
01ca 1d42 | B | Execute_Immediate Reference_Lex_1,0x42
01cb 00c7 | | Action Elaborate_Subprogram
01cc 1d43 | C | Execute_Immediate Reference_Lex_1,0x43
01cd 00c7 | | Action Elaborate_Subprogram
01ce 1d44 | D | Execute_Immediate Reference_Lex_1,0x44
01cf 00c7 | | Action Elaborate_Subprogram
01d0 1d45 | E | Execute_Immediate Reference_Lex_1,0x45
01d1 00c7 | | Action Elaborate_Subprogram
01d2 1d46 | F | Execute_Immediate Reference_Lex_1,0x46
01d3 00c7 | | Action Elaborate_Subprogram
01d4 1d47 | G | Execute_Immediate Reference_Lex_1,0x47
01d5 00c7 | | Action Elaborate_Subprogram
01d6 1d48 | H | Execute_Immediate Reference_Lex_1,0x48
01d7 00c7 | | Action Elaborate_Subprogram
01d8 1d49 | I | Execute_Immediate Reference_Lex_1,0x49
01d9 00c7 | | Action Elaborate_Subprogram
01da 1d4b | K | Execute_Immediate Reference_Lex_1,0x4b
01db 00c7 | | Action Elaborate_Subprogram
01dc 1d4c | L | Execute_Immediate Reference_Lex_1,0x4c
01dd 00c7 | | Action Elaborate_Subprogram
01de BODY_0008:
01de 00bc | | Action Signal_Activated
01df 00bb | | Action Signal_Completion
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3 | | .CONST 0x01e3 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0001 | | .CONST 0x0001 ; Number of locals
01e3 BODY_01e0:
01e3 INIT_01e0:
01e3 8012 | | Call 0x0,0x12
01e4 00ca | | Action Exit_Nullary_Function
01e5 0000 0000 | | .XXX[0x3]
01e7 0000 | |
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb | | .CONST 0x01eb ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0001 | | .CONST 0x0001 ; Number of locals
01eb BODY_01e8:
01eb INIT_01e8:
01eb 00da | | Load_Top At_Offset_2
01ec 8016 | | Call 0x0,0x16
01ed 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ee 0000 0000 | | .XXX[0x2]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3 | | .CONST 0x01f3 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0001 | | .CONST 0x0001 ; Number of locals
01f3 BODY_01f0:
01f3 INIT_01f0:
01f3 4801 |H | Short_Literal 0x1
01f4 4800 |H | Short_Literal 0x0
01f5 e212 | | Load 0x1,0x12
01f6 035b | [ | Declare_Type Array,Constrained
01f7 0337 | 7 | Declare_Variable Array
01f8 e212 | | Load 0x1,0x12
01f9 01c6 | | Execute Vector,Convert_To_Formal
01fa 00ca | | Action Exit_Nullary_Function
01fb 0000 0000 | | .BLANK 0000[0x5]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203 | | .CONST 0x0203 ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0001 | | .CONST 0x0001 ; Number of locals
0203 BODY_0200:
0203 INIT_0200:
0203 00da | | Load_Top At_Offset_2
0204 01db | | Execute Vector,Length
0205 0f00 | | Execute_Immediate Equal,0x0
0206 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0207 0000 | | .XXX[0x1]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b | | .CONST 0x020b ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0001 | | .CONST 0x0001 ; Number of locals
020b BODY_0208:
020b INIT_0208:
020b 00da | | Load_Top At_Offset_2
020c 8017 | | Call 0x0,0x17
020d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
020e 0000 0000 | | .XXX[0x2]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213 | | .CONST 0x0213 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0001 | | .CONST 0x0001 ; Number of locals
0213 BODY_0210:
0213 INIT_0210:
0213 00da | | Load_Top At_Offset_2
0214 8018 | | Call 0x0,0x18
0215 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0216 0000 0000 | | .XXX[0x2]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b | | .CONST 0x021b ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0001 | | .CONST 0x0001 ; Number of locals
021b BODY_0218:
021b INIT_0218:
021b 00da | | Load_Top At_Offset_2
021c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
021d 0000 0000 | | .XXX[0x3]
021f 0000 | |
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223 | # | .CONST 0x0223 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0001 | | .CONST 0x0001 ; Number of locals
0223 BODY_0220:
0223 INIT_0220:
0223 00da | | Load_Top At_Offset_2
0224 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0225 0000 0000 | | .XXX[0x3]
0227 0000 | |
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b | + | .CONST 0x022b ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0001 | | .CONST 0x0001 ; Number of locals
022b BODY_0228:
022b INIT_0228:
022b 00da | | Load_Top At_Offset_2
022c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
022d 0000 0000 | | .XXX[0x3]
022f 0000 | |
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233 | 3 | .CONST 0x0233 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0001 | | .CONST 0x0001 ; Number of locals
0233 BODY_0230:
0233 INIT_0230:
0233 00da | | Load_Top At_Offset_2
0234 00d8 | | Load_Top At_Offset_0
0235 e20f | | Load 0x1,0xf
0236 0260 | ` | Execute Discrete,In_Type
0237 7001 |p | Jump_Nonzero 0x239
0238 0801 | | Execute_Immediate Raise,0x1
0239 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
023a 0000 0000 | | .BLANK 0000[0x6]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243 | C | .CONST 0x0243 ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0001 | | .CONST 0x0001 ; Number of locals
0243 BODY_0240:
0243 INIT_0240:
0243 00da | | Load_Top At_Offset_2
0244 8019 | | Call 0x0,0x19
0245 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0246 0000 0000 | | .XXX[0x2]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b | K | .CONST 0x024b ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0001 | | .CONST 0x0001 ; Number of locals
024b BODY_0248:
024b INIT_0248:
024b 801a | | Call 0x0,0x1a
024c 00ca | | Action Exit_Nullary_Function
024d 0000 0000 | | .XXX[0x3]
024f 0000 | |
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253 | S | .CONST 0x0253 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0001 | | .CONST 0x0001 ; Number of locals
0253 BODY_0250:
0253 INIT_0250:
0253 00da | | Load_Top At_Offset_2
0254 801b | | Call 0x0,0x1b
0255 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0256 0000 0000 | | .XXX[0x2]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b | [ | .CONST 0x025b ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0001 | | .CONST 0x0001 ; Number of locals
025b BODY_0258:
025b INIT_0258:
025b 00da | | Load_Top At_Offset_2
025c 801c | | Call 0x0,0x1c
025d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
025e 0000 0000 | | .XXX[0x2]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263 | c | .CONST 0x0263 ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0001 | | .CONST 0x0001 ; Number of locals
0263 BODY_0260:
0263 INIT_0260:
0263 00da | | Load_Top At_Offset_2
0264 00d8 | | Load_Top At_Offset_0
0265 0120 | | Execute Any,Is_Value
0266 7002 |p | Jump_Nonzero 0x269
0267 00d8 | | Load_Top At_Offset_0
0268 011e | | Execute Any,Convert
0269 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
026a 0000 0000 | | .BLANK 0000[0x6]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273 | s | .CONST 0x0273 ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 0001 | | .CONST 0x0001 ; Number of locals
0273 BODY_0270:
0273 INIT_0270:
0273 00da | | Load_Top At_Offset_2
0274 00d8 | | Load_Top At_Offset_0
0275 0120 | | Execute Any,Is_Value
0276 7002 |p | Jump_Nonzero 0x279
0277 00d8 | | Load_Top At_Offset_0
0278 011e | | Execute Any,Convert
0279 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
027a 0000 0000 | | .BLANK 0000[0x6]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283 | | .CONST 0x0283 ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0001 | | .CONST 0x0001 ; Number of locals
0283 BODY_0280:
0283 INIT_0280:
0283 e222 | " | Load 0x1,0x22
0284 0322 | " | Declare_Variable Record
0285 00d8 | | Load_Top At_Offset_0
0286 1c01 | | Execute_Immediate Run_Utility,0x1
0287 4800 |H | Short_Literal 0x0
0288 00d9 | | Load_Top At_Offset_1
0289 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
028a 4800 |H | Short_Literal 0x0
028b 00d9 | | Load_Top At_Offset_1
028c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
028d e013 | | Load 0x0,0x13
028e 00d9 | | Load_Top At_Offset_1
028f 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0290 e014 | | Load 0x0,0x14
0291 00d9 | | Load_Top At_Offset_1
0292 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0293 e01d | | Load 0x0,0x1d
0294 00d9 | | Load_Top At_Offset_1
0295 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0296 4800 |H | Short_Literal 0x0
0297 00d9 | | Load_Top At_Offset_1
0298 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0299 8015 | | Call 0x0,0x15
029a 00d9 | | Load_Top At_Offset_1
029b 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
029c 821d | | Call 0x1,0x1d
029d e222 | " | Load 0x1,0x22
029e 3007 |0 | Execute Record,Field_Type,Field_Number 0x7
029f 0119 | | Execute Any,Check_In_Formal_Type
02a0 00d9 | | Load_Top At_Offset_1
02a1 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
02a2 4800 |H | Short_Literal 0x0
02a3 00d9 | | Load_Top At_Offset_1
02a4 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
02a5 821d | | Call 0x1,0x1d
02a6 e222 | " | Load 0x1,0x22
02a7 3009 |0 | Execute Record,Field_Type,Field_Number 0x9
02a8 0119 | | Execute Any,Check_In_Formal_Type
02a9 00d9 | | Load_Top At_Offset_1
02aa 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
02ab 8015 | | Call 0x0,0x15
02ac 00d9 | | Load_Top At_Offset_1
02ad 380a |8 | Execute Record,Field_Write,Field_Number 0xa
02ae 480d |H | Short_Literal 0xd
02af 00d9 | | Load_Top At_Offset_1
02b0 380b |8 | Execute Record,Field_Write,Field_Number 0xb
02b1 4801 |H | Short_Literal 0x1
02b2 00d9 | | Load_Top At_Offset_1
02b3 380c |8 | Execute Record,Field_Write,Field_Number 0xc
02b4 00ca | | Action Exit_Nullary_Function
02b5 0000 0000 | | .XXX[0x3]
02b7 0000 | |
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bb | | .CONST 0x02bb ; Address of begin
02b9 0004 | | .CONST 0x0004 ; Address of exception handler
02ba 0001 | | .CONST 0x0001 ; Number of locals
02bb BODY_02b8:
02bb INIT_02b8:
02bb 4801 |H | Short_Literal 0x1
02bc e24d | M | Load 0x1,0x4d
02bd e5ff | | Load 0x2,-0x1
02be e01e | | Load 0x0,0x1e
02bf 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
02c0 6805 |h | Jump_Zero 0x2c6
02c1 e5fd | | Load 0x2,-0x3
02c2 e5fe | | Load 0x2,-0x2
02c3 e5ff | | Load 0x2,-0x1
02c4 801f | | Call 0x0,0x1f
02c5 c5fd | | Store 0x2,-0x3
02c6 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02c7 0000 | | .XXX[0x1]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02d5 | | .CONST 0x02d5 ; Address of begin
02c9 0004 | | .CONST 0x0004 ; Address of exception handler
02ca 0005 | | .CONST 0x0005 ; Number of locals
02cb INIT_02c8:
02cb e007 | | Load 0x0,0x7
02cc 0007 | | Action Break_Optional
02cd e020 | | Load 0x0,0x20
02ce 0322 | " | Declare_Variable Record
02cf 00d8 | | Load_Top At_Offset_0
02d0 1c00 | | Execute_Immediate Run_Utility,0x0
02d1 e006 | | Load 0x0,0x6
02d2 0322 | " | Declare_Variable Record
02d3 029f 086b | k| Declare_Subprogram INIT_0868,For_Call
02d5 BODY_02c8:
02d5 e014 | | Load 0x0,0x14
02d6 a5fd | | Store_Unchecked 0x2,-0x3
02d7 e013 | | Load 0x0,0x13
02d8 e5fe | | Load 0x2,-0x2
02d9 017d | } | Execute Record,Structure_Write
02da e5fa | | Load 0x2,-0x6
02db e5fb | | Load 0x2,-0x5
02dc 00e1 | | Load_Encached Boolean_Cache
02dd e007 | | Load 0x0,0x7
02de e404 | | Load 0x2,0x4
02df e403 | | Load 0x2,0x3
02e0 e5ff | | Load 0x2,-0x1
02e1 8021 | ! | Call 0x0,0x21
02e2 00d2 | | Pop_Control Pop_Count_2
02e3 c402 | | Store 0x2,0x2
02e4 c5fc | | Store 0x2,-0x4
02e5 00d1 | | Pop_Control Pop_Count_1
02e6 c5fa | | Store 0x2,-0x6
02e7 4802 |H | Short_Literal 0x2
02e8 e5fa | | Load 0x2,-0x6
02e9 e022 | " | Load 0x0,0x22
02ea 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02eb 7001 |p | Jump_Nonzero 0x2ed
02ec 8405 | | Call 0x2,0x5
02ed 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02ee 0000 0000 | | .XXX[0x2]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f9 | | .CONST 0x02f9 ; Address of begin
02f1 0004 | | .CONST 0x0004 ; Address of exception handler
02f2 0003 | | .CONST 0x0003 ; Number of locals
02f3 INIT_02f0:
02f3 e020 | | Load 0x0,0x20
02f4 0322 | " | Declare_Variable Record
02f5 00d8 | | Load_Top At_Offset_0
02f6 1c00 | | Execute_Immediate Run_Utility,0x0
02f7 e006 | | Load 0x0,0x6
02f8 0322 | " | Declare_Variable Record
02f9 BODY_02f0:
02f9 e5ff | | Load 0x2,-0x1
02fa 8023 | # | Call 0x0,0x23
02fb 681d |h | Jump_Zero 0x319
02fc e5fc | | Load 0x2,-0x4
02fd e5fd | | Load 0x2,-0x3
02fe e5fe | | Load 0x2,-0x2
02ff e5ff | | Load 0x2,-0x1
0300 8024 | $ | Call 0x0,0x24
0301 00d1 | | Pop_Control Pop_Count_1
0302 c5fc | | Store 0x2,-0x4
0303 4802 |H | Short_Literal 0x2
0304 e5fc | | Load 0x2,-0x4
0305 e022 | " | Load 0x0,0x22
0306 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0307 6810 |h | Jump_Zero 0x318
0308 e5fc | | Load 0x2,-0x4
0309 e5fd | | Load 0x2,-0x3
030a e5fe | | Load 0x2,-0x2
030b e5ff | | Load 0x2,-0x1
030c 8250 | P | Call 0x1,0x50
030d 00d1 | | Pop_Control Pop_Count_1
030e c5fc | | Store 0x2,-0x4
030f 4802 |H | Short_Literal 0x2
0310 e5fc | | Load 0x2,-0x4
0311 e022 | " | Load 0x0,0x22
0312 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0313 7004 |p | Jump_Nonzero 0x318
0314 e5fd | | Load 0x2,-0x3
0315 e5fe | | Load 0x2,-0x2
0316 e5ff | | Load 0x2,-0x1
0317 8025 | % | Call 0x0,0x25
0318 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0319 e5fc | | Load 0x2,-0x4
031a e5fd | | Load 0x2,-0x3
031b e5fe | | Load 0x2,-0x2
031c e5ff | | Load 0x2,-0x1
031d 8250 | P | Call 0x1,0x50
031e 00d1 | | Pop_Control Pop_Count_1
031f c5fc | | Store 0x2,-0x4
0320 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0321 0000 0000 | | .BLANK 0000[0x7]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032b | + | .CONST 0x032b ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 0001 | | .CONST 0x0001 ; Number of locals
032b BODY_0328:
032b INIT_0328:
032b 0092 0a2f | /| Action Push_String_Extended,0xa2f ; ", Lex ="
032d 00db | | Load_Top At_Offset_3
032e 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
032f 00e0 | | Load_Encached Standard_Cache
0330 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0331 01cc | | Execute Vector,Catenate
0332 0092 0a30 | 0| Action Push_String_Extended,0xa30 ; ", Outer = "
0334 01cc | | Execute Vector,Catenate
0335 00db | | Load_Top At_Offset_3
0336 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0337 821e | | Call 0x1,0x1e
0338 01cc | | Execute Vector,Catenate
0339 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
033a 0000 0000 | | .BLANK 0000[0x6]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0343 | C | .CONST 0x0343 ; Address of begin
0341 0004 | | .CONST 0x0004 ; Address of exception handler
0342 0001 | | .CONST 0x0001 ; Number of locals
0343 BODY_0340:
0343 INIT_0340:
0343 e5fb | | Load 0x2,-0x5
0344 00e3 | | Load_Encached Natural_Cache
0345 e5ff | | Load 0x2,-0x1
0346 8026 | & | Call 0x0,0x26
0347 c5fd | | Store 0x2,-0x3
0348 c5fb | | Store 0x2,-0x5
0349 4801 |H | Short_Literal 0x1
034a a5fc | | Store_Unchecked 0x2,-0x4
034b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
034c 0000 0000 | | .BLANK 0000[0x4]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0355 | U | .CONST 0x0355 ; Address of begin
0351 0004 | | .CONST 0x0004 ; Address of exception handler
0352 0002 | | .CONST 0x0002 ; Number of locals
0353 INIT_0350:
0353 e003 | | Load 0x0,0x3
0354 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
0355 BODY_0350:
0355 e5fb | | Load 0x2,-0x5
0356 e003 | | Load 0x0,0x3
0357 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
0358 00e1 | | Load_Encached Boolean_Cache
0359 e5fe | | Load 0x2,-0x2
035a e5ff | | Load 0x2,-0x1
035b 8027 | ' | Call 0x0,0x27
035c c5fe | | Store 0x2,-0x2
035d c5fd | | Store 0x2,-0x3
035e 005a | Z | Store_Top Discrete,At_Offset_2
035f c5fb | | Store 0x2,-0x5
0360 00d8 | | Load_Top At_Offset_0
0361 a5fc | | Store_Unchecked 0x2,-0x4
0362 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0363 0000 0000 | | .BLANK 0000[0x5]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 0378 | x | .CONST 0x0378 ; Address of begin
0369 0004 | | .CONST 0x0004 ; Address of exception handler
036a 0007 | | .CONST 0x0007 ; Number of locals
036b INIT_0368:
036b e003 | | Load 0x0,0x3
036c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
036d e003 | | Load 0x0,0x3
036e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
036f 00e5 | | Load_Encached Long_Integer_Cache
0370 e020 | | Load 0x0,0x20
0371 0322 | " | Declare_Variable Record
0372 00d8 | | Load_Top At_Offset_0
0373 1c00 | | Execute_Immediate Run_Utility,0x0
0374 e006 | | Load 0x0,0x6
0375 0322 | " | Declare_Variable Record
0376 029f 0883 | | Declare_Subprogram INIT_0880,For_Call
0378 BODY_0368:
0378 e013 | | Load 0x0,0x13
0379 e5f8 | | Load 0x2,-0x8
037a 017d | } | Execute Record,Structure_Write
037b e014 | | Load 0x0,0x14
037c a5f7 | | Store_Unchecked 0x2,-0x9
037d e5f4 | | Load 0x2,-0xc
037e e009 | | Load 0x0,0x9
037f e007 | | Load 0x0,0x7
0380 e406 | | Load 0x2,0x6
0381 e405 | | Load 0x2,0x5
0382 00e5 | | Load_Encached Long_Integer_Cache
0383 e003 | | Load 0x0,0x3
0384 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0385 e003 | | Load 0x0,0x3
0386 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0387 00e1 | | Load_Encached Boolean_Cache
0388 00e1 | | Load_Encached Boolean_Cache
0389 e5fe | | Load 0x2,-0x2
038a e5ff | | Load 0x2,-0x1
038b 8028 | ( | Call 0x0,0x28
038c c5fe | | Store 0x2,-0x2
038d c5fd | | Store 0x2,-0x3
038e c5fc | | Store 0x2,-0x4
038f c402 | | Store 0x2,0x2
0390 c403 | | Store 0x2,0x3
0391 c404 | | Store 0x2,0x4
0392 00d2 | | Pop_Control Pop_Count_2
0393 c5f6 | | Store 0x2,-0xa
0394 c5f5 | | Store 0x2,-0xb
0395 c5f4 | | Store 0x2,-0xc
0396 4802 |H | Short_Literal 0x2
0397 e5f4 | | Load 0x2,-0xc
0398 e022 | " | Load 0x0,0x22
0399 1810 | | Execute Package,Field_Execute,Field_Number 0x10
039a 700b |p | Jump_Nonzero 0x3a6
039b e402 | | Load 0x2,0x2
039c 8029 | ) | Call 0x0,0x29
039d a5fb | | Store_Unchecked 0x2,-0x5
039e e403 | | Load 0x2,0x3
039f 8029 | ) | Call 0x0,0x29
03a0 a5fa | | Store_Unchecked 0x2,-0x6
03a1 00db | | Load_Top At_Offset_3
03a2 802a | * | Call 0x0,0x2a
03a3 a5f9 | | Store_Unchecked 0x2,-0x7
03a4 8407 | | Call 0x2,0x7
03a5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03a6 8015 | | Call 0x0,0x15
03a7 a5fb | | Store_Unchecked 0x2,-0x5
03a8 8015 | | Call 0x0,0x15
03a9 a5fa | | Store_Unchecked 0x2,-0x6
03aa 8010 | | Call 0x0,0x10
03ab a5f9 | | Store_Unchecked 0x2,-0x7
03ac e014 | | Load 0x0,0x14
03ad a5f7 | | Store_Unchecked 0x2,-0x9
03ae e013 | | Load 0x0,0x13
03af e5f8 | | Load 0x2,-0x8
03b0 017d | } | Execute Record,Structure_Write
03b1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03b2 0000 0000 | | .BLANK 0000[0x6]
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03bb | | .CONST 0x03bb ; Address of begin
03b9 0004 | | .CONST 0x0004 ; Address of exception handler
03ba 0001 | | .CONST 0x0001 ; Number of locals
03bb BODY_03b8:
03bb INIT_03b8:
03bb 00da | | Load_Top At_Offset_2
03bc 802b | + | Call 0x0,0x2b
03bd a5fe | | Store_Unchecked 0x2,-0x2
03be e5fd | | Load 0x2,-0x3
03bf e022 | " | Load 0x0,0x22
03c0 181a | | Execute Package,Field_Execute,Field_Number 0x1a
03c1 c5fd | | Store 0x2,-0x3
03c2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03c3 0000 0000 | | .BLANK 0000[0x5]
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03cb | | .CONST 0x03cb ; Address of begin
03c9 0004 | | .CONST 0x0004 ; Address of exception handler
03ca 0001 | | .CONST 0x0001 ; Number of locals
03cb BODY_03c8:
03cb INIT_03c8:
03cb 00da | | Load_Top At_Offset_2
03cc 802b | + | Call 0x0,0x2b
03cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03ce 0000 0000 | | .XXX[0x2]
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03df | | .CONST 0x03df ; Address of begin
03d1 0004 | | .CONST 0x0004 ; Address of exception handler
03d2 0004 | | .CONST 0x0004 ; Number of locals
03d3 INIT_03d0:
03d3 e02c | , | Load 0x0,0x2c
03d4 1b15 | | Execute Package,Field_Read,Field_Number 0x15
03d5 e022 | " | Load 0x0,0x22
03d6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03d7 02c7 | | Declare_Variable Any
03d8 00d8 | | Load_Top At_Offset_0
03d9 1c00 | | Execute_Immediate Run_Utility,0x0
03da e02d | - | Load 0x0,0x2d
03db 1819 | | Execute Package,Field_Execute,Field_Number 0x19
03dc e02c | , | Load 0x0,0x2c
03dd 1b14 | | Execute Package,Field_Read,Field_Number 0x14
03de 03f1 | | Declare_Variable Discrete,With_Value
03df BODY_03d0:
03df e02c | , | Load 0x0,0x2c
03e0 1b15 | | Execute Package,Field_Read,Field_Number 0x15
03e1 00da | | Load_Top At_Offset_2
03e2 e5ff | | Load 0x2,-0x1
03e3 8230 | 0 | Call 0x1,0x30
03e4 005b | [ | Store_Top Discrete,At_Offset_3
03e5 e5ff | | Load 0x2,-0x1
03e6 e003 | | Load 0x0,0x3
03e7 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
03e8 6811 |h | Jump_Zero 0x3fa
03e9 00da | | Load_Top At_Offset_2
03ea e02d | - | Load 0x0,0x2d
03eb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03ec 00d9 | | Load_Top At_Offset_1
03ed 00d0 | | Action Swap_Control
03ee 0260 | ` | Execute Discrete,In_Type
03ef 7001 |p | Jump_Nonzero 0x3f1
03f0 0801 | | Execute_Immediate Raise,0x1
03f1 e02d | - | Load 0x0,0x2d
03f2 181a | | Execute Package,Field_Execute,Field_Number 0x1a
03f3 e02d | - | Load 0x0,0x2d
03f4 181c | | Execute Package,Field_Execute,Field_Number 0x1c
03f5 00d9 | | Load_Top At_Offset_1
03f6 e02d | - | Load 0x0,0x2d
03f7 181c | | Execute Package,Field_Execute,Field_Number 0x1c
03f8 01df | | Execute Vector,Equal
03f9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03fa 4800 |H | Short_Literal 0x0
03fb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03fc 0000 0000 | | .BLANK 0000[0x4]
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0403 | | .CONST 0x0403 ; Address of begin
0401 0004 | | .CONST 0x0004 ; Address of exception handler
0402 0001 | | .CONST 0x0001 ; Number of locals
0403 BODY_0400:
0403 INIT_0400:
0403 00da | | Load_Top At_Offset_2
0404 e003 | | Load 0x0,0x3
0405 1842 | B | Execute Package,Field_Execute,Field_Number 0x42
0406 0f07 | | Execute_Immediate Equal,0x7
0407 0f00 | | Execute_Immediate Equal,0x0
0408 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0409 0000 0000 | | .BLANK 0000[0x7]
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0421 | ! | .CONST 0x0421 ; Address of begin
0411 0445 | E | .CONST 0x0445 ; Address of exception handler
0412 0005 | | .CONST 0x0005 ; Number of locals
0413 INIT_0410:
0413 00da | | Load_Top At_Offset_2
0414 e002 | | Load 0x0,0x2
0415 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0416 03f1 | | Declare_Variable Discrete,With_Value
0417 e5fe | | Load 0x2,-0x2
0418 e002 | | Load 0x0,0x2
0419 1b15 | | Execute Package,Field_Read,Field_Number 0x15
041a 03f1 | | Declare_Variable Discrete,With_Value
041b e5fd | | Load 0x2,-0x3
041c e002 | | Load 0x0,0x2
041d 1b15 | | Execute Package,Field_Read,Field_Number 0x15
041e 03f1 | | Declare_Variable Discrete,With_Value
041f e002 | | Load 0x0,0x2
0420 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0421 BODY_0410:
0421 00da | | Load_Top At_Offset_2
0422 e003 | | Load 0x0,0x3
0423 1842 | B | Execute Package,Field_Execute,Field_Number 0x42
0424 0b03 | | Execute_Immediate Case_Compare,0x3
0425 7004 |p | Jump_Nonzero 0x42a
0426 0f01 | | Execute_Immediate Equal,0x1
0427 7003 |p | Jump_Nonzero 0x42b
0428 4800 |H | Short_Literal 0x0
0429 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
042a 00d1 | | Pop_Control Pop_Count_1
042b 00db | | Load_Top At_Offset_3
042c 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
042d 00cf | | Action Mark_Auxiliary
042e 00d9 | | Load_Top At_Offset_1
042f e403 | | Load 0x2,0x3
0430 027f | | Execute Discrete,Equal
0431 6802 |h | Jump_Zero 0x434
0432 4801 |H | Short_Literal 0x1
0433 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0434 00da | | Load_Top At_Offset_2
0435 00da | | Load_Top At_Offset_2
0436 8253 | S | Call 0x1,0x53
0437 6802 |h | Jump_Zero 0x43a
0438 4800 |H | Short_Literal 0x0
0439 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
043a 00d9 | | Load_Top At_Offset_1
043b e003 | | Load 0x0,0x3
043c 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
043d 7002 |p | Jump_Nonzero 0x440
043e 4800 |H | Short_Literal 0x0
043f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0440 00d9 | | Load_Top At_Offset_1
0441 8252 | R | Call 0x1,0x52
0442 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0443 00c9 | | Action Pop_Auxiliary_Loop
0444 7fe9 | | Jump 0x42e
0445 TRAP_0410:
0445 0007 | | Action Break_Optional
0446 4800 |H | Short_Literal 0x0
0447 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 044b | K | .CONST 0x044b ; Address of begin
0449 0004 | | .CONST 0x0004 ; Address of exception handler
044a 0001 | | .CONST 0x0001 ; Number of locals
044b BODY_0448:
044b INIT_0448:
044b 00da | | Load_Top At_Offset_2
044c e02c | , | Load 0x0,0x2c
044d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
044e c5fd | | Store 0x2,-0x3
044f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0453 | S | .CONST 0x0453 ; Address of begin
0451 0004 | | .CONST 0x0004 ; Address of exception handler
0452 0001 | | .CONST 0x0001 ; Number of locals
0453 BODY_0450:
0453 INIT_0450:
0453 4607 |F | Jump_Case 0x8
0454 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0455 7807 |x | Jump 0x45d ; case 0x1
0456 780a |x | Jump 0x461 ; case 0x2
0457 780e |x | Jump 0x466 ; case 0x3
0458 7811 |x | Jump 0x46a ; case 0x4
0459 7812 |x | Jump 0x46c ; case 0x5
045a 7813 |x | Jump 0x46e ; case 0x6
045b 7816 |x | Jump 0x472 ; case 0x7
045c 4302 |C | .XXX[0x1]
045d 00da | | Load_Top At_Offset_2
045e 0091 0a15 | | Action Push_String_Extended_Indexed,0xa15 ; "BREAK"
0460 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0461 00db | | Load_Top At_Offset_3
0462 00db | | Load_Top At_Offset_3
0463 00e0 | | Load_Encached Standard_Cache
0464 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0465 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0466 00da | | Load_Top At_Offset_2
0467 00e0 | | Load_Encached Standard_Cache
0468 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0469 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
046a 00db | | Load_Top At_Offset_3
046b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
046c 00db | | Load_Top At_Offset_3
046d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
046e e231 | 1 | Load 0x1,0x31
046f 00dc | | Load_Top At_Offset_4
0470 0267 | g | Execute Discrete,Predecessor
0471 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0472 e231 | 1 | Load 0x1,0x31
0473 00dc | | Load_Top At_Offset_4
0474 0268 | h | Execute Discrete,Successor
0475 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0476 0000 0000 | | .XXX[0x2]
0478 ; --------------------------------------------------------------------------------------
0478 ; SUBPROGRAM
0478 ; --------------------------------------------------------------------------------------
0478 047b | { | .CONST 0x047b ; Address of begin
0479 0004 | | .CONST 0x0004 ; Address of exception handler
047a 0001 | | .CONST 0x0001 ; Number of locals
047b BODY_0478:
047b INIT_0478:
047b 4607 |F | Jump_Case 0x8
047c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
047d 7807 |x | Jump 0x485 ; case 0x1
047e 780a |x | Jump 0x489 ; case 0x2
047f 780e |x | Jump 0x48e ; case 0x3
0480 7811 |x | Jump 0x492 ; case 0x4
0481 7812 |x | Jump 0x494 ; case 0x5
0482 7813 |x | Jump 0x496 ; case 0x6
0483 7816 |x | Jump 0x49a ; case 0x7
0484 4302 |C | .XXX[0x1]
0485 00da | | Load_Top At_Offset_2
0486 0091 0a22 | "| Action Push_String_Extended_Indexed,0xa22 ; "STOPPED"
0488 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0489 00db | | Load_Top At_Offset_3
048a 00db | | Load_Top At_Offset_3
048b 00e0 | | Load_Encached Standard_Cache
048c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
048d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
048e 00da | | Load_Top At_Offset_2
048f 00e0 | | Load_Encached Standard_Cache
0490 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0491 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0492 00db | | Load_Top At_Offset_3
0493 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0494 00db | | Load_Top At_Offset_3
0495 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0496 e232 | 2 | Load 0x1,0x32
0497 00dc | | Load_Top At_Offset_4
0498 0267 | g | Execute Discrete,Predecessor
0499 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
049a e232 | 2 | Load 0x1,0x32
049b 00dc | | Load_Top At_Offset_4
049c 0268 | h | Execute Discrete,Successor
049d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
049e 0000 0000 | | .XXX[0x2]
04a0 ; --------------------------------------------------------------------------------------
04a0 ; SUBPROGRAM
04a0 ; --------------------------------------------------------------------------------------
04a0 04a3 | | .CONST 0x04a3 ; Address of begin
04a1 0004 | | .CONST 0x0004 ; Address of exception handler
04a2 0001 | | .CONST 0x0001 ; Number of locals
04a3 BODY_04a0:
04a3 INIT_04a0:
04a3 4607 |F | Jump_Case 0x8
04a4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
04a5 7807 |x | Jump 0x4ad ; case 0x1
04a6 780a |x | Jump 0x4b1 ; case 0x2
04a7 780e |x | Jump 0x4b6 ; case 0x3
04a8 7811 |x | Jump 0x4ba ; case 0x4
04a9 7812 |x | Jump 0x4bc ; case 0x5
04aa 7813 |x | Jump 0x4be ; case 0x6
04ab 7816 |x | Jump 0x4c2 ; case 0x7
04ac 4302 |C | .XXX[0x1]
04ad 00da | | Load_Top At_Offset_2
04ae 0091 0a26 | &| Action Push_String_Extended_Indexed,0xa26 ; "INFORM"
04b0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
04b1 00db | | Load_Top At_Offset_3
04b2 00db | | Load_Top At_Offset_3
04b3 00e0 | | Load_Encached Standard_Cache
04b4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
04b5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04b6 00da | | Load_Top At_Offset_2
04b7 00e0 | | Load_Encached Standard_Cache
04b8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
04b9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
04ba 00db | | Load_Top At_Offset_3
04bb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04bc 00db | | Load_Top At_Offset_3
04bd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04be e233 | 3 | Load 0x1,0x33
04bf 00dc | | Load_Top At_Offset_4
04c0 0267 | g | Execute Discrete,Predecessor
04c1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04c2 e233 | 3 | Load 0x1,0x33
04c3 00dc | | Load_Top At_Offset_4
04c4 0268 | h | Execute Discrete,Successor
04c5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04c6 0000 0000 | | .XXX[0x2]
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04cb | | .CONST 0x04cb ; Address of begin
04c9 0004 | | .CONST 0x0004 ; Address of exception handler
04ca 0001 | | .CONST 0x0001 ; Number of locals
04cb BODY_04c8:
04cb INIT_04c8:
04cb 4607 |F | Jump_Case 0x8
04cc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
04cd 7807 |x | Jump 0x4d5 ; case 0x1
04ce 780a |x | Jump 0x4d9 ; case 0x2
04cf 780e |x | Jump 0x4de ; case 0x3
04d0 7811 |x | Jump 0x4e2 ; case 0x4
04d1 7812 |x | Jump 0x4e4 ; case 0x5
04d2 7813 |x | Jump 0x4e6 ; case 0x6
04d3 7816 |x | Jump 0x4ea ; case 0x7
04d4 4302 |C | .XXX[0x1]
04d5 00da | | Load_Top At_Offset_2
04d6 0091 0a29 | )| Action Push_String_Extended_Indexed,0xa29 ; "CONTINUE"
04d8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
04d9 00db | | Load_Top At_Offset_3
04da 00db | | Load_Top At_Offset_3
04db 00e0 | | Load_Encached Standard_Cache
04dc 181b | | Execute Package,Field_Execute,Field_Number 0x1b
04dd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04de 00da | | Load_Top At_Offset_2
04df 00e0 | | Load_Encached Standard_Cache
04e0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
04e1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
04e2 00db | | Load_Top At_Offset_3
04e3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04e4 00db | | Load_Top At_Offset_3
04e5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04e6 e234 | 4 | Load 0x1,0x34
04e7 00dc | | Load_Top At_Offset_4
04e8 0267 | g | Execute Discrete,Predecessor
04e9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04ea e234 | 4 | Load 0x1,0x34
04eb 00dc | | Load_Top At_Offset_4
04ec 0268 | h | Execute Discrete,Successor
04ed 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04ee 0000 0000 | | .XXX[0x2]
04f0 ; --------------------------------------------------------------------------------------
04f0 ; SUBPROGRAM
04f0 ; --------------------------------------------------------------------------------------
04f0 04f3 | | .CONST 0x04f3 ; Address of begin
04f1 0004 | | .CONST 0x0004 ; Address of exception handler
04f2 0001 | | .CONST 0x0001 ; Number of locals
04f3 BODY_04f0:
04f3 INIT_04f0:
04f3 e24e | N | Load 0x1,0x4e
04f4 00ca | | Action Exit_Nullary_Function
04f5 0000 0000 | | .XXX[0x3]
04f7 0000 | |
04f8 ; --------------------------------------------------------------------------------------
04f8 ; SUBPROGRAM
04f8 ; --------------------------------------------------------------------------------------
04f8 04fb | | .CONST 0x04fb ; Address of begin
04f9 0004 | | .CONST 0x0004 ; Address of exception handler
04fa 0001 | | .CONST 0x0001 ; Number of locals
04fb BODY_04f8:
04fb INIT_04f8:
04fb e24f | O | Load 0x1,0x4f
04fc 00ca | | Action Exit_Nullary_Function
04fd 0000 0000 | | .XXX[0x3]
04ff 0000 | |
0500 ; --------------------------------------------------------------------------------------
0500 ; SUBPROGRAM
0500 ; --------------------------------------------------------------------------------------
0500 0503 | | .CONST 0x0503 ; Address of begin
0501 0004 | | .CONST 0x0004 ; Address of exception handler
0502 0001 | | .CONST 0x0001 ; Number of locals
0503 BODY_0500:
0503 INIT_0500:
0503 00ea | | Load_Encached Null_String_Cache
0504 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0505 0000 0000 | | .XXX[0x3]
0507 0000 | |
0508 ; --------------------------------------------------------------------------------------
0508 ; SUBPROGRAM
0508 ; --------------------------------------------------------------------------------------
0508 0521 | ! | .CONST 0x0521 ; Address of begin
0509 0537 | 7 | .CONST 0x0537 ; Address of exception handler
050a 0009 | | .CONST 0x0009 ; Number of locals
050b INIT_0508:
050b 029f 0893 | | Declare_Subprogram INIT_0890,For_Call
050d a02e | . | Store_Unchecked 0x0,0x2e
050e 00c6 | | Action Check_Subprogram_Elaborated
050f e238 | 8 | Load 0x1,0x38
0510 00e2 | | Load_Encached Integer_Cache
0511 4802 |H | Short_Literal 0x2
0512 4802 |H | Short_Literal 0x2
0513 0099 | | Action Reference_Dynamic
0514 4800 |H | Short_Literal 0x0
0515 0093 0000 | | push_full_address 0x0
0517 6034 |`4 | Indirect_Literal Discrete,0x54c,{0x80000000, 0x00010000}
0518 0273 | s | Execute Discrete,Plus
0519 e02f | / | Load 0x0,0x2f
051a 0273 | s | Execute Discrete,Plus
051b e030 | 0 | Load 0x0,0x30
051c 0273 | s | Execute Discrete,Plus
051d 4808 |H | Short_Literal 0x8
051e 0007 | | Action Break_Optional
051f 00e2 | | Load_Encached Integer_Cache
0520 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0521 BODY_0508:
0521 e5fc | | Load 0x2,-0x4
0522 e022 | " | Load 0x0,0x22
0523 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0524 c5fc | | Store 0x2,-0x4
0525 8239 | 9 | Call 0x1,0x39
0526 e5fd | | Load 0x2,-0x3
0527 017d | } | Execute Record,Structure_Write
0528 00d8 | | Load_Top At_Offset_0
0529 e5ff | | Load 0x2,-0x1
052a e403 | | Load 0x2,0x3
052b e404 | | Load 0x2,0x4
052c 4805 |H | Short_Literal 0x5
052d 4802 |H | Short_Literal 0x2
052e 0099 | | Action Reference_Dynamic
052f e406 | | Load 0x2,0x6
0530 4807 |H | Short_Literal 0x7
0531 4802 |H | Short_Literal 0x2
0532 0099 | | Action Reference_Dynamic
0533 802e | . | Call 0x0,0x2e
0534 e5fd | | Load 0x2,-0x3
0535 017d | } | Execute Record,Structure_Write
0536 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0537 TRAP_0508:
0537 e031 | 1 | Load 0x0,0x31
0538 010f | | Execute Exception,Equal
0539 6805 |h | Jump_Zero 0x53f
053a e5ff | | Load 0x2,-0x1
053b 8254 | T | Call 0x1,0x54
053c e5fd | | Load 0x2,-0x3
053d 017d | } | Execute Record,Structure_Write
053e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
053f e5fc | | Load 0x2,-0x4
0540 0092 0a31 | 1| Action Push_String_Extended,0xa31 ; "Exception in Get_One_Task_State: "
0542 e032 | 2 | Load 0x0,0x32
0543 180d | | Execute Package,Field_Execute,Field_Number 0xd
0544 01cc | | Execute Vector,Catenate
0545 e022 | " | Load 0x0,0x22
0546 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0547 c5fc | | Store 0x2,-0x4
0548 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0549 0000 0000 | | .XXX[0x3]
054b 0000 | |
054c 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0550 ; --------------------------------------------------------------------------------------
0550 ; SUBPROGRAM
0550 ; --------------------------------------------------------------------------------------
0550 055b | [ | .CONST 0x055b ; Address of begin
0551 0004 | | .CONST 0x0004 ; Address of exception handler
0552 0005 | | .CONST 0x0005 ; Number of locals
0553 INIT_0550:
0553 029f 08ab | | Declare_Subprogram INIT_08a8,For_Call
0555 e033 | 3 | Load 0x0,0x33
0556 0007 | | Action Break_Optional
0557 e20f | | Load 0x1,0xf
0558 0007 | | Action Break_Optional
0559 00e1 | | Load_Encached Boolean_Cache
055a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
055b BODY_0550:
055b e033 | 3 | Load 0x0,0x33
055c 8034 | 4 | Call 0x0,0x34
055d 003b | ; | Store_Top Access,At_Offset_3
055e 00cf | | Action Mark_Auxiliary
055f 781c |x | Jump 0x57c
0560 00db | | Load_Top At_Offset_3
0561 8035 | 5 | Call 0x0,0x35
0562 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0563 e5f9 | | Load 0x2,-0x7
0564 e5fb | | Load 0x2,-0x5
0565 0119 | | Execute Any,Check_In_Formal_Type
0566 00db | | Load_Top At_Offset_3
0567 8402 | | Call 0x2,0x2
0568 680f |h | Jump_Zero 0x578
0569 00e1 | | Load_Encached Boolean_Cache
056a 0122 | " | Execute Any,Make_Root_Type
056b e5f8 | | Load 0x2,-0x8
056c 00d8 | | Load_Top At_Offset_0
056d 0120 | | Execute Any,Is_Value
056e 6803 |h | Jump_Zero 0x572
056f e5fc | | Load 0x2,-0x4
0570 0122 | " | Execute Any,Make_Root_Type
0571 011e | | Execute Any,Convert
0572 e404 | | Load 0x2,0x4
0573 85fe | | Call 0x2,-0x2
0574 c5f8 | | Store 0x2,-0x8
0575 005a | Z | Store_Top Discrete,At_Offset_2
0576 00d9 | | Load_Top At_Offset_1
0577 7007 |p | Jump_Nonzero 0x57f
0578 00db | | Load_Top At_Offset_3
0579 8036 | 6 | Call 0x0,0x36
057a c403 | | Store 0x2,0x3
057b 00c9 | | Action Pop_Auxiliary_Loop
057c 00db | | Load_Top At_Offset_3
057d 8037 | 7 | Call 0x0,0x37
057e 6fe1 |o | Jump_Zero 0x560
057f 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0580 ; --------------------------------------------------------------------------------------
0580 ; SUBPROGRAM
0580 ; --------------------------------------------------------------------------------------
0580 0587 | | .CONST 0x0587 ; Address of begin
0581 0004 | | .CONST 0x0004 ; Address of exception handler
0582 0003 | | .CONST 0x0003 ; Number of locals
0583 INIT_0580:
0583 e033 | 3 | Load 0x0,0x33
0584 0007 | | Action Break_Optional
0585 029f 08d3 | | Declare_Subprogram INIT_08d0,For_Call
0587 BODY_0580:
0587 e033 | 3 | Load 0x0,0x33
0588 8034 | 4 | Call 0x0,0x34
0589 003a | : | Store_Top Access,At_Offset_2
058a 8403 | | Call 0x2,0x3
058b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
058c 0000 0000 | | .BLANK 0000[0x4]
0590 ; --------------------------------------------------------------------------------------
0590 ; SUBPROGRAM
0590 ; --------------------------------------------------------------------------------------
0590 0593 | | .CONST 0x0593 ; Address of begin
0591 0596 | | .CONST 0x0596 ; Address of exception handler
0592 0001 | | .CONST 0x0001 ; Number of locals
0593 BODY_0590:
0593 INIT_0590:
0593 00da | | Load_Top At_Offset_2
0594 8038 | 8 | Call 0x0,0x38
0595 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0596 TRAP_0590:
0596 0007 | | Action Break_Optional
0597 4800 |H | Short_Literal 0x0
0598 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0599 0000 0000 | | .BLANK 0000[0x7]
05a0 ; --------------------------------------------------------------------------------------
05a0 ; SUBPROGRAM
05a0 ; --------------------------------------------------------------------------------------
05a0 05a3 | | .CONST 0x05a3 ; Address of begin
05a1 05a6 | | .CONST 0x05a6 ; Address of exception handler
05a2 0001 | | .CONST 0x0001 ; Number of locals
05a3 BODY_05a0:
05a3 INIT_05a0:
05a3 00da | | Load_Top At_Offset_2
05a4 8039 | 9 | Call 0x0,0x39
05a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05a6 TRAP_05a0:
05a6 0007 | | Action Break_Optional
05a7 8210 | | Call 0x1,0x10
05a8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05a9 0000 0000 | | .BLANK 0000[0x7]
05b0 ; --------------------------------------------------------------------------------------
05b0 ; SUBPROGRAM
05b0 ; --------------------------------------------------------------------------------------
05b0 05b3 | | .CONST 0x05b3 ; Address of begin
05b1 05b6 | | .CONST 0x05b6 ; Address of exception handler
05b2 0001 | | .CONST 0x0001 ; Number of locals
05b3 BODY_05b0:
05b3 INIT_05b0:
05b3 00da | | Load_Top At_Offset_2
05b4 803a | : | Call 0x0,0x3a
05b5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05b6 TRAP_05b0:
05b6 0007 | | Action Break_Optional
05b7 00ea | | Load_Encached Null_String_Cache
05b8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05b9 0000 0000 | | .BLANK 0000[0x7]
05c0 ; --------------------------------------------------------------------------------------
05c0 ; SUBPROGRAM
05c0 ; --------------------------------------------------------------------------------------
05c0 05c3 | | .CONST 0x05c3 ; Address of begin
05c1 0004 | | .CONST 0x0004 ; Address of exception handler
05c2 0001 | | .CONST 0x0001 ; Number of locals
05c3 BODY_05c0:
05c3 INIT_05c0:
05c3 00db | | Load_Top At_Offset_3
05c4 00db | | Load_Top At_Offset_3
05c5 803b | ; | Call 0x0,0x3b
05c6 4503 |E | Exit_Suprogram New_Top_Offset 0x3
05c7 0000 | | .XXX[0x1]
05c8 ; --------------------------------------------------------------------------------------
05c8 ; SUBPROGRAM
05c8 ; --------------------------------------------------------------------------------------
05c8 05cb | | .CONST 0x05cb ; Address of begin
05c9 0004 | | .CONST 0x0004 ; Address of exception handler
05ca 0001 | | .CONST 0x0001 ; Number of locals
05cb BODY_05c8:
05cb INIT_05c8:
05cb 00da | | Load_Top At_Offset_2
05cc 8211 | | Call 0x1,0x11
05cd 6803 |h | Jump_Zero 0x5d1
05ce 0092 0a32 | 2| Action Push_String_Extended,0xa32 ; "all"
05d0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05d1 00da | | Load_Top At_Offset_2
05d2 823e | > | Call 0x1,0x3e
05d3 6808 |h | Jump_Zero 0x5dc
05d4 e03c | < | Load 0x0,0x3c
05d5 180f | | Execute Package,Field_Execute,Field_Number 0xf
05d6 00db | | Load_Top At_Offset_3
05d7 8240 | @ | Call 0x1,0x40
05d8 e01e | | Load 0x0,0x1e
05d9 1814 | | Execute Package,Field_Execute,Field_Number 0x14
05da 01ca | | Execute Vector,Prepend
05db 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05dc e03c | < | Load 0x0,0x3c
05dd 180f | | Execute Package,Field_Execute,Field_Number 0xf
05de 00db | | Load_Top At_Offset_3
05df 8215 | | Call 0x1,0x15
05e0 01ca | | Execute Vector,Prepend
05e1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05e2 0000 0000 | | .BLANK 0000[0x6]
05e8 ; --------------------------------------------------------------------------------------
05e8 ; SUBPROGRAM
05e8 ; --------------------------------------------------------------------------------------
05e8 05eb | | .CONST 0x05eb ; Address of begin
05e9 05ee | | .CONST 0x05ee ; Address of exception handler
05ea 0001 | | .CONST 0x0001 ; Number of locals
05eb BODY_05e8:
05eb INIT_05e8:
05eb 00da | | Load_Top At_Offset_2
05ec 8023 | # | Call 0x0,0x23
05ed 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05ee TRAP_05e8:
05ee 0007 | | Action Break_Optional
05ef 4800 |H | Short_Literal 0x0
05f0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05f1 0000 0000 | | .BLANK 0000[0x7]
05f8 ; --------------------------------------------------------------------------------------
05f8 ; SUBPROGRAM
05f8 ; --------------------------------------------------------------------------------------
05f8 05fb | | .CONST 0x05fb ; Address of begin
05f9 05fe | | .CONST 0x05fe ; Address of exception handler
05fa 0001 | | .CONST 0x0001 ; Number of locals
05fb BODY_05f8:
05fb INIT_05f8:
05fb 00da | | Load_Top At_Offset_2
05fc 803d | = | Call 0x0,0x3d
05fd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05fe TRAP_05f8:
05fe 0007 | | Action Break_Optional
05ff 480c |H | Short_Literal 0xc
0600 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0601 0000 0000 | | .BLANK 0000[0x7]
0608 ; --------------------------------------------------------------------------------------
0608 ; SUBPROGRAM
0608 ; --------------------------------------------------------------------------------------
0608 0613 | | .CONST 0x0613 ; Address of begin
0609 0004 | | .CONST 0x0004 ; Address of exception handler
060a 0003 | | .CONST 0x0003 ; Number of locals
060b INIT_0608:
060b 00da | | Load_Top At_Offset_2
060c e002 | | Load 0x0,0x2
060d 1b15 | | Execute Package,Field_Read,Field_Number 0x15
060e 03f1 | | Declare_Variable Discrete,With_Value
060f e020 | | Load 0x0,0x20
0610 0322 | " | Declare_Variable Record
0611 00d8 | | Load_Top At_Offset_0
0612 1c00 | | Execute_Immediate Run_Utility,0x0
0613 BODY_0608:
0613 00d8 | | Load_Top At_Offset_0
0614 e5fe | | Load 0x2,-0x2
0615 803e | > | Call 0x0,0x3e
0616 00d1 | | Pop_Control Pop_Count_1
0617 4800 |H | Short_Literal 0x0
0618 e5fa | | Load 0x2,-0x6
0619 00db | | Load_Top At_Offset_3
061a 803f | ? | Call 0x0,0x3f
061b e5f9 | | Load 0x2,-0x7
061c 00da | | Load_Top At_Offset_2
061d 8040 | @ | Call 0x0,0x40
061e e5fb | | Load 0x2,-0x5
061f e5fc | | Load 0x2,-0x4
0620 e5fd | | Load 0x2,-0x3
0621 8041 | A | Call 0x0,0x41
0622 00db | | Load_Top At_Offset_3
0623 e402 | | Load 0x2,0x2
0624 8042 | B | Call 0x0,0x42
0625 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0626 0000 0000 | | .XXX[0x2]
0628 ; --------------------------------------------------------------------------------------
0628 ; SUBPROGRAM
0628 ; --------------------------------------------------------------------------------------
0628 0649 | I | .CONST 0x0649 ; Address of begin
0629 06d0 | | .CONST 0x06d0 ; Address of exception handler
062a 0012 | | .CONST 0x0012 ; Number of locals
062b INIT_0628:
062b e043 | C | Load 0x0,0x43
062c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
062d 00e4 | | Load_Encached Positive_Cache
062e 00e2 | | Load_Encached Integer_Cache
062f e003 | | Load 0x0,0x3
0630 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0631 e003 | | Load 0x0,0x3
0632 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0633 e003 | | Load 0x0,0x3
0634 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0635 e003 | | Load 0x0,0x3
0636 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0637 e003 | | Load 0x0,0x3
0638 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0639 e003 | | Load 0x0,0x3
063a 1b10 | | Execute Package,Field_Read,Field_Number 0x10
063b 00e1 | | Load_Encached Boolean_Cache
063c 00e1 | | Load_Encached Boolean_Cache
063d e003 | | Load 0x0,0x3
063e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
063f e003 | | Load 0x0,0x3
0640 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0641 00e3 | | Load_Encached Natural_Cache
0642 00e3 | | Load_Encached Natural_Cache
0643 e003 | | Load 0x0,0x3
0644 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0645 e5ff | | Load 0x2,-0x1
0646 e003 | | Load 0x0,0x3
0647 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0648 03f1 | | Declare_Variable Discrete,With_Value
0649 BODY_0628:
0649 00d8 | | Load_Top At_Offset_0
064a e003 | | Load 0x0,0x3
064b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
064c a405 | | Store_Unchecked 0x2,0x5
064d 00d8 | | Load_Top At_Offset_0
064e e003 | | Load 0x0,0x3
064f 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0650 a406 | | Store_Unchecked 0x2,0x6
0651 e003 | | Load 0x0,0x3
0652 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0653 e003 | | Load 0x0,0x3
0654 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0655 00e3 | | Load_Encached Natural_Cache
0656 e043 | C | Load 0x0,0x43
0657 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0658 e405 | | Load 0x2,0x5
0659 e043 | C | Load 0x0,0x43
065a 1815 | | Execute Package,Field_Execute,Field_Number 0x15
065b c402 | | Store 0x2,0x2
065c c5fc | | Store 0x2,-0x4
065d c407 | | Store 0x2,0x7
065e c408 | | Store 0x2,0x8
065f e003 | | Load 0x0,0x3
0660 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0661 e406 | | Load 0x2,0x6
0662 4800 |H | Short_Literal 0x0
0663 4804 |H | Short_Literal 0x4
0664 e408 | | Load 0x2,0x8
0665 0a01 | | Execute_Immediate Plus,0x1
0666 e003 | | Load 0x0,0x3
0667 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0668 00d9 | | Load_Top At_Offset_1
0669 00d0 | | Action Swap_Control
066a 0260 | ` | Execute Discrete,In_Type
066b 7001 |p | Jump_Nonzero 0x66d
066c 0801 | | Execute_Immediate Raise,0x1
066d e408 | | Load 0x2,0x8
066e e003 | | Load 0x0,0x3
066f 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0670 00d9 | | Load_Top At_Offset_1
0671 00d0 | | Action Swap_Control
0672 0260 | ` | Execute Discrete,In_Type
0673 7001 |p | Jump_Nonzero 0x675
0674 0801 | | Execute_Immediate Raise,0x1
0675 e405 | | Load 0x2,0x5
0676 e003 | | Load 0x0,0x3
0677 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0678 e405 | | Load 0x2,0x5
0679 e043 | C | Load 0x0,0x43
067a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
067b c409 | | Store 0x2,0x9
067c e409 | | Load 0x2,0x9
067d 7003 |p | Jump_Nonzero 0x681
067e e043 | C | Load 0x0,0x43
067f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0680 0257 | W | Execute Discrete,Raise
0681 00e3 | | Load_Encached Natural_Cache
0682 00e3 | | Load_Encached Natural_Cache
0683 e003 | | Load 0x0,0x3
0684 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0685 00e3 | | Load_Encached Natural_Cache
0686 00e1 | | Load_Encached Boolean_Cache
0687 00e1 | | Load_Encached Boolean_Cache
0688 e003 | | Load 0x0,0x3
0689 1b10 | | Execute Package,Field_Read,Field_Number 0x10
068a e409 | | Load 0x2,0x9
068b e408 | | Load 0x2,0x8
068c e405 | | Load 0x2,0x5
068d e043 | C | Load 0x0,0x43
068e 1816 | | Execute Package,Field_Execute,Field_Number 0x16
068f c40a | | Store 0x2,0xa
0690 c40b | | Store 0x2,0xb
0691 c40c | | Store 0x2,0xc
0692 c403 | | Store 0x2,0x3
0693 c40d | | Store 0x2,0xd
0694 c410 | | Store 0x2,0x10
0695 c40f | | Store 0x2,0xf
0696 e40d | | Load 0x2,0xd
0697 7003 |p | Jump_Nonzero 0x69b
0698 4800 |H | Short_Literal 0x0
0699 a404 | | Store_Unchecked 0x2,0x4
069a 782a |x* | Jump 0x6c5
069b e003 | | Load 0x0,0x3
069c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
069d e406 | | Load 0x2,0x6
069e 4800 |H | Short_Literal 0x0
069f 4801 |H | Short_Literal 0x1
06a0 e40d | | Load 0x2,0xd
06a1 0a02 | | Execute_Immediate Plus,0x2
06a2 e003 | | Load 0x0,0x3
06a3 1b11 | | Execute Package,Field_Read,Field_Number 0x11
06a4 00d9 | | Load_Top At_Offset_1
06a5 00d0 | | Action Swap_Control
06a6 0260 | ` | Execute Discrete,In_Type
06a7 7001 |p | Jump_Nonzero 0x6a9
06a8 0801 | | Execute_Immediate Raise,0x1
06a9 e410 | | Load 0x2,0x10
06aa e40f | | Load 0x2,0xf
06ab 0273 | s | Execute Discrete,Plus
06ac 00d8 | | Load_Top At_Offset_0
06ad 00e3 | | Load_Encached Natural_Cache
06ae 0260 | ` | Execute Discrete,In_Type
06af 7001 |p | Jump_Nonzero 0x6b1
06b0 0801 | | Execute_Immediate Raise,0x1
06b1 e405 | | Load 0x2,0x5
06b2 e043 | C | Load 0x0,0x43
06b3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06b4 c40e | | Store 0x2,0xe
06b5 e40e | | Load 0x2,0xe
06b6 7003 |p | Jump_Nonzero 0x6ba
06b7 4800 |H | Short_Literal 0x0
06b8 a404 | | Store_Unchecked 0x2,0x4
06b9 780b |x | Jump 0x6c5
06ba 00e2 | | Load_Encached Integer_Cache
06bb e40c | | Load 0x2,0xc
06bc e40b | | Load 0x2,0xb
06bd e40f | | Load 0x2,0xf
06be e410 | | Load 0x2,0x10
06bf e40d | | Load 0x2,0xd
06c0 e40e | | Load 0x2,0xe
06c1 e405 | | Load 0x2,0x5
06c2 e043 | C | Load 0x0,0x43
06c3 181a | | Execute Package,Field_Execute,Field_Number 0x1a
06c4 c404 | | Store 0x2,0x4
06c5 e402 | | Load 0x2,0x2
06c6 a5fb | | Store_Unchecked 0x2,-0x5
06c7 e403 | | Load 0x2,0x3
06c8 a5fa | | Store_Unchecked 0x2,-0x6
06c9 e404 | | Load 0x2,0x4
06ca a5f9 | | Store_Unchecked 0x2,-0x7
06cb 4801 |H | Short_Literal 0x1
06cc a5fe | | Store_Unchecked 0x2,-0x2
06cd 4801 |H | Short_Literal 0x1
06ce a5fd | | Store_Unchecked 0x2,-0x3
06cf 4502 |E | Exit_Suprogram New_Top_Offset 0x2
06d0 TRAP_0628:
06d0 0007 | | Action Break_Optional
06d1 4800 |H | Short_Literal 0x0
06d2 a5fc | | Store_Unchecked 0x2,-0x4
06d3 4800 |H | Short_Literal 0x0
06d4 a5fb | | Store_Unchecked 0x2,-0x5
06d5 600a |` | Indirect_Literal Discrete,0x6e0,{0x00000000, 0x7fffffff}
06d6 a5fa | | Store_Unchecked 0x2,-0x6
06d7 4800 |H | Short_Literal 0x0
06d8 a5f9 | | Store_Unchecked 0x2,-0x7
06d9 4800 |H | Short_Literal 0x0
06da a5fe | | Store_Unchecked 0x2,-0x2
06db 4801 |H | Short_Literal 0x1
06dc a5fd | | Store_Unchecked 0x2,-0x3
06dd 4502 |E | Exit_Suprogram New_Top_Offset 0x2
06de 0000 0000 | | .XXX[0x2]
06e0 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
06e4 0000 0000 | | .BLANK 0000[0x4]
06e8 ; --------------------------------------------------------------------------------------
06e8 ; SUBPROGRAM
06e8 ; --------------------------------------------------------------------------------------
06e8 06fa | | .CONST 0x06fa ; Address of begin
06e9 0004 | | .CONST 0x0004 ; Address of exception handler
06ea 0004 | | .CONST 0x0004 ; Number of locals
06eb INIT_06e8:
06eb e006 | | Load 0x0,0x6
06ec 0322 | " | Declare_Variable Record
06ed e5fe | | Load 0x2,-0x2
06ee e5ff | | Load 0x2,-0x1
06ef 8044 | D | Call 0x0,0x44
06f0 00d9 | | Load_Top At_Offset_1
06f1 017d | } | Execute Record,Structure_Write
06f2 e020 | | Load 0x0,0x20
06f3 0322 | " | Declare_Variable Record
06f4 00d8 | | Load_Top At_Offset_0
06f5 1c00 | | Execute_Immediate Run_Utility,0x0
06f6 e004 | | Load 0x0,0x4
06f7 0322 | " | Declare_Variable Record
06f8 00d8 | | Load_Top At_Offset_0
06f9 1c00 | | Execute_Immediate Run_Utility,0x0
06fa BODY_06e8:
06fa 00d9 | | Load_Top At_Offset_1
06fb 00db | | Load_Top At_Offset_3
06fc 8045 | E | Call 0x0,0x45
06fd 00d1 | | Pop_Control Pop_Count_1
06fe 00d8 | | Load_Top At_Offset_0
06ff 00da | | Load_Top At_Offset_2
0700 8046 | F | Call 0x0,0x46
0701 00d1 | | Pop_Control Pop_Count_1
0702 4801 |H | Short_Literal 0x1
0703 00d9 | | Load_Top At_Offset_1
0704 8047 | G | Call 0x0,0x47
0705 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0706 0000 0000 | | .XXX[0x2]
0708 ; --------------------------------------------------------------------------------------
0708 ; SUBPROGRAM
0708 ; --------------------------------------------------------------------------------------
0708 070b | | .CONST 0x070b ; Address of begin
0709 0004 | | .CONST 0x0004 ; Address of exception handler
070a 0001 | | .CONST 0x0001 ; Number of locals
070b BODY_0708:
070b INIT_0708:
070b 00da | | Load_Top At_Offset_2
070c 8215 | | Call 0x1,0x15
070d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
070e 0000 0000 | | .XXX[0x2]
0710 ; --------------------------------------------------------------------------------------
0710 ; SUBPROGRAM
0710 ; --------------------------------------------------------------------------------------
0710 0713 | | .CONST 0x0713 ; Address of begin
0711 0004 | | .CONST 0x0004 ; Address of exception handler
0712 0001 | | .CONST 0x0001 ; Number of locals
0713 BODY_0710:
0713 INIT_0710:
0713 00da | | Load_Top At_Offset_2
0714 8216 | | Call 0x1,0x16
0715 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0716 0000 0000 | | .XXX[0x2]
0718 ; --------------------------------------------------------------------------------------
0718 ; SUBPROGRAM
0718 ; --------------------------------------------------------------------------------------
0718 071b | | .CONST 0x071b ; Address of begin
0719 0004 | | .CONST 0x0004 ; Address of exception handler
071a 0001 | | .CONST 0x0001 ; Number of locals
071b BODY_0718:
071b INIT_0718:
071b 00da | | Load_Top At_Offset_2
071c 00e0 | | Load_Encached Standard_Cache
071d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
071e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
071f 0000 | | .XXX[0x1]
0720 ; --------------------------------------------------------------------------------------
0720 ; SUBPROGRAM
0720 ; --------------------------------------------------------------------------------------
0720 0723 | # | .CONST 0x0723 ; Address of begin
0721 0004 | | .CONST 0x0004 ; Address of exception handler
0722 0001 | | .CONST 0x0001 ; Number of locals
0723 BODY_0720:
0723 INIT_0720:
0723 6004 |` | Indirect_Literal Discrete,0x728,{0xffffffff, 0x80000001}
0724 00ca | | Action Exit_Nullary_Function
0725 0000 0000 | | .XXX[0x3]
0727 0000 | |
0728 ffff ffff | | .LITERAL {0xffffffff, 0x80000001}
072c 0000 0000 | | .BLANK 0000[0x4]
0730 ; --------------------------------------------------------------------------------------
0730 ; SUBPROGRAM
0730 ; --------------------------------------------------------------------------------------
0730 074a | J | .CONST 0x074a ; Address of begin
0731 0004 | | .CONST 0x0004 ; Address of exception handler
0732 0009 | | .CONST 0x0009 ; Number of locals
0733 INIT_0730:
0733 e020 | | Load 0x0,0x20
0734 0322 | " | Declare_Variable Record
0735 00d8 | | Load_Top At_Offset_0
0736 1c00 | | Execute_Immediate Run_Utility,0x0
0737 e006 | | Load 0x0,0x6
0738 0322 | " | Declare_Variable Record
0739 e003 | | Load 0x0,0x3
073a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
073b e003 | | Load 0x0,0x3
073c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
073d e003 | | Load 0x0,0x3
073e 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
073f 02c7 | | Declare_Variable Any
0740 00d8 | | Load_Top At_Offset_0
0741 1c00 | | Execute_Immediate Run_Utility,0x0
0742 e003 | | Load 0x0,0x3
0743 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
0744 02c7 | | Declare_Variable Any
0745 00d8 | | Load_Top At_Offset_0
0746 1c00 | | Execute_Immediate Run_Utility,0x0
0747 00e3 | | Load_Encached Natural_Cache
0748 029f 0903 | | Declare_Subprogram INIT_0900,For_Call
074a BODY_0730:
074a e5fc | | Load 0x2,-0x4
074b e009 | | Load 0x0,0x9
074c 00e3 | | Load_Encached Natural_Cache
074d e003 | | Load 0x0,0x3
074e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
074f 00e1 | | Load_Encached Boolean_Cache
0750 e406 | | Load 0x2,0x6
0751 0120 | | Execute Any,Is_Value
0752 6803 |h | Jump_Zero 0x756
0753 e003 | | Load 0x0,0x3
0754 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
0755 7801 |x | Jump 0x757
0756 e406 | | Load 0x2,0x6
0757 00e3 | | Load_Encached Natural_Cache
0758 e407 | | Load 0x2,0x7
0759 0120 | | Execute Any,Is_Value
075a 6803 |h | Jump_Zero 0x75e
075b e003 | | Load 0x0,0x3
075c 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
075d 7801 |x | Jump 0x75f
075e e407 | | Load 0x2,0x7
075f e003 | | Load 0x0,0x3
0760 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0761 e007 | | Load 0x0,0x7
0762 e403 | | Load 0x2,0x3
0763 e402 | | Load 0x2,0x2
0764 e5fe | | Load 0x2,-0x2
0765 00d8 | | Load_Top At_Offset_0
0766 00e4 | | Load_Encached Positive_Cache
0767 0260 | ` | Execute Discrete,In_Type
0768 7001 |p | Jump_Nonzero 0x76a
0769 0801 | | Execute_Immediate Raise,0x1
076a e5ff | | Load 0x2,-0x1
076b 8048 | H | Call 0x0,0x48
076c 00d2 | | Pop_Control Pop_Count_2
076d e5fd | | Load 0x2,-0x3
076e 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
076f c404 | | Store 0x2,0x4
0770 c407 | | Store 0x2,0x7
0771 e5fd | | Load 0x2,-0x3
0772 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0773 c406 | | Store 0x2,0x6
0774 e5fd | | Load 0x2,-0x3
0775 380c |8 | Execute Record,Field_Write,Field_Number 0xc
0776 c405 | | Store 0x2,0x5
0777 c408 | | Store 0x2,0x8
0778 e5fd | | Load 0x2,-0x3
0779 380b |8 | Execute Record,Field_Write,Field_Number 0xb
077a c5fc | | Store 0x2,-0x4
077b e5fe | | Load 0x2,-0x2
077c e5fd | | Load 0x2,-0x3
077d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
077e 00d9 | | Load_Top At_Offset_1
077f e5fd | | Load 0x2,-0x3
0780 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0781 e403 | | Load 0x2,0x3
0782 e5fd | | Load 0x2,-0x3
0783 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0784 e404 | | Load 0x2,0x4
0785 8029 | ) | Call 0x0,0x29
0786 e5fd | | Load 0x2,-0x3
0787 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0788 e405 | | Load 0x2,0x5
0789 8029 | ) | Call 0x0,0x29
078a e5fd | | Load 0x2,-0x3
078b 380a |8 | Execute Record,Field_Write,Field_Number 0xa
078c 00db | | Load_Top At_Offset_3
078d 8221 | ! | Call 0x1,0x21
078e e5fd | | Load 0x2,-0x3
078f 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0790 00da | | Load_Top At_Offset_2
0791 8221 | ! | Call 0x1,0x21
0792 e5fd | | Load 0x2,-0x3
0793 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0794 8409 | | Call 0x2,0x9
0795 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0796 0000 0000 | | .XXX[0x2]
0798 ; --------------------------------------------------------------------------------------
0798 ; SUBPROGRAM
0798 ; --------------------------------------------------------------------------------------
0798 079b | | .CONST 0x079b ; Address of begin
0799 0004 | | .CONST 0x0004 ; Address of exception handler
079a 0001 | | .CONST 0x0001 ; Number of locals
079b BODY_0798:
079b INIT_0798:
079b 8049 | I | Call 0x0,0x49
079c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
079d 0000 0000 | | .XXX[0x3]
079f 0000 | |
07a0 ; --------------------------------------------------------------------------------------
07a0 ; SUBPROGRAM
07a0 ; --------------------------------------------------------------------------------------
07a0 07a5 | | .CONST 0x07a5 ; Address of begin
07a1 0004 | | .CONST 0x0004 ; Address of exception handler
07a2 0002 | | .CONST 0x0002 ; Number of locals
07a3 INIT_07a0:
07a3 e002 | | Load 0x0,0x2
07a4 1b15 | | Execute Package,Field_Read,Field_Number 0x15
07a5 BODY_07a0:
07a5 00db | | Load_Top At_Offset_3
07a6 e00d | | Load 0x0,0xd
07a7 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
07a8 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
07a9 00d8 | | Load_Top At_Offset_0
07aa 8016 | | Call 0x0,0x16
07ab 6804 |h | Jump_Zero 0x7b0
07ac 00db | | Load_Top At_Offset_3
07ad e00d | | Load 0x0,0xd
07ae 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
07af 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
07b0 00d8 | | Load_Top At_Offset_0
07b1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07b2 0000 0000 | | .BLANK 0000[0x6]
07b8 ; --------------------------------------------------------------------------------------
07b8 ; SUBPROGRAM
07b8 ; --------------------------------------------------------------------------------------
07b8 07bb | | .CONST 0x07bb ; Address of begin
07b9 0004 | | .CONST 0x0004 ; Address of exception handler
07ba 0001 | | .CONST 0x0001 ; Number of locals
07bb BODY_07b8:
07bb INIT_07b8:
07bb 00da | | Load_Top At_Offset_2
07bc e5fe | | Load 0x2,-0x2
07bd 027f | | Execute Discrete,Equal
07be 7004 |p | Jump_Nonzero 0x7c3
07bf 00da | | Load_Top At_Offset_2
07c0 8012 | | Call 0x0,0x12
07c1 027f | | Execute Discrete,Equal
07c2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
07c3 4801 |H | Short_Literal 0x1
07c4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
07c5 0000 0000 | | .XXX[0x3]
07c7 0000 | |
07c8 ; --------------------------------------------------------------------------------------
07c8 ; SUBPROGRAM
07c8 ; --------------------------------------------------------------------------------------
07c8 07d7 | | .CONST 0x07d7 ; Address of begin
07c9 0004 | | .CONST 0x0004 ; Address of exception handler
07ca 0005 | | .CONST 0x0005 ; Number of locals
07cb INIT_07c8:
07cb e238 | 8 | Load 0x1,0x38
07cc 0322 | " | Declare_Variable Record
07cd 00d8 | | Load_Top At_Offset_0
07ce 1c00 | | Execute_Immediate Run_Utility,0x0
07cf e022 | " | Load 0x0,0x22
07d0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07d1 02c7 | | Declare_Variable Any
07d2 00d8 | | Load_Top At_Offset_0
07d3 1c00 | | Execute_Immediate Run_Utility,0x0
07d4 00e1 | | Load_Encached Boolean_Cache
07d5 029f 0923 | #| Declare_Subprogram INIT_0920,For_Call
07d7 BODY_07c8:
07d7 e5ff | | Load 0x2,-0x1
07d8 e402 | | Load 0x2,0x2
07d9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
07da 4803 |H | Short_Literal 0x3
07db e402 | | Load 0x2,0x2
07dc 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
07dd e5ff | | Load 0x2,-0x1
07de e003 | | Load 0x0,0x3
07df 1842 | B | Execute Package,Field_Execute,Field_Number 0x42
07e0 e402 | | Load 0x2,0x2
07e1 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
07e2 8405 | | Call 0x2,0x5
07e3 e013 | | Load 0x0,0x13
07e4 e402 | | Load 0x2,0x2
07e5 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
07e6 4800 |H | Short_Literal 0x0
07e7 e402 | | Load 0x2,0x2
07e8 380a |8 | Execute Record,Field_Write,Field_Number 0xa
07e9 e014 | | Load 0x0,0x14
07ea e402 | | Load 0x2,0x2
07eb 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
07ec 4801 |H | Short_Literal 0x1
07ed e402 | | Load 0x2,0x2
07ee 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
07ef 8015 | | Call 0x0,0x15
07f0 e402 | | Load 0x2,0x2
07f1 380b |8 | Execute Record,Field_Write,Field_Number 0xb
07f2 8010 | | Call 0x0,0x10
07f3 e402 | | Load 0x2,0x2
07f4 380c |8 | Execute Record,Field_Write,Field_Number 0xc
07f5 00e2 | | Load_Encached Integer_Cache
07f6 00e1 | | Load_Encached Boolean_Cache
07f7 e5ff | | Load 0x2,-0x1
07f8 e00d | | Load 0x0,0xd
07f9 181e | | Execute Package,Field_Execute,Field_Number 0x1e
07fa 005b | [ | Store_Top Discrete,At_Offset_3
07fb e402 | | Load 0x2,0x2
07fc 380d |8 | Execute Record,Field_Write,Field_Number 0xd
07fd 00e3 | | Load_Encached Natural_Cache
07fe 00e1 | | Load_Encached Boolean_Cache
07ff 00e1 | | Load_Encached Boolean_Cache
0800 e5ff | | Load 0x2,-0x1
0801 e00d | | Load 0x0,0xd
0802 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0803 c404 | | Store 0x2,0x4
0804 e402 | | Load 0x2,0x2
0805 380f |8 | Execute Record,Field_Write,Field_Number 0xf
0806 e402 | | Load 0x2,0x2
0807 380e |8 | Execute Record,Field_Write,Field_Number 0xe
0808 e5ff | | Load 0x2,-0x1
0809 e00d | | Load 0x0,0xd
080a 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
080b e402 | | Load 0x2,0x2
080c 3810 |8 | Execute Record,Field_Write,Field_Number 0x10
080d 00db | | Load_Top At_Offset_3
080e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
080f 0000 | | .XXX[0x1]
0810 ; --------------------------------------------------------------------------------------
0810 ; SUBPROGRAM
0810 ; --------------------------------------------------------------------------------------
0810 0823 | # | .CONST 0x0823 ; Address of begin
0811 0004 | | .CONST 0x0004 ; Address of exception handler
0812 0007 | | .CONST 0x0007 ; Number of locals
0813 INIT_0810:
0813 e238 | 8 | Load 0x1,0x38
0814 0322 | " | Declare_Variable Record
0815 00d8 | | Load_Top At_Offset_0
0816 1c00 | | Execute_Immediate Run_Utility,0x0
0817 e022 | " | Load 0x0,0x22
0818 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0819 02c7 | | Declare_Variable Any
081a 00d8 | | Load_Top At_Offset_0
081b 1c00 | | Execute_Immediate Run_Utility,0x0
081c 00e1 | | Load_Encached Boolean_Cache
081d 029f 095b | [| Declare_Subprogram INIT_0958,For_Call
081f 029f 0993 | | Declare_Subprogram INIT_0990,For_Call
0821 029f 09ab | | Declare_Subprogram INIT_09a8,For_Call
0823 BODY_0810:
0823 e5ff | | Load 0x2,-0x1
0824 e402 | | Load 0x2,0x2
0825 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0826 e5ff | | Load 0x2,-0x1
0827 804a | J | Call 0x0,0x4a
0828 e402 | | Load 0x2,0x2
0829 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
082a e5ff | | Load 0x2,-0x1
082b e003 | | Load 0x0,0x3
082c 1842 | B | Execute Package,Field_Execute,Field_Number 0x42
082d e402 | | Load 0x2,0x2
082e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
082f 8405 | | Call 0x2,0x5
0830 8406 | | Call 0x2,0x6
0831 8407 | | Call 0x2,0x7
0832 e5ff | | Load 0x2,-0x1
0833 804b | K | Call 0x0,0x4b
0834 8029 | ) | Call 0x0,0x29
0835 e402 | | Load 0x2,0x2
0836 380b |8 | Execute Record,Field_Write,Field_Number 0xb
0837 e5ff | | Load 0x2,-0x1
0838 804c | L | Call 0x0,0x4c
0839 e402 | | Load 0x2,0x2
083a 380c |8 | Execute Record,Field_Write,Field_Number 0xc
083b 00e2 | | Load_Encached Integer_Cache
083c 00e1 | | Load_Encached Boolean_Cache
083d e5ff | | Load 0x2,-0x1
083e e00d | | Load 0x0,0xd
083f 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0840 c404 | | Store 0x2,0x4
0841 e402 | | Load 0x2,0x2
0842 380d |8 | Execute Record,Field_Write,Field_Number 0xd
0843 00e3 | | Load_Encached Natural_Cache
0844 00e1 | | Load_Encached Boolean_Cache
0845 00e1 | | Load_Encached Boolean_Cache
0846 e5ff | | Load 0x2,-0x1
0847 e00d | | Load 0x0,0xd
0848 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0849 c404 | | Store 0x2,0x4
084a e402 | | Load 0x2,0x2
084b 380f |8 | Execute Record,Field_Write,Field_Number 0xf
084c e402 | | Load 0x2,0x2
084d 380e |8 | Execute Record,Field_Write,Field_Number 0xe
084e e5ff | | Load 0x2,-0x1
084f e00d | | Load 0x0,0xd
0850 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0851 e402 | | Load 0x2,0x2
0852 3810 |8 | Execute Record,Field_Write,Field_Number 0x10
0853 e402 | | Load 0x2,0x2
0854 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0855 0000 0000 | | .XXX[0x3]
0857 0000 | |
0858 ; --------------------------------------------------------------------------------------
0858 ; SUBPROGRAM
0858 ; --------------------------------------------------------------------------------------
0858 085b | [ | .CONST 0x085b ; Address of begin
0859 0004 | | .CONST 0x0004 ; Address of exception handler
085a 0001 | | .CONST 0x0001 ; Number of locals
085b BODY_0858:
085b INIT_0858:
085b 00da | | Load_Top At_Offset_2
085c 0f03 | | Execute_Immediate Equal,0x3
085d 7004 |p | Jump_Nonzero 0x862
085e 00da | | Load_Top At_Offset_2
085f e5fe | | Load 0x2,-0x2
0860 027f | | Execute Discrete,Equal
0861 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0862 4801 |H | Short_Literal 0x1
0863 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0864 0000 0000 | | .BLANK 0000[0x4]
0868 ; --------------------------------------------------------------------------------------
0868 ; SUBPROGRAM
0868 ; --------------------------------------------------------------------------------------
0868 086b | k | .CONST 0x086b ; Address of begin
0869 0872 | r | .CONST 0x0872 ; Address of exception handler
086a 0001 | | .CONST 0x0001 ; Number of locals
086b BODY_0868:
086b INIT_0868:
086b e404 | | Load 0x2,0x4
086c 804d | M | Call 0x0,0x4d
086d a5fd | | Store_Unchecked 0x2,-0x3
086e e5fe | | Load 0x2,-0x2
086f e403 | | Load 0x2,0x3
0870 8046 | F | Call 0x0,0x46
0871 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0872 TRAP_0868:
0872 e04e | N | Load 0x0,0x4e
0873 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0874 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0875 010f | | Execute Exception,Equal
0876 6807 |h | Jump_Zero 0x87e
0877 e5fa | | Load 0x2,-0x6
0878 0092 0a33 | 3| Action Push_String_Extended,0xa33 ; "Obsolete Unit"
087a e022 | " | Load 0x0,0x22
087b 1815 | | Execute Package,Field_Execute,Field_Number 0x15
087c c5fa | | Store 0x2,-0x6
087d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
087e 0100 | | Execute Exception,Raise
087f 0000 | | .XXX[0x1]
0880 ; --------------------------------------------------------------------------------------
0880 ; SUBPROGRAM
0880 ; --------------------------------------------------------------------------------------
0880 0883 | | .CONST 0x0883 ; Address of begin
0881 088a | | .CONST 0x088a ; Address of exception handler
0882 0001 | | .CONST 0x0001 ; Number of locals
0883 BODY_0880:
0883 INIT_0880:
0883 e406 | | Load 0x2,0x6
0884 804d | M | Call 0x0,0x4d
0885 a5f7 | | Store_Unchecked 0x2,-0x9
0886 e5f8 | | Load 0x2,-0x8
0887 e405 | | Load 0x2,0x5
0888 8046 | F | Call 0x0,0x46
0889 4501 |E | Exit_Suprogram New_Top_Offset 0x1
088a TRAP_0880:
088a 0007 | | Action Break_Optional
088b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
088c 0000 0000 | | .BLANK 0000[0x4]
0890 ; --------------------------------------------------------------------------------------
0890 ; SUBPROGRAM
0890 ; --------------------------------------------------------------------------------------
0890 0893 | | .CONST 0x0893 ; Address of begin
0891 0004 | | .CONST 0x0004 ; Address of exception handler
0892 0001 | | .CONST 0x0001 ; Number of locals
0893 BODY_0890:
0893 INIT_0890:
0893 e7fd | | Load 0x3,-0x3
0894 00d8 | | Load_Top At_Offset_0
0895 00e2 | | Load_Encached Integer_Cache
0896 0260 | ` | Execute Discrete,In_Type
0897 7001 |p | Jump_Nonzero 0x899
0898 0801 | | Execute_Immediate Raise,0x1
0899 e7fe | | Load 0x3,-0x2
089a e7ff | | Load 0x3,-0x1
089b e002 | | Load 0x0,0x2
089c 1b15 | | Execute Package,Field_Read,Field_Number 0x15
089d 00d9 | | Load_Top At_Offset_1
089e 00d0 | | Action Swap_Control
089f 0260 | ` | Execute Discrete,In_Type
08a0 7001 |p | Jump_Nonzero 0x8a2
08a1 0801 | | Execute_Immediate Raise,0x1
08a2 8255 | U | Call 0x1,0x55
08a3 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
08a4 0000 0000 | | .BLANK 0000[0x4]
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 e5fa | | Load 0x2,-0x6
08ac 4603 |F | Jump_Case 0x4
08ad 7807 |x | Jump 0x8b5 ; case 0x0
08ae 780f |x | Jump 0x8be ; case 0x1
08af 7817 |x | Jump 0x8c7 ; case 0x2
08b0 7800 |x | Jump 0x8b1 ; case 0x3
08b1 00db | | Load_Top At_Offset_3
08b2 00db | | Load_Top At_Offset_3
08b3 85fd | | Call 0x2,-0x3
08b4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
08b5 00da | | Load_Top At_Offset_2
08b6 8243 | C | Call 0x1,0x43
08b7 6804 |h | Jump_Zero 0x8bc
08b8 00db | | Load_Top At_Offset_3
08b9 00db | | Load_Top At_Offset_3
08ba 85fd | | Call 0x2,-0x3
08bb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
08bc 4800 |H | Short_Literal 0x0
08bd 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
08be 00da | | Load_Top At_Offset_2
08bf 8243 | C | Call 0x1,0x43
08c0 7004 |p | Jump_Nonzero 0x8c5
08c1 00db | | Load_Top At_Offset_3
08c2 00db | | Load_Top At_Offset_3
08c3 85fd | | Call 0x2,-0x3
08c4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
08c5 4800 |H | Short_Literal 0x0
08c6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
08c7 4800 |H | Short_Literal 0x0
08c8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
08c9 0000 0000 | | .BLANK 0000[0x7]
08d0 ; --------------------------------------------------------------------------------------
08d0 ; SUBPROGRAM
08d0 ; --------------------------------------------------------------------------------------
08d0 08d5 | | .CONST 0x08d5 ; Address of begin
08d1 0004 | | .CONST 0x0004 ; Address of exception handler
08d2 0002 | | .CONST 0x0002 ; Number of locals
08d3 INIT_08d0:
08d3 e20f | | Load 0x1,0xf
08d4 0007 | | Action Break_Optional
08d5 BODY_08d0:
08d5 e402 | | Load 0x2,0x2
08d6 8037 | 7 | Call 0x0,0x37
08d7 6802 |h | Jump_Zero 0x8da
08d8 8213 | | Call 0x1,0x13
08d9 00ca | | Action Exit_Nullary_Function
08da e402 | | Load 0x2,0x2
08db 8035 | 5 | Call 0x0,0x35
08dc 8218 | | Call 0x1,0x18
08dd 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
08de e402 | | Load 0x2,0x2
08df 8036 | 6 | Call 0x0,0x36
08e0 c402 | | Store 0x2,0x2
08e1 e5ff | | Load 0x2,-0x1
08e2 4603 |F | Jump_Case 0x4
08e3 7807 |x | Jump 0x8eb ; case 0x0
08e4 780f |x | Jump 0x8f4 ; case 0x1
08e5 7817 |x | Jump 0x8fd ; case 0x2
08e6 7800 |x | Jump 0x8e7 ; case 0x3
08e7 00d8 | | Load_Top At_Offset_0
08e8 8403 | | Call 0x2,0x3
08e9 01ca | | Execute Vector,Prepend
08ea 00ca | | Action Exit_Nullary_Function
08eb 00d8 | | Load_Top At_Offset_0
08ec 8243 | C | Call 0x1,0x43
08ed 6804 |h | Jump_Zero 0x8f2
08ee 00d8 | | Load_Top At_Offset_0
08ef 8403 | | Call 0x2,0x3
08f0 01ca | | Execute Vector,Prepend
08f1 00ca | | Action Exit_Nullary_Function
08f2 8403 | | Call 0x2,0x3
08f3 00ca | | Action Exit_Nullary_Function
08f4 00d8 | | Load_Top At_Offset_0
08f5 8243 | C | Call 0x1,0x43
08f6 7004 |p | Jump_Nonzero 0x8fb
08f7 00d8 | | Load_Top At_Offset_0
08f8 8403 | | Call 0x2,0x3
08f9 01ca | | Execute Vector,Prepend
08fa 00ca | | Action Exit_Nullary_Function
08fb 8403 | | Call 0x2,0x3
08fc 00ca | | Action Exit_Nullary_Function
08fd 8403 | | Call 0x2,0x3
08fe 00ca | | Action Exit_Nullary_Function
08ff 0000 | | .XXX[0x1]
0900 ; --------------------------------------------------------------------------------------
0900 ; SUBPROGRAM
0900 ; --------------------------------------------------------------------------------------
0900 0903 | | .CONST 0x0903 ; Address of begin
0901 090c | | .CONST 0x090c ; Address of exception handler
0902 0001 | | .CONST 0x0001 ; Number of locals
0903 BODY_0900:
0903 INIT_0900:
0903 e403 | | Load 0x2,0x3
0904 804d | M | Call 0x0,0x4d
0905 e5fd | | Load 0x2,-0x3
0906 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0907 e5fd | | Load 0x2,-0x3
0908 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0909 e402 | | Load 0x2,0x2
090a 8046 | F | Call 0x0,0x46
090b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
090c TRAP_0900:
090c e04e | N | Load 0x0,0x4e
090d 1b11 | | Execute Package,Field_Read,Field_Number 0x11
090e 1b12 | | Execute Package,Field_Read,Field_Number 0x12
090f 010f | | Execute Exception,Equal
0910 6807 |h | Jump_Zero 0x918
0911 e5fc | | Load 0x2,-0x4
0912 0092 0a34 | 4| Action Push_String_Extended,0xa34 ; "Program has been recompiled since debugger started"
0914 e022 | " | Load 0x0,0x22
0915 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0916 c5fc | | Store 0x2,-0x4
0917 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0918 0100 | | Execute Exception,Raise
0919 0000 0000 | | .BLANK 0000[0x7]
0920 ; --------------------------------------------------------------------------------------
0920 ; SUBPROGRAM
0920 ; --------------------------------------------------------------------------------------
0920 0923 | # | .CONST 0x0923 ; Address of begin
0921 0937 | 7 | .CONST 0x0937 ; Address of exception handler
0922 0001 | | .CONST 0x0001 ; Number of locals
0923 BODY_0920:
0923 INIT_0920:
0923 e403 | | Load 0x2,0x3
0924 e402 | | Load 0x2,0x2
0925 3c11 |< | Execute Record,Field_Read,Field_Number 0x11
0926 00e1 | | Load_Encached Boolean_Cache
0927 e005 | | Load 0x0,0x5
0928 e402 | | Load 0x2,0x2
0929 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
092a e5ff | | Load 0x2,-0x1
092b 8225 | % | Call 0x1,0x25
092c 00d1 | | Pop_Control Pop_Count_1
092d e402 | | Load 0x2,0x2
092e 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
092f e402 | | Load 0x2,0x2
0930 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0931 00d1 | | Pop_Control Pop_Count_1
0932 c403 | | Store 0x2,0x3
0933 4800 |H | Short_Literal 0x0
0934 e402 | | Load 0x2,0x2
0935 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0936 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0937 TRAP_0920:
0937 e04e | N | Load 0x0,0x4e
0938 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0939 1b12 | | Execute Package,Field_Read,Field_Number 0x12
093a 010f | | Execute Exception,Equal
093b 6814 |h | Jump_Zero 0x950
093c e013 | | Load 0x0,0x13
093d e402 | | Load 0x2,0x2
093e 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
093f e014 | | Load 0x0,0x14
0940 e402 | | Load 0x2,0x2
0941 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0942 4800 |H | Short_Literal 0x0
0943 e402 | | Load 0x2,0x2
0944 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0945 e402 | | Load 0x2,0x2
0946 3c11 |< | Execute Record,Field_Read,Field_Number 0x11
0947 4820 |H | Short_Literal 0x20
0948 4800 |H | Short_Literal 0x0
0949 e00e | | Load 0x0,0xe
094a 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
094b 00d1 | | Pop_Control Pop_Count_1
094c 4801 |H | Short_Literal 0x1
094d e402 | | Load 0x2,0x2
094e 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
094f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0950 0100 | | Execute Exception,Raise
0951 0000 0000 | | .BLANK 0000[0x7]
0958 ; --------------------------------------------------------------------------------------
0958 ; SUBPROGRAM
0958 ; --------------------------------------------------------------------------------------
0958 095b | [ | .CONST 0x095b ; Address of begin
0959 096f | o | .CONST 0x096f ; Address of exception handler
095a 0001 | | .CONST 0x0001 ; Number of locals
095b BODY_0958:
095b INIT_0958:
095b e403 | | Load 0x2,0x3
095c e402 | | Load 0x2,0x2
095d 3c11 |< | Execute Record,Field_Read,Field_Number 0x11
095e 00e1 | | Load_Encached Boolean_Cache
095f e005 | | Load 0x0,0x5
0960 e402 | | Load 0x2,0x2
0961 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0962 e5ff | | Load 0x2,-0x1
0963 8225 | % | Call 0x1,0x25
0964 00d1 | | Pop_Control Pop_Count_1
0965 e402 | | Load 0x2,0x2
0966 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0967 e402 | | Load 0x2,0x2
0968 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0969 00d1 | | Pop_Control Pop_Count_1
096a c403 | | Store 0x2,0x3
096b 4800 |H | Short_Literal 0x0
096c e402 | | Load 0x2,0x2
096d 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
096e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
096f TRAP_0958:
096f e04e | N | Load 0x0,0x4e
0970 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0971 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0972 010f | | Execute Exception,Equal
0973 6814 |h | Jump_Zero 0x988
0974 e013 | | Load 0x0,0x13
0975 e402 | | Load 0x2,0x2
0976 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0977 e014 | | Load 0x0,0x14
0978 e402 | | Load 0x2,0x2
0979 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
097a 4800 |H | Short_Literal 0x0
097b e402 | | Load 0x2,0x2
097c 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
097d e402 | | Load 0x2,0x2
097e 3c11 |< | Execute Record,Field_Read,Field_Number 0x11
097f 4820 |H | Short_Literal 0x20
0980 4800 |H | Short_Literal 0x0
0981 e00e | | Load 0x0,0xe
0982 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0983 00d1 | | Pop_Control Pop_Count_1
0984 4801 |H | Short_Literal 0x1
0985 e402 | | Load 0x2,0x2
0986 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0987 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0988 0100 | | Execute Exception,Raise
0989 0000 0000 | | .BLANK 0000[0x7]
0990 ; --------------------------------------------------------------------------------------
0990 ; SUBPROGRAM
0990 ; --------------------------------------------------------------------------------------
0990 0993 | | .CONST 0x0993 ; Address of begin
0991 0999 | | .CONST 0x0999 ; Address of exception handler
0992 0001 | | .CONST 0x0001 ; Number of locals
0993 BODY_0990:
0993 INIT_0990:
0993 e402 | | Load 0x2,0x2
0994 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0995 e5ff | | Load 0x2,-0x1
0996 804f | O | Call 0x0,0x4f
0997 8046 | F | Call 0x0,0x46
0998 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0999 TRAP_0990:
0999 e04e | N | Load 0x0,0x4e
099a 1b11 | | Execute Package,Field_Read,Field_Number 0x11
099b 1b12 | | Execute Package,Field_Read,Field_Number 0x12
099c 010f | | Execute Exception,Equal
099d 6804 |h | Jump_Zero 0x9a2
099e e013 | | Load 0x0,0x13
099f e402 | | Load 0x2,0x2
09a0 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
09a1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
09a2 0100 | | Execute Exception,Raise
09a3 0000 0000 | | .BLANK 0000[0x5]
09a8 ; --------------------------------------------------------------------------------------
09a8 ; SUBPROGRAM
09a8 ; --------------------------------------------------------------------------------------
09a8 09ab | | .CONST 0x09ab ; Address of begin
09a9 09b8 | | .CONST 0x09b8 ; Address of exception handler
09aa 0001 | | .CONST 0x0001 ; Number of locals
09ab BODY_09a8:
09ab INIT_09a8:
09ab e5ff | | Load 0x2,-0x1
09ac 8050 | P | Call 0x0,0x50
09ad 804d | M | Call 0x0,0x4d
09ae e402 | | Load 0x2,0x2
09af 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
09b0 e5ff | | Load 0x2,-0x1
09b1 8051 | Q | Call 0x0,0x51
09b2 e402 | | Load 0x2,0x2
09b3 380a |8 | Execute Record,Field_Write,Field_Number 0xa
09b4 4800 |H | Short_Literal 0x0
09b5 e402 | | Load 0x2,0x2
09b6 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
09b7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
09b8 TRAP_09a8:
09b8 e04e | N | Load 0x0,0x4e
09b9 1b11 | | Execute Package,Field_Read,Field_Number 0x11
09ba 1b12 | | Execute Package,Field_Read,Field_Number 0x12
09bb 010f | | Execute Exception,Equal
09bc 680a |h | Jump_Zero 0x9c7
09bd 4800 |H | Short_Literal 0x0
09be e402 | | Load 0x2,0x2
09bf 380a |8 | Execute Record,Field_Write,Field_Number 0xa
09c0 e014 | | Load 0x0,0x14
09c1 e402 | | Load 0x2,0x2
09c2 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
09c3 4801 |H | Short_Literal 0x1
09c4 e402 | | Load 0x2,0x2
09c5 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
09c6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
09c7 0100 | | Execute Exception,Raise
09c8 ; --------------------------------------------------------------------------------------
09c8 ; SUBPROGRAM
09c8 ; --------------------------------------------------------------------------------------
09c8 09cb | | .CONST 0x09cb ; Address of begin
09c9 0004 | | .CONST 0x0004 ; Address of exception handler
09ca 0001 | | .CONST 0x0001 ; Number of locals
09cb BODY_09c8:
09cb INIT_09c8:
09cb 4601 |F | Jump_Case 0x2
09cc 7801 |x | Jump 0x9ce ; case 0x0
09cd 7810 |x | Jump 0x9de ; case 0x1
09ce 00da | | Load_Top At_Offset_2
09cf 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
09d0 1c00 | | Execute_Immediate Run_Utility,0x0
09d1 00da | | Load_Top At_Offset_2
09d2 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
09d3 0125 | % | Execute Any,Set_Constraint
09d4 00da | | Load_Top At_Offset_2
09d5 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
09d6 1c00 | | Execute_Immediate Run_Utility,0x0
09d7 00da | | Load_Top At_Offset_2
09d8 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9
09d9 0125 | % | Execute Any,Set_Constraint
09da 00da | | Load_Top At_Offset_2
09db 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9
09dc 1c00 | | Execute_Immediate Run_Utility,0x0
09dd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
09de 00da | | Load_Top At_Offset_2
09df 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
09e0 1c01 | | Execute_Immediate Run_Utility,0x1
09e1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
09e2 0000 0000 | | .BLANK 0000[0x6]
09e8 ; --------------------------------------------------------------------------------------
09e8 ; SUBPROGRAM
09e8 ; --------------------------------------------------------------------------------------
09e8 09eb | | .CONST 0x09eb ; Address of begin
09e9 0004 | | .CONST 0x0004 ; Address of exception handler
09ea 0001 | | .CONST 0x0001 ; Number of locals
09eb BODY_09e8:
09eb INIT_09e8:
09eb 4601 |F | Jump_Case 0x2
09ec 7801 |x | Jump 0x9ee ; case 0x0
09ed 7804 |x | Jump 0x9f2 ; case 0x1
09ee 00da | | Load_Top At_Offset_2
09ef 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
09f0 1c00 | | Execute_Immediate Run_Utility,0x0
09f1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
09f2 00da | | Load_Top At_Offset_2
09f3 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
09f4 1c01 | | Execute_Immediate Run_Utility,0x1
09f5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
09f6 0000 0000 | | .XXX[0x2]
09f8 ; --------------------------------------------------------------------------------------
09f8 ; SUBPROGRAM
09f8 ; --------------------------------------------------------------------------------------
09f8 09fb | | .CONST 0x09fb ; Address of begin
09f9 0004 | | .CONST 0x0004 ; Address of exception handler
09fa 0001 | | .CONST 0x0001 ; Number of locals
09fb BODY_09f8:
09fb INIT_09f8:
09fb 4601 |F | Jump_Case 0x2
09fc 7801 |x | Jump 0x9fe ; case 0x0
09fd 780d |x | Jump 0xa0b ; case 0x1
09fe 00da | | Load_Top At_Offset_2
09ff 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0a00 1c00 | | Execute_Immediate Run_Utility,0x0
0a01 00da | | Load_Top At_Offset_2
0a02 3408 |4 | Execute Record,Field_Reference,Field_Number 0x8
0a03 1c00 | | Execute_Immediate Run_Utility,0x0
0a04 00da | | Load_Top At_Offset_2
0a05 3411 |4 | Execute Record,Field_Reference,Field_Number 0x11
0a06 0125 | % | Execute Any,Set_Constraint
0a07 00da | | Load_Top At_Offset_2
0a08 3411 |4 | Execute Record,Field_Reference,Field_Number 0x11
0a09 1c00 | | Execute_Immediate Run_Utility,0x0
0a0a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0a0b 00da | | Load_Top At_Offset_2
0a0c 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0a0d 1c01 | | Execute_Immediate Run_Utility,0x1
0a0e 00da | | Load_Top At_Offset_2
0a0f 3408 |4 | Execute Record,Field_Reference,Field_Number 0x8
0a10 1c01 | | Execute_Immediate Run_Utility,0x1
0a11 00da | | Load_Top At_Offset_2
0a12 3411 |4 | Execute Record,Field_Reference,Field_Number 0x11
0a13 0125 | % | Execute Any,Set_Constraint
0a14 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0a15 ; --------------------------------------------------------------------------------------
0a15 ; STRING TABLE
0a15 ; --------------------------------------------------------------------------------------
0a15 0042 | B | .STRTAB 0x0042->0x0a36 ; "BREAK"
0a16 0045 | E | .STRTAB 0x0045->0x0a38 ; "CREATION_STOP"
0a17 0050 | P | .STRTAB 0x0050->0x0a3f ; "CREATION_TRACE"
0a18 005c | \ | .STRTAB 0x005c->0x0a46 ; "STEP"
0a19 005e | ^ | .STRTAB 0x005e->0x0a48 ; "EXCEPTION_CAUGHT"
0a1a 006c | l | .STRTAB 0x006c->0x0a50 ; "TRACE"
0a1b 006f | o | .STRTAB 0x006f->0x0a52 ; "INSTRUCTION_STEP"
0a1c 007d | } | .STRTAB 0x007d->0x0a5a ; "HOLD"
0a1d 007f | | .STRTAB 0x007f->0x0a5c ; "STOP"
0a1e 0081 | | .STRTAB 0x0081->0x0a5e ; "TEMPORARY_STOP"
0a1f 008d | | .STRTAB 0x008d->0x0a65 ; "UNKNOWN"
0a20 0092 | | .STRTAB 0x0092->0x0a69 ; "USER_BREAK"
0a21 009a | | .STRTAB 0x009a->0x0a6e ; "NONE"
0a22 009c | | .STRTAB 0x009c->0x0a70 ; "STOPPED"
0a23 00a1 | | .STRTAB 0x00a1->0x0a73 ; "RUNNING"
0a24 00a6 | | .STRTAB 0x00a6->0x0a77 ; "TERMINATED"
0a25 00ae | | .STRTAB 0x00ae->0x0a7c ; "UNKNOWN"
0a26 00b3 | | .STRTAB 0x00b3->0x0a7f ; "INFORM"
0a27 00b7 | | .STRTAB 0x00b7->0x0a82 ; "STOP"
0a28 00b9 | | .STRTAB 0x00b9->0x0a84 ; "NONE"
0a29 00bb | | .STRTAB 0x00bb->0x0a86 ; "CONTINUE"
0a2a 00c1 | | .STRTAB 0x00c1->0x0a8a ; "CONTINUE_IGNORE"
0a2b 00ce | | .STRTAB 0x00ce->0x0a92 ; "NONE"
0a2c 00d0 | | .STRTAB 0x00d0->0x0a94 ; "FREEZE_TASKS"
0a2d 00da | | .STRTAB 0x00da->0x0a9a ; "TRUE"
0a2e 00dc | | .STRTAB 0x00dc->0x0a9c ; "CACHE_STACK_FRAMES"
0a2f 00ec | | .STRTAB 0x00ec->0x0aa5 ; ", Lex ="
0a30 00f1 | | .STRTAB 0x00f1->0x0aa8 ; ", Outer = "
0a31 00f9 | | .STRTAB 0x00f9->0x0aad ; "Exception in Get_One_Task_State: "
0a32 0118 | | .STRTAB 0x0118->0x0abe ; "all"
0a33 0119 | | .STRTAB 0x0119->0x0abf ; "Obsolete Unit"
0a34 0124 | $ | .STRTAB 0x0124->0x0ac6 ; "Program has been recompiled since debugger started"
0a35 0154 | T | .STREND 0x0154->0x0adf
0a36 4252 4541 |BREA| .STRTAB_STRINGS
0adf 0000 | | .XXX[0x1]
0ae0 ; --------------------------------------------------------------------------------------
0ae0 ; Debug Table
0ae0 ; --------------------------------------------------------------------------------------
0ae0 0004 000d | | .DEBUG4 0x0004,0x000d,0x7d75,0x0000,0x0001,0x0000
0ae6 0000 0008 | | .XXX[0xa1]
0ae8 0000 00b1 | |
0aea 039b ab13 | |
0aec a3cb 8329 | )|
0aee 020b 1ba3 | |
0af0 4bb3 4ba3 |K K |
0af2 cafa a3cb | |
0af4 8328 0000 | ( |
0af6 00c8 0000 | |
0af8 008b 33ab | 3 |
0afa 731b a34b |s K|
0afc 7b71 020b |{q |
0afe 1ba3 4bb3 | K |
0b00 4ba3 c800 |K |
0b02 0000 c000 | |
0b04 0000 9103 | |
0b06 33ab 731b |3 s |
0b08 a34b 7b71 | K{q|
0b0a 020b 1ba3 | |
0b0c 4bb3 4ba3 |K K |
0b0e c800 0000 | |
0b10 c000 0000 | |
0b12 9103 33ab | 3 |
0b14 731b a34b |s K|
0b16 7b71 020b |{q |
0b18 1ba3 4bb3 | K |
0b1a 4ba3 c800 |K |
0b1c 0001 6000 | ` |
0b1e 0000 f383 | |
0b20 937b 1b2b | { +|
0b22 23ab 9329 |# )|
0b24 029b 2ba2 | + |
0b26 fa23 2b33 | #+3|
0b28 0bab 63a2 | c |
0b2a fa0b 1ba3 | |
0b2c 4bb3 4ba3 |K K |
0b2e c800 0001 | |
0b30 5800 0000 |X |
0b32 f903 8393 | |
0b34 7b1b 2b23 |{ +#|
0b36 ab93 2902 | ) |
0b38 9b2b a2fa | + |
0b3a 232b 330b |#+3 |
0b3c ab63 a2fa | c |
0b3e 0b1b a34b | K|
0b40 b34b a3c8 | K |
0b42 0000 0158 | X|
0b44 0000 00f9 | |
0b46 0383 937b | {|
0b48 1b2b 23ab | +# |
0b4a 9329 029b | ) |
0b4c 2ba2 fa23 |+ #|
0b4e 2b33 0bab |+3 |
0b50 63a2 fa0b |c |
0b52 1ba3 4bb3 | K |
0b54 4ba3 c800 |K |
0b56 0002 6000 | ` |
0b58 0000 ba83 | |
0b5a 937b 532b | {S+|
0b5c 1ba1 026b | k|
0b5e 0b73 0b3b | s ;|
0b60 2b6b 2b73 |+k+s|
0b62 a101 4282 | B |
0b64 6948 0000 |iH |
0b66 0258 0000 | X |
0b68 00c1 0283 | |
0b6a 937b 532b | {S+|
0b6c 1ba1 026b | k|
0b6e 0b73 0b3b | s ;|
0b70 2b6b 2b73 |+k+s|
0b72 a101 4282 | B |
0b74 6948 0000 |iH |
0b76 0258 0000 | X |
0b78 00c1 0283 | |
0b7a 937b 532b | {S+|
0b7c 1ba1 026b | k|
0b7e 0b73 0b3b | s ;|
0b80 2b6b 2b73 |+k+s|
0b82 a101 4282 | B |
0b84 6948 0000 |iH |
0b86 0008 | |
0b87 0000 0000 | | .BLANK 0000[0x5]
0b8c 0320 0000 | | .XXX[0x7]
0b8e 0000 0000 | |
0b90 0318 0000 | |
0b92 0008 | |
0b93 0000 0000 | | .BLANK 0000[0x5]
0b98 0328 0000 | ( | .XXX[0x7]
0b9a 0000 0000 | |
0b9c 0320 0000 | |
0b9e 0008 | |
0b9f 0000 0000 | | .BLANK 0000[0x5]
0ba4 0330 0000 | 0 | .XXX[0x35]
0ba6 0000 0000 | |
0ba8 0328 0000 | ( |
0baa 0340 0000 | @ |
0bac 011a 0373 | s|
0bae 7b23 2901 |{#) |
0bb0 0aa3 7b7b | {{|
0bb2 6399 7283 |c r |
0bb4 937b 334b | {3K|
0bb6 6329 7223 |c)r#|
0bb8 2b33 0bab |+3 |
0bba 63a2 fa33 |c 3|
0bbc 4b63 a32b |Kc +|
0bbe 9000 0003 | |
0bc0 4800 0000 |H |
0bc2 2373 7b23 |#s{#|
0bc4 2800 0003 |( |
0bc6 7000 0000 |p |
0bc8 e90a a37b | {|
0bca 7b63 9972 |{c r|
0bcc 8393 7b33 | {3|
0bce 4b63 2972 |Kc)r|
0bd0 232b 330b |#+3 |
0bd2 ab63 a2fa | c |
0bd4 334b 63a3 |3Kc |
0bd6 2b90 0000 |+ |
0bd8 0008 | |
0bd9 0000 0000 | | .BLANK 0000[0x5]
0bde 0060 0000 | ` | .XXX[0x22]
0be0 0000 0000 | |
0be2 0058 0000 | X |
0be4 0070 0000 | p |
0be6 016a 232b | j#+|
0be8 330b ab63 |3 c|
0bea a2fa 334b | 3K|
0bec 63a3 2b91 |c + |
0bee 01d1 031b | |
0bf0 7b73 9ba3 |{s |
0bf2 0b73 a102 | s |
0bf4 637b 3afa |c{: |
0bf6 334b 63a3 |3Kc |
0bf8 2b91 01d1 |+ |
0bfa e902 33ab | 3 |
0bfc 6361 d800 |ca |
0bfe 0000 6800 | h |