|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 4096 (0x1000) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_11cacfe
└─⟦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 0790 | | .CONST 0x0790 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 8004 | | .CONST 0x8004 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 01eb | | .CONST 0x01eb ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 00e4 | | .CONST 0x00e4 ; Number of locals 000b INIT_0008: 000b 00e2 | | Load_Encached Integer_Cache 000c 0129 | ) | Execute Any,Make_Visible 000d 00c4 | | Action Make_Default 000e 00c4 | | Action Make_Default 000f 00c4 | | Action Make_Default 0010 00c4 | | Action Make_Default 0011 00c4 | | Action Make_Default 0012 e001 | | Load 0x0,0x1 0013 0129 | ) | Execute Any,Make_Visible 0014 c210 | | Store 0x1,0x10 0015 e002 | | Load 0x0,0x2 0016 0129 | ) | Execute Any,Make_Visible 0017 c211 | | Store 0x1,0x11 0018 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated 001a c212 | | Store 0x1,0x12 001b 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated 001d c20f | | Store 0x1,0xf 001e 00bf | | Action Accept_Activation 001f 4803 |H | Short_Literal 0x3 0020 4803 |H | Short_Literal 0x3 0021 e003 | | Load 0x0,0x3 0022 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0023 03f8 | | Declare_Type Discrete,Constrained 0024 e004 | | Load 0x0,0x4 0025 1b3e | > | Execute Package,Field_Read,Field_Number 0x3e 0026 e004 | | Load 0x0,0x4 0027 1b4a | J | Execute Package,Field_Read,Field_Number 0x4a 0028 4800 |H | Short_Literal 0x0 0029 e004 | | Load 0x0,0x4 002a 1b4a | J | Execute Package,Field_Read,Field_Number 0x4a 002b 1c08 | | Execute_Immediate Run_Utility,0x8 002c 00d8 | | Load_Top At_Offset_0 002d 1c01 | | Execute_Immediate Run_Utility,0x1 002e 029b 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Unelaborated 0030 e005 | | Load 0x0,0x5 0031 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0032 02a0 | | Declare_Subprogram Null_Subprogram 0033 4800 |H | Short_Literal 0x0 0034 032d | - | Declare_Type Record,Defined 0035 e006 | | Load 0x0,0x6 0036 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0037 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0038 e215 | | Load 0x1,0x15 0039 029f 0243 | C| Declare_Subprogram INIT_0240,For_Call 003b 4802 |H | Short_Literal 0x2 003c 032d | - | Declare_Type Record,Defined 003d 4900 |I | Short_Literal 0x100 003e e007 | | Load 0x0,0x7 003f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0040 1c07 | | Execute_Immediate Run_Utility,0x7 0041 e215 | | Load 0x1,0x15 0042 029f 025b | [| Declare_Subprogram INIT_0258,For_Call 0044 4802 |H | Short_Literal 0x2 0045 032d | - | Declare_Type Record,Defined 0046 4900 |I | Short_Literal 0x100 0047 e007 | | Load 0x0,0x7 0048 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0049 1c07 | | Execute_Immediate Run_Utility,0x7 004a 4900 |I | Short_Literal 0x100 004b e007 | | Load 0x0,0x7 004c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 004d 1c07 | | Execute_Immediate Run_Utility,0x7 004e 029f 027b | {| Declare_Subprogram INIT_0278,For_Call 0050 4802 |H | Short_Literal 0x2 0051 032d | - | Declare_Type Record,Defined 0052 4900 |I | Short_Literal 0x100 0053 e007 | | Load 0x0,0x7 0054 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0055 1c07 | | Execute_Immediate Run_Utility,0x7 0056 4900 |I | Short_Literal 0x100 0057 e007 | | Load 0x0,0x7 0058 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0059 1c07 | | Execute_Immediate Run_Utility,0x7 005a 00e1 | | Load_Encached Boolean_Cache 005b e215 | | Load 0x1,0x15 005c 029f 02a3 | | Declare_Subprogram INIT_02a0,For_Call 005e 4804 |H | Short_Literal 0x4 005f 032d | - | Declare_Type Record,Defined 0060 4900 |I | Short_Literal 0x100 0061 e007 | | Load 0x0,0x7 0062 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0063 1c07 | | Execute_Immediate Run_Utility,0x7 0064 e006 | | Load 0x0,0x6 0065 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0066 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0067 029f 02cb | | Declare_Subprogram INIT_02c8,For_Call 0069 4802 |H | Short_Literal 0x2 006a 032d | - | Declare_Type Record,Defined 006b 4900 |I | Short_Literal 0x100 006c e007 | | Load 0x0,0x7 006d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 006e 1c07 | | Execute_Immediate Run_Utility,0x7 006f e006 | | Load 0x0,0x6 0070 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0071 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0072 029f 02eb | | Declare_Subprogram INIT_02e8,For_Call 0074 4802 |H | Short_Literal 0x2 0075 032d | - | Declare_Type Record,Defined 0076 00e1 | | Load_Encached Boolean_Cache 0077 e004 | | Load 0x0,0x4 0078 1b4a | J | Execute Package,Field_Read,Field_Number 0x4a 0079 029f 030b | | Declare_Subprogram INIT_0308,For_Call 007b 4802 |H | Short_Literal 0x2 007c 032d | - | Declare_Type Record,Defined 007d 00e3 | | Load_Encached Natural_Cache 007e 4900 |I | Short_Literal 0x100 007f e007 | | Load 0x0,0x7 0080 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0081 1c07 | | Execute_Immediate Run_Utility,0x7 0082 e215 | | Load 0x1,0x15 0083 029f 0323 | #| Declare_Subprogram INIT_0320,For_Call 0085 4800 |H | Short_Literal 0x0 0086 4802 |H | Short_Literal 0x2 0087 4800 |H | Short_Literal 0x0 0088 4800 |H | Short_Literal 0x0 0089 4801 |H | Short_Literal 0x1 008a 031d | | Declare_Type Variant_Record,Defined 008b e008 | | Load 0x0,0x8 008c e009 | | Load 0x0,0x9 008d e004 | | Load 0x0,0x4 008e 1b3e | > | Execute Package,Field_Read,Field_Number 0x3e 008f e00a | | Load 0x0,0xa 0090 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 0091 0387 | | Declare_Variable Package 0092 00d8 | | Load_Top At_Offset_0 0093 020f | | Execute Module,Activate 0094 e00a | | Load 0x0,0xa 0095 1927 | ' | Execute Package,Field_Reference,Field_Number 0x27 0096 0007 | | Action Break_Optional 0097 e00a | | Load 0x0,0xa 0098 1926 | & | Execute Package,Field_Reference,Field_Number 0x26 0099 0007 | | Action Break_Optional 009a 00da | | Load_Top At_Offset_2 009b 1910 | | Execute Package,Field_Reference,Field_Number 0x10 009c 0007 | | Action Break_Optional 009d e00a | | Load 0x0,0xa 009e 1920 | | Execute Package,Field_Reference,Field_Number 0x20 009f 0007 | | Action Break_Optional 00a0 029d 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call 00a2 029d 035b | [| Declare_Subprogram INIT_0358,For_Outer_Call 00a4 029d 036b | k| Declare_Subprogram INIT_0368,For_Outer_Call 00a6 029d 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call 00a8 029d 038b | | Declare_Subprogram INIT_0388,For_Outer_Call 00aa 029d 039b | | Declare_Subprogram INIT_0398,For_Outer_Call 00ac 029d 03a3 | | Declare_Subprogram INIT_03a0,For_Outer_Call 00ae 029d 03ab | | Declare_Subprogram INIT_03a8,For_Outer_Call 00b0 029d 03bb | | Declare_Subprogram INIT_03b8,For_Outer_Call 00b2 029d 03cb | | Declare_Subprogram INIT_03c8,For_Outer_Call 00b4 029d 03db | | Declare_Subprogram INIT_03d8,For_Outer_Call 00b6 029d 03f3 | | Declare_Subprogram INIT_03f0,For_Outer_Call 00b8 029d 040b | | Declare_Subprogram INIT_0408,For_Outer_Call 00ba 029d 0423 | #| Declare_Subprogram INIT_0420,For_Outer_Call 00bc 029d 043b | ;| Declare_Subprogram INIT_0438,For_Outer_Call 00be 029d 044b | K| Declare_Subprogram INIT_0448,For_Outer_Call 00c0 029d 045b | [| Declare_Subprogram INIT_0458,For_Outer_Call 00c2 e005 | | Load 0x0,0x5 00c3 1913 | | Execute Package,Field_Reference,Field_Number 0x13 00c4 00c6 | | Action Check_Subprogram_Elaborated 00c5 e007 | | Load 0x0,0x7 00c6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00c7 e21a | | Load 0x1,0x1a 00c8 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 00c9 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 00ca 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37 00cb e00b | | Load 0x0,0xb 00cc e00c | | Load 0x0,0xc 00cd 4800 |H | Short_Literal 0x0 00ce 0007 | | Action Break_Optional 00cf 029d 047b | {| Declare_Subprogram INIT_0478,For_Outer_Call 00d1 e005 | | Load 0x0,0x5 00d2 1913 | | Execute Package,Field_Reference,Field_Number 0x13 00d3 00c6 | | Action Check_Subprogram_Elaborated 00d4 e21e | | Load 0x1,0x1e 00d5 e215 | | Load 0x1,0x15 00d6 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33 00d7 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e 00d8 1d40 | @ | Execute_Immediate Reference_Lex_1,0x40 00d9 e00d | | Load 0x0,0xd 00da e00e | | Load 0x0,0xe 00db 4800 |H | Short_Literal 0x0 00dc 0007 | | Action Break_Optional 00dd 029d 049b | | Declare_Subprogram INIT_0498,For_Outer_Call 00df e005 | | Load 0x0,0x5 00e0 1913 | | Execute Package,Field_Reference,Field_Number 0x13 00e1 00c6 | | Action Check_Subprogram_Elaborated 00e2 e007 | | Load 0x0,0x7 00e3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00e4 e21b | | Load 0x1,0x1b 00e5 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 00e6 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 00e7 1d49 | I | Execute_Immediate Reference_Lex_1,0x49 00e8 e00f | | Load 0x0,0xf 00e9 e010 | | Load 0x0,0x10 00ea 4800 |H | Short_Literal 0x0 00eb 0007 | | Action Break_Optional 00ec 029d 04c3 | | Declare_Subprogram INIT_04c0,For_Outer_Call 00ee e005 | | Load 0x0,0x5 00ef 1913 | | Execute Package,Field_Reference,Field_Number 0x13 00f0 00c6 | | Action Check_Subprogram_Elaborated 00f1 e007 | | Load 0x0,0x7 00f2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00f3 e215 | | Load 0x1,0x15 00f4 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 00f5 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e 00f6 1d52 | R | Execute_Immediate Reference_Lex_1,0x52 00f7 e011 | | Load 0x0,0x11 00f8 e012 | | Load 0x0,0x12 00f9 4800 |H | Short_Literal 0x0 00fa 0007 | | Action Break_Optional 00fb 029d 04db | | Declare_Subprogram INIT_04d8,For_Outer_Call 00fd e005 | | Load 0x0,0x5 00fe 1913 | | Execute Package,Field_Reference,Field_Number 0x13 00ff 00c6 | | Action Check_Subprogram_Elaborated 0100 e007 | | Load 0x0,0x7 0101 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0102 e220 | | Load 0x1,0x20 0103 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 0104 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35 0105 1d5b | [ | Execute_Immediate Reference_Lex_1,0x5b 0106 e013 | | Load 0x0,0x13 0107 e014 | | Load 0x0,0x14 0108 4800 |H | Short_Literal 0x0 0109 0007 | | Action Break_Optional 010a 029d 04fb | | Declare_Subprogram INIT_04f8,For_Outer_Call 010c e005 | | Load 0x0,0x5 010d 1913 | | Execute Package,Field_Reference,Field_Number 0x13 010e 00c6 | | Action Check_Subprogram_Elaborated 010f e007 | | Load 0x0,0x7 0110 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0111 e21a | | Load 0x1,0x1a 0112 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 0113 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 0114 1d64 | d | Execute_Immediate Reference_Lex_1,0x64 0115 e015 | | Load 0x0,0x15 0116 e016 | | Load 0x0,0x16 0117 4800 |H | Short_Literal 0x0 0118 0007 | | Action Break_Optional 0119 029d 051b | | Declare_Subprogram INIT_0518,For_Outer_Call 011b e005 | | Load 0x0,0x5 011c 1913 | | Execute Package,Field_Reference,Field_Number 0x13 011d 00c6 | | Action Check_Subprogram_Elaborated 011e e007 | | Load 0x0,0x7 011f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0120 e21a | | Load 0x1,0x1a 0121 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 0122 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 0123 1d6d | m | Execute_Immediate Reference_Lex_1,0x6d 0124 e017 | | Load 0x0,0x17 0125 e018 | | Load 0x0,0x18 0126 4800 |H | Short_Literal 0x0 0127 0007 | | Action Break_Optional 0128 029d 053b | ;| Declare_Subprogram INIT_0538,For_Outer_Call 012a e005 | | Load 0x0,0x5 012b 1913 | | Execute Package,Field_Reference,Field_Number 0x13 012c 00c6 | | Action Check_Subprogram_Elaborated 012d e007 | | Load 0x0,0x7 012e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 012f e221 | ! | Load 0x1,0x21 0130 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 0131 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36 0132 1d76 | v | Execute_Immediate Reference_Lex_1,0x76 0133 e019 | | Load 0x0,0x19 0134 e01a | | Load 0x0,0x1a 0135 4800 |H | Short_Literal 0x0 0136 0007 | | Action Break_Optional 0137 029d 0553 | S| Declare_Subprogram INIT_0550,For_Outer_Call 0139 e005 | | Load 0x0,0x5 013a 1912 | | Execute Package,Field_Reference,Field_Number 0x12 013b 00c6 | | Action Check_Subprogram_Elaborated 013c e219 | | Load 0x1,0x19 013d e21b | | Load 0x1,0x1b 013e 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d 013f 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 0140 1d7f | | Execute_Immediate Reference_Lex_1,0x7f 0141 e01b | | Load 0x0,0x1b 0142 e01c | | Load 0x0,0x1c 0143 4800 |H | Short_Literal 0x0 0144 0007 | | Action Break_Optional 0145 029d 0573 | s| Declare_Subprogram INIT_0570,For_Outer_Call 0147 e005 | | Load 0x0,0x5 0148 1912 | | Execute Package,Field_Reference,Field_Number 0x12 0149 00c6 | | Action Check_Subprogram_Elaborated 014a e219 | | Load 0x1,0x19 014b e21b | | Load 0x1,0x1b 014c 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d 014d 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 014e 1d88 | | Execute_Immediate Reference_Lex_1,0x88 014f e01d | | Load 0x0,0x1d 0150 e01e | | Load 0x0,0x1e 0151 4800 |H | Short_Literal 0x0 0152 0007 | | Action Break_Optional 0153 029d 0593 | | Declare_Subprogram INIT_0590,For_Outer_Call 0155 e005 | | Load 0x0,0x5 0156 1913 | | Execute Package,Field_Reference,Field_Number 0x13 0157 00c6 | | Action Check_Subprogram_Elaborated 0158 e007 | | Load 0x0,0x7 0159 1b0e | | Execute Package,Field_Read,Field_Number 0xe 015a e215 | | Load 0x1,0x15 015b 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 015c 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e 015d 1d91 | | Execute_Immediate Reference_Lex_1,0x91 015e e01f | | Load 0x0,0x1f 015f e020 | | Load 0x0,0x20 0160 4800 |H | Short_Literal 0x0 0161 0007 | | Action Break_Optional 0162 029d 05ab | | Declare_Subprogram INIT_05a8,For_Outer_Call 0164 e005 | | Load 0x0,0x5 0165 1913 | | Execute Package,Field_Reference,Field_Number 0x13 0166 00c6 | | Action Check_Subprogram_Elaborated 0167 e007 | | Load 0x0,0x7 0168 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0169 e215 | | Load 0x1,0x15 016a 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 016b 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e 016c 1d9a | | Execute_Immediate Reference_Lex_1,0x9a 016d e021 | ! | Load 0x0,0x21 016e e022 | " | Load 0x0,0x22 016f 4800 |H | Short_Literal 0x0 0170 0007 | | Action Break_Optional 0171 029d 05c3 | | Declare_Subprogram INIT_05c0,For_Outer_Call 0173 e005 | | Load 0x0,0x5 0174 1912 | | Execute Package,Field_Reference,Field_Number 0x12 0175 00c6 | | Action Check_Subprogram_Elaborated 0176 e219 | | Load 0x1,0x19 0177 e215 | | Load 0x1,0x15 0178 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d 0179 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e 017a 1da3 | | Execute_Immediate Reference_Lex_1,0xa3 017b e023 | # | Load 0x0,0x23 017c e024 | $ | Load 0x0,0x24 017d 4800 |H | Short_Literal 0x0 017e 0007 | | Action Break_Optional 017f 029d 05db | | Declare_Subprogram INIT_05d8,For_Outer_Call 0181 e005 | | Load 0x0,0x5 0182 1913 | | Execute Package,Field_Reference,Field_Number 0x13 0183 00c6 | | Action Check_Subprogram_Elaborated 0184 e007 | | Load 0x0,0x7 0185 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0186 e215 | | Load 0x1,0x15 0187 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 0188 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e 0189 1dac | | Execute_Immediate Reference_Lex_1,0xac 018a e025 | % | Load 0x0,0x25 018b e026 | & | Load 0x0,0x26 018c 4800 |H | Short_Literal 0x0 018d 0007 | | Action Break_Optional 018e 029d 05f3 | | Declare_Subprogram INIT_05f0,For_Outer_Call 0190 e005 | | Load 0x0,0x5 0191 1913 | | Execute Package,Field_Reference,Field_Number 0x13 0192 00c6 | | Action Check_Subprogram_Elaborated 0193 e007 | | Load 0x0,0x7 0194 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0195 e21d | | Load 0x1,0x1d 0196 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 0197 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32 0198 1db5 | | Execute_Immediate Reference_Lex_1,0xb5 0199 e027 | ' | Load 0x0,0x27 019a e028 | ( | Load 0x0,0x28 019b 4800 |H | Short_Literal 0x0 019c 0007 | | Action Break_Optional 019d 029d 061b | | Declare_Subprogram INIT_0618,For_Outer_Call 019f e005 | | Load 0x0,0x5 01a0 1913 | | Execute Package,Field_Reference,Field_Number 0x13 01a1 00c6 | | Action Check_Subprogram_Elaborated 01a2 e007 | | Load 0x0,0x7 01a3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01a4 e21b | | Load 0x1,0x1b 01a5 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 01a6 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 01a7 1dbe | | Execute_Immediate Reference_Lex_1,0xbe 01a8 e029 | ) | Load 0x0,0x29 01a9 e02a | * | Load 0x0,0x2a 01aa 4800 |H | Short_Literal 0x0 01ab 0007 | | Action Break_Optional 01ac 029d 063b | ;| Declare_Subprogram INIT_0638,For_Outer_Call 01ae e005 | | Load 0x0,0x5 01af 1913 | | Execute Package,Field_Reference,Field_Number 0x13 01b0 00c6 | | Action Check_Subprogram_Elaborated 01b1 e007 | | Load 0x0,0x7 01b2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01b3 e21b | | Load 0x1,0x1b 01b4 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 01b5 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 01b6 1dc7 | | Execute_Immediate Reference_Lex_1,0xc7 01b7 e02b | + | Load 0x0,0x2b 01b8 e02c | , | Load 0x0,0x2c 01b9 4800 |H | Short_Literal 0x0 01ba 0007 | | Action Break_Optional 01bb 029d 065b | [| Declare_Subprogram INIT_0658,For_Outer_Call 01bd e005 | | Load 0x0,0x5 01be 1913 | | Execute Package,Field_Reference,Field_Number 0x13 01bf 00c6 | | Action Check_Subprogram_Elaborated 01c0 e21c | | Load 0x1,0x1c 01c1 e215 | | Load 0x1,0x15 01c2 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31 01c3 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e 01c4 1dd0 | | Execute_Immediate Reference_Lex_1,0xd0 01c5 e02d | - | Load 0x0,0x2d 01c6 e02e | . | Load 0x0,0x2e 01c7 4800 |H | Short_Literal 0x0 01c8 0007 | | Action Break_Optional 01c9 029d 066b | k| Declare_Subprogram INIT_0668,For_Outer_Call 01cb e005 | | Load 0x0,0x5 01cc 1913 | | Execute Package,Field_Reference,Field_Number 0x13 01cd 00c6 | | Action Check_Subprogram_Elaborated 01ce e21f | | Load 0x1,0x1f 01cf e215 | | Load 0x1,0x15 01d0 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34 01d1 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e 01d2 1dd9 | | Execute_Immediate Reference_Lex_1,0xd9 01d3 e02f | / | Load 0x0,0x2f 01d4 e030 | 0 | Load 0x0,0x30 01d5 4800 |H | Short_Literal 0x0 01d6 0007 | | Action Break_Optional 01d7 029d 0683 | | Declare_Subprogram INIT_0680,For_Outer_Call 01d9 029d 077b | {| Declare_Subprogram INIT_0778,For_Outer_Call 01db e031 | 1 | Load 0x0,0x31 01dc e032 | 2 | Load 0x0,0x32 01dd 4803 |H | Short_Literal 0x3 01de 4803 |H | Short_Literal 0x3 01df 1de2 | | Execute_Immediate Reference_Lex_1,0xe2 01e0 e005 | | Load 0x0,0x5 01e1 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 01e2 0387 | | Declare_Variable Package 01e3 00d8 | | Load_Top At_Offset_0 01e4 020f | | Execute Module,Activate 01e5 1d12 | | Execute_Immediate Reference_Lex_1,0x12 01e6 00c7 | | Action Elaborate_Subprogram 01e7 1d0f | | Execute_Immediate Reference_Lex_1,0xf 01e8 00c7 | | Action Elaborate_Subprogram 01e9 1d17 | | Execute_Immediate Reference_Lex_1,0x17 01ea 00c7 | | Action Elaborate_Subprogram 01eb BODY_0008: 01eb 00bc | | Action Signal_Activated 01ec 00bb | | Action Signal_Completion 01ed 0000 0000 | | .XXX[0x3] 01ef 0000 | | 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01f6 | | .CONST 0x01f6 ; Address of begin 01f1 020a | | .CONST 0x020a ; Address of exception handler 01f2 0002 | | .CONST 0x0002 ; Number of locals 01f3 INIT_01f0: 01f3 e005 | | Load 0x0,0x5 01f4 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01f5 0337 | 7 | Declare_Variable Array 01f6 BODY_01f0: 01f6 00db | | Load_Top At_Offset_3 01f7 e007 | | Load 0x0,0x7 01f8 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01f9 e004 | | Load 0x0,0x4 01fa 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a 01fb e5fe | | Load 0x2,-0x2 01fc e007 | | Load 0x0,0x7 01fd 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01fe e004 | | Load 0x0,0x4 01ff 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b 0200 00d8 | | Load_Top At_Offset_0 0201 6016 |` | Indirect_Literal Discrete,0x218,{0x00007fff, 0xffffffff} 0202 4800 |H | Short_Literal 0x0 0203 e2e4 | | Load 0x1,0xe4 0204 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0205 00d1 | | Pop_Control Pop_Count_1 0206 00d8 | | Load_Top At_Offset_0 0207 82e3 | | Call 0x1,0xe3 0208 a5fd | | Store_Unchecked 0x2,-0x3 0209 4503 |E | Exit_Suprogram New_Top_Offset 0x3 020a TRAP_01f0: 020a e033 | 3 | Load 0x0,0x33 020b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 020c 010f | | Execute Exception,Equal 020d 6802 |h | Jump_Zero 0x210 020e e211 | | Load 0x1,0x11 020f 0257 | W | Execute Discrete,Raise 0210 e005 | | Load 0x0,0x5 0211 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0212 010f | | Execute Exception,Equal 0213 6802 |h | Jump_Zero 0x216 0214 e210 | | Load 0x1,0x10 0215 0257 | W | Execute Discrete,Raise 0216 0100 | | Execute Exception,Raise 0217 0000 | | .XXX[0x1] 0218 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff} 021c 0000 0000 | | .BLANK 0000[0x4] 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 e2e4 | | Load 0x1,0xe4 0224 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0225 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0226 0000 0000 | | .XXX[0x2] 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 4801 |H | Short_Literal 0x1 022c e004 | | Load 0x0,0x4 022d 1b4a | J | Execute Package,Field_Read,Field_Number 0x4a 022e 1c08 | | Execute_Immediate Run_Utility,0x8 022f 00d8 | | Load_Top At_Offset_0 0230 1c01 | | Execute_Immediate Run_Utility,0x1 0231 4900 |I | Short_Literal 0x100 0232 e5ff | | Load 0x2,-0x1 0233 e007 | | Load 0x0,0x7 0234 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0235 e007 | | Load 0x0,0x7 0236 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0237 00d9 | | Load_Top At_Offset_1 0238 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 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 4608 |F | Jump_Case 0x9 0244 7808 |x | Jump 0x24d ; case 0x0 0245 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0246 780a |x | Jump 0x251 ; case 0x2 0247 7809 |x | Jump 0x251 ; case 0x3 0248 7808 |x | Jump 0x251 ; case 0x4 0249 7807 |x | Jump 0x251 ; case 0x5 024a 7806 |x | Jump 0x251 ; case 0x6 024b 7805 |x | Jump 0x251 ; case 0x7 024c 7804 |x | Jump 0x251 ; case 0x8 024d 00da | | Load_Top At_Offset_2 024e 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 024f 1c00 | | Execute_Immediate Run_Utility,0x0 0250 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0251 0869 | i | Execute_Immediate Raise,0x69 0252 0000 0000 | | .BLANK 0000[0x6] 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 4608 |F | Jump_Case 0x9 025c 7808 |x | Jump 0x265 ; case 0x0 025d 7811 |x | Jump 0x26f ; case 0x1 025e 7814 |x | Jump 0x273 ; case 0x2 025f 7813 |x | Jump 0x273 ; case 0x3 0260 7812 |x | Jump 0x273 ; case 0x4 0261 7811 |x | Jump 0x273 ; case 0x5 0262 7810 |x | Jump 0x273 ; case 0x6 0263 780f |x | Jump 0x273 ; case 0x7 0264 780e |x | Jump 0x273 ; case 0x8 0265 00da | | Load_Top At_Offset_2 0266 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0267 0125 | % | Execute Any,Set_Constraint 0268 00da | | Load_Top At_Offset_2 0269 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 026a 1c00 | | Execute_Immediate Run_Utility,0x0 026b 00da | | Load_Top At_Offset_2 026c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 026d 1c00 | | Execute_Immediate Run_Utility,0x0 026e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 026f 00da | | Load_Top At_Offset_2 0270 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0271 0125 | % | Execute Any,Set_Constraint 0272 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0273 0869 | i | Execute_Immediate Raise,0x69 0274 0000 0000 | | .BLANK 0000[0x4] 0278 ; -------------------------------------------------------------------------------------- 0278 ; SUBPROGRAM 0278 ; -------------------------------------------------------------------------------------- 0278 027b | { | .CONST 0x027b ; Address of begin 0279 0004 | | .CONST 0x0004 ; Address of exception handler 027a 0001 | | .CONST 0x0001 ; Number of locals 027b BODY_0278: 027b INIT_0278: 027b 4608 |F | Jump_Case 0x9 027c 7808 |x | Jump 0x285 ; case 0x0 027d 7814 |x | Jump 0x292 ; case 0x1 027e 781a |x | Jump 0x299 ; case 0x2 027f 7819 |x | Jump 0x299 ; case 0x3 0280 7818 |x | Jump 0x299 ; case 0x4 0281 7817 |x | Jump 0x299 ; case 0x5 0282 7816 |x | Jump 0x299 ; case 0x6 0283 7815 |x | Jump 0x299 ; case 0x7 0284 7814 |x | Jump 0x299 ; case 0x8 0285 00da | | Load_Top At_Offset_2 0286 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0287 0125 | % | Execute Any,Set_Constraint 0288 00da | | Load_Top At_Offset_2 0289 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 028a 1c00 | | Execute_Immediate Run_Utility,0x0 028b 00da | | Load_Top At_Offset_2 028c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 028d 0125 | % | Execute Any,Set_Constraint 028e 00da | | Load_Top At_Offset_2 028f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0290 1c00 | | Execute_Immediate Run_Utility,0x0 0291 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0292 00da | | Load_Top At_Offset_2 0293 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0294 0125 | % | Execute Any,Set_Constraint 0295 00da | | Load_Top At_Offset_2 0296 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0297 0125 | % | Execute Any,Set_Constraint 0298 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0299 0869 | i | Execute_Immediate Raise,0x69 029a 0000 0000 | | .BLANK 0000[0x6] 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; SUBPROGRAM 02a0 ; -------------------------------------------------------------------------------------- 02a0 02a3 | | .CONST 0x02a3 ; Address of begin 02a1 0004 | | .CONST 0x0004 ; Address of exception handler 02a2 0001 | | .CONST 0x0001 ; Number of locals 02a3 BODY_02a0: 02a3 INIT_02a0: 02a3 4608 |F | Jump_Case 0x9 02a4 7808 |x | Jump 0x2ad ; case 0x0 02a5 7817 |x | Jump 0x2bd ; case 0x1 02a6 781d |x | Jump 0x2c4 ; case 0x2 02a7 781c |x | Jump 0x2c4 ; case 0x3 02a8 781b |x | Jump 0x2c4 ; case 0x4 02a9 781a |x | Jump 0x2c4 ; case 0x5 02aa 7819 |x | Jump 0x2c4 ; case 0x6 02ab 7818 |x | Jump 0x2c4 ; case 0x7 02ac 7817 |x | Jump 0x2c4 ; case 0x8 02ad 00da | | Load_Top At_Offset_2 02ae 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02af 0125 | % | Execute Any,Set_Constraint 02b0 00da | | Load_Top At_Offset_2 02b1 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02b2 1c00 | | Execute_Immediate Run_Utility,0x0 02b3 00da | | Load_Top At_Offset_2 02b4 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 02b5 0125 | % | Execute Any,Set_Constraint 02b6 00da | | Load_Top At_Offset_2 02b7 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 02b8 1c00 | | Execute_Immediate Run_Utility,0x0 02b9 00da | | Load_Top At_Offset_2 02ba 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 02bb 1c00 | | Execute_Immediate Run_Utility,0x0 02bc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 02bd 00da | | Load_Top At_Offset_2 02be 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02bf 0125 | % | Execute Any,Set_Constraint 02c0 00da | | Load_Top At_Offset_2 02c1 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 02c2 0125 | % | Execute Any,Set_Constraint 02c3 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 02c4 0869 | i | Execute_Immediate Raise,0x69 02c5 0000 0000 | | .XXX[0x3] 02c7 0000 | | 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; SUBPROGRAM 02c8 ; -------------------------------------------------------------------------------------- 02c8 02cb | | .CONST 0x02cb ; Address of begin 02c9 0004 | | .CONST 0x0004 ; Address of exception handler 02ca 0001 | | .CONST 0x0001 ; Number of locals 02cb BODY_02c8: 02cb INIT_02c8: 02cb 4608 |F | Jump_Case 0x9 02cc 7808 |x | Jump 0x2d5 ; case 0x0 02cd 780e |x | Jump 0x2dc ; case 0x1 02ce 7811 |x | Jump 0x2e0 ; case 0x2 02cf 7810 |x | Jump 0x2e0 ; case 0x3 02d0 780f |x | Jump 0x2e0 ; case 0x4 02d1 780e |x | Jump 0x2e0 ; case 0x5 02d2 780d |x | Jump 0x2e0 ; case 0x6 02d3 780c |x | Jump 0x2e0 ; case 0x7 02d4 780b |x | Jump 0x2e0 ; case 0x8 02d5 00da | | Load_Top At_Offset_2 02d6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02d7 0125 | % | Execute Any,Set_Constraint 02d8 00da | | Load_Top At_Offset_2 02d9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02da 1c00 | | Execute_Immediate Run_Utility,0x0 02db 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 02dc 00da | | Load_Top At_Offset_2 02dd 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02de 0125 | % | Execute Any,Set_Constraint 02df 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 02e0 0869 | i | Execute_Immediate Raise,0x69 02e1 0000 0000 | | .BLANK 0000[0x7] 02e8 ; -------------------------------------------------------------------------------------- 02e8 ; SUBPROGRAM 02e8 ; -------------------------------------------------------------------------------------- 02e8 02eb | | .CONST 0x02eb ; Address of begin 02e9 0004 | | .CONST 0x0004 ; Address of exception handler 02ea 0001 | | .CONST 0x0001 ; Number of locals 02eb BODY_02e8: 02eb INIT_02e8: 02eb 4608 |F | Jump_Case 0x9 02ec 7808 |x | Jump 0x2f5 ; case 0x0 02ed 780e |x | Jump 0x2fc ; case 0x1 02ee 7811 |x | Jump 0x300 ; case 0x2 02ef 7810 |x | Jump 0x300 ; case 0x3 02f0 780f |x | Jump 0x300 ; case 0x4 02f1 780e |x | Jump 0x300 ; case 0x5 02f2 780d |x | Jump 0x300 ; case 0x6 02f3 780c |x | Jump 0x300 ; case 0x7 02f4 780b |x | Jump 0x300 ; case 0x8 02f5 00da | | Load_Top At_Offset_2 02f6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02f7 0125 | % | Execute Any,Set_Constraint 02f8 00da | | Load_Top At_Offset_2 02f9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02fa 1c00 | | Execute_Immediate Run_Utility,0x0 02fb 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 02fc 00da | | Load_Top At_Offset_2 02fd 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02fe 0125 | % | Execute Any,Set_Constraint 02ff 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0300 0869 | i | Execute_Immediate Raise,0x69 0301 0000 0000 | | .BLANK 0000[0x7] 0308 ; -------------------------------------------------------------------------------------- 0308 ; SUBPROGRAM 0308 ; -------------------------------------------------------------------------------------- 0308 030b | | .CONST 0x030b ; Address of begin 0309 0004 | | .CONST 0x0004 ; Address of exception handler 030a 0001 | | .CONST 0x0001 ; Number of locals 030b BODY_0308: 030b INIT_0308: 030b 4608 |F | Jump_Case 0x9 030c 7808 |x | Jump 0x315 ; case 0x0 030d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 030e 780a |x | Jump 0x319 ; case 0x2 030f 7809 |x | Jump 0x319 ; case 0x3 0310 7808 |x | Jump 0x319 ; case 0x4 0311 7807 |x | Jump 0x319 ; case 0x5 0312 7806 |x | Jump 0x319 ; case 0x6 0313 7805 |x | Jump 0x319 ; case 0x7 0314 7804 |x | Jump 0x319 ; case 0x8 0315 00da | | Load_Top At_Offset_2 0316 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0317 1c00 | | Execute_Immediate Run_Utility,0x0 0318 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0319 0869 | i | Execute_Immediate Raise,0x69 031a 0000 0000 | | .BLANK 0000[0x6] 0320 ; -------------------------------------------------------------------------------------- 0320 ; SUBPROGRAM 0320 ; -------------------------------------------------------------------------------------- 0320 0323 | # | .CONST 0x0323 ; Address of begin 0321 0004 | | .CONST 0x0004 ; Address of exception handler 0322 0001 | | .CONST 0x0001 ; Number of locals 0323 BODY_0320: 0323 INIT_0320: 0323 4608 |F | Jump_Case 0x9 0324 7808 |x | Jump 0x32d ; case 0x0 0325 781c |x | Jump 0x342 ; case 0x1 0326 7826 |x& | Jump 0x34d ; case 0x2 0327 7825 |x% | Jump 0x34d ; case 0x3 0328 7824 |x$ | Jump 0x34d ; case 0x4 0329 7823 |x# | Jump 0x34d ; case 0x5 032a 7822 |x" | Jump 0x34d ; case 0x6 032b 7819 |x | Jump 0x345 ; case 0x7 032c 781c |x | Jump 0x349 ; case 0x8 032d 00da | | Load_Top At_Offset_2 032e 016c | l | Execute Variant_Record,Is_Constrained 032f 7009 |p | Jump_Nonzero 0x339 0330 00cf | | Action Mark_Auxiliary 0331 4800 |H | Short_Literal 0x0 0332 e5ff | | Load 0x2,-0x1 0333 1c08 | | Execute_Immediate Run_Utility,0x8 0334 00d8 | | Load_Top At_Offset_0 0335 1c00 | | Execute_Immediate Run_Utility,0x0 0336 c5ff | | Store 0x2,-0x1 0337 00ce | | Action Pop_Auxiliary 0338 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0339 00da | | Load_Top At_Offset_2 033a 2202 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x2 033b 00da | | Load_Top At_Offset_2 033c 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2 033d 1c00 | | Execute_Immediate Run_Utility,0x0 033e 00da | | Load_Top At_Offset_2 033f 2403 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x3 0340 1c00 | | Execute_Immediate Run_Utility,0x0 0341 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0342 00da | | Load_Top At_Offset_2 0343 2202 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x2 0344 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0345 00db | | Load_Top At_Offset_3 0346 e5ff | | Load 0x2,-0x1 0347 031b | | Declare_Type Variant_Record,Constrained 0348 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0349 00db | | Load_Top At_Offset_3 034a 00db | | Load_Top At_Offset_3 034b 02fc | | Declare_Variable Variant_Record,With_Constraint 034c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 034d 0869 | i | Execute_Immediate Raise,0x69 034e 0000 0000 | | .XXX[0x2] 0350 ; -------------------------------------------------------------------------------------- 0350 ; SUBPROGRAM 0350 ; -------------------------------------------------------------------------------------- 0350 0353 | S | .CONST 0x0353 ; Address of begin 0351 0004 | | .CONST 0x0004 ; Address of exception handler 0352 0001 | | .CONST 0x0001 ; Number of locals 0353 BODY_0350: 0353 INIT_0350: 0353 00da | | Load_Top At_Offset_2 0354 8223 | # | Call 0x1,0x23 0355 e007 | | Load 0x0,0x7 0356 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0357 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0358 ; -------------------------------------------------------------------------------------- 0358 ; SUBPROGRAM 0358 ; -------------------------------------------------------------------------------------- 0358 035b | [ | .CONST 0x035b ; Address of begin 0359 0004 | | .CONST 0x0004 ; Address of exception handler 035a 0001 | | .CONST 0x0001 ; Number of locals 035b BODY_0358: 035b INIT_0358: 035b 00db | | Load_Top At_Offset_3 035c 00db | | Load_Top At_Offset_3 035d 8223 | # | Call 0x1,0x23 035e e007 | | Load 0x0,0x7 035f 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0360 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0361 0000 0000 | | .BLANK 0000[0x7] 0368 ; -------------------------------------------------------------------------------------- 0368 ; SUBPROGRAM 0368 ; -------------------------------------------------------------------------------------- 0368 036b | k | .CONST 0x036b ; Address of begin 0369 0004 | | .CONST 0x0004 ; Address of exception handler 036a 0001 | | .CONST 0x0001 ; Number of locals 036b BODY_0368: 036b INIT_0368: 036b 00db | | Load_Top At_Offset_3 036c e007 | | Load 0x0,0x7 036d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 036e 00db | | Load_Top At_Offset_3 036f 8224 | $ | Call 0x1,0x24 0370 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0371 0000 0000 | | .BLANK 0000[0x7] 0378 ; -------------------------------------------------------------------------------------- 0378 ; SUBPROGRAM 0378 ; -------------------------------------------------------------------------------------- 0378 037b | { | .CONST 0x037b ; Address of begin 0379 0004 | | .CONST 0x0004 ; Address of exception handler 037a 0001 | | .CONST 0x0001 ; Number of locals 037b BODY_0378: 037b INIT_0378: 037b 00da | | Load_Top At_Offset_2 037c 8223 | # | Call 0x1,0x23 037d e006 | | Load 0x0,0x6 037e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 037f 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0380 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0381 0000 0000 | | .BLANK 0000[0x7] 0388 ; -------------------------------------------------------------------------------------- 0388 ; SUBPROGRAM 0388 ; -------------------------------------------------------------------------------------- 0388 038b | | .CONST 0x038b ; Address of begin 0389 0004 | | .CONST 0x0004 ; Address of exception handler 038a 0001 | | .CONST 0x0001 ; Number of locals 038b BODY_0388: 038b INIT_0388: 038b 00db | | Load_Top At_Offset_3 038c e006 | | Load 0x0,0x6 038d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 038e 1816 | | Execute Package,Field_Execute,Field_Number 0x16 038f 00db | | Load_Top At_Offset_3 0390 8224 | $ | Call 0x1,0x24 0391 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0392 0000 0000 | | .BLANK 0000[0x6] 0398 ; -------------------------------------------------------------------------------------- 0398 ; SUBPROGRAM 0398 ; -------------------------------------------------------------------------------------- 0398 039b | | .CONST 0x039b ; Address of begin 0399 0004 | | .CONST 0x0004 ; Address of exception handler 039a 0001 | | .CONST 0x0001 ; Number of locals 039b BODY_0398: 039b INIT_0398: 039b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 039c 0000 0000 | | .BLANK 0000[0x4] 03a0 ; -------------------------------------------------------------------------------------- 03a0 ; SUBPROGRAM 03a0 ; -------------------------------------------------------------------------------------- 03a0 03a3 | | .CONST 0x03a3 ; Address of begin 03a1 0004 | | .CONST 0x0004 ; Address of exception handler 03a2 0001 | | .CONST 0x0001 ; Number of locals 03a3 BODY_03a0: 03a3 INIT_03a0: 03a3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03a4 0000 0000 | | .BLANK 0000[0x4] 03a8 ; -------------------------------------------------------------------------------------- 03a8 ; SUBPROGRAM 03a8 ; -------------------------------------------------------------------------------------- 03a8 03ab | | .CONST 0x03ab ; Address of begin 03a9 0004 | | .CONST 0x0004 ; Address of exception handler 03aa 0001 | | .CONST 0x0001 ; Number of locals 03ab BODY_03a8: 03ab INIT_03a8: 03ab 00db | | Load_Top At_Offset_3 03ac 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 03ad 00db | | Load_Top At_Offset_3 03ae 8225 | % | Call 0x1,0x25 03af 00db | | Load_Top At_Offset_3 03b0 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 03b1 6804 |h | Jump_Zero 0x3b6 03b2 00db | | Load_Top At_Offset_3 03b3 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 03b4 00db | | Load_Top At_Offset_3 03b5 8229 | ) | Call 0x1,0x29 03b6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03b7 0000 | | .XXX[0x1] 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 00db | | Load_Top At_Offset_3 03bc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03bd 00db | | Load_Top At_Offset_3 03be 822b | + | Call 0x1,0x2b 03bf 00db | | Load_Top At_Offset_3 03c0 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 03c1 00db | | Load_Top At_Offset_3 03c2 822e | . | Call 0x1,0x2e 03c3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03c4 0000 0000 | | .BLANK 0000[0x4] 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 00db | | Load_Top At_Offset_3 03cc 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 03cd 00db | | Load_Top At_Offset_3 03ce 8229 | ) | Call 0x1,0x29 03cf 00db | | Load_Top At_Offset_3 03d0 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 03d1 00db | | Load_Top At_Offset_3 03d2 822e | . | Call 0x1,0x2e 03d3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03d4 0000 0000 | | .BLANK 0000[0x4] 03d8 ; -------------------------------------------------------------------------------------- 03d8 ; SUBPROGRAM 03d8 ; -------------------------------------------------------------------------------------- 03d8 03e1 | | .CONST 0x03e1 ; Address of begin 03d9 0004 | | .CONST 0x0004 ; Address of exception handler 03da 0003 | | .CONST 0x0003 ; Number of locals 03db INIT_03d8: 03db 4900 |I | Short_Literal 0x100 03dc 00db | | Load_Top At_Offset_3 03dd 8228 | ( | Call 0x1,0x28 03de 4900 |I | Short_Literal 0x100 03df e5ff | | Load 0x2,-0x1 03e0 8228 | ( | Call 0x1,0x28 03e1 BODY_03d8: 03e1 e21c | | Load 0x1,0x1c 03e2 0322 | " | Declare_Variable Record 03e3 00d8 | | Load_Top At_Offset_0 03e4 1c01 | | Execute_Immediate Run_Utility,0x1 03e5 00da | | Load_Top At_Offset_2 03e6 00d9 | | Load_Top At_Offset_1 03e7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 03e8 00d9 | | Load_Top At_Offset_1 03e9 00d9 | | Load_Top At_Offset_1 03ea 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 03eb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03ec 0000 0000 | | .BLANK 0000[0x4] 03f0 ; -------------------------------------------------------------------------------------- 03f0 ; SUBPROGRAM 03f0 ; -------------------------------------------------------------------------------------- 03f0 03f3 | | .CONST 0x03f3 ; Address of begin 03f1 0004 | | .CONST 0x0004 ; Address of exception handler 03f2 0001 | | .CONST 0x0001 ; Number of locals 03f3 BODY_03f0: 03f3 INIT_03f0: 03f3 00db | | Load_Top At_Offset_3 03f4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 03f5 00db | | Load_Top At_Offset_3 03f6 8229 | ) | Call 0x1,0x29 03f7 00db | | Load_Top At_Offset_3 03f8 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 03f9 00db | | Load_Top At_Offset_3 03fa 8229 | ) | Call 0x1,0x29 03fb 00db | | Load_Top At_Offset_3 03fc 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 03fd 00db | | Load_Top At_Offset_3 03fe 8226 | & | Call 0x1,0x26 03ff 00db | | Load_Top At_Offset_3 0400 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0401 00db | | Load_Top At_Offset_3 0402 822e | . | Call 0x1,0x2e 0403 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0404 0000 0000 | | .BLANK 0000[0x4] 0408 ; -------------------------------------------------------------------------------------- 0408 ; SUBPROGRAM 0408 ; -------------------------------------------------------------------------------------- 0408 040e | | .CONST 0x040e ; Address of begin 0409 0004 | | .CONST 0x0004 ; Address of exception handler 040a 0002 | | .CONST 0x0002 ; Number of locals 040b INIT_0408: 040b 4900 |I | Short_Literal 0x100 040c 00db | | Load_Top At_Offset_3 040d 8228 | ( | Call 0x1,0x28 040e BODY_0408: 040e e21e | | Load 0x1,0x1e 040f 0322 | " | Declare_Variable Record 0410 00d8 | | Load_Top At_Offset_0 0411 1c01 | | Execute_Immediate Run_Utility,0x1 0412 00d9 | | Load_Top At_Offset_1 0413 00d9 | | Load_Top At_Offset_1 0414 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0415 e5ff | | Load 0x2,-0x1 0416 822a | * | Call 0x1,0x2a 0417 00d9 | | Load_Top At_Offset_1 0418 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0419 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 041a 0000 0000 | | .BLANK 0000[0x6] 0420 ; -------------------------------------------------------------------------------------- 0420 ; SUBPROGRAM 0420 ; -------------------------------------------------------------------------------------- 0420 0426 | & | .CONST 0x0426 ; Address of begin 0421 0004 | | .CONST 0x0004 ; Address of exception handler 0422 0002 | | .CONST 0x0002 ; Number of locals 0423 INIT_0420: 0423 4900 |I | Short_Literal 0x100 0424 00db | | Load_Top At_Offset_3 0425 8228 | ( | Call 0x1,0x28 0426 BODY_0420: 0426 e21f | | Load 0x1,0x1f 0427 0322 | " | Declare_Variable Record 0428 00d8 | | Load_Top At_Offset_0 0429 1c01 | | Execute_Immediate Run_Utility,0x1 042a 00d9 | | Load_Top At_Offset_1 042b 00d9 | | Load_Top At_Offset_1 042c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 042d e5ff | | Load 0x2,-0x1 042e 822a | * | Call 0x1,0x2a 042f 00d9 | | Load_Top At_Offset_1 0430 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0431 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0432 0000 0000 | | .BLANK 0000[0x6] 0438 ; -------------------------------------------------------------------------------------- 0438 ; SUBPROGRAM 0438 ; -------------------------------------------------------------------------------------- 0438 043b | ; | .CONST 0x043b ; Address of begin 0439 0004 | | .CONST 0x0004 ; Address of exception handler 043a 0001 | | .CONST 0x0001 ; Number of locals 043b BODY_0438: 043b INIT_0438: 043b 00db | | Load_Top At_Offset_3 043c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 043d 00db | | Load_Top At_Offset_3 043e 8226 | & | Call 0x1,0x26 043f 00db | | Load_Top At_Offset_3 0440 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0441 00db | | Load_Top At_Offset_3 0442 822e | . | Call 0x1,0x2e 0443 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0444 0000 0000 | | .BLANK 0000[0x4] 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 00db | | Load_Top At_Offset_3 044c 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2 044d 00db | | Load_Top At_Offset_3 044e 8229 | ) | Call 0x1,0x29 044f 00db | | Load_Top At_Offset_3 0450 2403 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x3 0451 00db | | Load_Top At_Offset_3 0452 822e | . | Call 0x1,0x2e 0453 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0454 0000 0000 | | .BLANK 0000[0x4] 0458 ; -------------------------------------------------------------------------------------- 0458 ; SUBPROGRAM 0458 ; -------------------------------------------------------------------------------------- 0458 045b | [ | .CONST 0x045b ; Address of begin 0459 0467 | g | .CONST 0x0467 ; Address of exception handler 045a 0001 | | .CONST 0x0001 ; Number of locals 045b BODY_0458: 045b INIT_0458: 045b e006 | | Load 0x0,0x6 045c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 045d 1b11 | | Execute Package,Field_Read,Field_Number 0x11 045e 00db | | Load_Top At_Offset_3 045f e004 | | Load 0x0,0x4 0460 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 0461 e5fe | | Load 0x2,-0x2 0462 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0463 e216 | | Load 0x1,0x16 0464 e5fe | | Load 0x2,-0x2 0465 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0466 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0467 TRAP_0458: 0467 e033 | 3 | Load 0x0,0x33 0468 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0469 010f | | Execute Exception,Equal 046a 6806 |h | Jump_Zero 0x471 046b e033 | 3 | Load 0x0,0x33 046c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 046d 8217 | | Call 0x1,0x17 046e e5fe | | Load 0x2,-0x2 046f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0470 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0471 0100 | | Execute Exception,Raise 0472 0000 0000 | | .BLANK 0000[0x6] 0478 ; -------------------------------------------------------------------------------------- 0478 ; SUBPROGRAM 0478 ; -------------------------------------------------------------------------------------- 0478 047f | | .CONST 0x047f ; Address of begin 0479 0486 | | .CONST 0x0486 ; Address of exception handler 047a 0002 | | .CONST 0x0002 ; Number of locals 047b INIT_0478: 047b e21b | | Load 0x1,0x1b 047c 0322 | " | Declare_Variable Record 047d 00d8 | | Load_Top At_Offset_0 047e 1c00 | | Execute_Immediate Run_Utility,0x0 047f BODY_0478: 047f 00db | | Load_Top At_Offset_3 0480 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0481 e5ff | | Load 0x2,-0x1 0482 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0483 e004 | | Load 0x0,0x4 0484 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 0485 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0486 TRAP_0478: 0486 e033 | 3 | Load 0x0,0x33 0487 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0488 010f | | Execute Exception,Equal 0489 6806 |h | Jump_Zero 0x490 048a e033 | 3 | Load 0x0,0x33 048b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 048c 8217 | | Call 0x1,0x17 048d e5fe | | Load 0x2,-0x2 048e 016d | m | Execute Variant_Record,Structure_Write 048f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0490 0100 | | Execute Exception,Raise 0491 0000 0000 | | .BLANK 0000[0x7] 0498 ; -------------------------------------------------------------------------------------- 0498 ; SUBPROGRAM 0498 ; -------------------------------------------------------------------------------------- 0498 04a1 | | .CONST 0x04a1 ; Address of begin 0499 04b3 | | .CONST 0x04b3 ; Address of exception handler 049a 0002 | | .CONST 0x0002 ; Number of locals 049b INIT_0498: 049b 4900 |I | Short_Literal 0x100 049c e007 | | Load 0x0,0x7 049d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 049e 1c08 | | Execute_Immediate Run_Utility,0x8 049f 00d8 | | Load_Top At_Offset_0 04a0 1c00 | | Execute_Immediate Run_Utility,0x0 04a1 BODY_0498: 04a1 00d8 | | Load_Top At_Offset_0 04a2 e5ff | | Load 0x2,-0x1 04a3 e004 | | Load 0x0,0x4 04a4 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 04a5 00d1 | | Pop_Control Pop_Count_1 04a6 e21b | | Load 0x1,0x1b 04a7 0322 | " | Declare_Variable Record 04a8 00d8 | | Load_Top At_Offset_0 04a9 1c01 | | Execute_Immediate Run_Utility,0x1 04aa 00d9 | | Load_Top At_Offset_1 04ab 00d9 | | Load_Top At_Offset_1 04ac 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 04ad e216 | | Load 0x1,0x16 04ae 00d9 | | Load_Top At_Offset_1 04af 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 04b0 e5fe | | Load 0x2,-0x2 04b1 017d | } | Execute Record,Structure_Write 04b2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04b3 TRAP_0498: 04b3 e033 | 3 | Load 0x0,0x33 04b4 1b0e | | Execute Package,Field_Read,Field_Number 0xe 04b5 010f | | Execute Exception,Equal 04b6 6806 |h | Jump_Zero 0x4bd 04b7 e033 | 3 | Load 0x0,0x33 04b8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04b9 8217 | | Call 0x1,0x17 04ba e5fe | | Load 0x2,-0x2 04bb 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 04bc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04bd 0100 | | Execute Exception,Raise 04be 0000 0000 | | .XXX[0x2] 04c0 ; -------------------------------------------------------------------------------------- 04c0 ; SUBPROGRAM 04c0 ; -------------------------------------------------------------------------------------- 04c0 04c3 | | .CONST 0x04c3 ; Address of begin 04c1 04ca | | .CONST 0x04ca ; Address of exception handler 04c2 0001 | | .CONST 0x0001 ; Number of locals 04c3 BODY_04c0: 04c3 INIT_04c0: 04c3 00da | | Load_Top At_Offset_2 04c4 e004 | | Load 0x0,0x4 04c5 1853 | S | Execute Package,Field_Execute,Field_Number 0x53 04c6 e216 | | Load 0x1,0x16 04c7 e5fe | | Load 0x2,-0x2 04c8 016d | m | Execute Variant_Record,Structure_Write 04c9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04ca TRAP_04c0: 04ca e033 | 3 | Load 0x0,0x33 04cb 1b0e | | Execute Package,Field_Read,Field_Number 0xe 04cc 010f | | Execute Exception,Equal 04cd 6806 |h | Jump_Zero 0x4d4 04ce e033 | 3 | Load 0x0,0x33 04cf 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04d0 8217 | | Call 0x1,0x17 04d1 e5fe | | Load 0x2,-0x2 04d2 016d | m | Execute Variant_Record,Structure_Write 04d3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04d4 0100 | | Execute Exception,Raise 04d5 0000 0000 | | .XXX[0x3] 04d7 0000 | | 04d8 ; -------------------------------------------------------------------------------------- 04d8 ; SUBPROGRAM 04d8 ; -------------------------------------------------------------------------------------- 04d8 04df | | .CONST 0x04df ; Address of begin 04d9 04e9 | | .CONST 0x04e9 ; Address of exception handler 04da 0002 | | .CONST 0x0002 ; Number of locals 04db INIT_04d8: 04db e220 | | Load 0x1,0x20 04dc 0322 | " | Declare_Variable Record 04dd 00d8 | | Load_Top At_Offset_0 04de 1c00 | | Execute_Immediate Run_Utility,0x0 04df BODY_04d8: 04df 00e1 | | Load_Encached Boolean_Cache 04e0 e5ff | | Load 0x2,-0x1 04e1 e004 | | Load 0x0,0x4 04e2 1854 | T | Execute Package,Field_Execute,Field_Number 0x54 04e3 e5fe | | Load 0x2,-0x2 04e4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 04e5 e216 | | Load 0x1,0x16 04e6 e5fe | | Load 0x2,-0x2 04e7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 04e8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04e9 TRAP_04d8: 04e9 e033 | 3 | Load 0x0,0x33 04ea 1b0e | | Execute Package,Field_Read,Field_Number 0xe 04eb 010f | | Execute Exception,Equal 04ec 6806 |h | Jump_Zero 0x4f3 04ed e033 | 3 | Load 0x0,0x33 04ee 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04ef 8217 | | Call 0x1,0x17 04f0 e5fe | | Load 0x2,-0x2 04f1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 04f2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04f3 0100 | | Execute Exception,Raise 04f4 0000 0000 | | .BLANK 0000[0x4] 04f8 ; -------------------------------------------------------------------------------------- 04f8 ; SUBPROGRAM 04f8 ; -------------------------------------------------------------------------------------- 04f8 04fb | | .CONST 0x04fb ; Address of begin 04f9 0507 | | .CONST 0x0507 ; Address of exception handler 04fa 0001 | | .CONST 0x0001 ; Number of locals 04fb BODY_04f8: 04fb INIT_04f8: 04fb e006 | | Load 0x0,0x6 04fc 1b0e | | Execute Package,Field_Read,Field_Number 0xe 04fd 1b11 | | Execute Package,Field_Read,Field_Number 0x11 04fe 00db | | Load_Top At_Offset_3 04ff e004 | | Load 0x0,0x4 0500 1855 | U | Execute Package,Field_Execute,Field_Number 0x55 0501 e5fe | | Load 0x2,-0x2 0502 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0503 e216 | | Load 0x1,0x16 0504 e5fe | | Load 0x2,-0x2 0505 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0506 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0507 TRAP_04f8: 0507 e033 | 3 | Load 0x0,0x33 0508 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0509 010f | | Execute Exception,Equal 050a 6806 |h | Jump_Zero 0x511 050b e033 | 3 | Load 0x0,0x33 050c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 050d 8217 | | Call 0x1,0x17 050e e5fe | | Load 0x2,-0x2 050f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0510 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0511 0100 | | Execute Exception,Raise 0512 0000 0000 | | .BLANK 0000[0x6] 0518 ; -------------------------------------------------------------------------------------- 0518 ; SUBPROGRAM 0518 ; -------------------------------------------------------------------------------------- 0518 051b | | .CONST 0x051b ; Address of begin 0519 0527 | ' | .CONST 0x0527 ; Address of exception handler 051a 0001 | | .CONST 0x0001 ; Number of locals 051b BODY_0518: 051b INIT_0518: 051b e006 | | Load 0x0,0x6 051c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 051d 1b11 | | Execute Package,Field_Read,Field_Number 0x11 051e 00db | | Load_Top At_Offset_3 051f e004 | | Load 0x0,0x4 0520 1856 | V | Execute Package,Field_Execute,Field_Number 0x56 0521 e5fe | | Load 0x2,-0x2 0522 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0523 e216 | | Load 0x1,0x16 0524 e5fe | | Load 0x2,-0x2 0525 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0526 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0527 TRAP_0518: 0527 e033 | 3 | Load 0x0,0x33 0528 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0529 010f | | Execute Exception,Equal 052a 6806 |h | Jump_Zero 0x531 052b e033 | 3 | Load 0x0,0x33 052c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 052d 8217 | | Call 0x1,0x17 052e e5fe | | Load 0x2,-0x2 052f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0530 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0531 0100 | | Execute Exception,Raise 0532 0000 0000 | | .BLANK 0000[0x6] 0538 ; -------------------------------------------------------------------------------------- 0538 ; SUBPROGRAM 0538 ; -------------------------------------------------------------------------------------- 0538 053b | ; | .CONST 0x053b ; Address of begin 0539 0545 | E | .CONST 0x0545 ; Address of exception handler 053a 0001 | | .CONST 0x0001 ; Number of locals 053b BODY_0538: 053b INIT_0538: 053b 00db | | Load_Top At_Offset_3 053c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 053d 00db | | Load_Top At_Offset_3 053e e004 | | Load 0x0,0x4 053f 1857 | W | Execute Package,Field_Execute,Field_Number 0x57 0540 00d1 | | Pop_Control Pop_Count_1 0541 e216 | | Load 0x1,0x16 0542 e5fe | | Load 0x2,-0x2 0543 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 0544 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0545 TRAP_0538: 0545 e033 | 3 | Load 0x0,0x33 0546 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0547 010f | | Execute Exception,Equal 0548 6806 |h | Jump_Zero 0x54f 0549 e033 | 3 | Load 0x0,0x33 054a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 054b 8217 | | Call 0x1,0x17 054c e5fe | | Load 0x2,-0x2 054d 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 054e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 054f 0100 | | Execute Exception,Raise 0550 ; -------------------------------------------------------------------------------------- 0550 ; SUBPROGRAM 0550 ; -------------------------------------------------------------------------------------- 0550 0557 | W | .CONST 0x0557 ; Address of begin 0551 0563 | c | .CONST 0x0563 ; Address of exception handler 0552 0002 | | .CONST 0x0002 ; Number of locals 0553 INIT_0550: 0553 e21b | | Load 0x1,0x1b 0554 0322 | " | Declare_Variable Record 0555 00d8 | | Load_Top At_Offset_0 0556 1c00 | | Execute_Immediate Run_Utility,0x0 0557 BODY_0550: 0557 00d8 | | Load_Top At_Offset_0 0558 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0559 e004 | | Load 0x0,0x4 055a 1858 | X | Execute Package,Field_Execute,Field_Number 0x58 055b 00d1 | | Pop_Control Pop_Count_1 055c e216 | | Load 0x1,0x16 055d 00d9 | | Load_Top At_Offset_1 055e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 055f 00d8 | | Load_Top At_Offset_0 0560 e5fe | | Load 0x2,-0x2 0561 017d | } | Execute Record,Structure_Write 0562 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0563 TRAP_0550: 0563 e033 | 3 | Load 0x0,0x33 0564 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0565 010f | | Execute Exception,Equal 0566 6806 |h | Jump_Zero 0x56d 0567 e033 | 3 | Load 0x0,0x33 0568 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0569 8217 | | Call 0x1,0x17 056a e5fe | | Load 0x2,-0x2 056b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 056c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 056d 0100 | | Execute Exception,Raise 056e 0000 0000 | | .XXX[0x2] 0570 ; -------------------------------------------------------------------------------------- 0570 ; SUBPROGRAM 0570 ; -------------------------------------------------------------------------------------- 0570 0577 | w | .CONST 0x0577 ; Address of begin 0571 0583 | | .CONST 0x0583 ; Address of exception handler 0572 0002 | | .CONST 0x0002 ; Number of locals 0573 INIT_0570: 0573 e21b | | Load 0x1,0x1b 0574 0322 | " | Declare_Variable Record 0575 00d8 | | Load_Top At_Offset_0 0576 1c00 | | Execute_Immediate Run_Utility,0x0 0577 BODY_0570: 0577 00d8 | | Load_Top At_Offset_0 0578 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0579 e004 | | Load 0x0,0x4 057a 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59 057b 00d1 | | Pop_Control Pop_Count_1 057c e216 | | Load 0x1,0x16 057d 00d9 | | Load_Top At_Offset_1 057e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 057f 00d8 | | Load_Top At_Offset_0 0580 e5fe | | Load 0x2,-0x2 0581 017d | } | Execute Record,Structure_Write 0582 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0583 TRAP_0570: 0583 e033 | 3 | Load 0x0,0x33 0584 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0585 010f | | Execute Exception,Equal 0586 6806 |h | Jump_Zero 0x58d 0587 e033 | 3 | Load 0x0,0x33 0588 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0589 8217 | | Call 0x1,0x17 058a e5fe | | Load 0x2,-0x2 058b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 058c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 058d 0100 | | Execute Exception,Raise 058e 0000 0000 | | .XXX[0x2] 0590 ; -------------------------------------------------------------------------------------- 0590 ; SUBPROGRAM 0590 ; -------------------------------------------------------------------------------------- 0590 0593 | | .CONST 0x0593 ; Address of begin 0591 059a | | .CONST 0x059a ; 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 e004 | | Load 0x0,0x4 0595 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a 0596 e216 | | Load 0x1,0x16 0597 e5fe | | Load 0x2,-0x2 0598 016d | m | Execute Variant_Record,Structure_Write 0599 4502 |E | Exit_Suprogram New_Top_Offset 0x2 059a TRAP_0590: 059a e033 | 3 | Load 0x0,0x33 059b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 059c 010f | | Execute Exception,Equal 059d 6806 |h | Jump_Zero 0x5a4 059e e033 | 3 | Load 0x0,0x33 059f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05a0 8217 | | Call 0x1,0x17 05a1 e5fe | | Load 0x2,-0x2 05a2 016d | m | Execute Variant_Record,Structure_Write 05a3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05a4 0100 | | Execute Exception,Raise 05a5 0000 0000 | | .XXX[0x3] 05a7 0000 | | 05a8 ; -------------------------------------------------------------------------------------- 05a8 ; SUBPROGRAM 05a8 ; -------------------------------------------------------------------------------------- 05a8 05ab | | .CONST 0x05ab ; Address of begin 05a9 05b2 | | .CONST 0x05b2 ; Address of exception handler 05aa 0001 | | .CONST 0x0001 ; Number of locals 05ab BODY_05a8: 05ab INIT_05a8: 05ab 00da | | Load_Top At_Offset_2 05ac e004 | | Load 0x0,0x4 05ad 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b 05ae e216 | | Load 0x1,0x16 05af e5fe | | Load 0x2,-0x2 05b0 016d | m | Execute Variant_Record,Structure_Write 05b1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05b2 TRAP_05a8: 05b2 e033 | 3 | Load 0x0,0x33 05b3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 05b4 010f | | Execute Exception,Equal 05b5 6806 |h | Jump_Zero 0x5bc 05b6 e033 | 3 | Load 0x0,0x33 05b7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05b8 8217 | | Call 0x1,0x17 05b9 e5fe | | Load 0x2,-0x2 05ba 016d | m | Execute Variant_Record,Structure_Write 05bb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05bc 0100 | | Execute Exception,Raise 05bd 0000 0000 | | .XXX[0x3] 05bf 0000 | | 05c0 ; -------------------------------------------------------------------------------------- 05c0 ; SUBPROGRAM 05c0 ; -------------------------------------------------------------------------------------- 05c0 05c3 | | .CONST 0x05c3 ; Address of begin 05c1 05c9 | | .CONST 0x05c9 ; Address of exception handler 05c2 0001 | | .CONST 0x0001 ; Number of locals 05c3 BODY_05c0: 05c3 INIT_05c0: 05c3 e004 | | Load 0x0,0x4 05c4 181f | | Execute Package,Field_Execute,Field_Number 0x1f 05c5 e216 | | Load 0x1,0x16 05c6 e5fe | | Load 0x2,-0x2 05c7 016d | m | Execute Variant_Record,Structure_Write 05c8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05c9 TRAP_05c0: 05c9 e033 | 3 | Load 0x0,0x33 05ca 1b0e | | Execute Package,Field_Read,Field_Number 0xe 05cb 010f | | Execute Exception,Equal 05cc 6806 |h | Jump_Zero 0x5d3 05cd e033 | 3 | Load 0x0,0x33 05ce 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05cf 8217 | | Call 0x1,0x17 05d0 e5fe | | Load 0x2,-0x2 05d1 016d | m | Execute Variant_Record,Structure_Write 05d2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05d3 0100 | | Execute Exception,Raise 05d4 0000 0000 | | .BLANK 0000[0x4] 05d8 ; -------------------------------------------------------------------------------------- 05d8 ; SUBPROGRAM 05d8 ; -------------------------------------------------------------------------------------- 05d8 05db | | .CONST 0x05db ; Address of begin 05d9 05e2 | | .CONST 0x05e2 ; Address of exception handler 05da 0001 | | .CONST 0x0001 ; Number of locals 05db BODY_05d8: 05db INIT_05d8: 05db 00da | | Load_Top At_Offset_2 05dc e004 | | Load 0x0,0x4 05dd 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c 05de e216 | | Load 0x1,0x16 05df e5fe | | Load 0x2,-0x2 05e0 016d | m | Execute Variant_Record,Structure_Write 05e1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05e2 TRAP_05d8: 05e2 e033 | 3 | Load 0x0,0x33 05e3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 05e4 010f | | Execute Exception,Equal 05e5 6806 |h | Jump_Zero 0x5ec 05e6 e033 | 3 | Load 0x0,0x33 05e7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05e8 8217 | | Call 0x1,0x17 05e9 e5fe | | Load 0x2,-0x2 05ea 016d | m | Execute Variant_Record,Structure_Write 05eb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05ec 0100 | | Execute Exception,Raise 05ed 0000 0000 | | .XXX[0x3] 05ef 0000 | | 05f0 ; -------------------------------------------------------------------------------------- 05f0 ; SUBPROGRAM 05f0 ; -------------------------------------------------------------------------------------- 05f0 05f7 | | .CONST 0x05f7 ; Address of begin 05f1 0609 | | .CONST 0x0609 ; Address of exception handler 05f2 0002 | | .CONST 0x0002 ; Number of locals 05f3 INIT_05f0: 05f3 e21d | | Load 0x1,0x1d 05f4 0322 | " | Declare_Variable Record 05f5 00d8 | | Load_Top At_Offset_0 05f6 1c00 | | Execute_Immediate Run_Utility,0x0 05f7 BODY_05f0: 05f7 00e1 | | Load_Encached Boolean_Cache 05f8 00d9 | | Load_Top At_Offset_1 05f9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 05fa 00da | | Load_Top At_Offset_2 05fb 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05fc e5ff | | Load 0x2,-0x1 05fd e004 | | Load 0x0,0x4 05fe 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 05ff 00d2 | | Pop_Control Pop_Count_2 0600 00d9 | | Load_Top At_Offset_1 0601 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0602 e216 | | Load 0x1,0x16 0603 00d9 | | Load_Top At_Offset_1 0604 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0605 00d8 | | Load_Top At_Offset_0 0606 e5fe | | Load 0x2,-0x2 0607 017d | } | Execute Record,Structure_Write 0608 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0609 TRAP_05f0: 0609 e033 | 3 | Load 0x0,0x33 060a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 060b 010f | | Execute Exception,Equal 060c 6806 |h | Jump_Zero 0x613 060d e033 | 3 | Load 0x0,0x33 060e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 060f 8217 | | Call 0x1,0x17 0610 e5fe | | Load 0x2,-0x2 0611 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0612 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0613 0100 | | Execute Exception,Raise 0614 0000 0000 | | .BLANK 0000[0x4] 0618 ; -------------------------------------------------------------------------------------- 0618 ; SUBPROGRAM 0618 ; -------------------------------------------------------------------------------------- 0618 061f | | .CONST 0x061f ; Address of begin 0619 062c | , | .CONST 0x062c ; Address of exception handler 061a 0002 | | .CONST 0x0002 ; Number of locals 061b INIT_0618: 061b e21b | | Load 0x1,0x1b 061c 0322 | " | Declare_Variable Record 061d 00d8 | | Load_Top At_Offset_0 061e 1c00 | | Execute_Immediate Run_Utility,0x0 061f BODY_0618: 061f 00d8 | | Load_Top At_Offset_0 0620 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0621 e5ff | | Load 0x2,-0x1 0622 e004 | | Load 0x0,0x4 0623 1852 | R | Execute Package,Field_Execute,Field_Number 0x52 0624 00d1 | | Pop_Control Pop_Count_1 0625 e216 | | Load 0x1,0x16 0626 e5fe | | Load 0x2,-0x2 0627 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0628 00d8 | | Load_Top At_Offset_0 0629 e5fe | | Load 0x2,-0x2 062a 017d | } | Execute Record,Structure_Write 062b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 062c TRAP_0618: 062c e033 | 3 | Load 0x0,0x33 062d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 062e 010f | | Execute Exception,Equal 062f 6806 |h | Jump_Zero 0x636 0630 e033 | 3 | Load 0x0,0x33 0631 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0632 8217 | | Call 0x1,0x17 0633 e5fe | | Load 0x2,-0x2 0634 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0635 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0636 0100 | | Execute Exception,Raise 0637 0000 | | .XXX[0x1] 0638 ; -------------------------------------------------------------------------------------- 0638 ; SUBPROGRAM 0638 ; -------------------------------------------------------------------------------------- 0638 063f | ? | .CONST 0x063f ; Address of begin 0639 064c | L | .CONST 0x064c ; Address of exception handler 063a 0002 | | .CONST 0x0002 ; Number of locals 063b INIT_0638: 063b e21b | | Load 0x1,0x1b 063c 0322 | " | Declare_Variable Record 063d 00d8 | | Load_Top At_Offset_0 063e 1c00 | | Execute_Immediate Run_Utility,0x0 063f BODY_0638: 063f 00d8 | | Load_Top At_Offset_0 0640 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0641 e5ff | | Load 0x2,-0x1 0642 e004 | | Load 0x0,0x4 0643 185d | ] | Execute Package,Field_Execute,Field_Number 0x5d 0644 00d1 | | Pop_Control Pop_Count_1 0645 e216 | | Load 0x1,0x16 0646 e5fe | | Load 0x2,-0x2 0647 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0648 00d8 | | Load_Top At_Offset_0 0649 e5fe | | Load 0x2,-0x2 064a 017d | } | Execute Record,Structure_Write 064b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 064c TRAP_0638: 064c e033 | 3 | Load 0x0,0x33 064d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 064e 010f | | Execute Exception,Equal 064f 6806 |h | Jump_Zero 0x656 0650 e033 | 3 | Load 0x0,0x33 0651 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0652 8217 | | Call 0x1,0x17 0653 e5fe | | Load 0x2,-0x2 0654 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0655 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0656 0100 | | Execute Exception,Raise 0657 0000 | | .XXX[0x1] 0658 ; -------------------------------------------------------------------------------------- 0658 ; SUBPROGRAM 0658 ; -------------------------------------------------------------------------------------- 0658 065b | [ | .CONST 0x065b ; Address of begin 0659 0004 | | .CONST 0x0004 ; Address of exception handler 065a 0001 | | .CONST 0x0001 ; Number of locals 065b BODY_0658: 065b INIT_0658: 065b 00da | | Load_Top At_Offset_2 065c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 065d 00db | | Load_Top At_Offset_3 065e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 065f e004 | | Load 0x0,0x4 0660 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 0661 e216 | | Load 0x1,0x16 0662 e5fe | | Load 0x2,-0x2 0663 016d | m | Execute Variant_Record,Structure_Write 0664 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0665 0000 0000 | | .XXX[0x3] 0667 0000 | | 0668 ; -------------------------------------------------------------------------------------- 0668 ; SUBPROGRAM 0668 ; -------------------------------------------------------------------------------------- 0668 066b | k | .CONST 0x066b ; Address of begin 0669 0675 | u | .CONST 0x0675 ; Address of exception handler 066a 0001 | | .CONST 0x0001 ; Number of locals 066b BODY_0668: 066b INIT_0668: 066b 00da | | Load_Top At_Offset_2 066c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 066d 00db | | Load_Top At_Offset_3 066e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 066f e004 | | Load 0x0,0x4 0670 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 0671 e216 | | Load 0x1,0x16 0672 e5fe | | Load 0x2,-0x2 0673 016d | m | Execute Variant_Record,Structure_Write 0674 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0675 TRAP_0668: 0675 e033 | 3 | Load 0x0,0x33 0676 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0677 010f | | Execute Exception,Equal 0678 6806 |h | Jump_Zero 0x67f 0679 e033 | 3 | Load 0x0,0x33 067a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 067b 8217 | | Call 0x1,0x17 067c e5fe | | Load 0x2,-0x2 067d 016d | m | Execute Variant_Record,Structure_Write 067e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 067f 0100 | | Execute Exception,Raise 0680 ; -------------------------------------------------------------------------------------- 0680 ; SUBPROGRAM 0680 ; -------------------------------------------------------------------------------------- 0680 0683 | | .CONST 0x0683 ; Address of begin 0681 0004 | | .CONST 0x0004 ; Address of exception handler 0682 0001 | | .CONST 0x0001 ; Number of locals 0683 BODY_0680: 0683 INIT_0680: 0683 00db | | Load_Top At_Offset_3 0684 60eb |` | Indirect_Literal Discrete,0x770,{0x00000000, 0x20000888} 0685 027f | | Execute Discrete,Equal 0686 7002 |p | Jump_Nonzero 0x689 0687 4801 |H | Short_Literal 0x1 0688 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0689 e5fd | | Load 0x2,-0x3 068a 0f03 | | Execute_Immediate Equal,0x3 068b 7002 |p | Jump_Nonzero 0x68e 068c 4802 |H | Short_Literal 0x2 068d 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 068e e5fc | | Load 0x2,-0x4 068f 00d8 | | Load_Top At_Offset_0 0690 4801 |H | Short_Literal 0x1 0691 4814 |H | Short_Literal 0x14 0692 0262 | b | Execute Discrete,In_Range 0693 68d4 |h | Jump_Zero 0x768 0694 0aff | | Execute_Immediate Plus,-0x1 0695 4613 |F | Jump_Case 0x14 0696 781d |x | Jump 0x6b4 ; case 0x0 0697 7826 |x& | Jump 0x6be ; case 0x1 0698 782f |x/ | Jump 0x6c8 ; case 0x2 0699 7838 |x8 | Jump 0x6d2 ; case 0x3 069a 7841 |xA | Jump 0x6dc ; case 0x4 069b 784a |xJ | Jump 0x6e6 ; case 0x5 069c 7853 |xS | Jump 0x6f0 ; case 0x6 069d 785c |x\ | Jump 0x6fa ; case 0x7 069e 7865 |xe | Jump 0x704 ; case 0x8 069f 786e |xn | Jump 0x70e ; case 0x9 06a0 7877 |xw | Jump 0x718 ; case 0xa 06a1 7880 |x | Jump 0x722 ; case 0xb 06a2 7889 |x | Jump 0x72c ; case 0xc 06a3 7892 |x | Jump 0x736 ; case 0xd 06a4 78c4 |x | Jump 0x769 ; case 0xe 06a5 789a |x | Jump 0x740 ; case 0xf 06a6 78a3 |x | Jump 0x74a ; case 0x10 06a7 78ac |x | Jump 0x754 ; case 0x11 06a8 78b5 |x | Jump 0x75e ; case 0x12 06a9 7800 |x | Jump 0x6aa ; case 0x13 06aa 00da | | Load_Top At_Offset_2 06ab e2da | | Load 0x1,0xda 06ac e2db | | Load 0x1,0xdb 06ad 1ddc | | Execute_Immediate Reference_Lex_1,0xdc 06ae 1ddd | | Execute_Immediate Reference_Lex_1,0xdd 06af 1dde | | Execute_Immediate Reference_Lex_1,0xde 06b0 1ddf | | Execute_Immediate Reference_Lex_1,0xdf 06b1 e005 | | Load 0x0,0x5 06b2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06b3 78b7 |x | Jump 0x76b 06b4 00da | | Load_Top At_Offset_2 06b5 e238 | 8 | Load 0x1,0x38 06b6 e239 | 9 | Load 0x1,0x39 06b7 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a 06b8 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b 06b9 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c 06ba 1d3d | = | Execute_Immediate Reference_Lex_1,0x3d 06bb e005 | | Load 0x0,0x5 06bc 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06bd 78ad |x | Jump 0x76b 06be 00da | | Load_Top At_Offset_2 06bf e241 | A | Load 0x1,0x41 06c0 e242 | B | Load 0x1,0x42 06c1 1d43 | C | Execute_Immediate Reference_Lex_1,0x43 06c2 1d44 | D | Execute_Immediate Reference_Lex_1,0x44 06c3 1d45 | E | Execute_Immediate Reference_Lex_1,0x45 06c4 1d46 | F | Execute_Immediate Reference_Lex_1,0x46 06c5 e005 | | Load 0x0,0x5 06c6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06c7 78a3 |x | Jump 0x76b 06c8 00da | | Load_Top At_Offset_2 06c9 e24a | J | Load 0x1,0x4a 06ca e24b | K | Load 0x1,0x4b 06cb 1d4c | L | Execute_Immediate Reference_Lex_1,0x4c 06cc 1d4d | M | Execute_Immediate Reference_Lex_1,0x4d 06cd 1d4e | N | Execute_Immediate Reference_Lex_1,0x4e 06ce 1d4f | O | Execute_Immediate Reference_Lex_1,0x4f 06cf e005 | | Load 0x0,0x5 06d0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06d1 7899 |x | Jump 0x76b 06d2 00da | | Load_Top At_Offset_2 06d3 e253 | S | Load 0x1,0x53 06d4 e254 | T | Load 0x1,0x54 06d5 1d55 | U | Execute_Immediate Reference_Lex_1,0x55 06d6 1d56 | V | Execute_Immediate Reference_Lex_1,0x56 06d7 1d57 | W | Execute_Immediate Reference_Lex_1,0x57 06d8 1d58 | X | Execute_Immediate Reference_Lex_1,0x58 06d9 e005 | | Load 0x0,0x5 06da 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06db 788f |x | Jump 0x76b 06dc 00da | | Load_Top At_Offset_2 06dd e25c | \ | Load 0x1,0x5c 06de e25d | ] | Load 0x1,0x5d 06df 1d5e | ^ | Execute_Immediate Reference_Lex_1,0x5e 06e0 1d5f | _ | Execute_Immediate Reference_Lex_1,0x5f 06e1 1d60 | ` | Execute_Immediate Reference_Lex_1,0x60 06e2 1d61 | a | Execute_Immediate Reference_Lex_1,0x61 06e3 e005 | | Load 0x0,0x5 06e4 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06e5 7885 |x | Jump 0x76b 06e6 00da | | Load_Top At_Offset_2 06e7 e265 | e | Load 0x1,0x65 06e8 e266 | f | Load 0x1,0x66 06e9 1d67 | g | Execute_Immediate Reference_Lex_1,0x67 06ea 1d68 | h | Execute_Immediate Reference_Lex_1,0x68 06eb 1d69 | i | Execute_Immediate Reference_Lex_1,0x69 06ec 1d6a | j | Execute_Immediate Reference_Lex_1,0x6a 06ed e005 | | Load 0x0,0x5 06ee 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06ef 787b |x{ | Jump 0x76b 06f0 00da | | Load_Top At_Offset_2 06f1 e26e | n | Load 0x1,0x6e 06f2 e26f | o | Load 0x1,0x6f 06f3 1d70 | p | Execute_Immediate Reference_Lex_1,0x70 06f4 1d71 | q | Execute_Immediate Reference_Lex_1,0x71 06f5 1d72 | r | Execute_Immediate Reference_Lex_1,0x72 06f6 1d73 | s | Execute_Immediate Reference_Lex_1,0x73 06f7 e005 | | Load 0x0,0x5 06f8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06f9 7871 |xq | Jump 0x76b 06fa 00da | | Load_Top At_Offset_2 06fb e277 | w | Load 0x1,0x77 06fc e278 | x | Load 0x1,0x78 06fd 1d79 | y | Execute_Immediate Reference_Lex_1,0x79 06fe 1d7a | z | Execute_Immediate Reference_Lex_1,0x7a 06ff 1d7b | { | Execute_Immediate Reference_Lex_1,0x7b 0700 1d7c | | | Execute_Immediate Reference_Lex_1,0x7c 0701 e005 | | Load 0x0,0x5 0702 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0703 7867 |xg | Jump 0x76b 0704 00da | | Load_Top At_Offset_2 0705 e280 | | Load 0x1,0x80 0706 e281 | | Load 0x1,0x81 0707 1d82 | | Execute_Immediate Reference_Lex_1,0x82 0708 1d83 | | Execute_Immediate Reference_Lex_1,0x83 0709 1d84 | | Execute_Immediate Reference_Lex_1,0x84 070a 1d85 | | Execute_Immediate Reference_Lex_1,0x85 070b e005 | | Load 0x0,0x5 070c 1812 | | Execute Package,Field_Execute,Field_Number 0x12 070d 785d |x] | Jump 0x76b 070e 00da | | Load_Top At_Offset_2 070f e289 | | Load 0x1,0x89 0710 e28a | | Load 0x1,0x8a 0711 1d8b | | Execute_Immediate Reference_Lex_1,0x8b 0712 1d8c | | Execute_Immediate Reference_Lex_1,0x8c 0713 1d8d | | Execute_Immediate Reference_Lex_1,0x8d 0714 1d8e | | Execute_Immediate Reference_Lex_1,0x8e 0715 e005 | | Load 0x0,0x5 0716 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0717 7853 |xS | Jump 0x76b 0718 00da | | Load_Top At_Offset_2 0719 e292 | | Load 0x1,0x92 071a e293 | | Load 0x1,0x93 071b 1d94 | | Execute_Immediate Reference_Lex_1,0x94 071c 1d95 | | Execute_Immediate Reference_Lex_1,0x95 071d 1d96 | | Execute_Immediate Reference_Lex_1,0x96 071e 1d97 | | Execute_Immediate Reference_Lex_1,0x97 071f e005 | | Load 0x0,0x5 0720 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0721 7849 |xI | Jump 0x76b 0722 00da | | Load_Top At_Offset_2 0723 e29b | | Load 0x1,0x9b 0724 e29c | | Load 0x1,0x9c 0725 1d9d | | Execute_Immediate Reference_Lex_1,0x9d 0726 1d9e | | Execute_Immediate Reference_Lex_1,0x9e 0727 1d9f | | Execute_Immediate Reference_Lex_1,0x9f 0728 1da0 | | Execute_Immediate Reference_Lex_1,0xa0 0729 e005 | | Load 0x0,0x5 072a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 072b 783f |x? | Jump 0x76b 072c 00da | | Load_Top At_Offset_2 072d e2a4 | | Load 0x1,0xa4 072e e2a5 | | Load 0x1,0xa5 072f 1da6 | | Execute_Immediate Reference_Lex_1,0xa6 0730 1da7 | | Execute_Immediate Reference_Lex_1,0xa7 0731 1da8 | | Execute_Immediate Reference_Lex_1,0xa8 0732 1da9 | | Execute_Immediate Reference_Lex_1,0xa9 0733 e005 | | Load 0x0,0x5 0734 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0735 7835 |x5 | Jump 0x76b 0736 00da | | Load_Top At_Offset_2 0737 e2ad | | Load 0x1,0xad 0738 e2ae | | Load 0x1,0xae 0739 1daf | | Execute_Immediate Reference_Lex_1,0xaf 073a 1db0 | | Execute_Immediate Reference_Lex_1,0xb0 073b 1db1 | | Execute_Immediate Reference_Lex_1,0xb1 073c 1db2 | | Execute_Immediate Reference_Lex_1,0xb2 073d e005 | | Load 0x0,0x5 073e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 073f 782b |x+ | Jump 0x76b 0740 00da | | Load_Top At_Offset_2 0741 e2b6 | | Load 0x1,0xb6 0742 e2b7 | | Load 0x1,0xb7 0743 1db8 | | Execute_Immediate Reference_Lex_1,0xb8 0744 1db9 | | Execute_Immediate Reference_Lex_1,0xb9 0745 1dba | | Execute_Immediate Reference_Lex_1,0xba 0746 1dbb | | Execute_Immediate Reference_Lex_1,0xbb 0747 e005 | | Load 0x0,0x5 0748 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0749 7821 |x! | Jump 0x76b 074a 00da | | Load_Top At_Offset_2 074b e2bf | | Load 0x1,0xbf 074c e2c0 | | Load 0x1,0xc0 074d 1dc1 | | Execute_Immediate Reference_Lex_1,0xc1 074e 1dc2 | | Execute_Immediate Reference_Lex_1,0xc2 074f 1dc3 | | Execute_Immediate Reference_Lex_1,0xc3 0750 1dc4 | | Execute_Immediate Reference_Lex_1,0xc4 0751 e005 | | Load 0x0,0x5 0752 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0753 7817 |x | Jump 0x76b 0754 00da | | Load_Top At_Offset_2 0755 e2c8 | | Load 0x1,0xc8 0756 e2c9 | | Load 0x1,0xc9 0757 1dca | | Execute_Immediate Reference_Lex_1,0xca 0758 1dcb | | Execute_Immediate Reference_Lex_1,0xcb 0759 1dcc | | Execute_Immediate Reference_Lex_1,0xcc 075a 1dcd | | Execute_Immediate Reference_Lex_1,0xcd 075b e005 | | Load 0x0,0x5 075c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 075d 780d |x | Jump 0x76b 075e 00da | | Load_Top At_Offset_2 075f e2d1 | | Load 0x1,0xd1 0760 e2d2 | | Load 0x1,0xd2 0761 1dd3 | | Execute_Immediate Reference_Lex_1,0xd3 0762 1dd4 | | Execute_Immediate Reference_Lex_1,0xd4 0763 1dd5 | | Execute_Immediate Reference_Lex_1,0xd5 0764 1dd6 | | Execute_Immediate Reference_Lex_1,0xd6 0765 e005 | | Load 0x0,0x5 0766 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0767 7803 |x | Jump 0x76b 0768 00d1 | | Pop_Control Pop_Count_1 0769 4803 |H | Short_Literal 0x3 076a 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 076b 4800 |H | Short_Literal 0x0 076c 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 076d 0000 0000 | | .XXX[0x3] 076f 0000 | | 0770 0000 0000 | | .LITERAL {0x00000000, 0x20000888} 0774 0000 0000 | | .BLANK 0000[0x4] 0778 ; -------------------------------------------------------------------------------------- 0778 ; SUBPROGRAM 0778 ; -------------------------------------------------------------------------------------- 0778 077b | { | .CONST 0x077b ; Address of begin 0779 0004 | | .CONST 0x0004 ; Address of exception handler 077a 0001 | | .CONST 0x0001 ; Number of locals 077b BODY_0778: 077b INIT_0778: 077b 4800 |H | Short_Literal 0x0 077c 00db | | Load_Top At_Offset_3 077d 01d7 | | Execute Vector,Field_Read 077e 0908 | | Execute_Immediate Binary_Scale,0x8 077f 4801 |H | Short_Literal 0x1 0780 e5ff | | Load 0x2,-0x1 0781 01d7 | | Execute Vector,Field_Read 0782 0273 | s | Execute Discrete,Plus 0783 00d8 | | Load_Top At_Offset_0 0784 e20d | | Load 0x1,0xd 0785 0260 | ` | Execute Discrete,In_Type 0786 7001 |p | Jump_Nonzero 0x788 0787 0801 | | Execute_Immediate Raise,0x1 0788 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0789 0000 0000 | | .BLANK 0000[0x7] 0790 ; -------------------------------------------------------------------------------------- 0790 ; Debug Table 0790 ; -------------------------------------------------------------------------------------- 0790 0004 0011 | | .DEBUG4 0x0004,0x0011,0x8451,0x0000,0x0001,0x0000 0796 0000 0000 | | .BLANK 0000[0x62] 07f8 6e65 7269 |neri| .XXX[0x8] 07fa 632e 6465 |c.de| 07fc 6c65 7465 |lete| 07fe 0000 0009 | |