|
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 | |