|
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_1ee28c5
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 02d8 | | .CONST 0x02d8 ; 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 00f5 | | .CONST 0x00f5 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0028 | ( | .CONST 0x0028 ; Number of locals
000b INIT_0008:
000b 0007 | | Action Break_Optional
000c 00c4 | | Action Make_Default
000d 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
000f 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated
0011 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated
0013 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
0015 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated
0017 029a 01ab | | Declare_Subprogram INIT_01a8,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 60ea |` | Indirect_Literal Discrete,0x114,{0x80000000, 0x00010000}
002a 0273 | s | Execute Discrete,Plus
002b e20d | | Load 0x1,0xd
002c 60e3 |` | Indirect_Literal Discrete,0x110,{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 01db | | Declare_Subprogram INIT_01d8,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 0203 | | Declare_Subprogram INIT_0200,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 c217 | | Store 0x1,0x17
0047 00bf | | Action Accept_Activation
0048 4800 |H | Short_Literal 0x0
0049 4801 |H | Short_Literal 0x1
004a 029f 0273 | s| Declare_Subprogram INIT_0270,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 e222 | " | Load 0x1,0x22
0067 4804 |H | Short_Literal 0x4
0068 e225 | % | Load 0x1,0x25
0069 020e | | Execute Module,Augment_Imports
006a 0387 | | Declare_Variable Package
006b 4800 |H | Short_Literal 0x0
006c 480a |H | Short_Literal 0xa
006d e001 | | Load 0x0,0x1
006e 01d7 | | Execute Vector,Field_Read
006f 02a0 | | Declare_Subprogram Null_Subprogram
0070 038e | | Declare_Type Package,Defined
0071 e001 | | Load 0x0,0x1
0072 4809 |H | Short_Literal 0x9
0073 e001 | | Load 0x0,0x1
0074 01d7 | | Execute Vector,Field_Read
0075 e223 | # | Load 0x1,0x23
0076 e224 | $ | Load 0x1,0x24
0077 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0078 e20e | | Load 0x1,0xe
0079 4805 |H | Short_Literal 0x5
007a e226 | & | Load 0x1,0x26
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 e223 | # | Load 0x1,0x23
0088 e212 | | Load 0x1,0x12
0089 e224 | $ | Load 0x1,0x24
008a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
008b e20e | | Load 0x1,0xe
008c 4806 |H | Short_Literal 0x6
008d e227 | ' | Load 0x1,0x27
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 e226 | & | Load 0x1,0x26
0095 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0096 4801 |H | Short_Literal 0x1
0097 e227 | ' | Load 0x1,0x27
0098 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0099 029f 0203 | | Declare_Subprogram INIT_0200,For_Call
009b 4803 |H | Short_Literal 0x3
009c 4800 |H | Short_Literal 0x0
009d e221 | ! | Load 0x1,0x21
009e 0307 | | Complete_Type Variant_Record,By_Defining
009f e222 | " | Load 0x1,0x22
00a0 03c4 | | Complete_Type Access,By_Component_Completion
00a1 029d 029b | | Declare_Subprogram INIT_0298,For_Outer_Call
00a3 1d18 | | Execute_Immediate Reference_Lex_1,0x18
00a4 00c7 | | Action Elaborate_Subprogram
00a5 1d19 | | Execute_Immediate Reference_Lex_1,0x19
00a6 00c7 | | Action Elaborate_Subprogram
00a7 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00a8 00c7 | | Action Elaborate_Subprogram
00a9 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00aa 00c7 | | Action Elaborate_Subprogram
00ab 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00ac 00c7 | | Action Elaborate_Subprogram
00ad 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
00ae 00c7 | | Action Elaborate_Subprogram
00af e21f | | Load 0x1,0x1f
00b0 a003 | | Store_Unchecked 0x0,0x3
00b1 a004 | | Store_Unchecked 0x0,0x4
00b2 a005 | | Store_Unchecked 0x0,0x5
00b3 a006 | | Store_Unchecked 0x0,0x6
00b4 4805 |H | Short_Literal 0x5
00b5 e224 | $ | Load 0x1,0x24
00b6 020e | | Execute Module,Augment_Imports
00b7 e224 | $ | Load 0x1,0x24
00b8 020f | | Execute Module,Activate
00b9 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
00ba a007 | | Store_Unchecked 0x0,0x7
00bb a008 | | Store_Unchecked 0x0,0x8
00bc 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00bd a009 | | Store_Unchecked 0x0,0x9
00be 4805 |H | Short_Literal 0x5
00bf e225 | % | Load 0x1,0x25
00c0 020e | | Execute Module,Augment_Imports
00c1 00db | | Load_Top At_Offset_3
00c2 020f | | Execute Module,Activate
00c3 1d11 | | Execute_Immediate Reference_Lex_1,0x11
00c4 a007 | | Store_Unchecked 0x0,0x7
00c5 e224 | $ | Load 0x1,0x24
00c6 1910 | | Execute Package,Field_Reference,Field_Number 0x10
00c7 1d0f | | Execute_Immediate Reference_Lex_1,0xf
00c8 e224 | $ | Load 0x1,0x24
00c9 190e | | Execute Package,Field_Reference,Field_Number 0xe
00ca 4805 |H | Short_Literal 0x5
00cb e226 | & | Load 0x1,0x26
00cc 020e | | Execute Module,Augment_Imports
00cd 00da | | Load_Top At_Offset_2
00ce 020f | | Execute Module,Activate
00cf 1d11 | | Execute_Immediate Reference_Lex_1,0x11
00d0 a007 | | Store_Unchecked 0x0,0x7
00d1 e224 | $ | Load 0x1,0x24
00d2 1910 | | Execute Package,Field_Reference,Field_Number 0x10
00d3 1d16 | | Execute_Immediate Reference_Lex_1,0x16
00d4 1d15 | | Execute_Immediate Reference_Lex_1,0x15
00d5 1d10 | | Execute_Immediate Reference_Lex_1,0x10
00d6 e224 | $ | Load 0x1,0x24
00d7 190f | | Execute Package,Field_Reference,Field_Number 0xf
00d8 4807 |H | Short_Literal 0x7
00d9 e227 | ' | Load 0x1,0x27
00da 020e | | Execute Module,Augment_Imports
00db 00d9 | | Load_Top At_Offset_1
00dc 020f | | Execute Module,Activate
00dd e212 | | Load 0x1,0x12
00de 1d13 | | Execute_Immediate Reference_Lex_1,0x13
00df a00a | | Store_Unchecked 0x0,0xa
00e0 a00b | | Store_Unchecked 0x0,0xb
00e1 a00c | | Store_Unchecked 0x0,0xc
00e2 a00d | | Store_Unchecked 0x0,0xd
00e3 a00e | | Store_Unchecked 0x0,0xe
00e4 a00f | | Store_Unchecked 0x0,0xf
00e5 1d14 | | Execute_Immediate Reference_Lex_1,0x14
00e6 e226 | & | Load 0x1,0x26
00e7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00e8 e226 | & | Load 0x1,0x26
00e9 190e | | Execute Package,Field_Reference,Field_Number 0xe
00ea e221 | ! | Load 0x1,0x21
00eb 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
00ec e227 | ' | Load 0x1,0x27
00ed 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ee e227 | ' | Load 0x1,0x27
00ef 190e | | Execute Package,Field_Reference,Field_Number 0xe
00f0 480f |H | Short_Literal 0xf
00f1 e21e | | Load 0x1,0x1e
00f2 020e | | Execute Module,Augment_Imports
00f3 e21e | | Load 0x1,0x1e
00f4 020f | | Execute Module,Activate
00f5 BODY_0008:
00f5 00bc | | Action Signal_Activated
00f6 00bb | | Action Signal_Completion
00f7 0000 | | .XXX[0x1]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 0100 | | .CONST 0x0100 ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0002 | | .CONST 0x0002 ; Number of locals
00fb INIT_00f8:
00fb e225 | % | Load 0x1,0x25
00fc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00fd 02ff | | Declare_Variable Variant_Record
00fe 00d8 | | Load_Top At_Offset_0
00ff 1c00 | | Execute_Immediate Run_Utility,0x0
0100 BODY_00f8:
0100 00db | | Load_Top At_Offset_3
0101 e225 | % | Load 0x1,0x25
0102 180f | | Execute Package,Field_Execute,Field_Number 0xf
0103 00d9 | | Load_Top At_Offset_1
0104 016d | m | Execute Variant_Record,Structure_Write
0105 4800 |H | Short_Literal 0x0
0106 e221 | ! | Load 0x1,0x21
0107 1c08 | | Execute_Immediate Run_Utility,0x8
0108 00d9 | | Load_Top At_Offset_1
0109 00d9 | | Load_Top At_Offset_1
010a 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
010b 8228 | ( | Call 0x1,0x28
010c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
010d 0000 0000 | | .XXX[0x3]
010f 0000 | |
0110 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
0114 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 0120 | | .CONST 0x0120 ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0002 | | .CONST 0x0002 ; Number of locals
011b INIT_0118:
011b e225 | % | Load 0x1,0x25
011c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
011d 02ff | | Declare_Variable Variant_Record
011e 00d8 | | Load_Top At_Offset_0
011f 1c00 | | Execute_Immediate Run_Utility,0x0
0120 BODY_0118:
0120 00db | | Load_Top At_Offset_3
0121 e222 | " | Load 0x1,0x22
0122 022f | / | Execute Access,Equal
0123 6802 |h | Jump_Zero 0x126
0124 e5fe | | Load 0x2,-0x2
0125 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0126 e5fe | | Load 0x2,-0x2
0127 e222 | " | Load 0x1,0x22
0128 022f | / | Execute Access,Equal
0129 6802 |h | Jump_Zero 0x12c
012a 00db | | Load_Top At_Offset_3
012b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
012c e5fe | | Load 0x2,-0x2
012d e5ff | | Load 0x2,-0x1
012e e225 | % | Load 0x1,0x25
012f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0130 00d9 | | Load_Top At_Offset_1
0131 016d | m | Execute Variant_Record,Structure_Write
0132 4800 |H | Short_Literal 0x0
0133 e221 | ! | Load 0x1,0x21
0134 1c08 | | Execute_Immediate Run_Utility,0x8
0135 00d9 | | Load_Top At_Offset_1
0136 00d9 | | Load_Top At_Offset_1
0137 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0138 8228 | ( | Call 0x1,0x28
0139 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
013a 0000 0000 | | .BLANK 0000[0x6]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0148 | H | .CONST 0x0148 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0002 | | .CONST 0x0002 ; Number of locals
0143 INIT_0140:
0143 e226 | & | Load 0x1,0x26
0144 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0145 02ff | | Declare_Variable Variant_Record
0146 00d8 | | Load_Top At_Offset_0
0147 1c00 | | Execute_Immediate Run_Utility,0x0
0148 BODY_0140:
0148 e5fe | | Load 0x2,-0x2
0149 00d8 | | Load_Top At_Offset_0
014a e20e | | Load 0x1,0xe
014b 0260 | ` | Execute Discrete,In_Type
014c 7001 |p | Jump_Nonzero 0x14e
014d 0801 | | Execute_Immediate Raise,0x1
014e e226 | & | Load 0x1,0x26
014f 180f | | Execute Package,Field_Execute,Field_Number 0xf
0150 00d9 | | Load_Top At_Offset_1
0151 016d | m | Execute Variant_Record,Structure_Write
0152 4801 |H | Short_Literal 0x1
0153 e221 | ! | Load 0x1,0x21
0154 1c08 | | Execute_Immediate Run_Utility,0x8
0155 00d9 | | Load_Top At_Offset_1
0156 00d9 | | Load_Top At_Offset_1
0157 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0158 8228 | ( | Call 0x1,0x28
0159 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
015a 0000 0000 | | .BLANK 0000[0x6]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0168 | h | .CONST 0x0168 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0002 | | .CONST 0x0002 ; Number of locals
0163 INIT_0160:
0163 e227 | ' | Load 0x1,0x27
0164 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0165 02ff | | Declare_Variable Variant_Record
0166 00d8 | | Load_Top At_Offset_0
0167 1c00 | | Execute_Immediate Run_Utility,0x0
0168 BODY_0160:
0168 e5fd | | Load 0x2,-0x3
0169 e212 | | Load 0x1,0x12
016a 0119 | | Execute Any,Check_In_Formal_Type
016b e5fe | | Load 0x2,-0x2
016c 00d8 | | Load_Top At_Offset_0
016d e20e | | Load 0x1,0xe
016e 0260 | ` | Execute Discrete,In_Type
016f 7001 |p | Jump_Nonzero 0x171
0170 0801 | | Execute_Immediate Raise,0x1
0171 e227 | ' | Load 0x1,0x27
0172 180f | | Execute Package,Field_Execute,Field_Number 0xf
0173 00d9 | | Load_Top At_Offset_1
0174 016d | m | Execute Variant_Record,Structure_Write
0175 4802 |H | Short_Literal 0x2
0176 e221 | ! | Load 0x1,0x21
0177 1c08 | | Execute_Immediate Run_Utility,0x8
0178 00d9 | | Load_Top At_Offset_1
0179 00d9 | | Load_Top At_Offset_1
017a 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
017b 8228 | ( | Call 0x1,0x28
017c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
017d 0000 0000 | | .XXX[0x3]
017f 0000 | |
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183 | | .CONST 0x0183 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0001 | | .CONST 0x0001 ; Number of locals
0183 BODY_0180:
0183 INIT_0180:
0183 00db | | Load_Top At_Offset_3
0184 e222 | " | Load 0x1,0x22
0185 022f | / | Execute Access,Equal
0186 6802 |h | Jump_Zero 0x189
0187 4800 |H | Short_Literal 0x0
0188 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0189 00db | | Load_Top At_Offset_3
018a 0227 | ' | Execute Access,All_Reference
018b 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
018c 4603 |F | Jump_Case 0x4
018d 7805 |x | Jump 0x193 ; case 0x0
018e 780b |x | Jump 0x19a ; case 0x1
018f 7811 |x | Jump 0x1a1 ; case 0x2
0190 7800 |x | Jump 0x191 ; case 0x3
0191 e21f | | Load 0x1,0x1f
0192 0257 | W | Execute Discrete,Raise
0193 00db | | Load_Top At_Offset_3
0194 0227 | ' | Execute Access,All_Reference
0195 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0196 00db | | Load_Top At_Offset_3
0197 e225 | % | Load 0x1,0x25
0198 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0199 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
019a 00db | | Load_Top At_Offset_3
019b 0227 | ' | Execute Access,All_Reference
019c 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
019d 00db | | Load_Top At_Offset_3
019e e226 | & | Load 0x1,0x26
019f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01a0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01a1 00db | | Load_Top At_Offset_3
01a2 0227 | ' | Execute Access,All_Reference
01a3 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
01a4 00db | | Load_Top At_Offset_3
01a5 e227 | ' | Load 0x1,0x27
01a6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01a7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
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 00da | | Load_Top At_Offset_2
01ac e222 | " | Load 0x1,0x22
01ad 022e | . | Execute Access,Not_Equal
01ae 6821 |h! | Jump_Zero 0x1d0
01af 00da | | Load_Top At_Offset_2
01b0 0227 | ' | Execute Access,All_Reference
01b1 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01b2 4603 |F | Jump_Case 0x4
01b3 7808 |x | Jump 0x1bc ; case 0x0
01b4 780e |x | Jump 0x1c3 ; case 0x1
01b5 7814 |x | Jump 0x1ca ; case 0x2
01b6 7800 |x | Jump 0x1b7 ; case 0x3
01b7 00db | | Load_Top At_Offset_3
01b8 0092 02b3 | | Action Push_String_Extended,0x2b3 ; "Undefined predicate"
01ba 8007 | | Call 0x0,0x7
01bb 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01bc 00db | | Load_Top At_Offset_3
01bd 00db | | Load_Top At_Offset_3
01be 0227 | ' | Execute Access,All_Reference
01bf 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
01c0 e225 | % | Load 0x1,0x25
01c1 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01c2 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01c3 00db | | Load_Top At_Offset_3
01c4 00db | | Load_Top At_Offset_3
01c5 0227 | ' | Execute Access,All_Reference
01c6 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
01c7 e226 | & | Load 0x1,0x26
01c8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01c9 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01ca 00db | | Load_Top At_Offset_3
01cb 00db | | Load_Top At_Offset_3
01cc 0227 | ' | Execute Access,All_Reference
01cd 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
01ce e227 | ' | Load 0x1,0x27
01cf 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01d0 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01d1 0000 0000 | | .BLANK 0000[0x7]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db | | .CONST 0x01db ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0001 | | .CONST 0x0001 ; Number of locals
01db BODY_01d8:
01db INIT_01d8:
01db 4607 |F | Jump_Case 0x8
01dc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
01dd 7807 |x | Jump 0x1e5 ; case 0x1
01de 780a |x | Jump 0x1e9 ; case 0x2
01df 780e |x | Jump 0x1ee ; case 0x3
01e0 7811 |x | Jump 0x1f2 ; case 0x4
01e1 7812 |x | Jump 0x1f4 ; case 0x5
01e2 7813 |x | Jump 0x1f6 ; case 0x6
01e3 7816 |x | Jump 0x1fa ; case 0x7
01e4 4302 |C | .XXX[0x1]
01e5 00da | | Load_Top At_Offset_2
01e6 0091 02ad | | Action Push_String_Extended_Indexed,0x2ad ; "PRIMARY"
01e8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01e9 00db | | Load_Top At_Offset_3
01ea 00db | | Load_Top At_Offset_3
01eb 00e0 | | Load_Encached Standard_Cache
01ec 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01ed 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01ee 00da | | Load_Top At_Offset_2
01ef 00e0 | | Load_Encached Standard_Cache
01f0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01f1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01f2 00db | | Load_Top At_Offset_3
01f3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01f4 00db | | Load_Top At_Offset_3
01f5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01f6 e220 | | Load 0x1,0x20
01f7 00dc | | Load_Top At_Offset_4
01f8 0267 | g | Execute Discrete,Predecessor
01f9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01fa e220 | | Load 0x1,0x20
01fb 00dc | | Load_Top At_Offset_4
01fc 0268 | h | Execute Discrete,Successor
01fd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01fe 0000 0000 | | .XXX[0x2]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203 | | .CONST 0x0203 ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0001 | | .CONST 0x0001 ; Number of locals
0203 BODY_0200:
0203 BODY_0200:
0203 INIT_0200:
0203 INIT_0200:
0203 4609 |F | Jump_Case 0xa
0204 7809 |x | Jump 0x20e ; case 0x0
0205 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0206 781b |x | Jump 0x222 ; case 0x2
0207 781e |x | Jump 0x226 ; case 0x3
0208 7823 |x# | Jump 0x22c ; case 0x4
0209 782d |x- | Jump 0x237 ; case 0x5
020a 7837 |x7 | Jump 0x242 ; case 0x6
020b 7844 |xD | Jump 0x250 ; case 0x7
020c 7854 |xT | Jump 0x261 ; case 0x8
020d 785a |xZ | Jump 0x268 ; case 0x9
020e 00da | | Load_Top At_Offset_2
020f 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0210 4603 |F | Jump_Case 0x4
0211 7804 |x | Jump 0x216 ; case 0x0
0212 7807 |x | Jump 0x21a ; case 0x1
0213 780a |x | Jump 0x21e ; case 0x2
0214 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0215 4302 |C | .XXX[0x1]
0216 00da | | Load_Top At_Offset_2
0217 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0218 1c00 | | Execute_Immediate Run_Utility,0x0
0219 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
021a 00da | | Load_Top At_Offset_2
021b 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
021c 1c00 | | Execute_Immediate Run_Utility,0x0
021d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
021e 00da | | Load_Top At_Offset_2
021f 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
0220 1c00 | | Execute_Immediate Run_Utility,0x0
0221 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0222 4801 |H | Short_Literal 0x1
0223 4804 |H | Short_Literal 0x4
0224 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
0225 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0226 e5fd | | Load 0x2,-0x3
0227 00db | | Load_Top At_Offset_3
0228 1c07 | | Execute_Immediate Run_Utility,0x7
0229 e5fe | | Load 0x2,-0x2
022a 0306 | | Complete_Type Variant_Record,By_Renaming
022b 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
022c 4801 |H | Short_Literal 0x1
022d 4804 |H | Short_Literal 0x4
022e 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
022f e5fe | | Load 0x2,-0x2
0230 00d8 | | Load_Top At_Offset_0
0231 e5ff | | Load 0x2,-0x1
0232 1c06 | | Execute_Immediate Run_Utility,0x6
0233 e5ff | | Load 0x2,-0x1
0234 00db | | Load_Top At_Offset_3
0235 0305 | | Complete_Type Variant_Record,By_Constraining_Incomplete
0236 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0237 4801 |H | Short_Literal 0x1
0238 00db | | Load_Top At_Offset_3
0239 0169 | i | Execute Variant_Record,Read_Discriminant_Constraint
023a 4603 |F | Jump_Case 0x4
023b 7803 |x | Jump 0x23f ; case 0x0
023c 7802 |x | Jump 0x23f ; case 0x1
023d 7801 |x | Jump 0x23f ; case 0x2
023e 7800 |x | Jump 0x23f ; case 0x3
023f e5ff | | Load 0x2,-0x1
0240 0304 | | Complete_Type Variant_Record,By_Completing_Constraint
0241 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0242 00db | | Load_Top At_Offset_3
0243 4603 |F | Jump_Case 0x4
0244 7805 |x | Jump 0x24a ; case 0x0
0245 7806 |x | Jump 0x24c ; case 0x1
0246 7807 |x | Jump 0x24e ; case 0x2
0247 7800 |x | Jump 0x248 ; case 0x3
0248 48ff |H | Short_Literal 0xff
0249 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
024a 4801 |H | Short_Literal 0x1
024b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
024c 4802 |H | Short_Literal 0x2
024d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
024e 4803 |H | Short_Literal 0x3
024f 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0250 00db | | Load_Top At_Offset_3
0251 e5fe | | Load 0x2,-0x2
0252 4603 |F | Jump_Case 0x4
0253 7805 |x | Jump 0x259 ; case 0x0
0254 7806 |x | Jump 0x25b ; case 0x1
0255 7807 |x | Jump 0x25d ; case 0x2
0256 7800 |x | Jump 0x257 ; case 0x3
0257 48ff |H | Short_Literal 0xff
0258 7805 |x | Jump 0x25e
0259 4801 |H | Short_Literal 0x1
025a 7803 |x | Jump 0x25e
025b 4802 |H | Short_Literal 0x2
025c 7801 |x | Jump 0x25e
025d 4803 |H | Short_Literal 0x3
025e e5ff | | Load 0x2,-0x1
025f 031b | | Declare_Type Variant_Record,Constrained
0260 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0261 00db | | Load_Top At_Offset_3
0262 e5fe | | Load 0x2,-0x2
0263 e5ff | | Load 0x2,-0x1
0264 1c06 | | Execute_Immediate Run_Utility,0x6
0265 e5ff | | Load 0x2,-0x1
0266 02fc | | Declare_Variable Variant_Record,With_Constraint
0267 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0268 0869 | i | Execute_Immediate Raise,0x69
0269 0000 0000 | | .BLANK 0000[0x7]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273 | s | .CONST 0x0273 ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 0001 | | .CONST 0x0001 ; Number of locals
0273 BODY_0270:
0273 INIT_0270:
0273 4607 |F | Jump_Case 0x8
0274 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0275 7807 |x | Jump 0x27d ; case 0x1
0276 780a |x | Jump 0x281 ; case 0x2
0277 780e |x | Jump 0x286 ; case 0x3
0278 7811 |x | Jump 0x28a ; case 0x4
0279 7812 |x | Jump 0x28c ; case 0x5
027a 7813 |x | Jump 0x28e ; case 0x6
027b 7816 |x | Jump 0x292 ; case 0x7
027c 4302 |C | .XXX[0x1]
027d 00da | | Load_Top At_Offset_2
027e 0091 02b1 | | Action Push_String_Extended_Indexed,0x2b1 ; "SYSTEM"
0280 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0281 00db | | Load_Top At_Offset_3
0282 00db | | Load_Top At_Offset_3
0283 00e0 | | Load_Encached Standard_Cache
0284 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0285 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0286 00da | | Load_Top At_Offset_2
0287 00e0 | | Load_Encached Standard_Cache
0288 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0289 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
028a 00db | | Load_Top At_Offset_3
028b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
028c 00db | | Load_Top At_Offset_3
028d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
028e e223 | # | Load 0x1,0x23
028f 00dc | | Load_Top At_Offset_4
0290 0267 | g | Execute Discrete,Predecessor
0291 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0292 e223 | # | Load 0x1,0x23
0293 00dc | | Load_Top At_Offset_4
0294 0268 | h | Execute Discrete,Successor
0295 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0296 0000 0000 | | .XXX[0x2]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029d | | .CONST 0x029d ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0002 | | .CONST 0x0002 ; Number of locals
029b INIT_0298:
029b e222 | " | Load 0x1,0x22
029c 0007 | | Action Break_Optional
029d BODY_0298:
029d 00db | | Load_Top At_Offset_3
029e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
029f 00d8 | | Load_Top At_Offset_0
02a0 e221 | ! | Load 0x1,0x21
02a1 1c06 | | Execute_Immediate Run_Utility,0x6
02a2 e222 | " | Load 0x1,0x22
02a3 03ba | | Declare_Variable Access,By_Allocation,With_Constraint
02a4 00d8 | | Load_Top At_Offset_0
02a5 0227 | ' | Execute Access,All_Reference
02a6 1c00 | | Execute_Immediate Run_Utility,0x0
02a7 0039 | 9 | Store_Top Access,At_Offset_1
02a8 00db | | Load_Top At_Offset_3
02a9 00d9 | | Load_Top At_Offset_1
02aa 0228 | ( | Execute Access,All_Write
02ab 00d8 | | Load_Top At_Offset_0
02ac 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02ad ; --------------------------------------------------------------------------------------
02ad ; STRING TABLE
02ad ; --------------------------------------------------------------------------------------
02ad 0010 | | .STRTAB 0x0010->0x02b5 ; "PRIMARY"
02ae 0015 | | .STRTAB 0x0015->0x02b8 ; "UNARY"
02af 0018 | | .STRTAB 0x0018->0x02bb ; "BINARY"
02b0 001c | | .STRTAB 0x001c->0x02be ; "UNDEFINED"
02b1 0023 | # | .STRTAB 0x0023->0x02c2 ; "SYSTEM"
02b2 0027 | ' | .STRTAB 0x0027->0x02c5 ; "USER"
02b3 0029 | ) | .STRTAB 0x0029->0x02c7 ; "Undefined predicate"
02b4 003a | : | .STREND 0x003a->0x02d1
02b5 5052 494d |PRIM| .STRTAB_STRINGS
02d1 0000 0000 | | .BLANK 0000[0x7]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; Debug Table
02d8 ; --------------------------------------------------------------------------------------
02d8 0004 0004 | | .DEBUG4 0x0004,0x0004,0x9c07,0x0000,0x0001,0x000c
02de 000b 030e | | .DBG4T 0x000b,0x030e,0xc000,0x0000
02e2 0048 031e | H | .DBG4T 0x0048,0x031e,0xc000,0x0000
02e6 00fb 0332 | 2| .DBG4T 0x00fb,0x0332,0x1002,0x0000
02ea 011b 0337 | 7| .DBG4T 0x011b,0x0337,0x1002,0x0000
02ee 0143 0340 | C @| .DBG4T 0x0143,0x0340,0x3802,0x0002
02f2 0163 0345 | c E| .DBG4T 0x0163,0x0345,0x3802,0x0002
02f6 0183 034a | J| .DBG4T 0x0183,0x034a,0x1002,0x4000
02fa 01ab 035a | Z| .DBG4T 0x01ab,0x035a,0x1001,0x4000
02fe 01db 0000 | | .DBG4T 0x01db,0x0000,0x1005,0x0000
0302 0203 0000 | | .DBG4T 0x0203,0x0000,0x1005,0x0000
0306 0273 0000 | s | .DBG4T 0x0273,0x0000,0x1005,0x0000
030a 029b 0368 | h| .DBG4T 0x029b,0x0368,0x1002,0x0000
030e ; --------------------------------------------------------------------------------------
030e ; Debug chain
030e ; --------------------------------------------------------------------------------------
030e 000e 0000 | | .DBGLEN 0x000e,0x0000
0310 000b 000c | | .DBGLNO 0x000b,0x000c,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x0027,0x0030,0x0035,0x0040,0x0044
031e ; --------------------------------------------------------------------------------------
031e ; Debug chain
031e ; --------------------------------------------------------------------------------------
031e 0012 0000 | | .DBGLEN 0x0012,0x0000
0320 0048 004d | H M| .DBGLNO 0x0048,0x004d,0x005b,0x006b,0x007d,0x0090,0x00a1,0x00a3,0x00a5,0x00a7,0x00a9,0x00ab,0x00ad,0x00af,0x00b9,0x00c3,0x00cf,0x00dd
0332 ; --------------------------------------------------------------------------------------
0332 ; Debug chain
0332 ; --------------------------------------------------------------------------------------
0332 0001 0002 | | .DBGLEN 0x0001,0x0002
0334 00fb 0100 | | .DBGLNO 0x00fb,0x0100,0x0105
0337 ; --------------------------------------------------------------------------------------
0337 ; Debug chain
0337 ; --------------------------------------------------------------------------------------
0337 0001 0006 | | .DBGLEN 0x0001,0x0006
0339 011b 0120 | | .DBGLNO 0x011b,0x0120,0x0124,0x0126,0x012a,0x012c,0x0132
0340 ; --------------------------------------------------------------------------------------
0340 ; Debug chain
0340 ; --------------------------------------------------------------------------------------
0340 0001 0002 | | .DBGLEN 0x0001,0x0002
0342 0143 0148 | C H| .DBGLNO 0x0143,0x0148,0x0152
0345 ; --------------------------------------------------------------------------------------
0345 ; Debug chain
0345 ; --------------------------------------------------------------------------------------
0345 0001 0002 | | .DBGLEN 0x0001,0x0002
0347 0163 0168 | c h| .DBGLNO 0x0163,0x0168,0x0175
034a ; --------------------------------------------------------------------------------------
034a ; Debug chain
034a ; --------------------------------------------------------------------------------------
034a 0000 0007 | | .DBGLEN 0x0000,0x0007
034c 0183 0187 | | .DBGLNO 0x0183,0x0187,0x0189,0x0191,0x0193,0x019a,0x01a1
0353 0001 0002 | | .XXX[0x7]
0355 0003 0007 | |
0357 0004 0005 | |
0359 0006 | |
035a ; --------------------------------------------------------------------------------------
035a ; Debug chain
035a ; --------------------------------------------------------------------------------------
035a 0000 0006 | | .DBGLEN 0x0000,0x0006
035c 01ab 01af | | .DBGLNO 0x01ab,0x01af,0x01b7,0x01bc,0x01c3,0x01ca
0362 0001 0002 | | .XXX[0x6]
0364 0006 0003 | |
0366 0004 0005 | |
0368 ; --------------------------------------------------------------------------------------
0368 ; Debug chain
0368 ; --------------------------------------------------------------------------------------
0368 0001 0003 | | .DBGLEN 0x0001,0x0003
036a 029b 029d | | .DBGLNO 0x029b,0x029d,0x02a8,0x02ab
036e 0000 0000 | | .BLANK 0000[0x92]