|
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_0d2ce3
└─⟦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 0340 | @ | .CONST 0x0340 ; 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 8001 | | .CONST 0x8001 ; 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 0047 | G | .CONST 0x0047 ; Address of begin 0019 0084 | | .CONST 0x0084 ; Address of exception handler 001a 000b | | .CONST 0x000b ; Number of locals 001b INIT_0018: 001b e001 | | Load 0x0,0x1 001c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 001d 02c7 | | Declare_Variable Any 001e e001 | | Load 0x0,0x1 001f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0020 a402 | | Store_Unchecked 0x2,0x2 0021 e001 | | Load 0x0,0x1 0022 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0023 02c7 | | Declare_Variable Any 0024 e5fd | | Load 0x2,-0x3 0025 e001 | | Load 0x0,0x1 0026 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0027 a403 | | Store_Unchecked 0x2,0x3 0028 e002 | | Load 0x0,0x2 0029 1b19 | | Execute Package,Field_Read,Field_Number 0x19 002a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 002b 02c7 | | Declare_Variable Any 002c e002 | | Load 0x0,0x2 002d 1b19 | | Execute Package,Field_Read,Field_Number 0x19 002e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 002f a404 | | Store_Unchecked 0x2,0x4 0030 00d8 | | Load_Top At_Offset_0 0031 e002 | | Load 0x0,0x2 0032 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0033 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 0034 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0035 e002 | | Load 0x0,0x2 0036 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0037 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0038 02c7 | | Declare_Variable Any 0039 00d8 | | Load_Top At_Offset_0 003a 1c00 | | Execute_Immediate Run_Utility,0x0 003b e003 | | Load 0x0,0x3 003c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 003d 02c7 | | Declare_Variable Any 003e 00d8 | | Load_Top At_Offset_0 003f 1c00 | | Execute_Immediate Run_Utility,0x0 0040 00e1 | | Load_Encached Boolean_Cache 0041 029f 00ab | | Declare_Subprogram INIT_00a8,For_Call 0043 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call 0045 029f 016b | k| Declare_Subprogram INIT_0168,For_Call 0047 BODY_0018: 0047 e403 | | Load 0x2,0x3 0048 e001 | | Load 0x0,0x1 0049 1810 | | Execute Package,Field_Execute,Field_Number 0x10 004a e001 | | Load 0x0,0x1 004b 180e | | Execute Package,Field_Execute,Field_Number 0xe 004c 4800 |H | Short_Literal 0x0 004d 0092 022b | +| Action Push_String_Extended,0x22b ; "[Check_Configuration (Subsystem_List => \x22" 004f e5ff | | Load 0x2,-0x1 0050 01cc | | Execute Vector,Catenate 0051 0092 022c | ,| Action Push_String_Extended,0x22c ; "\x22, Config_Name => \x22" 0053 01cc | | Execute Vector,Catenate 0054 e5fe | | Load 0x2,-0x2 0055 01cc | | Execute Vector,Catenate 0056 0092 022d | -| Action Push_String_Extended,0x22d ; "\x22, Response => \x22" 0058 01cc | | Execute Vector,Catenate 0059 e5fd | | Load 0x2,-0x3 005a 01cc | | Execute Vector,Catenate 005b 0092 022e | .| Action Push_String_Extended,0x22e ; "\x22);]" 005d 01cc | | Execute Vector,Catenate 005e e004 | | Load 0x0,0x4 005f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0060 4801 |H | Short_Literal 0x1 0061 0092 022f | /| Action Push_String_Extended,0x22f ; "<RELEASE>" 0063 e5fe | | Load 0x2,-0x2 0064 e005 | | Load 0x0,0x5 0065 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0066 6804 |h | Jump_Zero 0x6b 0067 e5ff | | Load 0x2,-0x1 0068 840b | | Call 0x2,0xb 0069 840a | | Call 0x2,0xa 006a 780e |x | Jump 0x79 006b 4801 |H | Short_Literal 0x1 006c 0092 0230 | 0| Action Push_String_Extended,0x230 ; "<DEFAULT>" 006e e5fe | | Load 0x2,-0x2 006f e005 | | Load 0x0,0x5 0070 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0071 6804 |h | Jump_Zero 0x76 0072 e5ff | | Load 0x2,-0x1 0073 e405 | | Load 0x2,0x5 0074 840a | | Call 0x2,0xa 0075 7803 |x | Jump 0x79 0076 e5ff | | Load 0x2,-0x1 0077 e5fe | | Load 0x2,-0x2 0078 840a | | Call 0x2,0xa 0079 e001 | | Load 0x0,0x1 007a 180e | | Execute Package,Field_Execute,Field_Number 0xe 007b 4800 |H | Short_Literal 0x0 007c 0092 0231 | 1| Action Push_String_Extended,0x231 ; "[Check_Configuration has finished]" 007e e004 | | Load 0x0,0x4 007f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0080 e402 | | Load 0x2,0x2 0081 e001 | | Load 0x0,0x1 0082 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0083 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0084 TRAP_0018: 0084 e006 | | Load 0x0,0x6 0085 010f | | Execute Exception,Equal 0086 6804 |h | Jump_Zero 0x8b 0087 e402 | | Load 0x2,0x2 0088 e001 | | Load 0x0,0x1 0089 1810 | | Execute Package,Field_Execute,Field_Number 0x10 008a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 008b e001 | | Load 0x0,0x1 008c 180e | | Execute Package,Field_Execute,Field_Number 0xe 008d 4808 |H | Short_Literal 0x8 008e 4801 |H | Short_Literal 0x1 008f 4801 |H | Short_Literal 0x1 0090 e007 | | Load 0x0,0x7 0091 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0092 e004 | | Load 0x0,0x4 0093 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0094 e001 | | Load 0x0,0x1 0095 180e | | Execute Package,Field_Execute,Field_Number 0xe 0096 e001 | | Load 0x0,0x1 0097 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0098 6805 |h | Jump_Zero 0x9e 0099 e402 | | Load 0x2,0x2 009a e001 | | Load 0x0,0x1 009b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 009c 00d8 | | Load_Top At_Offset_0 009d 0101 | | Execute Exception,Reraise 009e e402 | | Load 0x2,0x2 009f e001 | | Load 0x0,0x1 00a0 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00a1 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00a2 0000 0000 | | .BLANK 0000[0x6] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00b1 | | .CONST 0x00b1 ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0003 | | .CONST 0x0003 ; Number of locals 00ab INIT_00a8: 00ab 00da | | Load_Top At_Offset_2 00ac 01dd | | Execute Vector,First 00ad 00e2 | | Load_Encached Integer_Cache 00ae 03f1 | | Declare_Variable Discrete,With_Value 00af 00e2 | | Load_Encached Integer_Cache 00b0 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00b1 BODY_00a8: 00b1 00cf | | Action Mark_Auxiliary 00b2 e7ff | | Load 0x3,-0x1 00b3 01d9 | | Execute Vector,Reverse_Bounds 00b4 0263 | c | Execute Discrete,Above_Bound 00b5 701f |p | Jump_Nonzero 0xd5 00b6 00d8 | | Load_Top At_Offset_0 00b7 e7ff | | Load 0x3,-0x1 00b8 01d7 | | Execute Vector,Field_Read 00b9 0f20 | | Execute_Immediate Equal,0x20 00ba 6818 |h | Jump_Zero 0xd3 00bb e602 | | Load 0x3,0x2 00bc 00d9 | | Load_Top At_Offset_1 00bd 027f | | Execute Discrete,Equal 00be 6804 |h | Jump_Zero 0xc3 00bf 00d8 | | Load_Top At_Offset_0 00c0 0a01 | | Execute_Immediate Plus,0x1 00c1 c602 | | Store 0x3,0x2 00c2 7810 |x | Jump 0xd3 00c3 00db | | Load_Top At_Offset_3 00c4 0a01 | | Execute_Immediate Plus,0x1 00c5 c603 | | Store 0x3,0x3 00c6 00db | | Load_Top At_Offset_3 00c7 e7fe | | Load 0x3,-0x2 00c8 027f | | Execute Discrete,Equal 00c9 6806 |h | Jump_Zero 0xd0 00ca e602 | | Load 0x3,0x2 00cb 00d9 | | Load_Top At_Offset_1 00cc 0aff | | Execute_Immediate Plus,-0x1 00cd e7ff | | Load 0x3,-0x1 00ce 01cf | | Execute Vector,Slice_Read 00cf 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00d0 00d8 | | Load_Top At_Offset_0 00d1 0a01 | | Execute_Immediate Plus,0x1 00d2 c602 | | Store 0x3,0x2 00d3 00c8 | | Action Pop_Auxiliary_Range 00d4 3fe1 |? | Loop_Increasing 0xb6 00d5 00ce | | Action Pop_Auxiliary 00d6 00d8 | | Load_Top At_Offset_0 00d7 0a01 | | Execute_Immediate Plus,0x1 00d8 0059 | Y | Store_Top Discrete,At_Offset_1 00d9 00d8 | | Load_Top At_Offset_0 00da e7fe | | Load 0x3,-0x2 00db 027f | | Execute Discrete,Equal 00dc 6806 |h | Jump_Zero 0xe3 00dd 00d9 | | Load_Top At_Offset_1 00de e7ff | | Load 0x3,-0x1 00df 01dc | | Execute Vector,Last 00e0 e7ff | | Load 0x3,-0x1 00e1 01cf | | Execute Vector,Slice_Read 00e2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00e3 00ea | | Load_Encached Null_String_Cache 00e4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00e5 0000 0000 | | .XXX[0x3] 00e7 0000 | | 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00f5 | | .CONST 0x00f5 ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0004 | | .CONST 0x0004 ; Number of locals 00eb INIT_00e8: 00eb e002 | | Load 0x0,0x2 00ec 1b19 | | Execute Package,Field_Read,Field_Number 0x19 00ed 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 00ee 02c7 | | Declare_Variable Any 00ef 00d8 | | Load_Top At_Offset_0 00f0 1c00 | | Execute_Immediate Run_Utility,0x0 00f1 029f 01a3 | | Declare_Subprogram INIT_01a0,For_Call 00f3 029f 01bb | | Declare_Subprogram INIT_01b8,For_Call 00f5 BODY_00e8: 00f5 00be | | Action Activate_Tasks 00f6 4801 |H | Short_Literal 0x1 00f7 e405 | | Load 0x2,0x5 00f8 e7ff | | Load 0x3,-0x1 00f9 e005 | | Load 0x0,0x5 00fa 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00fb 7037 |p7 | Jump_Nonzero 0x133 00fc e001 | | Load 0x0,0x1 00fd 180e | | Execute Package,Field_Execute,Field_Number 0xe 00fe 4807 |H | Short_Literal 0x7 00ff 0092 0232 | 2| Action Push_String_Extended,0x232 ; "'" 0101 e7ff | | Load 0x3,-0x1 0102 01cc | | Execute Vector,Catenate 0103 0092 0233 | 3| Action Push_String_Extended,0x233 ; "' is not the default configuration" 0105 01cc | | Execute Vector,Catenate 0106 e004 | | Load 0x0,0x4 0107 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0108 e001 | | Load 0x0,0x1 0109 180e | | Execute Package,Field_Execute,Field_Number 0xe 010a 4802 |H | Short_Literal 0x2 010b 0092 0234 | 4| Action Push_String_Extended,0x234 ; "The default configuration is '" 010d e405 | | Load 0x2,0x5 010e 01cc | | Execute Vector,Catenate 010f 0092 0232 | 2| Action Push_String_Extended,0x232 ; "'" 0111 01cc | | Execute Vector,Catenate 0112 e004 | | Load 0x0,0x4 0113 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0114 00e1 | | Load_Encached Boolean_Cache 0115 e404 | | Load 0x2,0x4 0116 0120 | | Execute Any,Is_Value 0117 6804 |h | Jump_Zero 0x11c 0118 e002 | | Load 0x0,0x2 0119 1b19 | | Execute Package,Field_Read,Field_Number 0x19 011a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 011b 7801 |x | Jump 0x11d 011c e404 | | Load 0x2,0x4 011d e7ff | | Load 0x3,-0x1 011e e002 | | Load 0x0,0x2 011f 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0120 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 0121 180f | | Execute Package,Field_Execute,Field_Number 0xf 0122 c404 | | Store 0x2,0x4 0123 c408 | | Store 0x2,0x8 0124 e408 | | Load 0x2,0x8 0125 700d |p | Jump_Nonzero 0x133 0126 e001 | | Load 0x0,0x1 0127 180e | | Execute Package,Field_Execute,Field_Number 0xe 0128 4805 |H | Short_Literal 0x5 0129 0092 0235 | 5| Action Push_String_Extended,0x235 ; "A configuration named '" 012b e7ff | | Load 0x3,-0x1 012c 01cc | | Execute Vector,Catenate 012d 0092 0236 | 6| Action Push_String_Extended,0x236 ; "' doesn't exist" 012f 01cc | | Execute Vector,Catenate 0130 e004 | | Load 0x0,0x4 0131 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0132 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0133 8603 | | Call 0x3,0x3 0134 4802 |H | Short_Literal 0x2 0135 e407 | | Load 0x2,0x7 0136 e003 | | Load 0x0,0x3 0137 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 0138 00da | | Load_Top At_Offset_2 0139 e404 | | Load 0x2,0x4 013a e002 | | Load 0x0,0x2 013b 1b19 | | Execute Package,Field_Read,Field_Number 0x19 013c 1820 | | Execute Package,Field_Execute,Field_Number 0x20 013d c602 | | Store 0x3,0x2 013e 00cf | | Action Mark_Auxiliary 013f 780c |x | Jump 0x14c 0140 00db | | Load_Top At_Offset_3 0141 e002 | | Load 0x0,0x2 0142 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0143 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0144 c406 | | Store 0x2,0x6 0145 8604 | | Call 0x3,0x4 0146 00db | | Load_Top At_Offset_3 0147 e002 | | Load 0x0,0x2 0148 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0149 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 014a c602 | | Store 0x3,0x2 014b 00c9 | | Action Pop_Auxiliary_Loop 014c 00db | | Load_Top At_Offset_3 014d e002 | | Load 0x0,0x2 014e 1b19 | | Execute Package,Field_Read,Field_Number 0x19 014f 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0150 6fef |o | Jump_Zero 0x140 0151 00ce | | Action Pop_Auxiliary 0152 e001 | | Load 0x0,0x1 0153 180e | | Execute Package,Field_Execute,Field_Number 0xe 0154 4803 |H | Short_Literal 0x3 0155 0092 0237 | 7| Action Push_String_Extended,0x237 ; "Configuration '" 0157 e7ff | | Load 0x3,-0x1 0158 01cc | | Execute Vector,Catenate 0159 0092 0238 | 8| Action Push_String_Extended,0x238 ; "' is complete" 015b 01cc | | Execute Vector,Catenate 015c e004 | | Load 0x0,0x4 015d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 015e e407 | | Load 0x2,0x7 015f e003 | | Load 0x0,0x3 0160 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0161 c407 | | Store 0x2,0x7 0162 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0163 0000 0000 | | .BLANK 0000[0x5] 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 0173 | s | .CONST 0x0173 ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0003 | | .CONST 0x0003 ; Number of locals 016b INIT_0168: 016b e008 | | Load 0x0,0x8 016c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 016d 02c7 | | Declare_Variable Any 016e 00d8 | | Load_Top At_Offset_0 016f 1c00 | | Execute_Immediate Run_Utility,0x0 0170 e008 | | Load 0x0,0x8 0171 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0172 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0173 BODY_0168: 0173 e008 | | Load 0x0,0x8 0174 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0175 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0176 00da | | Load_Top At_Offset_2 0177 0120 | | Execute Any,Is_Value 0178 6803 |h | Jump_Zero 0x17c 0179 e008 | | Load 0x0,0x8 017a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 017b 7801 |x | Jump 0x17d 017c 00da | | Load_Top At_Offset_2 017d 601e |` | Indirect_Literal Discrete,0x19c,{0x00000000, 0x00004000} 017e e009 | | Load 0x0,0x9 017f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0180 e00a | | Load 0x0,0xa 0181 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0182 e008 | | Load 0x0,0x8 0183 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0184 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0185 0092 0239 | 9| Action Push_String_Extended,0x239 ; "$$[D_@]" 0187 e008 | | Load 0x0,0x8 0188 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0189 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 018a c602 | | Store 0x3,0x2 018b 0059 | Y | Store_Top Discrete,At_Offset_1 018c 00d8 | | Load_Top At_Offset_0 018d 7005 |p | Jump_Nonzero 0x193 018e 00d9 | | Load_Top At_Offset_1 018f e008 | | Load 0x0,0x8 0190 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0191 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0192 00ca | | Action Exit_Nullary_Function 0193 e001 | | Load 0x0,0x1 0194 180e | | Execute Package,Field_Execute,Field_Number 0xe 0195 4807 |H | Short_Literal 0x7 0196 0092 023a | :| Action Push_String_Extended,0x23a ; "This command must be run from inside a release world, or else Config_Name must be passed a value other than <RELEASE>." 0198 e004 | | Load 0x0,0x4 0199 1813 | | Execute Package,Field_Execute,Field_Number 0x13 019a e006 | | Load 0x0,0x6 019b 0257 | W | Execute Discrete,Raise 019c 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a3 | | .CONST 0x01a3 ; Address of begin 01a1 01ab | | .CONST 0x01ab ; Address of exception handler 01a2 0001 | | .CONST 0x0001 ; Number of locals 01a3 BODY_01a0: 01a3 INIT_01a0: 01a3 e407 | | Load 0x2,0x7 01a4 00ea | | Load_Encached Null_String_Cache 01a5 e7fe | | Load 0x3,-0x2 01a6 4800 |H | Short_Literal 0x0 01a7 e003 | | Load 0x0,0x3 01a8 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01a9 c407 | | Store 0x2,0x7 01aa 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01ab TRAP_01a0: 01ab 0007 | | Action Break_Optional 01ac e001 | | Load 0x0,0x1 01ad 180e | | Execute Package,Field_Execute,Field_Number 0xe 01ae 4807 |H | Short_Literal 0x7 01af 0092 023b | ;| Action Push_String_Extended,0x23b ; "Can't open " 01b1 e7fe | | Load 0x3,-0x2 01b2 01cc | | Execute Vector,Catenate 01b3 e004 | | Load 0x0,0x4 01b4 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01b5 00cc | | Action Pop_Block 01b6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01b7 0000 | | .XXX[0x1] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01c4 | | .CONST 0x01c4 ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0004 | | .CONST 0x0004 ; Number of locals 01bb INIT_01b8: 01bb e407 | | Load 0x2,0x7 01bc e003 | | Load 0x0,0x3 01bd 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 01be 4801 |H | Short_Literal 0x1 01bf 00d9 | | Load_Top At_Offset_1 01c0 8409 | | Call 0x2,0x9 01c1 4802 |H | Short_Literal 0x2 01c2 00da | | Load_Top At_Offset_2 01c3 8409 | | Call 0x2,0x9 01c4 BODY_01b8: 01c4 4801 |H | Short_Literal 0x1 01c5 e406 | | Load 0x2,0x6 01c6 e002 | | Load 0x0,0x2 01c7 1b18 | | Execute Package,Field_Read,Field_Number 0x18 01c8 1b12 | | Execute Package,Field_Read,Field_Number 0x12 01c9 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01ca 00db | | Load_Top At_Offset_3 01cb e005 | | Load 0x0,0x5 01cc 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 01cd 700e |p | Jump_Nonzero 0x1dc 01ce e001 | | Load 0x0,0x1 01cf 180e | | Execute Package,Field_Execute,Field_Number 0xe 01d0 4805 |H | Short_Literal 0x5 01d1 0092 0237 | 7| Action Push_String_Extended,0x237 ; "Configuration '" 01d3 e7ff | | Load 0x3,-0x1 01d4 01cc | | Execute Vector,Catenate 01d5 0092 023c | <| Action Push_String_Extended,0x23c ; "' is not complete." 01d7 01cc | | Execute Vector,Catenate 01d8 e004 | | Load 0x0,0x4 01d9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01da 00cc | | Action Pop_Block 01db 7f75 | u | Jump 0x151 01dc 4801 |H | Short_Literal 0x1 01dd 0092 023d | =| Action Push_String_Extended,0x23d ; "ELABORATOR_DATABASE" 01df 00db | | Load_Top At_Offset_3 01e0 e005 | | Load 0x0,0x5 01e1 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 01e2 6802 |h | Jump_Zero 0x1e5 01e3 00cc | | Action Pop_Block 01e4 7f6c | l | Jump 0x151 01e5 4801 |H | Short_Literal 0x1 01e6 e406 | | Load 0x2,0x6 01e7 e002 | | Load 0x0,0x2 01e8 1b18 | | Execute Package,Field_Read,Field_Number 0x18 01e9 1b12 | | Execute Package,Field_Read,Field_Number 0x12 01ea 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01eb 00da | | Load_Top At_Offset_2 01ec e005 | | Load 0x0,0x5 01ed 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 01ee 703b |p; | Jump_Nonzero 0x22a 01ef 4801 |H | Short_Literal 0x1 01f0 e406 | | Load 0x2,0x6 01f1 e002 | | Load 0x0,0x2 01f2 1b18 | | Execute Package,Field_Read,Field_Number 0x18 01f3 1b12 | | Execute Package,Field_Read,Field_Number 0x12 01f4 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01f5 0092 023e | >| Action Push_String_Extended,0x23e ; "Delta" 01f7 e005 | | Load 0x0,0x5 01f8 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 01f9 7030 |p0 | Jump_Nonzero 0x22a 01fa e001 | | Load 0x0,0x1 01fb 180e | | Execute Package,Field_Execute,Field_Number 0xe 01fc 4807 |H | Short_Literal 0x7 01fd e7ff | | Load 0x3,-0x1 01fe 0092 023f | ?| Action Push_String_Extended,0x23f ; " has the wrong version of '" 0200 01cc | | Execute Vector,Catenate 0201 e803 | | Load 0x4,0x3 0202 01cc | | Execute Vector,Catenate 0203 0092 0232 | 2| Action Push_String_Extended,0x232 ; "'" 0205 01cc | | Execute Vector,Catenate 0206 e004 | | Load 0x0,0x4 0207 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0208 e001 | | Load 0x0,0x1 0209 180e | | Execute Package,Field_Execute,Field_Number 0xe 020a 4807 |H | Short_Literal 0x7 020b 482e |H. | Short_Literal 0x2e 020c e7ff | | Load 0x3,-0x1 020d 0092 0240 | @| Action Push_String_Extended,0x240 ; " contains " 020f 01cc | | Execute Vector,Catenate 0210 e803 | | Load 0x4,0x3 0211 01cc | | Execute Vector,Catenate 0212 01cb | | Execute Vector,Append 0213 e406 | | Load 0x2,0x6 0214 e002 | | Load 0x0,0x2 0215 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0216 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0217 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0218 01cc | | Execute Vector,Catenate 0219 e004 | | Load 0x0,0x4 021a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 021b e001 | | Load 0x0,0x1 021c 180e | | Execute Package,Field_Execute,Field_Number 0xe 021d 4807 |H | Short_Literal 0x7 021e 482e |H. | Short_Literal 0x2e 021f e7ff | | Load 0x3,-0x1 0220 0092 0241 | A| Action Push_String_Extended,0x241 ; " should contain " 0222 01cc | | Execute Vector,Catenate 0223 e803 | | Load 0x4,0x3 0224 01cc | | Execute Vector,Catenate 0225 01cb | | Execute Vector,Append 0226 00db | | Load_Top At_Offset_3 0227 01cc | | Execute Vector,Catenate 0228 e004 | | Load 0x0,0x4 0229 1813 | | Execute Package,Field_Execute,Field_Number 0x13 022a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 022b ; -------------------------------------------------------------------------------------- 022b ; STRING TABLE 022b ; -------------------------------------------------------------------------------------- 022b 0030 | 0 | .STRTAB 0x0030->0x0243 ; "[Check_Configuration (Subsystem_List => \x22" 022c 0057 | W | .STRTAB 0x0057->0x0257 ; "\x22, Config_Name => \x22" 022d 0068 | h | .STRTAB 0x0068->0x0261 ; "\x22, Response => \x22" 022e 0076 | v | .STRTAB 0x0076->0x0269 ; "\x22);]" 022f 0078 | x | .STRTAB 0x0078->0x026b ; "<RELEASE>" 0230 007f | | .STRTAB 0x007f->0x026f ; "<DEFAULT>" 0231 0086 | | .STRTAB 0x0086->0x0274 ; "[Check_Configuration has finished]" 0232 00a6 | | .STRTAB 0x00a6->0x0285 ; "'" 0233 00a5 | | .STRTAB 0x00a5->0x0285 ; "' is not the default configuration" 0234 00c5 | | .STRTAB 0x00c5->0x0296 ; "The default configuration is '" 0235 00e1 | | .STRTAB 0x00e1->0x02a5 ; "A configuration named '" 0236 00f6 | | .STRTAB 0x00f6->0x02b1 ; "' doesn't exist" 0237 0103 | | .STRTAB 0x0103->0x02b8 ; "Configuration '" 0238 0110 | | .STRTAB 0x0110->0x02c0 ; "' is complete" 0239 011b | | .STRTAB 0x011b->0x02c6 ; "$$[D_@]" 023a 0120 | | .STRTAB 0x0120->0x02ca ; "This command must be run from inside a release world, or else Config_Name must be passed a value other than <RELEASE>." 023b 0194 | | .STRTAB 0x0194->0x0305 ; "Can't open " 023c 019d | | .STRTAB 0x019d->0x030a ; "' is not complete." 023d 01ad | | .STRTAB 0x01ad->0x0313 ; "ELABORATOR_DATABASE" 023e 01be | | .STRTAB 0x01be->0x031d ; "Delta" 023f 01c1 | | .STRTAB 0x01c1->0x031f ; " has the wrong version of '" 0240 01da | | .STRTAB 0x01da->0x032d ; " contains " 0241 01e2 | | .STRTAB 0x01e2->0x0332 ; " should contain " 0242 01f0 | | .STREND 0x01f0->0x033a 0243 5b43 6865 |[Che| .STRTAB_STRINGS 033a 0000 0000 | | .BLANK 0000[0x6] 0340 ; -------------------------------------------------------------------------------------- 0340 ; Debug Table 0340 ; -------------------------------------------------------------------------------------- 0340 0004 0000 | | .DEBUG4 0x0004,0x0000,0x78e2,0x0000,0x0001,0x0000 0346 80cc c0c0 | | .XXX[0xba] 0348 8160 28a1 | `( | 034a 4d95 8dd1 |M | 034c a5bd b9cc | | 034e a54c 80c4 | L | 0350 c881 e0a0 | | 0352 c4c4 a54c | L| 0354 80c4 c881 | | 0356 e0a1 85b9 | | 0358 90a5 4c80 | L | 035a c4c8 81e0 | | 035c a0c4 c970 | p| 035e a4a5 4c80 | L | 0360 c4c8 81e0 | | 0362 a199 bdc8 | | 0364 a54c 80c4 | L | 0366 c881 e0a1 | | 0368 85b1 b0a5 | | 036a 4c28 c4c8 |L( | 036c 81e0 a185 | | 036e c8a5 4c80 | L | 0370 b4c4 81e0 | | 0372 a19d d5b5 | | 0374 95b9 d1cc | | 0376 a54c 80c4 | L | 0378 c881 e0a1 | | 037a cd85 d1a5 | | 037c cd99 e5a5 | | 037e b99c a54c | L| 0380 80c4 c881 | | 0382 e0a1 d1a1 | | 0384 94a5 4c80 | L | 0386 c4c8 81e0 | | 0388 28a1 8dbd |( | 038a b991 a5d1 | | 038c a5bd b9cc | | 038e a54c 80c4 | L | 0390 c881 e0a1 | | 0392 a5b8 a54c | L| 0394 80c4 c881 | | 0396 e0a1 d1a1 | | 0398 94a5 4c80 | L | 039a c4c8 81e0 | | 039c a191 bdb5 | | 039e 85a5 b8a5 | | 03a0 4c80 c4c8 |L | 03a2 81e0 a191 | | 03a4 9570 c0c4 | p | 03a6 d1b9 a5d1 | | 03a8 a5bd b8b0 | | 03aa a54c 28c4 | L( | 03ac c881 e0a1 | | 03ae c1c9 bdd9 | | 03b0 a591 a5b9 | | 03b2 9ca5 4c80 | L | 03b4 c4c8 81e0 | | 03b6 a1d1 a194 | | 03b8 a54c 80c4 | L | 03ba c881 e0a1 | | 03bc b585 d1a1 | | 03be 95b5 85d1 | | 03c0 a58d 85b0 | | 03c2 a54c 80d4 | L | 03c4 c081 e480 | | 03c6 ccc0 c081 | | 03c8 60a1 c995 |` | 03ca cdd5 b1d0 | | 03cc a54c 28c4 | L( | 03ce dc81 e0a1 | | 03d0 a5cc a54c | L| 03d2 80c4 dc81 | | 03d4 e0a1 b9bd | | 03d6 b9e9 95c9 | | 03d8 bcb8 a54c | L| 03da 80c8 d481 | | 03dc e0a1 19bd | | 03de c8a5 4c80 | L | 03e0 c4dc 81e0 | | 03e2 a184 a54c | L| 03e4 80c4 e081 | | 03e6 e0a1 9da5 | | 03e8 d995 b8a5 | | 03ea 4c80 c4dc |L | 03ec 81e0 28a1 | ( | 03ee 99d5 b98d | | 03f0 d1a5 bdb8 | | 03f2 a54c 2961 | L)a| 03f4 4080 bd18 |@ | 03f6 c8c4 80c4 | | 03f8 c0c8 80c8 | | 03fa c080 c880 | | 03fc b4e0 80c8 | | 03fe cc80 c8e4 | |