|
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]