|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_030cd5
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0360 | ` | .CONST 0x0360 ; 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 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0109 | | .CONST 0x0109 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0029 | ) | .CONST 0x0029 ; Number of locals 000b INIT_0008: 000b 0007 | | Action Break_Optional 000c 00c4 | | Action Make_Default 000d 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 000f 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated 0011 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 0013 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 0015 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 0017 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated 0019 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated 001b 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated 001d 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated 001f 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated 0021 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated 0023 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated 0025 4800 |H | Short_Literal 0x0 0026 4808 |H | Short_Literal 0x8 0027 e001 | | Load 0x0,0x1 0028 01d7 | | Execute Vector,Field_Read 0029 02a0 | | Declare_Subprogram Null_Subprogram 002a 038f | | Declare_Type Package,Defined,Visible 002b e001 | | Load 0x0,0x1 002c 4807 |H | Short_Literal 0x7 002d e001 | | Load 0x0,0x1 002e 01d7 | | Execute Vector,Field_Read 002f 4802 |H | Short_Literal 0x2 0030 00db | | Load_Top At_Offset_3 0031 020e | | Execute Module,Augment_Imports 0032 0386 | | Declare_Variable Package,Visible 0033 0093 0000 | | push_full_address 0x0 0035 60ee |` | Indirect_Literal Discrete,0x124,{0x80000000, 0x00010000} 0036 0273 | s | Execute Discrete,Plus 0037 e20d | | Load 0x1,0xd 0038 60e7 |` | Indirect_Literal Discrete,0x120,{0x00000000, 0x0000ffff} 0039 0279 | y | Execute Discrete,And 003a 0273 | s | Execute Discrete,Plus 003b 0129 | ) | Execute Any,Make_Visible 003c 4800 |H | Short_Literal 0x0 003d 4803 |H | Short_Literal 0x3 003e 029f 0263 | c| Declare_Subprogram INIT_0260,For_Call 0040 03fe | | Declare_Type Discrete,Defined,Visible 0041 00d8 | | Load_Top At_Offset_0 0042 4803 |H | Short_Literal 0x3 0043 4800 |H | Short_Literal 0x0 0044 4801 |H | Short_Literal 0x1 0045 4804 |H | Short_Literal 0x4 0046 0319 | | Declare_Type Variant_Record,Incomplete,Visible 0047 029f 028b | | Declare_Subprogram INIT_0288,For_Call 0049 00d9 | | Load_Top At_Offset_1 004a 012a | * | Execute Any,Change_Utility 004b 0007 | | Action Break_Optional 004c 00d8 | | Load_Top At_Offset_0 004d 02a0 | | Declare_Subprogram Null_Subprogram 004e 4818 |H | Short_Literal 0x18 004f 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected 0050 00d8 | | Load_Top At_Offset_0 0051 0129 | ) | Execute Any,Make_Visible 0052 c212 | | Store 0x1,0x12 0053 00bf | | Action Accept_Activation 0054 4800 |H | Short_Literal 0x0 0055 4801 |H | Short_Literal 0x1 0056 029f 02fb | | Declare_Subprogram INIT_02f8,For_Call 0058 03fd | | Declare_Type Discrete,Defined 0059 4800 |H | Short_Literal 0x0 005a 4806 |H | Short_Literal 0x6 005b e001 | | Load 0x0,0x1 005c 01d7 | | Execute Vector,Field_Read 005d 02a0 | | Declare_Subprogram Null_Subprogram 005e 038e | | Declare_Type Package,Defined 005f e001 | | Load 0x0,0x1 0060 4805 |H | Short_Literal 0x5 0061 e001 | | Load 0x0,0x1 0062 01d7 | | Execute Vector,Field_Read 0063 4802 |H | Short_Literal 0x2 0064 00db | | Load_Top At_Offset_3 0065 020e | | Execute Module,Augment_Imports 0066 0387 | | Declare_Variable Package 0067 4800 |H | Short_Literal 0x0 0068 4804 |H | Short_Literal 0x4 0069 e001 | | Load 0x0,0x1 006a 01d7 | | Execute Vector,Field_Read 006b 02a0 | | Declare_Subprogram Null_Subprogram 006c 038e | | Declare_Type Package,Defined 006d e001 | | Load 0x0,0x1 006e 4803 |H | Short_Literal 0x3 006f e001 | | Load 0x0,0x1 0070 01d7 | | Execute Vector,Field_Read 0071 e002 | | Load 0x0,0x2 0072 e003 | | Load 0x0,0x3 0073 4804 |H | Short_Literal 0x4 0074 e226 | & | Load 0x1,0x26 0075 020e | | Execute Module,Augment_Imports 0076 0387 | | Declare_Variable Package 0077 4800 |H | Short_Literal 0x0 0078 480a |H | Short_Literal 0xa 0079 e001 | | Load 0x0,0x1 007a 01d7 | | Execute Vector,Field_Read 007b 02a0 | | Declare_Subprogram Null_Subprogram 007c 038e | | Declare_Type Package,Defined 007d e001 | | Load 0x0,0x1 007e 4809 |H | Short_Literal 0x9 007f e001 | | Load 0x0,0x1 0080 01d7 | | Execute Vector,Field_Read 0081 e224 | $ | Load 0x1,0x24 0082 e223 | # | Load 0x1,0x23 0083 e225 | % | Load 0x1,0x25 0084 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0085 e20e | | Load 0x1,0xe 0086 4806 |H | Short_Literal 0x6 0087 e227 | ' | Load 0x1,0x27 0088 020e | | Execute Module,Augment_Imports 0089 0387 | | Declare_Variable Package 008a 4800 |H | Short_Literal 0x0 008b 4802 |H | Short_Literal 0x2 008c e001 | | Load 0x0,0x1 008d 01d7 | | Execute Vector,Field_Read 008e 02a0 | | Declare_Subprogram Null_Subprogram 008f 038e | | Declare_Type Package,Defined 0090 e001 | | Load 0x0,0x1 0091 4801 |H | Short_Literal 0x1 0092 e001 | | Load 0x0,0x1 0093 01d7 | | Execute Vector,Field_Read 0094 e224 | $ | Load 0x1,0x24 0095 e223 | # | Load 0x1,0x23 0096 e225 | % | Load 0x1,0x25 0097 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0098 e20e | | Load 0x1,0xe 0099 4806 |H | Short_Literal 0x6 009a e228 | ( | Load 0x1,0x28 009b 020e | | Execute Module,Augment_Imports 009c 0387 | | Declare_Variable Package 009d 4801 |H | Short_Literal 0x1 009e 00db | | Load_Top At_Offset_3 009f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00a0 4801 |H | Short_Literal 0x1 00a1 e227 | ' | Load 0x1,0x27 00a2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00a3 4801 |H | Short_Literal 0x1 00a4 e228 | ( | Load 0x1,0x28 00a5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00a6 029f 028b | | Declare_Subprogram INIT_0288,For_Call 00a8 4803 |H | Short_Literal 0x3 00a9 4800 |H | Short_Literal 0x0 00aa e222 | " | Load 0x1,0x22 00ab 0307 | | Complete_Type Variant_Record,By_Defining 00ac e223 | # | Load 0x1,0x23 00ad 03c4 | | Complete_Type Access,By_Component_Completion 00ae 029d 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call 00b0 1d13 | | Execute_Immediate Reference_Lex_1,0x13 00b1 00c7 | | Action Elaborate_Subprogram 00b2 1d14 | | Execute_Immediate Reference_Lex_1,0x14 00b3 00c7 | | Action Elaborate_Subprogram 00b4 1d15 | | Execute_Immediate Reference_Lex_1,0x15 00b5 00c7 | | Action Elaborate_Subprogram 00b6 1d16 | | Execute_Immediate Reference_Lex_1,0x16 00b7 00c7 | | Action Elaborate_Subprogram 00b8 1d17 | | Execute_Immediate Reference_Lex_1,0x17 00b9 00c7 | | Action Elaborate_Subprogram 00ba 1d18 | | Execute_Immediate Reference_Lex_1,0x18 00bb 00c7 | | Action Elaborate_Subprogram 00bc 1d19 | | Execute_Immediate Reference_Lex_1,0x19 00bd 00c7 | | Action Elaborate_Subprogram 00be 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 00bf 00c7 | | Action Elaborate_Subprogram 00c0 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 00c1 00c7 | | Action Elaborate_Subprogram 00c2 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 00c3 00c7 | | Action Elaborate_Subprogram 00c4 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 00c5 00c7 | | Action Elaborate_Subprogram 00c6 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 00c7 00c7 | | Action Elaborate_Subprogram 00c8 a004 | | Store_Unchecked 0x0,0x4 00c9 e220 | | Load 0x1,0x20 00ca a005 | | Store_Unchecked 0x0,0x5 00cb a006 | | Store_Unchecked 0x0,0x6 00cc a007 | | Store_Unchecked 0x0,0x7 00cd a008 | | Store_Unchecked 0x0,0x8 00ce a009 | | Store_Unchecked 0x0,0x9 00cf a00a | | Store_Unchecked 0x0,0xa 00d0 4808 |H | Short_Literal 0x8 00d1 e225 | % | Load 0x1,0x25 00d2 020e | | Execute Module,Augment_Imports 00d3 e225 | % | Load 0x1,0x25 00d4 020f | | Execute Module,Activate 00d5 a00b | | Store_Unchecked 0x0,0xb 00d6 a00c | | Store_Unchecked 0x0,0xc 00d7 a00d | | Store_Unchecked 0x0,0xd 00d8 4803 |H | Short_Literal 0x3 00d9 e226 | & | Load 0x1,0x26 00da 020e | | Execute Module,Augment_Imports 00db 00db | | Load_Top At_Offset_3 00dc 020f | | Execute Module,Activate 00dd 1d11 | | Execute_Immediate Reference_Lex_1,0x11 00de a00e | | Store_Unchecked 0x0,0xe 00df e225 | % | Load 0x1,0x25 00e0 1910 | | Execute Package,Field_Reference,Field_Number 0x10 00e1 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 00e2 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 00e3 1d0f | | Execute_Immediate Reference_Lex_1,0xf 00e4 e225 | % | Load 0x1,0x25 00e5 190e | | Execute Package,Field_Reference,Field_Number 0xe 00e6 4807 |H | Short_Literal 0x7 00e7 e227 | ' | Load 0x1,0x27 00e8 020e | | Execute Module,Augment_Imports 00e9 00da | | Load_Top At_Offset_2 00ea 020f | | Execute Module,Activate 00eb 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 00ec 1d11 | | Execute_Immediate Reference_Lex_1,0x11 00ed a00e | | Store_Unchecked 0x0,0xe 00ee e225 | % | Load 0x1,0x25 00ef 1910 | | Execute Package,Field_Reference,Field_Number 0x10 00f0 e003 | | Load 0x0,0x3 00f1 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 00f2 1d10 | | Execute_Immediate Reference_Lex_1,0x10 00f3 e225 | % | Load 0x1,0x25 00f4 190f | | Execute Package,Field_Reference,Field_Number 0xf 00f5 4808 |H | Short_Literal 0x8 00f6 e228 | ( | Load 0x1,0x28 00f7 020e | | Execute Module,Augment_Imports 00f8 00d9 | | Load_Top At_Offset_1 00f9 020f | | Execute Module,Activate 00fa 00d9 | | Load_Top At_Offset_1 00fb 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00fc 00da | | Load_Top At_Offset_2 00fd 190e | | Execute Package,Field_Reference,Field_Number 0xe 00fe e222 | " | Load 0x1,0x22 00ff 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 0100 e227 | ' | Load 0x1,0x27 0101 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0102 e227 | ' | Load 0x1,0x27 0103 190e | | Execute Package,Field_Reference,Field_Number 0xe 0104 4806 |H | Short_Literal 0x6 0105 e21f | | Load 0x1,0x1f 0106 020e | | Execute Module,Augment_Imports 0107 e21f | | Load 0x1,0x1f 0108 020f | | Execute Module,Activate 0109 BODY_0008: 0109 00bc | | Action Signal_Activated 010a 00bb | | Action Signal_Completion 010b 0000 0000 | | .BLANK 0000[0x5] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0113 | | .CONST 0x0113 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0001 | | .CONST 0x0001 ; Number of locals 0113 BODY_0110: 0113 INIT_0110: 0113 4800 |H | Short_Literal 0x0 0114 e222 | " | Load 0x1,0x22 0115 1c08 | | Execute_Immediate Run_Utility,0x8 0116 00db | | Load_Top At_Offset_3 0117 e226 | & | Load 0x1,0x26 0118 180f | | Execute Package,Field_Execute,Field_Number 0xf 0119 00d9 | | Load_Top At_Offset_1 011a 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 011b 8229 | ) | Call 0x1,0x29 011c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 011d 0000 0000 | | .XXX[0x3] 011f 0000 | | 0120 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff} 0124 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 0131 | 1 | .CONST 0x0131 ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0002 | | .CONST 0x0002 ; Number of locals 012b INIT_0128: 012b e003 | | Load 0x0,0x3 012c 02ff | | Declare_Variable Variant_Record 012d 00db | | Load_Top At_Offset_3 012e 800f | | Call 0x0,0xf 012f 00d9 | | Load_Top At_Offset_1 0130 016d | m | Execute Variant_Record,Structure_Write 0131 BODY_0128: 0131 4800 |H | Short_Literal 0x0 0132 e222 | " | Load 0x1,0x22 0133 1c08 | | Execute_Immediate Run_Utility,0x8 0134 00d9 | | Load_Top At_Offset_1 0135 e226 | & | Load 0x1,0x26 0136 180f | | Execute Package,Field_Execute,Field_Number 0xf 0137 00d9 | | Load_Top At_Offset_1 0138 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 0139 8229 | ) | Call 0x1,0x29 013a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 013b 0000 0000 | | .BLANK 0000[0x5] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0149 | I | .CONST 0x0149 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0002 | | .CONST 0x0002 ; Number of locals 0143 INIT_0140: 0143 e003 | | Load 0x0,0x3 0144 02ff | | Declare_Variable Variant_Record 0145 00db | | Load_Top At_Offset_3 0146 8010 | | Call 0x0,0x10 0147 00d9 | | Load_Top At_Offset_1 0148 016d | m | Execute Variant_Record,Structure_Write 0149 BODY_0140: 0149 4800 |H | Short_Literal 0x0 014a e222 | " | Load 0x1,0x22 014b 1c08 | | Execute_Immediate Run_Utility,0x8 014c 00d9 | | Load_Top At_Offset_1 014d e226 | & | Load 0x1,0x26 014e 180f | | Execute Package,Field_Execute,Field_Number 0xf 014f 00d9 | | Load_Top At_Offset_1 0150 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 0151 8229 | ) | Call 0x1,0x29 0152 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0153 0000 0000 | | .BLANK 0000[0x5] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 0161 | a | .CONST 0x0161 ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0002 | | .CONST 0x0002 ; Number of locals 015b INIT_0158: 015b e003 | | Load 0x0,0x3 015c 02ff | | Declare_Variable Variant_Record 015d 00db | | Load_Top At_Offset_3 015e 8011 | | Call 0x0,0x11 015f 00d9 | | Load_Top At_Offset_1 0160 016d | m | Execute Variant_Record,Structure_Write 0161 BODY_0158: 0161 4800 |H | Short_Literal 0x0 0162 e222 | " | Load 0x1,0x22 0163 1c08 | | Execute_Immediate Run_Utility,0x8 0164 00d9 | | Load_Top At_Offset_1 0165 e226 | & | Load 0x1,0x26 0166 180f | | Execute Package,Field_Execute,Field_Number 0xf 0167 00d9 | | Load_Top At_Offset_1 0168 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 0169 8229 | ) | Call 0x1,0x29 016a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 016b 0000 0000 | | .BLANK 0000[0x5] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0179 | y | .CONST 0x0179 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0002 | | .CONST 0x0002 ; Number of locals 0173 INIT_0170: 0173 e003 | | Load 0x0,0x3 0174 02ff | | Declare_Variable Variant_Record 0175 00db | | Load_Top At_Offset_3 0176 8012 | | Call 0x0,0x12 0177 00d9 | | Load_Top At_Offset_1 0178 016d | m | Execute Variant_Record,Structure_Write 0179 BODY_0170: 0179 4800 |H | Short_Literal 0x0 017a e222 | " | Load 0x1,0x22 017b 1c08 | | Execute_Immediate Run_Utility,0x8 017c 00d9 | | Load_Top At_Offset_1 017d e226 | & | Load 0x1,0x26 017e 180f | | Execute Package,Field_Execute,Field_Number 0xf 017f 00d9 | | Load_Top At_Offset_1 0180 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 0181 8229 | ) | Call 0x1,0x29 0182 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0183 0000 0000 | | .BLANK 0000[0x5] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 0191 | | .CONST 0x0191 ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0002 | | .CONST 0x0002 ; Number of locals 018b INIT_0188: 018b e003 | | Load 0x0,0x3 018c 02ff | | Declare_Variable Variant_Record 018d 00db | | Load_Top At_Offset_3 018e 8013 | | Call 0x0,0x13 018f 00d9 | | Load_Top At_Offset_1 0190 016d | m | Execute Variant_Record,Structure_Write 0191 BODY_0188: 0191 4800 |H | Short_Literal 0x0 0192 e222 | " | Load 0x1,0x22 0193 1c08 | | Execute_Immediate Run_Utility,0x8 0194 00d9 | | Load_Top At_Offset_1 0195 e226 | & | Load 0x1,0x26 0196 180f | | Execute Package,Field_Execute,Field_Number 0xf 0197 00d9 | | Load_Top At_Offset_1 0198 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 0199 8229 | ) | Call 0x1,0x29 019a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 019b 0000 0000 | | .BLANK 0000[0x5] 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a9 | | .CONST 0x01a9 ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0002 | | .CONST 0x0002 ; Number of locals 01a3 INIT_01a0: 01a3 e003 | | Load 0x0,0x3 01a4 02ff | | Declare_Variable Variant_Record 01a5 00db | | Load_Top At_Offset_3 01a6 8014 | | Call 0x0,0x14 01a7 00d9 | | Load_Top At_Offset_1 01a8 016d | m | Execute Variant_Record,Structure_Write 01a9 BODY_01a0: 01a9 4800 |H | Short_Literal 0x0 01aa e222 | " | Load 0x1,0x22 01ab 1c08 | | Execute_Immediate Run_Utility,0x8 01ac 00d9 | | Load_Top At_Offset_1 01ad e226 | & | Load 0x1,0x26 01ae 180f | | Execute Package,Field_Execute,Field_Number 0xf 01af 00d9 | | Load_Top At_Offset_1 01b0 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 01b1 8229 | ) | Call 0x1,0x29 01b2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01b3 0000 0000 | | .BLANK 0000[0x5] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01bb | | .CONST 0x01bb ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0001 | | .CONST 0x0001 ; Number of locals 01bb BODY_01b8: 01bb INIT_01b8: 01bb 4800 |H | Short_Literal 0x0 01bc e222 | " | Load 0x1,0x22 01bd 1c08 | | Execute_Immediate Run_Utility,0x8 01be 00db | | Load_Top At_Offset_3 01bf e226 | & | Load 0x1,0x26 01c0 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01c1 00d9 | | Load_Top At_Offset_1 01c2 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 01c3 8229 | ) | Call 0x1,0x29 01c4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01c5 0000 0000 | | .XXX[0x3] 01c7 0000 | | 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01d0 | | .CONST 0x01d0 ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 0002 | | .CONST 0x0002 ; Number of locals 01cb INIT_01c8: 01cb e227 | ' | Load 0x1,0x27 01cc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01cd 02ff | | Declare_Variable Variant_Record 01ce 00d8 | | Load_Top At_Offset_0 01cf 1c00 | | Execute_Immediate Run_Utility,0x0 01d0 BODY_01c8: 01d0 e5fd | | Load 0x2,-0x3 01d1 e5fe | | Load 0x2,-0x2 01d2 00d8 | | Load_Top At_Offset_0 01d3 e20e | | Load 0x1,0xe 01d4 0260 | ` | Execute Discrete,In_Type 01d5 7001 |p | Jump_Nonzero 0x1d7 01d6 0801 | | Execute_Immediate Raise,0x1 01d7 e227 | ' | Load 0x1,0x27 01d8 180f | | Execute Package,Field_Execute,Field_Number 0xf 01d9 00d9 | | Load_Top At_Offset_1 01da 016d | m | Execute Variant_Record,Structure_Write 01db 4801 |H | Short_Literal 0x1 01dc e222 | " | Load 0x1,0x22 01dd 1c08 | | Execute_Immediate Run_Utility,0x8 01de 00d9 | | Load_Top At_Offset_1 01df 00d9 | | Load_Top At_Offset_1 01e0 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 01e1 8229 | ) | Call 0x1,0x29 01e2 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01e3 0000 0000 | | .BLANK 0000[0x5] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01f0 | | .CONST 0x01f0 ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0002 | | .CONST 0x0002 ; Number of locals 01eb INIT_01e8: 01eb e228 | ( | Load 0x1,0x28 01ec 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01ed 02ff | | Declare_Variable Variant_Record 01ee 00d8 | | Load_Top At_Offset_0 01ef 1c00 | | Execute_Immediate Run_Utility,0x0 01f0 BODY_01e8: 01f0 e5fc | | Load 0x2,-0x4 01f1 e5fd | | Load 0x2,-0x3 01f2 e5fe | | Load 0x2,-0x2 01f3 00d8 | | Load_Top At_Offset_0 01f4 e20e | | Load 0x1,0xe 01f5 0260 | ` | Execute Discrete,In_Type 01f6 7001 |p | Jump_Nonzero 0x1f8 01f7 0801 | | Execute_Immediate Raise,0x1 01f8 e228 | ( | Load 0x1,0x28 01f9 180f | | Execute Package,Field_Execute,Field_Number 0xf 01fa 00d9 | | Load_Top At_Offset_1 01fb 016d | m | Execute Variant_Record,Structure_Write 01fc 4802 |H | Short_Literal 0x2 01fd e222 | " | Load 0x1,0x22 01fe 1c08 | | Execute_Immediate Run_Utility,0x8 01ff 00d9 | | Load_Top At_Offset_1 0200 00d9 | | Load_Top At_Offset_1 0201 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 0202 8229 | ) | Call 0x1,0x29 0203 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0204 0000 0000 | | .BLANK 0000[0x4] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 020b | | .CONST 0x020b ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0001 | | .CONST 0x0001 ; Number of locals 020b BODY_0208: 020b INIT_0208: 020b 00da | | Load_Top At_Offset_2 020c e223 | # | Load 0x1,0x23 020d 022f | / | Execute Access,Equal 020e 6802 |h | Jump_Zero 0x211 020f e015 | | Load 0x0,0x15 0210 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0211 00da | | Load_Top At_Offset_2 0212 0227 | ' | Execute Access,All_Reference 0213 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0214 4603 |F | Jump_Case 0x4 0215 7805 |x | Jump 0x21b ; case 0x0 0216 780a |x | Jump 0x221 ; case 0x1 0217 780f |x | Jump 0x227 ; case 0x2 0218 7800 |x | Jump 0x219 ; case 0x3 0219 e220 | | Load 0x1,0x20 021a 0257 | W | Execute Discrete,Raise 021b 00da | | Load_Top At_Offset_2 021c 0227 | ' | Execute Access,All_Reference 021d 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 021e e226 | & | Load 0x1,0x26 021f 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0220 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0221 00da | | Load_Top At_Offset_2 0222 0227 | ' | Execute Access,All_Reference 0223 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 0224 e227 | ' | Load 0x1,0x27 0225 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0226 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0227 00da | | Load_Top At_Offset_2 0228 0227 | ' | Execute Access,All_Reference 0229 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4 022a e228 | ( | Load 0x1,0x28 022b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 022c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 022d 0000 0000 | | .XXX[0x3] 022f 0000 | | 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 0233 | 3 | .CONST 0x0233 ; Address of begin 0231 0004 | | .CONST 0x0004 ; Address of exception handler 0232 0001 | | .CONST 0x0001 ; Number of locals 0233 BODY_0230: 0233 INIT_0230: 0233 00da | | Load_Top At_Offset_2 0234 e223 | # | Load 0x1,0x23 0235 022e | . | Execute Access,Not_Equal 0236 6821 |h! | Jump_Zero 0x258 0237 00da | | Load_Top At_Offset_2 0238 0227 | ' | Execute Access,All_Reference 0239 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 023a 4603 |F | Jump_Case 0x4 023b 7808 |x | Jump 0x244 ; case 0x0 023c 780e |x | Jump 0x24b ; case 0x1 023d 7814 |x | Jump 0x252 ; case 0x2 023e 7800 |x | Jump 0x23f ; case 0x3 023f 00db | | Load_Top At_Offset_3 0240 0092 033b | ;| Action Push_String_Extended,0x33b ; "Undefined expression" 0242 800e | | Call 0x0,0xe 0243 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0244 00db | | Load_Top At_Offset_3 0245 00db | | Load_Top At_Offset_3 0246 0227 | ' | Execute Access,All_Reference 0247 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 0248 e226 | & | Load 0x1,0x26 0249 1811 | | Execute Package,Field_Execute,Field_Number 0x11 024a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 024b 00db | | Load_Top At_Offset_3 024c 00db | | Load_Top At_Offset_3 024d 0227 | ' | Execute Access,All_Reference 024e 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 024f e227 | ' | Load 0x1,0x27 0250 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0251 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0252 00db | | Load_Top At_Offset_3 0253 00db | | Load_Top At_Offset_3 0254 0227 | ' | Execute Access,All_Reference 0255 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4 0256 e228 | ( | Load 0x1,0x28 0257 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0258 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0259 0000 0000 | | .BLANK 0000[0x7] 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 0263 | c | .CONST 0x0263 ; Address of begin 0261 0004 | | .CONST 0x0004 ; Address of exception handler 0262 0001 | | .CONST 0x0001 ; Number of locals 0263 BODY_0260: 0263 INIT_0260: 0263 4607 |F | Jump_Case 0x8 0264 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0265 7807 |x | Jump 0x26d ; case 0x1 0266 780a |x | Jump 0x271 ; case 0x2 0267 780e |x | Jump 0x276 ; case 0x3 0268 7811 |x | Jump 0x27a ; case 0x4 0269 7812 |x | Jump 0x27c ; case 0x5 026a 7813 |x | Jump 0x27e ; case 0x6 026b 7816 |x | Jump 0x282 ; case 0x7 026c 4302 |C | .XXX[0x1] 026d 00da | | Load_Top At_Offset_2 026e 0091 0335 | 5| Action Push_String_Extended_Indexed,0x335 ; "PRIMARY" 0270 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0271 00db | | Load_Top At_Offset_3 0272 00db | | Load_Top At_Offset_3 0273 00e0 | | Load_Encached Standard_Cache 0274 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0275 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0276 00da | | Load_Top At_Offset_2 0277 00e0 | | Load_Encached Standard_Cache 0278 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0279 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 027a 00db | | Load_Top At_Offset_3 027b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 027c 00db | | Load_Top At_Offset_3 027d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 027e e221 | ! | Load 0x1,0x21 027f 00dc | | Load_Top At_Offset_4 0280 0267 | g | Execute Discrete,Predecessor 0281 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0282 e221 | ! | Load 0x1,0x21 0283 00dc | | Load_Top At_Offset_4 0284 0268 | h | Execute Discrete,Successor 0285 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0286 0000 0000 | | .XXX[0x2] 0288 ; -------------------------------------------------------------------------------------- 0288 ; SUBPROGRAM 0288 ; SUBPROGRAM 0288 ; -------------------------------------------------------------------------------------- 0288 028b | | .CONST 0x028b ; Address of begin 0289 0004 | | .CONST 0x0004 ; Address of exception handler 028a 0001 | | .CONST 0x0001 ; Number of locals 028b BODY_0288: 028b BODY_0288: 028b INIT_0288: 028b INIT_0288: 028b 4609 |F | Jump_Case 0xa 028c 7809 |x | Jump 0x296 ; case 0x0 028d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 028e 781b |x | Jump 0x2aa ; case 0x2 028f 781e |x | Jump 0x2ae ; case 0x3 0290 7823 |x# | Jump 0x2b4 ; case 0x4 0291 782d |x- | Jump 0x2bf ; case 0x5 0292 7837 |x7 | Jump 0x2ca ; case 0x6 0293 7844 |xD | Jump 0x2d8 ; case 0x7 0294 7854 |xT | Jump 0x2e9 ; case 0x8 0295 785a |xZ | Jump 0x2f0 ; case 0x9 0296 00da | | Load_Top At_Offset_2 0297 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0298 4603 |F | Jump_Case 0x4 0299 7804 |x | Jump 0x29e ; case 0x0 029a 7807 |x | Jump 0x2a2 ; case 0x1 029b 780a |x | Jump 0x2a6 ; case 0x2 029c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 029d 4302 |C | .XXX[0x1] 029e 00da | | Load_Top At_Offset_2 029f 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 02a0 1c00 | | Execute_Immediate Run_Utility,0x0 02a1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 02a2 00da | | Load_Top At_Offset_2 02a3 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 02a4 1c00 | | Execute_Immediate Run_Utility,0x0 02a5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 02a6 00da | | Load_Top At_Offset_2 02a7 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4 02a8 1c00 | | Execute_Immediate Run_Utility,0x0 02a9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 02aa 4801 |H | Short_Literal 0x1 02ab 4804 |H | Short_Literal 0x4 02ac 0311 | | Declare_Type Variant_Record,Constrained_Incomplete 02ad 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 02ae e5fd | | Load 0x2,-0x3 02af 00db | | Load_Top At_Offset_3 02b0 1c07 | | Execute_Immediate Run_Utility,0x7 02b1 e5fe | | Load 0x2,-0x2 02b2 0306 | | Complete_Type Variant_Record,By_Renaming 02b3 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4 02b4 4801 |H | Short_Literal 0x1 02b5 4804 |H | Short_Literal 0x4 02b6 0311 | | Declare_Type Variant_Record,Constrained_Incomplete 02b7 e5fe | | Load 0x2,-0x2 02b8 00d8 | | Load_Top At_Offset_0 02b9 e5ff | | Load 0x2,-0x1 02ba 1c06 | | Execute_Immediate Run_Utility,0x6 02bb e5ff | | Load 0x2,-0x1 02bc 00db | | Load_Top At_Offset_3 02bd 0305 | | Complete_Type Variant_Record,By_Constraining_Incomplete 02be 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02bf 4801 |H | Short_Literal 0x1 02c0 00db | | Load_Top At_Offset_3 02c1 0169 | i | Execute Variant_Record,Read_Discriminant_Constraint 02c2 4603 |F | Jump_Case 0x4 02c3 7803 |x | Jump 0x2c7 ; case 0x0 02c4 7802 |x | Jump 0x2c7 ; case 0x1 02c5 7801 |x | Jump 0x2c7 ; case 0x2 02c6 7800 |x | Jump 0x2c7 ; case 0x3 02c7 e5ff | | Load 0x2,-0x1 02c8 0304 | | Complete_Type Variant_Record,By_Completing_Constraint 02c9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 02ca 00db | | Load_Top At_Offset_3 02cb 4603 |F | Jump_Case 0x4 02cc 7805 |x | Jump 0x2d2 ; case 0x0 02cd 7806 |x | Jump 0x2d4 ; case 0x1 02ce 7807 |x | Jump 0x2d6 ; case 0x2 02cf 7800 |x | Jump 0x2d0 ; case 0x3 02d0 48ff |H | Short_Literal 0xff 02d1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02d2 4801 |H | Short_Literal 0x1 02d3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02d4 4802 |H | Short_Literal 0x2 02d5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02d6 4803 |H | Short_Literal 0x3 02d7 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02d8 00db | | Load_Top At_Offset_3 02d9 e5fe | | Load 0x2,-0x2 02da 4603 |F | Jump_Case 0x4 02db 7805 |x | Jump 0x2e1 ; case 0x0 02dc 7806 |x | Jump 0x2e3 ; case 0x1 02dd 7807 |x | Jump 0x2e5 ; case 0x2 02de 7800 |x | Jump 0x2df ; case 0x3 02df 48ff |H | Short_Literal 0xff 02e0 7805 |x | Jump 0x2e6 02e1 4801 |H | Short_Literal 0x1 02e2 7803 |x | Jump 0x2e6 02e3 4802 |H | Short_Literal 0x2 02e4 7801 |x | Jump 0x2e6 02e5 4803 |H | Short_Literal 0x3 02e6 e5ff | | Load 0x2,-0x1 02e7 031b | | Declare_Type Variant_Record,Constrained 02e8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02e9 00db | | Load_Top At_Offset_3 02ea e5fe | | Load 0x2,-0x2 02eb e5ff | | Load 0x2,-0x1 02ec 1c06 | | Execute_Immediate Run_Utility,0x6 02ed e5ff | | Load 0x2,-0x1 02ee 02fc | | Declare_Variable Variant_Record,With_Constraint 02ef 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02f0 0869 | i | Execute_Immediate Raise,0x69 02f1 0000 0000 | | .BLANK 0000[0x7] 02f8 ; -------------------------------------------------------------------------------------- 02f8 ; SUBPROGRAM 02f8 ; -------------------------------------------------------------------------------------- 02f8 02fb | | .CONST 0x02fb ; Address of begin 02f9 0004 | | .CONST 0x0004 ; Address of exception handler 02fa 0001 | | .CONST 0x0001 ; Number of locals 02fb BODY_02f8: 02fb INIT_02f8: 02fb 4607 |F | Jump_Case 0x8 02fc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 02fd 7807 |x | Jump 0x305 ; case 0x1 02fe 780a |x | Jump 0x309 ; case 0x2 02ff 780e |x | Jump 0x30e ; case 0x3 0300 7811 |x | Jump 0x312 ; case 0x4 0301 7812 |x | Jump 0x314 ; case 0x5 0302 7813 |x | Jump 0x316 ; case 0x6 0303 7816 |x | Jump 0x31a ; case 0x7 0304 4302 |C | .XXX[0x1] 0305 00da | | Load_Top At_Offset_2 0306 0091 0339 | 9| Action Push_String_Extended_Indexed,0x339 ; "SYSTEM" 0308 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0309 00db | | Load_Top At_Offset_3 030a 00db | | Load_Top At_Offset_3 030b 00e0 | | Load_Encached Standard_Cache 030c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 030d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 030e 00da | | Load_Top At_Offset_2 030f 00e0 | | Load_Encached Standard_Cache 0310 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0311 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0312 00db | | Load_Top At_Offset_3 0313 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0314 00db | | Load_Top At_Offset_3 0315 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0316 e224 | $ | Load 0x1,0x24 0317 00dc | | Load_Top At_Offset_4 0318 0267 | g | Execute Discrete,Predecessor 0319 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 031a e224 | $ | Load 0x1,0x24 031b 00dc | | Load_Top At_Offset_4 031c 0268 | h | Execute Discrete,Successor 031d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 031e 0000 0000 | | .XXX[0x2] 0320 ; -------------------------------------------------------------------------------------- 0320 ; SUBPROGRAM 0320 ; -------------------------------------------------------------------------------------- 0320 0325 | % | .CONST 0x0325 ; Address of begin 0321 0004 | | .CONST 0x0004 ; Address of exception handler 0322 0002 | | .CONST 0x0002 ; Number of locals 0323 INIT_0320: 0323 e223 | # | Load 0x1,0x23 0324 0007 | | Action Break_Optional 0325 BODY_0320: 0325 00db | | Load_Top At_Offset_3 0326 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0327 00d8 | | Load_Top At_Offset_0 0328 e222 | " | Load 0x1,0x22 0329 1c06 | | Execute_Immediate Run_Utility,0x6 032a e223 | # | Load 0x1,0x23 032b 03ba | | Declare_Variable Access,By_Allocation,With_Constraint 032c 00d8 | | Load_Top At_Offset_0 032d 0227 | ' | Execute Access,All_Reference 032e 1c00 | | Execute_Immediate Run_Utility,0x0 032f 0039 | 9 | Store_Top Access,At_Offset_1 0330 00db | | Load_Top At_Offset_3 0331 00d9 | | Load_Top At_Offset_1 0332 0228 | ( | Execute Access,All_Write 0333 00d8 | | Load_Top At_Offset_0 0334 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0335 ; -------------------------------------------------------------------------------------- 0335 ; STRING TABLE 0335 ; -------------------------------------------------------------------------------------- 0335 0010 | | .STRTAB 0x0010->0x033d ; "PRIMARY" 0336 0015 | | .STRTAB 0x0015->0x0340 ; "UNARY" 0337 0018 | | .STRTAB 0x0018->0x0343 ; "BINARY" 0338 001c | | .STRTAB 0x001c->0x0346 ; "UNDEFINED" 0339 0023 | # | .STRTAB 0x0023->0x034a ; "SYSTEM" 033a 0027 | ' | .STRTAB 0x0027->0x034d ; "USER" 033b 0029 | ) | .STRTAB 0x0029->0x034f ; "Undefined expression" 033c 003b | ; | .STREND 0x003b->0x0359 033d 5052 494d |PRIM| .STRTAB_STRINGS 035a 0000 0000 | | .BLANK 0000[0x6] 0360 ; -------------------------------------------------------------------------------------- 0360 ; Debug Table 0360 ; -------------------------------------------------------------------------------------- 0360 0004 0006 | | .DEBUG4 0x0004,0x0006,0x95a4,0x0000,0x0001,0x0012 0366 000b 03ae | | .DBG4T 0x000b,0x03ae,0xc000,0x0000 036a 0054 03c4 | T | .DBG4T 0x0054,0x03c4,0xc000,0x0000 036e 0113 03de | | .DBG4T 0x0113,0x03de,0x1002,0x0000 0372 012b 03e1 | + | .DBG4T 0x012b,0x03e1,0x1002,0x0000 0376 0143 03e5 | C | .DBG4T 0x0143,0x03e5,0x1002,0x0000 037a 015b 03e9 | [ | .DBG4T 0x015b,0x03e9,0x1002,0x0000 037e 0173 03ed | s | .DBG4T 0x0173,0x03ed,0x1002,0x0000 0382 018b 03f1 | | .DBG4T 0x018b,0x03f1,0x1002,0x0000 0386 01a3 03f5 | | .DBG4T 0x01a3,0x03f5,0x1002,0x0000 038a 01bb 03f9 | | .DBG4T 0x01bb,0x03f9,0x1002,0x0000 038e 01cb 03fc | | .DBG4T 0x01cb,0x03fc,0x3802,0x0002 0392 01eb 0401 | | .DBG4T 0x01eb,0x0401,0x3802,0x0002 0396 020b 0406 | | .DBG4T 0x020b,0x0406,0x1002,0x4000 039a 0233 0416 | 3 | .DBG4T 0x0233,0x0416,0x1001,0x4000 039e 0263 0000 | c | .DBG4T 0x0263,0x0000,0x1005,0x0000 03a2 028b 0000 | | .DBG4T 0x028b,0x0000,0x1005,0x0000 03a6 02fb 0000 | | .DBG4T 0x02fb,0x0000,0x1005,0x0000 03aa 0323 0424 | # $| .DBG4T 0x0323,0x0424,0x1002,0x0000 03ae ; -------------------------------------------------------------------------------------- 03ae ; Debug chain 03ae ; -------------------------------------------------------------------------------------- 03ae 0014 0000 | | .DBGLEN 0x0014,0x0000 03b0 000b 000c | | .DBGLNO 0x000b,0x000c,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0033,0x003c,0x0041,0x004c,0x0050 03c4 ; -------------------------------------------------------------------------------------- 03c4 ; Debug chain 03c4 ; -------------------------------------------------------------------------------------- 03c4 0018 0000 | | .DBGLEN 0x0018,0x0000 03c6 0054 0059 | T Y| .DBGLNO 0x0054,0x0059,0x0067,0x0077,0x008a,0x009d,0x00ae,0x00b0,0x00b2,0x00b4,0x00b6,0x00b8,0x00ba,0x00bc,0x00be,0x00c0,0x00c2,0x00c4,0x00c6,0x00c8,0x00d5,0x00dd,0x00eb,0x00fa 03de ; -------------------------------------------------------------------------------------- 03de ; Debug chain 03de ; -------------------------------------------------------------------------------------- 03de 0000 0001 | | .DBGLEN 0x0000,0x0001 03e0 0113 | | .DBGLNO 0x0113 03e1 ; -------------------------------------------------------------------------------------- 03e1 ; Debug chain 03e1 ; -------------------------------------------------------------------------------------- 03e1 0001 0001 | | .DBGLEN 0x0001,0x0001 03e3 012b 0131 | + 1| .DBGLNO 0x012b,0x0131 03e5 ; -------------------------------------------------------------------------------------- 03e5 ; Debug chain 03e5 ; -------------------------------------------------------------------------------------- 03e5 0001 0001 | | .DBGLEN 0x0001,0x0001 03e7 0143 0149 | C I| .DBGLNO 0x0143,0x0149 03e9 ; -------------------------------------------------------------------------------------- 03e9 ; Debug chain 03e9 ; -------------------------------------------------------------------------------------- 03e9 0001 0001 | | .DBGLEN 0x0001,0x0001 03eb 015b 0161 | [ a| .DBGLNO 0x015b,0x0161 03ed ; -------------------------------------------------------------------------------------- 03ed ; Debug chain 03ed ; -------------------------------------------------------------------------------------- 03ed 0001 0001 | | .DBGLEN 0x0001,0x0001 03ef 0173 0179 | s y| .DBGLNO 0x0173,0x0179 03f1 ; -------------------------------------------------------------------------------------- 03f1 ; Debug chain 03f1 ; -------------------------------------------------------------------------------------- 03f1 0001 0001 | | .DBGLEN 0x0001,0x0001 03f3 018b 0191 | | .DBGLNO 0x018b,0x0191 03f5 ; -------------------------------------------------------------------------------------- 03f5 ; Debug chain 03f5 ; -------------------------------------------------------------------------------------- 03f5 0001 0001 | | .DBGLEN 0x0001,0x0001 03f7 01a3 01a9 | | .DBGLNO 0x01a3,0x01a9 03f9 ; -------------------------------------------------------------------------------------- 03f9 ; Debug chain 03f9 ; -------------------------------------------------------------------------------------- 03f9 0000 0001 | | .DBGLEN 0x0000,0x0001 03fb 01bb | | .DBGLNO 0x01bb 03fc ; -------------------------------------------------------------------------------------- 03fc ; Debug chain 03fc ; -------------------------------------------------------------------------------------- 03fc 0001 0002 | | .DBGLEN 0x0001,0x0002 03fe 01cb 01d0 | | .DBGLNO 0x01cb,0x01d0,0x01db 0401 ; -------------------------------------------------------------------------------------- 0401 ; Debug chain 0401 ; -------------------------------------------------------------------------------------- 0401 0001 0002 | | .DBGLEN 0x0001,0x0002 0403 01eb 01f0 | | .DBGLNO 0x01eb,0x01f0,0x01fc 0406 ; -------------------------------------------------------------------------------------- 0406 ; Debug chain 0406 ; -------------------------------------------------------------------------------------- 0406 0000 0007 | | .DBGLEN 0x0000,0x0007 0408 020b 020f | | .DBGLNO 0x020b,0x020f,0x0211,0x0219,0x021b,0x0221,0x0227 040f 0001 0002 | | .XXX[0x7] 0411 0003 0007 | | 0413 0004 0005 | | 0415 0006 | | 0416 ; -------------------------------------------------------------------------------------- 0416 ; Debug chain 0416 ; -------------------------------------------------------------------------------------- 0416 0000 0006 | | .DBGLEN 0x0000,0x0006 0418 0233 0237 | 3 7| .DBGLNO 0x0233,0x0237,0x023f,0x0244,0x024b,0x0252 041e 0001 0002 | | .XXX[0x6] 0420 0006 0003 | | 0422 0004 0005 | | 0424 ; -------------------------------------------------------------------------------------- 0424 ; Debug chain 0424 ; -------------------------------------------------------------------------------------- 0424 0001 0003 | | .DBGLEN 0x0001,0x0003 0426 0323 0325 | # %| .DBGLNO 0x0323,0x0325,0x0330,0x0333 042a 0000 0000 | | .BLANK 0000[0x1d6]