|
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: 4096 (0x1000)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6a18da
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 07a8 | | .CONST 0x07a8 ; 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 8004 | | .CONST 0x8004 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0033 | 3 | .CONST 0x0033 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0014 | | .CONST 0x0014 ; Number of locals
000b INIT_0008:
000b 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated
000d 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated
000f 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated
0011 029a 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call,Visible,Unelaborated
0013 029a 0393 | | Declare_Subprogram INIT_0390,For_Outer_Call,Visible,Unelaborated
0015 00bf | | Action Accept_Activation
0016 00e3 | | Load_Encached Natural_Cache
0017 0266 | f | Execute Discrete,Bounds
0018 4820 |H | Short_Literal 0x20
0019 e001 | | Load 0x0,0x1
001a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
001b 1c07 | | Execute_Immediate Run_Utility,0x7
001c 029f 03fb | | Declare_Subprogram INIT_03f8,For_Call
001e 4801 |H | Short_Literal 0x1
001f 0350 | P | Declare_Type Array,Defined,Bounds_With_Object
0020 4801 |H | Short_Literal 0x1
0021 4840 |H@ | Short_Literal 0x40
0022 00da | | Load_Top At_Offset_2
0023 035b | [ | Declare_Type Array,Constrained
0024 0337 | 7 | Declare_Variable Array
0025 00d8 | | Load_Top At_Offset_0
0026 1c00 | | Execute_Immediate Run_Utility,0x0
0027 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0028 00c7 | | Action Elaborate_Subprogram
0029 1d0e | | Execute_Immediate Reference_Lex_1,0xe
002a 00c7 | | Action Elaborate_Subprogram
002b 1d0f | | Execute_Immediate Reference_Lex_1,0xf
002c 00c7 | | Action Elaborate_Subprogram
002d 1d10 | | Execute_Immediate Reference_Lex_1,0x10
002e 00c7 | | Action Elaborate_Subprogram
002f 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0030 00c7 | | Action Elaborate_Subprogram
0031 029d 042b | +| Declare_Subprogram INIT_0428,For_Outer_Call
0033 BODY_0008:
0033 00bc | | Action Signal_Activated
0034 00bb | | Action Signal_Completion
0035 0000 0000 | | .XXX[0x3]
0037 0000 | |
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 0074 | t | .CONST 0x0074 ; Address of begin
0039 0004 | | .CONST 0x0004 ; Address of exception handler
003a 000e | | .CONST 0x000e ; Number of locals
003b INIT_0038:
003b 0092 060e | | Action Push_String_Extended,0x60e ; "Build_Predefined_World"
003d e002 | | Load 0x0,0x2
003e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
003f 02c7 | | Declare_Variable Any
0040 00d8 | | Load_Top At_Offset_0
0041 1c00 | | Execute_Immediate Run_Utility,0x0
0042 e002 | | Load 0x0,0x2
0043 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
0044 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0045 02c7 | | Declare_Variable Any
0046 00d8 | | Load_Top At_Offset_0
0047 1c00 | | Execute_Immediate Run_Utility,0x0
0048 e002 | | Load 0x0,0x2
0049 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
004a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
004b 02c7 | | Declare_Variable Any
004c 00d8 | | Load_Top At_Offset_0
004d 1c00 | | Execute_Immediate Run_Utility,0x0
004e e002 | | Load 0x0,0x2
004f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0050 e002 | | Load 0x0,0x2
0051 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0052 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0053 e003 | | Load 0x0,0x3
0054 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0055 02c7 | | Declare_Variable Any
0056 e003 | | Load 0x0,0x3
0057 180e | | Execute Package,Field_Execute,Field_Number 0xe
0058 a408 | | Store_Unchecked 0x2,0x8
0059 e002 | | Load 0x0,0x2
005a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
005b 02c7 | | Declare_Variable Any
005c 00d8 | | Load_Top At_Offset_0
005d 1c00 | | Execute_Immediate Run_Utility,0x0
005e e002 | | Load 0x0,0x2
005f 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0060 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0061 02c7 | | Declare_Variable Any
0062 00d8 | | Load_Top At_Offset_0
0063 1c00 | | Execute_Immediate Run_Utility,0x0
0064 00f1 | | Load_Encached Diana_Temp_Seq
0065 02c7 | | Declare_Variable Any
0066 00d8 | | Load_Top At_Offset_0
0067 1c00 | | Execute_Immediate Run_Utility,0x0
0068 e002 | | Load 0x0,0x2
0069 1b14 | | Execute Package,Field_Read,Field_Number 0x14
006a 02ff | | Declare_Variable Variant_Record
006b 00d8 | | Load_Top At_Offset_0
006c 1c00 | | Execute_Immediate Run_Utility,0x0
006d e004 | | Load 0x0,0x4
006e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
006f 02c7 | | Declare_Variable Any
0070 00d8 | | Load_Top At_Offset_0
0071 1c00 | | Execute_Immediate Run_Utility,0x0
0072 029f 048b | | Declare_Subprogram INIT_0488,For_Call
0074 BODY_0038:
0074 e002 | | Load 0x0,0x2
0075 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0076 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0077 e403 | | Load 0x2,0x3
0078 0120 | | Execute Any,Is_Value
0079 6803 |h | Jump_Zero 0x7d
007a e002 | | Load 0x0,0x2
007b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
007c 7801 |x | Jump 0x7e
007d e403 | | Load 0x2,0x3
007e 6195 |a | Indirect_Literal Discrete,0x214,{0x00000000, 0x00004000}
007f e005 | | Load 0x0,0x5
0080 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0081 e006 | | Load 0x0,0x6
0082 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0083 e002 | | Load 0x0,0x2
0084 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0085 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0086 0092 060f | | Action Push_String_Extended,0x60f ; "!targets."
0088 e5ff | | Load 0x2,-0x1
0089 01cc | | Execute Vector,Catenate
008a e002 | | Load 0x0,0x2
008b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
008c 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
008d c403 | | Store 0x2,0x3
008e c407 | | Store 0x2,0x7
008f e407 | | Load 0x2,0x7
0090 702d |p- | Jump_Nonzero 0xbe
0091 e003 | | Load 0x0,0x3
0092 180e | | Execute Package,Field_Execute,Field_Number 0xe
0093 4801 |H | Short_Literal 0x1
0094 4801 |H | Short_Literal 0x1
0095 e007 | | Load 0x0,0x7
0096 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0097 0334 | 4 | Declare_Variable Array,With_Constraint
0098 0092 0610 | | Action Push_String_Extended,0x610 ; "!Targets."
009a e5ff | | Load 0x2,-0x1
009b e008 | | Load 0x0,0x8
009c 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
009d 01cc | | Execute Vector,Catenate
009e e007 | | Load 0x0,0x7
009f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00a0 e007 | | Load 0x0,0x7
00a1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00a2 0119 | | Execute Any,Check_In_Formal_Type
00a3 4801 |H | Short_Literal 0x1
00a4 00da | | Load_Top At_Offset_2
00a5 01d6 | | Execute Vector,Field_Write
00a6 6169 |ai | Indirect_Literal Discrete,0x210,{0x00000000, 0x00008898}
00a7 e009 | | Load 0x0,0x9
00a8 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
00a9 e003 | | Load 0x0,0x3
00aa 180e | | Execute Package,Field_Execute,Field_Number 0xe
00ab 4801 |H | Short_Literal 0x1
00ac 4801 |H | Short_Literal 0x1
00ad e007 | | Load 0x0,0x7
00ae 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00af 0334 | 4 | Declare_Variable Array,With_Constraint
00b0 0092 0611 | | Action Push_String_Extended,0x611 ; "Create_Predefined_Library completed"
00b2 e007 | | Load 0x0,0x7
00b3 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00b4 e007 | | Load 0x0,0x7
00b5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00b6 0119 | | Execute Any,Check_In_Formal_Type
00b7 4801 |H | Short_Literal 0x1
00b8 00da | | Load_Top At_Offset_2
00b9 01d6 | | Execute Vector,Field_Write
00ba 6151 |aQ | Indirect_Literal Discrete,0x20c,{0x00000000, 0x00008821}
00bb e009 | | Load 0x0,0x9
00bc 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
00bd 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00be e002 | | Load 0x0,0x2
00bf 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00c0 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00c1 e403 | | Load 0x2,0x3
00c2 0120 | | Execute Any,Is_Value
00c3 6803 |h | Jump_Zero 0xc7
00c4 e002 | | Load 0x0,0x2
00c5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00c6 7801 |x | Jump 0xc8
00c7 e403 | | Load 0x2,0x3
00c8 614b |aK | Indirect_Literal Discrete,0x214,{0x00000000, 0x00004000}
00c9 e005 | | Load 0x0,0x5
00ca 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00cb e006 | | Load 0x0,0x6
00cc 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00cd e002 | | Load 0x0,0x2
00ce 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00cf 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00d0 0092 0612 | | Action Push_String_Extended,0x612 ; "!targets"
00d2 e002 | | Load 0x0,0x2
00d3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00d4 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
00d5 c403 | | Store 0x2,0x3
00d6 c407 | | Store 0x2,0x7
00d7 e407 | | Load 0x2,0x7
00d8 6838 |h8 | Jump_Zero 0x111
00d9 e003 | | Load 0x0,0x3
00da 180e | | Execute Package,Field_Execute,Field_Number 0xe
00db 4801 |H | Short_Literal 0x1
00dc 4802 |H | Short_Literal 0x2
00dd e007 | | Load 0x0,0x7
00de 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00df 0334 | 4 | Declare_Variable Array,With_Constraint
00e0 0092 0613 | | Action Push_String_Extended,0x613 ; "!Targets"
00e2 e007 | | Load 0x0,0x7
00e3 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00e4 e007 | | Load 0x0,0x7
00e5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00e6 0119 | | Execute Any,Check_In_Formal_Type
00e7 4801 |H | Short_Literal 0x1
00e8 00da | | Load_Top At_Offset_2
00e9 01d6 | | Execute Vector,Field_Write
00ea e407 | | Load 0x2,0x7
00eb e002 | | Load 0x0,0x2
00ec 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00ed 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00ee 011c | | Execute Any,Convert_Unchecked
00ef 1c01 | | Execute_Immediate Run_Utility,0x1
00f0 e007 | | Load 0x0,0x7
00f1 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00f2 e007 | | Load 0x0,0x7
00f3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00f4 0119 | | Execute Any,Check_In_Formal_Type
00f5 4802 |H | Short_Literal 0x2
00f6 00da | | Load_Top At_Offset_2
00f7 01d6 | | Execute Vector,Field_Write
00f8 610f |a | Indirect_Literal Discrete,0x208,{0x00000000, 0x00008814}
00f9 e009 | | Load 0x0,0x9
00fa 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
00fb e003 | | Load 0x0,0x3
00fc 180e | | Execute Package,Field_Execute,Field_Number 0xe
00fd 4801 |H | Short_Literal 0x1
00fe 4801 |H | Short_Literal 0x1
00ff e007 | | Load 0x0,0x7
0100 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0101 0334 | 4 | Declare_Variable Array,With_Constraint
0102 0092 0614 | | Action Push_String_Extended,0x614 ; "Create_Predefined_Library failed"
0104 e007 | | Load 0x0,0x7
0105 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0106 e007 | | Load 0x0,0x7
0107 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0108 0119 | | Execute Any,Check_In_Formal_Type
0109 4801 |H | Short_Literal 0x1
010a 00da | | Load_Top At_Offset_2
010b 01d6 | | Execute Vector,Field_Write
010c 4805 |H | Short_Literal 0x5
010d 60fe |` | Indirect_Literal Discrete,0x20c,{0x00000000, 0x00008821}
010e e009 | | Load 0x0,0x9
010f 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0110 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0111 e403 | | Load 0x2,0x3
0112 e002 | | Load 0x0,0x2
0113 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0114 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0115 c404 | | Store 0x2,0x4
0116 e002 | | Load 0x0,0x2
0117 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0118 e405 | | Load 0x2,0x5
0119 0120 | | Execute Any,Is_Value
011a 6804 |h | Jump_Zero 0x11f
011b e002 | | Load 0x0,0x2
011c 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
011d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
011e 7801 |x | Jump 0x120
011f e405 | | Load 0x2,0x5
0120 60f3 |` | Indirect_Literal Discrete,0x214,{0x00000000, 0x00004000}
0121 e005 | | Load 0x0,0x5
0122 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0123 e002 | | Load 0x0,0x2
0124 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0125 4802 |H | Short_Literal 0x2
0126 60dd |` | Indirect_Literal Discrete,0x204,{0x00000000, 0x7fffffff}
0127 60dc |` | Indirect_Literal Discrete,0x204,{0x00000000, 0x7fffffff}
0128 e002 | | Load 0x0,0x2
0129 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
012a 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
012b e00a | | Load 0x0,0xa
012c 1817 | | Execute Package,Field_Execute,Field_Number 0x17
012d e404 | | Load 0x2,0x4
012e 4800 |H | Short_Literal 0x0
012f e5ff | | Load 0x2,-0x1
0130 e002 | | Load 0x0,0x2
0131 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
0132 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0133 c405 | | Store 0x2,0x5
0134 c406 | | Store 0x2,0x6
0135 e406 | | Load 0x2,0x6
0136 6839 |h9 | Jump_Zero 0x170
0137 e003 | | Load 0x0,0x3
0138 180e | | Execute Package,Field_Execute,Field_Number 0xe
0139 4801 |H | Short_Literal 0x1
013a 4802 |H | Short_Literal 0x2
013b e007 | | Load 0x0,0x7
013c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
013d 0334 | 4 | Declare_Variable Array,With_Constraint
013e 0092 0610 | | Action Push_String_Extended,0x610 ; "!Targets."
0140 e5ff | | Load 0x2,-0x1
0141 01cc | | Execute Vector,Catenate
0142 e007 | | Load 0x0,0x7
0143 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0144 e007 | | Load 0x0,0x7
0145 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0146 0119 | | Execute Any,Check_In_Formal_Type
0147 4801 |H | Short_Literal 0x1
0148 00da | | Load_Top At_Offset_2
0149 01d6 | | Execute Vector,Field_Write
014a e406 | | Load 0x2,0x6
014b e002 | | Load 0x0,0x2
014c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
014d 011c | | Execute Any,Convert_Unchecked
014e 1c01 | | Execute_Immediate Run_Utility,0x1
014f e007 | | Load 0x0,0x7
0150 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0151 e007 | | Load 0x0,0x7
0152 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0153 0119 | | Execute Any,Check_In_Formal_Type
0154 4802 |H | Short_Literal 0x2
0155 00da | | Load_Top At_Offset_2
0156 01d6 | | Execute Vector,Field_Write
0157 60a8 |` | Indirect_Literal Discrete,0x200,{0x00000000, 0x00008894}
0158 e009 | | Load 0x0,0x9
0159 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
015a e003 | | Load 0x0,0x3
015b 180e | | Execute Package,Field_Execute,Field_Number 0xe
015c 4801 |H | Short_Literal 0x1
015d 4801 |H | Short_Literal 0x1
015e e007 | | Load 0x0,0x7
015f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0160 0334 | 4 | Declare_Variable Array,With_Constraint
0161 0092 0614 | | Action Push_String_Extended,0x614 ; "Create_Predefined_Library failed"
0163 e007 | | Load 0x0,0x7
0164 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0165 e007 | | Load 0x0,0x7
0166 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0167 0119 | | Execute Any,Check_In_Formal_Type
0168 4801 |H | Short_Literal 0x1
0169 00da | | Load_Top At_Offset_2
016a 01d6 | | Execute Vector,Field_Write
016b 4805 |H | Short_Literal 0x5
016c 609f |` | Indirect_Literal Discrete,0x20c,{0x00000000, 0x00008821}
016d e009 | | Load 0x0,0x9
016e 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
016f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0170 e405 | | Load 0x2,0x5
0171 e002 | | Load 0x0,0x2
0172 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0173 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0174 c409 | | Store 0x2,0x9
0175 e002 | | Load 0x0,0x2
0176 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0177 e40b | | Load 0x2,0xb
0178 0120 | | Execute Any,Is_Value
0179 6802 |h | Jump_Zero 0x17c
017a 00f1 | | Load_Encached Diana_Temp_Seq
017b 7801 |x | Jump 0x17d
017c e40b | | Load 0x2,0xb
017d e40a | | Load 0x2,0xa
017e 0120 | | Execute Any,Is_Value
017f 6804 |h | Jump_Zero 0x184
0180 e002 | | Load 0x0,0x2
0181 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0182 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0183 7801 |x | Jump 0x185
0184 e40a | | Load 0x2,0xa
0185 e40d | | Load 0x2,0xd
0186 0120 | | Execute Any,Is_Value
0187 6803 |h | Jump_Zero 0x18b
0188 e004 | | Load 0x0,0x4
0189 1b0d | | Execute Package,Field_Read,Field_Number 0xd
018a 7801 |x | Jump 0x18c
018b e40d | | Load 0x2,0xd
018c e40c | | Load 0x2,0xc
018d 6086 |` | Indirect_Literal Discrete,0x214,{0x00000000, 0x00004000}
018e e005 | | Load 0x0,0x5
018f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0190 4800 |H | Short_Literal 0x0
0191 e002 | | Load 0x0,0x2
0192 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
0193 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0194 e002 | | Load 0x0,0x2
0195 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0196 4ffc |O | Short_Literal -0x4
0197 4ffd |O | Short_Literal -0x3
0198 e409 | | Load 0x2,0x9
0199 e002 | | Load 0x0,0x2
019a 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
019b 180d | | Execute Package,Field_Execute,Field_Number 0xd
019c 00d1 | | Pop_Control Pop_Count_1
019d c40d | | Store 0x2,0xd
019e c40a | | Store 0x2,0xa
019f c40b | | Store 0x2,0xb
01a0 c406 | | Store 0x2,0x6
01a1 e406 | | Load 0x2,0x6
01a2 6839 |h9 | Jump_Zero 0x1dc
01a3 e003 | | Load 0x0,0x3
01a4 180e | | Execute Package,Field_Execute,Field_Number 0xe
01a5 4801 |H | Short_Literal 0x1
01a6 4802 |H | Short_Literal 0x2
01a7 e007 | | Load 0x0,0x7
01a8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01a9 0334 | 4 | Declare_Variable Array,With_Constraint
01aa 0092 0610 | | Action Push_String_Extended,0x610 ; "!Targets."
01ac e5ff | | Load 0x2,-0x1
01ad 01cc | | Execute Vector,Catenate
01ae e007 | | Load 0x0,0x7
01af 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01b0 e007 | | Load 0x0,0x7
01b1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01b2 0119 | | Execute Any,Check_In_Formal_Type
01b3 4801 |H | Short_Literal 0x1
01b4 00da | | Load_Top At_Offset_2
01b5 01d6 | | Execute Vector,Field_Write
01b6 e406 | | Load 0x2,0x6
01b7 e002 | | Load 0x0,0x2
01b8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01b9 011c | | Execute Any,Convert_Unchecked
01ba 1c01 | | Execute_Immediate Run_Utility,0x1
01bb e007 | | Load 0x0,0x7
01bc 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01bd e007 | | Load 0x0,0x7
01be 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01bf 0119 | | Execute Any,Check_In_Formal_Type
01c0 4802 |H | Short_Literal 0x2
01c1 00da | | Load_Top At_Offset_2
01c2 01d6 | | Execute Vector,Field_Write
01c3 603c |`< | Indirect_Literal Discrete,0x200,{0x00000000, 0x00008894}
01c4 e009 | | Load 0x0,0x9
01c5 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
01c6 e003 | | Load 0x0,0x3
01c7 180e | | Execute Package,Field_Execute,Field_Number 0xe
01c8 4801 |H | Short_Literal 0x1
01c9 4801 |H | Short_Literal 0x1
01ca e007 | | Load 0x0,0x7
01cb 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01cc 0334 | 4 | Declare_Variable Array,With_Constraint
01cd 0092 0614 | | Action Push_String_Extended,0x614 ; "Create_Predefined_Library failed"
01cf e007 | | Load 0x0,0x7
01d0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01d1 e007 | | Load 0x0,0x7
01d2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01d3 0119 | | Execute Any,Check_In_Formal_Type
01d4 4801 |H | Short_Literal 0x1
01d5 00da | | Load_Top At_Offset_2
01d6 01d6 | | Execute Vector,Field_Write
01d7 4805 |H | Short_Literal 0x5
01d8 6033 |`3 | Indirect_Literal Discrete,0x20c,{0x00000000, 0x00008821}
01d9 e009 | | Load 0x0,0x9
01da 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
01db 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01dc 0092 0615 | | Action Push_String_Extended,0x615 ; "Io"
01de 840e | | Call 0x2,0xe
01df 0092 0616 | | Action Push_String_Extended,0x616 ; "Lrm"
01e1 840e | | Call 0x2,0xe
01e2 0092 0617 | | Action Push_String_Extended,0x617 ; "Reusable_Components"
01e4 840e | | Call 0x2,0xe
01e5 0092 0618 | | Action Push_String_Extended,0x618 ; "Target_Interface"
01e7 840e | | Call 0x2,0xe
01e8 e003 | | Load 0x0,0x3
01e9 180e | | Execute Package,Field_Execute,Field_Number 0xe
01ea 4801 |H | Short_Literal 0x1
01eb 4801 |H | Short_Literal 0x1
01ec e007 | | Load 0x0,0x7
01ed 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01ee 0334 | 4 | Declare_Variable Array,With_Constraint
01ef 0092 0611 | | Action Push_String_Extended,0x611 ; "Create_Predefined_Library completed"
01f1 e007 | | Load 0x0,0x7
01f2 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01f3 e007 | | Load 0x0,0x7
01f4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01f5 0119 | | Execute Any,Check_In_Formal_Type
01f6 4801 |H | Short_Literal 0x1
01f7 00da | | Load_Top At_Offset_2
01f8 01d6 | | Execute Vector,Field_Write
01f9 6012 |` | Indirect_Literal Discrete,0x20c,{0x00000000, 0x00008821}
01fa e009 | | Load 0x0,0x9
01fb 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
01fc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01fd 0000 0000 | | .XXX[0x3]
01ff 0000 | |
0200 0000 0000 | | .LITERAL {0x00000000, 0x00008894}
0204 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
0208 0000 0000 | | .LITERAL {0x00000000, 0x00008814}
020c 0000 0000 | | .LITERAL {0x00000000, 0x00008821}
0210 0000 0000 | | .LITERAL {0x00000000, 0x00008898}
0214 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 0220 | | .CONST 0x0220 ; Address of begin
0219 0276 | v | .CONST 0x0276 ; Address of exception handler
021a 0002 | | .CONST 0x0002 ; Number of locals
021b INIT_0218:
021b e00b | | Load 0x0,0xb
021c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
021d 02c7 | | Declare_Variable Any
021e 00d8 | | Load_Top At_Offset_0
021f 1c00 | | Execute_Immediate Run_Utility,0x0
0220 BODY_0218:
0220 00db | | Load_Top At_Offset_3
0221 01db | | Execute Vector,Length
0222 0c11 | | Execute_Immediate Greater_Equal,0x11
0223 681d |h | Jump_Zero 0x241
0224 e003 | | Load 0x0,0x3
0225 180e | | Execute Package,Field_Execute,Field_Number 0xe
0226 4801 |H | Short_Literal 0x1
0227 4802 |H | Short_Literal 0x2
0228 e007 | | Load 0x0,0x7
0229 1b0f | | Execute Package,Field_Read,Field_Number 0xf
022a 0334 | 4 | Declare_Variable Array,With_Constraint
022b e5ff | | Load 0x2,-0x1
022c e007 | | Load 0x0,0x7
022d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
022e e007 | | Load 0x0,0x7
022f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0230 0119 | | Execute Any,Check_In_Formal_Type
0231 4801 |H | Short_Literal 0x1
0232 00da | | Load_Top At_Offset_2
0233 01d6 | | Execute Vector,Field_Write
0234 4810 |H | Short_Literal 0x10
0235 e007 | | Load 0x0,0x7
0236 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0237 e007 | | Load 0x0,0x7
0238 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0239 0119 | | Execute Any,Check_In_Formal_Type
023a 4802 |H | Short_Literal 0x2
023b 00da | | Load_Top At_Offset_2
023c 01d6 | | Execute Vector,Field_Write
023d 605e |`^ | Indirect_Literal Discrete,0x29c,{0x00000000, 0x00008899}
023e e009 | | Load 0x0,0x9
023f 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0240 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0241 00d8 | | Load_Top At_Offset_0
0242 e5f9 | | Load 0x2,-0x7
0243 e5fa | | Load 0x2,-0x6
0244 e5fb | | Load 0x2,-0x5
0245 e5fc | | Load 0x2,-0x4
0246 e5fd | | Load 0x2,-0x3
0247 e5fe | | Load 0x2,-0x2
0248 e5ff | | Load 0x2,-0x1
0249 e00c | | Load 0x0,0xc
024a 180e | | Execute Package,Field_Execute,Field_Number 0xe
024b c402 | | Store 0x2,0x2
024c 4801 |H | Short_Literal 0x1
024d 00d9 | | Load_Top At_Offset_1
024e e00b | | Load 0x0,0xb
024f 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0250 6806 |h | Jump_Zero 0x257
0251 e003 | | Load 0x0,0x3
0252 180e | | Execute Package,Field_Execute,Field_Number 0xe
0253 00d9 | | Load_Top At_Offset_1
0254 e00d | | Load 0x0,0xd
0255 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0256 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0257 0092 0619 | | Action Push_String_Extended,0x619 ; "<PROFILE>"
0259 4801 |H | Short_Literal 0x1
025a 4801 |H | Short_Literal 0x1
025b 00ea | | Load_Encached Null_String_Cache
025c 00ea | | Load_Encached Null_String_Cache
025d 00ea | | Load_Encached Null_String_Cache
025e 4800 |H | Short_Literal 0x0
025f 4800 |H | Short_Literal 0x0
0260 4801 |H | Short_Literal 0x1
0261 00ea | | Load_Encached Null_String_Cache
0262 00ea | | Load_Encached Null_String_Cache
0263 e5ff | | Load 0x2,-0x1
0264 e00e | | Load 0x0,0xe
0265 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0266 00db | | Load_Top At_Offset_3
0267 e00f | | Load 0x0,0xf
0268 189e | | Execute Package,Field_Execute,Field_Number 0x9e
0269 e003 | | Load 0x0,0x3
026a 180e | | Execute Package,Field_Execute,Field_Number 0xe
026b 4803 |H | Short_Literal 0x3
026c 0092 061a | | Action Push_String_Extended,0x61a ; "Registration of "
026e e5ff | | Load 0x2,-0x1
026f 01cc | | Execute Vector,Catenate
0270 0092 061b | | Action Push_String_Extended,0x61b ; " has completed. "
0272 01cc | | Execute Vector,Catenate
0273 e00d | | Load 0x0,0xd
0274 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0275 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0276 TRAP_0218:
0276 0007 | | Action Break_Optional
0277 e003 | | Load 0x0,0x3
0278 180e | | Execute Package,Field_Execute,Field_Number 0xe
0279 4807 |H | Short_Literal 0x7
027a 0092 061c | | Action Push_String_Extended,0x61c ; "Exception "
027c 4800 |H | Short_Literal 0x0
027d 4801 |H | Short_Literal 0x1
027e e010 | | Load 0x0,0x10
027f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0280 01cc | | Execute Vector,Catenate
0281 0092 061d | | Action Push_String_Extended,0x61d ; " caught in Register."
0283 01cc | | Execute Vector,Catenate
0284 e00d | | Load 0x0,0xd
0285 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0286 e003 | | Load 0x0,0x3
0287 180e | | Execute Package,Field_Execute,Field_Number 0xe
0288 4807 |H | Short_Literal 0x7
0289 4800 |H | Short_Literal 0x0
028a 4801 |H | Short_Literal 0x1
028b e010 | | Load 0x0,0x10
028c 1815 | | Execute Package,Field_Execute,Field_Number 0x15
028d 0092 061e | | Action Push_String_Extended,0x61e ; " was raised in "
028f 01cc | | Execute Vector,Catenate
0290 4800 |H | Short_Literal 0x0
0291 4801 |H | Short_Literal 0x1
0292 e010 | | Load 0x0,0x10
0293 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0294 01cc | | Execute Vector,Catenate
0295 0092 061f | | Action Push_String_Extended,0x61f ; ". "
0297 01cc | | Execute Vector,Catenate
0298 e00d | | Load 0x0,0xd
0299 1813 | | Execute Package,Field_Execute,Field_Number 0x13
029a 4508 |E | Exit_Suprogram New_Top_Offset 0x8
029b 0000 | | .XXX[0x1]
029c 0000 0000 | | .LITERAL {0x00000000, 0x00008899}
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a8 | | .CONST 0x02a8 ; Address of begin
02a1 02da | | .CONST 0x02da ; Address of exception handler
02a2 0002 | | .CONST 0x0002 ; Number of locals
02a3 INIT_02a0:
02a3 e00b | | Load 0x0,0xb
02a4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02a5 02c7 | | Declare_Variable Any
02a6 00d8 | | Load_Top At_Offset_0
02a7 1c00 | | Execute_Immediate Run_Utility,0x0
02a8 BODY_02a0:
02a8 00db | | Load_Top At_Offset_3
02a9 e00f | | Load 0x0,0xf
02aa 18a0 | | Execute Package,Field_Execute,Field_Number 0xa0
02ab 00db | | Load_Top At_Offset_3
02ac e00e | | Load 0x0,0xe
02ad 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02ae 00d8 | | Load_Top At_Offset_0
02af e5fe | | Load 0x2,-0x2
02b0 e5ff | | Load 0x2,-0x1
02b1 e00c | | Load 0x0,0xc
02b2 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02b3 c402 | | Store 0x2,0x2
02b4 4801 |H | Short_Literal 0x1
02b5 00d9 | | Load_Top At_Offset_1
02b6 e00b | | Load 0x0,0xb
02b7 1817 | | Execute Package,Field_Execute,Field_Number 0x17
02b8 6806 |h | Jump_Zero 0x2bf
02b9 e003 | | Load 0x0,0x3
02ba 180e | | Execute Package,Field_Execute,Field_Number 0xe
02bb 00d9 | | Load_Top At_Offset_1
02bc e00d | | Load 0x0,0xd
02bd 1812 | | Execute Package,Field_Execute,Field_Number 0x12
02be 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02bf e003 | | Load 0x0,0x3
02c0 180e | | Execute Package,Field_Execute,Field_Number 0xe
02c1 4803 |H | Short_Literal 0x3
02c2 0092 0620 | | Action Push_String_Extended,0x620 ; "Unregistered "
02c4 e5ff | | Load 0x2,-0x1
02c5 01cc | | Execute Vector,Catenate
02c6 0092 0621 | !| Action Push_String_Extended,0x621 ; " RCF."
02c8 01cc | | Execute Vector,Catenate
02c9 e00d | | Load 0x0,0xd
02ca 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02cb e5fe | | Load 0x2,-0x2
02cc 680c |h | Jump_Zero 0x2d9
02cd e003 | | Load 0x0,0x3
02ce 180e | | Execute Package,Field_Execute,Field_Number 0xe
02cf 4803 |H | Short_Literal 0x3
02d0 0092 0622 | "| Action Push_String_Extended,0x622 ; "Destroyed "
02d2 e5ff | | Load 0x2,-0x1
02d3 01cc | | Execute Vector,Catenate
02d4 0092 0623 | #| Action Push_String_Extended,0x623 ; "RCF ."
02d6 01cc | | Execute Vector,Catenate
02d7 e00d | | Load 0x0,0xd
02d8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02d9 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02da TRAP_02a0:
02da 0007 | | Action Break_Optional
02db e003 | | Load 0x0,0x3
02dc 180e | | Execute Package,Field_Execute,Field_Number 0xe
02dd 4807 |H | Short_Literal 0x7
02de 0092 061c | | Action Push_String_Extended,0x61c ; "Exception "
02e0 4800 |H | Short_Literal 0x0
02e1 4801 |H | Short_Literal 0x1
02e2 e010 | | Load 0x0,0x10
02e3 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02e4 01cc | | Execute Vector,Catenate
02e5 0092 0624 | $| Action Push_String_Extended,0x624 ; " caught in UnRegister."
02e7 01cc | | Execute Vector,Catenate
02e8 e00d | | Load 0x0,0xd
02e9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02ea e003 | | Load 0x0,0x3
02eb 180e | | Execute Package,Field_Execute,Field_Number 0xe
02ec 4807 |H | Short_Literal 0x7
02ed 4800 |H | Short_Literal 0x0
02ee 4801 |H | Short_Literal 0x1
02ef e010 | | Load 0x0,0x10
02f0 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02f1 0092 061e | | Action Push_String_Extended,0x61e ; " was raised in "
02f3 01cc | | Execute Vector,Catenate
02f4 4800 |H | Short_Literal 0x0
02f5 4801 |H | Short_Literal 0x1
02f6 e010 | | Load 0x0,0x10
02f7 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02f8 01cc | | Execute Vector,Catenate
02f9 0092 061f | | Action Push_String_Extended,0x61f ; ". "
02fb 01cc | | Execute Vector,Catenate
02fc e00d | | Load 0x0,0xd
02fd 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02fe 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02ff 0000 | | .XXX[0x1]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0319 | | .CONST 0x0319 ; Address of begin
0301 036a | j | .CONST 0x036a ; Address of exception handler
0302 0009 | | .CONST 0x0009 ; Number of locals
0303 INIT_0300:
0303 e011 | | Load 0x0,0x11
0304 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0305 0322 | " | Declare_Variable Record
0306 00d8 | | Load_Top At_Offset_0
0307 1c00 | | Execute_Immediate Run_Utility,0x0
0308 e00b | | Load 0x0,0xb
0309 1b0f | | Execute Package,Field_Read,Field_Number 0xf
030a 02c7 | | Declare_Variable Any
030b 00d8 | | Load_Top At_Offset_0
030c 1c00 | | Execute_Immediate Run_Utility,0x0
030d 029f 0563 | c| Declare_Subprogram INIT_0560,For_Call
030f 029f 057b | {| Declare_Subprogram INIT_0578,For_Call
0311 029f 0593 | | Declare_Subprogram INIT_0590,For_Call
0313 029f 05ab | | Declare_Subprogram INIT_05a8,For_Call
0315 029f 05c3 | | Declare_Subprogram INIT_05c0,For_Call
0317 029f 05db | | Declare_Subprogram INIT_05d8,For_Call
0319 BODY_0300:
0319 e403 | | Load 0x2,0x3
031a 0120 | | Execute Any,Is_Value
031b 6803 |h | Jump_Zero 0x31f
031c e00b | | Load 0x0,0xb
031d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
031e 7801 |x | Jump 0x320
031f e403 | | Load 0x2,0x3
0320 e402 | | Load 0x2,0x2
0321 e5ff | | Load 0x2,-0x1
0322 e011 | | Load 0x0,0x11
0323 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0324 00d1 | | Pop_Control Pop_Count_1
0325 c403 | | Store 0x2,0x3
0326 4802 |H | Short_Literal 0x2
0327 e403 | | Load 0x2,0x3
0328 e00b | | Load 0x0,0xb
0329 1817 | | Execute Package,Field_Execute,Field_Number 0x17
032a 6806 |h | Jump_Zero 0x331
032b e003 | | Load 0x0,0x3
032c 180e | | Execute Package,Field_Execute,Field_Number 0xe
032d e403 | | Load 0x2,0x3
032e e00d | | Load 0x0,0xd
032f 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0330 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0331 e5ff | | Load 0x2,-0x1
0332 e00c | | Load 0x0,0xc
0333 180f | | Execute Package,Field_Execute,Field_Number 0xf
0334 700a |p | Jump_Nonzero 0x33f
0335 e003 | | Load 0x0,0x3
0336 180e | | Execute Package,Field_Execute,Field_Number 0xe
0337 4806 |H | Short_Literal 0x6
0338 e5ff | | Load 0x2,-0x1
0339 0092 0625 | %| Action Push_String_Extended,0x625 ; " is not registered"
033b 01cc | | Execute Vector,Catenate
033c e00d | | Load 0x0,0xd
033d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
033e 4508 |E | Exit_Suprogram New_Top_Offset 0x8
033f 0092 0626 | &| Action Push_String_Extended,0x626 ; "Information on RCF customization for "
0341 e5ff | | Load 0x2,-0x1
0342 01cc | | Execute Vector,Catenate
0343 e012 | | Load 0x0,0x12
0344 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0345 e5fe | | Load 0x2,-0x2
0346 6804 |h | Jump_Zero 0x34b
0347 e402 | | Load 0x2,0x2
0348 e00c | | Load 0x0,0xc
0349 1811 | | Execute Package,Field_Execute,Field_Number 0x11
034a 8404 | | Call 0x2,0x4
034b e5fc | | Load 0x2,-0x4
034c 6804 |h | Jump_Zero 0x351
034d e402 | | Load 0x2,0x2
034e e00c | | Load 0x0,0xc
034f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0350 8405 | | Call 0x2,0x5
0351 e5fa | | Load 0x2,-0x6
0352 6804 |h | Jump_Zero 0x357
0353 e402 | | Load 0x2,0x2
0354 e00c | | Load 0x0,0xc
0355 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0356 8408 | | Call 0x2,0x8
0357 e5fb | | Load 0x2,-0x5
0358 6804 |h | Jump_Zero 0x35d
0359 e402 | | Load 0x2,0x2
035a e00c | | Load 0x0,0xc
035b 1814 | | Execute Package,Field_Execute,Field_Number 0x14
035c 8406 | | Call 0x2,0x6
035d e5fd | | Load 0x2,-0x3
035e 6804 |h | Jump_Zero 0x363
035f e402 | | Load 0x2,0x2
0360 e00c | | Load 0x0,0xc
0361 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0362 8407 | | Call 0x2,0x7
0363 e5f9 | | Load 0x2,-0x7
0364 6804 |h | Jump_Zero 0x369
0365 e402 | | Load 0x2,0x2
0366 e00c | | Load 0x0,0xc
0367 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0368 8409 | | Call 0x2,0x9
0369 4508 |E | Exit_Suprogram New_Top_Offset 0x8
036a TRAP_0300:
036a 0007 | | Action Break_Optional
036b e003 | | Load 0x0,0x3
036c 180e | | Execute Package,Field_Execute,Field_Number 0xe
036d 4807 |H | Short_Literal 0x7
036e 0092 061c | | Action Push_String_Extended,0x61c ; "Exception "
0370 4800 |H | Short_Literal 0x0
0371 4801 |H | Short_Literal 0x1
0372 e010 | | Load 0x0,0x10
0373 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0374 01cc | | Execute Vector,Catenate
0375 0092 0627 | '| Action Push_String_Extended,0x627 ; " caught in Information."
0377 01cc | | Execute Vector,Catenate
0378 e00d | | Load 0x0,0xd
0379 1813 | | Execute Package,Field_Execute,Field_Number 0x13
037a e003 | | Load 0x0,0x3
037b 180e | | Execute Package,Field_Execute,Field_Number 0xe
037c 4807 |H | Short_Literal 0x7
037d 4800 |H | Short_Literal 0x0
037e 4801 |H | Short_Literal 0x1
037f e010 | | Load 0x0,0x10
0380 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0381 0092 061e | | Action Push_String_Extended,0x61e ; " was raised in "
0383 01cc | | Execute Vector,Catenate
0384 4800 |H | Short_Literal 0x0
0385 4801 |H | Short_Literal 0x1
0386 e010 | | Load 0x0,0x10
0387 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0388 01cc | | Execute Vector,Catenate
0389 0092 061f | | Action Push_String_Extended,0x61f ; ". "
038b 01cc | | Execute Vector,Catenate
038c e00d | | Load 0x0,0xd
038d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
038e 4508 |E | Exit_Suprogram New_Top_Offset 0x8
038f 0000 | | .XXX[0x1]
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 039a | | .CONST 0x039a ; Address of begin
0391 03d0 | | .CONST 0x03d0 ; Address of exception handler
0392 0003 | | .CONST 0x0003 ; Number of locals
0393 INIT_0390:
0393 e00c | | Load 0x0,0xc
0394 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0395 02c7 | | Declare_Variable Any
0396 00d8 | | Load_Top At_Offset_0
0397 1c00 | | Execute_Immediate Run_Utility,0x0
0398 00e1 | | Load_Encached Boolean_Cache
0399 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
039a BODY_0390:
039a 00d9 | | Load_Top At_Offset_1
039b 0120 | | Execute Any,Is_Value
039c 6803 |h | Jump_Zero 0x3a0
039d e00c | | Load 0x0,0xc
039e 1b18 | | Execute Package,Field_Read,Field_Number 0x18
039f 7801 |x | Jump 0x3a1
03a0 00d9 | | Load_Top At_Offset_1
03a1 e00c | | Load 0x0,0xc
03a2 1819 | | Execute Package,Field_Execute,Field_Number 0x19
03a3 c402 | | Store 0x2,0x2
03a4 00cf | | Action Mark_Auxiliary
03a5 781b |x | Jump 0x3c1
03a6 00da | | Load_Top At_Offset_2
03a7 e00c | | Load 0x0,0xc
03a8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
03a9 e00c | | Load 0x0,0xc
03aa 180f | | Execute Package,Field_Execute,Field_Number 0xf
03ab 6810 |h | Jump_Zero 0x3bc
03ac 00d9 | | Load_Top At_Offset_1
03ad 7004 |p | Jump_Nonzero 0x3b2
03ae 0092 0628 | (| Action Push_String_Extended,0x628 ; "Registered RCF Customizations: "
03b0 e012 | | Load 0x0,0x12
03b1 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
03b2 4801 |H | Short_Literal 0x1
03b3 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
03b4 0092 0629 | )| Action Push_String_Extended,0x629 ; " "
03b6 00db | | Load_Top At_Offset_3
03b7 e00c | | Load 0x0,0xc
03b8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
03b9 01cc | | Execute Vector,Catenate
03ba e012 | | Load 0x0,0x12
03bb 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
03bc 00da | | Load_Top At_Offset_2
03bd e00c | | Load 0x0,0xc
03be 181a | | Execute Package,Field_Execute,Field_Number 0x1a
03bf c402 | | Store 0x2,0x2
03c0 00c9 | | Action Pop_Auxiliary_Loop
03c1 00da | | Load_Top At_Offset_2
03c2 e00c | | Load 0x0,0xc
03c3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03c4 6fe1 |o | Jump_Zero 0x3a6
03c5 00ce | | Action Pop_Auxiliary
03c6 00d8 | | Load_Top At_Offset_0
03c7 7007 |p | Jump_Nonzero 0x3cf
03c8 e003 | | Load 0x0,0x3
03c9 180e | | Execute Package,Field_Execute,Field_Number 0xe
03ca 4806 |H | Short_Literal 0x6
03cb 0092 062a | *| Action Push_String_Extended,0x62a ; "No registered RCF Customizations"
03cd e00d | | Load 0x0,0xd
03ce 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03cf 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03d0 TRAP_0390:
03d0 0007 | | Action Break_Optional
03d1 e003 | | Load 0x0,0x3
03d2 180e | | Execute Package,Field_Execute,Field_Number 0xe
03d3 4807 |H | Short_Literal 0x7
03d4 0092 061c | | Action Push_String_Extended,0x61c ; "Exception "
03d6 4800 |H | Short_Literal 0x0
03d7 4801 |H | Short_Literal 0x1
03d8 e010 | | Load 0x0,0x10
03d9 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03da 01cc | | Execute Vector,Catenate
03db 0092 062b | +| Action Push_String_Extended,0x62b ; " caught in Display_All_Registered_Targets."
03dd 01cc | | Execute Vector,Catenate
03de e00d | | Load 0x0,0xd
03df 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03e0 e003 | | Load 0x0,0x3
03e1 180e | | Execute Package,Field_Execute,Field_Number 0xe
03e2 4807 |H | Short_Literal 0x7
03e3 4800 |H | Short_Literal 0x0
03e4 4801 |H | Short_Literal 0x1
03e5 e010 | | Load 0x0,0x10
03e6 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03e7 0092 061e | | Action Push_String_Extended,0x61e ; " was raised in "
03e9 01cc | | Execute Vector,Catenate
03ea 4800 |H | Short_Literal 0x0
03eb 4801 |H | Short_Literal 0x1
03ec e010 | | Load 0x0,0x10
03ed 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03ee 01cc | | Execute Vector,Catenate
03ef 0092 061f | | Action Push_String_Extended,0x61f ; ". "
03f1 01cc | | Execute Vector,Catenate
03f2 e00d | | Load 0x0,0xd
03f3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03f4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03f5 0000 0000 | | .XXX[0x3]
03f7 0000 | |
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 03fb | | .CONST 0x03fb ; Address of begin
03f9 0004 | | .CONST 0x0004 ; Address of exception handler
03fa 0001 | | .CONST 0x0001 ; Number of locals
03fb BODY_03f8:
03fb INIT_03f8:
03fb 4605 |F | Jump_Case 0x6
03fc 7804 |x | Jump 0x401 ; case 0x0
03fd 7814 |x | Jump 0x412 ; case 0x1
03fe 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
03ff 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0400 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0401 00da | | Load_Top At_Offset_2 ; case 0x5
0402 01dc | | Execute Vector,Last
0403 00db | | Load_Top At_Offset_3
0404 01dd | | Execute Vector,First
0405 0263 | c | Execute Discrete,Above_Bound
0406 700a |p | Jump_Nonzero 0x411
0407 00d8 | | Load_Top At_Offset_0
0408 e5ff | | Load 0x2,-0x1
0409 01d5 | | Execute Vector,Field_Reference
040a 0125 | % | Execute Any,Set_Constraint
040b 00d8 | | Load_Top At_Offset_0
040c e5ff | | Load 0x2,-0x1
040d 01d5 | | Execute Vector,Field_Reference
040e 1c00 | | Execute_Immediate Run_Utility,0x0
040f 0a01 | | Execute_Immediate Plus,0x1
0410 7ff4 | | Jump 0x405
0411 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0412 00da | | Load_Top At_Offset_2
0413 01dc | | Execute Vector,Last
0414 00db | | Load_Top At_Offset_3
0415 01dd | | Execute Vector,First
0416 0263 | c | Execute Discrete,Above_Bound
0417 700a |p | Jump_Nonzero 0x422
0418 00d8 | | Load_Top At_Offset_0
0419 e5ff | | Load 0x2,-0x1
041a 01d5 | | Execute Vector,Field_Reference
041b 0125 | % | Execute Any,Set_Constraint
041c 00d8 | | Load_Top At_Offset_0
041d e5ff | | Load 0x2,-0x1
041e 01d7 | | Execute Vector,Field_Read
041f 1c00 | | Execute_Immediate Run_Utility,0x0
0420 0a01 | | Execute_Immediate Plus,0x1
0421 7ff4 | | Jump 0x416
0422 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0423 0000 0000 | | .BLANK 0000[0x5]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 043f | ? | .CONST 0x043f ; Address of begin
0429 0004 | | .CONST 0x0004 ; Address of exception handler
042a 0007 | | .CONST 0x0007 ; Number of locals
042b INIT_0428:
042b e002 | | Load 0x0,0x2
042c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
042d 1b18 | | Execute Package,Field_Read,Field_Number 0x18
042e 02c7 | | Declare_Variable Any
042f 00d8 | | Load_Top At_Offset_0
0430 1c00 | | Execute_Immediate Run_Utility,0x0
0431 e002 | | Load 0x0,0x2
0432 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0433 e002 | | Load 0x0,0x2
0434 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0435 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0436 e002 | | Load 0x0,0x2
0437 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0438 02c7 | | Declare_Variable Any
0439 00d8 | | Load_Top At_Offset_0
043a 1c00 | | Execute_Immediate Run_Utility,0x0
043b 00e3 | | Load_Encached Natural_Cache
043c 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
043d 029f 05f3 | | Declare_Subprogram INIT_05f0,For_Call
043f BODY_0428:
043f e002 | | Load 0x0,0x2
0440 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0441 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0442 e402 | | Load 0x2,0x2
0443 6040 |`@ | Indirect_Literal Discrete,0x484,{0x00000000, 0x00004000}
0444 e005 | | Load 0x0,0x5
0445 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0446 e006 | | Load 0x0,0x6
0447 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0448 e013 | | Load 0x0,0x13
0449 1811 | | Execute Package,Field_Execute,Field_Number 0x11
044a 4801 |H | Short_Literal 0x1
044b 4800 |H | Short_Literal 0x0
044c e006 | | Load 0x0,0x6
044d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
044e e002 | | Load 0x0,0x2
044f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0450 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0451 0092 062c | ,| Action Push_String_Extended,0x62c ; "!machine.rcf.@_defs"
0453 e002 | | Load 0x0,0x2
0454 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0455 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0456 c402 | | Store 0x2,0x2
0457 c404 | | Store 0x2,0x4
0458 00cf | | Action Mark_Auxiliary
0459 781a |x | Jump 0x474
045a e002 | | Load 0x0,0x2
045b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
045c e405 | | Load 0x2,0x5
045d 0120 | | Execute Any,Is_Value
045e 6803 |h | Jump_Zero 0x462
045f e002 | | Load 0x0,0x2
0460 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0461 7801 |x | Jump 0x463
0462 e405 | | Load 0x2,0x5
0463 e402 | | Load 0x2,0x2
0464 e002 | | Load 0x0,0x2
0465 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0466 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0467 c405 | | Store 0x2,0x5
0468 c403 | | Store 0x2,0x3
0469 00db | | Load_Top At_Offset_3
046a e002 | | Load 0x0,0x2
046b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
046c 7001 |p | Jump_Nonzero 0x46e
046d 8407 | | Call 0x2,0x7
046e e402 | | Load 0x2,0x2
046f e002 | | Load 0x0,0x2
0470 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0471 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0472 c402 | | Store 0x2,0x2
0473 00c9 | | Action Pop_Auxiliary_Loop
0474 e402 | | Load 0x2,0x2
0475 e002 | | Load 0x0,0x2
0476 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0477 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0478 6fe1 |o | Jump_Zero 0x45a
0479 00ce | | Action Pop_Auxiliary
047a 4801 |H | Short_Literal 0x1
047b 00da | | Load_Top At_Offset_2
047c 0aff | | Execute_Immediate Plus,-0x1
047d e213 | | Load 0x1,0x13
047e 01cf | | Execute Vector,Slice_Read
047f 0335 | 5 | Declare_Variable Array,Duplicate
0480 00cd | | Action Spare6_Action
0481 00ca | | Action Exit_Nullary_Function
0482 0000 0000 | | .XXX[0x2]
0484 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0488 ; --------------------------------------------------------------------------------------
0488 ; SUBPROGRAM
0488 ; --------------------------------------------------------------------------------------
0488 04aa | | .CONST 0x04aa ; Address of begin
0489 0004 | | .CONST 0x0004 ; Address of exception handler
048a 0007 | | .CONST 0x0007 ; Number of locals
048b INIT_0488:
048b e002 | | Load 0x0,0x2
048c 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
048d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
048e 02c7 | | Declare_Variable Any
048f 00d8 | | Load_Top At_Offset_0
0490 1c00 | | Execute_Immediate Run_Utility,0x0
0491 e002 | | Load 0x0,0x2
0492 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0493 02c7 | | Declare_Variable Any
0494 00d8 | | Load_Top At_Offset_0
0495 1c00 | | Execute_Immediate Run_Utility,0x0
0496 e002 | | Load 0x0,0x2
0497 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0498 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0499 02c7 | | Declare_Variable Any
049a 00d8 | | Load_Top At_Offset_0
049b 1c00 | | Execute_Immediate Run_Utility,0x0
049c 00f1 | | Load_Encached Diana_Temp_Seq
049d 02c7 | | Declare_Variable Any
049e 00d8 | | Load_Top At_Offset_0
049f 1c00 | | Execute_Immediate Run_Utility,0x0
04a0 e002 | | Load 0x0,0x2
04a1 1b14 | | Execute Package,Field_Read,Field_Number 0x14
04a2 02ff | | Declare_Variable Variant_Record
04a3 00d8 | | Load_Top At_Offset_0
04a4 1c00 | | Execute_Immediate Run_Utility,0x0
04a5 e004 | | Load 0x0,0x4
04a6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04a7 02c7 | | Declare_Variable Any
04a8 00d8 | | Load_Top At_Offset_0
04a9 1c00 | | Execute_Immediate Run_Utility,0x0
04aa BODY_0488:
04aa e002 | | Load 0x0,0x2
04ab 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04ac e602 | | Load 0x3,0x2
04ad 0120 | | Execute Any,Is_Value
04ae 6804 |h | Jump_Zero 0x4b3
04af e002 | | Load 0x0,0x2
04b0 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
04b1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04b2 7801 |x | Jump 0x4b4
04b3 e602 | | Load 0x3,0x2
04b4 67cf |g | Indirect_Literal Discrete,0x484,{0x00000000, 0x00004000}
04b5 e005 | | Load 0x0,0x5
04b6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04b7 e002 | | Load 0x0,0x2
04b8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04b9 4802 |H | Short_Literal 0x2
04ba 609d |` | Indirect_Literal Discrete,0x558,{0x00000000, 0x7fffffff}
04bb 609c |` | Indirect_Literal Discrete,0x558,{0x00000000, 0x7fffffff}
04bc e002 | | Load 0x0,0x2
04bd 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
04be 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
04bf e00a | | Load 0x0,0xa
04c0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04c1 e405 | | Load 0x2,0x5
04c2 4801 |H | Short_Literal 0x1
04c3 e7ff | | Load 0x3,-0x1
04c4 e002 | | Load 0x0,0x2
04c5 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
04c6 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
04c7 c602 | | Store 0x3,0x2
04c8 c406 | | Store 0x2,0x6
04c9 e406 | | Load 0x2,0x6
04ca 6829 |h) | Jump_Zero 0x4f4
04cb e003 | | Load 0x0,0x3
04cc 180e | | Execute Package,Field_Execute,Field_Number 0xe
04cd 4801 |H | Short_Literal 0x1
04ce 4802 |H | Short_Literal 0x2
04cf e007 | | Load 0x0,0x7
04d0 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04d1 0334 | 4 | Declare_Variable Array,With_Constraint
04d2 0092 0610 | | Action Push_String_Extended,0x610 ; "!Targets."
04d4 e5ff | | Load 0x2,-0x1
04d5 01cc | | Execute Vector,Catenate
04d6 0092 062d | -| Action Push_String_Extended,0x62d ; "."
04d8 01cc | | Execute Vector,Catenate
04d9 e7ff | | Load 0x3,-0x1
04da 01cc | | Execute Vector,Catenate
04db e007 | | Load 0x0,0x7
04dc 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04dd e007 | | Load 0x0,0x7
04de 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04df 0119 | | Execute Any,Check_In_Formal_Type
04e0 4801 |H | Short_Literal 0x1
04e1 00da | | Load_Top At_Offset_2
04e2 01d6 | | Execute Vector,Field_Write
04e3 e406 | | Load 0x2,0x6
04e4 e002 | | Load 0x0,0x2
04e5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04e6 011c | | Execute Any,Convert_Unchecked
04e7 1c01 | | Execute_Immediate Run_Utility,0x1
04e8 e007 | | Load 0x0,0x7
04e9 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04ea e007 | | Load 0x0,0x7
04eb 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04ec 0119 | | Execute Any,Check_In_Formal_Type
04ed 4802 |H | Short_Literal 0x2
04ee 00da | | Load_Top At_Offset_2
04ef 01d6 | | Execute Vector,Field_Write
04f0 6063 |`c | Indirect_Literal Discrete,0x554,{0x00000000, 0x00008895}
04f1 e009 | | Load 0x0,0x9
04f2 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
04f3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04f4 e602 | | Load 0x3,0x2
04f5 e002 | | Load 0x0,0x2
04f6 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
04f7 1812 | | Execute Package,Field_Execute,Field_Number 0x12
04f8 c603 | | Store 0x3,0x3
04f9 e002 | | Load 0x0,0x2
04fa 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04fb 00db | | Load_Top At_Offset_3
04fc 0120 | | Execute Any,Is_Value
04fd 6802 |h | Jump_Zero 0x500
04fe 00f1 | | Load_Encached Diana_Temp_Seq
04ff 7801 |x | Jump 0x501
0500 00db | | Load_Top At_Offset_3
0501 e604 | | Load 0x3,0x4
0502 0120 | | Execute Any,Is_Value
0503 6804 |h | Jump_Zero 0x508
0504 e002 | | Load 0x0,0x2
0505 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0506 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0507 7801 |x | Jump 0x509
0508 e604 | | Load 0x3,0x4
0509 00db | | Load_Top At_Offset_3
050a 0120 | | Execute Any,Is_Value
050b 6803 |h | Jump_Zero 0x50f
050c e004 | | Load 0x0,0x4
050d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
050e 7801 |x | Jump 0x510
050f 00db | | Load_Top At_Offset_3
0510 e606 | | Load 0x3,0x6
0511 6772 |gr | Indirect_Literal Discrete,0x484,{0x00000000, 0x00004000}
0512 e005 | | Load 0x0,0x5
0513 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0514 4800 |H | Short_Literal 0x0
0515 e002 | | Load 0x0,0x2
0516 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
0517 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0518 e002 | | Load 0x0,0x2
0519 1815 | | Execute Package,Field_Execute,Field_Number 0x15
051a 4ffc |O | Short_Literal -0x4
051b 4ffd |O | Short_Literal -0x3
051c e603 | | Load 0x3,0x3
051d e002 | | Load 0x0,0x2
051e 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
051f 180d | | Execute Package,Field_Execute,Field_Number 0xd
0520 00d1 | | Pop_Control Pop_Count_1
0521 c607 | | Store 0x3,0x7
0522 c604 | | Store 0x3,0x4
0523 c605 | | Store 0x3,0x5
0524 c406 | | Store 0x2,0x6
0525 e406 | | Load 0x2,0x6
0526 6829 |h) | Jump_Zero 0x550
0527 e003 | | Load 0x0,0x3
0528 180e | | Execute Package,Field_Execute,Field_Number 0xe
0529 4801 |H | Short_Literal 0x1
052a 4802 |H | Short_Literal 0x2
052b e007 | | Load 0x0,0x7
052c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
052d 0334 | 4 | Declare_Variable Array,With_Constraint
052e 0092 0610 | | Action Push_String_Extended,0x610 ; "!Targets."
0530 e5ff | | Load 0x2,-0x1
0531 01cc | | Execute Vector,Catenate
0532 0092 062d | -| Action Push_String_Extended,0x62d ; "."
0534 01cc | | Execute Vector,Catenate
0535 e7ff | | Load 0x3,-0x1
0536 01cc | | Execute Vector,Catenate
0537 e007 | | Load 0x0,0x7
0538 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0539 e007 | | Load 0x0,0x7
053a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
053b 0119 | | Execute Any,Check_In_Formal_Type
053c 4801 |H | Short_Literal 0x1
053d 00da | | Load_Top At_Offset_2
053e 01d6 | | Execute Vector,Field_Write
053f e406 | | Load 0x2,0x6
0540 e002 | | Load 0x0,0x2
0541 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0542 011c | | Execute Any,Convert_Unchecked
0543 1c01 | | Execute_Immediate Run_Utility,0x1
0544 e007 | | Load 0x0,0x7
0545 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0546 e007 | | Load 0x0,0x7
0547 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0548 0119 | | Execute Any,Check_In_Formal_Type
0549 4802 |H | Short_Literal 0x2
054a 00da | | Load_Top At_Offset_2
054b 01d6 | | Execute Vector,Field_Write
054c 6007 |` | Indirect_Literal Discrete,0x554,{0x00000000, 0x00008895}
054d e009 | | Load 0x0,0x9
054e 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
054f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0550 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0551 0000 0000 | | .XXX[0x3]
0553 0000 | |
0554 0000 0000 | | .LITERAL {0x00000000, 0x00008895}
0558 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
055c 0000 0000 | | .BLANK 0000[0x4]
0560 ; --------------------------------------------------------------------------------------
0560 ; SUBPROGRAM
0560 ; --------------------------------------------------------------------------------------
0560 0563 | c | .CONST 0x0563 ; Address of begin
0561 0004 | | .CONST 0x0004 ; Address of exception handler
0562 0001 | | .CONST 0x0001 ; Number of locals
0563 BODY_0560:
0563 INIT_0560:
0563 00da | | Load_Top At_Offset_2
0564 e014 | | Load 0x0,0x14
0565 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0566 6805 |h | Jump_Zero 0x56c
0567 0092 062e | .| Action Push_String_Extended,0x62e ; "No Operational Customizations Defined."
0569 e012 | | Load 0x0,0x12
056a 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
056b 7803 |x | Jump 0x56f
056c 00da | | Load_Top At_Offset_2
056d e014 | | Load 0x0,0x14
056e 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
056f 0092 0629 | )| Action Push_String_Extended,0x629 ; " "
0571 e012 | | Load 0x0,0x12
0572 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0573 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0574 0000 0000 | | .BLANK 0000[0x4]
0578 ; --------------------------------------------------------------------------------------
0578 ; SUBPROGRAM
0578 ; --------------------------------------------------------------------------------------
0578 057b | { | .CONST 0x057b ; Address of begin
0579 0004 | | .CONST 0x0004 ; Address of exception handler
057a 0001 | | .CONST 0x0001 ; Number of locals
057b BODY_0578:
057b INIT_0578:
057b 00da | | Load_Top At_Offset_2
057c e015 | | Load 0x0,0x15
057d 1b14 | | Execute Package,Field_Read,Field_Number 0x14
057e 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
057f 6805 |h | Jump_Zero 0x585
0580 0092 062f | /| Action Push_String_Extended,0x62f ; "No Pragma Customizations Defined."
0582 e012 | | Load 0x0,0x12
0583 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0584 7804 |x | Jump 0x589
0585 00da | | Load_Top At_Offset_2
0586 e015 | | Load 0x0,0x15
0587 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0588 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0589 0092 0629 | )| Action Push_String_Extended,0x629 ; " "
058b e012 | | Load 0x0,0x12
058c 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
058d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
058e 0000 0000 | | .XXX[0x2]
0590 ; --------------------------------------------------------------------------------------
0590 ; SUBPROGRAM
0590 ; --------------------------------------------------------------------------------------
0590 0593 | | .CONST 0x0593 ; Address of begin
0591 0004 | | .CONST 0x0004 ; Address of exception handler
0592 0001 | | .CONST 0x0001 ; Number of locals
0593 BODY_0590:
0593 INIT_0590:
0593 00da | | Load_Top At_Offset_2
0594 e015 | | Load 0x0,0x15
0595 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0596 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0597 6805 |h | Jump_Zero 0x59d
0598 0092 0630 | 0| Action Push_String_Extended,0x630 ; "No Attribute Customizations Defined."
059a e012 | | Load 0x0,0x12
059b 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
059c 7804 |x | Jump 0x5a1
059d 00da | | Load_Top At_Offset_2
059e e015 | | Load 0x0,0x15
059f 1b15 | | Execute Package,Field_Read,Field_Number 0x15
05a0 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
05a1 0092 0629 | )| Action Push_String_Extended,0x629 ; " "
05a3 e012 | | Load 0x0,0x12
05a4 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
05a5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05a6 0000 0000 | | .XXX[0x2]
05a8 ; --------------------------------------------------------------------------------------
05a8 ; SUBPROGRAM
05a8 ; --------------------------------------------------------------------------------------
05a8 05ab | | .CONST 0x05ab ; Address of begin
05a9 0004 | | .CONST 0x0004 ; Address of exception handler
05aa 0001 | | .CONST 0x0001 ; Number of locals
05ab BODY_05a8:
05ab INIT_05a8:
05ab 00da | | Load_Top At_Offset_2
05ac e015 | | Load 0x0,0x15
05ad 1b13 | | Execute Package,Field_Read,Field_Number 0x13
05ae 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
05af 6805 |h | Jump_Zero 0x5b5
05b0 0092 0631 | 1| Action Push_String_Extended,0x631 ; "No Predefined Environment Customizations Defined."
05b2 e012 | | Load 0x0,0x12
05b3 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
05b4 7804 |x | Jump 0x5b9
05b5 00da | | Load_Top At_Offset_2
05b6 e015 | | Load 0x0,0x15
05b7 1b13 | | Execute Package,Field_Read,Field_Number 0x13
05b8 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
05b9 0092 0629 | )| Action Push_String_Extended,0x629 ; " "
05bb e012 | | Load 0x0,0x12
05bc 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
05bd 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05be 0000 0000 | | .XXX[0x2]
05c0 ; --------------------------------------------------------------------------------------
05c0 ; SUBPROGRAM
05c0 ; --------------------------------------------------------------------------------------
05c0 05c3 | | .CONST 0x05c3 ; Address of begin
05c1 0004 | | .CONST 0x0004 ; Address of exception handler
05c2 0001 | | .CONST 0x0001 ; Number of locals
05c3 BODY_05c0:
05c3 INIT_05c0:
05c3 00da | | Load_Top At_Offset_2
05c4 e015 | | Load 0x0,0x15
05c5 1b16 | | Execute Package,Field_Read,Field_Number 0x16
05c6 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
05c7 6805 |h | Jump_Zero 0x5cd
05c8 0092 0632 | 2| Action Push_String_Extended,0x632 ; "No Rep Spec Customizations Defined."
05ca e012 | | Load 0x0,0x12
05cb 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
05cc 7804 |x | Jump 0x5d1
05cd 00da | | Load_Top At_Offset_2
05ce e015 | | Load 0x0,0x15
05cf 1b16 | | Execute Package,Field_Read,Field_Number 0x16
05d0 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
05d1 0092 0629 | )| Action Push_String_Extended,0x629 ; " "
05d3 e012 | | Load 0x0,0x12
05d4 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
05d5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05d6 0000 0000 | | .XXX[0x2]
05d8 ; --------------------------------------------------------------------------------------
05d8 ; SUBPROGRAM
05d8 ; --------------------------------------------------------------------------------------
05d8 05db | | .CONST 0x05db ; Address of begin
05d9 0004 | | .CONST 0x0004 ; Address of exception handler
05da 0001 | | .CONST 0x0001 ; Number of locals
05db BODY_05d8:
05db INIT_05d8:
05db 00da | | Load_Top At_Offset_2
05dc e016 | | Load 0x0,0x16
05dd 1b10 | | Execute Package,Field_Read,Field_Number 0x10
05de 012f | / | Execute Any,Equal
05df 6805 |h | Jump_Zero 0x5e5
05e0 0092 0633 | 3| Action Push_String_Extended,0x633 ; "No telnet Customizations Defined."
05e2 e012 | | Load 0x0,0x12
05e3 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
05e4 7803 |x | Jump 0x5e8
05e5 00da | | Load_Top At_Offset_2
05e6 e016 | | Load 0x0,0x16
05e7 1817 | | Execute Package,Field_Execute,Field_Number 0x17
05e8 0092 0629 | )| Action Push_String_Extended,0x629 ; " "
05ea e012 | | Load 0x0,0x12
05eb 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
05ec 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05ed 0000 0000 | | .XXX[0x3]
05ef 0000 | |
05f0 ; --------------------------------------------------------------------------------------
05f0 ; SUBPROGRAM
05f0 ; --------------------------------------------------------------------------------------
05f0 05f7 | | .CONST 0x05f7 ; Address of begin
05f1 0004 | | .CONST 0x0004 ; Address of exception handler
05f2 0002 | | .CONST 0x0002 ; Number of locals
05f3 INIT_05f0:
05f3 e405 | | Load 0x2,0x5
05f4 e002 | | Load 0x0,0x2
05f5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
05f6 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
05f7 BODY_05f0:
05f7 e406 | | Load 0x2,0x6
05f8 e213 | | Load 0x1,0x13
05f9 01d5 | | Execute Vector,Field_Reference
05fa 00d8 | | Load_Top At_Offset_0
05fb 00da | | Load_Top At_Offset_2
05fc 01dd | | Execute Vector,First
05fd 00db | | Load_Top At_Offset_3
05fe 01dc | | Execute Vector,Last
05ff 0afb | | Execute_Immediate Plus,-0x5
0600 00d8 | | Load_Top At_Offset_0
0601 00e2 | | Load_Encached Integer_Cache
0602 0260 | ` | Execute Discrete,In_Type
0603 7001 |p | Jump_Nonzero 0x605
0604 0801 | | Execute_Immediate Raise,0x1
0605 e602 | | Load 0x3,0x2
0606 01cf | | Execute Vector,Slice_Read
0607 e001 | | Load 0x0,0x1
0608 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0609 00d2 | | Pop_Control Pop_Count_2
060a e406 | | Load 0x2,0x6
060b 0a01 | | Execute_Immediate Plus,0x1
060c c406 | | Store 0x2,0x6
060d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
060e ; --------------------------------------------------------------------------------------
060e ; STRING TABLE
060e ; --------------------------------------------------------------------------------------
060e 004e | N | .STRTAB 0x004e->0x0635 ; "Build_Predefined_World"
060f 0062 | b | .STRTAB 0x0062->0x0640 ; "!targets."
0610 0069 | i | .STRTAB 0x0069->0x0644 ; "!Targets."
0611 0070 | p | .STRTAB 0x0070->0x0649 ; "Create_Predefined_Library completed"
0612 0091 | | .STRTAB 0x0091->0x065a ; "!targets"
0613 0097 | | .STRTAB 0x0097->0x065e ; "!Targets"
0614 009d | | .STRTAB 0x009d->0x0662 ; "Create_Predefined_Library failed"
0615 00bb | | .STRTAB 0x00bb->0x0672 ; "Io"
0616 00bb | | .STRTAB 0x00bb->0x0673 ; "Lrm"
0617 00bc | | .STRTAB 0x00bc->0x0675 ; "Reusable_Components"
0618 00cd | | .STRTAB 0x00cd->0x067e ; "Target_Interface"
0619 00db | | .STRTAB 0x00db->0x0686 ; "<PROFILE>"
061a 00e2 | | .STRTAB 0x00e2->0x068b ; "Registration of "
061b 00f1 | | .STRTAB 0x00f1->0x0693 ; " has completed. "
061c 0100 | | .STRTAB 0x0100->0x069c ; "Exception "
061d 0108 | | .STRTAB 0x0108->0x06a1 ; " caught in Register."
061e 011a | | .STRTAB 0x011a->0x06ab ; " was raised in "
061f 0127 | ' | .STRTAB 0x0127->0x06b2 ; ". "
0620 0128 | ( | .STRTAB 0x0128->0x06b4 ; "Unregistered "
0621 0133 | 3 | .STRTAB 0x0133->0x06ba ; " RCF."
0622 0136 | 6 | .STRTAB 0x0136->0x06bd ; "Destroyed "
0623 013e | > | .STRTAB 0x013e->0x06c2 ; "RCF ."
0624 0141 | A | .STRTAB 0x0141->0x06c4 ; " caught in UnRegister."
0625 0155 | U | .STRTAB 0x0155->0x06cf ; " is not registered"
0626 0165 | e | .STRTAB 0x0165->0x06d8 ; "Information on RCF customization for "
0627 0188 | | .STRTAB 0x0188->0x06eb ; " caught in Information."
0628 019d | | .STRTAB 0x019d->0x06f6 ; "Registered RCF Customizations: "
0629 01bb | | .STRTAB 0x01bb->0x0706 ; " "
062a 01bc | | .STRTAB 0x01bc->0x0708 ; "No registered RCF Customizations"
062b 01da | | .STRTAB 0x01da->0x0718 ; " caught in Display_All_Registered_Targets."
062c 0202 | | .STRTAB 0x0202->0x072d ; "!machine.rcf.@_defs"
062d 0213 | | .STRTAB 0x0213->0x0736 ; "."
062e 0212 | | .STRTAB 0x0212->0x0737 ; "No Operational Customizations Defined."
062f 0236 | 6 | .STRTAB 0x0236->0x074a ; "No Pragma Customizations Defined."
0630 0255 | U | .STRTAB 0x0255->0x075a ; "No Attribute Customizations Defined."
0631 0277 | w | .STRTAB 0x0277->0x076c ; "No Predefined Environment Customizations Defined."
0632 02a6 | | .STRTAB 0x02a6->0x0785 ; "No Rep Spec Customizations Defined."
0633 02c7 | | .STRTAB 0x02c7->0x0796 ; "No telnet Customizations Defined."
0634 02e6 | | .STREND 0x02e6->0x07a7
0635 4275 696c |Buil| .STRTAB_STRINGS
07a7 0000 | | .XXX[0x1]
07a8 ; --------------------------------------------------------------------------------------
07a8 ; Debug Table
07a8 ; --------------------------------------------------------------------------------------
07a8 0004 000c | | .DEBUG4 0x0004,0x000c,0x169e,0x0000,0x0001,0x0000
07ae ba37 b932 | 7 2| .XXX[0xb]
07b0 b210 283a | (:|
07b2 b932 9022 | 2 "|
07b4 b632 b6b2 | 2 |
07b6 b73a 1026 | : &|
07b8 b0b8 | |
07b9 0000 0000 | | .BLANK 0000[0xd]
07c6 0020 7e1f | ~ | .XXX[0x7]
07c8 f7eb ce50 | P|
07ca 3f0f fbf5 |? |
07cc e720 | |
07cd 0000 0000 | | .BLANK 0000[0x1a]
07e7 3544 6012 |5D` | .XXX[0x4]
07e9 0000 4000 | @ |
07eb 0000 0000 | | .BLANK 0000[0xb]
07f6 0800 0000 | | .XXX[0xa]
07f8 6000 0000 |` |
07fa 0000 0008 | |
07fc 0000 0038 | 8|
07fe 0000 0000 | |