|
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_0bf8df
└─⟦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 0348 | H | .CONST 0x0348 ; 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 004c | L | .CONST 0x004c ; Address of begin
0019 0089 | | .CONST 0x0089 ; Address of exception handler
001a 000c | | .CONST 0x000c ; Number of locals
001b INIT_0018:
001b e002 | | Load 0x0,0x2
001c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
001d 02c7 | | Declare_Variable Any
001e e002 | | Load 0x0,0x2
001f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0020 a402 | | Store_Unchecked 0x2,0x2
0021 e002 | | Load 0x0,0x2
0022 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0023 02c7 | | Declare_Variable Any
0024 e5fd | | Load 0x2,-0x3
0025 e002 | | Load 0x0,0x2
0026 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0027 a403 | | Store_Unchecked 0x2,0x3
0028 e003 | | Load 0x0,0x3
0029 1b19 | | Execute Package,Field_Read,Field_Number 0x19
002a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
002b 02c7 | | Declare_Variable Any
002c e003 | | Load 0x0,0x3
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 e003 | | Load 0x0,0x3
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 e003 | | Load 0x0,0x3
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 e004 | | Load 0x0,0x4
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 0093 0000 | | push_full_address 0x0
0043 6064 |`d | Indirect_Literal Discrete,0xa8,{0x80000000, 0x00010000}
0044 0273 | s | Execute Discrete,Plus
0045 0007 | | Action Break_Optional
0046 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call
0048 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call
004a 029f 0173 | s| Declare_Subprogram INIT_0170,For_Call
004c BODY_0018:
004c e403 | | Load 0x2,0x3
004d e002 | | Load 0x0,0x2
004e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
004f e002 | | Load 0x0,0x2
0050 180e | | Execute Package,Field_Execute,Field_Number 0xe
0051 4800 |H | Short_Literal 0x0
0052 0092 0233 | 3| Action Push_String_Extended,0x233 ; "[Check_Configuration (Subsystem_List => \x22"
0054 e5ff | | Load 0x2,-0x1
0055 01cc | | Execute Vector,Catenate
0056 0092 0234 | 4| Action Push_String_Extended,0x234 ; "\x22, Config_Name => \x22"
0058 01cc | | Execute Vector,Catenate
0059 e5fe | | Load 0x2,-0x2
005a 01cc | | Execute Vector,Catenate
005b 0092 0235 | 5| Action Push_String_Extended,0x235 ; "\x22, Response => \x22"
005d 01cc | | Execute Vector,Catenate
005e e5fd | | Load 0x2,-0x3
005f 01cc | | Execute Vector,Catenate
0060 0092 0236 | 6| Action Push_String_Extended,0x236 ; "\x22);]"
0062 01cc | | Execute Vector,Catenate
0063 e005 | | Load 0x0,0x5
0064 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0065 4801 |H | Short_Literal 0x1
0066 0092 0237 | 7| Action Push_String_Extended,0x237 ; "<RELEASE>"
0068 e5fe | | Load 0x2,-0x2
0069 e006 | | Load 0x0,0x6
006a 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
006b 6804 |h | Jump_Zero 0x70
006c e5ff | | Load 0x2,-0x1
006d 840c | | Call 0x2,0xc
006e 840b | | Call 0x2,0xb
006f 780e |x | Jump 0x7e
0070 4801 |H | Short_Literal 0x1
0071 0092 0238 | 8| Action Push_String_Extended,0x238 ; "<DEFAULT>"
0073 e5fe | | Load 0x2,-0x2
0074 e006 | | Load 0x0,0x6
0075 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0076 6804 |h | Jump_Zero 0x7b
0077 e5ff | | Load 0x2,-0x1
0078 e405 | | Load 0x2,0x5
0079 840b | | Call 0x2,0xb
007a 7803 |x | Jump 0x7e
007b e5ff | | Load 0x2,-0x1
007c e5fe | | Load 0x2,-0x2
007d 840b | | Call 0x2,0xb
007e e002 | | Load 0x0,0x2
007f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0080 4800 |H | Short_Literal 0x0
0081 0092 0239 | 9| Action Push_String_Extended,0x239 ; "[Check_Configuration has finished]"
0083 e005 | | Load 0x0,0x5
0084 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0085 e402 | | Load 0x2,0x2
0086 e002 | | Load 0x0,0x2
0087 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0088 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0089 TRAP_0018:
0089 e409 | | Load 0x2,0x9
008a 010f | | Execute Exception,Equal
008b 6804 |h | Jump_Zero 0x90
008c e402 | | Load 0x2,0x2
008d e002 | | Load 0x0,0x2
008e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
008f 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0090 e002 | | Load 0x0,0x2
0091 180e | | Execute Package,Field_Execute,Field_Number 0xe
0092 4808 |H | Short_Literal 0x8
0093 4801 |H | Short_Literal 0x1
0094 4801 |H | Short_Literal 0x1
0095 e007 | | Load 0x0,0x7
0096 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0097 e005 | | Load 0x0,0x5
0098 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0099 e002 | | Load 0x0,0x2
009a 180e | | Execute Package,Field_Execute,Field_Number 0xe
009b e002 | | Load 0x0,0x2
009c 1819 | | Execute Package,Field_Execute,Field_Number 0x19
009d 6805 |h | Jump_Zero 0xa3
009e e402 | | Load 0x2,0x2
009f e002 | | Load 0x0,0x2
00a0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00a1 00d8 | | Load_Top At_Offset_0
00a2 0101 | | Execute Exception,Reraise
00a3 e402 | | Load 0x2,0x2
00a4 e002 | | Load 0x0,0x2
00a5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00a6 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00a7 0000 | | .XXX[0x1]
00a8 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00ac 0000 0000 | | .BLANK 0000[0x4]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b9 | | .CONST 0x00b9 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0003 | | .CONST 0x0003 ; Number of locals
00b3 INIT_00b0:
00b3 00da | | Load_Top At_Offset_2
00b4 01dd | | Execute Vector,First
00b5 00e2 | | Load_Encached Integer_Cache
00b6 03f1 | | Declare_Variable Discrete,With_Value
00b7 00e2 | | Load_Encached Integer_Cache
00b8 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00b9 BODY_00b0:
00b9 00cf | | Action Mark_Auxiliary
00ba e7ff | | Load 0x3,-0x1
00bb 01d9 | | Execute Vector,Reverse_Bounds
00bc 0263 | c | Execute Discrete,Above_Bound
00bd 701f |p | Jump_Nonzero 0xdd
00be 00d8 | | Load_Top At_Offset_0
00bf e7ff | | Load 0x3,-0x1
00c0 01d7 | | Execute Vector,Field_Read
00c1 0f20 | | Execute_Immediate Equal,0x20
00c2 6818 |h | Jump_Zero 0xdb
00c3 e602 | | Load 0x3,0x2
00c4 00d9 | | Load_Top At_Offset_1
00c5 027f | | Execute Discrete,Equal
00c6 6804 |h | Jump_Zero 0xcb
00c7 00d8 | | Load_Top At_Offset_0
00c8 0a01 | | Execute_Immediate Plus,0x1
00c9 c602 | | Store 0x3,0x2
00ca 7810 |x | Jump 0xdb
00cb 00db | | Load_Top At_Offset_3
00cc 0a01 | | Execute_Immediate Plus,0x1
00cd c603 | | Store 0x3,0x3
00ce 00db | | Load_Top At_Offset_3
00cf e7fe | | Load 0x3,-0x2
00d0 027f | | Execute Discrete,Equal
00d1 6806 |h | Jump_Zero 0xd8
00d2 e602 | | Load 0x3,0x2
00d3 00d9 | | Load_Top At_Offset_1
00d4 0aff | | Execute_Immediate Plus,-0x1
00d5 e7ff | | Load 0x3,-0x1
00d6 01cf | | Execute Vector,Slice_Read
00d7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00d8 00d8 | | Load_Top At_Offset_0
00d9 0a01 | | Execute_Immediate Plus,0x1
00da c602 | | Store 0x3,0x2
00db 00c8 | | Action Pop_Auxiliary_Range
00dc 3fe1 |? | Loop_Increasing 0xbe
00dd 00ce | | Action Pop_Auxiliary
00de 00d8 | | Load_Top At_Offset_0
00df 0a01 | | Execute_Immediate Plus,0x1
00e0 0059 | Y | Store_Top Discrete,At_Offset_1
00e1 00d8 | | Load_Top At_Offset_0
00e2 e7fe | | Load 0x3,-0x2
00e3 027f | | Execute Discrete,Equal
00e4 6806 |h | Jump_Zero 0xeb
00e5 00d9 | | Load_Top At_Offset_1
00e6 e7ff | | Load 0x3,-0x1
00e7 01dc | | Execute Vector,Last
00e8 e7ff | | Load 0x3,-0x1
00e9 01cf | | Execute Vector,Slice_Read
00ea 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00eb 00ea | | Load_Encached Null_String_Cache
00ec 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00ed 0000 0000 | | .XXX[0x3]
00ef 0000 | |
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00fd | | .CONST 0x00fd ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0004 | | .CONST 0x0004 ; Number of locals
00f3 INIT_00f0:
00f3 e003 | | Load 0x0,0x3
00f4 1b19 | | Execute Package,Field_Read,Field_Number 0x19
00f5 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
00f6 02c7 | | Declare_Variable Any
00f7 00d8 | | Load_Top At_Offset_0
00f8 1c00 | | Execute_Immediate Run_Utility,0x0
00f9 029f 01ab | | Declare_Subprogram INIT_01a8,For_Call
00fb 029f 01c3 | | Declare_Subprogram INIT_01c0,For_Call
00fd BODY_00f0:
00fd 00be | | Action Activate_Tasks
00fe 4801 |H | Short_Literal 0x1
00ff e405 | | Load 0x2,0x5
0100 e7ff | | Load 0x3,-0x1
0101 e006 | | Load 0x0,0x6
0102 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0103 7037 |p7 | Jump_Nonzero 0x13b
0104 e002 | | Load 0x0,0x2
0105 180e | | Execute Package,Field_Execute,Field_Number 0xe
0106 4807 |H | Short_Literal 0x7
0107 0092 023a | :| Action Push_String_Extended,0x23a ; "'"
0109 e7ff | | Load 0x3,-0x1
010a 01cc | | Execute Vector,Catenate
010b 0092 023b | ;| Action Push_String_Extended,0x23b ; "' is not the default configuration"
010d 01cc | | Execute Vector,Catenate
010e e005 | | Load 0x0,0x5
010f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0110 e002 | | Load 0x0,0x2
0111 180e | | Execute Package,Field_Execute,Field_Number 0xe
0112 4802 |H | Short_Literal 0x2
0113 0092 023c | <| Action Push_String_Extended,0x23c ; "The default configuration is '"
0115 e405 | | Load 0x2,0x5
0116 01cc | | Execute Vector,Catenate
0117 0092 023a | :| Action Push_String_Extended,0x23a ; "'"
0119 01cc | | Execute Vector,Catenate
011a e005 | | Load 0x0,0x5
011b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
011c 00e1 | | Load_Encached Boolean_Cache
011d e404 | | Load 0x2,0x4
011e 0120 | | Execute Any,Is_Value
011f 6804 |h | Jump_Zero 0x124
0120 e003 | | Load 0x0,0x3
0121 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0122 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0123 7801 |x | Jump 0x125
0124 e404 | | Load 0x2,0x4
0125 e7ff | | Load 0x3,-0x1
0126 e003 | | Load 0x0,0x3
0127 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0128 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0129 180f | | Execute Package,Field_Execute,Field_Number 0xf
012a c404 | | Store 0x2,0x4
012b c408 | | Store 0x2,0x8
012c e408 | | Load 0x2,0x8
012d 700d |p | Jump_Nonzero 0x13b
012e e002 | | Load 0x0,0x2
012f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0130 4805 |H | Short_Literal 0x5
0131 0092 023d | =| Action Push_String_Extended,0x23d ; "A configuration named '"
0133 e7ff | | Load 0x3,-0x1
0134 01cc | | Execute Vector,Catenate
0135 0092 023e | >| Action Push_String_Extended,0x23e ; "' doesn't exist"
0137 01cc | | Execute Vector,Catenate
0138 e005 | | Load 0x0,0x5
0139 1813 | | Execute Package,Field_Execute,Field_Number 0x13
013a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
013b 8603 | | Call 0x3,0x3
013c 4802 |H | Short_Literal 0x2
013d e407 | | Load 0x2,0x7
013e e004 | | Load 0x0,0x4
013f 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
0140 00da | | Load_Top At_Offset_2
0141 e404 | | Load 0x2,0x4
0142 e003 | | Load 0x0,0x3
0143 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0144 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0145 c602 | | Store 0x3,0x2
0146 00cf | | Action Mark_Auxiliary
0147 780c |x | Jump 0x154
0148 00db | | Load_Top At_Offset_3
0149 e003 | | Load 0x0,0x3
014a 1b19 | | Execute Package,Field_Read,Field_Number 0x19
014b 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
014c c406 | | Store 0x2,0x6
014d 8604 | | Call 0x3,0x4
014e 00db | | Load_Top At_Offset_3
014f e003 | | Load 0x0,0x3
0150 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0151 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0152 c602 | | Store 0x3,0x2
0153 00c9 | | Action Pop_Auxiliary_Loop
0154 00db | | Load_Top At_Offset_3
0155 e003 | | Load 0x0,0x3
0156 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0157 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0158 6fef |o | Jump_Zero 0x148
0159 00ce | | Action Pop_Auxiliary
015a e002 | | Load 0x0,0x2
015b 180e | | Execute Package,Field_Execute,Field_Number 0xe
015c 4803 |H | Short_Literal 0x3
015d 0092 023f | ?| Action Push_String_Extended,0x23f ; "Configuration '"
015f e7ff | | Load 0x3,-0x1
0160 01cc | | Execute Vector,Catenate
0161 0092 0240 | @| Action Push_String_Extended,0x240 ; "' is complete"
0163 01cc | | Execute Vector,Catenate
0164 e005 | | Load 0x0,0x5
0165 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0166 e407 | | Load 0x2,0x7
0167 e004 | | Load 0x0,0x4
0168 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0169 c407 | | Store 0x2,0x7
016a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
016b 0000 0000 | | .BLANK 0000[0x5]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 017b | { | .CONST 0x017b ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0003 | | .CONST 0x0003 ; Number of locals
0173 INIT_0170:
0173 e008 | | Load 0x0,0x8
0174 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0175 02c7 | | Declare_Variable Any
0176 00d8 | | Load_Top At_Offset_0
0177 1c00 | | Execute_Immediate Run_Utility,0x0
0178 e008 | | Load 0x0,0x8
0179 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
017a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
017b BODY_0170:
017b e008 | | Load 0x0,0x8
017c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
017d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
017e 00da | | Load_Top At_Offset_2
017f 0120 | | Execute Any,Is_Value
0180 6803 |h | Jump_Zero 0x184
0181 e008 | | Load 0x0,0x8
0182 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0183 7801 |x | Jump 0x185
0184 00da | | Load_Top At_Offset_2
0185 601e |` | Indirect_Literal Discrete,0x1a4,{0x00000000, 0x00004000}
0186 e009 | | Load 0x0,0x9
0187 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0188 e00a | | Load 0x0,0xa
0189 1811 | | Execute Package,Field_Execute,Field_Number 0x11
018a e008 | | Load 0x0,0x8
018b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
018c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
018d 0092 0241 | A| Action Push_String_Extended,0x241 ; "$$[D_@]"
018f e008 | | Load 0x0,0x8
0190 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0191 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0192 c602 | | Store 0x3,0x2
0193 0059 | Y | Store_Top Discrete,At_Offset_1
0194 00d8 | | Load_Top At_Offset_0
0195 7005 |p | Jump_Nonzero 0x19b
0196 00d9 | | Load_Top At_Offset_1
0197 e008 | | Load 0x0,0x8
0198 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0199 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
019a 00ca | | Action Exit_Nullary_Function
019b e002 | | Load 0x0,0x2
019c 180e | | Execute Package,Field_Execute,Field_Number 0xe
019d 4807 |H | Short_Literal 0x7
019e 0092 0242 | B| Action Push_String_Extended,0x242 ; "This command must be run from inside a release world, or else Config_Name must be passed a value other than <RELEASE>."
01a0 e005 | | Load 0x0,0x5
01a1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01a2 e409 | | Load 0x2,0x9
01a3 0257 | W | Execute Discrete,Raise
01a4 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab | | .CONST 0x01ab ; Address of begin
01a9 01b3 | | .CONST 0x01b3 ; Address of exception handler
01aa 0001 | | .CONST 0x0001 ; Number of locals
01ab BODY_01a8:
01ab INIT_01a8:
01ab e407 | | Load 0x2,0x7
01ac 00ea | | Load_Encached Null_String_Cache
01ad e7fe | | Load 0x3,-0x2
01ae 4800 |H | Short_Literal 0x0
01af e004 | | Load 0x0,0x4
01b0 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01b1 c407 | | Store 0x2,0x7
01b2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01b3 TRAP_01a8:
01b3 0007 | | Action Break_Optional
01b4 e002 | | Load 0x0,0x2
01b5 180e | | Execute Package,Field_Execute,Field_Number 0xe
01b6 4807 |H | Short_Literal 0x7
01b7 0092 0243 | C| Action Push_String_Extended,0x243 ; "Can't open "
01b9 e7fe | | Load 0x3,-0x2
01ba 01cc | | Execute Vector,Catenate
01bb e005 | | Load 0x0,0x5
01bc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01bd 00cc | | Action Pop_Block
01be 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01bf 0000 | | .XXX[0x1]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01cc | | .CONST 0x01cc ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0004 | | .CONST 0x0004 ; Number of locals
01c3 INIT_01c0:
01c3 e407 | | Load 0x2,0x7
01c4 e004 | | Load 0x0,0x4
01c5 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
01c6 4801 |H | Short_Literal 0x1
01c7 00d9 | | Load_Top At_Offset_1
01c8 840a | | Call 0x2,0xa
01c9 4802 |H | Short_Literal 0x2
01ca 00da | | Load_Top At_Offset_2
01cb 840a | | Call 0x2,0xa
01cc BODY_01c0:
01cc 4801 |H | Short_Literal 0x1
01cd e406 | | Load 0x2,0x6
01ce e003 | | Load 0x0,0x3
01cf 1b18 | | Execute Package,Field_Read,Field_Number 0x18
01d0 1b12 | | Execute Package,Field_Read,Field_Number 0x12
01d1 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01d2 00db | | Load_Top At_Offset_3
01d3 e006 | | Load 0x0,0x6
01d4 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
01d5 700e |p | Jump_Nonzero 0x1e4
01d6 e002 | | Load 0x0,0x2
01d7 180e | | Execute Package,Field_Execute,Field_Number 0xe
01d8 4805 |H | Short_Literal 0x5
01d9 0092 023f | ?| Action Push_String_Extended,0x23f ; "Configuration '"
01db e7ff | | Load 0x3,-0x1
01dc 01cc | | Execute Vector,Catenate
01dd 0092 0244 | D| Action Push_String_Extended,0x244 ; "' is not complete."
01df 01cc | | Execute Vector,Catenate
01e0 e005 | | Load 0x0,0x5
01e1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01e2 00cc | | Action Pop_Block
01e3 7f75 | u | Jump 0x159
01e4 4801 |H | Short_Literal 0x1
01e5 0092 0245 | E| Action Push_String_Extended,0x245 ; "ELABORATOR_DATABASE"
01e7 00db | | Load_Top At_Offset_3
01e8 e006 | | Load 0x0,0x6
01e9 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
01ea 6802 |h | Jump_Zero 0x1ed
01eb 00cc | | Action Pop_Block
01ec 7f6c | l | Jump 0x159
01ed 4801 |H | Short_Literal 0x1
01ee e406 | | Load 0x2,0x6
01ef e003 | | Load 0x0,0x3
01f0 1b18 | | Execute Package,Field_Read,Field_Number 0x18
01f1 1b12 | | Execute Package,Field_Read,Field_Number 0x12
01f2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01f3 00da | | Load_Top At_Offset_2
01f4 e006 | | Load 0x0,0x6
01f5 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
01f6 703b |p; | Jump_Nonzero 0x232
01f7 4801 |H | Short_Literal 0x1
01f8 e406 | | Load 0x2,0x6
01f9 e003 | | Load 0x0,0x3
01fa 1b18 | | Execute Package,Field_Read,Field_Number 0x18
01fb 1b12 | | Execute Package,Field_Read,Field_Number 0x12
01fc 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01fd 0092 0246 | F| Action Push_String_Extended,0x246 ; "Delta"
01ff e006 | | Load 0x0,0x6
0200 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0201 7030 |p0 | Jump_Nonzero 0x232
0202 e002 | | Load 0x0,0x2
0203 180e | | Execute Package,Field_Execute,Field_Number 0xe
0204 4807 |H | Short_Literal 0x7
0205 e7ff | | Load 0x3,-0x1
0206 0092 0247 | G| Action Push_String_Extended,0x247 ; " has the wrong version of '"
0208 01cc | | Execute Vector,Catenate
0209 e803 | | Load 0x4,0x3
020a 01cc | | Execute Vector,Catenate
020b 0092 023a | :| Action Push_String_Extended,0x23a ; "'"
020d 01cc | | Execute Vector,Catenate
020e e005 | | Load 0x0,0x5
020f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0210 e002 | | Load 0x0,0x2
0211 180e | | Execute Package,Field_Execute,Field_Number 0xe
0212 4807 |H | Short_Literal 0x7
0213 482e |H. | Short_Literal 0x2e
0214 e7ff | | Load 0x3,-0x1
0215 0092 0248 | H| Action Push_String_Extended,0x248 ; " contains "
0217 01cc | | Execute Vector,Catenate
0218 e803 | | Load 0x4,0x3
0219 01cc | | Execute Vector,Catenate
021a 01cb | | Execute Vector,Append
021b e406 | | Load 0x2,0x6
021c e003 | | Load 0x0,0x3
021d 1b18 | | Execute Package,Field_Read,Field_Number 0x18
021e 1b12 | | Execute Package,Field_Read,Field_Number 0x12
021f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0220 01cc | | Execute Vector,Catenate
0221 e005 | | Load 0x0,0x5
0222 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0223 e002 | | Load 0x0,0x2
0224 180e | | Execute Package,Field_Execute,Field_Number 0xe
0225 4807 |H | Short_Literal 0x7
0226 482e |H. | Short_Literal 0x2e
0227 e7ff | | Load 0x3,-0x1
0228 0092 0249 | I| Action Push_String_Extended,0x249 ; " should contain "
022a 01cc | | Execute Vector,Catenate
022b e803 | | Load 0x4,0x3
022c 01cc | | Execute Vector,Catenate
022d 01cb | | Execute Vector,Append
022e 00db | | Load_Top At_Offset_3
022f 01cc | | Execute Vector,Catenate
0230 e005 | | Load 0x0,0x5
0231 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0232 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0233 ; --------------------------------------------------------------------------------------
0233 ; STRING TABLE
0233 ; --------------------------------------------------------------------------------------
0233 0030 | 0 | .STRTAB 0x0030->0x024b ; "[Check_Configuration (Subsystem_List => \x22"
0234 0057 | W | .STRTAB 0x0057->0x025f ; "\x22, Config_Name => \x22"
0235 0068 | h | .STRTAB 0x0068->0x0269 ; "\x22, Response => \x22"
0236 0076 | v | .STRTAB 0x0076->0x0271 ; "\x22);]"
0237 0078 | x | .STRTAB 0x0078->0x0273 ; "<RELEASE>"
0238 007f | | .STRTAB 0x007f->0x0277 ; "<DEFAULT>"
0239 0086 | | .STRTAB 0x0086->0x027c ; "[Check_Configuration has finished]"
023a 00a6 | | .STRTAB 0x00a6->0x028d ; "'"
023b 00a5 | | .STRTAB 0x00a5->0x028d ; "' is not the default configuration"
023c 00c5 | | .STRTAB 0x00c5->0x029e ; "The default configuration is '"
023d 00e1 | | .STRTAB 0x00e1->0x02ad ; "A configuration named '"
023e 00f6 | | .STRTAB 0x00f6->0x02b9 ; "' doesn't exist"
023f 0103 | | .STRTAB 0x0103->0x02c0 ; "Configuration '"
0240 0110 | | .STRTAB 0x0110->0x02c8 ; "' is complete"
0241 011b | | .STRTAB 0x011b->0x02ce ; "$$[D_@]"
0242 0120 | | .STRTAB 0x0120->0x02d2 ; "This command must be run from inside a release world, or else Config_Name must be passed a value other than <RELEASE>."
0243 0194 | | .STRTAB 0x0194->0x030d ; "Can't open "
0244 019d | | .STRTAB 0x019d->0x0312 ; "' is not complete."
0245 01ad | | .STRTAB 0x01ad->0x031b ; "ELABORATOR_DATABASE"
0246 01be | | .STRTAB 0x01be->0x0325 ; "Delta"
0247 01c1 | | .STRTAB 0x01c1->0x0327 ; " has the wrong version of '"
0248 01da | | .STRTAB 0x01da->0x0335 ; " contains "
0249 01e2 | | .STRTAB 0x01e2->0x033a ; " should contain "
024a 01f0 | | .STREND 0x01f0->0x0342
024b 5b43 6865 |[Che| .STRTAB_STRINGS
0342 0000 0000 | | .BLANK 0000[0x6]
0348 ; --------------------------------------------------------------------------------------
0348 ; Debug Table
0348 ; --------------------------------------------------------------------------------------
0348 0004 0002 | | .DEBUG4 0x0004,0x0002,0x0b6d,0x0000,0x0001,0x0000
034e 0000 0000 | | .BLANK 0000[0xb2]