|
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_b8bce8
└─⟦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 02d0 | | .CONST 0x02d0 ; 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 00e7 | | .CONST 0x00e7 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0027 | ' | .CONST 0x0027 ; Number of locals
000b INIT_0008:
000b 0007 | | Action Break_Optional
000c 00c4 | | Action Make_Default
000d 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated
000f 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
0011 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated
0013 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated
0015 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated
0017 029a 01a3 | | Declare_Subprogram INIT_01a0,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 60e2 |` | Indirect_Literal Discrete,0x10c,{0x80000000, 0x00010000}
002a 0273 | s | Execute Discrete,Plus
002b e20d | | Load 0x1,0xd
002c 60db |` | Indirect_Literal Discrete,0x108,{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 01d3 | | Declare_Subprogram INIT_01d0,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 01fb | | Declare_Subprogram INIT_01f8,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 c216 | | Store 0x1,0x16
0047 00bf | | Action Accept_Activation
0048 4800 |H | Short_Literal 0x0
0049 4801 |H | Short_Literal 0x1
004a 029f 026b | k| Declare_Subprogram INIT_0268,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 e221 | ! | Load 0x1,0x21
0067 4804 |H | Short_Literal 0x4
0068 e224 | $ | Load 0x1,0x24
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 e222 | " | Load 0x1,0x22
0076 e223 | # | Load 0x1,0x23
0077 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0078 e20e | | Load 0x1,0xe
0079 4805 |H | Short_Literal 0x5
007a e225 | % | Load 0x1,0x25
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 e222 | " | Load 0x1,0x22
0088 e211 | | Load 0x1,0x11
0089 e223 | # | Load 0x1,0x23
008a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
008b e20e | | Load 0x1,0xe
008c 4806 |H | Short_Literal 0x6
008d e226 | & | Load 0x1,0x26
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 e225 | % | Load 0x1,0x25
0095 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0096 4801 |H | Short_Literal 0x1
0097 e226 | & | Load 0x1,0x26
0098 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0099 029f 01fb | | Declare_Subprogram INIT_01f8,For_Call
009b 4803 |H | Short_Literal 0x3
009c 4800 |H | Short_Literal 0x0
009d e220 | | Load 0x1,0x20
009e 0307 | | Complete_Type Variant_Record,By_Defining
009f e221 | ! | Load 0x1,0x21
00a0 03c4 | | Complete_Type Access,By_Component_Completion
00a1 029d 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call
00a3 1d17 | | Execute_Immediate Reference_Lex_1,0x17
00a4 00c7 | | Action Elaborate_Subprogram
00a5 1d18 | | Execute_Immediate Reference_Lex_1,0x18
00a6 00c7 | | Action Elaborate_Subprogram
00a7 1d19 | | Execute_Immediate Reference_Lex_1,0x19
00a8 00c7 | | Action Elaborate_Subprogram
00a9 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00aa 00c7 | | Action Elaborate_Subprogram
00ab 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00ac 00c7 | | Action Elaborate_Subprogram
00ad 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00ae 00c7 | | Action Elaborate_Subprogram
00af e223 | # | Load 0x1,0x23
00b0 020f | | Execute Module,Activate
00b1 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00b2 a003 | | Store_Unchecked 0x0,0x3
00b3 a004 | | Store_Unchecked 0x0,0x4
00b4 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00b5 a005 | | Store_Unchecked 0x0,0x5
00b6 4805 |H | Short_Literal 0x5
00b7 e224 | $ | Load 0x1,0x24
00b8 020e | | Execute Module,Augment_Imports
00b9 00db | | Load_Top At_Offset_3
00ba 020f | | Execute Module,Activate
00bb 1d10 | | Execute_Immediate Reference_Lex_1,0x10
00bc a003 | | Store_Unchecked 0x0,0x3
00bd e223 | # | Load 0x1,0x23
00be 190f | | Execute Package,Field_Reference,Field_Number 0xf
00bf 1d0f | | Execute_Immediate Reference_Lex_1,0xf
00c0 e223 | # | Load 0x1,0x23
00c1 190e | | Execute Package,Field_Reference,Field_Number 0xe
00c2 4805 |H | Short_Literal 0x5
00c3 e225 | % | Load 0x1,0x25
00c4 020e | | Execute Module,Augment_Imports
00c5 00da | | Load_Top At_Offset_2
00c6 020f | | Execute Module,Activate
00c7 1d10 | | Execute_Immediate Reference_Lex_1,0x10
00c8 a003 | | Store_Unchecked 0x0,0x3
00c9 e223 | # | Load 0x1,0x23
00ca 190f | | Execute Package,Field_Reference,Field_Number 0xf
00cb 1d15 | | Execute_Immediate Reference_Lex_1,0x15
00cc 1d14 | | Execute_Immediate Reference_Lex_1,0x14
00cd 1d0f | | Execute_Immediate Reference_Lex_1,0xf
00ce e223 | # | Load 0x1,0x23
00cf 190e | | Execute Package,Field_Reference,Field_Number 0xe
00d0 4807 |H | Short_Literal 0x7
00d1 e226 | & | Load 0x1,0x26
00d2 020e | | Execute Module,Augment_Imports
00d3 00d9 | | Load_Top At_Offset_1
00d4 020f | | Execute Module,Activate
00d5 e211 | | Load 0x1,0x11
00d6 1d12 | | Execute_Immediate Reference_Lex_1,0x12
00d7 1d13 | | Execute_Immediate Reference_Lex_1,0x13
00d8 e225 | % | Load 0x1,0x25
00d9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00da e225 | % | Load 0x1,0x25
00db 190e | | Execute Package,Field_Reference,Field_Number 0xe
00dc e220 | | Load 0x1,0x20
00dd 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
00de e226 | & | Load 0x1,0x26
00df 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00e0 e226 | & | Load 0x1,0x26
00e1 190e | | Execute Package,Field_Reference,Field_Number 0xe
00e2 4809 |H | Short_Literal 0x9
00e3 e21d | | Load 0x1,0x1d
00e4 020e | | Execute Module,Augment_Imports
00e5 e21d | | Load 0x1,0x1d
00e6 020f | | Execute Module,Activate
00e7 BODY_0008:
00e7 00bc | | Action Signal_Activated
00e8 00bb | | Action Signal_Completion
00e9 0000 0000 | | .BLANK 0000[0x7]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f8 | | .CONST 0x00f8 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0002 | | .CONST 0x0002 ; Number of locals
00f3 INIT_00f0:
00f3 e224 | $ | Load 0x1,0x24
00f4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00f5 02ff | | Declare_Variable Variant_Record
00f6 00d8 | | Load_Top At_Offset_0
00f7 1c00 | | Execute_Immediate Run_Utility,0x0
00f8 BODY_00f0:
00f8 00db | | Load_Top At_Offset_3
00f9 e224 | $ | Load 0x1,0x24
00fa 180f | | Execute Package,Field_Execute,Field_Number 0xf
00fb 00d9 | | Load_Top At_Offset_1
00fc 016d | m | Execute Variant_Record,Structure_Write
00fd 4800 |H | Short_Literal 0x0
00fe e220 | | Load 0x1,0x20
00ff 1c08 | | Execute_Immediate Run_Utility,0x8
0100 00d9 | | Load_Top At_Offset_1
0101 00d9 | | Load_Top At_Offset_1
0102 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0103 8227 | ' | Call 0x1,0x27
0104 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0105 0000 0000 | | .XXX[0x3]
0107 0000 | |
0108 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
010c 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
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 e224 | $ | Load 0x1,0x24
0114 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0115 02ff | | Declare_Variable Variant_Record
0116 00d8 | | Load_Top At_Offset_0
0117 1c00 | | Execute_Immediate Run_Utility,0x0
0118 BODY_0110:
0118 00db | | Load_Top At_Offset_3
0119 e221 | ! | Load 0x1,0x21
011a 022f | / | Execute Access,Equal
011b 6802 |h | Jump_Zero 0x11e
011c e5fe | | Load 0x2,-0x2
011d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
011e e5fe | | Load 0x2,-0x2
011f e221 | ! | Load 0x1,0x21
0120 022f | / | Execute Access,Equal
0121 6802 |h | Jump_Zero 0x124
0122 00db | | Load_Top At_Offset_3
0123 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0124 e5fe | | Load 0x2,-0x2
0125 e5ff | | Load 0x2,-0x1
0126 e224 | $ | Load 0x1,0x24
0127 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0128 00d9 | | Load_Top At_Offset_1
0129 016d | m | Execute Variant_Record,Structure_Write
012a 4800 |H | Short_Literal 0x0
012b e220 | | Load 0x1,0x20
012c 1c08 | | Execute_Immediate Run_Utility,0x8
012d 00d9 | | Load_Top At_Offset_1
012e 00d9 | | Load_Top At_Offset_1
012f 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0130 8227 | ' | Call 0x1,0x27
0131 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0132 0000 0000 | | .BLANK 0000[0x6]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 0140 | @ | .CONST 0x0140 ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0002 | | .CONST 0x0002 ; Number of locals
013b INIT_0138:
013b e225 | % | Load 0x1,0x25
013c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
013d 02ff | | Declare_Variable Variant_Record
013e 00d8 | | Load_Top At_Offset_0
013f 1c00 | | Execute_Immediate Run_Utility,0x0
0140 BODY_0138:
0140 e5fe | | Load 0x2,-0x2
0141 00d8 | | Load_Top At_Offset_0
0142 e20e | | Load 0x1,0xe
0143 0260 | ` | Execute Discrete,In_Type
0144 7001 |p | Jump_Nonzero 0x146
0145 0801 | | Execute_Immediate Raise,0x1
0146 e225 | % | Load 0x1,0x25
0147 180f | | Execute Package,Field_Execute,Field_Number 0xf
0148 00d9 | | Load_Top At_Offset_1
0149 016d | m | Execute Variant_Record,Structure_Write
014a 4801 |H | Short_Literal 0x1
014b e220 | | Load 0x1,0x20
014c 1c08 | | Execute_Immediate Run_Utility,0x8
014d 00d9 | | Load_Top At_Offset_1
014e 00d9 | | Load_Top At_Offset_1
014f 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0150 8227 | ' | Call 0x1,0x27
0151 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0152 0000 0000 | | .BLANK 0000[0x6]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 0160 | ` | .CONST 0x0160 ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0002 | | .CONST 0x0002 ; Number of locals
015b INIT_0158:
015b e226 | & | Load 0x1,0x26
015c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
015d 02ff | | Declare_Variable Variant_Record
015e 00d8 | | Load_Top At_Offset_0
015f 1c00 | | Execute_Immediate Run_Utility,0x0
0160 BODY_0158:
0160 e5fd | | Load 0x2,-0x3
0161 e211 | | Load 0x1,0x11
0162 0119 | | Execute Any,Check_In_Formal_Type
0163 e5fe | | Load 0x2,-0x2
0164 00d8 | | Load_Top At_Offset_0
0165 e20e | | Load 0x1,0xe
0166 0260 | ` | Execute Discrete,In_Type
0167 7001 |p | Jump_Nonzero 0x169
0168 0801 | | Execute_Immediate Raise,0x1
0169 e226 | & | Load 0x1,0x26
016a 180f | | Execute Package,Field_Execute,Field_Number 0xf
016b 00d9 | | Load_Top At_Offset_1
016c 016d | m | Execute Variant_Record,Structure_Write
016d 4802 |H | Short_Literal 0x2
016e e220 | | Load 0x1,0x20
016f 1c08 | | Execute_Immediate Run_Utility,0x8
0170 00d9 | | Load_Top At_Offset_1
0171 00d9 | | Load_Top At_Offset_1
0172 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0173 8227 | ' | Call 0x1,0x27
0174 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
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 00db | | Load_Top At_Offset_3
017c e221 | ! | Load 0x1,0x21
017d 022f | / | Execute Access,Equal
017e 6802 |h | Jump_Zero 0x181
017f 4800 |H | Short_Literal 0x0
0180 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0181 00db | | Load_Top At_Offset_3
0182 0227 | ' | Execute Access,All_Reference
0183 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0184 4603 |F | Jump_Case 0x4
0185 7805 |x | Jump 0x18b ; case 0x0
0186 780b |x | Jump 0x192 ; case 0x1
0187 7811 |x | Jump 0x199 ; case 0x2
0188 7800 |x | Jump 0x189 ; case 0x3
0189 e21e | | Load 0x1,0x1e
018a 0257 | W | Execute Discrete,Raise
018b 00db | | Load_Top At_Offset_3
018c 0227 | ' | Execute Access,All_Reference
018d 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
018e 00db | | Load_Top At_Offset_3
018f e224 | $ | Load 0x1,0x24
0190 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0191 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0192 00db | | Load_Top At_Offset_3
0193 0227 | ' | Execute Access,All_Reference
0194 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0195 00db | | Load_Top At_Offset_3
0196 e225 | % | Load 0x1,0x25
0197 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0198 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0199 00db | | Load_Top At_Offset_3
019a 0227 | ' | Execute Access,All_Reference
019b 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
019c 00db | | Load_Top At_Offset_3
019d e226 | & | Load 0x1,0x26
019e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
019f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3 | | .CONST 0x01a3 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0001 | | .CONST 0x0001 ; Number of locals
01a3 BODY_01a0:
01a3 INIT_01a0:
01a3 00da | | Load_Top At_Offset_2
01a4 e221 | ! | Load 0x1,0x21
01a5 022e | . | Execute Access,Not_Equal
01a6 6821 |h! | Jump_Zero 0x1c8
01a7 00da | | Load_Top At_Offset_2
01a8 0227 | ' | Execute Access,All_Reference
01a9 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01aa 4603 |F | Jump_Case 0x4
01ab 7808 |x | Jump 0x1b4 ; case 0x0
01ac 780e |x | Jump 0x1bb ; case 0x1
01ad 7814 |x | Jump 0x1c2 ; case 0x2
01ae 7800 |x | Jump 0x1af ; case 0x3
01af 00db | | Load_Top At_Offset_3
01b0 0092 02ab | | Action Push_String_Extended,0x2ab ; "Undefined predicate"
01b2 8003 | | Call 0x0,0x3
01b3 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01b4 00db | | Load_Top At_Offset_3
01b5 00db | | Load_Top At_Offset_3
01b6 0227 | ' | Execute Access,All_Reference
01b7 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
01b8 e224 | $ | Load 0x1,0x24
01b9 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01ba 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01bb 00db | | Load_Top At_Offset_3
01bc 00db | | Load_Top At_Offset_3
01bd 0227 | ' | Execute Access,All_Reference
01be 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
01bf e225 | % | Load 0x1,0x25
01c0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01c1 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01c2 00db | | Load_Top At_Offset_3
01c3 00db | | Load_Top At_Offset_3
01c4 0227 | ' | Execute Access,All_Reference
01c5 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
01c6 e226 | & | Load 0x1,0x26
01c7 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01c8 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01c9 0000 0000 | | .BLANK 0000[0x7]
01d0 ; --------------------------------------------------------------------------------------
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 INIT_01d0:
01d3 4607 |F | Jump_Case 0x8
01d4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
01d5 7807 |x | Jump 0x1dd ; case 0x1
01d6 780a |x | Jump 0x1e1 ; case 0x2
01d7 780e |x | Jump 0x1e6 ; case 0x3
01d8 7811 |x | Jump 0x1ea ; case 0x4
01d9 7812 |x | Jump 0x1ec ; case 0x5
01da 7813 |x | Jump 0x1ee ; case 0x6
01db 7816 |x | Jump 0x1f2 ; case 0x7
01dc 4302 |C | .XXX[0x1]
01dd 00da | | Load_Top At_Offset_2
01de 0091 02a5 | | Action Push_String_Extended_Indexed,0x2a5 ; "PRIMARY"
01e0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01e1 00db | | Load_Top At_Offset_3
01e2 00db | | Load_Top At_Offset_3
01e3 00e0 | | Load_Encached Standard_Cache
01e4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01e5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01e6 00da | | Load_Top At_Offset_2
01e7 00e0 | | Load_Encached Standard_Cache
01e8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01e9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01ea 00db | | Load_Top At_Offset_3
01eb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01ec 00db | | Load_Top At_Offset_3
01ed 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01ee e21f | | Load 0x1,0x1f
01ef 00dc | | Load_Top At_Offset_4
01f0 0267 | g | Execute Discrete,Predecessor
01f1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01f2 e21f | | Load 0x1,0x1f
01f3 00dc | | Load_Top At_Offset_4
01f4 0268 | h | Execute Discrete,Successor
01f5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01f6 0000 0000 | | .XXX[0x2]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb | | .CONST 0x01fb ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0001 | | .CONST 0x0001 ; Number of locals
01fb BODY_01f8:
01fb BODY_01f8:
01fb INIT_01f8:
01fb INIT_01f8:
01fb 4609 |F | Jump_Case 0xa
01fc 7809 |x | Jump 0x206 ; case 0x0
01fd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
01fe 781b |x | Jump 0x21a ; case 0x2
01ff 781e |x | Jump 0x21e ; case 0x3
0200 7823 |x# | Jump 0x224 ; case 0x4
0201 782d |x- | Jump 0x22f ; case 0x5
0202 7837 |x7 | Jump 0x23a ; case 0x6
0203 7844 |xD | Jump 0x248 ; case 0x7
0204 7854 |xT | Jump 0x259 ; case 0x8
0205 785a |xZ | Jump 0x260 ; case 0x9
0206 00da | | Load_Top At_Offset_2
0207 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0208 4603 |F | Jump_Case 0x4
0209 7804 |x | Jump 0x20e ; case 0x0
020a 7807 |x | Jump 0x212 ; case 0x1
020b 780a |x | Jump 0x216 ; case 0x2
020c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
020d 4302 |C | .XXX[0x1]
020e 00da | | Load_Top At_Offset_2
020f 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0210 1c00 | | Execute_Immediate Run_Utility,0x0
0211 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0212 00da | | Load_Top At_Offset_2
0213 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0214 1c00 | | Execute_Immediate Run_Utility,0x0
0215 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0216 00da | | Load_Top At_Offset_2
0217 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
0218 1c00 | | Execute_Immediate Run_Utility,0x0
0219 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
021a 4801 |H | Short_Literal 0x1
021b 4804 |H | Short_Literal 0x4
021c 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
021d 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
021e e5fd | | Load 0x2,-0x3
021f 00db | | Load_Top At_Offset_3
0220 1c07 | | Execute_Immediate Run_Utility,0x7
0221 e5fe | | Load 0x2,-0x2
0222 0306 | | Complete_Type Variant_Record,By_Renaming
0223 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
0224 4801 |H | Short_Literal 0x1
0225 4804 |H | Short_Literal 0x4
0226 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
0227 e5fe | | Load 0x2,-0x2
0228 00d8 | | Load_Top At_Offset_0
0229 e5ff | | Load 0x2,-0x1
022a 1c06 | | Execute_Immediate Run_Utility,0x6
022b e5ff | | Load 0x2,-0x1
022c 00db | | Load_Top At_Offset_3
022d 0305 | | Complete_Type Variant_Record,By_Constraining_Incomplete
022e 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
022f 4801 |H | Short_Literal 0x1
0230 00db | | Load_Top At_Offset_3
0231 0169 | i | Execute Variant_Record,Read_Discriminant_Constraint
0232 4603 |F | Jump_Case 0x4
0233 7803 |x | Jump 0x237 ; case 0x0
0234 7802 |x | Jump 0x237 ; case 0x1
0235 7801 |x | Jump 0x237 ; case 0x2
0236 7800 |x | Jump 0x237 ; case 0x3
0237 e5ff | | Load 0x2,-0x1
0238 0304 | | Complete_Type Variant_Record,By_Completing_Constraint
0239 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
023a 00db | | Load_Top At_Offset_3
023b 4603 |F | Jump_Case 0x4
023c 7805 |x | Jump 0x242 ; case 0x0
023d 7806 |x | Jump 0x244 ; case 0x1
023e 7807 |x | Jump 0x246 ; case 0x2
023f 7800 |x | Jump 0x240 ; case 0x3
0240 48ff |H | Short_Literal 0xff
0241 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0242 4801 |H | Short_Literal 0x1
0243 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0244 4802 |H | Short_Literal 0x2
0245 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0246 4803 |H | Short_Literal 0x3
0247 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0248 00db | | Load_Top At_Offset_3
0249 e5fe | | Load 0x2,-0x2
024a 4603 |F | Jump_Case 0x4
024b 7805 |x | Jump 0x251 ; case 0x0
024c 7806 |x | Jump 0x253 ; case 0x1
024d 7807 |x | Jump 0x255 ; case 0x2
024e 7800 |x | Jump 0x24f ; case 0x3
024f 48ff |H | Short_Literal 0xff
0250 7805 |x | Jump 0x256
0251 4801 |H | Short_Literal 0x1
0252 7803 |x | Jump 0x256
0253 4802 |H | Short_Literal 0x2
0254 7801 |x | Jump 0x256
0255 4803 |H | Short_Literal 0x3
0256 e5ff | | Load 0x2,-0x1
0257 031b | | Declare_Type Variant_Record,Constrained
0258 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0259 00db | | Load_Top At_Offset_3
025a e5fe | | Load 0x2,-0x2
025b e5ff | | Load 0x2,-0x1
025c 1c06 | | Execute_Immediate Run_Utility,0x6
025d e5ff | | Load 0x2,-0x1
025e 02fc | | Declare_Variable Variant_Record,With_Constraint
025f 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0260 0869 | i | Execute_Immediate Raise,0x69
0261 0000 0000 | | .BLANK 0000[0x7]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b | k | .CONST 0x026b ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0001 | | .CONST 0x0001 ; Number of locals
026b BODY_0268:
026b INIT_0268:
026b 4607 |F | Jump_Case 0x8
026c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
026d 7807 |x | Jump 0x275 ; case 0x1
026e 780a |x | Jump 0x279 ; case 0x2
026f 780e |x | Jump 0x27e ; case 0x3
0270 7811 |x | Jump 0x282 ; case 0x4
0271 7812 |x | Jump 0x284 ; case 0x5
0272 7813 |x | Jump 0x286 ; case 0x6
0273 7816 |x | Jump 0x28a ; case 0x7
0274 4302 |C | .XXX[0x1]
0275 00da | | Load_Top At_Offset_2
0276 0091 02a9 | | Action Push_String_Extended_Indexed,0x2a9 ; "SYSTEM"
0278 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0279 00db | | Load_Top At_Offset_3
027a 00db | | Load_Top At_Offset_3
027b 00e0 | | Load_Encached Standard_Cache
027c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
027d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
027e 00da | | Load_Top At_Offset_2
027f 00e0 | | Load_Encached Standard_Cache
0280 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0281 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0282 00db | | Load_Top At_Offset_3
0283 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0284 00db | | Load_Top At_Offset_3
0285 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0286 e222 | " | Load 0x1,0x22
0287 00dc | | Load_Top At_Offset_4
0288 0267 | g | Execute Discrete,Predecessor
0289 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
028a e222 | " | Load 0x1,0x22
028b 00dc | | Load_Top At_Offset_4
028c 0268 | h | Execute Discrete,Successor
028d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
028e 0000 0000 | | .XXX[0x2]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0295 | | .CONST 0x0295 ; Address of begin
0291 0004 | | .CONST 0x0004 ; Address of exception handler
0292 0002 | | .CONST 0x0002 ; Number of locals
0293 INIT_0290:
0293 e221 | ! | Load 0x1,0x21
0294 0007 | | Action Break_Optional
0295 BODY_0290:
0295 00db | | Load_Top At_Offset_3
0296 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0297 00d8 | | Load_Top At_Offset_0
0298 e220 | | Load 0x1,0x20
0299 1c06 | | Execute_Immediate Run_Utility,0x6
029a e221 | ! | Load 0x1,0x21
029b 03ba | | Declare_Variable Access,By_Allocation,With_Constraint
029c 00d8 | | Load_Top At_Offset_0
029d 0227 | ' | Execute Access,All_Reference
029e 1c00 | | Execute_Immediate Run_Utility,0x0
029f 0039 | 9 | Store_Top Access,At_Offset_1
02a0 00db | | Load_Top At_Offset_3
02a1 00d9 | | Load_Top At_Offset_1
02a2 0228 | ( | Execute Access,All_Write
02a3 00d8 | | Load_Top At_Offset_0
02a4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02a5 ; --------------------------------------------------------------------------------------
02a5 ; STRING TABLE
02a5 ; --------------------------------------------------------------------------------------
02a5 0010 | | .STRTAB 0x0010->0x02ad ; "PRIMARY"
02a6 0015 | | .STRTAB 0x0015->0x02b0 ; "UNARY"
02a7 0018 | | .STRTAB 0x0018->0x02b3 ; "BINARY"
02a8 001c | | .STRTAB 0x001c->0x02b6 ; "UNDEFINED"
02a9 0023 | # | .STRTAB 0x0023->0x02ba ; "SYSTEM"
02aa 0027 | ' | .STRTAB 0x0027->0x02bd ; "USER"
02ab 0029 | ) | .STRTAB 0x0029->0x02bf ; "Undefined predicate"
02ac 003a | : | .STREND 0x003a->0x02c9
02ad 5052 494d |PRIM| .STRTAB_STRINGS
02c9 0000 0000 | | .BLANK 0000[0x7]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; Debug Table
02d0 ; --------------------------------------------------------------------------------------
02d0 0004 0004 | | .DEBUG4 0x0004,0x0004,0x902c,0x0000,0x0001,0x000c
02d6 000b 0306 | | .DBG4T 0x000b,0x0306,0xc000,0x0000
02da 0048 0316 | H | .DBG4T 0x0048,0x0316,0xc000,0x0000
02de 00f3 032a | *| .DBG4T 0x00f3,0x032a,0x1002,0x0000
02e2 0113 032f | /| .DBG4T 0x0113,0x032f,0x1002,0x0000
02e6 013b 0338 | ; 8| .DBG4T 0x013b,0x0338,0x3802,0x0002
02ea 015b 033d | [ =| .DBG4T 0x015b,0x033d,0x3802,0x0002
02ee 017b 0342 | { B| .DBG4T 0x017b,0x0342,0x1002,0x4000
02f2 01a3 0352 | R| .DBG4T 0x01a3,0x0352,0x1001,0x4000
02f6 01d3 0000 | | .DBG4T 0x01d3,0x0000,0x1005,0x0000
02fa 01fb 0000 | | .DBG4T 0x01fb,0x0000,0x1005,0x0000
02fe 026b 0000 | k | .DBG4T 0x026b,0x0000,0x1005,0x0000
0302 0293 0360 | `| .DBG4T 0x0293,0x0360,0x1002,0x0000
0306 ; --------------------------------------------------------------------------------------
0306 ; Debug chain
0306 ; --------------------------------------------------------------------------------------
0306 000e 0000 | | .DBGLEN 0x000e,0x0000
0308 000b 000c | | .DBGLNO 0x000b,0x000c,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x0027,0x0030,0x0035,0x0040,0x0044
0316 ; --------------------------------------------------------------------------------------
0316 ; Debug chain
0316 ; --------------------------------------------------------------------------------------
0316 0012 0000 | | .DBGLEN 0x0012,0x0000
0318 0048 004d | H M| .DBGLNO 0x0048,0x004d,0x005b,0x006b,0x007d,0x0090,0x00a1,0x00a3,0x00a5,0x00a7,0x00a9,0x00ab,0x00ad,0x00af,0x00b1,0x00bb,0x00c7,0x00d5
032a ; --------------------------------------------------------------------------------------
032a ; Debug chain
032a ; --------------------------------------------------------------------------------------
032a 0001 0002 | | .DBGLEN 0x0001,0x0002
032c 00f3 00f8 | | .DBGLNO 0x00f3,0x00f8,0x00fd
032f ; --------------------------------------------------------------------------------------
032f ; Debug chain
032f ; --------------------------------------------------------------------------------------
032f 0001 0006 | | .DBGLEN 0x0001,0x0006
0331 0113 0118 | | .DBGLNO 0x0113,0x0118,0x011c,0x011e,0x0122,0x0124,0x012a
0338 ; --------------------------------------------------------------------------------------
0338 ; Debug chain
0338 ; --------------------------------------------------------------------------------------
0338 0001 0002 | | .DBGLEN 0x0001,0x0002
033a 013b 0140 | ; @| .DBGLNO 0x013b,0x0140,0x014a
033d ; --------------------------------------------------------------------------------------
033d ; Debug chain
033d ; --------------------------------------------------------------------------------------
033d 0001 0002 | | .DBGLEN 0x0001,0x0002
033f 015b 0160 | [ `| .DBGLNO 0x015b,0x0160,0x016d
0342 ; --------------------------------------------------------------------------------------
0342 ; Debug chain
0342 ; --------------------------------------------------------------------------------------
0342 0000 0007 | | .DBGLEN 0x0000,0x0007
0344 017b 017f | { | .DBGLNO 0x017b,0x017f,0x0181,0x0189,0x018b,0x0192,0x0199
034b 0001 0002 | | .XXX[0x7]
034d 0003 0007 | |
034f 0004 0005 | |
0351 0006 | |
0352 ; --------------------------------------------------------------------------------------
0352 ; Debug chain
0352 ; --------------------------------------------------------------------------------------
0352 0000 0006 | | .DBGLEN 0x0000,0x0006
0354 01a3 01a7 | | .DBGLNO 0x01a3,0x01a7,0x01af,0x01b4,0x01bb,0x01c2
035a 0001 0002 | | .XXX[0x6]
035c 0006 0003 | |
035e 0004 0005 | |
0360 ; --------------------------------------------------------------------------------------
0360 ; Debug chain
0360 ; --------------------------------------------------------------------------------------
0360 0001 0003 | | .DBGLEN 0x0001,0x0003
0362 0293 0295 | | .DBGLNO 0x0293,0x0295,0x02a0,0x02a3
0366 0000 0000 | | .BLANK 0000[0x9a]