|
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: 2048 (0x800)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_13388c9
└─⟦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 02a8 | | .CONST 0x02a8 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00e4 | | .CONST 0x00e4 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0022 | " | .CONST 0x0022 ; Number of locals
000b INIT_0008:
000b 0007 | | Action Break_Optional
000c 00c4 | | Action Make_Default
000d 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated
000f 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated
0011 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
0013 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated
0015 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated
0017 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated
0019 4800 |H | Short_Literal 0x0
001a 4808 |H | Short_Literal 0x8
001b e001 | | Load 0x0,0x1
001c 01d7 | | Execute Vector,Field_Read
001d 02a0 | | Declare_Subprogram Null_Subprogram
001e 038f | | Declare_Type Package,Defined,Visible
001f e001 | | Load 0x0,0x1
0020 4807 |H | Short_Literal 0x7
0021 e001 | | Load 0x0,0x1
0022 01d7 | | Execute Vector,Field_Read
0023 4802 |H | Short_Literal 0x2
0024 00db | | Load_Top At_Offset_3
0025 020e | | Execute Module,Augment_Imports
0026 0386 | | Declare_Variable Package,Visible
0027 0093 0000 | | push_full_address 0x0
0029 60d2 |` | Indirect_Literal Discrete,0xfc,{0x80000000, 0x00010000}
002a 0273 | s | Execute Discrete,Plus
002b e20d | | Load 0x1,0xd
002c 60cb |` | Indirect_Literal Discrete,0xf8,{0x00000000, 0x0000ffff}
002d 0279 | y | Execute Discrete,And
002e 0273 | s | Execute Discrete,Plus
002f 0129 | ) | Execute Any,Make_Visible
0030 4800 |H | Short_Literal 0x0
0031 4803 |H | Short_Literal 0x3
0032 029f 01ab | | Declare_Subprogram INIT_01a8,For_Call
0034 03fe | | Declare_Type Discrete,Defined,Visible
0035 00d8 | | Load_Top At_Offset_0
0036 4803 |H | Short_Literal 0x3
0037 4800 |H | Short_Literal 0x0
0038 4801 |H | Short_Literal 0x1
0039 4804 |H | Short_Literal 0x4
003a 0319 | | Declare_Type Variant_Record,Incomplete,Visible
003b 029f 01d3 | | Declare_Subprogram INIT_01d0,For_Call
003d 00d9 | | Load_Top At_Offset_1
003e 012a | * | Execute Any,Change_Utility
003f 0007 | | Action Break_Optional
0040 00d8 | | Load_Top At_Offset_0
0041 02a0 | | Declare_Subprogram Null_Subprogram
0042 4818 |H | Short_Literal 0x18
0043 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected
0044 00d8 | | Load_Top At_Offset_0
0045 0129 | ) | Execute Any,Make_Visible
0046 c211 | | Store 0x1,0x11
0047 00bf | | Action Accept_Activation
0048 4800 |H | Short_Literal 0x0
0049 4801 |H | Short_Literal 0x1
004a 029f 0243 | C| Declare_Subprogram INIT_0240,For_Call
004c 03fd | | Declare_Type Discrete,Defined
004d 4800 |H | Short_Literal 0x0
004e 4806 |H | Short_Literal 0x6
004f e001 | | Load 0x0,0x1
0050 01d7 | | Execute Vector,Field_Read
0051 02a0 | | Declare_Subprogram Null_Subprogram
0052 038e | | Declare_Type Package,Defined
0053 e001 | | Load 0x0,0x1
0054 4805 |H | Short_Literal 0x5
0055 e001 | | Load 0x0,0x1
0056 01d7 | | Execute Vector,Field_Read
0057 4802 |H | Short_Literal 0x2
0058 00db | | Load_Top At_Offset_3
0059 020e | | Execute Module,Augment_Imports
005a 0387 | | Declare_Variable Package
005b 4800 |H | Short_Literal 0x0
005c 4804 |H | Short_Literal 0x4
005d e001 | | Load 0x0,0x1
005e 01d7 | | Execute Vector,Field_Read
005f 02a0 | | Declare_Subprogram Null_Subprogram
0060 038e | | Declare_Type Package,Defined
0061 e001 | | Load 0x0,0x1
0062 4803 |H | Short_Literal 0x3
0063 e001 | | Load 0x0,0x1
0064 01d7 | | Execute Vector,Field_Read
0065 e002 | | Load 0x0,0x2
0066 4803 |H | Short_Literal 0x3
0067 e21f | | Load 0x1,0x1f
0068 020e | | Execute Module,Augment_Imports
0069 0387 | | Declare_Variable Package
006a 4800 |H | Short_Literal 0x0
006b 480a |H | Short_Literal 0xa
006c e001 | | Load 0x0,0x1
006d 01d7 | | Execute Vector,Field_Read
006e 02a0 | | Declare_Subprogram Null_Subprogram
006f 038e | | Declare_Type Package,Defined
0070 e001 | | Load 0x0,0x1
0071 4809 |H | Short_Literal 0x9
0072 e001 | | Load 0x0,0x1
0073 01d7 | | Execute Vector,Field_Read
0074 e21d | | Load 0x1,0x1d
0075 e21c | | Load 0x1,0x1c
0076 e21e | | Load 0x1,0x1e
0077 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0078 e20e | | Load 0x1,0xe
0079 4806 |H | Short_Literal 0x6
007a e220 | | Load 0x1,0x20
007b 020e | | Execute Module,Augment_Imports
007c 0387 | | Declare_Variable Package
007d 4800 |H | Short_Literal 0x0
007e 4802 |H | Short_Literal 0x2
007f e001 | | Load 0x0,0x1
0080 01d7 | | Execute Vector,Field_Read
0081 02a0 | | Declare_Subprogram Null_Subprogram
0082 038e | | Declare_Type Package,Defined
0083 e001 | | Load 0x0,0x1
0084 4801 |H | Short_Literal 0x1
0085 e001 | | Load 0x0,0x1
0086 01d7 | | Execute Vector,Field_Read
0087 e21d | | Load 0x1,0x1d
0088 e21c | | Load 0x1,0x1c
0089 e21e | | Load 0x1,0x1e
008a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
008b e20e | | Load 0x1,0xe
008c 4806 |H | Short_Literal 0x6
008d e221 | ! | Load 0x1,0x21
008e 020e | | Execute Module,Augment_Imports
008f 0387 | | Declare_Variable Package
0090 4801 |H | Short_Literal 0x1
0091 00db | | Load_Top At_Offset_3
0092 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0093 4801 |H | Short_Literal 0x1
0094 e220 | | Load 0x1,0x20
0095 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0096 4801 |H | Short_Literal 0x1
0097 e221 | ! | Load 0x1,0x21
0098 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0099 029f 01d3 | | Declare_Subprogram INIT_01d0,For_Call
009b 4803 |H | Short_Literal 0x3
009c 4800 |H | Short_Literal 0x0
009d e21b | | Load 0x1,0x1b
009e 0307 | | Complete_Type Variant_Record,By_Defining
009f e21c | | Load 0x1,0x1c
00a0 03c4 | | Complete_Type Access,By_Component_Completion
00a1 029d 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call
00a3 1d12 | | Execute_Immediate Reference_Lex_1,0x12
00a4 00c7 | | Action Elaborate_Subprogram
00a5 1d13 | | Execute_Immediate Reference_Lex_1,0x13
00a6 00c7 | | Action Elaborate_Subprogram
00a7 1d14 | | Execute_Immediate Reference_Lex_1,0x14
00a8 00c7 | | Action Elaborate_Subprogram
00a9 1d15 | | Execute_Immediate Reference_Lex_1,0x15
00aa 00c7 | | Action Elaborate_Subprogram
00ab 1d16 | | Execute_Immediate Reference_Lex_1,0x16
00ac 00c7 | | Action Elaborate_Subprogram
00ad 1d17 | | Execute_Immediate Reference_Lex_1,0x17
00ae 00c7 | | Action Elaborate_Subprogram
00af e21e | | Load 0x1,0x1e
00b0 020f | | Execute Module,Activate
00b1 a003 | | Store_Unchecked 0x0,0x3
00b2 a004 | | Store_Unchecked 0x0,0x4
00b3 a005 | | Store_Unchecked 0x0,0x5
00b4 4803 |H | Short_Literal 0x3
00b5 e21f | | Load 0x1,0x1f
00b6 020e | | Execute Module,Augment_Imports
00b7 00db | | Load_Top At_Offset_3
00b8 020f | | Execute Module,Activate
00b9 1d10 | | Execute_Immediate Reference_Lex_1,0x10
00ba a006 | | Store_Unchecked 0x0,0x6
00bb e21e | | Load 0x1,0x1e
00bc 190f | | Execute Package,Field_Reference,Field_Number 0xf
00bd 1d17 | | Execute_Immediate Reference_Lex_1,0x17
00be 1d16 | | Execute_Immediate Reference_Lex_1,0x16
00bf 1d0f | | Execute_Immediate Reference_Lex_1,0xf
00c0 e21e | | Load 0x1,0x1e
00c1 190e | | Execute Package,Field_Reference,Field_Number 0xe
00c2 4807 |H | Short_Literal 0x7
00c3 e220 | | Load 0x1,0x20
00c4 020e | | Execute Module,Augment_Imports
00c5 00da | | Load_Top At_Offset_2
00c6 020f | | Execute Module,Activate
00c7 1d17 | | Execute_Immediate Reference_Lex_1,0x17
00c8 1d10 | | Execute_Immediate Reference_Lex_1,0x10
00c9 a006 | | Store_Unchecked 0x0,0x6
00ca e21e | | Load 0x1,0x1e
00cb 190f | | Execute Package,Field_Reference,Field_Number 0xf
00cc 1d16 | | Execute_Immediate Reference_Lex_1,0x16
00cd 1d0f | | Execute_Immediate Reference_Lex_1,0xf
00ce e21e | | Load 0x1,0x1e
00cf 190e | | Execute Package,Field_Reference,Field_Number 0xe
00d0 4807 |H | Short_Literal 0x7
00d1 e221 | ! | Load 0x1,0x21
00d2 020e | | Execute Module,Augment_Imports
00d3 00d9 | | Load_Top At_Offset_1
00d4 020f | | Execute Module,Activate
00d5 00d9 | | Load_Top At_Offset_1
00d6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00d7 00da | | Load_Top At_Offset_2
00d8 190e | | Execute Package,Field_Reference,Field_Number 0xe
00d9 e21b | | Load 0x1,0x1b
00da 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
00db e220 | | Load 0x1,0x20
00dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00dd e220 | | Load 0x1,0x20
00de 190e | | Execute Package,Field_Reference,Field_Number 0xe
00df 4806 |H | Short_Literal 0x6
00e0 e218 | | Load 0x1,0x18
00e1 020e | | Execute Module,Augment_Imports
00e2 e218 | | Load 0x1,0x18
00e3 020f | | Execute Module,Activate
00e4 BODY_0008:
00e4 00bc | | Action Signal_Activated
00e5 00bb | | Action Signal_Completion
00e6 0000 0000 | | .XXX[0x2]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb 4800 |H | Short_Literal 0x0
00ec e21b | | Load 0x1,0x1b
00ed 1c08 | | Execute_Immediate Run_Utility,0x8
00ee 00db | | Load_Top At_Offset_3
00ef e21f | | Load 0x1,0x1f
00f0 180f | | Execute Package,Field_Execute,Field_Number 0xf
00f1 00d9 | | Load_Top At_Offset_1
00f2 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
00f3 8222 | " | Call 0x1,0x22
00f4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00f5 0000 0000 | | .XXX[0x3]
00f7 0000 | |
00f8 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
00fc 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 4800 |H | Short_Literal 0x0
0104 e21b | | Load 0x1,0x1b
0105 1c08 | | Execute_Immediate Run_Utility,0x8
0106 00db | | Load_Top At_Offset_3
0107 e21f | | Load 0x1,0x1f
0108 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0109 00d9 | | Load_Top At_Offset_1
010a 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
010b 8222 | " | Call 0x1,0x22
010c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
010d 0000 0000 | | .XXX[0x3]
010f 0000 | |
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0118 | | .CONST 0x0118 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0002 | | .CONST 0x0002 ; Number of locals
0113 INIT_0110:
0113 e220 | | Load 0x1,0x20
0114 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0115 02ff | | Declare_Variable Variant_Record
0116 00d8 | | Load_Top At_Offset_0
0117 1c00 | | Execute_Immediate Run_Utility,0x0
0118 BODY_0110:
0118 e5fd | | Load 0x2,-0x3
0119 e5fe | | Load 0x2,-0x2
011a 00d8 | | Load_Top At_Offset_0
011b e20e | | Load 0x1,0xe
011c 0260 | ` | Execute Discrete,In_Type
011d 7001 |p | Jump_Nonzero 0x11f
011e 0801 | | Execute_Immediate Raise,0x1
011f e220 | | Load 0x1,0x20
0120 180f | | Execute Package,Field_Execute,Field_Number 0xf
0121 00d9 | | Load_Top At_Offset_1
0122 016d | m | Execute Variant_Record,Structure_Write
0123 4801 |H | Short_Literal 0x1
0124 e21b | | Load 0x1,0x1b
0125 1c08 | | Execute_Immediate Run_Utility,0x8
0126 00d9 | | Load_Top At_Offset_1
0127 00d9 | | Load_Top At_Offset_1
0128 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0129 8222 | " | Call 0x1,0x22
012a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
012b 0000 0000 | | .BLANK 0000[0x5]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0138 | 8 | .CONST 0x0138 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0002 | | .CONST 0x0002 ; Number of locals
0133 INIT_0130:
0133 e221 | ! | Load 0x1,0x21
0134 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0135 02ff | | Declare_Variable Variant_Record
0136 00d8 | | Load_Top At_Offset_0
0137 1c00 | | Execute_Immediate Run_Utility,0x0
0138 BODY_0130:
0138 e5fc | | Load 0x2,-0x4
0139 e5fd | | Load 0x2,-0x3
013a e5fe | | Load 0x2,-0x2
013b 00d8 | | Load_Top At_Offset_0
013c e20e | | Load 0x1,0xe
013d 0260 | ` | Execute Discrete,In_Type
013e 7001 |p | Jump_Nonzero 0x140
013f 0801 | | Execute_Immediate Raise,0x1
0140 e221 | ! | Load 0x1,0x21
0141 180f | | Execute Package,Field_Execute,Field_Number 0xf
0142 00d9 | | Load_Top At_Offset_1
0143 016d | m | Execute Variant_Record,Structure_Write
0144 4802 |H | Short_Literal 0x2
0145 e21b | | Load 0x1,0x1b
0146 1c08 | | Execute_Immediate Run_Utility,0x8
0147 00d9 | | Load_Top At_Offset_1
0148 00d9 | | Load_Top At_Offset_1
0149 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
014a 8222 | " | Call 0x1,0x22
014b 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
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 00da | | Load_Top At_Offset_2
0154 e21c | | Load 0x1,0x1c
0155 022f | / | Execute Access,Equal
0156 6802 |h | Jump_Zero 0x159
0157 4800 |H | Short_Literal 0x0
0158 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0159 00da | | Load_Top At_Offset_2
015a 0227 | ' | Execute Access,All_Reference
015b 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
015c 4603 |F | Jump_Case 0x4
015d 7805 |x | Jump 0x163 ; case 0x0
015e 780a |x | Jump 0x169 ; case 0x1
015f 780f |x | Jump 0x16f ; case 0x2
0160 7800 |x | Jump 0x161 ; case 0x3
0161 e219 | | Load 0x1,0x19
0162 0257 | W | Execute Discrete,Raise
0163 00da | | Load_Top At_Offset_2
0164 0227 | ' | Execute Access,All_Reference
0165 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0166 e21f | | Load 0x1,0x1f
0167 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0168 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0169 00da | | Load_Top At_Offset_2
016a 0227 | ' | Execute Access,All_Reference
016b 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
016c e220 | | Load 0x1,0x20
016d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
016e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
016f 00da | | Load_Top At_Offset_2
0170 0227 | ' | Execute Access,All_Reference
0171 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
0172 e221 | ! | Load 0x1,0x21
0173 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0174 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0175 0000 0000 | | .XXX[0x3]
0177 0000 | |
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b | { | .CONST 0x017b ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0001 | | .CONST 0x0001 ; Number of locals
017b BODY_0178:
017b INIT_0178:
017b 00da | | Load_Top At_Offset_2
017c e21c | | Load 0x1,0x1c
017d 022e | . | Execute Access,Not_Equal
017e 6821 |h! | Jump_Zero 0x1a0
017f 00da | | Load_Top At_Offset_2
0180 0227 | ' | Execute Access,All_Reference
0181 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0182 4603 |F | Jump_Case 0x4
0183 7808 |x | Jump 0x18c ; case 0x0
0184 780e |x | Jump 0x193 ; case 0x1
0185 7814 |x | Jump 0x19a ; case 0x2
0186 7800 |x | Jump 0x187 ; case 0x3
0187 00db | | Load_Top At_Offset_3
0188 0092 0283 | | Action Push_String_Extended,0x283 ; "Undefined expression"
018a 8006 | | Call 0x0,0x6
018b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
018c 00db | | Load_Top At_Offset_3
018d 00db | | Load_Top At_Offset_3
018e 0227 | ' | Execute Access,All_Reference
018f 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0190 e21f | | Load 0x1,0x1f
0191 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0192 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0193 00db | | Load_Top At_Offset_3
0194 00db | | Load_Top At_Offset_3
0195 0227 | ' | Execute Access,All_Reference
0196 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0197 e220 | | Load 0x1,0x20
0198 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0199 4503 |E | Exit_Suprogram New_Top_Offset 0x3
019a 00db | | Load_Top At_Offset_3
019b 00db | | Load_Top At_Offset_3
019c 0227 | ' | Execute Access,All_Reference
019d 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
019e e221 | ! | Load 0x1,0x21
019f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01a0 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01a1 0000 0000 | | .BLANK 0000[0x7]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab | | .CONST 0x01ab ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0001 | | .CONST 0x0001 ; Number of locals
01ab BODY_01a8:
01ab INIT_01a8:
01ab 4607 |F | Jump_Case 0x8
01ac 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
01ad 7807 |x | Jump 0x1b5 ; case 0x1
01ae 780a |x | Jump 0x1b9 ; case 0x2
01af 780e |x | Jump 0x1be ; case 0x3
01b0 7811 |x | Jump 0x1c2 ; case 0x4
01b1 7812 |x | Jump 0x1c4 ; case 0x5
01b2 7813 |x | Jump 0x1c6 ; case 0x6
01b3 7816 |x | Jump 0x1ca ; case 0x7
01b4 4302 |C | .XXX[0x1]
01b5 00da | | Load_Top At_Offset_2
01b6 0091 027d | }| Action Push_String_Extended_Indexed,0x27d ; "PRIMARY"
01b8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01b9 00db | | Load_Top At_Offset_3
01ba 00db | | Load_Top At_Offset_3
01bb 00e0 | | Load_Encached Standard_Cache
01bc 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01bd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01be 00da | | Load_Top At_Offset_2
01bf 00e0 | | Load_Encached Standard_Cache
01c0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01c1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01c2 00db | | Load_Top At_Offset_3
01c3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01c4 00db | | Load_Top At_Offset_3
01c5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01c6 e21a | | Load 0x1,0x1a
01c7 00dc | | Load_Top At_Offset_4
01c8 0267 | g | Execute Discrete,Predecessor
01c9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01ca e21a | | Load 0x1,0x1a
01cb 00dc | | Load_Top At_Offset_4
01cc 0268 | h | Execute Discrete,Successor
01cd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01ce 0000 0000 | | .XXX[0x2]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3 | | .CONST 0x01d3 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0001 | | .CONST 0x0001 ; Number of locals
01d3 BODY_01d0:
01d3 BODY_01d0:
01d3 INIT_01d0:
01d3 INIT_01d0:
01d3 4609 |F | Jump_Case 0xa
01d4 7809 |x | Jump 0x1de ; case 0x0
01d5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
01d6 781b |x | Jump 0x1f2 ; case 0x2
01d7 781e |x | Jump 0x1f6 ; case 0x3
01d8 7823 |x# | Jump 0x1fc ; case 0x4
01d9 782d |x- | Jump 0x207 ; case 0x5
01da 7837 |x7 | Jump 0x212 ; case 0x6
01db 7844 |xD | Jump 0x220 ; case 0x7
01dc 7854 |xT | Jump 0x231 ; case 0x8
01dd 785a |xZ | Jump 0x238 ; case 0x9
01de 00da | | Load_Top At_Offset_2
01df 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01e0 4603 |F | Jump_Case 0x4
01e1 7804 |x | Jump 0x1e6 ; case 0x0
01e2 7807 |x | Jump 0x1ea ; case 0x1
01e3 780a |x | Jump 0x1ee ; case 0x2
01e4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
01e5 4302 |C | .XXX[0x1]
01e6 00da | | Load_Top At_Offset_2
01e7 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
01e8 1c00 | | Execute_Immediate Run_Utility,0x0
01e9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01ea 00da | | Load_Top At_Offset_2
01eb 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
01ec 1c00 | | Execute_Immediate Run_Utility,0x0
01ed 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01ee 00da | | Load_Top At_Offset_2
01ef 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
01f0 1c00 | | Execute_Immediate Run_Utility,0x0
01f1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01f2 4801 |H | Short_Literal 0x1
01f3 4804 |H | Short_Literal 0x4
01f4 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
01f5 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01f6 e5fd | | Load 0x2,-0x3
01f7 00db | | Load_Top At_Offset_3
01f8 1c07 | | Execute_Immediate Run_Utility,0x7
01f9 e5fe | | Load 0x2,-0x2
01fa 0306 | | Complete_Type Variant_Record,By_Renaming
01fb 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
01fc 4801 |H | Short_Literal 0x1
01fd 4804 |H | Short_Literal 0x4
01fe 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
01ff e5fe | | Load 0x2,-0x2
0200 00d8 | | Load_Top At_Offset_0
0201 e5ff | | Load 0x2,-0x1
0202 1c06 | | Execute_Immediate Run_Utility,0x6
0203 e5ff | | Load 0x2,-0x1
0204 00db | | Load_Top At_Offset_3
0205 0305 | | Complete_Type Variant_Record,By_Constraining_Incomplete
0206 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0207 4801 |H | Short_Literal 0x1
0208 00db | | Load_Top At_Offset_3
0209 0169 | i | Execute Variant_Record,Read_Discriminant_Constraint
020a 4603 |F | Jump_Case 0x4
020b 7803 |x | Jump 0x20f ; case 0x0
020c 7802 |x | Jump 0x20f ; case 0x1
020d 7801 |x | Jump 0x20f ; case 0x2
020e 7800 |x | Jump 0x20f ; case 0x3
020f e5ff | | Load 0x2,-0x1
0210 0304 | | Complete_Type Variant_Record,By_Completing_Constraint
0211 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0212 00db | | Load_Top At_Offset_3
0213 4603 |F | Jump_Case 0x4
0214 7805 |x | Jump 0x21a ; case 0x0
0215 7806 |x | Jump 0x21c ; case 0x1
0216 7807 |x | Jump 0x21e ; case 0x2
0217 7800 |x | Jump 0x218 ; case 0x3
0218 48ff |H | Short_Literal 0xff
0219 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
021a 4801 |H | Short_Literal 0x1
021b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
021c 4802 |H | Short_Literal 0x2
021d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
021e 4803 |H | Short_Literal 0x3
021f 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0220 00db | | Load_Top At_Offset_3
0221 e5fe | | Load 0x2,-0x2
0222 4603 |F | Jump_Case 0x4
0223 7805 |x | Jump 0x229 ; case 0x0
0224 7806 |x | Jump 0x22b ; case 0x1
0225 7807 |x | Jump 0x22d ; case 0x2
0226 7800 |x | Jump 0x227 ; case 0x3
0227 48ff |H | Short_Literal 0xff
0228 7805 |x | Jump 0x22e
0229 4801 |H | Short_Literal 0x1
022a 7803 |x | Jump 0x22e
022b 4802 |H | Short_Literal 0x2
022c 7801 |x | Jump 0x22e
022d 4803 |H | Short_Literal 0x3
022e e5ff | | Load 0x2,-0x1
022f 031b | | Declare_Type Variant_Record,Constrained
0230 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0231 00db | | Load_Top At_Offset_3
0232 e5fe | | Load 0x2,-0x2
0233 e5ff | | Load 0x2,-0x1
0234 1c06 | | Execute_Immediate Run_Utility,0x6
0235 e5ff | | Load 0x2,-0x1
0236 02fc | | Declare_Variable Variant_Record,With_Constraint
0237 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0238 0869 | i | Execute_Immediate Raise,0x69
0239 0000 0000 | | .BLANK 0000[0x7]
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 4607 |F | Jump_Case 0x8
0244 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0245 7807 |x | Jump 0x24d ; case 0x1
0246 780a |x | Jump 0x251 ; case 0x2
0247 780e |x | Jump 0x256 ; case 0x3
0248 7811 |x | Jump 0x25a ; case 0x4
0249 7812 |x | Jump 0x25c ; case 0x5
024a 7813 |x | Jump 0x25e ; case 0x6
024b 7816 |x | Jump 0x262 ; case 0x7
024c 4302 |C | .XXX[0x1]
024d 00da | | Load_Top At_Offset_2
024e 0091 0281 | | Action Push_String_Extended_Indexed,0x281 ; "SYSTEM"
0250 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0251 00db | | Load_Top At_Offset_3
0252 00db | | Load_Top At_Offset_3
0253 00e0 | | Load_Encached Standard_Cache
0254 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0255 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0256 00da | | Load_Top At_Offset_2
0257 00e0 | | Load_Encached Standard_Cache
0258 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0259 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
025a 00db | | Load_Top At_Offset_3
025b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
025c 00db | | Load_Top At_Offset_3
025d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
025e e21d | | Load 0x1,0x1d
025f 00dc | | Load_Top At_Offset_4
0260 0267 | g | Execute Discrete,Predecessor
0261 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0262 e21d | | Load 0x1,0x1d
0263 00dc | | Load_Top At_Offset_4
0264 0268 | h | Execute Discrete,Successor
0265 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0266 0000 0000 | | .XXX[0x2]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026d | m | .CONST 0x026d ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0002 | | .CONST 0x0002 ; Number of locals
026b INIT_0268:
026b e21c | | Load 0x1,0x1c
026c 0007 | | Action Break_Optional
026d BODY_0268:
026d 00db | | Load_Top At_Offset_3
026e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
026f 00d8 | | Load_Top At_Offset_0
0270 e21b | | Load 0x1,0x1b
0271 1c06 | | Execute_Immediate Run_Utility,0x6
0272 e21c | | Load 0x1,0x1c
0273 03ba | | Declare_Variable Access,By_Allocation,With_Constraint
0274 00d8 | | Load_Top At_Offset_0
0275 0227 | ' | Execute Access,All_Reference
0276 1c00 | | Execute_Immediate Run_Utility,0x0
0277 0039 | 9 | Store_Top Access,At_Offset_1
0278 00db | | Load_Top At_Offset_3
0279 00d9 | | Load_Top At_Offset_1
027a 0228 | ( | Execute Access,All_Write
027b 00d8 | | Load_Top At_Offset_0
027c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
027d ; --------------------------------------------------------------------------------------
027d ; STRING TABLE
027d ; --------------------------------------------------------------------------------------
027d 0010 | | .STRTAB 0x0010->0x0285 ; "PRIMARY"
027e 0015 | | .STRTAB 0x0015->0x0288 ; "UNARY"
027f 0018 | | .STRTAB 0x0018->0x028b ; "BINARY"
0280 001c | | .STRTAB 0x001c->0x028e ; "UNDEFINED"
0281 0023 | # | .STRTAB 0x0023->0x0292 ; "SYSTEM"
0282 0027 | ' | .STRTAB 0x0027->0x0295 ; "USER"
0283 0029 | ) | .STRTAB 0x0029->0x0297 ; "Undefined expression"
0284 003b | ; | .STREND 0x003b->0x02a1
0285 5052 494d |PRIM| .STRTAB_STRINGS
02a2 0000 0000 | | .BLANK 0000[0x6]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; Debug Table
02a8 ; --------------------------------------------------------------------------------------
02a8 0004 0004 | | .DEBUG4 0x0004,0x0004,0x95fb,0x0000,0x0001,0x000c
02ae 000b 02de | | .DBG4T 0x000b,0x02de,0xc000,0x0000
02b2 0048 02ee | H | .DBG4T 0x0048,0x02ee,0xc000,0x0000
02b6 00eb 0302 | | .DBG4T 0x00eb,0x0302,0x1002,0x0000
02ba 0103 0305 | | .DBG4T 0x0103,0x0305,0x1002,0x0000
02be 0113 0308 | | .DBG4T 0x0113,0x0308,0x3802,0x0002
02c2 0133 030d | 3 | .DBG4T 0x0133,0x030d,0x3802,0x0002
02c6 0153 0312 | S | .DBG4T 0x0153,0x0312,0x1002,0x4000
02ca 017b 0322 | { "| .DBG4T 0x017b,0x0322,0x1001,0x4000
02ce 01ab 0000 | | .DBG4T 0x01ab,0x0000,0x1005,0x0000
02d2 01d3 0000 | | .DBG4T 0x01d3,0x0000,0x1005,0x0000
02d6 0243 0000 | C | .DBG4T 0x0243,0x0000,0x1005,0x0000
02da 026b 0330 | k 0| .DBG4T 0x026b,0x0330,0x1002,0x0000
02de ; --------------------------------------------------------------------------------------
02de ; Debug chain
02de ; --------------------------------------------------------------------------------------
02de 000e 0000 | | .DBGLEN 0x000e,0x0000
02e0 000b 000c | | .DBGLNO 0x000b,0x000c,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x0027,0x0030,0x0035,0x0040,0x0044
02ee ; --------------------------------------------------------------------------------------
02ee ; Debug chain
02ee ; --------------------------------------------------------------------------------------
02ee 0012 0000 | | .DBGLEN 0x0012,0x0000
02f0 0048 004d | H M| .DBGLNO 0x0048,0x004d,0x005b,0x006a,0x007d,0x0090,0x00a1,0x00a3,0x00a5,0x00a7,0x00a9,0x00ab,0x00ad,0x00af,0x00b1,0x00b9,0x00c7,0x00d5
0302 ; --------------------------------------------------------------------------------------
0302 ; Debug chain
0302 ; --------------------------------------------------------------------------------------
0302 0000 0001 | | .DBGLEN 0x0000,0x0001
0304 00eb | | .DBGLNO 0x00eb
0305 ; --------------------------------------------------------------------------------------
0305 ; Debug chain
0305 ; --------------------------------------------------------------------------------------
0305 0000 0001 | | .DBGLEN 0x0000,0x0001
0307 0103 | | .DBGLNO 0x0103
0308 ; --------------------------------------------------------------------------------------
0308 ; Debug chain
0308 ; --------------------------------------------------------------------------------------
0308 0001 0002 | | .DBGLEN 0x0001,0x0002
030a 0113 0118 | | .DBGLNO 0x0113,0x0118,0x0123
030d ; --------------------------------------------------------------------------------------
030d ; Debug chain
030d ; --------------------------------------------------------------------------------------
030d 0001 0002 | | .DBGLEN 0x0001,0x0002
030f 0133 0138 | 3 8| .DBGLNO 0x0133,0x0138,0x0144
0312 ; --------------------------------------------------------------------------------------
0312 ; Debug chain
0312 ; --------------------------------------------------------------------------------------
0312 0000 0007 | | .DBGLEN 0x0000,0x0007
0314 0153 0157 | S W| .DBGLNO 0x0153,0x0157,0x0159,0x0161,0x0163,0x0169,0x016f
031b 0001 0002 | | .XXX[0x7]
031d 0003 0007 | |
031f 0004 0005 | |
0321 0006 | |
0322 ; --------------------------------------------------------------------------------------
0322 ; Debug chain
0322 ; --------------------------------------------------------------------------------------
0322 0000 0006 | | .DBGLEN 0x0000,0x0006
0324 017b 017f | { | .DBGLNO 0x017b,0x017f,0x0187,0x018c,0x0193,0x019a
032a 0001 0002 | | .XXX[0x6]
032c 0006 0003 | |
032e 0004 0005 | |
0330 ; --------------------------------------------------------------------------------------
0330 ; Debug chain
0330 ; --------------------------------------------------------------------------------------
0330 0001 0003 | | .DBGLEN 0x0001,0x0003
0332 026b 026d | k m| .DBGLNO 0x026b,0x026d,0x0278,0x027b
0336 0000 0000 | | .BLANK 0000[0xca]