|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6a18da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 05e8 | | .CONST 0x05e8 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 014a | J | .CONST 0x014a ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 003a | : | .CONST 0x003a ; Number of locals 000b INIT_0008: 000b 00c4 | | Action Make_Default 000c 00c4 | | Action Make_Default 000d 00c4 | | Action Make_Default 000e 00c4 | | Action Make_Default 000f 00c4 | | Action Make_Default 0010 00c4 | | Action Make_Default 0011 00c4 | | Action Make_Default 0012 00c4 | | Action Make_Default 0013 00c4 | | Action Make_Default 0014 00c4 | | Action Make_Default 0015 00c4 | | Action Make_Default 0016 00c4 | | Action Make_Default 0017 00c4 | | Action Make_Default 0018 00c4 | | Action Make_Default 0019 00c4 | | Action Make_Default 001a 00c4 | | Action Make_Default 001b 00c4 | | Action Make_Default 001c 00c4 | | Action Make_Default 001d 00c4 | | Action Make_Default 001e 00c4 | | Action Make_Default 001f 00c4 | | Action Make_Default 0020 4818 |H | Short_Literal 0x18 0021 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected 0022 c20e | | Store 0x1,0xe 0023 e001 | | Load 0x0,0x1 0024 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0025 0129 | ) | Execute Any,Make_Visible 0026 c20d | | Store 0x1,0xd 0027 00e3 | | Load_Encached Natural_Cache 0028 0266 | f | Execute Discrete,Bounds 0029 e20d | | Load 0x1,0xd 002a 029f 0153 | S| Declare_Subprogram INIT_0150,For_Call 002c 4801 |H | Short_Literal 0x1 002d 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 002e c20f | | Store 0x1,0xf 002f 00e3 | | Load_Encached Natural_Cache 0030 e002 | | Load 0x0,0x2 0031 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0032 4801 |H | Short_Literal 0x1 0033 6134 |a4 | Indirect_Literal Discrete,0x168,{0x00000000, 0x7fffffff} 0034 e20f | | Load 0x1,0xf 0035 034f | O | Declare_Type Array,Constrained,Visible,Bounds_With_Object 0036 029f 0583 | | Declare_Subprogram INIT_0580,For_Call 0038 4800 |H | Short_Literal 0x0 0039 4801 |H | Short_Literal 0x1 003a 4801 |H | Short_Literal 0x1 003b 4800 |H | Short_Literal 0x0 003c 4801 |H | Short_Literal 0x1 003d 4801 |H | Short_Literal 0x1 003e 031e | | Declare_Type Variant_Record,Defined,Visible 003f c210 | | Store 0x1,0x10 0040 4800 |H | Short_Literal 0x0 0041 e003 | | Load 0x0,0x3 0042 02a0 | | Declare_Subprogram Null_Subprogram 0043 038f | | Declare_Type Package,Defined,Visible 0044 0386 | | Declare_Variable Package,Visible 0045 c217 | | Store 0x1,0x17 0046 4800 |H | Short_Literal 0x0 0047 e004 | | Load 0x0,0x4 0048 02a0 | | Declare_Subprogram Null_Subprogram 0049 038f | | Declare_Type Package,Defined,Visible 004a 0386 | | Declare_Variable Package,Visible 004b c218 | | Store 0x1,0x18 004c 4800 |H | Short_Literal 0x0 004d e005 | | Load 0x0,0x5 004e 02a0 | | Declare_Subprogram Null_Subprogram 004f 038f | | Declare_Type Package,Defined,Visible 0050 0386 | | Declare_Variable Package,Visible 0051 c219 | | Store 0x1,0x19 0052 e006 | | Load 0x0,0x6 0053 e007 | | Load 0x0,0x7 0054 e008 | | Load 0x0,0x8 0055 1bbe | | Execute Package,Field_Read,Field_Number 0xbe 0056 e008 | | Load 0x0,0x8 0057 1bbf | | Execute Package,Field_Read,Field_Number 0xbf 0058 4800 |H | Short_Literal 0x0 0059 4800 |H | Short_Literal 0x0 005a e008 | | Load 0x0,0x8 005b 1924 | $ | Execute Package,Field_Reference,Field_Number 0x24 005c e008 | | Load 0x0,0x8 005d 1925 | % | Execute Package,Field_Reference,Field_Number 0x25 005e e008 | | Load 0x0,0x8 005f 1956 | V | Execute Package,Field_Reference,Field_Number 0x56 0060 e008 | | Load 0x0,0x8 0061 1957 | W | Execute Package,Field_Reference,Field_Number 0x57 0062 e008 | | Load 0x0,0x8 0063 1926 | & | Execute Package,Field_Reference,Field_Number 0x26 0064 0092 05a5 | | Action Push_String_Extended,0x5a5 ; "!Machine.target_Builder.rcf_errors" 0066 0092 05a6 | | Action Push_String_Extended,0x5a6 ; "error '~@~' (~#~) ~1 (no arguments given)~ ~2~ ~3~" 0068 4801 |H | Short_Literal 0x1 0069 4801 |H | Short_Literal 0x1 006a e009 | | Load 0x0,0x9 006b 1b16 | | Execute Package,Field_Read,Field_Number 0x16 006c 0387 | | Declare_Variable Package 006d 00d8 | | Load_Top At_Offset_0 006e 020f | | Execute Module,Activate 006f c221 | ! | Store 0x1,0x21 0070 4802 |H | Short_Literal 0x2 0071 032a | * | Declare_Type Record,Incomplete 0072 c21d | | Store 0x1,0x1d 0073 e21d | | Load 0x1,0x1d 0074 02a0 | | Declare_Subprogram Null_Subprogram 0075 e20e | | Load 0x1,0xe 0076 03c7 | | Complete_Type Access,By_Defining 0077 00bf | | Action Accept_Activation 0078 00d8 | | Load_Top At_Offset_0 0079 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 007a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 007b 00d9 | | Load_Top At_Offset_1 007c 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 007d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 007e 029f 0173 | s| Declare_Subprogram INIT_0170,For_Call 0080 e21d | | Load 0x1,0x1d 0081 0326 | & | Complete_Type Record,By_Defining 0082 4900 |I | Short_Literal 0x100 0083 e00a | | Load 0x0,0xa 0084 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0085 1c07 | | Execute_Immediate Run_Utility,0x7 0086 00e8 | | Load_Encached Character_Cache 0087 4900 |I | Short_Literal 0x100 0088 e00a | | Load 0x0,0xa 0089 1b0e | | Execute Package,Field_Read,Field_Number 0xe 008a 1c07 | | Execute_Immediate Run_Utility,0x7 008b 4900 |I | Short_Literal 0x100 008c e00a | | Load 0x0,0xa 008d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 008e 1c07 | | Execute_Immediate Run_Utility,0x7 008f 029f 0193 | | Declare_Subprogram INIT_0190,For_Call 0091 4804 |H | Short_Literal 0x4 0092 032d | - | Declare_Type Record,Defined 0093 4801 |H | Short_Literal 0x1 0094 4880 |H | Short_Literal 0x80 0095 00e9 | | Load_Encached String_Cache 0096 035b | [ | Declare_Type Array,Constrained 0097 00e3 | | Load_Encached Natural_Cache 0098 4801 |H | Short_Literal 0x1 0099 4880 |H | Short_Literal 0x80 009a 00e9 | | Load_Encached String_Cache 009b 035b | [ | Declare_Type Array,Constrained 009c 00e3 | | Load_Encached Natural_Cache 009d 4801 |H | Short_Literal 0x1 009e 4880 |H | Short_Literal 0x80 009f 00e9 | | Load_Encached String_Cache 00a0 035b | [ | Declare_Type Array,Constrained 00a1 00e3 | | Load_Encached Natural_Cache 00a2 029f 01c3 | | Declare_Subprogram INIT_01c0,For_Call 00a4 4806 |H | Short_Literal 0x6 00a5 032d | - | Declare_Type Record,Defined 00a6 0092 05a7 | | Action Push_String_Extended,0x5a7 ; "Compiler = " 00a8 0092 05a8 | | Action Push_String_Extended,0x5a8 ; "Linker = " 00aa 0092 05a9 | | Action Push_String_Extended,0x5a9 ; "Loader = " 00ac 029d 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call 00ae 029d 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call 00b0 029d 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call 00b2 029d 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call 00b4 029d 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call 00b6 029d 029b | | Declare_Subprogram INIT_0298,For_Outer_Call 00b8 029d 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call 00ba e00b | | Load 0x0,0xb 00bb e00c | | Load 0x0,0xc 00bc e223 | # | Load 0x1,0x23 00bd 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c 00be 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d 00bf 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c 00c0 00c4 | | Action Make_Default 00c1 e221 | ! | Load 0x1,0x21 00c2 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 00c3 c234 | 4 | Store 0x1,0x34 00c4 e221 | ! | Load 0x1,0x21 00c5 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 00c6 1b61 | a | Execute Package,Field_Read,Field_Number 0x61 00c7 0387 | | Declare_Variable Package 00c8 00d8 | | Load_Top At_Offset_0 00c9 020f | | Execute Module,Activate 00ca 029d 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call 00cc 029d 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call 00ce 029d 0443 | C| Declare_Subprogram INIT_0440,For_Outer_Call 00d0 e00d | | Load 0x0,0xd 00d1 e00e | | Load 0x0,0xe 00d2 e222 | " | Load 0x1,0x22 00d3 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 00d4 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 00d5 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31 00d6 00c4 | | Action Make_Default 00d7 e221 | ! | Load 0x1,0x21 00d8 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 00d9 c238 | 8 | Store 0x1,0x38 00da e221 | ! | Load 0x1,0x21 00db 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 00dc 1b4a | J | Execute Package,Field_Read,Field_Number 0x4a 00dd 0387 | | Declare_Variable Package 00de 00d8 | | Load_Top At_Offset_0 00df 020f | | Execute Module,Activate 00e0 029d 044b | K| Declare_Subprogram INIT_0448,For_Outer_Call 00e2 029d 046b | k| Declare_Subprogram INIT_0468,For_Outer_Call 00e4 029d 048b | | Declare_Subprogram INIT_0488,For_Outer_Call 00e6 029d 04ab | | Declare_Subprogram INIT_04a8,For_Outer_Call 00e8 029d 04cb | | Declare_Subprogram INIT_04c8,For_Outer_Call 00ea 029d 04f3 | | Declare_Subprogram INIT_04f0,For_Outer_Call 00ec 029d 051b | | Declare_Subprogram INIT_0518,For_Outer_Call 00ee 029d 0543 | C| Declare_Subprogram INIT_0540,For_Outer_Call 00f0 e002 | | Load 0x0,0x2 00f1 e22e | . | Load 0x1,0x2e 00f2 e223 | # | Load 0x1,0x23 00f3 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 00f4 e00f | | Load 0x0,0xf 00f5 e010 | | Load 0x0,0x10 00f6 e011 | | Load 0x0,0x11 00f7 e221 | ! | Load 0x1,0x21 00f8 e001 | | Load 0x0,0x1 00f9 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34 00fa 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33 00fb 480b |H | Short_Literal 0xb 00fc e217 | | Load 0x1,0x17 00fd 020e | | Execute Module,Augment_Imports 00fe e217 | | Load 0x1,0x17 00ff 020f | | Execute Module,Activate 0100 e012 | | Load 0x0,0x12 0101 e001 | | Load 0x0,0x1 0102 e013 | | Load 0x0,0x13 0103 e014 | | Load 0x0,0x14 0104 e015 | | Load 0x0,0x15 0105 e002 | | Load 0x0,0x2 0106 00b6 | | Action Make_Scope 0107 e221 | ! | Load 0x1,0x21 0108 e008 | | Load 0x0,0x8 0109 e016 | | Load 0x0,0x16 010a e017 | | Load 0x0,0x17 010b e011 | | Load 0x0,0x11 010c e010 | | Load 0x0,0x10 010d e018 | | Load 0x0,0x18 010e e019 | | Load 0x0,0x19 010f 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 0110 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 0111 e01a | | Load 0x0,0x1a 0112 e01b | | Load 0x0,0x1b 0113 e01c | | Load 0x0,0x1c 0114 e01d | | Load 0x0,0x1d 0115 e01e | | Load 0x0,0x1e 0116 e01f | | Load 0x0,0x1f 0117 e223 | # | Load 0x1,0x23 0118 e22e | . | Load 0x1,0x2e 0119 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a 011a 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 011b e00f | | Load 0x0,0xf 011c 481c |H | Short_Literal 0x1c 011d e219 | | Load 0x1,0x19 011e 020e | | Execute Module,Augment_Imports 011f e219 | | Load 0x1,0x19 0120 020f | | Execute Module,Activate 0121 e221 | ! | Load 0x1,0x21 0122 e001 | | Load 0x0,0x1 0123 00b6 | | Action Make_Scope 0124 e011 | | Load 0x0,0x11 0125 e002 | | Load 0x0,0x2 0126 e016 | | Load 0x0,0x16 0127 e010 | | Load 0x0,0x10 0128 e020 | | Load 0x0,0x20 0129 e008 | | Load 0x0,0x8 012a e021 | ! | Load 0x0,0x21 012b e00f | | Load 0x0,0xf 012c e022 | " | Load 0x0,0x22 012d e023 | # | Load 0x0,0x23 012e e01c | | Load 0x0,0x1c 012f e024 | $ | Load 0x0,0x24 0130 e025 | % | Load 0x0,0x25 0131 e018 | | Load 0x0,0x18 0132 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 0133 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 0134 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a 0135 e026 | & | Load 0x0,0x26 0136 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 0137 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37 0138 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38 0139 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39 013a 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35 013b 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36 013c e01a | | Load 0x0,0x1a 013d e027 | ' | Load 0x0,0x27 013e e028 | ( | Load 0x0,0x28 013f e029 | ) | Load 0x0,0x29 0140 e02a | * | Load 0x0,0x2a 0141 e02b | + | Load 0x0,0x2b 0142 e02c | , | Load 0x0,0x2c 0143 e02d | - | Load 0x0,0x2d 0144 e02e | . | Load 0x0,0x2e 0145 4824 |H$ | Short_Literal 0x24 0146 e218 | | Load 0x1,0x18 0147 020e | | Execute Module,Augment_Imports 0148 e218 | | Load 0x1,0x18 0149 020f | | Execute Module,Activate 014a BODY_0008: 014a 00bc | | Action Signal_Activated 014b 00bb | | Action Signal_Completion 014c 0000 0000 | | .BLANK 0000[0x4] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0153 | S | .CONST 0x0153 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0001 | | .CONST 0x0001 ; Number of locals 0153 BODY_0150: 0153 INIT_0150: 0153 00d1 | | Pop_Control Pop_Count_1 0154 00da | | Load_Top At_Offset_2 0155 01dc | | Execute Vector,Last 0156 00db | | Load_Top At_Offset_3 0157 01dd | | Execute Vector,First 0158 0263 | c | Execute Discrete,Above_Bound 0159 700a |p | Jump_Nonzero 0x164 015a 00d8 | | Load_Top At_Offset_0 015b e5ff | | Load 0x2,-0x1 015c 01d5 | | Execute Vector,Field_Reference 015d 0125 | % | Execute Any,Set_Constraint 015e 00d8 | | Load_Top At_Offset_0 015f e5ff | | Load 0x2,-0x1 0160 01d5 | | Execute Vector,Field_Reference 0161 1c00 | | Execute_Immediate Run_Utility,0x0 0162 0a01 | | Execute_Immediate Plus,0x1 0163 7ff4 | | Jump 0x158 0164 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0165 0000 0000 | | .XXX[0x3] 0167 0000 | | 0168 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 016c 0000 0000 | | .BLANK 0000[0x4] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0173 | s | .CONST 0x0173 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0001 | | .CONST 0x0001 ; Number of locals 0173 BODY_0170: 0173 INIT_0170: 0173 4608 |F | Jump_Case 0x9 0174 7808 |x | Jump 0x17d ; case 0x0 0175 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0176 7813 |x | Jump 0x18a ; case 0x2 0177 7812 |x | Jump 0x18a ; case 0x3 0178 7811 |x | Jump 0x18a ; case 0x4 0179 7810 |x | Jump 0x18a ; case 0x5 017a 780f |x | Jump 0x18a ; case 0x6 017b 780e |x | Jump 0x18a ; case 0x7 017c 780d |x | Jump 0x18a ; case 0x8 017d 00da | | Load_Top At_Offset_2 017e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 017f 0125 | % | Execute Any,Set_Constraint 0180 00da | | Load_Top At_Offset_2 0181 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0182 1c00 | | Execute_Immediate Run_Utility,0x0 0183 00da | | Load_Top At_Offset_2 0184 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0185 0125 | % | Execute Any,Set_Constraint 0186 00da | | Load_Top At_Offset_2 0187 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0188 1c00 | | Execute_Immediate Run_Utility,0x0 0189 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 018a 0869 | i | Execute_Immediate Raise,0x69 018b 0000 0000 | | .BLANK 0000[0x5] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 0193 | | .CONST 0x0193 ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0001 | | .CONST 0x0001 ; Number of locals 0193 BODY_0190: 0193 INIT_0190: 0193 4608 |F | Jump_Case 0x9 0194 7808 |x | Jump 0x19d ; case 0x0 0195 781a |x | Jump 0x1b0 ; case 0x1 0196 7823 |x# | Jump 0x1ba ; case 0x2 0197 7822 |x" | Jump 0x1ba ; case 0x3 0198 7821 |x! | Jump 0x1ba ; case 0x4 0199 7820 |x | Jump 0x1ba ; case 0x5 019a 781f |x | Jump 0x1ba ; case 0x6 019b 781e |x | Jump 0x1ba ; case 0x7 019c 781d |x | Jump 0x1ba ; case 0x8 019d 00da | | Load_Top At_Offset_2 019e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 019f 0125 | % | Execute Any,Set_Constraint 01a0 00da | | Load_Top At_Offset_2 01a1 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01a2 1c00 | | Execute_Immediate Run_Utility,0x0 01a3 00da | | Load_Top At_Offset_2 01a4 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 01a5 0125 | % | Execute Any,Set_Constraint 01a6 00da | | Load_Top At_Offset_2 01a7 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 01a8 1c00 | | Execute_Immediate Run_Utility,0x0 01a9 00da | | Load_Top At_Offset_2 01aa 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 01ab 0125 | % | Execute Any,Set_Constraint 01ac 00da | | Load_Top At_Offset_2 01ad 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 01ae 1c00 | | Execute_Immediate Run_Utility,0x0 01af 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01b0 00da | | Load_Top At_Offset_2 01b1 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01b2 0125 | % | Execute Any,Set_Constraint 01b3 00da | | Load_Top At_Offset_2 01b4 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 01b5 0125 | % | Execute Any,Set_Constraint 01b6 00da | | Load_Top At_Offset_2 01b7 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 01b8 0125 | % | Execute Any,Set_Constraint 01b9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01ba 0869 | i | Execute_Immediate Raise,0x69 01bb 0000 0000 | | .BLANK 0000[0x5] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c3 | | .CONST 0x01c3 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0001 | | .CONST 0x0001 ; Number of locals 01c3 BODY_01c0: 01c3 INIT_01c0: 01c3 4608 |F | Jump_Case 0x9 01c4 7808 |x | Jump 0x1cd ; case 0x0 01c5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 01c6 7843 |xC | Jump 0x20a ; case 0x2 01c7 7842 |xB | Jump 0x20a ; case 0x3 01c8 7841 |xA | Jump 0x20a ; case 0x4 01c9 7840 |x@ | Jump 0x20a ; case 0x5 01ca 783f |x? | Jump 0x20a ; case 0x6 01cb 783e |x> | Jump 0x20a ; case 0x7 01cc 783d |x= | Jump 0x20a ; case 0x8 01cd e223 | # | Load 0x1,0x23 01ce 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 01cf 0337 | 7 | Declare_Variable Array 01d0 4880 |H | Short_Literal 0x80 01d1 4801 |H | Short_Literal 0x1 01d2 4820 |H | Short_Literal 0x20 01d3 00d9 | | Load_Top At_Offset_1 01d4 e402 | | Load 0x2,0x2 01d5 01d6 | | Execute Vector,Field_Write 01d6 3ffb |? | Loop_Increasing 0x1d2 01d7 00db | | Load_Top At_Offset_3 01d8 00d9 | | Load_Top At_Offset_1 01d9 00d9 | | Load_Top At_Offset_1 01da 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 01db 0119 | | Execute Any,Check_In_Formal_Type 01dc 00d1 | | Pop_Control Pop_Count_1 01dd 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01de 4800 |H | Short_Literal 0x0 01df 00db | | Load_Top At_Offset_3 01e0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01e1 e223 | # | Load 0x1,0x23 01e2 3002 |0 | Execute Record,Field_Type,Field_Number 0x2 01e3 0337 | 7 | Declare_Variable Array 01e4 4880 |H | Short_Literal 0x80 01e5 4801 |H | Short_Literal 0x1 01e6 4820 |H | Short_Literal 0x20 01e7 00d9 | | Load_Top At_Offset_1 01e8 e402 | | Load 0x2,0x2 01e9 01d6 | | Execute Vector,Field_Write 01ea 3ffb |? | Loop_Increasing 0x1e6 01eb 00db | | Load_Top At_Offset_3 01ec 00d9 | | Load_Top At_Offset_1 01ed 00d9 | | Load_Top At_Offset_1 01ee 3002 |0 | Execute Record,Field_Type,Field_Number 0x2 01ef 0119 | | Execute Any,Check_In_Formal_Type 01f0 00d1 | | Pop_Control Pop_Count_1 01f1 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01f2 4800 |H | Short_Literal 0x0 01f3 00db | | Load_Top At_Offset_3 01f4 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 01f5 e223 | # | Load 0x1,0x23 01f6 3004 |0 | Execute Record,Field_Type,Field_Number 0x4 01f7 0337 | 7 | Declare_Variable Array 01f8 4880 |H | Short_Literal 0x80 01f9 4801 |H | Short_Literal 0x1 01fa 4820 |H | Short_Literal 0x20 01fb 00d9 | | Load_Top At_Offset_1 01fc e402 | | Load 0x2,0x2 01fd 01d6 | | Execute Vector,Field_Write 01fe 3ffb |? | Loop_Increasing 0x1fa 01ff 00db | | Load_Top At_Offset_3 0200 00d9 | | Load_Top At_Offset_1 0201 00d9 | | Load_Top At_Offset_1 0202 3004 |0 | Execute Record,Field_Type,Field_Number 0x4 0203 0119 | | Execute Any,Check_In_Formal_Type 0204 00d1 | | Pop_Control Pop_Count_1 0205 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0206 4800 |H | Short_Literal 0x0 0207 00db | | Load_Top At_Offset_3 0208 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0209 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 020a 0869 | i | Execute_Immediate Raise,0x69 020b 0000 0000 | | .BLANK 0000[0x5] 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 700d |p | Jump_Nonzero 0x222 0215 e011 | | Load 0x0,0x11 0216 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0217 6010 |` | Indirect_Literal Discrete,0x228,{0x00000000, 0x0000813c} 0218 e002 | | Load 0x0,0x2 0219 1813 | | Execute Package,Field_Execute,Field_Number 0x13 021a a5fd | | Store_Unchecked 0x2,-0x3 021b 00db | | Load_Top At_Offset_3 021c e011 | | Load 0x0,0x11 021d 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 021e 6009 |` | Indirect_Literal Discrete,0x228,{0x00000000, 0x0000813c} 021f e002 | | Load 0x0,0x2 0220 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0221 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0222 4800 |H | Short_Literal 0x0 0223 a5fd | | Store_Unchecked 0x2,-0x3 0224 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0225 0000 0000 | | .XXX[0x3] 0227 0000 | | 0228 0000 0000 | | .LITERAL {0x00000000, 0x0000813c} 022c 0000 0000 | | .BLANK 0000[0x4] 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 e221 | ! | Load 0x1,0x21 0235 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0236 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0237 e011 | | Load 0x0,0x11 0238 1810 | | Execute Package,Field_Execute,Field_Number 0x10 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 0227 | ' | Execute Access,All_Reference 0245 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0246 00d8 | | Load_Top At_Offset_0 0247 0120 | | Execute Any,Is_Value 0248 7002 |p | Jump_Nonzero 0x24b 0249 00d8 | | Load_Top At_Offset_0 024a 011e | | Execute Any,Convert 024b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 024c 0000 0000 | | .BLANK 0000[0x4] 0250 ; -------------------------------------------------------------------------------------- 0250 ; SUBPROGRAM 0250 ; -------------------------------------------------------------------------------------- 0250 0257 | W | .CONST 0x0257 ; Address of begin 0251 0004 | | .CONST 0x0004 ; Address of exception handler 0252 0002 | | .CONST 0x0002 ; Number of locals 0253 INIT_0250: 0253 00da | | Load_Top At_Offset_2 0254 e221 | ! | Load 0x1,0x21 0255 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0256 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0257 BODY_0250: 0257 00d8 | | Load_Top At_Offset_0 0258 01dd | | Execute Vector,First 0259 00d9 | | Load_Top At_Offset_1 025a 01d7 | | Execute Vector,Field_Read 025b 0f2e | . | Execute_Immediate Equal,0x2e 025c 680d |h | Jump_Zero 0x26a 025d 00d8 | | Load_Top At_Offset_0 025e 01dd | | Execute Vector,First 025f 0a01 | | Execute_Immediate Plus,0x1 0260 00d8 | | Load_Top At_Offset_0 0261 00e2 | | Load_Encached Integer_Cache 0262 0260 | ` | Execute Discrete,In_Type 0263 7001 |p | Jump_Nonzero 0x265 0264 0801 | | Execute_Immediate Raise,0x1 0265 00d9 | | Load_Top At_Offset_1 0266 01dc | | Execute Vector,Last 0267 00da | | Load_Top At_Offset_2 0268 01cf | | Execute Vector,Slice_Read 0269 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 026a 00d8 | | Load_Top At_Offset_0 026b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 026c 0000 0000 | | .BLANK 0000[0x4] 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 0277 | w | .CONST 0x0277 ; Address of begin 0271 0004 | | .CONST 0x0004 ; Address of exception handler 0272 0002 | | .CONST 0x0002 ; Number of locals 0273 INIT_0270: 0273 00da | | Load_Top At_Offset_2 0274 e221 | ! | Load 0x1,0x21 0275 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0276 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0277 BODY_0270: 0277 00d8 | | Load_Top At_Offset_0 0278 01dd | | Execute Vector,First 0279 00d9 | | Load_Top At_Offset_1 027a 01d7 | | Execute Vector,Field_Read 027b 0f2e | . | Execute_Immediate Equal,0x2e 027c 6810 |h | Jump_Zero 0x28d 027d 00d8 | | Load_Top At_Offset_0 027e 01dd | | Execute Vector,First 027f 0a01 | | Execute_Immediate Plus,0x1 0280 00d8 | | Load_Top At_Offset_0 0281 00e2 | | Load_Encached Integer_Cache 0282 0260 | ` | Execute Discrete,In_Type 0283 7001 |p | Jump_Nonzero 0x285 0284 0801 | | Execute_Immediate Raise,0x1 0285 00d9 | | Load_Top At_Offset_1 0286 01dc | | Execute Vector,Last 0287 00da | | Load_Top At_Offset_2 0288 01cf | | Execute Vector,Slice_Read 0289 e001 | | Load 0x0,0x1 028a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 028b 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 028c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 028d 00d8 | | Load_Top At_Offset_0 028e e001 | | Load 0x0,0x1 028f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0290 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 0291 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0292 0000 0000 | | .BLANK 0000[0x6] 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 029b | | .CONST 0x029b ; Address of begin 0299 0004 | | .CONST 0x0004 ; Address of exception handler 029a 0001 | | .CONST 0x0001 ; Number of locals 029b BODY_0298: 029b INIT_0298: 029b e224 | $ | Load 0x1,0x24 029c 4801 |H | Short_Literal 0x1 029d e5ff | | Load 0x2,-0x1 029e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 029f e5ff | | Load 0x2,-0x1 02a0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02a1 01cf | | Execute Vector,Slice_Read 02a2 01cc | | Execute Vector,Catenate 02a3 0092 05aa | | Action Push_String_Extended,0x5aa ; " " 02a5 01cc | | Execute Vector,Catenate 02a6 e225 | % | Load 0x1,0x25 02a7 01cc | | Execute Vector,Catenate 02a8 4801 |H | Short_Literal 0x1 02a9 e5ff | | Load 0x2,-0x1 02aa 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 02ab e5ff | | Load 0x2,-0x1 02ac 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 02ad 01cf | | Execute Vector,Slice_Read 02ae 01cc | | Execute Vector,Catenate 02af 0092 05aa | | Action Push_String_Extended,0x5aa ; " " 02b1 01cc | | Execute Vector,Catenate 02b2 e226 | & | Load 0x1,0x26 02b3 01cc | | Execute Vector,Catenate 02b4 4801 |H | Short_Literal 0x1 02b5 e5ff | | Load 0x2,-0x1 02b6 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 02b7 e5ff | | Load 0x2,-0x1 02b8 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 02b9 01cf | | Execute Vector,Slice_Read 02ba 01cc | | Execute Vector,Catenate 02bb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02bc 0000 0000 | | .BLANK 0000[0x4] 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; SUBPROGRAM 02c0 ; -------------------------------------------------------------------------------------- 02c0 02cb | | .CONST 0x02cb ; Address of begin 02c1 0004 | | .CONST 0x0004 ; Address of exception handler 02c2 0005 | | .CONST 0x0005 ; Number of locals 02c3 INIT_02c0: 02c3 e223 | # | Load 0x1,0x23 02c4 0322 | " | Declare_Variable Record 02c5 00d8 | | Load_Top At_Offset_0 02c6 1c00 | | Execute_Immediate Run_Utility,0x0 02c7 00e3 | | Load_Encached Natural_Cache 02c8 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 02c9 03e9 | | Declare_Variable Discrete,Duplicate 02ca 03e9 | | Declare_Variable Discrete,Duplicate 02cb BODY_02c0: 02cb 4801 |H | Short_Literal 0x1 02cc e5ff | | Load 0x2,-0x1 02cd e224 | $ | Load 0x1,0x24 02ce e00f | | Load 0x0,0xf 02cf 181f | | Execute Package,Field_Execute,Field_Number 0x1f 02d0 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 02d1 4801 |H | Short_Literal 0x1 02d2 e5ff | | Load 0x2,-0x1 02d3 e225 | % | Load 0x1,0x25 02d4 e00f | | Load 0x0,0xf 02d5 181f | | Execute Package,Field_Execute,Field_Number 0x1f 02d6 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 02d7 4801 |H | Short_Literal 0x1 02d8 e5ff | | Load 0x2,-0x1 02d9 e226 | & | Load 0x1,0x26 02da e00f | | Load 0x0,0xf 02db 181f | | Execute Package,Field_Execute,Field_Number 0x1f 02dc 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 02dd 00d9 | | Load_Top At_Offset_1 02de 0af7 | | Execute_Immediate Plus,-0x9 02df 00db | | Load_Top At_Offset_3 02e0 0272 | r | Execute Discrete,Minus 02e1 0aff | | Execute_Immediate Plus,-0x1 02e2 e402 | | Load 0x2,0x2 02e3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 02e4 00d8 | | Load_Top At_Offset_0 02e5 0af7 | | Execute_Immediate Plus,-0x9 02e6 00da | | Load_Top At_Offset_2 02e7 0272 | r | Execute Discrete,Minus 02e8 0aff | | Execute_Immediate Plus,-0x1 02e9 e402 | | Load 0x2,0x2 02ea 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 02eb e5ff | | Load 0x2,-0x1 02ec 01dc | | Execute Vector,Last 02ed 00d9 | | Load_Top At_Offset_1 02ee 0272 | r | Execute Discrete,Minus 02ef e402 | | Load 0x2,0x2 02f0 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 02f1 00da | | Load_Top At_Offset_2 02f2 0a01 | | Execute_Immediate Plus,0x1 02f3 00d8 | | Load_Top At_Offset_0 02f4 00e2 | | Load_Encached Integer_Cache 02f5 0260 | ` | Execute Discrete,In_Type 02f6 7001 |p | Jump_Nonzero 0x2f8 02f7 0801 | | Execute_Immediate Raise,0x1 02f8 00db | | Load_Top At_Offset_3 02f9 e402 | | Load 0x2,0x2 02fa 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02fb 0273 | s | Execute Discrete,Plus 02fc 00d8 | | Load_Top At_Offset_0 02fd 00e2 | | Load_Encached Integer_Cache 02fe 0260 | ` | Execute Discrete,In_Type 02ff 7001 |p | Jump_Nonzero 0x301 0300 0801 | | Execute_Immediate Raise,0x1 0301 e5ff | | Load 0x2,-0x1 0302 01cf | | Execute Vector,Slice_Read 0303 4801 |H | Short_Literal 0x1 0304 e402 | | Load 0x2,0x2 0305 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0306 e402 | | Load 0x2,0x2 0307 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0308 01ce | | Execute Vector,Slice_Write 0309 00d9 | | Load_Top At_Offset_1 030a 0a01 | | Execute_Immediate Plus,0x1 030b 00d8 | | Load_Top At_Offset_0 030c 00e2 | | Load_Encached Integer_Cache 030d 0260 | ` | Execute Discrete,In_Type 030e 7001 |p | Jump_Nonzero 0x310 030f 0801 | | Execute_Immediate Raise,0x1 0310 00da | | Load_Top At_Offset_2 0311 e402 | | Load 0x2,0x2 0312 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0313 0273 | s | Execute Discrete,Plus 0314 00d8 | | Load_Top At_Offset_0 0315 00e2 | | Load_Encached Integer_Cache 0316 0260 | ` | Execute Discrete,In_Type 0317 7001 |p | Jump_Nonzero 0x319 0318 0801 | | Execute_Immediate Raise,0x1 0319 e5ff | | Load 0x2,-0x1 031a 01cf | | Execute Vector,Slice_Read 031b 4801 |H | Short_Literal 0x1 031c e402 | | Load 0x2,0x2 031d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 031e e402 | | Load 0x2,0x2 031f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0320 01ce | | Execute Vector,Slice_Write 0321 00d8 | | Load_Top At_Offset_0 0322 0a01 | | Execute_Immediate Plus,0x1 0323 00d8 | | Load_Top At_Offset_0 0324 00e2 | | Load_Encached Integer_Cache 0325 0260 | ` | Execute Discrete,In_Type 0326 7001 |p | Jump_Nonzero 0x328 0327 0801 | | Execute_Immediate Raise,0x1 0328 00d9 | | Load_Top At_Offset_1 0329 e402 | | Load 0x2,0x2 032a 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 032b 0273 | s | Execute Discrete,Plus 032c 00d8 | | Load_Top At_Offset_0 032d 00e2 | | Load_Encached Integer_Cache 032e 0260 | ` | Execute Discrete,In_Type 032f 7001 |p | Jump_Nonzero 0x331 0330 0801 | | Execute_Immediate Raise,0x1 0331 e5ff | | Load 0x2,-0x1 0332 01cf | | Execute Vector,Slice_Read 0333 4801 |H | Short_Literal 0x1 0334 e402 | | Load 0x2,0x2 0335 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0336 e402 | | Load 0x2,0x2 0337 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0338 01ce | | Execute Vector,Slice_Write 0339 00db | | Load_Top At_Offset_3 033a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 033b 0000 0000 | | .BLANK 0000[0x5] 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 00da | | Load_Top At_Offset_2 0344 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0345 4820 |H | Short_Literal 0x20 0346 4803 |H | Short_Literal 0x3 0347 480a |H | Short_Literal 0xa 0348 e5ff | | Load 0x2,-0x1 0349 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 034a e00a | | Load 0x0,0xa 034b 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 034c e00f | | Load 0x0,0xf 034d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 034e e5ff | | Load 0x2,-0x1 034f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0350 e00a | | Load 0x0,0xa 0351 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0352 01cc | | Execute Vector,Catenate 0353 01cb | | Execute Vector,Append 0354 4820 |H | Short_Literal 0x20 0355 4803 |H | Short_Literal 0x3 0356 480a |H | Short_Literal 0xa 0357 e5ff | | Load 0x2,-0x1 0358 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0359 e00a | | Load 0x0,0xa 035a 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 035b e00f | | Load 0x0,0xf 035c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 035d 01cc | | Execute Vector,Catenate 035e 00db | | Load_Top At_Offset_3 035f 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0360 e00a | | Load 0x0,0xa 0361 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0362 01cc | | Execute Vector,Catenate 0363 4820 |H | Short_Literal 0x20 0364 4803 |H | Short_Literal 0x3 0365 480a |H | Short_Literal 0xa 0366 e5ff | | Load 0x2,-0x1 0367 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0368 e00a | | Load 0x0,0xa 0369 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 036a e00f | | Load 0x0,0xf 036b 1816 | | Execute Package,Field_Execute,Field_Number 0x16 036c 01cc | | Execute Vector,Catenate 036d 00db | | Load_Top At_Offset_3 036e 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 036f e00a | | Load 0x0,0xa 0370 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0371 01cc | | Execute Vector,Catenate 0372 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0373 0000 0000 | | .BLANK 0000[0x5] 0378 ; -------------------------------------------------------------------------------------- 0378 ; SUBPROGRAM 0378 ; -------------------------------------------------------------------------------------- 0378 038f | | .CONST 0x038f ; Address of begin 0379 0421 | ! | .CONST 0x0421 ; Address of exception handler 037a 0009 | | .CONST 0x0009 ; Number of locals 037b INIT_0378: 037b 00da | | Load_Top At_Offset_2 037c 01db | | Execute Vector,Length 037d 00e3 | | Load_Encached Natural_Cache 037e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 037f 00db | | Load_Top At_Offset_3 0380 01dd | | Execute Vector,First 0381 00e3 | | Load_Encached Natural_Cache 0382 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0383 00e3 | | Load_Encached Natural_Cache 0384 00e3 | | Load_Encached Natural_Cache 0385 00e3 | | Load_Encached Natural_Cache 0386 e222 | " | Load 0x1,0x22 0387 0322 | " | Declare_Variable Record 0388 00d8 | | Load_Top At_Offset_0 0389 1c00 | | Execute_Immediate Run_Utility,0x0 038a e222 | " | Load 0x1,0x22 038b 0322 | " | Declare_Variable Record 038c 00d8 | | Load_Top At_Offset_0 038d 1c00 | | Execute_Immediate Run_Utility,0x0 038e 00e1 | | Load_Encached Boolean_Cache 038f BODY_0378: 038f 00e1 | | Load_Encached Boolean_Cache 0390 00e2 | | Load_Encached Integer_Cache 0391 480a |H | Short_Literal 0xa 0392 e403 | | Load 0x2,0x3 0393 00d8 | | Load_Top At_Offset_0 0394 0a02 | | Execute_Immediate Plus,0x2 0395 00d8 | | Load_Top At_Offset_0 0396 00e2 | | Load_Encached Integer_Cache 0397 0260 | ` | Execute Discrete,In_Type 0398 7001 |p | Jump_Nonzero 0x39a 0399 0801 | | Execute_Immediate Raise,0x1 039a e5ff | | Load 0x2,-0x1 039b 01cf | | Execute Vector,Slice_Read 039c e00f | | Load 0x0,0xf 039d 1818 | | Execute Package,Field_Execute,Field_Number 0x18 039e c406 | | Store 0x2,0x6 039f 0059 | Y | Store_Top Discrete,At_Offset_1 03a0 00d8 | | Load_Top At_Offset_0 03a1 7001 |p | Jump_Nonzero 0x3a3 03a2 08e0 | | Execute_Immediate Raise,0xe0 03a3 e403 | | Load 0x2,0x3 03a4 0a03 | | Execute_Immediate Plus,0x3 03a5 c403 | | Store 0x2,0x3 03a6 00da | | Load_Top At_Offset_2 03a7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03a8 e403 | | Load 0x2,0x3 03a9 00d8 | | Load_Top At_Offset_0 03aa e406 | | Load 0x2,0x6 03ab 0273 | s | Execute Discrete,Plus 03ac 0aff | | Execute_Immediate Plus,-0x1 03ad 00d8 | | Load_Top At_Offset_0 03ae 00e2 | | Load_Encached Integer_Cache 03af 0260 | ` | Execute Discrete,In_Type 03b0 7001 |p | Jump_Nonzero 0x3b2 03b1 0801 | | Execute_Immediate Raise,0x1 03b2 e5ff | | Load 0x2,-0x1 03b3 01cf | | Execute Vector,Slice_Read 03b4 e00a | | Load 0x0,0xa 03b5 1810 | | Execute Package,Field_Execute,Field_Number 0x10 03b6 00d1 | | Pop_Control Pop_Count_1 03b7 e403 | | Load 0x2,0x3 03b8 e406 | | Load 0x2,0x6 03b9 0273 | s | Execute Discrete,Plus 03ba c403 | | Store 0x2,0x3 03bb e403 | | Load 0x2,0x3 03bc e5ff | | Load 0x2,-0x1 03bd 01d7 | | Execute Vector,Field_Read 03be 00db | | Load_Top At_Offset_3 03bf 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 03c0 e403 | | Load 0x2,0x3 03c1 0a01 | | Execute_Immediate Plus,0x1 03c2 c403 | | Store 0x2,0x3 03c3 00e1 | | Load_Encached Boolean_Cache 03c4 00e2 | | Load_Encached Integer_Cache 03c5 480a |H | Short_Literal 0xa 03c6 e403 | | Load 0x2,0x3 03c7 00d8 | | Load_Top At_Offset_0 03c8 0a02 | | Execute_Immediate Plus,0x2 03c9 00d8 | | Load_Top At_Offset_0 03ca 00e2 | | Load_Encached Integer_Cache 03cb 0260 | ` | Execute Discrete,In_Type 03cc 7001 |p | Jump_Nonzero 0x3ce 03cd 0801 | | Execute_Immediate Raise,0x1 03ce e5ff | | Load 0x2,-0x1 03cf 01cf | | Execute Vector,Slice_Read 03d0 e00f | | Load 0x0,0xf 03d1 1818 | | Execute Package,Field_Execute,Field_Number 0x18 03d2 c404 | | Store 0x2,0x4 03d3 0059 | Y | Store_Top Discrete,At_Offset_1 03d4 00d8 | | Load_Top At_Offset_0 03d5 7001 |p | Jump_Nonzero 0x3d7 03d6 08e0 | | Execute_Immediate Raise,0xe0 03d7 e403 | | Load 0x2,0x3 03d8 0a03 | | Execute_Immediate Plus,0x3 03d9 c403 | | Store 0x2,0x3 03da 00da | | Load_Top At_Offset_2 03db 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 03dc e403 | | Load 0x2,0x3 03dd 00d8 | | Load_Top At_Offset_0 03de e404 | | Load 0x2,0x4 03df 0273 | s | Execute Discrete,Plus 03e0 0aff | | Execute_Immediate Plus,-0x1 03e1 00d8 | | Load_Top At_Offset_0 03e2 00e2 | | Load_Encached Integer_Cache 03e3 0260 | ` | Execute Discrete,In_Type 03e4 7001 |p | Jump_Nonzero 0x3e6 03e5 0801 | | Execute_Immediate Raise,0x1 03e6 e5ff | | Load 0x2,-0x1 03e7 01cf | | Execute Vector,Slice_Read 03e8 e00a | | Load 0x0,0xa 03e9 1810 | | Execute Package,Field_Execute,Field_Number 0x10 03ea 00d1 | | Pop_Control Pop_Count_1 03eb e403 | | Load 0x2,0x3 03ec e404 | | Load 0x2,0x4 03ed 0273 | s | Execute Discrete,Plus 03ee c403 | | Store 0x2,0x3 03ef 00e1 | | Load_Encached Boolean_Cache 03f0 00e2 | | Load_Encached Integer_Cache 03f1 480a |H | Short_Literal 0xa 03f2 e403 | | Load 0x2,0x3 03f3 00d8 | | Load_Top At_Offset_0 03f4 0a02 | | Execute_Immediate Plus,0x2 03f5 00d8 | | Load_Top At_Offset_0 03f6 00e2 | | Load_Encached Integer_Cache 03f7 0260 | ` | Execute Discrete,In_Type 03f8 7001 |p | Jump_Nonzero 0x3fa 03f9 0801 | | Execute_Immediate Raise,0x1 03fa e5ff | | Load 0x2,-0x1 03fb 01cf | | Execute Vector,Slice_Read 03fc e00f | | Load 0x0,0xf 03fd 1818 | | Execute Package,Field_Execute,Field_Number 0x18 03fe c405 | | Store 0x2,0x5 03ff 0059 | Y | Store_Top Discrete,At_Offset_1 0400 00d8 | | Load_Top At_Offset_0 0401 7001 |p | Jump_Nonzero 0x403 0402 08e0 | | Execute_Immediate Raise,0xe0 0403 e403 | | Load 0x2,0x3 0404 0a03 | | Execute_Immediate Plus,0x3 0405 c403 | | Store 0x2,0x3 0406 00da | | Load_Top At_Offset_2 0407 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0408 e403 | | Load 0x2,0x3 0409 00d8 | | Load_Top At_Offset_0 040a e405 | | Load 0x2,0x5 040b 0273 | s | Execute Discrete,Plus 040c 0aff | | Execute_Immediate Plus,-0x1 040d 00d8 | | Load_Top At_Offset_0 040e 00e2 | | Load_Encached Integer_Cache 040f 0260 | ` | Execute Discrete,In_Type 0410 7001 |p | Jump_Nonzero 0x412 0411 0801 | | Execute_Immediate Raise,0x1 0412 e5ff | | Load 0x2,-0x1 0413 01cf | | Execute Vector,Slice_Read 0414 e00a | | Load 0x0,0xa 0415 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0416 00d1 | | Pop_Control Pop_Count_1 0417 e403 | | Load 0x2,0x3 0418 e405 | | Load 0x2,0x5 0419 0273 | s | Execute Discrete,Plus 041a 0aff | | Execute_Immediate Plus,-0x1 041b e402 | | Load 0x2,0x2 041c 027e | ~ | Execute Discrete,Not_Equal 041d 6801 |h | Jump_Zero 0x41f 041e 08e0 | | Execute_Immediate Raise,0xe0 041f 00da | | Load_Top At_Offset_2 0420 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0421 TRAP_0378: 0421 010e | | Execute Exception,Is_Constraint_Error 0422 6815 |h | Jump_Zero 0x438 0423 e018 | | Load 0x0,0x18 0424 180e | | Execute Package,Field_Execute,Field_Number 0xe 0425 4801 |H | Short_Literal 0x1 0426 4801 |H | Short_Literal 0x1 0427 e011 | | Load 0x0,0x11 0428 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0429 0334 | 4 | Declare_Variable Array,With_Constraint 042a e5ff | | Load 0x2,-0x1 042b e011 | | Load 0x0,0x11 042c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 042d e011 | | Load 0x0,0x11 042e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 042f 0119 | | Execute Any,Check_In_Formal_Type 0430 4801 |H | Short_Literal 0x1 0431 00da | | Load_Top At_Offset_2 0432 01d6 | | Execute Vector,Field_Write 0433 6008 |` | Indirect_Literal Discrete,0x43c,{0x00000000, 0x0000816a} 0434 e002 | | Load 0x0,0x2 0435 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0436 00da | | Load_Top At_Offset_2 0437 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0438 0100 | | Execute Exception,Raise 0439 0000 0000 | | .XXX[0x3] 043b 0000 | | 043c 0000 0000 | | .LITERAL {0x00000000, 0x0000816a} 0440 ; -------------------------------------------------------------------------------------- 0440 ; SUBPROGRAM 0440 ; -------------------------------------------------------------------------------------- 0440 0443 | C | .CONST 0x0443 ; Address of begin 0441 0004 | | .CONST 0x0004 ; Address of exception handler 0442 0001 | | .CONST 0x0001 ; Number of locals 0443 BODY_0440: 0443 INIT_0440: 0443 00da | | Load_Top At_Offset_2 0444 822f | / | Call 0x1,0x2f 0445 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0446 0000 0000 | | .XXX[0x2] 0448 ; -------------------------------------------------------------------------------------- 0448 ; SUBPROGRAM 0448 ; -------------------------------------------------------------------------------------- 0448 0451 | Q | .CONST 0x0451 ; Address of begin 0449 0004 | | .CONST 0x0004 ; Address of exception handler 044a 0003 | | .CONST 0x0003 ; Number of locals 044b INIT_0448: 044b e222 | " | Load 0x1,0x22 044c 0322 | " | Declare_Variable Record 044d 00d8 | | Load_Top At_Offset_0 044e 1c00 | | Execute_Immediate Run_Utility,0x0 044f e232 | 2 | Load 0x1,0x32 0450 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0451 BODY_0448: 0451 e5ff | | Load 0x2,-0x1 0452 e232 | 2 | Load 0x1,0x32 0453 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0454 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0455 00d8 | | Load_Top At_Offset_0 0456 7002 |p | Jump_Nonzero 0x459 0457 00ea | | Load_Encached Null_String_Cache 0458 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0459 00d8 | | Load_Top At_Offset_0 045a 0217 | | Execute Heap_Access,All_Reference 045b 00da | | Load_Top At_Offset_2 045c 017d | } | Execute Record,Structure_Write 045d 00d9 | | Load_Top At_Offset_1 045e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 045f e00a | | Load 0x0,0xa 0460 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0461 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0462 0000 0000 | | .BLANK 0000[0x6] 0468 ; -------------------------------------------------------------------------------------- 0468 ; SUBPROGRAM 0468 ; -------------------------------------------------------------------------------------- 0468 0471 | q | .CONST 0x0471 ; Address of begin 0469 0004 | | .CONST 0x0004 ; Address of exception handler 046a 0003 | | .CONST 0x0003 ; Number of locals 046b INIT_0468: 046b e222 | " | Load 0x1,0x22 046c 0322 | " | Declare_Variable Record 046d 00d8 | | Load_Top At_Offset_0 046e 1c00 | | Execute_Immediate Run_Utility,0x0 046f e232 | 2 | Load 0x1,0x32 0470 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0471 BODY_0468: 0471 e5ff | | Load 0x2,-0x1 0472 e232 | 2 | Load 0x1,0x32 0473 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0474 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0475 00d8 | | Load_Top At_Offset_0 0476 6804 |h | Jump_Zero 0x47b 0477 00d8 | | Load_Top At_Offset_0 0478 0217 | | Execute Heap_Access,All_Reference 0479 00da | | Load_Top At_Offset_2 047a 017d | } | Execute Record,Structure_Write 047b 00d9 | | Load_Top At_Offset_1 047c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 047d e5fe | | Load 0x2,-0x2 047e e00a | | Load 0x0,0xa 047f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0480 00d1 | | Pop_Control Pop_Count_1 0481 00d9 | | Load_Top At_Offset_1 0482 e5ff | | Load 0x2,-0x1 0483 e232 | 2 | Load 0x1,0x32 0484 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0485 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0486 0000 0000 | | .XXX[0x2] 0488 ; -------------------------------------------------------------------------------------- 0488 ; SUBPROGRAM 0488 ; -------------------------------------------------------------------------------------- 0488 0491 | | .CONST 0x0491 ; Address of begin 0489 0004 | | .CONST 0x0004 ; Address of exception handler 048a 0003 | | .CONST 0x0003 ; Number of locals 048b INIT_0488: 048b e222 | " | Load 0x1,0x22 048c 0322 | " | Declare_Variable Record 048d 00d8 | | Load_Top At_Offset_0 048e 1c00 | | Execute_Immediate Run_Utility,0x0 048f e232 | 2 | Load 0x1,0x32 0490 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0491 BODY_0488: 0491 e5ff | | Load 0x2,-0x1 0492 e232 | 2 | Load 0x1,0x32 0493 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0494 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0495 00d8 | | Load_Top At_Offset_0 0496 7002 |p | Jump_Nonzero 0x499 0497 00ea | | Load_Encached Null_String_Cache 0498 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0499 00d8 | | Load_Top At_Offset_0 049a 0217 | | Execute Heap_Access,All_Reference 049b 00da | | Load_Top At_Offset_2 049c 017d | } | Execute Record,Structure_Write 049d 00d9 | | Load_Top At_Offset_1 049e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 049f 0f54 | T | Execute_Immediate Equal,0x54 04a0 6805 |h | Jump_Zero 0x4a6 04a1 00d9 | | Load_Top At_Offset_1 04a2 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 04a3 e00a | | Load 0x0,0xa 04a4 1813 | | Execute Package,Field_Execute,Field_Number 0x13 04a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04a6 00ea | | Load_Encached Null_String_Cache 04a7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04a8 ; -------------------------------------------------------------------------------------- 04a8 ; SUBPROGRAM 04a8 ; -------------------------------------------------------------------------------------- 04a8 04b1 | | .CONST 0x04b1 ; Address of begin 04a9 0004 | | .CONST 0x0004 ; Address of exception handler 04aa 0003 | | .CONST 0x0003 ; Number of locals 04ab INIT_04a8: 04ab e222 | " | Load 0x1,0x22 04ac 0322 | " | Declare_Variable Record 04ad 00d8 | | Load_Top At_Offset_0 04ae 1c00 | | Execute_Immediate Run_Utility,0x0 04af e232 | 2 | Load 0x1,0x32 04b0 1b14 | | Execute Package,Field_Read,Field_Number 0x14 04b1 BODY_04a8: 04b1 e5ff | | Load 0x2,-0x1 04b2 e232 | 2 | Load 0x1,0x32 04b3 1816 | | Execute Package,Field_Execute,Field_Number 0x16 04b4 0031 | 1 | Store_Top Heap_Access,At_Offset_1 04b5 00d8 | | Load_Top At_Offset_0 04b6 7002 |p | Jump_Nonzero 0x4b9 04b7 00ea | | Load_Encached Null_String_Cache 04b8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04b9 00d8 | | Load_Top At_Offset_0 04ba 0217 | | Execute Heap_Access,All_Reference 04bb 00da | | Load_Top At_Offset_2 04bc 017d | } | Execute Record,Structure_Write 04bd 00d9 | | Load_Top At_Offset_1 04be 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 04bf 0f54 | T | Execute_Immediate Equal,0x54 04c0 6805 |h | Jump_Zero 0x4c6 04c1 00d9 | | Load_Top At_Offset_1 04c2 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 04c3 e00a | | Load 0x0,0xa 04c4 1813 | | Execute Package,Field_Execute,Field_Number 0x13 04c5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04c6 00ea | | Load_Encached Null_String_Cache 04c7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04c8 ; -------------------------------------------------------------------------------------- 04c8 ; SUBPROGRAM 04c8 ; -------------------------------------------------------------------------------------- 04c8 04d1 | | .CONST 0x04d1 ; Address of begin 04c9 0004 | | .CONST 0x0004 ; Address of exception handler 04ca 0003 | | .CONST 0x0003 ; Number of locals 04cb INIT_04c8: 04cb e222 | " | Load 0x1,0x22 04cc 0322 | " | Declare_Variable Record 04cd 00d8 | | Load_Top At_Offset_0 04ce 1c00 | | Execute_Immediate Run_Utility,0x0 04cf e232 | 2 | Load 0x1,0x32 04d0 1b14 | | Execute Package,Field_Read,Field_Number 0x14 04d1 BODY_04c8: 04d1 e5ff | | Load 0x2,-0x1 04d2 e232 | 2 | Load 0x1,0x32 04d3 1816 | | Execute Package,Field_Execute,Field_Number 0x16 04d4 0031 | 1 | Store_Top Heap_Access,At_Offset_1 04d5 00d8 | | Load_Top At_Offset_0 04d6 6804 |h | Jump_Zero 0x4db 04d7 00d8 | | Load_Top At_Offset_0 04d8 0217 | | Execute Heap_Access,All_Reference 04d9 00da | | Load_Top At_Offset_2 04da 017d | } | Execute Record,Structure_Write 04db 4854 |HT | Short_Literal 0x54 04dc 00da | | Load_Top At_Offset_2 04dd 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 04de 00d9 | | Load_Top At_Offset_1 04df 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 04e0 e5fe | | Load 0x2,-0x2 04e1 e00a | | Load 0x0,0xa 04e2 1810 | | Execute Package,Field_Execute,Field_Number 0x10 04e3 00d1 | | Pop_Control Pop_Count_1 04e4 00d9 | | Load_Top At_Offset_1 04e5 e5ff | | Load 0x2,-0x1 04e6 e232 | 2 | Load 0x1,0x32 04e7 1815 | | Execute Package,Field_Execute,Field_Number 0x15 04e8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 04e9 0000 0000 | | .BLANK 0000[0x7] 04f0 ; -------------------------------------------------------------------------------------- 04f0 ; SUBPROGRAM 04f0 ; -------------------------------------------------------------------------------------- 04f0 04f9 | | .CONST 0x04f9 ; Address of begin 04f1 0004 | | .CONST 0x0004 ; Address of exception handler 04f2 0003 | | .CONST 0x0003 ; Number of locals 04f3 INIT_04f0: 04f3 e222 | " | Load 0x1,0x22 04f4 0322 | " | Declare_Variable Record 04f5 00d8 | | Load_Top At_Offset_0 04f6 1c00 | | Execute_Immediate Run_Utility,0x0 04f7 e232 | 2 | Load 0x1,0x32 04f8 1b14 | | Execute Package,Field_Read,Field_Number 0x14 04f9 BODY_04f0: 04f9 e5ff | | Load 0x2,-0x1 04fa e232 | 2 | Load 0x1,0x32 04fb 1816 | | Execute Package,Field_Execute,Field_Number 0x16 04fc 0031 | 1 | Store_Top Heap_Access,At_Offset_1 04fd 00d8 | | Load_Top At_Offset_0 04fe 6804 |h | Jump_Zero 0x503 04ff 00d8 | | Load_Top At_Offset_0 0500 0217 | | Execute Heap_Access,All_Reference 0501 00da | | Load_Top At_Offset_2 0502 017d | } | Execute Record,Structure_Write 0503 4854 |HT | Short_Literal 0x54 0504 00da | | Load_Top At_Offset_2 0505 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0506 00d9 | | Load_Top At_Offset_1 0507 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0508 e5fe | | Load 0x2,-0x2 0509 e00a | | Load 0x0,0xa 050a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 050b 00d1 | | Pop_Control Pop_Count_1 050c 00d9 | | Load_Top At_Offset_1 050d e5ff | | Load 0x2,-0x1 050e e232 | 2 | Load 0x1,0x32 050f 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0510 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0511 0000 0000 | | .BLANK 0000[0x7] 0518 ; -------------------------------------------------------------------------------------- 0518 ; SUBPROGRAM 0518 ; -------------------------------------------------------------------------------------- 0518 0521 | ! | .CONST 0x0521 ; Address of begin 0519 0004 | | .CONST 0x0004 ; Address of exception handler 051a 0003 | | .CONST 0x0003 ; Number of locals 051b INIT_0518: 051b e222 | " | Load 0x1,0x22 051c 0322 | " | Declare_Variable Record 051d 00d8 | | Load_Top At_Offset_0 051e 1c00 | | Execute_Immediate Run_Utility,0x0 051f e232 | 2 | Load 0x1,0x32 0520 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0521 BODY_0518: 0521 e5ff | | Load 0x2,-0x1 0522 e232 | 2 | Load 0x1,0x32 0523 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0524 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0525 00d8 | | Load_Top At_Offset_0 0526 7001 |p | Jump_Nonzero 0x528 0527 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0528 00d8 | | Load_Top At_Offset_0 0529 0217 | | Execute Heap_Access,All_Reference 052a 00da | | Load_Top At_Offset_2 052b 017d | } | Execute Record,Structure_Write 052c 4846 |HF | Short_Literal 0x46 052d 00da | | Load_Top At_Offset_2 052e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 052f 00d9 | | Load_Top At_Offset_1 0530 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0531 00ea | | Load_Encached Null_String_Cache 0532 e00a | | Load 0x0,0xa 0533 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0534 00d1 | | Pop_Control Pop_Count_1 0535 00d9 | | Load_Top At_Offset_1 0536 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0537 00ea | | Load_Encached Null_String_Cache 0538 e00a | | Load 0x0,0xa 0539 1810 | | Execute Package,Field_Execute,Field_Number 0x10 053a 00d1 | | Pop_Control Pop_Count_1 053b 00d9 | | Load_Top At_Offset_1 053c e5ff | | Load 0x2,-0x1 053d e232 | 2 | Load 0x1,0x32 053e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 053f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0540 ; -------------------------------------------------------------------------------------- 0540 ; SUBPROGRAM 0540 ; -------------------------------------------------------------------------------------- 0540 0548 | H | .CONST 0x0548 ; Address of begin 0541 0004 | | .CONST 0x0004 ; Address of exception handler 0542 0002 | | .CONST 0x0002 ; Number of locals 0543 INIT_0540: 0543 e001 | | Load 0x0,0x1 0544 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0545 02c7 | | Declare_Variable Any 0546 00d8 | | Load_Top At_Offset_0 0547 1c00 | | Execute_Immediate Run_Utility,0x0 0548 BODY_0540: 0548 e5fd | | Load 0x2,-0x3 0549 00d9 | | Load_Top At_Offset_1 054a 0120 | | Execute Any,Is_Value 054b 6803 |h | Jump_Zero 0x54f 054c e001 | | Load 0x0,0x1 054d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 054e 7801 |x | Jump 0x550 054f 00d9 | | Load_Top At_Offset_1 0550 e5ff | | Load 0x2,-0x1 0551 e221 | ! | Load 0x1,0x21 0552 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0553 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0554 c402 | | Store 0x2,0x2 0555 c5fd | | Store 0x2,-0x3 0556 e5fd | | Load 0x2,-0x3 0557 e5fe | | Load 0x2,-0x2 0558 e008 | | Load 0x0,0x8 0559 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 055a e5ff | | Load 0x2,-0x1 055b e221 | ! | Load 0x1,0x21 055c 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 055d 181f | | Execute Package,Field_Execute,Field_Number 0x1f 055e 00d8 | | Load_Top At_Offset_0 055f 00e4 | | Load_Encached Positive_Cache 0560 0260 | ` | Execute Discrete,In_Type 0561 7001 |p | Jump_Nonzero 0x563 0562 0801 | | Execute_Immediate Raise,0x1 0563 00db | | Load_Top At_Offset_3 0564 e5fe | | Load 0x2,-0x2 0565 e008 | | Load 0x0,0x8 0566 1877 | w | Execute Package,Field_Execute,Field_Number 0x77 0567 e5ff | | Load 0x2,-0x1 0568 e221 | ! | Load 0x1,0x21 0569 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 056a 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 056b c5fd | | Store 0x2,-0x3 056c e5fd | | Load 0x2,-0x3 056d 700a |p | Jump_Nonzero 0x578 056e e5fd | | Load 0x2,-0x3 056f e5fe | | Load 0x2,-0x2 0570 e008 | | Load 0x0,0x8 0571 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 0572 4801 |H | Short_Literal 0x1 0573 e5ff | | Load 0x2,-0x1 0574 e221 | ! | Load 0x1,0x21 0575 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0576 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0577 c5fd | | Store 0x2,-0x3 0578 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0579 0000 0000 | | .BLANK 0000[0x7] 0580 ; -------------------------------------------------------------------------------------- 0580 ; SUBPROGRAM 0580 ; -------------------------------------------------------------------------------------- 0580 0583 | | .CONST 0x0583 ; Address of begin 0581 0004 | | .CONST 0x0004 ; Address of exception handler 0582 0001 | | .CONST 0x0001 ; Number of locals 0583 BODY_0580: 0583 INIT_0580: 0583 4608 |F | Jump_Case 0x9 0584 7808 |x | Jump 0x58d ; case 0x0 0585 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0586 781d |x | Jump 0x5a4 ; case 0x2 0587 781c |x | Jump 0x5a4 ; case 0x3 0588 781b |x | Jump 0x5a4 ; case 0x4 0589 781a |x | Jump 0x5a4 ; case 0x5 058a 7819 |x | Jump 0x5a4 ; case 0x6 058b 7805 |x | Jump 0x591 ; case 0x7 058c 780d |x | Jump 0x59a ; case 0x8 058d 00da | | Load_Top At_Offset_2 058e 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 058f 1c00 | | Execute_Immediate Run_Utility,0x0 0590 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0591 00db | | Load_Top At_Offset_3 0592 4801 |H | Short_Literal 0x1 0593 e5fe | | Load 0x2,-0x2 0594 e20f | | Load 0x1,0xf 0595 035b | [ | Declare_Type Array,Constrained 0596 4801 |H | Short_Literal 0x1 0597 e5ff | | Load 0x2,-0x1 0598 031b | | Declare_Type Variant_Record,Constrained 0599 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 059a 00db | | Load_Top At_Offset_3 059b 00db | | Load_Top At_Offset_3 059c 02fc | | Declare_Variable Variant_Record,With_Constraint 059d 4801 |H | Short_Literal 0x1 059e e5fe | | Load 0x2,-0x2 059f e20f | | Load 0x1,0xf 05a0 0334 | 4 | Declare_Variable Array,With_Constraint 05a1 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3 05a2 016a | j | QQ_execute Variant_Record,XXX 05a3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 05a4 0869 | i | Execute_Immediate Raise,0x69 05a5 ; -------------------------------------------------------------------------------------- 05a5 ; STRING TABLE 05a5 ; -------------------------------------------------------------------------------------- 05a5 000e | | .STRTAB 0x000e->0x05ac ; "!Machine.target_Builder.rcf_errors" 05a6 002e | . | .STRTAB 0x002e->0x05bd ; "error '~@~' (~#~) ~1 (no arguments given)~ ~2~ ~3~" 05a7 005e | ^ | .STRTAB 0x005e->0x05d6 ; "Compiler = " 05a8 0067 | g | .STRTAB 0x0067->0x05db ; "Linker = " 05a9 006e | n | .STRTAB 0x006e->0x05e0 ; "Loader = " 05aa 0075 | u | .STRTAB 0x0075->0x05e4 ; " " 05ab 0074 | t | .STREND 0x0074->0x05e5 05ac 214d 6163 |!Mac| .STRTAB_STRINGS 05e5 0000 0000 | | .XXX[0x3] 05e7 0000 | | 05e8 ; -------------------------------------------------------------------------------------- 05e8 ; Debug Table 05e8 ; -------------------------------------------------------------------------------------- 05e8 0004 000c | | .DEBUG4 0x0004,0x000c,0x2dfb,0x0000,0x0001,0x0000 05ee 0000 0000 | | .BLANK 0000[0x12]