|
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, 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 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦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 03e8 | | .CONST 0x03e8 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0010 | | .CONST 0x0010 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 000f 00c7 | | Action Elaborate_Subprogram 0010 BODY_0008: 0010 00bc | | Action Signal_Activated 0011 00bb | | Action Signal_Completion 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 0039 | 9 | .CONST 0x0039 ; Address of begin 0019 005b | [ | .CONST 0x005b ; Address of exception handler 001a 000e | | .CONST 0x000e ; Number of locals 001b INIT_0018: 001b e001 | | Load 0x0,0x1 001c 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 001d e001 | | Load 0x0,0x1 001e 1b13 | | Execute Package,Field_Read,Field_Number 0x13 001f 03f1 | | Declare_Variable Discrete,With_Value 0020 00e3 | | Load_Encached Natural_Cache 0021 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0022 00e3 | | Load_Encached Natural_Cache 0023 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0024 00e1 | | Load_Encached Boolean_Cache 0025 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0026 e002 | | Load 0x0,0x2 0027 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0028 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0029 0092 01f1 | | Action Push_String_Extended,0x1f1 ; "!Targets.Implementation.Rcf_Release" 002b 029f 00a3 | | Declare_Subprogram INIT_00a0,For_Call 002d 029f 00cb | | Declare_Subprogram INIT_00c8,For_Call 002f 029f 00e3 | | Declare_Subprogram INIT_00e0,For_Call 0031 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call 0033 029f 012b | +| Declare_Subprogram INIT_0128,For_Call 0035 029f 013b | ;| Declare_Subprogram INIT_0138,For_Call 0037 029f 016b | k| Declare_Subprogram INIT_0168,For_Call 0039 BODY_0018: 0039 e003 | | Load 0x0,0x3 003a 180e | | Execute Package,Field_Execute,Field_Number 0xe 003b 4800 |H | Short_Literal 0x0 003c 0092 01f2 | | Action Push_String_Extended,0x1f2 ; "Installing Customizable Rcf." 003e e004 | | Load 0x0,0x4 003f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0040 4803 |H | Short_Literal 0x3 0041 e003 | | Load 0x0,0x3 0042 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0043 840d | | Call 0x2,0xd 0044 e405 | | Load 0x2,0x5 0045 6801 |h | Jump_Zero 0x47 0046 840e | | Call 0x2,0xe 0047 840c | | Call 0x2,0xc 0048 e403 | | Load 0x2,0x3 0049 7008 |p | Jump_Nonzero 0x52 004a e003 | | Load 0x0,0x3 004b 180e | | Execute Package,Field_Execute,Field_Number 0xe 004c 4802 |H | Short_Literal 0x2 004d 0092 01f3 | | Action Push_String_Extended,0x1f3 ; "Successfully Restored Links " 004f e004 | | Load 0x0,0x4 0050 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0051 7807 |x | Jump 0x59 0052 e003 | | Load 0x0,0x3 0053 180e | | Execute Package,Field_Execute,Field_Number 0xe 0054 4806 |H | Short_Literal 0x6 0055 0092 01f4 | | Action Push_String_Extended,0x1f4 ; "Unable to restore Links to all Rcf commands. " 0057 e004 | | Load 0x0,0x4 0058 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0059 840b | | Call 0x2,0xb 005a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 005b TRAP_0018: 005b e005 | | Load 0x0,0x5 005c 010f | | Execute Exception,Equal 005d 6823 |h# | Jump_Zero 0x81 005e e404 | | Load 0x2,0x4 005f 0a01 | | Execute_Immediate Plus,0x1 0060 c404 | | Store 0x2,0x4 0061 e003 | | Load 0x0,0x3 0062 180e | | Execute Package,Field_Execute,Field_Number 0xe 0063 4807 |H | Short_Literal 0x7 0064 0092 01f5 | | Action Push_String_Extended,0x1f5 ; "Error: Current context is " 0066 e406 | | Load 0x2,0x6 0067 01cc | | Execute Vector,Catenate 0068 0092 01f6 | | Action Push_String_Extended,0x1f6 ; ", which is not of the format " 006a 01cc | | Execute Vector,Catenate 006b e407 | | Load 0x2,0x7 006c 01cc | | Execute Vector,Catenate 006d 0092 01f7 | | Action Push_String_Extended,0x1f7 ; "X_Y_Z, where \x22X_Y\x22 is the release number " 006f 01cc | | Execute Vector,Catenate 0070 0092 01f8 | | Action Push_String_Extended,0x1f8 ; "and \x22_Z\x22 is the version" 0072 01cc | | Execute Vector,Catenate 0073 e004 | | Load 0x0,0x4 0074 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0075 e003 | | Load 0x0,0x3 0076 180e | | Execute Package,Field_Execute,Field_Number 0xe 0077 4807 |H | Short_Literal 0x7 0078 0092 01f9 | | Action Push_String_Extended,0x1f9 ; "RCF Installation Completed with Errors" 007a e004 | | Load 0x0,0x4 007b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 007c 840b | | Call 0x2,0xb 007d e403 | | Load 0x2,0x3 007e 0a01 | | Execute_Immediate Plus,0x1 007f c403 | | Store 0x2,0x3 0080 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0081 e404 | | Load 0x2,0x4 0082 0a01 | | Execute_Immediate Plus,0x1 0083 c404 | | Store 0x2,0x4 0084 e003 | | Load 0x0,0x3 0085 180e | | Execute Package,Field_Execute,Field_Number 0xe 0086 4807 |H | Short_Literal 0x7 0087 4800 |H | Short_Literal 0x0 0088 4801 |H | Short_Literal 0x1 0089 e006 | | Load 0x0,0x6 008a 1815 | | Execute Package,Field_Execute,Field_Number 0x15 008b 0092 01fa | | Action Push_String_Extended,0x1fa ; " raised in Restore_Rcf" 008d 01cc | | Execute Vector,Catenate 008e e004 | | Load 0x0,0x4 008f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0090 e003 | | Load 0x0,0x3 0091 180e | | Execute Package,Field_Execute,Field_Number 0xe 0092 4807 |H | Short_Literal 0x7 0093 0092 01f9 | | Action Push_String_Extended,0x1f9 ; "RCF Installation Completed with Errors" 0095 e004 | | Load 0x0,0x4 0096 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0097 840b | | Call 0x2,0xb 0098 e403 | | Load 0x2,0x3 0099 0a01 | | Execute_Immediate Plus,0x1 009a c403 | | Store 0x2,0x3 009b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 009c 0000 0000 | | .BLANK 0000[0x4] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a3 | | .CONST 0x00a3 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0001 | | .CONST 0x0001 ; Number of locals 00a3 BODY_00a0: 00a3 INIT_00a0: 00a3 e406 | | Load 0x2,0x6 00a4 01db | | Execute Vector,Length 00a5 0c24 | $ | Execute_Immediate Greater_Equal,0x24 00a6 681e |h | Jump_Zero 0xc5 00a7 4801 |H | Short_Literal 0x1 00a8 e406 | | Load 0x2,0x6 00a9 01dd | | Execute Vector,First 00aa e406 | | Load 0x2,0x6 00ab 01dd | | Execute Vector,First 00ac 0a22 | " | Execute_Immediate Plus,0x22 00ad 00d8 | | Load_Top At_Offset_0 00ae 00e2 | | Load_Encached Integer_Cache 00af 0260 | ` | Execute Discrete,In_Type 00b0 7001 |p | Jump_Nonzero 0xb2 00b1 0801 | | Execute_Immediate Raise,0x1 00b2 e406 | | Load 0x2,0x6 00b3 01cf | | Execute Vector,Slice_Read 00b4 e407 | | Load 0x2,0x7 00b5 e007 | | Load 0x0,0x7 00b6 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00b7 680d |h | Jump_Zero 0xc5 00b8 e406 | | Load 0x2,0x6 00b9 01dd | | Execute Vector,First 00ba 0a23 | # | Execute_Immediate Plus,0x23 00bb 00d8 | | Load_Top At_Offset_0 00bc 00e2 | | Load_Encached Integer_Cache 00bd 0260 | ` | Execute Discrete,In_Type 00be 7001 |p | Jump_Nonzero 0xc0 00bf 0801 | | Execute_Immediate Raise,0x1 00c0 e406 | | Load 0x2,0x6 00c1 01dc | | Execute Vector,Last 00c2 e406 | | Load 0x2,0x6 00c3 01cf | | Execute Vector,Slice_Read 00c4 00ca | | Action Exit_Nullary_Function 00c5 e005 | | Load 0x0,0x5 00c6 0257 | W | Execute Discrete,Raise 00c7 0000 | | .XXX[0x1] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cd | | .CONST 0x00cd ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0002 | | .CONST 0x0002 ; Number of locals 00cb INIT_00c8: 00cb 029f 01a3 | | Declare_Subprogram INIT_01a0,For_Call 00cd BODY_00c8: 00cd 4801 |H | Short_Literal 0x1 00ce 0092 01fb | | Action Push_String_Extended,0x1fb ; "<DEFAULT>" 00d0 e5ff | | Load 0x2,-0x1 00d1 e007 | | Load 0x0,0x7 00d2 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00d3 6802 |h | Jump_Zero 0xd6 00d4 8602 | | Call 0x3,0x2 00d5 7804 |x | Jump 0xda 00d6 e5ff | | Load 0x2,-0x1 00d7 0335 | 5 | Declare_Variable Array,Duplicate 00d8 00cd | | Action Spare6_Action 00d9 00ca | | Action Exit_Nullary_Function 00da 0831 | 1 | Execute_Immediate Raise,0x31 00db 0000 0000 | | .BLANK 0000[0x5] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e5 | | .CONST 0x00e5 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0002 | | .CONST 0x0002 ; Number of locals 00e3 INIT_00e0: 00e3 029f 01c3 | | Declare_Subprogram INIT_01c0,For_Call 00e5 BODY_00e0: 00e5 4801 |H | Short_Literal 0x1 00e6 0092 01fb | | Action Push_String_Extended,0x1fb ; "<DEFAULT>" 00e8 e5fe | | Load 0x2,-0x2 00e9 e007 | | Load 0x0,0x7 00ea 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00eb 6802 |h | Jump_Zero 0xee 00ec 8602 | | Call 0x3,0x2 00ed 7804 |x | Jump 0xf2 00ee e5fe | | Load 0x2,-0x2 00ef 0335 | 5 | Declare_Variable Array,Duplicate 00f0 00cd | | Action Spare6_Action 00f1 00ca | | Action Exit_Nullary_Function 00f2 0831 | 1 | Execute_Immediate Raise,0x31 00f3 0000 0000 | | .BLANK 0000[0x5] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00fb | | .CONST 0x00fb ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0001 | | .CONST 0x0001 ; Number of locals 00fb BODY_00f8: 00fb INIT_00f8: 00fb e403 | | Load 0x2,0x3 00fc 700a |p | Jump_Nonzero 0x107 00fd e404 | | Load 0x2,0x4 00fe 7008 |p | Jump_Nonzero 0x107 00ff e003 | | Load 0x0,0x3 0100 180e | | Execute Package,Field_Execute,Field_Number 0xe 0101 4803 |H | Short_Literal 0x3 0102 0092 01fc | | Action Push_String_Extended,0x1fc ; "Installation of the RCF has completed successfully." 0104 e004 | | Load 0x0,0x4 0105 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0106 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0107 e403 | | Load 0x2,0x3 0108 0c01 | | Execute_Immediate Greater_Equal,0x1 0109 680f |h | Jump_Zero 0x119 010a e003 | | Load 0x0,0x3 010b 180e | | Execute Package,Field_Execute,Field_Number 0xe 010c 4803 |H | Short_Literal 0x3 010d 0092 01fd | | Action Push_String_Extended,0x1fd ; "Installation of the RCF completed with " 010f e403 | | Load 0x2,0x3 0110 00e0 | | Load_Encached Standard_Cache 0111 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0112 01cc | | Execute Vector,Catenate 0113 0092 01fe | | Action Push_String_Extended,0x1fe ; " warnings." 0115 01cc | | Execute Vector,Catenate 0116 e004 | | Load 0x0,0x4 0117 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0118 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0119 e003 | | Load 0x0,0x3 011a 180e | | Execute Package,Field_Execute,Field_Number 0xe 011b 4803 |H | Short_Literal 0x3 011c 0092 01fd | | Action Push_String_Extended,0x1fd ; "Installation of the RCF completed with " 011e e404 | | Load 0x2,0x4 011f 00e0 | | Load_Encached Standard_Cache 0120 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0121 01cc | | Execute Vector,Catenate 0122 0092 01ff | | Action Push_String_Extended,0x1ff ; " errors." 0124 01cc | | Execute Vector,Catenate 0125 e004 | | Load 0x0,0x4 0126 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0127 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 012f | / | .CONST 0x012f ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0003 | | .CONST 0x0003 ; Number of locals 012b INIT_0128: 012b 0092 0200 | | Action Push_String_Extended,0x200 ; "!targets.implementation.rcf_user_interface'spec_view.units.@'spec" 012d 029f 01db | | Declare_Subprogram INIT_01d8,For_Call 012f BODY_0128: 012f e003 | | Load 0x0,0x3 0130 180e | | Execute Package,Field_Execute,Field_Number 0xe 0131 4802 |H | Short_Literal 0x2 0132 0092 0201 | | Action Push_String_Extended,0x201 ; "Replacing Links to Rcf_User_Interface" 0134 e004 | | Load 0x0,0x4 0135 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0136 8603 | | Call 0x3,0x3 0137 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 013b | ; | .CONST 0x013b ; Address of begin 0139 0151 | Q | .CONST 0x0151 ; Address of exception handler 013a 0001 | | .CONST 0x0001 ; Number of locals 013b BODY_0138: 013b INIT_0138: 013b 0092 0202 | | Action Push_String_Extended,0x202 ; "<PROFILE>" 013d 0092 0203 | | Action Push_String_Extended,0x203 ; "!targets.implementation.rcf_release" 013f 8409 | | Call 0x2,0x9 0140 01cc | | Execute Vector,Catenate 0141 840a | | Call 0x2,0xa 0142 01cc | | Execute Vector,Catenate 0143 0092 0204 | | Action Push_String_Extended,0x204 ; ".activity_archive" 0145 01cc | | Execute Vector,Catenate 0146 0092 0205 | | Action Push_String_Extended,0x205 ; "R1000" 0148 0092 0206 | | Action Push_String_Extended,0x206 ; "*" 014a 0092 0206 | | Action Push_String_Extended,0x206 ; "*" 014c 0092 0207 | | Action Push_String_Extended,0x207 ; "?" 014e e008 | | Load 0x0,0x8 014f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0150 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0151 TRAP_0138: 0151 0007 | | Action Break_Optional 0152 e403 | | Load 0x2,0x3 0153 0a01 | | Execute_Immediate Plus,0x1 0154 c403 | | Store 0x2,0x3 0155 e003 | | Load 0x0,0x3 0156 180e | | Execute Package,Field_Execute,Field_Number 0xe 0157 4806 |H | Short_Literal 0x6 0158 0092 0208 | | Action Push_String_Extended,0x208 ; "Unable to restore the RCF Activity from!targets.implementation.rcf_release" 015a 8409 | | Call 0x2,0x9 015b 01cc | | Execute Vector,Catenate 015c 840a | | Call 0x2,0xa 015d 01cc | | Execute Vector,Catenate 015e 0092 0204 | | Action Push_String_Extended,0x204 ; ".activity_archive" 0160 01cc | | Execute Vector,Catenate 0161 e004 | | Load 0x0,0x4 0162 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0163 4800 |H | Short_Literal 0x0 0164 a405 | | Store_Unchecked 0x2,0x5 0165 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0166 0000 0000 | | .XXX[0x2] 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 016b | k | .CONST 0x016b ; Address of begin 0169 0182 | | .CONST 0x0182 ; Address of exception handler 016a 0001 | | .CONST 0x0001 ; Number of locals 016b BODY_0168: 016b INIT_0168: 016b 0092 0202 | | Action Push_String_Extended,0x202 ; "<PROFILE>" 016d 0092 0209 | | Action Push_String_Extended,0x209 ; "!machine.release.current.activity" 016f 4801 |H | Short_Literal 0x1 0170 0092 0207 | | Action Push_String_Extended,0x207 ; "?" 0172 0092 0207 | | Action Push_String_Extended,0x207 ; "?" 0174 0092 0207 | | Action Push_String_Extended,0x207 ; "?" 0176 0092 0203 | | Action Push_String_Extended,0x203 ; "!targets.implementation.rcf_release" 0178 8409 | | Call 0x2,0x9 0179 01cc | | Execute Vector,Catenate 017a 840a | | Call 0x2,0xa 017b 01cc | | Execute Vector,Catenate 017c 0092 020a | | Action Push_String_Extended,0x20a ; ".install_activity" 017e 01cc | | Execute Vector,Catenate 017f e009 | | Load 0x0,0x9 0180 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0181 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0182 TRAP_0168: 0182 0007 | | Action Break_Optional 0183 e403 | | Load 0x2,0x3 0184 0a01 | | Execute_Immediate Plus,0x1 0185 c403 | | Store 0x2,0x3 0186 e003 | | Load 0x0,0x3 0187 180e | | Execute Package,Field_Execute,Field_Number 0xe 0188 4806 |H | Short_Literal 0x6 0189 0092 020b | | Action Push_String_Extended,0x20b ; "Unable to merge RCF activity, !targets.implementation.rcf_release" 018b 8409 | | Call 0x2,0x9 018c 01cc | | Execute Vector,Catenate 018d 840a | | Call 0x2,0xa 018e 01cc | | Execute Vector,Catenate 018f 0092 020c | | Action Push_String_Extended,0x20c ; ".activity_file, with " 0191 01cc | | Execute Vector,Catenate 0192 0092 0209 | | Action Push_String_Extended,0x209 ; "!machine.release.current.activity" 0194 01cc | | Execute Vector,Catenate 0195 e004 | | Load 0x0,0x4 0196 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0197 4800 |H | Short_Literal 0x0 0198 a405 | | Store_Unchecked 0x2,0x5 0199 4501 |E | Exit_Suprogram New_Top_Offset 0x1 019a 0000 0000 | | .BLANK 0000[0x6] 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01aa | | .CONST 0x01aa ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0003 | | .CONST 0x0003 ; Number of locals 01a3 INIT_01a0: 01a3 8408 | | Call 0x2,0x8 01a4 4801 |H | Short_Literal 0x1 01a5 00d9 | | Load_Top At_Offset_1 01a6 0092 020d | | Action Push_String_Extended,0x20d ; "_" 01a8 e007 | | Load 0x0,0x7 01a9 181f | | Execute Package,Field_Execute,Field_Number 0x1f 01aa BODY_01a0: 01aa 00d8 | | Load_Top At_Offset_0 01ab 00da | | Load_Top At_Offset_2 01ac 01dd | | Execute Vector,First 01ad 027d | } | Execute Discrete,Greater 01ae 680d |h | Jump_Zero 0x1bc 01af 00d9 | | Load_Top At_Offset_1 01b0 01dd | | Execute Vector,First 01b1 00d9 | | Load_Top At_Offset_1 01b2 0aff | | Execute_Immediate Plus,-0x1 01b3 00d8 | | Load_Top At_Offset_0 01b4 00e2 | | Load_Encached Integer_Cache 01b5 0260 | ` | Execute Discrete,In_Type 01b6 7001 |p | Jump_Nonzero 0x1b8 01b7 0801 | | Execute_Immediate Raise,0x1 01b8 00db | | Load_Top At_Offset_3 01b9 01cf | | Execute Vector,Slice_Read 01ba 00cb | | Action Pop_Block_With_Result 01bb 00ca | | Action Exit_Nullary_Function 01bc e005 | | Load 0x0,0x5 01bd 0257 | W | Execute Discrete,Raise 01be 0000 0000 | | .XXX[0x2] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01ca | | .CONST 0x01ca ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0003 | | .CONST 0x0003 ; Number of locals 01c3 INIT_01c0: 01c3 8408 | | Call 0x2,0x8 01c4 4801 |H | Short_Literal 0x1 01c5 00d9 | | Load_Top At_Offset_1 01c6 0092 020d | | Action Push_String_Extended,0x20d ; "_" 01c8 e007 | | Load 0x0,0x7 01c9 181f | | Execute Package,Field_Execute,Field_Number 0x1f 01ca BODY_01c0: 01ca 00d8 | | Load_Top At_Offset_0 01cb 00da | | Load_Top At_Offset_2 01cc 01dd | | Execute Vector,First 01cd 027d | } | Execute Discrete,Greater 01ce 6807 |h | Jump_Zero 0x1d6 01cf 00d8 | | Load_Top At_Offset_0 01d0 00da | | Load_Top At_Offset_2 01d1 01dc | | Execute Vector,Last 01d2 00db | | Load_Top At_Offset_3 01d3 01cf | | Execute Vector,Slice_Read 01d4 00cb | | Action Pop_Block_With_Result 01d5 00ca | | Action Exit_Nullary_Function 01d6 e005 | | Load 0x0,0x5 01d7 0257 | W | Execute Discrete,Raise 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01db | | .CONST 0x01db ; Address of begin 01d9 01e5 | | .CONST 0x01e5 ; Address of exception handler 01da 0001 | | .CONST 0x0001 ; Number of locals 01db BODY_01d8: 01db INIT_01d8: 01db 0092 0202 | | Action Push_String_Extended,0x202 ; "<PROFILE>" 01dd 0092 020e | | Action Push_String_Extended,0x20e ; "!machine.release.current.commands" 01df 0092 020f | | Action Push_String_Extended,0x20f ; "#" 01e1 e602 | | Load 0x3,0x2 01e2 e00a | | Load 0x0,0xa 01e3 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01e4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01e5 TRAP_01d8: 01e5 0007 | | Action Break_Optional 01e6 e403 | | Load 0x2,0x3 01e7 0a01 | | Execute_Immediate Plus,0x1 01e8 c403 | | Store 0x2,0x3 01e9 e003 | | Load 0x0,0x3 01ea 180e | | Execute Package,Field_Execute,Field_Number 0xe 01eb 4806 |H | Short_Literal 0x6 01ec 0092 0210 | | Action Push_String_Extended,0x210 ; "Unable to define links to !targets.implementation.rcf_user_interface'spec_view.units.@'spec" 01ee e004 | | Load 0x0,0x4 01ef 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01f0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01f1 ; -------------------------------------------------------------------------------------- 01f1 ; STRING TABLE 01f1 ; -------------------------------------------------------------------------------------- 01f1 0042 | B | .STRTAB 0x0042->0x0212 ; "!Targets.Implementation.Rcf_Release" 01f2 0063 | c | .STRTAB 0x0063->0x0223 ; "Installing Customizable Rcf." 01f3 007d | } | .STRTAB 0x007d->0x0231 ; "Successfully Restored Links " 01f4 0097 | | .STRTAB 0x0097->0x023f ; "Unable to restore Links to all Rcf commands. " 01f5 00c2 | | .STRTAB 0x00c2->0x0256 ; "Error: Current context is " 01f6 00da | | .STRTAB 0x00da->0x0263 ; ", which is not of the format " 01f7 00f6 | | .STRTAB 0x00f6->0x0272 ; "X_Y_Z, where \x22X_Y\x22 is the release number " 01f8 011d | | .STRTAB 0x011d->0x0286 ; "and \x22_Z\x22 is the version" 01f9 0132 | 2 | .STRTAB 0x0132->0x0292 ; "RCF Installation Completed with Errors" 01fa 0156 | V | .STRTAB 0x0156->0x02a5 ; " raised in Restore_Rcf" 01fb 016a | j | .STRTAB 0x016a->0x02b0 ; "<DEFAULT>" 01fc 0171 | q | .STRTAB 0x0171->0x02b4 ; "Installation of the RCF has completed successfully." 01fd 01a2 | | .STRTAB 0x01a2->0x02ce ; "Installation of the RCF completed with " 01fe 01c7 | | .STRTAB 0x01c7->0x02e1 ; " warnings." 01ff 01cf | | .STRTAB 0x01cf->0x02e6 ; " errors." 0200 01d5 | | .STRTAB 0x01d5->0x02ea ; "!targets.implementation.rcf_user_interface'spec_view.units.@'spec" 0201 0214 | | .STRTAB 0x0214->0x030b ; "Replacing Links to Rcf_User_Interface" 0202 0237 | 7 | .STRTAB 0x0237->0x031d ; "<PROFILE>" 0203 023e | > | .STRTAB 0x023e->0x0322 ; "!targets.implementation.rcf_release" 0204 025f | _ | .STRTAB 0x025f->0x0333 ; ".activity_archive" 0205 026e | n | .STRTAB 0x026e->0x033c ; "R1000" 0206 0271 | q | .STRTAB 0x0271->0x033e ; "*" 0207 0270 | p | .STRTAB 0x0270->0x033f ; "?" 0208 026f | o | .STRTAB 0x026f->0x033f ; "Unable to restore the RCF Activity from!targets.implementation.rcf_release" 0209 02b7 | | .STRTAB 0x02b7->0x0364 ; "!machine.release.current.activity" 020a 02d6 | | .STRTAB 0x02d6->0x0375 ; ".install_activity" 020b 02e5 | | .STRTAB 0x02e5->0x037d ; "Unable to merge RCF activity, !targets.implementation.rcf_release" 020c 0324 | $ | .STRTAB 0x0324->0x039e ; ".activity_file, with " 020d 0337 | 7 | .STRTAB 0x0337->0x03a8 ; "_" 020e 0336 | 6 | .STRTAB 0x0336->0x03a9 ; "!machine.release.current.commands" 020f 0355 | U | .STRTAB 0x0355->0x03b9 ; "#" 0210 0354 | T | .STRTAB 0x0354->0x03ba ; "Unable to define links to !targets.implementation.rcf_user_interface'spec_view.units.@'spec" 0211 03ad | | .STREND 0x03ad->0x03e7 0212 2154 6172 |!Tar| .STRTAB_STRINGS 03e8 ; -------------------------------------------------------------------------------------- 03e8 ; Debug Table 03e8 ; -------------------------------------------------------------------------------------- 03e8 0004 000b | | .DEBUG4 0x0004,0x000b,0xe196,0x0000,0x0001,0x0000 03ee 0000 0000 | | .BLANK 0000[0x12]