|
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: 5120 (0x1400)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_ccb0b3
└─⟦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 0970 | p | .CONST 0x0970 ; 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 8005 | | .CONST 0x8005 ; 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 006c | l | .CONST 0x006c ; Address of begin
0019 007f | | .CONST 0x007f ; Address of exception handler
001a 0025 | % | .CONST 0x0025 ; Number of locals
001b INIT_0018:
001b 00e1 | | Load_Encached Boolean_Cache
001c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
001d e001 | | Load 0x0,0x1
001e 1b12 | | Execute Package,Field_Read,Field_Number 0x12
001f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0020 00d8 | | Load_Top At_Offset_0
0021 0092 05dc | | Action Push_String_Extended,0x5dc ; "."
0023 01cc | | Execute Vector,Catenate
0024 e5f5 | | Load 0x2,-0xb
0025 01cc | | Execute Vector,Catenate
0026 0007 | | Action Break_Optional
0027 0092 05dd | | Action Push_String_Extended,0x5dd ; "!model."
0029 e5f5 | | Load 0x2,-0xb
002a 01cc | | Execute Vector,Catenate
002b 0007 | | Action Break_Optional
002c 0092 05de | | Action Push_String_Extended,0x5de ; "Registration"
002e 0092 05df | | Action Push_String_Extended,0x5df ; "<ERRORS>"
0030 0092 05e0 | | Action Push_String_Extended,0x5e0 ; "<PROGRESS>"
0032 00e1 | | Load_Encached Boolean_Cache
0033 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0034 00e1 | | Load_Encached Boolean_Cache
0035 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0036 0092 05e1 | | Action Push_String_Extended,0x5e1 ; "!machine.temporary."
0038 0092 05e2 | | Action Push_String_Extended,0x5e2 ; "!machine.temporary.world_list"
003a 0092 05e3 | | Action Push_String_Extended,0x5e3 ; "!machine.temporary.freeze_file"
003c 0092 05e4 | | Action Push_String_Extended,0x5e4 ; "!machine.temporary.demote_file"
003e 0092 05e5 | | Action Push_String_Extended,0x5e5 ; "!machine.temporary.install_file"
0040 0092 05e6 | | Action Push_String_Extended,0x5e6 ; "!machine.temporary.code_file"
0042 0092 05e7 | | Action Push_String_Extended,0x5e7 ; "archive_"
0044 0092 05e8 | | Action Push_String_Extended,0x5e8 ; "!machine.temporary.archive_world_list"
0046 0092 05e9 | | Action Push_String_Extended,0x5e9 ; "!machine.temporary.archive_freeze_file"
0048 0092 05ea | | Action Push_String_Extended,0x5ea ; "!machine.temporary.archive_demote_file"
004a 0092 05eb | | Action Push_String_Extended,0x5eb ; "!machine.temporary.archive_install_file"
004c 0092 05ec | | Action Push_String_Extended,0x5ec ; "!machine.temporary.archive_code_file"
004e 029f 009b | | Declare_Subprogram INIT_0098,For_Call
0050 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call
0052 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call
0054 029f 0113 | | Declare_Subprogram INIT_0110,For_Call
0056 029f 014b | K| Declare_Subprogram INIT_0148,For_Call
0058 029f 01e3 | | Declare_Subprogram INIT_01e0,For_Call
005a 029f 0213 | | Declare_Subprogram INIT_0210,For_Call
005c 029f 022b | +| Declare_Subprogram INIT_0228,For_Call
005e 029f 023b | ;| Declare_Subprogram INIT_0238,For_Call
0060 029f 0253 | S| Declare_Subprogram INIT_0250,For_Call
0062 029f 0283 | | Declare_Subprogram INIT_0280,For_Call
0064 029f 02ab | | Declare_Subprogram INIT_02a8,For_Call
0066 029f 0313 | | Declare_Subprogram INIT_0310,For_Call
0068 029f 033b | ;| Declare_Subprogram INIT_0338,For_Call
006a 029f 0353 | S| Declare_Subprogram INIT_0350,For_Call
006c BODY_0018:
006c 4801 |H | Short_Literal 0x1
006d e5f3 | | Load 0x2,-0xd
006e e5f5 | | Load 0x2,-0xb
006f e406 | | Load 0x2,0x6
0070 e002 | | Load 0x0,0x2
0071 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0072 8425 | % | Call 0x2,0x25
0073 e402 | | Load 0x2,0x2
0074 6804 |h | Jump_Zero 0x79
0075 e404 | | Load 0x2,0x4
0076 4801 |H | Short_Literal 0x1
0077 e002 | | Load 0x0,0x2
0078 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0079 4800 |H | Short_Literal 0x0
007a e5f5 | | Load 0x2,-0xb
007b e406 | | Load 0x2,0x6
007c e002 | | Load 0x0,0x2
007d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
007e 450e |E | Exit_Suprogram New_Top_Offset 0xe
007f TRAP_0018:
007f e002 | | Load 0x0,0x2
0080 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0081 010f | | Execute Exception,Equal
0082 6802 |h | Jump_Zero 0x85
0083 00d8 | | Load_Top At_Offset_0
0084 0101 | | Execute Exception,Reraise
0085 e002 | | Load 0x0,0x2
0086 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0087 010f | | Execute Exception,Equal
0088 6803 |h | Jump_Zero 0x8c
0089 e002 | | Load 0x0,0x2
008a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
008b 0257 | W | Execute Discrete,Raise
008c 4800 |H | Short_Literal 0x0
008d 4801 |H | Short_Literal 0x1
008e e003 | | Load 0x0,0x3
008f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0090 0092 05ed | | Action Push_String_Extended,0x5ed ; " raised in build_target"
0092 01cc | | Execute Vector,Catenate
0093 e004 | | Load 0x0,0x4
0094 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0095 e002 | | Load 0x0,0x2
0096 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0097 0257 | W | Execute Discrete,Raise
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00a8 | | .CONST 0x00a8 ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0002 | | .CONST 0x0002 ; Number of locals
009b INIT_0098:
009b e005 | | Load 0x0,0x5
009c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
009d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
009e 02c7 | | Declare_Variable Any
009f 4801 |H | Short_Literal 0x1
00a0 e005 | | Load 0x0,0x5
00a1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00a2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00a3 e7ff | | Load 0x3,-0x1
00a4 e005 | | Load 0x0,0x5
00a5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00a6 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
00a7 a602 | | Store_Unchecked 0x3,0x2
00a8 BODY_0098:
00a8 00d8 | | Load_Top At_Offset_0
00a9 e005 | | Load 0x0,0x5
00aa 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ab 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
00ac 6809 |h | Jump_Zero 0xb6
00ad 0092 05ee | | Action Push_String_Extended,0x5ee ; "<PROFILE>"
00af e7fd | | Load 0x3,-0x3
00b0 4800 |H | Short_Literal 0x0
00b1 e7fe | | Load 0x3,-0x2
00b2 e7ff | | Load 0x3,-0x1
00b3 e006 | | Load 0x0,0x6
00b4 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00b5 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00b6 0092 05ef | | Action Push_String_Extended,0x5ef ; "Library "
00b8 e7ff | | Load 0x3,-0x1
00b9 01cc | | Execute Vector,Catenate
00ba 0092 05f0 | | Action Push_String_Extended,0x5f0 ; " already exists"
00bc 01cc | | Execute Vector,Catenate
00bd e004 | | Load 0x0,0x4
00be 180d | | Execute Package,Field_Execute,Field_Number 0xd
00bf 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3 | | .CONST 0x00c3 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0001 | | .CONST 0x0001 ; Number of locals
00c3 BODY_00c0:
00c3 INIT_00c0:
00c3 0092 05ee | | Action Push_String_Extended,0x5ee ; "<PROFILE>"
00c5 00db | | Load_Top At_Offset_3
00c6 482a |H* | Short_Literal 0x2a
00c7 e7fe | | Load 0x3,-0x2
00c8 01ca | | Execute Vector,Prepend
00c9 e007 | | Load 0x0,0x7
00ca 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
00cb 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00cc 0000 0000 | | .BLANK 0000[0x4]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00e6 | | .CONST 0x00e6 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0003 | | .CONST 0x0003 ; Number of locals
00d3 INIT_00d0:
00d3 482e |H. | Short_Literal 0x2e
00d4 00db | | Load_Top At_Offset_3
00d5 01cb | | Execute Vector,Append
00d6 e7fe | | Load 0x3,-0x2
00d7 01cc | | Execute Vector,Catenate
00d8 0007 | | Action Break_Optional
00d9 e005 | | Load 0x0,0x5
00da 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00db 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00dc 02c7 | | Declare_Variable Any
00dd 4801 |H | Short_Literal 0x1
00de e005 | | Load 0x0,0x5
00df 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00e0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00e1 00db | | Load_Top At_Offset_3
00e2 e005 | | Load 0x0,0x5
00e3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00e4 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
00e5 a603 | | Store_Unchecked 0x3,0x3
00e6 BODY_00d0:
00e6 00d8 | | Load_Top At_Offset_0
00e7 e005 | | Load 0x0,0x5
00e8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00e9 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
00ea 680e |h | Jump_Zero 0xf9
00eb 4801 |H | Short_Literal 0x1
00ec a402 | | Store_Unchecked 0x2,0x2
00ed 0092 05ee | | Action Push_String_Extended,0x5ee ; "<PROFILE>"
00ef 00da | | Load_Top At_Offset_2
00f0 e008 | | Load 0x0,0x8
00f1 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00f2 0092 05ee | | Action Push_String_Extended,0x5ee ; "<PROFILE>"
00f4 e7ff | | Load 0x3,-0x1
00f5 00db | | Load_Top At_Offset_3
00f6 e008 | | Load 0x0,0x8
00f7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00f8 7809 |x | Jump 0x102
00f9 0092 05f1 | | Action Push_String_Extended,0x5f1 ; "Switch file "
00fb 00da | | Load_Top At_Offset_2
00fc 01cc | | Execute Vector,Catenate
00fd 0092 05f0 | | Action Push_String_Extended,0x5f0 ; " already exists"
00ff 01cc | | Execute Vector,Catenate
0100 e004 | | Load 0x0,0x4
0101 180d | | Execute Package,Field_Execute,Field_Number 0xd
0102 e5fe | | Load 0x2,-0x2
0103 01db | | Execute Vector,Length
0104 6806 |h | Jump_Zero 0x10b
0105 0092 05ee | | Action Push_String_Extended,0x5ee ; "<PROFILE>"
0107 00da | | Load_Top At_Offset_2
0108 e5fe | | Load 0x2,-0x2
0109 e008 | | Load 0x0,0x8
010a 1815 | | Execute Package,Field_Execute,Field_Number 0x15
010b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
010c 0000 0000 | | .BLANK 0000[0x4]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 0092 05f2 | | Action Push_String_Extended,0x5f2 ; "Creating predefined library structure"
0115 e004 | | Load 0x0,0x4
0116 180d | | Execute Package,Field_Execute,Field_Number 0xd
0117 00ea | | Load_Encached Null_String_Cache
0118 4800 |H | Short_Literal 0x0
0119 e403 | | Load 0x2,0x3
011a 8417 | | Call 0x2,0x17
011b 00ea | | Load_Encached Null_String_Cache
011c 4800 |H | Short_Literal 0x0
011d e404 | | Load 0x2,0x4
011e 8417 | | Call 0x2,0x17
011f e5f5 | | Load 0x2,-0xb
0120 e404 | | Load 0x2,0x4
0121 8418 | | Call 0x2,0x18
0122 e5f5 | | Load 0x2,-0xb
0123 e405 | | Load 0x2,0x5
0124 8418 | | Call 0x2,0x18
0125 0092 05f3 | | Action Push_String_Extended,0x5f3 ; "SWITCHES"
0127 e404 | | Load 0x2,0x4
0128 8419 | | Call 0x2,0x19
0129 00ea | | Load_Encached Null_String_Cache
012a 4801 |H | Short_Literal 0x1
012b e404 | | Load 0x2,0x4
012c 0092 05f4 | | Action Push_String_Extended,0x5f4 ; ".LRM"
012e 01cc | | Execute Vector,Catenate
012f 8417 | | Call 0x2,0x17
0130 00ea | | Load_Encached Null_String_Cache
0131 4801 |H | Short_Literal 0x1
0132 e404 | | Load 0x2,0x4
0133 0092 05f5 | | Action Push_String_Extended,0x5f5 ; ".IO"
0135 01cc | | Execute Vector,Catenate
0136 8417 | | Call 0x2,0x17
0137 00ea | | Load_Encached Null_String_Cache
0138 4801 |H | Short_Literal 0x1
0139 e404 | | Load 0x2,0x4
013a 0092 05f6 | | Action Push_String_Extended,0x5f6 ; ".TARGET_INTERFACE"
013c 01cc | | Execute Vector,Catenate
013d 8417 | | Call 0x2,0x17
013e 00ea | | Load_Encached Null_String_Cache
013f 4801 |H | Short_Literal 0x1
0140 e404 | | Load 0x2,0x4
0141 0092 05f7 | | Action Push_String_Extended,0x5f7 ; ".REUSABLE_COMPONENTS"
0143 01cc | | Execute Vector,Catenate
0144 8417 | | Call 0x2,0x17
0145 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0146 0000 0000 | | .XXX[0x2]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 0168 | h | .CONST 0x0168 ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 000a | | .CONST 0x000a ; Number of locals
014b INIT_0148:
014b e009 | | Load 0x0,0x9
014c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
014d e009 | | Load 0x0,0x9
014e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
014f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0150 e009 | | Load 0x0,0x9
0151 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0152 02c7 | | Declare_Variable Any
0153 00d8 | | Load_Top At_Offset_0
0154 1c00 | | Execute_Immediate Run_Utility,0x0
0155 e009 | | Load 0x0,0x9
0156 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0157 02c7 | | Declare_Variable Any
0158 00d8 | | Load_Top At_Offset_0
0159 1c00 | | Execute_Immediate Run_Utility,0x0
015a e00a | | Load 0x0,0xa
015b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
015c 02c7 | | Declare_Variable Any
015d e00a | | Load 0x0,0xa
015e 180e | | Execute Package,Field_Execute,Field_Number 0xe
015f a606 | | Store_Unchecked 0x3,0x6
0160 0092 05f8 | | Action Push_String_Extended,0x5f8 ; "Build_Model"
0162 029f 0393 | | Declare_Subprogram INIT_0390,For_Call
0164 029f 03bb | | Declare_Subprogram INIT_03b8,For_Call
0166 029f 03d3 | | Declare_Subprogram INIT_03d0,For_Call
0168 BODY_0148:
0168 e009 | | Load 0x0,0x9
0169 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
016a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
016b e604 | | Load 0x3,0x4
016c 0120 | | Execute Any,Is_Value
016d 6803 |h | Jump_Zero 0x171
016e e009 | | Load 0x0,0x9
016f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0170 7801 |x | Jump 0x172
0171 e604 | | Load 0x3,0x4
0172 6065 |`e | Indirect_Literal Discrete,0x1d8,{0x00000000, 0x00004000}
0173 e00b | | Load 0x0,0xb
0174 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0175 e00c | | Load 0x0,0xc
0176 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0177 e009 | | Load 0x0,0x9
0178 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0179 1816 | | Execute Package,Field_Execute,Field_Number 0x16
017a 0092 05dd | | Action Push_String_Extended,0x5dd ; "!model."
017c e7ff | | Load 0x3,-0x1
017d 01cc | | Execute Vector,Catenate
017e e009 | | Load 0x0,0x9
017f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0180 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0181 c604 | | Store 0x3,0x4
0182 c603 | | Store 0x3,0x3
0183 e603 | | Load 0x3,0x3
0184 460e |F | Jump_Case 0xf
0185 781f |x | Jump 0x1a5 ; case 0x0
0186 780d |x | Jump 0x194 ; case 0x1
0187 780c |x | Jump 0x194 ; case 0x2
0188 7821 |x! | Jump 0x1aa ; case 0x3
0189 780a |x | Jump 0x194 ; case 0x4
018a 7809 |x | Jump 0x194 ; case 0x5
018b 7808 |x | Jump 0x194 ; case 0x6
018c 7807 |x | Jump 0x194 ; case 0x7
018d 7806 |x | Jump 0x194 ; case 0x8
018e 7805 |x | Jump 0x194 ; case 0x9
018f 7804 |x | Jump 0x194 ; case 0xa
0190 7803 |x | Jump 0x194 ; case 0xb
0191 7802 |x | Jump 0x194 ; case 0xc
0192 7801 |x | Jump 0x194 ; case 0xd
0193 7800 |x | Jump 0x194 ; case 0xe
0194 0092 05f9 | | Action Push_String_Extended,0x5f9 ; "Error resolving "
0196 e405 | | Load 0x2,0x5
0197 01cc | | Execute Vector,Catenate
0198 0092 05fa | | Action Push_String_Extended,0x5fa ; ". "
019a 01cc | | Execute Vector,Catenate
019b e603 | | Load 0x3,0x3
019c e009 | | Load 0x0,0x9
019d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
019e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
019f 011c | | Execute Any,Convert_Unchecked
01a0 1c01 | | Execute_Immediate Run_Utility,0x1
01a1 01cc | | Execute Vector,Catenate
01a2 e004 | | Load 0x0,0x4
01a3 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01a4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01a5 0092 05fb | | Action Push_String_Extended,0x5fb ; "Using existing model world"
01a7 e004 | | Load 0x0,0x4
01a8 180d | | Execute Package,Field_Execute,Field_Number 0xd
01a9 7828 |x( | Jump 0x1d2
01aa e009 | | Load 0x0,0x9
01ab 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01ac 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01ad e605 | | Load 0x3,0x5
01ae 0120 | | Execute Any,Is_Value
01af 6803 |h | Jump_Zero 0x1b3
01b0 e009 | | Load 0x0,0x9
01b1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01b2 7801 |x | Jump 0x1b4
01b3 e605 | | Load 0x3,0x5
01b4 6023 |`# | Indirect_Literal Discrete,0x1d8,{0x00000000, 0x00004000}
01b5 e00b | | Load 0x0,0xb
01b6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01b7 e00c | | Load 0x0,0xc
01b8 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01b9 e009 | | Load 0x0,0x9
01ba 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01bb 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01bc 0092 05fc | | Action Push_String_Extended,0x5fc ; "!model"
01be e009 | | Load 0x0,0x9
01bf 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01c0 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
01c1 c605 | | Store 0x3,0x5
01c2 c603 | | Store 0x3,0x3
01c3 e603 | | Load 0x3,0x3
01c4 680c |h | Jump_Zero 0x1d1
01c5 0092 05fd | | Action Push_String_Extended,0x5fd ; "Can't find world !MODEL. "
01c7 e603 | | Load 0x3,0x3
01c8 e009 | | Load 0x0,0x9
01c9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01ca 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01cb 011c | | Execute Any,Convert_Unchecked
01cc 1c01 | | Execute_Immediate Run_Utility,0x1
01cd 01cc | | Execute Vector,Catenate
01ce e004 | | Load 0x0,0x4
01cf 180d | | Execute Package,Field_Execute,Field_Number 0xd
01d0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01d1 8608 | | Call 0x3,0x8
01d2 8609 | | Call 0x3,0x9
01d3 860a | | Call 0x3,0xa
01d4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01d5 0000 0000 | | .XXX[0x3]
01d7 0000 | |
01d8 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
01dc 0000 0000 | | .BLANK 0000[0x4]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01f4 | | .CONST 0x01f4 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0007 | | .CONST 0x0007 ; Number of locals
01e3 INIT_01e0:
01e3 00e1 | | Load_Encached Boolean_Cache
01e4 e00d | | Load 0x0,0xd
01e5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01e6 02c7 | | Declare_Variable Any
01e7 00d8 | | Load_Top At_Offset_0
01e8 1c00 | | Execute_Immediate Run_Utility,0x0
01e9 4800 |H | Short_Literal 0x0
01ea 4802 |H | Short_Literal 0x2
01eb 029f 03fb | | Declare_Subprogram INIT_03f8,For_Call
01ed 03fd | | Declare_Type Discrete,Defined
01ee 029f 0423 | #| Declare_Subprogram INIT_0420,For_Call
01f0 029f 0443 | C| Declare_Subprogram INIT_0440,For_Call
01f2 029f 047b | {| Declare_Subprogram INIT_0478,For_Call
01f4 BODY_01e0:
01f4 8605 | | Call 0x3,0x5
01f5 4602 |F | Jump_Case 0x3
01f6 780a |x | Jump 0x201 ; case 0x0
01f7 7805 |x | Jump 0x1fd ; case 0x1
01f8 7800 |x | Jump 0x1f9 ; case 0x2
01f9 4800 |H | Short_Literal 0x0
01fa 8606 | | Call 0x3,0x6
01fb 8607 | | Call 0x3,0x7
01fc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01fd 4801 |H | Short_Literal 0x1
01fe 8606 | | Call 0x3,0x6
01ff 8607 | | Call 0x3,0x7
0200 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0201 e5fc | | Load 0x2,-0x4
0202 6804 |h | Jump_Zero 0x207
0203 4801 |H | Short_Literal 0x1
0204 8606 | | Call 0x3,0x6
0205 8607 | | Call 0x3,0x7
0206 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0207 0092 05fe | | Action Push_String_Extended,0x5fe ; "Using the existing standard package"
0209 e004 | | Load 0x0,0x4
020a 180d | | Execute Package,Field_Execute,Field_Number 0xd
020b e5fb | | Load 0x2,-0x5
020c 6801 |h | Jump_Zero 0x20e
020d 8607 | | Call 0x3,0x7
020e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
020f 0000 | | .XXX[0x1]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213 | | .CONST 0x0213 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0001 | | .CONST 0x0001 ; Number of locals
0213 BODY_0210:
0213 INIT_0210:
0213 e5ff | | Load 0x2,-0x1
0214 01db | | Execute Vector,Length
0215 680e |h | Jump_Zero 0x224
0216 00da | | Load_Top At_Offset_2
0217 01db | | Execute Vector,Length
0218 680b |h | Jump_Zero 0x224
0219 0092 05ee | | Action Push_String_Extended,0x5ee ; "<PROFILE>"
021b e5ff | | Load 0x2,-0x1
021c e7fe | | Load 0x3,-0x2
021d 0092 05ff | | Action Push_String_Extended,0x5ff ; "*"
021f 0092 05ff | | Action Push_String_Extended,0x5ff ; "*"
0221 e7ff | | Load 0x3,-0x1
0222 e00e | | Load 0x0,0xe
0223 180e | | Execute Package,Field_Execute,Field_Number 0xe
0224 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0225 0000 0000 | | .XXX[0x3]
0227 0000 | |
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b | + | .CONST 0x022b ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0001 | | .CONST 0x0001 ; Number of locals
022b BODY_0228:
022b INIT_0228:
022b e5f9 | | Load 0x2,-0x7
022c 01db | | Execute Vector,Length
022d 6807 |h | Jump_Zero 0x235
022e 0092 05ee | | Action Push_String_Extended,0x5ee ; "<PROFILE>"
0230 e007 | | Load 0x0,0x7
0231 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0232 e5f9 | | Load 0x2,-0x7
0233 e007 | | Load 0x0,0x7
0234 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0235 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0236 0000 0000 | | .XXX[0x2]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b | ; | .CONST 0x023b ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0001 | | .CONST 0x0001 ; Number of locals
023b BODY_0238:
023b INIT_0238:
023b e408 | | Load 0x2,0x8
023c 4800 |H | Short_Literal 0x0
023d e007 | | Load 0x0,0x7
023e 1b15 | | Execute Package,Field_Read,Field_Number 0x15
023f 4803 |H | Short_Literal 0x3
0240 e7fe | | Load 0x3,-0x2
0241 e404 | | Load 0x2,0x4
0242 0092 05dc | | Action Push_String_Extended,0x5dc ; "."
0244 01cc | | Execute Vector,Catenate
0245 e7ff | | Load 0x3,-0x1
0246 01cc | | Execute Vector,Catenate
0247 e007 | | Load 0x0,0x7
0248 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0249 4503 |E | Exit_Suprogram New_Top_Offset 0x3
024a 0000 0000 | | .BLANK 0000[0x6]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0258 | X | .CONST 0x0258 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0003 | | .CONST 0x0003 ; Number of locals
0253 INIT_0250:
0253 0092 0600 | | Action Push_String_Extended,0x600 ; "view_list"
0255 e007 | | Load 0x0,0x7
0256 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0257 0602 | | Execute_Immediate Set_Value_Unchecked,0x2
0258 BODY_0250:
0258 e40a | | Load 0x2,0xa
0259 e409 | | Load 0x2,0x9
025a 0278 | x | Execute Discrete,Or
025b 681e |h | Jump_Zero 0x27a
025c e409 | | Load 0x2,0x9
025d 6802 |h | Jump_Zero 0x260
025e 4801 |H | Short_Literal 0x1
025f 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0260 00d9 | | Load_Top At_Offset_1
0261 e5f5 | | Load 0x2,-0xb
0262 800f | | Call 0x0,0xf
0263 4800 |H | Short_Literal 0x0
0264 e410 | | Load 0x2,0x10
0265 e40f | | Load 0x2,0xf
0266 e40d | | Load 0x2,0xd
0267 e40e | | Load 0x2,0xe
0268 0092 0601 | | Action Push_String_Extended,0x601 ; "[_view_list]?'c(ada)"
026a 8010 | | Call 0x0,0x10
026b e407 | | Load 0x2,0x7
026c 4800 |H | Short_Literal 0x0
026d 0092 0602 | | Action Push_String_Extended,0x602 ; "_!machine.temporary.freeze_file"
026f e006 | | Load 0x0,0x6
0270 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0271 e408 | | Load 0x2,0x8
0272 4800 |H | Short_Literal 0x0
0273 0092 0603 | | Action Push_String_Extended,0x603 ; "<WORLDS>"
0275 00db | | Load_Top At_Offset_3
0276 0092 0604 | | Action Push_String_Extended,0x604 ; "_!machine.temporary.demote_file"
0278 e007 | | Load 0x0,0x7
0279 1816 | | Execute Package,Field_Execute,Field_Number 0x16
027a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
027b 0000 0000 | | .BLANK 0000[0x5]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283 | | .CONST 0x0283 ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0001 | | .CONST 0x0001 ; Number of locals
0283 BODY_0280:
0283 INIT_0280:
0283 e5fa | | Load 0x2,-0x6
0284 01db | | Execute Vector,Length
0285 681c |h | Jump_Zero 0x2a2
0286 4800 |H | Short_Literal 0x0
0287 e416 | | Load 0x2,0x16
0288 e415 | | Load 0x2,0x15
0289 e413 | | Load 0x2,0x13
028a e414 | | Load 0x2,0x14
028b 0092 0605 | | Action Push_String_Extended,0x605 ; "["
028d e5fa | | Load 0x2,-0x6
028e 01cc | | Execute Vector,Catenate
028f 0092 0606 | | Action Push_String_Extended,0x606 ; "]'c(ada)"
0291 01cc | | Execute Vector,Catenate
0292 8010 | | Call 0x0,0x10
0293 e407 | | Load 0x2,0x7
0294 4800 |H | Short_Literal 0x0
0295 0092 0607 | | Action Push_String_Extended,0x607 ; "_!machine.temporary.archive_freeze_file"
0297 e006 | | Load 0x0,0x6
0298 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0299 e408 | | Load 0x2,0x8
029a 4800 |H | Short_Literal 0x0
029b 0092 0603 | | Action Push_String_Extended,0x603 ; "<WORLDS>"
029d 4801 |H | Short_Literal 0x1
029e 0092 0608 | | Action Push_String_Extended,0x608 ; "_!machine.temporary.archive_demote_file"
02a0 e007 | | Load 0x0,0x7
02a1 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02a2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02a3 0000 0000 | | .BLANK 0000[0x5]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02ab | | .CONST 0x02ab ; Address of begin
02a9 0004 | | .CONST 0x0004 ; Address of exception handler
02aa 0001 | | .CONST 0x0001 ; Number of locals
02ab BODY_02a8:
02ab INIT_02a8:
02ab e5f7 | | Load 0x2,-0x9
02ac 685b |h[ | Jump_Zero 0x308
02ad e409 | | Load 0x2,0x9
02ae 680a |h | Jump_Zero 0x2b9
02af e408 | | Load 0x2,0x8
02b0 4800 |H | Short_Literal 0x0
02b1 e007 | | Load 0x0,0x7
02b2 1b15 | | Execute Package,Field_Read,Field_Number 0x15
02b3 4802 |H | Short_Literal 0x2
02b4 4802 |H | Short_Literal 0x2
02b5 0092 0609 | | Action Push_String_Extended,0x609 ; "_!machine.temporary.install_file"
02b7 e007 | | Load 0x0,0x7
02b8 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02b9 e409 | | Load 0x2,0x9
02ba e40a | | Load 0x2,0xa
02bb 0278 | x | Execute Discrete,Or
02bc 6817 |h | Jump_Zero 0x2d4
02bd e5f6 | | Load 0x2,-0xa
02be 680b |h | Jump_Zero 0x2ca
02bf e408 | | Load 0x2,0x8
02c0 4800 |H | Short_Literal 0x0
02c1 e007 | | Load 0x0,0x7
02c2 1b15 | | Execute Package,Field_Read,Field_Number 0x15
02c3 4803 |H | Short_Literal 0x3
02c4 4803 |H | Short_Literal 0x3
02c5 0092 060a | | Action Push_String_Extended,0x60a ; "_!machine.temporary.code_file"
02c7 e007 | | Load 0x0,0x7
02c8 181a | | Execute Package,Field_Execute,Field_Number 0x1a
02c9 780a |x | Jump 0x2d4
02ca e408 | | Load 0x2,0x8
02cb 4800 |H | Short_Literal 0x0
02cc e007 | | Load 0x0,0x7
02cd 1b15 | | Execute Package,Field_Read,Field_Number 0x15
02ce 4802 |H | Short_Literal 0x2
02cf 4802 |H | Short_Literal 0x2
02d0 0092 060a | | Action Push_String_Extended,0x60a ; "_!machine.temporary.code_file"
02d2 e007 | | Load 0x0,0x7
02d3 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02d4 e5fa | | Load 0x2,-0x6
02d5 01db | | Execute Vector,Length
02d6 6827 |h' | Jump_Zero 0x2fe
02d7 e408 | | Load 0x2,0x8
02d8 4800 |H | Short_Literal 0x0
02d9 e007 | | Load 0x0,0x7
02da 1b15 | | Execute Package,Field_Read,Field_Number 0x15
02db 4802 |H | Short_Literal 0x2
02dc 4802 |H | Short_Literal 0x2
02dd 0092 060b | | Action Push_String_Extended,0x60b ; "_!machine.temporary.archive_install_file"
02df e007 | | Load 0x0,0x7
02e0 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02e1 e5f6 | | Load 0x2,-0xa
02e2 680b |h | Jump_Zero 0x2ee
02e3 e408 | | Load 0x2,0x8
02e4 4800 |H | Short_Literal 0x0
02e5 e007 | | Load 0x0,0x7
02e6 1b15 | | Execute Package,Field_Read,Field_Number 0x15
02e7 4803 |H | Short_Literal 0x3
02e8 4801 |H | Short_Literal 0x1
02e9 0092 060c | | Action Push_String_Extended,0x60c ; "_!machine.temporary.archive_code_file"
02eb e007 | | Load 0x0,0x7
02ec 181a | | Execute Package,Field_Execute,Field_Number 0x1a
02ed 780a |x | Jump 0x2f8
02ee e408 | | Load 0x2,0x8
02ef 4800 |H | Short_Literal 0x0
02f0 e007 | | Load 0x0,0x7
02f1 1b15 | | Execute Package,Field_Read,Field_Number 0x15
02f2 4802 |H | Short_Literal 0x2
02f3 4802 |H | Short_Literal 0x2
02f4 0092 060c | | Action Push_String_Extended,0x60c ; "_!machine.temporary.archive_code_file"
02f6 e007 | | Load 0x0,0x7
02f7 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02f8 e407 | | Load 0x2,0x7
02f9 4800 |H | Short_Literal 0x0
02fa 0092 0607 | | Action Push_String_Extended,0x607 ; "_!machine.temporary.archive_freeze_file"
02fc e006 | | Load 0x0,0x6
02fd 181e | | Execute Package,Field_Execute,Field_Number 0x1e
02fe e409 | | Load 0x2,0x9
02ff e40a | | Load 0x2,0xa
0300 0278 | x | Execute Discrete,Or
0301 6806 |h | Jump_Zero 0x308
0302 e407 | | Load 0x2,0x7
0303 4800 |H | Short_Literal 0x0
0304 0092 0602 | | Action Push_String_Extended,0x602 ; "_!machine.temporary.freeze_file"
0306 e006 | | Load 0x0,0x6
0307 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0308 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0309 0000 0000 | | .BLANK 0000[0x7]
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 031f | | .CONST 0x031f ; Address of begin
0311 0004 | | .CONST 0x0004 ; Address of exception handler
0312 0005 | | .CONST 0x0005 ; Number of locals
0313 INIT_0310:
0313 e005 | | Load 0x0,0x5
0314 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0315 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0316 02c7 | | Declare_Variable Any
0317 00d8 | | Load_Top At_Offset_0
0318 1c00 | | Execute_Immediate Run_Utility,0x0
0319 029f 049b | | Declare_Subprogram INIT_0498,For_Call
031b 029f 04c3 | | Declare_Subprogram INIT_04c0,For_Call
031d 029f 04db | | Declare_Subprogram INIT_04d8,For_Call
031f BODY_0310:
031f e7ff | | Load 0x3,-0x1
0320 01db | | Execute Vector,Length
0321 7002 |p | Jump_Nonzero 0x324
0322 00ea | | Load_Encached Null_String_Cache
0323 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0324 4801 |H | Short_Literal 0x1
0325 e005 | | Load 0x0,0x5
0326 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0327 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0328 e7ff | | Load 0x3,-0x1
0329 e005 | | Load 0x0,0x5
032a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
032b 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
032c c602 | | Store 0x3,0x2
032d 00db | | Load_Top At_Offset_3
032e e005 | | Load 0x0,0x5
032f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0330 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0331 6802 |h | Jump_Zero 0x334
0332 00ea | | Load_Encached Null_String_Cache
0333 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0334 8605 | | Call 0x3,0x5
0335 0831 | 1 | Execute_Immediate Raise,0x31
0336 0000 0000 | | .XXX[0x2]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 0342 | B | .CONST 0x0342 ; Address of begin
0339 0004 | | .CONST 0x0004 ; Address of exception handler
033a 0003 | | .CONST 0x0003 ; Number of locals
033b INIT_0338:
033b 4800 |H | Short_Literal 0x0
033c 4803 |H | Short_Literal 0x3
033d 029f 04f3 | | Declare_Subprogram INIT_04f0,For_Call
033f 03fd | | Declare_Type Discrete,Defined
0340 029f 051b | | Declare_Subprogram INIT_0518,For_Call
0342 BODY_0338:
0342 00cf | | Action Mark_Auxiliary
0343 00da | | Load_Top At_Offset_2
0344 0265 | e | Execute Discrete,Reverse_Bounds
0345 0007 | | Action Break_Optional
0346 00d8 | | Load_Top At_Offset_0
0347 e602 | | Load 0x3,0x2
0348 011c | | Execute Any,Convert_Unchecked
0349 1c01 | | Execute_Immediate Run_Utility,0x1
034a 8603 | | Call 0x3,0x3
034b 00c8 | | Action Pop_Auxiliary_Range
034c 3ff9 |? | Loop_Increasing 0x346
034d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
034e 0000 0000 | | .XXX[0x2]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0353 | S | .CONST 0x0353 ; Address of begin
0351 0004 | | .CONST 0x0004 ; Address of exception handler
0352 0001 | | .CONST 0x0001 ; Number of locals
0353 BODY_0350:
0353 INIT_0350:
0353 e404 | | Load 0x2,0x4
0354 4800 |H | Short_Literal 0x0
0355 e002 | | Load 0x0,0x2
0356 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0357 e5f4 | | Load 0x2,-0xc
0358 e001 | | Load 0x0,0x1
0359 1b12 | | Execute Package,Field_Read,Field_Number 0x12
035a 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
035b e5f5 | | Load 0x2,-0xb
035c e404 | | Load 0x2,0x4
035d 8418 | | Call 0x2,0x18
035e e5f5 | | Load 0x2,-0xb
035f 841b | | Call 0x2,0x1b
0360 841c | | Call 0x2,0x1c
0361 e5f4 | | Load 0x2,-0xc
0362 e001 | | Load 0x0,0x1
0363 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0364 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0365 4801 |H | Short_Literal 0x1
0366 e002 | | Load 0x0,0x2
0367 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0368 8420 | | Call 0x2,0x20
0369 8421 | ! | Call 0x2,0x21
036a e5f9 | | Load 0x2,-0x7
036b 841e | | Call 0x2,0x1e
036c 0092 060d | | Action Push_String_Extended,0x60d ; "new_objects replace"
036e 0092 060e | | Action Push_String_Extended,0x60e ; "[??,~!model??]"
0370 841d | | Call 0x2,0x1d
0371 0092 060f | | Action Push_String_Extended,0x60f ; "replace"
0373 e5fa | | Load 0x2,-0x6
0374 8423 | # | Call 0x2,0x23
0375 841d | | Call 0x2,0x1d
0376 8424 | $ | Call 0x2,0x24
0377 4801 |H | Short_Literal 0x1
0378 0092 0610 | | Action Push_String_Extended,0x610 ; ".LRM.[@'SPEC,~Calendar]"
037a 841f | | Call 0x2,0x1f
037b e5f4 | | Load 0x2,-0xc
037c e001 | | Load 0x0,0x1
037d 1b12 | | Execute Package,Field_Read,Field_Number 0x12
037e 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
037f 4803 |H | Short_Literal 0x3
0380 0092 0611 | | Action Push_String_Extended,0x611 ; "??"
0382 841f | | Call 0x2,0x1f
0383 0092 0612 | | Action Push_String_Extended,0x612 ; "replace promote"
0385 0092 0613 | | Action Push_String_Extended,0x613 ; "!model??"
0387 841d | | Call 0x2,0x1d
0388 8422 | " | Call 0x2,0x22
0389 4501 |E | Exit_Suprogram New_Top_Offset 0x1
038a 0000 0000 | | .BLANK 0000[0x6]
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 0393 | | .CONST 0x0393 ; Address of begin
0391 03a0 | | .CONST 0x03a0 ; Address of exception handler
0392 0001 | | .CONST 0x0001 ; Number of locals
0393 BODY_0390:
0393 INIT_0390:
0393 0092 0614 | | Action Push_String_Extended,0x614 ; "Building model world"
0395 e004 | | Load 0x0,0x4
0396 180d | | Execute Package,Field_Execute,Field_Number 0xd
0397 0092 05ee | | Action Push_String_Extended,0x5ee ; "<PROFILE>"
0399 00ea | | Load_Encached Null_String_Cache
039a 4800 |H | Short_Literal 0x0
039b 4800 |H | Short_Literal 0x0
039c e405 | | Load 0x2,0x5
039d e006 | | Load 0x0,0x6
039e 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
039f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03a0 TRAP_0390:
03a0 0007 | | Action Break_Optional
03a1 0092 0615 | | Action Push_String_Extended,0x615 ; "Can't create model "
03a3 e405 | | Load 0x2,0x5
03a4 01cc | | Execute Vector,Catenate
03a5 0092 0616 | | Action Push_String_Extended,0x616 ; " due to unhandled exception "
03a7 01cc | | Execute Vector,Catenate
03a8 4800 |H | Short_Literal 0x0
03a9 4801 |H | Short_Literal 0x1
03aa e003 | | Load 0x0,0x3
03ab 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03ac 01cc | | Execute Vector,Catenate
03ad e004 | | Load 0x0,0x4
03ae 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03af 00cc | | Action Pop_Block
03b0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03b1 0000 0000 | | .BLANK 0000[0x7]
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03bb | | .CONST 0x03bb ; Address of begin
03b9 03bf | | .CONST 0x03bf ; Address of exception handler
03ba 0001 | | .CONST 0x0001 ; Number of locals
03bb BODY_03b8:
03bb INIT_03b8:
03bb e5f5 | | Load 0x2,-0xb
03bc e405 | | Load 0x2,0x5
03bd 8418 | | Call 0x2,0x18
03be 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03bf TRAP_03b8:
03bf 0007 | | Action Break_Optional
03c0 0092 0617 | | Action Push_String_Extended,0x617 ; "Can't set target key for "
03c2 e405 | | Load 0x2,0x5
03c3 01cc | | Execute Vector,Catenate
03c4 0092 0616 | | Action Push_String_Extended,0x616 ; " due to unhandled exception "
03c6 01cc | | Execute Vector,Catenate
03c7 4800 |H | Short_Literal 0x0
03c8 4801 |H | Short_Literal 0x1
03c9 e003 | | Load 0x0,0x3
03ca 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03cb 01cc | | Execute Vector,Catenate
03cc e004 | | Load 0x0,0x4
03cd 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03ce 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03cf 0000 | | .XXX[0x1]
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03d3 | | .CONST 0x03d3 ; Address of begin
03d1 03e2 | | .CONST 0x03e2 ; Address of exception handler
03d2 0001 | | .CONST 0x0001 ; Number of locals
03d3 BODY_03d0:
03d3 INIT_03d0:
03d3 0092 05ee | | Action Push_String_Extended,0x5ee ; "<PROFILE>"
03d5 e405 | | Load 0x2,0x5
03d6 0092 0618 | | Action Push_String_Extended,0x618 ; "#"
03d8 0092 0619 | | Action Push_String_Extended,0x619 ; "!targets."
03da e7ff | | Load 0x3,-0x1
03db 01cc | | Execute Vector,Catenate
03dc 0092 061a | | Action Push_String_Extended,0x61a ; ".??'c(Ada)"
03de 01cc | | Execute Vector,Catenate
03df e011 | | Load 0x0,0x11
03e0 1812 | | Execute Package,Field_Execute,Field_Number 0x12
03e1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03e2 TRAP_03d0:
03e2 0007 | | Action Break_Optional
03e3 0092 061b | | Action Push_String_Extended,0x61b ; "Can't add links to "
03e5 e405 | | Load 0x2,0x5
03e6 01cc | | Execute Vector,Catenate
03e7 0092 0616 | | Action Push_String_Extended,0x616 ; " due to unhandled exception "
03e9 01cc | | Execute Vector,Catenate
03ea 4800 |H | Short_Literal 0x0
03eb 4801 |H | Short_Literal 0x1
03ec e003 | | Load 0x0,0x3
03ed 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03ee 01cc | | Execute Vector,Catenate
03ef e004 | | Load 0x0,0x4
03f0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03f1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03f2 0000 0000 | | .BLANK 0000[0x6]
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 03fb | | .CONST 0x03fb ; Address of begin
03f9 0004 | | .CONST 0x0004 ; Address of exception handler
03fa 0001 | | .CONST 0x0001 ; Number of locals
03fb BODY_03f8:
03fb INIT_03f8:
03fb 4607 |F | Jump_Case 0x8
03fc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
03fd 7806 |x | Jump 0x404 ; case 0x1
03fe 7809 |x | Jump 0x408 ; case 0x2
03ff 780d |x | Jump 0x40d ; case 0x3
0400 7810 |x | Jump 0x411 ; case 0x4
0401 7811 |x | Jump 0x413 ; case 0x5
0402 7812 |x | Jump 0x415 ; case 0x6
0403 7815 |x | Jump 0x419 ; case 0x7
0404 00da | | Load_Top At_Offset_2
0405 0091 05d5 | | Action Push_String_Extended_Indexed,0x5d5 ; "GOOD"
0407 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0408 00db | | Load_Top At_Offset_3
0409 00db | | Load_Top At_Offset_3
040a 00e0 | | Load_Encached Standard_Cache
040b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
040c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
040d 00da | | Load_Top At_Offset_2
040e 00e0 | | Load_Encached Standard_Cache
040f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0410 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0411 00db | | Load_Top At_Offset_3
0412 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0413 00db | | Load_Top At_Offset_3
0414 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0415 e604 | | Load 0x3,0x4
0416 00dc | | Load_Top At_Offset_4
0417 0267 | g | Execute Discrete,Predecessor
0418 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0419 e604 | | Load 0x3,0x4
041a 00dc | | Load_Top At_Offset_4
041b 0268 | h | Execute Discrete,Successor
041c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
041d 0000 0000 | | .XXX[0x3]
041f 0000 | |
0420 ; --------------------------------------------------------------------------------------
0420 ; SUBPROGRAM
0420 ; --------------------------------------------------------------------------------------
0420 0426 | & | .CONST 0x0426 ; Address of begin
0421 0004 | | .CONST 0x0004 ; Address of exception handler
0422 0002 | | .CONST 0x0002 ; Number of locals
0423 INIT_0420:
0423 e5f4 | | Load 0x2,-0xc
0424 e012 | | Load 0x0,0x12
0425 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0426 BODY_0420:
0426 00d8 | | Load_Top At_Offset_0
0427 7002 |p | Jump_Nonzero 0x42a
0428 4802 |H | Short_Literal 0x2
0429 00ca | | Action Exit_Nullary_Function
042a 00d8 | | Load_Top At_Offset_0
042b e5f4 | | Load 0x2,-0xc
042c e012 | | Load 0x0,0x12
042d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
042e 027f | | Execute Discrete,Equal
042f 6802 |h | Jump_Zero 0x432
0430 4800 |H | Short_Literal 0x0
0431 00ca | | Action Exit_Nullary_Function
0432 e5fd | | Load 0x2,-0x3
0433 6802 |h | Jump_Zero 0x436
0434 4801 |H | Short_Literal 0x1
0435 00ca | | Action Exit_Nullary_Function
0436 0092 061c | | Action Push_String_Extended,0x61c ; "Existing standard tree is incompatible with this release"
0438 e004 | | Load 0x0,0x4
0439 1811 | | Execute Package,Field_Execute,Field_Number 0x11
043a e002 | | Load 0x0,0x2
043b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
043c 0257 | W | Execute Discrete,Raise
043d 0000 0000 | | .XXX[0x3]
043f 0000 | |
0440 ; --------------------------------------------------------------------------------------
0440 ; SUBPROGRAM
0440 ; --------------------------------------------------------------------------------------
0440 0443 | C | .CONST 0x0443 ; Address of begin
0441 0004 | | .CONST 0x0004 ; Address of exception handler
0442 0001 | | .CONST 0x0001 ; Number of locals
0443 BODY_0440:
0443 INIT_0440:
0443 00da | | Load_Top At_Offset_2
0444 6811 |h | Jump_Zero 0x456
0445 0092 061d | | Action Push_String_Extended,0x61d ; "The existing standard package is being replaced: ada units with target key "
0447 e5f5 | | Load 0x2,-0xb
0448 01cc | | Execute Vector,Catenate
0449 0092 061e | | Action Push_String_Extended,0x61e ; " will be demoted to source and repromoted"
044b 01cc | | Execute Vector,Catenate
044c 0092 061f | | Action Push_String_Extended,0x61f ; " during the resgistration"
044e 01cc | | Execute Vector,Catenate
044f 0092 0620 | | Action Push_String_Extended,0x620 ; " of this target"
0451 01cc | | Execute Vector,Catenate
0452 e004 | | Load 0x0,0x4
0453 180f | | Execute Package,Field_Execute,Field_Number 0xf
0454 4801 |H | Short_Literal 0x1
0455 a409 | | Store_Unchecked 0x2,0x9
0456 0092 0621 | !| Action Push_String_Extended,0x621 ; "Creating standard package"
0458 e004 | | Load 0x0,0x4
0459 180d | | Execute Package,Field_Execute,Field_Number 0xd
045a e603 | | Load 0x3,0x3
045b 0120 | | Execute Any,Is_Value
045c 6803 |h | Jump_Zero 0x460
045d e00d | | Load 0x0,0xd
045e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
045f 7801 |x | Jump 0x461
0460 e603 | | Load 0x3,0x3
0461 00e1 | | Load_Encached Boolean_Cache
0462 e5f4 | | Load 0x2,-0xc
0463 e9ff | | Load 0x4,-0x1
0464 4801 |H | Short_Literal 0x1
0465 4800 |H | Short_Literal 0x0
0466 e012 | | Load 0x0,0x12
0467 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0468 c602 | | Store 0x3,0x2
0469 c603 | | Store 0x3,0x3
046a e603 | | Load 0x3,0x3
046b e602 | | Load 0x3,0x2
046c 0092 0622 | "| Action Push_String_Extended,0x622 ; "created"
046e 0092 0623 | #| Action Push_String_Extended,0x623 ; "Standard"
0470 e004 | | Load 0x0,0x4
0471 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0472 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0473 0000 0000 | | .BLANK 0000[0x5]
0478 ; --------------------------------------------------------------------------------------
0478 ; SUBPROGRAM
0478 ; --------------------------------------------------------------------------------------
0478 047b | { | .CONST 0x047b ; Address of begin
0479 0004 | | .CONST 0x0004 ; Address of exception handler
047a 0001 | | .CONST 0x0001 ; Number of locals
047b BODY_0478:
047b INIT_0478:
047b 0092 0624 | $| Action Push_String_Extended,0x624 ; "Pretty printing standard package"
047d e004 | | Load 0x0,0x4
047e 180d | | Execute Package,Field_Execute,Field_Number 0xd
047f e603 | | Load 0x3,0x3
0480 0120 | | Execute Any,Is_Value
0481 6803 |h | Jump_Zero 0x485
0482 e00d | | Load 0x0,0xd
0483 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0484 7801 |x | Jump 0x486
0485 e603 | | Load 0x3,0x3
0486 00e1 | | Load_Encached Boolean_Cache
0487 e5f4 | | Load 0x2,-0xc
0488 e012 | | Load 0x0,0x12
0489 1816 | | Execute Package,Field_Execute,Field_Number 0x16
048a c602 | | Store 0x3,0x2
048b c603 | | Store 0x3,0x3
048c e603 | | Load 0x3,0x3
048d e602 | | Load 0x3,0x2
048e 0092 0625 | %| Action Push_String_Extended,0x625 ; "pretty printed"
0490 0092 0623 | #| Action Push_String_Extended,0x623 ; "Standard"
0492 e004 | | Load 0x0,0x4
0493 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0494 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0495 0000 0000 | | .XXX[0x3]
0497 0000 | |
0498 ; --------------------------------------------------------------------------------------
0498 ; SUBPROGRAM
0498 ; --------------------------------------------------------------------------------------
0498 04a4 | | .CONST 0x04a4 ; Address of begin
0499 0004 | | .CONST 0x0004 ; Address of exception handler
049a 0004 | | .CONST 0x0004 ; Number of locals
049b INIT_0498:
049b e009 | | Load 0x0,0x9
049c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
049d 02c7 | | Declare_Variable Any
049e 00d8 | | Load_Top At_Offset_0
049f 1c00 | | Execute_Immediate Run_Utility,0x0
04a0 e009 | | Load 0x0,0x9
04a1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04a2 029f 057b | {| Declare_Subprogram INIT_0578,For_Call
04a4 BODY_0498:
04a4 e009 | | Load 0x0,0x9
04a5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04a6 00db | | Load_Top At_Offset_3
04a7 0120 | | Execute Any,Is_Value
04a8 6803 |h | Jump_Zero 0x4ac
04a9 e009 | | Load 0x0,0x9
04aa 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04ab 7801 |x | Jump 0x4ad
04ac 00db | | Load_Top At_Offset_3
04ad e9ff | | Load 0x4,-0x1
04ae e005 | | Load 0x0,0x5
04af 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04b0 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
04b1 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04b2 c802 | | Store 0x4,0x2
04b3 005a | Z | Store_Top Discrete,At_Offset_2
04b4 00d9 | | Load_Top At_Offset_1
04b5 6807 |h | Jump_Zero 0x4bd
04b6 0092 0626 | &| Action Push_String_Extended,0x626 ; "internal error: fetch dir_obj from object.handle"
04b8 e004 | | Load 0x0,0x4
04b9 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04ba e002 | | Load 0x0,0x2
04bb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04bc 0257 | W | Execute Discrete,Raise
04bd 8804 | | Call 0x4,0x4
04be 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04bf 0000 | | .XXX[0x1]
04c0 ; --------------------------------------------------------------------------------------
04c0 ; SUBPROGRAM
04c0 ; --------------------------------------------------------------------------------------
04c0 04c5 | | .CONST 0x04c5 ; Address of begin
04c1 0004 | | .CONST 0x0004 ; Address of exception handler
04c2 0002 | | .CONST 0x0002 ; Number of locals
04c3 INIT_04c0:
04c3 029f 059b | | Declare_Subprogram INIT_0598,For_Call
04c5 BODY_04c0:
04c5 e602 | | Load 0x3,0x2
04c6 e005 | | Load 0x0,0x5
04c7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04c8 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
04c9 c602 | | Store 0x3,0x2
04ca e602 | | Load 0x3,0x2
04cb e005 | | Load 0x0,0x5
04cc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04cd 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
04ce 6802 |h | Jump_Zero 0x4d1
04cf 00ea | | Load_Encached Null_String_Cache
04d0 00ca | | Action Exit_Nullary_Function
04d1 8802 | | Call 0x4,0x2
04d2 0831 | 1 | Execute_Immediate Raise,0x31
04d3 0000 0000 | | .BLANK 0000[0x5]
04d8 ; --------------------------------------------------------------------------------------
04d8 ; SUBPROGRAM
04d8 ; --------------------------------------------------------------------------------------
04d8 04e4 | | .CONST 0x04e4 ; Address of begin
04d9 0004 | | .CONST 0x0004 ; Address of exception handler
04da 0002 | | .CONST 0x0002 ; Number of locals
04db INIT_04d8:
04db e005 | | Load 0x0,0x5
04dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04dd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04de 02c7 | | Declare_Variable Any
04df e602 | | Load 0x3,0x2
04e0 e005 | | Load 0x0,0x5
04e1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04e2 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
04e3 a802 | | Store_Unchecked 0x4,0x2
04e4 BODY_04d8:
04e4 485d |H] | Short_Literal 0x5d
04e5 485b |H[ | Short_Literal 0x5b
04e6 00da | | Load_Top At_Offset_2
04e7 8603 | | Call 0x3,0x3
04e8 01ca | | Execute Vector,Prepend
04e9 8604 | | Call 0x3,0x4
04ea 01cc | | Execute Vector,Catenate
04eb 01cb | | Execute Vector,Append
04ec 00cb | | Action Pop_Block_With_Result
04ed 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04ee 0000 0000 | | .XXX[0x2]
04f0 ; --------------------------------------------------------------------------------------
04f0 ; SUBPROGRAM
04f0 ; --------------------------------------------------------------------------------------
04f0 04f3 | | .CONST 0x04f3 ; Address of begin
04f1 0004 | | .CONST 0x0004 ; Address of exception handler
04f2 0001 | | .CONST 0x0001 ; Number of locals
04f3 BODY_04f0:
04f3 INIT_04f0:
04f3 4607 |F | Jump_Case 0x8
04f4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
04f5 7806 |x | Jump 0x4fc ; case 0x1
04f6 7809 |x | Jump 0x500 ; case 0x2
04f7 780d |x | Jump 0x505 ; case 0x3
04f8 7810 |x | Jump 0x509 ; case 0x4
04f9 7811 |x | Jump 0x50b ; case 0x5
04fa 7812 |x | Jump 0x50d ; case 0x6
04fb 7815 |x | Jump 0x511 ; case 0x7
04fc 00da | | Load_Top At_Offset_2
04fd 0091 05d8 | | Action Push_String_Extended_Indexed,0x5d8 ; "IO"
04ff 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0500 00db | | Load_Top At_Offset_3
0501 00db | | Load_Top At_Offset_3
0502 00e0 | | Load_Encached Standard_Cache
0503 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0504 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0505 00da | | Load_Top At_Offset_2
0506 00e0 | | Load_Encached Standard_Cache
0507 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0508 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0509 00db | | Load_Top At_Offset_3
050a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
050b 00db | | Load_Top At_Offset_3
050c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
050d e602 | | Load 0x3,0x2
050e 00dc | | Load_Top At_Offset_4
050f 0267 | g | Execute Discrete,Predecessor
0510 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0511 e602 | | Load 0x3,0x2
0512 00dc | | Load_Top At_Offset_4
0513 0268 | h | Execute Discrete,Successor
0514 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0515 0000 0000 | | .XXX[0x3]
0517 0000 | |
0518 ; --------------------------------------------------------------------------------------
0518 ; SUBPROGRAM
0518 ; --------------------------------------------------------------------------------------
0518 052e | . | .CONST 0x052e ; Address of begin
0519 0004 | | .CONST 0x0004 ; Address of exception handler
051a 0005 | | .CONST 0x0005 ; Number of locals
051b INIT_0518:
051b e005 | | Load 0x0,0x5
051c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
051d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
051e 02c7 | | Declare_Variable Any
051f 00d8 | | Load_Top At_Offset_0
0520 1c00 | | Execute_Immediate Run_Utility,0x0
0521 e005 | | Load 0x0,0x5
0522 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0523 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0524 02c7 | | Declare_Variable Any
0525 00d8 | | Load_Top At_Offset_0
0526 1c00 | | Execute_Immediate Run_Utility,0x0
0527 e009 | | Load 0x0,0x9
0528 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0529 02c7 | | Declare_Variable Any
052a 00d8 | | Load_Top At_Offset_0
052b 1c00 | | Execute_Immediate Run_Utility,0x0
052c e009 | | Load 0x0,0x9
052d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
052e BODY_0518:
052e 4801 |H | Short_Literal 0x1
052f e005 | | Load 0x0,0x5
0530 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0531 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0532 e404 | | Load 0x2,0x4
0533 0092 05dc | | Action Push_String_Extended,0x5dc ; "."
0535 01cc | | Execute Vector,Catenate
0536 e9ff | | Load 0x4,-0x1
0537 01cc | | Execute Vector,Catenate
0538 0092 0627 | '| Action Push_String_Extended,0x627 ; ".?'c(library)"
053a 01cc | | Execute Vector,Catenate
053b e005 | | Load 0x0,0x5
053c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
053d 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
053e c802 | | Store 0x4,0x2
053f 00cf | | Action Mark_Auxiliary
0540 782c |x, | Jump 0x56d
0541 e802 | | Load 0x4,0x2
0542 e005 | | Load 0x0,0x5
0543 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0544 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0545 c803 | | Store 0x4,0x3
0546 e009 | | Load 0x0,0x9
0547 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0548 00db | | Load_Top At_Offset_3
0549 0120 | | Execute Any,Is_Value
054a 6803 |h | Jump_Zero 0x54e
054b e009 | | Load 0x0,0x9
054c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
054d 7801 |x | Jump 0x54f
054e 00db | | Load_Top At_Offset_3
054f e803 | | Load 0x4,0x3
0550 e005 | | Load 0x0,0x5
0551 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0552 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
0553 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0554 c804 | | Store 0x4,0x4
0555 005a | Z | Store_Top Discrete,At_Offset_2
0556 0092 05ee | | Action Push_String_Extended,0x5ee ; "<PROFILE>"
0558 00db | | Load_Top At_Offset_3
0559 e009 | | Load 0x0,0x9
055a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
055b 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
055c e404 | | Load 0x2,0x4
055d 0092 05dc | | Action Push_String_Extended,0x5dc ; "."
055f 01cc | | Execute Vector,Catenate
0560 e9ff | | Load 0x4,-0x1
0561 01cc | | Execute Vector,Catenate
0562 0092 0628 | (| Action Push_String_Extended,0x628 ; ".Switches"
0564 01cc | | Execute Vector,Catenate
0565 e008 | | Load 0x0,0x8
0566 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0567 e802 | | Load 0x4,0x2
0568 e005 | | Load 0x0,0x5
0569 1b0d | | Execute Package,Field_Read,Field_Number 0xd
056a 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
056b c802 | | Store 0x4,0x2
056c 00c9 | | Action Pop_Auxiliary_Loop
056d e802 | | Load 0x4,0x2
056e e005 | | Load 0x0,0x5
056f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0570 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0571 6fcf |o | Jump_Zero 0x541
0572 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0573 0000 0000 | | .BLANK 0000[0x5]
0578 ; --------------------------------------------------------------------------------------
0578 ; SUBPROGRAM
0578 ; --------------------------------------------------------------------------------------
0578 058a | | .CONST 0x058a ; Address of begin
0579 0004 | | .CONST 0x0004 ; Address of exception handler
057a 0006 | | .CONST 0x0006 ; Number of locals
057b INIT_0578:
057b e802 | | Load 0x4,0x2
057c e009 | | Load 0x0,0x9
057d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
057e 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
057f 0092 0629 | )| Action Push_String_Extended,0x629 ; "'SPEC"
0581 00d9 | | Load_Top At_Offset_1
0582 01dc | | Execute Vector,Last
0583 0afc | | Execute_Immediate Plus,-0x4
0584 00e2 | | Load_Encached Integer_Cache
0585 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0586 029f 05b3 | | Declare_Subprogram INIT_05b0,For_Call
0588 029f 05c3 | | Declare_Subprogram INIT_05c0,For_Call
058a BODY_0578:
058a 8a05 | | Call 0x5,0x5
058b 6806 |h | Jump_Zero 0x592
058c 8a06 | | Call 0x5,0x6
058d 6804 |h | Jump_Zero 0x592
058e ea02 | | Load 0x5,0x2
058f ea03 | | Load 0x5,0x3
0590 01cc | | Execute Vector,Catenate
0591 00ca | | Action Exit_Nullary_Function
0592 ea02 | | Load 0x5,0x2
0593 00ca | | Action Exit_Nullary_Function
0594 0000 0000 | | .BLANK 0000[0x4]
0598 ; --------------------------------------------------------------------------------------
0598 ; SUBPROGRAM
0598 ; --------------------------------------------------------------------------------------
0598 05a4 | | .CONST 0x05a4 ; Address of begin
0599 0004 | | .CONST 0x0004 ; Address of exception handler
059a 0002 | | .CONST 0x0002 ; Number of locals
059b INIT_0598:
059b e005 | | Load 0x0,0x5
059c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
059d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
059e 02c7 | | Declare_Variable Any
059f e602 | | Load 0x3,0x2
05a0 e005 | | Load 0x0,0x5
05a1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05a2 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
05a3 aa02 | | Store_Unchecked 0x5,0x2
05a4 BODY_0598:
05a4 482c |H, | Short_Literal 0x2c
05a5 00d9 | | Load_Top At_Offset_1
05a6 8603 | | Call 0x3,0x3
05a7 01ca | | Execute Vector,Prepend
05a8 8604 | | Call 0x3,0x4
05a9 01cc | | Execute Vector,Catenate
05aa 00cb | | Action Pop_Block_With_Result
05ab 00ca | | Action Exit_Nullary_Function
05ac 0000 0000 | | .BLANK 0000[0x4]
05b0 ; --------------------------------------------------------------------------------------
05b0 ; SUBPROGRAM
05b0 ; --------------------------------------------------------------------------------------
05b0 05b3 | | .CONST 0x05b3 ; Address of begin
05b1 0004 | | .CONST 0x0004 ; Address of exception handler
05b2 0001 | | .CONST 0x0001 ; Number of locals
05b3 BODY_05b0:
05b3 INIT_05b0:
05b3 e9ff | | Load 0x4,-0x1
05b4 e005 | | Load 0x0,0x5
05b5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05b6 1817 | | Execute Package,Field_Execute,Field_Number 0x17
05b7 0f02 | | Execute_Immediate Equal,0x2
05b8 6805 |h | Jump_Zero 0x5be
05b9 e9ff | | Load 0x4,-0x1
05ba e005 | | Load 0x0,0x5
05bb 1b11 | | Execute Package,Field_Read,Field_Number 0x11
05bc 181a | | Execute Package,Field_Execute,Field_Number 0x1a
05bd 00ca | | Action Exit_Nullary_Function
05be 4800 |H | Short_Literal 0x0
05bf 00ca | | Action Exit_Nullary_Function
05c0 ; --------------------------------------------------------------------------------------
05c0 ; SUBPROGRAM
05c0 ; --------------------------------------------------------------------------------------
05c0 05c3 | | .CONST 0x05c3 ; Address of begin
05c1 0004 | | .CONST 0x0004 ; Address of exception handler
05c2 0001 | | .CONST 0x0001 ; Number of locals
05c3 BODY_05c0:
05c3 INIT_05c0:
05c3 ea02 | | Load 0x5,0x2
05c4 01dd | | Execute Vector,First
05c5 ea04 | | Load 0x5,0x4
05c6 027d | } | Execute Discrete,Greater
05c7 700b |p | Jump_Nonzero 0x5d3
05c8 4801 |H | Short_Literal 0x1
05c9 ea03 | | Load 0x5,0x3
05ca ea04 | | Load 0x5,0x4
05cb ea02 | | Load 0x5,0x2
05cc 01dc | | Execute Vector,Last
05cd ea02 | | Load 0x5,0x2
05ce 01cf | | Execute Vector,Slice_Read
05cf e013 | | Load 0x0,0x13
05d0 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
05d1 0f00 | | Execute_Immediate Equal,0x0
05d2 00ca | | Action Exit_Nullary_Function
05d3 4801 |H | Short_Literal 0x1
05d4 00ca | | Action Exit_Nullary_Function
05d5 ; --------------------------------------------------------------------------------------
05d5 ; STRING TABLE
05d5 ; --------------------------------------------------------------------------------------
05d5 00ac | | .STRTAB 0x00ac->0x062b ; "GOOD"
05d6 00ae | | .STRTAB 0x00ae->0x062d ; "INCOMPATIBLE"
05d7 00b8 | | .STRTAB 0x00b8->0x0633 ; "NON_EXISTENT"
05d8 00c2 | | .STRTAB 0x00c2->0x0639 ; "IO"
05d9 00c2 | | .STRTAB 0x00c2->0x063a ; "LRM"
05da 00c3 | | .STRTAB 0x00c3->0x063b ; "TARGET_INTERFACE"
05db 00d1 | | .STRTAB 0x00d1->0x0643 ; "REUSABLE_COMPONENTS"
05dc 00e2 | | .STRTAB 0x00e2->0x064d ; "."
05dd 00e1 | | .STRTAB 0x00e1->0x064d ; "!model."
05de 00e6 | | .STRTAB 0x00e6->0x0651 ; "Registration"
05df 00f0 | | .STRTAB 0x00f0->0x0657 ; "<ERRORS>"
05e0 00f6 | | .STRTAB 0x00f6->0x065b ; "<PROGRESS>"
05e1 00fe | | .STRTAB 0x00fe->0x0660 ; "!machine.temporary."
05e2 010f | | .STRTAB 0x010f->0x0669 ; "!machine.temporary.world_list"
05e3 012a | * | .STRTAB 0x012a->0x0678 ; "!machine.temporary.freeze_file"
05e4 0146 | F | .STRTAB 0x0146->0x0687 ; "!machine.temporary.demote_file"
05e5 0162 | b | .STRTAB 0x0162->0x0696 ; "!machine.temporary.install_file"
05e6 017f | | .STRTAB 0x017f->0x06a5 ; "!machine.temporary.code_file"
05e7 0199 | | .STRTAB 0x0199->0x06b3 ; "archive_"
05e8 019f | | .STRTAB 0x019f->0x06b7 ; "!machine.temporary.archive_world_list"
05e9 01c2 | | .STRTAB 0x01c2->0x06ca ; "!machine.temporary.archive_freeze_file"
05ea 01e6 | | .STRTAB 0x01e6->0x06dd ; "!machine.temporary.archive_demote_file"
05eb 020a | | .STRTAB 0x020a->0x06f0 ; "!machine.temporary.archive_install_file"
05ec 022f | / | .STRTAB 0x022f->0x0703 ; "!machine.temporary.archive_code_file"
05ed 0251 | Q | .STRTAB 0x0251->0x0715 ; " raised in build_target"
05ee 0266 | f | .STRTAB 0x0266->0x0721 ; "<PROFILE>"
05ef 026d | m | .STRTAB 0x026d->0x0725 ; "Library "
05f0 0273 | s | .STRTAB 0x0273->0x0729 ; " already exists"
05f1 0280 | | .STRTAB 0x0280->0x0731 ; "Switch file "
05f2 028a | | .STRTAB 0x028a->0x0737 ; "Creating predefined library structure"
05f3 02ad | | .STRTAB 0x02ad->0x0749 ; "SWITCHES"
05f4 02b3 | | .STRTAB 0x02b3->0x074d ; ".LRM"
05f5 02b5 | | .STRTAB 0x02b5->0x074f ; ".IO"
05f6 02b6 | | .STRTAB 0x02b6->0x0751 ; ".TARGET_INTERFACE"
05f7 02c5 | | .STRTAB 0x02c5->0x0759 ; ".REUSABLE_COMPONENTS"
05f8 02d7 | | .STRTAB 0x02d7->0x0763 ; "Build_Model"
05f9 02e0 | | .STRTAB 0x02e0->0x0769 ; "Error resolving "
05fa 02ee | | .STRTAB 0x02ee->0x0771 ; ". "
05fb 02ef | | .STRTAB 0x02ef->0x0772 ; "Using existing model world"
05fc 0307 | | .STRTAB 0x0307->0x077f ; "!model"
05fd 030b | | .STRTAB 0x030b->0x0782 ; "Can't find world !MODEL. "
05fe 0322 | " | .STRTAB 0x0322->0x078f ; "Using the existing standard package"
05ff 0343 | C | .STRTAB 0x0343->0x07a0 ; "*"
0600 0342 | B | .STRTAB 0x0342->0x07a1 ; "view_list"
0601 0349 | I | .STRTAB 0x0349->0x07a5 ; "[_view_list]?'c(ada)"
0602 035b | [ | .STRTAB 0x035b->0x07af ; "_!machine.temporary.freeze_file"
0603 0378 | x | .STRTAB 0x0378->0x07bf ; "<WORLDS>"
0604 037e | ~ | .STRTAB 0x037e->0x07c3 ; "_!machine.temporary.demote_file"
0605 039b | | .STRTAB 0x039b->0x07d2 ; "["
0606 039a | | .STRTAB 0x039a->0x07d3 ; "]'c(ada)"
0607 03a0 | | .STRTAB 0x03a0->0x07d7 ; "_!machine.temporary.archive_freeze_file"
0608 03c5 | | .STRTAB 0x03c5->0x07ea ; "_!machine.temporary.archive_demote_file"
0609 03ea | | .STRTAB 0x03ea->0x07fe ; "_!machine.temporary.install_file"
060a 0408 | | .STRTAB 0x0408->0x080e ; "_!machine.temporary.code_file"
060b 0423 | # | .STRTAB 0x0423->0x081c ; "_!machine.temporary.archive_install_file"
060c 0449 | I | .STRTAB 0x0449->0x0830 ; "_!machine.temporary.archive_code_file"
060d 046c | l | .STRTAB 0x046c->0x0843 ; "new_objects replace"
060e 047d | } | .STRTAB 0x047d->0x084c ; "[??,~!model??]"
060f 0489 | | .STRTAB 0x0489->0x0853 ; "replace"
0610 048e | | .STRTAB 0x048e->0x0857 ; ".LRM.[@'SPEC,~Calendar]"
0611 04a3 | | .STRTAB 0x04a3->0x0862 ; "??"
0612 04a3 | | .STRTAB 0x04a3->0x0863 ; "replace promote"
0613 04b0 | | .STRTAB 0x04b0->0x086b ; "!model??"
0614 04b6 | | .STRTAB 0x04b6->0x086f ; "Building model world"
0615 04c8 | | .STRTAB 0x04c8->0x0879 ; "Can't create model "
0616 04d9 | | .STRTAB 0x04d9->0x0882 ; " due to unhandled exception "
0617 04f3 | | .STRTAB 0x04f3->0x0890 ; "Can't set target key for "
0618 050a | | .STRTAB 0x050a->0x089d ; "#"
0619 0509 | | .STRTAB 0x0509->0x089d ; "!targets."
061a 0510 | | .STRTAB 0x0510->0x08a2 ; ".??'c(Ada)"
061b 0518 | | .STRTAB 0x0518->0x08a7 ; "Can't add links to "
061c 0529 | ) | .STRTAB 0x0529->0x08b0 ; "Existing standard tree is incompatible with this release"
061d 055f | _ | .STRTAB 0x055f->0x08cc ; "The existing standard package is being replaced: ada units with target key "
061e 05a9 | | .STRTAB 0x05a9->0x08f2 ; " will be demoted to source and repromoted"
061f 05d0 | | .STRTAB 0x05d0->0x0907 ; " during the resgistration"
0620 05e7 | | .STRTAB 0x05e7->0x0913 ; " of this target"
0621 05f4 | | .STRTAB 0x05f4->0x091b ; "Creating standard package"
0622 060b | | .STRTAB 0x060b->0x0927 ; "created"
0623 0610 | | .STRTAB 0x0610->0x092b ; "Standard"
0624 0616 | | .STRTAB 0x0616->0x092f ; "Pretty printing standard package"
0625 0634 | 4 | .STRTAB 0x0634->0x093f ; "pretty printed"
0626 0640 | @ | .STRTAB 0x0640->0x0946 ; "internal error: fetch dir_obj from object.handle"
0627 066e | n | .STRTAB 0x066e->0x095e ; ".?'c(library)"
0628 0679 | y | .STRTAB 0x0679->0x0964 ; ".Switches"
0629 0680 | | .STRTAB 0x0680->0x0969 ; "'SPEC"
062a 0683 | | .STREND 0x0683->0x096b
062b 474f 4f44 |GOOD| .STRTAB_STRINGS
096c 0000 0000 | | .BLANK 0000[0x4]
0970 ; --------------------------------------------------------------------------------------
0970 ; Debug Table
0970 ; --------------------------------------------------------------------------------------
0970 0004 000e | | .DEBUG4 0x0004,0x000e,0xea27,0x0000,0x0001,0x0000
0976 0000 0000 | | .BLANK 0000[0x18]
098e 0200 0001 | | .XXX[0xd]
0990 4000 0000 |@ |
0992 0000 0002 | |
0994 0000 0016 | |
0996 0000 0000 | |
0998 0800 0002 | |
099a 8000 | |
099b 0000 0000 | | .BLANK 0000[0x29]
09c4 0080 0000 | | .XXX[0xd]
09c6 5000 0000 |P |
09c8 0000 0000 | |
09ca 8000 0005 | |
09cc 8000 0000 | |
09ce 0200 0000 | |
09d0 a000 | |
09d1 0000 0000 | | .BLANK 0000[0x29]
09fa 0020 0000 | | .XXX[0x6]
09fc 1400 0000 | |
09fe 0000 0000 | |