|
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_6a18da
└─⟦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 0968 | h | .CONST 0x0968 ; 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 05e4 | | Action Push_String_Extended,0x5e4 ; "." 0023 01cc | | Execute Vector,Catenate 0024 e5f5 | | Load 0x2,-0xb 0025 01cc | | Execute Vector,Catenate 0026 0007 | | Action Break_Optional 0027 0092 05e5 | | Action Push_String_Extended,0x5e5 ; "!model." 0029 e5f5 | | Load 0x2,-0xb 002a 01cc | | Execute Vector,Catenate 002b 0007 | | Action Break_Optional 002c 0092 05e6 | | Action Push_String_Extended,0x5e6 ; "Registration" 002e 0092 05e7 | | Action Push_String_Extended,0x5e7 ; "<ERRORS>" 0030 0092 05e8 | | Action Push_String_Extended,0x5e8 ; "<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 05e9 | | Action Push_String_Extended,0x5e9 ; "!machine.temporary." 0038 0092 05ea | | Action Push_String_Extended,0x5ea ; "!machine.temporary.world_list" 003a 0092 05eb | | Action Push_String_Extended,0x5eb ; "!machine.temporary.freeze_file" 003c 0092 05ec | | Action Push_String_Extended,0x5ec ; "!machine.temporary.demote_file" 003e 0092 05ed | | Action Push_String_Extended,0x5ed ; "!machine.temporary.install_file" 0040 0092 05ee | | Action Push_String_Extended,0x5ee ; "!machine.temporary.code_file" 0042 0092 05ef | | Action Push_String_Extended,0x5ef ; "archive_" 0044 0092 05f0 | | Action Push_String_Extended,0x5f0 ; "!machine.temporary.archive_world_list" 0046 0092 05f1 | | Action Push_String_Extended,0x5f1 ; "!machine.temporary.archive_freeze_file" 0048 0092 05f2 | | Action Push_String_Extended,0x5f2 ; "!machine.temporary.archive_demote_file" 004a 0092 05f3 | | Action Push_String_Extended,0x5f3 ; "!machine.temporary.archive_install_file" 004c 0092 05f4 | | Action Push_String_Extended,0x5f4 ; "!machine.temporary.archive_code_file" 004e 029f 00a3 | | Declare_Subprogram INIT_00a0,For_Call 0050 029f 00cb | | Declare_Subprogram INIT_00c8,For_Call 0052 029f 00db | | Declare_Subprogram INIT_00d8,For_Call 0054 029f 011b | | Declare_Subprogram INIT_0118,For_Call 0056 029f 0153 | S| Declare_Subprogram INIT_0150,For_Call 0058 029f 01eb | | Declare_Subprogram INIT_01e8,For_Call 005a 029f 021b | | Declare_Subprogram INIT_0218,For_Call 005c 029f 0233 | 3| Declare_Subprogram INIT_0230,For_Call 005e 029f 0243 | C| Declare_Subprogram INIT_0240,For_Call 0060 029f 025b | [| Declare_Subprogram INIT_0258,For_Call 0062 029f 028b | | Declare_Subprogram INIT_0288,For_Call 0064 029f 02b3 | | Declare_Subprogram INIT_02b0,For_Call 0066 029f 031b | | Declare_Subprogram INIT_0318,For_Call 0068 029f 0343 | C| Declare_Subprogram INIT_0340,For_Call 006a 029f 035b | [| Declare_Subprogram INIT_0358,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 6806 |h | Jump_Zero 0x89 0083 4801 |H | Short_Literal 0x1 0084 e5f5 | | Load 0x2,-0xb 0085 e406 | | Load 0x2,0x6 0086 e002 | | Load 0x0,0x2 0087 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0088 450e |E | Exit_Suprogram New_Top_Offset 0xe 0089 e002 | | Load 0x0,0x2 008a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 008b 010f | | Execute Exception,Equal 008c 6806 |h | Jump_Zero 0x93 008d 4801 |H | Short_Literal 0x1 008e e5f5 | | Load 0x2,-0xb 008f e406 | | Load 0x2,0x6 0090 e002 | | Load 0x0,0x2 0091 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0092 450e |E | Exit_Suprogram New_Top_Offset 0xe 0093 4800 |H | Short_Literal 0x0 0094 4801 |H | Short_Literal 0x1 0095 e003 | | Load 0x0,0x3 0096 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0097 e004 | | Load 0x0,0x4 0098 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0099 4801 |H | Short_Literal 0x1 009a e5f5 | | Load 0x2,-0xb 009b e406 | | Load 0x2,0x6 009c e002 | | Load 0x0,0x2 009d 1818 | | Execute Package,Field_Execute,Field_Number 0x18 009e 450e |E | Exit_Suprogram New_Top_Offset 0xe 009f 0000 | | .XXX[0x1] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00b0 | | .CONST 0x00b0 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0002 | | .CONST 0x0002 ; Number of locals 00a3 INIT_00a0: 00a3 e005 | | Load 0x0,0x5 00a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00a5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00a6 02c7 | | Declare_Variable Any 00a7 4801 |H | Short_Literal 0x1 00a8 e005 | | Load 0x0,0x5 00a9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00aa 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00ab e7ff | | Load 0x3,-0x1 00ac e005 | | Load 0x0,0x5 00ad 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00ae 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 00af a602 | | Store_Unchecked 0x3,0x2 00b0 BODY_00a0: 00b0 00d8 | | Load_Top At_Offset_0 00b1 e005 | | Load 0x0,0x5 00b2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00b3 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 00b4 6809 |h | Jump_Zero 0xbe 00b5 0092 05f5 | | Action Push_String_Extended,0x5f5 ; "<PROFILE>" 00b7 e7fd | | Load 0x3,-0x3 00b8 4800 |H | Short_Literal 0x0 00b9 e7fe | | Load 0x3,-0x2 00ba e7ff | | Load 0x3,-0x1 00bb e006 | | Load 0x0,0x6 00bc 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00bd 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00be 0092 05f6 | | Action Push_String_Extended,0x5f6 ; "Library " 00c0 e7ff | | Load 0x3,-0x1 00c1 01cc | | Execute Vector,Catenate 00c2 0092 05f7 | | Action Push_String_Extended,0x5f7 ; " already exists" 00c4 01cc | | Execute Vector,Catenate 00c5 e004 | | Load 0x0,0x4 00c6 180d | | Execute Package,Field_Execute,Field_Number 0xd 00c7 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cb | | .CONST 0x00cb ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0001 | | .CONST 0x0001 ; Number of locals 00cb BODY_00c8: 00cb INIT_00c8: 00cb 0092 05f5 | | Action Push_String_Extended,0x5f5 ; "<PROFILE>" 00cd 00db | | Load_Top At_Offset_3 00ce 482a |H* | Short_Literal 0x2a 00cf e7fe | | Load 0x3,-0x2 00d0 01ca | | Execute Vector,Prepend 00d1 e007 | | Load 0x0,0x7 00d2 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00d3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00d4 0000 0000 | | .BLANK 0000[0x4] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00ee | | .CONST 0x00ee ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0003 | | .CONST 0x0003 ; Number of locals 00db INIT_00d8: 00db 482e |H. | Short_Literal 0x2e 00dc 00db | | Load_Top At_Offset_3 00dd 01cb | | Execute Vector,Append 00de e7fe | | Load 0x3,-0x2 00df 01cc | | Execute Vector,Catenate 00e0 0007 | | Action Break_Optional 00e1 e005 | | Load 0x0,0x5 00e2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00e3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00e4 02c7 | | Declare_Variable Any 00e5 4801 |H | Short_Literal 0x1 00e6 e005 | | Load 0x0,0x5 00e7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00e8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00e9 00db | | Load_Top At_Offset_3 00ea e005 | | Load 0x0,0x5 00eb 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00ec 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 00ed a603 | | Store_Unchecked 0x3,0x3 00ee BODY_00d8: 00ee 00d8 | | Load_Top At_Offset_0 00ef e005 | | Load 0x0,0x5 00f0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00f1 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 00f2 680e |h | Jump_Zero 0x101 00f3 4801 |H | Short_Literal 0x1 00f4 a402 | | Store_Unchecked 0x2,0x2 00f5 0092 05f5 | | Action Push_String_Extended,0x5f5 ; "<PROFILE>" 00f7 00da | | Load_Top At_Offset_2 00f8 e008 | | Load 0x0,0x8 00f9 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00fa 0092 05f5 | | Action Push_String_Extended,0x5f5 ; "<PROFILE>" 00fc e7ff | | Load 0x3,-0x1 00fd 00db | | Load_Top At_Offset_3 00fe e008 | | Load 0x0,0x8 00ff 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0100 7809 |x | Jump 0x10a 0101 0092 05f8 | | Action Push_String_Extended,0x5f8 ; "Switch file " 0103 00da | | Load_Top At_Offset_2 0104 01cc | | Execute Vector,Catenate 0105 0092 05f7 | | Action Push_String_Extended,0x5f7 ; " already exists" 0107 01cc | | Execute Vector,Catenate 0108 e004 | | Load 0x0,0x4 0109 180d | | Execute Package,Field_Execute,Field_Number 0xd 010a e5fe | | Load 0x2,-0x2 010b 01db | | Execute Vector,Length 010c 6806 |h | Jump_Zero 0x113 010d 0092 05f5 | | Action Push_String_Extended,0x5f5 ; "<PROFILE>" 010f 00da | | Load_Top At_Offset_2 0110 e5fe | | Load 0x2,-0x2 0111 e008 | | Load 0x0,0x8 0112 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0113 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0114 0000 0000 | | .BLANK 0000[0x4] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011b | | .CONST 0x011b ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0001 | | .CONST 0x0001 ; Number of locals 011b BODY_0118: 011b INIT_0118: 011b 0092 05f9 | | Action Push_String_Extended,0x5f9 ; "Creating predefined library structure" 011d e004 | | Load 0x0,0x4 011e 180d | | Execute Package,Field_Execute,Field_Number 0xd 011f 00ea | | Load_Encached Null_String_Cache 0120 4800 |H | Short_Literal 0x0 0121 e403 | | Load 0x2,0x3 0122 8417 | | Call 0x2,0x17 0123 00ea | | Load_Encached Null_String_Cache 0124 4800 |H | Short_Literal 0x0 0125 e404 | | Load 0x2,0x4 0126 8417 | | Call 0x2,0x17 0127 e5f5 | | Load 0x2,-0xb 0128 e404 | | Load 0x2,0x4 0129 8418 | | Call 0x2,0x18 012a e5f5 | | Load 0x2,-0xb 012b e405 | | Load 0x2,0x5 012c 8418 | | Call 0x2,0x18 012d 0092 05fa | | Action Push_String_Extended,0x5fa ; "SWITCHES" 012f e404 | | Load 0x2,0x4 0130 8419 | | Call 0x2,0x19 0131 00ea | | Load_Encached Null_String_Cache 0132 4801 |H | Short_Literal 0x1 0133 e404 | | Load 0x2,0x4 0134 0092 05fb | | Action Push_String_Extended,0x5fb ; ".LRM" 0136 01cc | | Execute Vector,Catenate 0137 8417 | | Call 0x2,0x17 0138 00ea | | Load_Encached Null_String_Cache 0139 4801 |H | Short_Literal 0x1 013a e404 | | Load 0x2,0x4 013b 0092 05fc | | Action Push_String_Extended,0x5fc ; ".IO" 013d 01cc | | Execute Vector,Catenate 013e 8417 | | Call 0x2,0x17 013f 00ea | | Load_Encached Null_String_Cache 0140 4801 |H | Short_Literal 0x1 0141 e404 | | Load 0x2,0x4 0142 0092 05fd | | Action Push_String_Extended,0x5fd ; ".TARGET_INTERFACE" 0144 01cc | | Execute Vector,Catenate 0145 8417 | | Call 0x2,0x17 0146 00ea | | Load_Encached Null_String_Cache 0147 4801 |H | Short_Literal 0x1 0148 e404 | | Load 0x2,0x4 0149 0092 05fe | | Action Push_String_Extended,0x5fe ; ".REUSABLE_COMPONENTS" 014b 01cc | | Execute Vector,Catenate 014c 8417 | | Call 0x2,0x17 014d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 014e 0000 0000 | | .XXX[0x2] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0170 | p | .CONST 0x0170 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 000a | | .CONST 0x000a ; Number of locals 0153 INIT_0150: 0153 e009 | | Load 0x0,0x9 0154 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0155 e009 | | Load 0x0,0x9 0156 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0157 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0158 e009 | | Load 0x0,0x9 0159 1b0f | | Execute Package,Field_Read,Field_Number 0xf 015a 02c7 | | Declare_Variable Any 015b 00d8 | | Load_Top At_Offset_0 015c 1c00 | | Execute_Immediate Run_Utility,0x0 015d e009 | | Load 0x0,0x9 015e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 015f 02c7 | | Declare_Variable Any 0160 00d8 | | Load_Top At_Offset_0 0161 1c00 | | Execute_Immediate Run_Utility,0x0 0162 e00a | | Load 0x0,0xa 0163 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0164 02c7 | | Declare_Variable Any 0165 e00a | | Load 0x0,0xa 0166 180e | | Execute Package,Field_Execute,Field_Number 0xe 0167 a606 | | Store_Unchecked 0x3,0x6 0168 0092 05ff | | Action Push_String_Extended,0x5ff ; "Build_Model" 016a 029f 039b | | Declare_Subprogram INIT_0398,For_Call 016c 029f 03c3 | | Declare_Subprogram INIT_03c0,For_Call 016e 029f 03db | | Declare_Subprogram INIT_03d8,For_Call 0170 BODY_0150: 0170 e009 | | Load 0x0,0x9 0171 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0172 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0173 e604 | | Load 0x3,0x4 0174 0120 | | Execute Any,Is_Value 0175 6803 |h | Jump_Zero 0x179 0176 e009 | | Load 0x0,0x9 0177 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0178 7801 |x | Jump 0x17a 0179 e604 | | Load 0x3,0x4 017a 6065 |`e | Indirect_Literal Discrete,0x1e0,{0x00000000, 0x00004000} 017b e00b | | Load 0x0,0xb 017c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 017d e00c | | Load 0x0,0xc 017e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 017f e009 | | Load 0x0,0x9 0180 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0181 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0182 0092 05e5 | | Action Push_String_Extended,0x5e5 ; "!model." 0184 e7ff | | Load 0x3,-0x1 0185 01cc | | Execute Vector,Catenate 0186 e009 | | Load 0x0,0x9 0187 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0188 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0189 c604 | | Store 0x3,0x4 018a c603 | | Store 0x3,0x3 018b e603 | | Load 0x3,0x3 018c 460e |F | Jump_Case 0xf 018d 781f |x | Jump 0x1ad ; case 0x0 018e 780d |x | Jump 0x19c ; case 0x1 018f 780c |x | Jump 0x19c ; case 0x2 0190 7821 |x! | Jump 0x1b2 ; case 0x3 0191 780a |x | Jump 0x19c ; case 0x4 0192 7809 |x | Jump 0x19c ; case 0x5 0193 7808 |x | Jump 0x19c ; case 0x6 0194 7807 |x | Jump 0x19c ; case 0x7 0195 7806 |x | Jump 0x19c ; case 0x8 0196 7805 |x | Jump 0x19c ; case 0x9 0197 7804 |x | Jump 0x19c ; case 0xa 0198 7803 |x | Jump 0x19c ; case 0xb 0199 7802 |x | Jump 0x19c ; case 0xc 019a 7801 |x | Jump 0x19c ; case 0xd 019b 7800 |x | Jump 0x19c ; case 0xe 019c 0092 0600 | | Action Push_String_Extended,0x600 ; "Error resolving " 019e e405 | | Load 0x2,0x5 019f 01cc | | Execute Vector,Catenate 01a0 0092 0601 | | Action Push_String_Extended,0x601 ; ". " 01a2 01cc | | Execute Vector,Catenate 01a3 e603 | | Load 0x3,0x3 01a4 e009 | | Load 0x0,0x9 01a5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01a6 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01a7 011c | | Execute Any,Convert_Unchecked 01a8 1c01 | | Execute_Immediate Run_Utility,0x1 01a9 01cc | | Execute Vector,Catenate 01aa e004 | | Load 0x0,0x4 01ab 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01ac 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01ad 0092 0602 | | Action Push_String_Extended,0x602 ; "Using existing model world" 01af e004 | | Load 0x0,0x4 01b0 180d | | Execute Package,Field_Execute,Field_Number 0xd 01b1 7828 |x( | Jump 0x1da 01b2 e009 | | Load 0x0,0x9 01b3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01b4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01b5 e605 | | Load 0x3,0x5 01b6 0120 | | Execute Any,Is_Value 01b7 6803 |h | Jump_Zero 0x1bb 01b8 e009 | | Load 0x0,0x9 01b9 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01ba 7801 |x | Jump 0x1bc 01bb e605 | | Load 0x3,0x5 01bc 6023 |`# | Indirect_Literal Discrete,0x1e0,{0x00000000, 0x00004000} 01bd e00b | | Load 0x0,0xb 01be 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01bf e00c | | Load 0x0,0xc 01c0 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01c1 e009 | | Load 0x0,0x9 01c2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01c3 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01c4 0092 0603 | | Action Push_String_Extended,0x603 ; "!model" 01c6 e009 | | Load 0x0,0x9 01c7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01c8 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 01c9 c605 | | Store 0x3,0x5 01ca c603 | | Store 0x3,0x3 01cb e603 | | Load 0x3,0x3 01cc 680c |h | Jump_Zero 0x1d9 01cd 0092 0604 | | Action Push_String_Extended,0x604 ; "Can't find world !MODEL. " 01cf e603 | | Load 0x3,0x3 01d0 e009 | | Load 0x0,0x9 01d1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01d2 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01d3 011c | | Execute Any,Convert_Unchecked 01d4 1c01 | | Execute_Immediate Run_Utility,0x1 01d5 01cc | | Execute Vector,Catenate 01d6 e004 | | Load 0x0,0x4 01d7 180d | | Execute Package,Field_Execute,Field_Number 0xd 01d8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01d9 8608 | | Call 0x3,0x8 01da 8609 | | Call 0x3,0x9 01db 860a | | Call 0x3,0xa 01dc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01dd 0000 0000 | | .XXX[0x3] 01df 0000 | | 01e0 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 01e4 0000 0000 | | .BLANK 0000[0x4] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01fc | | .CONST 0x01fc ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0007 | | .CONST 0x0007 ; Number of locals 01eb INIT_01e8: 01eb 00e1 | | Load_Encached Boolean_Cache 01ec e00d | | Load 0x0,0xd 01ed 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01ee 02c7 | | Declare_Variable Any 01ef 00d8 | | Load_Top At_Offset_0 01f0 1c00 | | Execute_Immediate Run_Utility,0x0 01f1 4800 |H | Short_Literal 0x0 01f2 4802 |H | Short_Literal 0x2 01f3 029f 0403 | | Declare_Subprogram INIT_0400,For_Call 01f5 03fd | | Declare_Type Discrete,Defined 01f6 029f 042b | +| Declare_Subprogram INIT_0428,For_Call 01f8 029f 044b | K| Declare_Subprogram INIT_0448,For_Call 01fa 029f 0483 | | Declare_Subprogram INIT_0480,For_Call 01fc BODY_01e8: 01fc 8605 | | Call 0x3,0x5 01fd 4602 |F | Jump_Case 0x3 01fe 780a |x | Jump 0x209 ; case 0x0 01ff 7805 |x | Jump 0x205 ; case 0x1 0200 7800 |x | Jump 0x201 ; case 0x2 0201 4800 |H | Short_Literal 0x0 0202 8606 | | Call 0x3,0x6 0203 8607 | | Call 0x3,0x7 0204 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0205 4801 |H | Short_Literal 0x1 0206 8606 | | Call 0x3,0x6 0207 8607 | | Call 0x3,0x7 0208 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0209 e5fc | | Load 0x2,-0x4 020a 6804 |h | Jump_Zero 0x20f 020b 4801 |H | Short_Literal 0x1 020c 8606 | | Call 0x3,0x6 020d 8607 | | Call 0x3,0x7 020e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 020f 0092 0605 | | Action Push_String_Extended,0x605 ; "Using the existing standard package" 0211 e004 | | Load 0x0,0x4 0212 180d | | Execute Package,Field_Execute,Field_Number 0xd 0213 e5fb | | Load 0x2,-0x5 0214 6801 |h | Jump_Zero 0x216 0215 8607 | | Call 0x3,0x7 0216 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0217 0000 | | .XXX[0x1] 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 021b | | .CONST 0x021b ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 0001 | | .CONST 0x0001 ; Number of locals 021b BODY_0218: 021b INIT_0218: 021b e5ff | | Load 0x2,-0x1 021c 01db | | Execute Vector,Length 021d 680e |h | Jump_Zero 0x22c 021e 00da | | Load_Top At_Offset_2 021f 01db | | Execute Vector,Length 0220 680b |h | Jump_Zero 0x22c 0221 0092 05f5 | | Action Push_String_Extended,0x5f5 ; "<PROFILE>" 0223 e5ff | | Load 0x2,-0x1 0224 e7fe | | Load 0x3,-0x2 0225 0092 0606 | | Action Push_String_Extended,0x606 ; "*" 0227 0092 0606 | | Action Push_String_Extended,0x606 ; "*" 0229 e7ff | | Load 0x3,-0x1 022a e00e | | Load 0x0,0xe 022b 180e | | Execute Package,Field_Execute,Field_Number 0xe 022c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 022d 0000 0000 | | .XXX[0x3] 022f 0000 | | 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 0233 | 3 | .CONST 0x0233 ; Address of begin 0231 0004 | | .CONST 0x0004 ; Address of exception handler 0232 0001 | | .CONST 0x0001 ; Number of locals 0233 BODY_0230: 0233 INIT_0230: 0233 e5f9 | | Load 0x2,-0x7 0234 01db | | Execute Vector,Length 0235 6807 |h | Jump_Zero 0x23d 0236 0092 05f5 | | Action Push_String_Extended,0x5f5 ; "<PROFILE>" 0238 e007 | | Load 0x0,0x7 0239 1b15 | | Execute Package,Field_Read,Field_Number 0x15 023a e5f9 | | Load 0x2,-0x7 023b e007 | | Load 0x0,0x7 023c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 023d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 023e 0000 0000 | | .XXX[0x2] 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0243 | C | .CONST 0x0243 ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0001 | | .CONST 0x0001 ; Number of locals 0243 BODY_0240: 0243 INIT_0240: 0243 e408 | | Load 0x2,0x8 0244 4800 |H | Short_Literal 0x0 0245 e007 | | Load 0x0,0x7 0246 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0247 4803 |H | Short_Literal 0x3 0248 e7fe | | Load 0x3,-0x2 0249 e404 | | Load 0x2,0x4 024a 0092 05e4 | | Action Push_String_Extended,0x5e4 ; "." 024c 01cc | | Execute Vector,Catenate 024d e7ff | | Load 0x3,-0x1 024e 01cc | | Execute Vector,Catenate 024f e007 | | Load 0x0,0x7 0250 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0251 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0252 0000 0000 | | .BLANK 0000[0x6] 0258 ; -------------------------------------------------------------------------------------- 0258 ; SUBPROGRAM 0258 ; -------------------------------------------------------------------------------------- 0258 0260 | ` | .CONST 0x0260 ; Address of begin 0259 0004 | | .CONST 0x0004 ; Address of exception handler 025a 0003 | | .CONST 0x0003 ; Number of locals 025b INIT_0258: 025b 0092 0607 | | Action Push_String_Extended,0x607 ; "view_list" 025d e007 | | Load 0x0,0x7 025e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 025f 0602 | | Execute_Immediate Set_Value_Unchecked,0x2 0260 BODY_0258: 0260 e40a | | Load 0x2,0xa 0261 e409 | | Load 0x2,0x9 0262 0278 | x | Execute Discrete,Or 0263 681e |h | Jump_Zero 0x282 0264 e409 | | Load 0x2,0x9 0265 6802 |h | Jump_Zero 0x268 0266 4801 |H | Short_Literal 0x1 0267 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0268 00d9 | | Load_Top At_Offset_1 0269 e5f5 | | Load 0x2,-0xb 026a 800f | | Call 0x0,0xf 026b 4800 |H | Short_Literal 0x0 026c e410 | | Load 0x2,0x10 026d e40f | | Load 0x2,0xf 026e e40d | | Load 0x2,0xd 026f e40e | | Load 0x2,0xe 0270 0092 0608 | | Action Push_String_Extended,0x608 ; "[_view_list]?'c(ada)" 0272 8010 | | Call 0x0,0x10 0273 e407 | | Load 0x2,0x7 0274 4800 |H | Short_Literal 0x0 0275 0092 0609 | | Action Push_String_Extended,0x609 ; "_!machine.temporary.freeze_file" 0277 e006 | | Load 0x0,0x6 0278 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0279 e408 | | Load 0x2,0x8 027a 4800 |H | Short_Literal 0x0 027b 0092 060a | | Action Push_String_Extended,0x60a ; "<WORLDS>" 027d 00db | | Load_Top At_Offset_3 027e 0092 060b | | Action Push_String_Extended,0x60b ; "_!machine.temporary.demote_file" 0280 e007 | | Load 0x0,0x7 0281 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0282 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0283 0000 0000 | | .BLANK 0000[0x5] 0288 ; -------------------------------------------------------------------------------------- 0288 ; SUBPROGRAM 0288 ; -------------------------------------------------------------------------------------- 0288 028b | | .CONST 0x028b ; Address of begin 0289 0004 | | .CONST 0x0004 ; Address of exception handler 028a 0001 | | .CONST 0x0001 ; Number of locals 028b BODY_0288: 028b INIT_0288: 028b e5fa | | Load 0x2,-0x6 028c 01db | | Execute Vector,Length 028d 681c |h | Jump_Zero 0x2aa 028e 4800 |H | Short_Literal 0x0 028f e416 | | Load 0x2,0x16 0290 e415 | | Load 0x2,0x15 0291 e413 | | Load 0x2,0x13 0292 e414 | | Load 0x2,0x14 0293 0092 060c | | Action Push_String_Extended,0x60c ; "[" 0295 e5fa | | Load 0x2,-0x6 0296 01cc | | Execute Vector,Catenate 0297 0092 060d | | Action Push_String_Extended,0x60d ; "]'c(ada)" 0299 01cc | | Execute Vector,Catenate 029a 8010 | | Call 0x0,0x10 029b e407 | | Load 0x2,0x7 029c 4800 |H | Short_Literal 0x0 029d 0092 060e | | Action Push_String_Extended,0x60e ; "_!machine.temporary.archive_freeze_file" 029f e006 | | Load 0x0,0x6 02a0 181f | | Execute Package,Field_Execute,Field_Number 0x1f 02a1 e408 | | Load 0x2,0x8 02a2 4800 |H | Short_Literal 0x0 02a3 0092 060a | | Action Push_String_Extended,0x60a ; "<WORLDS>" 02a5 4801 |H | Short_Literal 0x1 02a6 0092 060f | | Action Push_String_Extended,0x60f ; "_!machine.temporary.archive_demote_file" 02a8 e007 | | Load 0x0,0x7 02a9 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02aa 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02ab 0000 0000 | | .BLANK 0000[0x5] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02b3 | | .CONST 0x02b3 ; Address of begin 02b1 0004 | | .CONST 0x0004 ; Address of exception handler 02b2 0001 | | .CONST 0x0001 ; Number of locals 02b3 BODY_02b0: 02b3 INIT_02b0: 02b3 e5f7 | | Load 0x2,-0x9 02b4 685b |h[ | Jump_Zero 0x310 02b5 e409 | | Load 0x2,0x9 02b6 680a |h | Jump_Zero 0x2c1 02b7 e408 | | Load 0x2,0x8 02b8 4800 |H | Short_Literal 0x0 02b9 e007 | | Load 0x0,0x7 02ba 1b15 | | Execute Package,Field_Read,Field_Number 0x15 02bb 4802 |H | Short_Literal 0x2 02bc 4802 |H | Short_Literal 0x2 02bd 0092 0610 | | Action Push_String_Extended,0x610 ; "_!machine.temporary.install_file" 02bf e007 | | Load 0x0,0x7 02c0 1819 | | Execute Package,Field_Execute,Field_Number 0x19 02c1 e409 | | Load 0x2,0x9 02c2 e40a | | Load 0x2,0xa 02c3 0278 | x | Execute Discrete,Or 02c4 6817 |h | Jump_Zero 0x2dc 02c5 e5f6 | | Load 0x2,-0xa 02c6 680b |h | Jump_Zero 0x2d2 02c7 e408 | | Load 0x2,0x8 02c8 4800 |H | Short_Literal 0x0 02c9 e007 | | Load 0x0,0x7 02ca 1b15 | | Execute Package,Field_Read,Field_Number 0x15 02cb 4803 |H | Short_Literal 0x3 02cc 4803 |H | Short_Literal 0x3 02cd 0092 0611 | | Action Push_String_Extended,0x611 ; "_!machine.temporary.code_file" 02cf e007 | | Load 0x0,0x7 02d0 181a | | Execute Package,Field_Execute,Field_Number 0x1a 02d1 780a |x | Jump 0x2dc 02d2 e408 | | Load 0x2,0x8 02d3 4800 |H | Short_Literal 0x0 02d4 e007 | | Load 0x0,0x7 02d5 1b15 | | Execute Package,Field_Read,Field_Number 0x15 02d6 4802 |H | Short_Literal 0x2 02d7 4802 |H | Short_Literal 0x2 02d8 0092 0611 | | Action Push_String_Extended,0x611 ; "_!machine.temporary.code_file" 02da e007 | | Load 0x0,0x7 02db 1819 | | Execute Package,Field_Execute,Field_Number 0x19 02dc e5fa | | Load 0x2,-0x6 02dd 01db | | Execute Vector,Length 02de 6827 |h' | Jump_Zero 0x306 02df e408 | | Load 0x2,0x8 02e0 4800 |H | Short_Literal 0x0 02e1 e007 | | Load 0x0,0x7 02e2 1b15 | | Execute Package,Field_Read,Field_Number 0x15 02e3 4802 |H | Short_Literal 0x2 02e4 4802 |H | Short_Literal 0x2 02e5 0092 0612 | | Action Push_String_Extended,0x612 ; "_!machine.temporary.archive_install_file" 02e7 e007 | | Load 0x0,0x7 02e8 1819 | | Execute Package,Field_Execute,Field_Number 0x19 02e9 e5f6 | | Load 0x2,-0xa 02ea 680b |h | Jump_Zero 0x2f6 02eb e408 | | Load 0x2,0x8 02ec 4800 |H | Short_Literal 0x0 02ed e007 | | Load 0x0,0x7 02ee 1b15 | | Execute Package,Field_Read,Field_Number 0x15 02ef 4803 |H | Short_Literal 0x3 02f0 4801 |H | Short_Literal 0x1 02f1 0092 0613 | | Action Push_String_Extended,0x613 ; "_!machine.temporary.archive_code_file" 02f3 e007 | | Load 0x0,0x7 02f4 181a | | Execute Package,Field_Execute,Field_Number 0x1a 02f5 780a |x | Jump 0x300 02f6 e408 | | Load 0x2,0x8 02f7 4800 |H | Short_Literal 0x0 02f8 e007 | | Load 0x0,0x7 02f9 1b15 | | Execute Package,Field_Read,Field_Number 0x15 02fa 4802 |H | Short_Literal 0x2 02fb 4802 |H | Short_Literal 0x2 02fc 0092 0613 | | Action Push_String_Extended,0x613 ; "_!machine.temporary.archive_code_file" 02fe e007 | | Load 0x0,0x7 02ff 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0300 e407 | | Load 0x2,0x7 0301 4800 |H | Short_Literal 0x0 0302 0092 060e | | Action Push_String_Extended,0x60e ; "_!machine.temporary.archive_freeze_file" 0304 e006 | | Load 0x0,0x6 0305 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0306 e409 | | Load 0x2,0x9 0307 e40a | | Load 0x2,0xa 0308 0278 | x | Execute Discrete,Or 0309 6806 |h | Jump_Zero 0x310 030a e407 | | Load 0x2,0x7 030b 4800 |H | Short_Literal 0x0 030c 0092 0609 | | Action Push_String_Extended,0x609 ; "_!machine.temporary.freeze_file" 030e e006 | | Load 0x0,0x6 030f 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0310 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0311 0000 0000 | | .BLANK 0000[0x7] 0318 ; -------------------------------------------------------------------------------------- 0318 ; SUBPROGRAM 0318 ; -------------------------------------------------------------------------------------- 0318 0327 | ' | .CONST 0x0327 ; Address of begin 0319 0004 | | .CONST 0x0004 ; Address of exception handler 031a 0005 | | .CONST 0x0005 ; Number of locals 031b INIT_0318: 031b e005 | | Load 0x0,0x5 031c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 031d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 031e 02c7 | | Declare_Variable Any 031f 00d8 | | Load_Top At_Offset_0 0320 1c00 | | Execute_Immediate Run_Utility,0x0 0321 029f 04a3 | | Declare_Subprogram INIT_04a0,For_Call 0323 029f 04cb | | Declare_Subprogram INIT_04c8,For_Call 0325 029f 04e3 | | Declare_Subprogram INIT_04e0,For_Call 0327 BODY_0318: 0327 e7ff | | Load 0x3,-0x1 0328 01db | | Execute Vector,Length 0329 7002 |p | Jump_Nonzero 0x32c 032a 00ea | | Load_Encached Null_String_Cache 032b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 032c 4801 |H | Short_Literal 0x1 032d e005 | | Load 0x0,0x5 032e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 032f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0330 e7ff | | Load 0x3,-0x1 0331 e005 | | Load 0x0,0x5 0332 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0333 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0334 c602 | | Store 0x3,0x2 0335 00db | | Load_Top At_Offset_3 0336 e005 | | Load 0x0,0x5 0337 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0338 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0339 6802 |h | Jump_Zero 0x33c 033a 00ea | | Load_Encached Null_String_Cache 033b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 033c 8605 | | Call 0x3,0x5 033d 0831 | 1 | Execute_Immediate Raise,0x31 033e 0000 0000 | | .XXX[0x2] 0340 ; -------------------------------------------------------------------------------------- 0340 ; SUBPROGRAM 0340 ; -------------------------------------------------------------------------------------- 0340 034a | J | .CONST 0x034a ; Address of begin 0341 0004 | | .CONST 0x0004 ; Address of exception handler 0342 0003 | | .CONST 0x0003 ; Number of locals 0343 INIT_0340: 0343 4800 |H | Short_Literal 0x0 0344 4803 |H | Short_Literal 0x3 0345 029f 04fb | | Declare_Subprogram INIT_04f8,For_Call 0347 03fd | | Declare_Type Discrete,Defined 0348 029f 0523 | #| Declare_Subprogram INIT_0520,For_Call 034a BODY_0340: 034a 00cf | | Action Mark_Auxiliary 034b 00da | | Load_Top At_Offset_2 034c 0265 | e | Execute Discrete,Reverse_Bounds 034d 0007 | | Action Break_Optional 034e 00d8 | | Load_Top At_Offset_0 034f e602 | | Load 0x3,0x2 0350 011c | | Execute Any,Convert_Unchecked 0351 1c01 | | Execute_Immediate Run_Utility,0x1 0352 8603 | | Call 0x3,0x3 0353 00c8 | | Action Pop_Auxiliary_Range 0354 3ff9 |? | Loop_Increasing 0x34e 0355 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0356 0000 0000 | | .XXX[0x2] 0358 ; -------------------------------------------------------------------------------------- 0358 ; SUBPROGRAM 0358 ; -------------------------------------------------------------------------------------- 0358 035b | [ | .CONST 0x035b ; Address of begin 0359 0392 | | .CONST 0x0392 ; Address of exception handler 035a 0001 | | .CONST 0x0001 ; Number of locals 035b BODY_0358: 035b INIT_0358: 035b e404 | | Load 0x2,0x4 035c 4800 |H | Short_Literal 0x0 035d e002 | | Load 0x0,0x2 035e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 035f e5f4 | | Load 0x2,-0xc 0360 e001 | | Load 0x0,0x1 0361 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0362 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0363 e5f5 | | Load 0x2,-0xb 0364 e404 | | Load 0x2,0x4 0365 8418 | | Call 0x2,0x18 0366 e5f5 | | Load 0x2,-0xb 0367 841b | | Call 0x2,0x1b 0368 841c | | Call 0x2,0x1c 0369 e5f4 | | Load 0x2,-0xc 036a e001 | | Load 0x0,0x1 036b 1b12 | | Execute Package,Field_Read,Field_Number 0x12 036c 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 036d 4801 |H | Short_Literal 0x1 036e e002 | | Load 0x0,0x2 036f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0370 8420 | | Call 0x2,0x20 0371 8421 | ! | Call 0x2,0x21 0372 e5f9 | | Load 0x2,-0x7 0373 841e | | Call 0x2,0x1e 0374 0092 0614 | | Action Push_String_Extended,0x614 ; "new_objects replace" 0376 0092 0615 | | Action Push_String_Extended,0x615 ; "[??,~!model??]" 0378 841d | | Call 0x2,0x1d 0379 0092 0616 | | Action Push_String_Extended,0x616 ; "replace" 037b e5fa | | Load 0x2,-0x6 037c 8423 | # | Call 0x2,0x23 037d 841d | | Call 0x2,0x1d 037e 8424 | $ | Call 0x2,0x24 037f 4801 |H | Short_Literal 0x1 0380 0092 0617 | | Action Push_String_Extended,0x617 ; ".LRM.[@'SPEC,~Calendar]" 0382 841f | | Call 0x2,0x1f 0383 e5f4 | | Load 0x2,-0xc 0384 e001 | | Load 0x0,0x1 0385 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0386 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 0387 4803 |H | Short_Literal 0x3 0388 0092 0618 | | Action Push_String_Extended,0x618 ; "??" 038a 841f | | Call 0x2,0x1f 038b 0092 0619 | | Action Push_String_Extended,0x619 ; "replace promote" 038d 0092 061a | | Action Push_String_Extended,0x61a ; "!model??" 038f 841d | | Call 0x2,0x1d 0390 8422 | " | Call 0x2,0x22 0391 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0392 TRAP_0358: 0392 e002 | | Load 0x0,0x2 0393 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0394 010f | | Execute Exception,Equal 0395 6801 |h | Jump_Zero 0x397 0396 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0397 0100 | | Execute Exception,Raise 0398 ; -------------------------------------------------------------------------------------- 0398 ; SUBPROGRAM 0398 ; -------------------------------------------------------------------------------------- 0398 039b | | .CONST 0x039b ; Address of begin 0399 03a8 | | .CONST 0x03a8 ; Address of exception handler 039a 0001 | | .CONST 0x0001 ; Number of locals 039b BODY_0398: 039b INIT_0398: 039b 0092 061b | | Action Push_String_Extended,0x61b ; "Building model world" 039d e004 | | Load 0x0,0x4 039e 180d | | Execute Package,Field_Execute,Field_Number 0xd 039f 0092 05f5 | | Action Push_String_Extended,0x5f5 ; "<PROFILE>" 03a1 00ea | | Load_Encached Null_String_Cache 03a2 4800 |H | Short_Literal 0x0 03a3 4800 |H | Short_Literal 0x0 03a4 e405 | | Load 0x2,0x5 03a5 e006 | | Load 0x0,0x6 03a6 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 03a7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03a8 TRAP_0398: 03a8 0007 | | Action Break_Optional 03a9 0092 061c | | Action Push_String_Extended,0x61c ; "Can't create model " 03ab e405 | | Load 0x2,0x5 03ac 01cc | | Execute Vector,Catenate 03ad 0092 061d | | Action Push_String_Extended,0x61d ; " due to unhandled exception " 03af 01cc | | Execute Vector,Catenate 03b0 4800 |H | Short_Literal 0x0 03b1 4801 |H | Short_Literal 0x1 03b2 e003 | | Load 0x0,0x3 03b3 1815 | | Execute Package,Field_Execute,Field_Number 0x15 03b4 01cc | | Execute Vector,Catenate 03b5 e004 | | Load 0x0,0x4 03b6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03b7 00cc | | Action Pop_Block 03b8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03b9 0000 0000 | | .BLANK 0000[0x7] 03c0 ; -------------------------------------------------------------------------------------- 03c0 ; SUBPROGRAM 03c0 ; -------------------------------------------------------------------------------------- 03c0 03c3 | | .CONST 0x03c3 ; Address of begin 03c1 03c7 | | .CONST 0x03c7 ; Address of exception handler 03c2 0001 | | .CONST 0x0001 ; Number of locals 03c3 BODY_03c0: 03c3 INIT_03c0: 03c3 e5f5 | | Load 0x2,-0xb 03c4 e405 | | Load 0x2,0x5 03c5 8418 | | Call 0x2,0x18 03c6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03c7 TRAP_03c0: 03c7 0007 | | Action Break_Optional 03c8 0092 061e | | Action Push_String_Extended,0x61e ; "Can't set target key for " 03ca e405 | | Load 0x2,0x5 03cb 01cc | | Execute Vector,Catenate 03cc 0092 061d | | Action Push_String_Extended,0x61d ; " due to unhandled exception " 03ce 01cc | | Execute Vector,Catenate 03cf 4800 |H | Short_Literal 0x0 03d0 4801 |H | Short_Literal 0x1 03d1 e003 | | Load 0x0,0x3 03d2 1815 | | Execute Package,Field_Execute,Field_Number 0x15 03d3 01cc | | Execute Vector,Catenate 03d4 e004 | | Load 0x0,0x4 03d5 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03d6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03d7 0000 | | .XXX[0x1] 03d8 ; -------------------------------------------------------------------------------------- 03d8 ; SUBPROGRAM 03d8 ; -------------------------------------------------------------------------------------- 03d8 03db | | .CONST 0x03db ; Address of begin 03d9 03ea | | .CONST 0x03ea ; Address of exception handler 03da 0001 | | .CONST 0x0001 ; Number of locals 03db BODY_03d8: 03db INIT_03d8: 03db 0092 05f5 | | Action Push_String_Extended,0x5f5 ; "<PROFILE>" 03dd e405 | | Load 0x2,0x5 03de 0092 061f | | Action Push_String_Extended,0x61f ; "#" 03e0 0092 0620 | | Action Push_String_Extended,0x620 ; "!targets." 03e2 e7ff | | Load 0x3,-0x1 03e3 01cc | | Execute Vector,Catenate 03e4 0092 0621 | !| Action Push_String_Extended,0x621 ; ".??'c(Ada)" 03e6 01cc | | Execute Vector,Catenate 03e7 e011 | | Load 0x0,0x11 03e8 1812 | | Execute Package,Field_Execute,Field_Number 0x12 03e9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03ea TRAP_03d8: 03ea 0007 | | Action Break_Optional 03eb 0092 0622 | "| Action Push_String_Extended,0x622 ; "Can't add links to " 03ed e405 | | Load 0x2,0x5 03ee 01cc | | Execute Vector,Catenate 03ef 0092 061d | | Action Push_String_Extended,0x61d ; " due to unhandled exception " 03f1 01cc | | Execute Vector,Catenate 03f2 4800 |H | Short_Literal 0x0 03f3 4801 |H | Short_Literal 0x1 03f4 e003 | | Load 0x0,0x3 03f5 1815 | | Execute Package,Field_Execute,Field_Number 0x15 03f6 01cc | | Execute Vector,Catenate 03f7 e004 | | Load 0x0,0x4 03f8 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03f9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03fa 0000 0000 | | .BLANK 0000[0x6] 0400 ; -------------------------------------------------------------------------------------- 0400 ; SUBPROGRAM 0400 ; -------------------------------------------------------------------------------------- 0400 0403 | | .CONST 0x0403 ; Address of begin 0401 0004 | | .CONST 0x0004 ; Address of exception handler 0402 0001 | | .CONST 0x0001 ; Number of locals 0403 BODY_0400: 0403 INIT_0400: 0403 4607 |F | Jump_Case 0x8 0404 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0405 7806 |x | Jump 0x40c ; case 0x1 0406 7809 |x | Jump 0x410 ; case 0x2 0407 780d |x | Jump 0x415 ; case 0x3 0408 7810 |x | Jump 0x419 ; case 0x4 0409 7811 |x | Jump 0x41b ; case 0x5 040a 7812 |x | Jump 0x41d ; case 0x6 040b 7815 |x | Jump 0x421 ; case 0x7 040c 00da | | Load_Top At_Offset_2 040d 0091 05dd | | Action Push_String_Extended_Indexed,0x5dd ; "GOOD" 040f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0410 00db | | Load_Top At_Offset_3 0411 00db | | Load_Top At_Offset_3 0412 00e0 | | Load_Encached Standard_Cache 0413 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0414 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0415 00da | | Load_Top At_Offset_2 0416 00e0 | | Load_Encached Standard_Cache 0417 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0418 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0419 00db | | Load_Top At_Offset_3 041a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 041b 00db | | Load_Top At_Offset_3 041c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 041d e604 | | Load 0x3,0x4 041e 00dc | | Load_Top At_Offset_4 041f 0267 | g | Execute Discrete,Predecessor 0420 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0421 e604 | | Load 0x3,0x4 0422 00dc | | Load_Top At_Offset_4 0423 0268 | h | Execute Discrete,Successor 0424 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0425 0000 0000 | | .XXX[0x3] 0427 0000 | | 0428 ; -------------------------------------------------------------------------------------- 0428 ; SUBPROGRAM 0428 ; -------------------------------------------------------------------------------------- 0428 042e | . | .CONST 0x042e ; Address of begin 0429 0004 | | .CONST 0x0004 ; Address of exception handler 042a 0002 | | .CONST 0x0002 ; Number of locals 042b INIT_0428: 042b e5f4 | | Load 0x2,-0xc 042c e012 | | Load 0x0,0x12 042d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 042e BODY_0428: 042e 00d8 | | Load_Top At_Offset_0 042f 7002 |p | Jump_Nonzero 0x432 0430 4802 |H | Short_Literal 0x2 0431 00ca | | Action Exit_Nullary_Function 0432 00d8 | | Load_Top At_Offset_0 0433 e5f4 | | Load 0x2,-0xc 0434 e012 | | Load 0x0,0x12 0435 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0436 027f | | Execute Discrete,Equal 0437 6802 |h | Jump_Zero 0x43a 0438 4800 |H | Short_Literal 0x0 0439 00ca | | Action Exit_Nullary_Function 043a e5fd | | Load 0x2,-0x3 043b 6802 |h | Jump_Zero 0x43e 043c 4801 |H | Short_Literal 0x1 043d 00ca | | Action Exit_Nullary_Function 043e 0092 0623 | #| Action Push_String_Extended,0x623 ; "Existing standard tree is incompatible with this release" 0440 e004 | | Load 0x0,0x4 0441 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0442 e002 | | Load 0x0,0x2 0443 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0444 0257 | W | Execute Discrete,Raise 0445 0000 0000 | | .XXX[0x3] 0447 0000 | | 0448 ; -------------------------------------------------------------------------------------- 0448 ; SUBPROGRAM 0448 ; -------------------------------------------------------------------------------------- 0448 044b | K | .CONST 0x044b ; Address of begin 0449 0004 | | .CONST 0x0004 ; Address of exception handler 044a 0001 | | .CONST 0x0001 ; Number of locals 044b BODY_0448: 044b INIT_0448: 044b 00da | | Load_Top At_Offset_2 044c 6811 |h | Jump_Zero 0x45e 044d 0092 0624 | $| Action Push_String_Extended,0x624 ; "The existing standard package is being replaced: ada units with target key " 044f e5f5 | | Load 0x2,-0xb 0450 01cc | | Execute Vector,Catenate 0451 0092 0625 | %| Action Push_String_Extended,0x625 ; " will be demoted to source and repromoted" 0453 01cc | | Execute Vector,Catenate 0454 0092 0626 | &| Action Push_String_Extended,0x626 ; " during the resgistration" 0456 01cc | | Execute Vector,Catenate 0457 0092 0627 | '| Action Push_String_Extended,0x627 ; " of this target" 0459 01cc | | Execute Vector,Catenate 045a e004 | | Load 0x0,0x4 045b 180f | | Execute Package,Field_Execute,Field_Number 0xf 045c 4801 |H | Short_Literal 0x1 045d a409 | | Store_Unchecked 0x2,0x9 045e 0092 0628 | (| Action Push_String_Extended,0x628 ; "Creating standard package" 0460 e004 | | Load 0x0,0x4 0461 180d | | Execute Package,Field_Execute,Field_Number 0xd 0462 e603 | | Load 0x3,0x3 0463 0120 | | Execute Any,Is_Value 0464 6803 |h | Jump_Zero 0x468 0465 e00d | | Load 0x0,0xd 0466 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0467 7801 |x | Jump 0x469 0468 e603 | | Load 0x3,0x3 0469 00e1 | | Load_Encached Boolean_Cache 046a e5f4 | | Load 0x2,-0xc 046b e9ff | | Load 0x4,-0x1 046c 4801 |H | Short_Literal 0x1 046d 4800 |H | Short_Literal 0x0 046e e012 | | Load 0x0,0x12 046f 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0470 c602 | | Store 0x3,0x2 0471 c603 | | Store 0x3,0x3 0472 e603 | | Load 0x3,0x3 0473 e602 | | Load 0x3,0x2 0474 0092 0629 | )| Action Push_String_Extended,0x629 ; "created" 0476 0092 062a | *| Action Push_String_Extended,0x62a ; "Standard" 0478 e004 | | Load 0x0,0x4 0479 1813 | | Execute Package,Field_Execute,Field_Number 0x13 047a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 047b 0000 0000 | | .BLANK 0000[0x5] 0480 ; -------------------------------------------------------------------------------------- 0480 ; SUBPROGRAM 0480 ; -------------------------------------------------------------------------------------- 0480 0483 | | .CONST 0x0483 ; Address of begin 0481 0004 | | .CONST 0x0004 ; Address of exception handler 0482 0001 | | .CONST 0x0001 ; Number of locals 0483 BODY_0480: 0483 INIT_0480: 0483 0092 062b | +| Action Push_String_Extended,0x62b ; "Pretty printing standard package" 0485 e004 | | Load 0x0,0x4 0486 180d | | Execute Package,Field_Execute,Field_Number 0xd 0487 e603 | | Load 0x3,0x3 0488 0120 | | Execute Any,Is_Value 0489 6803 |h | Jump_Zero 0x48d 048a e00d | | Load 0x0,0xd 048b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 048c 7801 |x | Jump 0x48e 048d e603 | | Load 0x3,0x3 048e 00e1 | | Load_Encached Boolean_Cache 048f e5f4 | | Load 0x2,-0xc 0490 e012 | | Load 0x0,0x12 0491 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0492 c602 | | Store 0x3,0x2 0493 c603 | | Store 0x3,0x3 0494 e603 | | Load 0x3,0x3 0495 e602 | | Load 0x3,0x2 0496 0092 062c | ,| Action Push_String_Extended,0x62c ; "pretty printed" 0498 0092 062a | *| Action Push_String_Extended,0x62a ; "Standard" 049a e004 | | Load 0x0,0x4 049b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 049c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 049d 0000 0000 | | .XXX[0x3] 049f 0000 | | 04a0 ; -------------------------------------------------------------------------------------- 04a0 ; SUBPROGRAM 04a0 ; -------------------------------------------------------------------------------------- 04a0 04ac | | .CONST 0x04ac ; Address of begin 04a1 0004 | | .CONST 0x0004 ; Address of exception handler 04a2 0004 | | .CONST 0x0004 ; Number of locals 04a3 INIT_04a0: 04a3 e009 | | Load 0x0,0x9 04a4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04a5 02c7 | | Declare_Variable Any 04a6 00d8 | | Load_Top At_Offset_0 04a7 1c00 | | Execute_Immediate Run_Utility,0x0 04a8 e009 | | Load 0x0,0x9 04a9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04aa 029f 0583 | | Declare_Subprogram INIT_0580,For_Call 04ac BODY_04a0: 04ac e009 | | Load 0x0,0x9 04ad 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04ae 00db | | Load_Top At_Offset_3 04af 0120 | | Execute Any,Is_Value 04b0 6803 |h | Jump_Zero 0x4b4 04b1 e009 | | Load 0x0,0x9 04b2 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04b3 7801 |x | Jump 0x4b5 04b4 00db | | Load_Top At_Offset_3 04b5 e9ff | | Load 0x4,-0x1 04b6 e005 | | Load 0x0,0x5 04b7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04b8 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 04b9 1810 | | Execute Package,Field_Execute,Field_Number 0x10 04ba c802 | | Store 0x4,0x2 04bb 005a | Z | Store_Top Discrete,At_Offset_2 04bc 00d9 | | Load_Top At_Offset_1 04bd 6807 |h | Jump_Zero 0x4c5 04be 0092 062d | -| Action Push_String_Extended,0x62d ; "internal error: fetch dir_obj from object.handle" 04c0 e004 | | Load 0x0,0x4 04c1 1811 | | Execute Package,Field_Execute,Field_Number 0x11 04c2 e002 | | Load 0x0,0x2 04c3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04c4 0257 | W | Execute Discrete,Raise 04c5 8804 | | Call 0x4,0x4 04c6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04c7 0000 | | .XXX[0x1] 04c8 ; -------------------------------------------------------------------------------------- 04c8 ; SUBPROGRAM 04c8 ; -------------------------------------------------------------------------------------- 04c8 04cd | | .CONST 0x04cd ; Address of begin 04c9 0004 | | .CONST 0x0004 ; Address of exception handler 04ca 0002 | | .CONST 0x0002 ; Number of locals 04cb INIT_04c8: 04cb 029f 05a3 | | Declare_Subprogram INIT_05a0,For_Call 04cd BODY_04c8: 04cd e602 | | Load 0x3,0x2 04ce e005 | | Load 0x0,0x5 04cf 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04d0 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 04d1 c602 | | Store 0x3,0x2 04d2 e602 | | Load 0x3,0x2 04d3 e005 | | Load 0x0,0x5 04d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04d5 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 04d6 6802 |h | Jump_Zero 0x4d9 04d7 00ea | | Load_Encached Null_String_Cache 04d8 00ca | | Action Exit_Nullary_Function 04d9 8802 | | Call 0x4,0x2 04da 0831 | 1 | Execute_Immediate Raise,0x31 04db 0000 0000 | | .BLANK 0000[0x5] 04e0 ; -------------------------------------------------------------------------------------- 04e0 ; SUBPROGRAM 04e0 ; -------------------------------------------------------------------------------------- 04e0 04ec | | .CONST 0x04ec ; Address of begin 04e1 0004 | | .CONST 0x0004 ; Address of exception handler 04e2 0002 | | .CONST 0x0002 ; Number of locals 04e3 INIT_04e0: 04e3 e005 | | Load 0x0,0x5 04e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04e5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04e6 02c7 | | Declare_Variable Any 04e7 e602 | | Load 0x3,0x2 04e8 e005 | | Load 0x0,0x5 04e9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04ea 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 04eb a802 | | Store_Unchecked 0x4,0x2 04ec BODY_04e0: 04ec 485d |H] | Short_Literal 0x5d 04ed 485b |H[ | Short_Literal 0x5b 04ee 00da | | Load_Top At_Offset_2 04ef 8603 | | Call 0x3,0x3 04f0 01ca | | Execute Vector,Prepend 04f1 8604 | | Call 0x3,0x4 04f2 01cc | | Execute Vector,Catenate 04f3 01cb | | Execute Vector,Append 04f4 00cb | | Action Pop_Block_With_Result 04f5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04f6 0000 0000 | | .XXX[0x2] 04f8 ; -------------------------------------------------------------------------------------- 04f8 ; SUBPROGRAM 04f8 ; -------------------------------------------------------------------------------------- 04f8 04fb | | .CONST 0x04fb ; Address of begin 04f9 0004 | | .CONST 0x0004 ; Address of exception handler 04fa 0001 | | .CONST 0x0001 ; Number of locals 04fb BODY_04f8: 04fb INIT_04f8: 04fb 4607 |F | Jump_Case 0x8 04fc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 04fd 7806 |x | Jump 0x504 ; case 0x1 04fe 7809 |x | Jump 0x508 ; case 0x2 04ff 780d |x | Jump 0x50d ; case 0x3 0500 7810 |x | Jump 0x511 ; case 0x4 0501 7811 |x | Jump 0x513 ; case 0x5 0502 7812 |x | Jump 0x515 ; case 0x6 0503 7815 |x | Jump 0x519 ; case 0x7 0504 00da | | Load_Top At_Offset_2 0505 0091 05e0 | | Action Push_String_Extended_Indexed,0x5e0 ; "IO" 0507 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0508 00db | | Load_Top At_Offset_3 0509 00db | | Load_Top At_Offset_3 050a 00e0 | | Load_Encached Standard_Cache 050b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 050c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 050d 00da | | Load_Top At_Offset_2 050e 00e0 | | Load_Encached Standard_Cache 050f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0510 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0511 00db | | Load_Top At_Offset_3 0512 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0513 00db | | Load_Top At_Offset_3 0514 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0515 e602 | | Load 0x3,0x2 0516 00dc | | Load_Top At_Offset_4 0517 0267 | g | Execute Discrete,Predecessor 0518 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0519 e602 | | Load 0x3,0x2 051a 00dc | | Load_Top At_Offset_4 051b 0268 | h | Execute Discrete,Successor 051c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 051d 0000 0000 | | .XXX[0x3] 051f 0000 | | 0520 ; -------------------------------------------------------------------------------------- 0520 ; SUBPROGRAM 0520 ; -------------------------------------------------------------------------------------- 0520 0536 | 6 | .CONST 0x0536 ; Address of begin 0521 0004 | | .CONST 0x0004 ; Address of exception handler 0522 0005 | | .CONST 0x0005 ; Number of locals 0523 INIT_0520: 0523 e005 | | Load 0x0,0x5 0524 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0525 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0526 02c7 | | Declare_Variable Any 0527 00d8 | | Load_Top At_Offset_0 0528 1c00 | | Execute_Immediate Run_Utility,0x0 0529 e005 | | Load 0x0,0x5 052a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 052b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 052c 02c7 | | Declare_Variable Any 052d 00d8 | | Load_Top At_Offset_0 052e 1c00 | | Execute_Immediate Run_Utility,0x0 052f e009 | | Load 0x0,0x9 0530 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0531 02c7 | | Declare_Variable Any 0532 00d8 | | Load_Top At_Offset_0 0533 1c00 | | Execute_Immediate Run_Utility,0x0 0534 e009 | | Load 0x0,0x9 0535 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0536 BODY_0520: 0536 4801 |H | Short_Literal 0x1 0537 e005 | | Load 0x0,0x5 0538 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0539 1813 | | Execute Package,Field_Execute,Field_Number 0x13 053a e404 | | Load 0x2,0x4 053b 0092 05e4 | | Action Push_String_Extended,0x5e4 ; "." 053d 01cc | | Execute Vector,Catenate 053e e9ff | | Load 0x4,-0x1 053f 01cc | | Execute Vector,Catenate 0540 0092 062e | .| Action Push_String_Extended,0x62e ; ".?'c(library)" 0542 01cc | | Execute Vector,Catenate 0543 e005 | | Load 0x0,0x5 0544 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0545 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0546 c802 | | Store 0x4,0x2 0547 00cf | | Action Mark_Auxiliary 0548 782c |x, | Jump 0x575 0549 e802 | | Load 0x4,0x2 054a e005 | | Load 0x0,0x5 054b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 054c 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 054d c803 | | Store 0x4,0x3 054e e009 | | Load 0x0,0x9 054f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0550 00db | | Load_Top At_Offset_3 0551 0120 | | Execute Any,Is_Value 0552 6803 |h | Jump_Zero 0x556 0553 e009 | | Load 0x0,0x9 0554 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0555 7801 |x | Jump 0x557 0556 00db | | Load_Top At_Offset_3 0557 e803 | | Load 0x4,0x3 0558 e005 | | Load 0x0,0x5 0559 1b0d | | Execute Package,Field_Read,Field_Number 0xd 055a 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 055b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 055c c804 | | Store 0x4,0x4 055d 005a | Z | Store_Top Discrete,At_Offset_2 055e 0092 05f5 | | Action Push_String_Extended,0x5f5 ; "<PROFILE>" 0560 00db | | Load_Top At_Offset_3 0561 e009 | | Load 0x0,0x9 0562 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0563 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0564 e404 | | Load 0x2,0x4 0565 0092 05e4 | | Action Push_String_Extended,0x5e4 ; "." 0567 01cc | | Execute Vector,Catenate 0568 e9ff | | Load 0x4,-0x1 0569 01cc | | Execute Vector,Catenate 056a 0092 062f | /| Action Push_String_Extended,0x62f ; ".Switches" 056c 01cc | | Execute Vector,Catenate 056d e008 | | Load 0x0,0x8 056e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 056f e802 | | Load 0x4,0x2 0570 e005 | | Load 0x0,0x5 0571 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0572 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0573 c802 | | Store 0x4,0x2 0574 00c9 | | Action Pop_Auxiliary_Loop 0575 e802 | | Load 0x4,0x2 0576 e005 | | Load 0x0,0x5 0577 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0578 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0579 6fcf |o | Jump_Zero 0x549 057a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 057b 0000 0000 | | .BLANK 0000[0x5] 0580 ; -------------------------------------------------------------------------------------- 0580 ; SUBPROGRAM 0580 ; -------------------------------------------------------------------------------------- 0580 0592 | | .CONST 0x0592 ; Address of begin 0581 0004 | | .CONST 0x0004 ; Address of exception handler 0582 0006 | | .CONST 0x0006 ; Number of locals 0583 INIT_0580: 0583 e802 | | Load 0x4,0x2 0584 e009 | | Load 0x0,0x9 0585 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0586 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0587 0092 0630 | 0| Action Push_String_Extended,0x630 ; "'SPEC" 0589 00d9 | | Load_Top At_Offset_1 058a 01dc | | Execute Vector,Last 058b 0afc | | Execute_Immediate Plus,-0x4 058c 00e2 | | Load_Encached Integer_Cache 058d 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 058e 029f 05bb | | Declare_Subprogram INIT_05b8,For_Call 0590 029f 05cb | | Declare_Subprogram INIT_05c8,For_Call 0592 BODY_0580: 0592 8a05 | | Call 0x5,0x5 0593 6806 |h | Jump_Zero 0x59a 0594 8a06 | | Call 0x5,0x6 0595 6804 |h | Jump_Zero 0x59a 0596 ea02 | | Load 0x5,0x2 0597 ea03 | | Load 0x5,0x3 0598 01cc | | Execute Vector,Catenate 0599 00ca | | Action Exit_Nullary_Function 059a ea02 | | Load 0x5,0x2 059b 00ca | | Action Exit_Nullary_Function 059c 0000 0000 | | .BLANK 0000[0x4] 05a0 ; -------------------------------------------------------------------------------------- 05a0 ; SUBPROGRAM 05a0 ; -------------------------------------------------------------------------------------- 05a0 05ac | | .CONST 0x05ac ; Address of begin 05a1 0004 | | .CONST 0x0004 ; Address of exception handler 05a2 0002 | | .CONST 0x0002 ; Number of locals 05a3 INIT_05a0: 05a3 e005 | | Load 0x0,0x5 05a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05a5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05a6 02c7 | | Declare_Variable Any 05a7 e602 | | Load 0x3,0x2 05a8 e005 | | Load 0x0,0x5 05a9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05aa 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 05ab aa02 | | Store_Unchecked 0x5,0x2 05ac BODY_05a0: 05ac 482c |H, | Short_Literal 0x2c 05ad 00d9 | | Load_Top At_Offset_1 05ae 8603 | | Call 0x3,0x3 05af 01ca | | Execute Vector,Prepend 05b0 8604 | | Call 0x3,0x4 05b1 01cc | | Execute Vector,Catenate 05b2 00cb | | Action Pop_Block_With_Result 05b3 00ca | | Action Exit_Nullary_Function 05b4 0000 0000 | | .BLANK 0000[0x4] 05b8 ; -------------------------------------------------------------------------------------- 05b8 ; SUBPROGRAM 05b8 ; -------------------------------------------------------------------------------------- 05b8 05bb | | .CONST 0x05bb ; Address of begin 05b9 0004 | | .CONST 0x0004 ; Address of exception handler 05ba 0001 | | .CONST 0x0001 ; Number of locals 05bb BODY_05b8: 05bb INIT_05b8: 05bb e9ff | | Load 0x4,-0x1 05bc e005 | | Load 0x0,0x5 05bd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05be 1817 | | Execute Package,Field_Execute,Field_Number 0x17 05bf 0f02 | | Execute_Immediate Equal,0x2 05c0 6805 |h | Jump_Zero 0x5c6 05c1 e9ff | | Load 0x4,-0x1 05c2 e005 | | Load 0x0,0x5 05c3 1b11 | | Execute Package,Field_Read,Field_Number 0x11 05c4 181a | | Execute Package,Field_Execute,Field_Number 0x1a 05c5 00ca | | Action Exit_Nullary_Function 05c6 4800 |H | Short_Literal 0x0 05c7 00ca | | Action Exit_Nullary_Function 05c8 ; -------------------------------------------------------------------------------------- 05c8 ; SUBPROGRAM 05c8 ; -------------------------------------------------------------------------------------- 05c8 05cb | | .CONST 0x05cb ; Address of begin 05c9 0004 | | .CONST 0x0004 ; Address of exception handler 05ca 0001 | | .CONST 0x0001 ; Number of locals 05cb BODY_05c8: 05cb INIT_05c8: 05cb ea02 | | Load 0x5,0x2 05cc 01dd | | Execute Vector,First 05cd ea04 | | Load 0x5,0x4 05ce 027d | } | Execute Discrete,Greater 05cf 700b |p | Jump_Nonzero 0x5db 05d0 4801 |H | Short_Literal 0x1 05d1 ea03 | | Load 0x5,0x3 05d2 ea04 | | Load 0x5,0x4 05d3 ea02 | | Load 0x5,0x2 05d4 01dc | | Execute Vector,Last 05d5 ea02 | | Load 0x5,0x2 05d6 01cf | | Execute Vector,Slice_Read 05d7 e013 | | Load 0x0,0x13 05d8 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 05d9 0f00 | | Execute_Immediate Equal,0x0 05da 00ca | | Action Exit_Nullary_Function 05db 4801 |H | Short_Literal 0x1 05dc 00ca | | Action Exit_Nullary_Function 05dd ; -------------------------------------------------------------------------------------- 05dd ; STRING TABLE 05dd ; -------------------------------------------------------------------------------------- 05dd 00aa | | .STRTAB 0x00aa->0x0632 ; "GOOD" 05de 00ac | | .STRTAB 0x00ac->0x0634 ; "INCOMPATIBLE" 05df 00b6 | | .STRTAB 0x00b6->0x063a ; "NON_EXISTENT" 05e0 00c0 | | .STRTAB 0x00c0->0x0640 ; "IO" 05e1 00c0 | | .STRTAB 0x00c0->0x0641 ; "LRM" 05e2 00c1 | | .STRTAB 0x00c1->0x0642 ; "TARGET_INTERFACE" 05e3 00cf | | .STRTAB 0x00cf->0x064a ; "REUSABLE_COMPONENTS" 05e4 00e0 | | .STRTAB 0x00e0->0x0654 ; "." 05e5 00df | | .STRTAB 0x00df->0x0654 ; "!model." 05e6 00e4 | | .STRTAB 0x00e4->0x0658 ; "Registration" 05e7 00ee | | .STRTAB 0x00ee->0x065e ; "<ERRORS>" 05e8 00f4 | | .STRTAB 0x00f4->0x0662 ; "<PROGRESS>" 05e9 00fc | | .STRTAB 0x00fc->0x0667 ; "!machine.temporary." 05ea 010d | | .STRTAB 0x010d->0x0670 ; "!machine.temporary.world_list" 05eb 0128 | ( | .STRTAB 0x0128->0x067f ; "!machine.temporary.freeze_file" 05ec 0144 | D | .STRTAB 0x0144->0x068e ; "!machine.temporary.demote_file" 05ed 0160 | ` | .STRTAB 0x0160->0x069d ; "!machine.temporary.install_file" 05ee 017d | } | .STRTAB 0x017d->0x06ac ; "!machine.temporary.code_file" 05ef 0197 | | .STRTAB 0x0197->0x06ba ; "archive_" 05f0 019d | | .STRTAB 0x019d->0x06be ; "!machine.temporary.archive_world_list" 05f1 01c0 | | .STRTAB 0x01c0->0x06d1 ; "!machine.temporary.archive_freeze_file" 05f2 01e4 | | .STRTAB 0x01e4->0x06e4 ; "!machine.temporary.archive_demote_file" 05f3 0208 | | .STRTAB 0x0208->0x06f7 ; "!machine.temporary.archive_install_file" 05f4 022d | - | .STRTAB 0x022d->0x070a ; "!machine.temporary.archive_code_file" 05f5 024f | O | .STRTAB 0x024f->0x071c ; "<PROFILE>" 05f6 0256 | V | .STRTAB 0x0256->0x0721 ; "Library " 05f7 025c | \ | .STRTAB 0x025c->0x0725 ; " already exists" 05f8 0269 | i | .STRTAB 0x0269->0x072c ; "Switch file " 05f9 0273 | s | .STRTAB 0x0273->0x0732 ; "Creating predefined library structure" 05fa 0296 | | .STRTAB 0x0296->0x0745 ; "SWITCHES" 05fb 029c | | .STRTAB 0x029c->0x0749 ; ".LRM" 05fc 029e | | .STRTAB 0x029e->0x074b ; ".IO" 05fd 029f | | .STRTAB 0x029f->0x074c ; ".TARGET_INTERFACE" 05fe 02ae | | .STRTAB 0x02ae->0x0755 ; ".REUSABLE_COMPONENTS" 05ff 02c0 | | .STRTAB 0x02c0->0x075f ; "Build_Model" 0600 02c9 | | .STRTAB 0x02c9->0x0764 ; "Error resolving " 0601 02d7 | | .STRTAB 0x02d7->0x076c ; ". " 0602 02d8 | | .STRTAB 0x02d8->0x076e ; "Using existing model world" 0603 02f0 | | .STRTAB 0x02f0->0x077b ; "!model" 0604 02f4 | | .STRTAB 0x02f4->0x077e ; "Can't find world !MODEL. " 0605 030b | | .STRTAB 0x030b->0x078a ; "Using the existing standard package" 0606 032c | , | .STRTAB 0x032c->0x079c ; "*" 0607 032b | + | .STRTAB 0x032b->0x079c ; "view_list" 0608 0332 | 2 | .STRTAB 0x0332->0x07a1 ; "[_view_list]?'c(ada)" 0609 0344 | D | .STRTAB 0x0344->0x07ab ; "_!machine.temporary.freeze_file" 060a 0361 | a | .STRTAB 0x0361->0x07ba ; "<WORLDS>" 060b 0367 | g | .STRTAB 0x0367->0x07be ; "_!machine.temporary.demote_file" 060c 0384 | | .STRTAB 0x0384->0x07ce ; "[" 060d 0383 | | .STRTAB 0x0383->0x07ce ; "]'c(ada)" 060e 0389 | | .STRTAB 0x0389->0x07d2 ; "_!machine.temporary.archive_freeze_file" 060f 03ae | | .STRTAB 0x03ae->0x07e6 ; "_!machine.temporary.archive_demote_file" 0610 03d3 | | .STRTAB 0x03d3->0x07f9 ; "_!machine.temporary.install_file" 0611 03f1 | | .STRTAB 0x03f1->0x0809 ; "_!machine.temporary.code_file" 0612 040c | | .STRTAB 0x040c->0x0818 ; "_!machine.temporary.archive_install_file" 0613 0432 | 2 | .STRTAB 0x0432->0x082c ; "_!machine.temporary.archive_code_file" 0614 0455 | U | .STRTAB 0x0455->0x083e ; "new_objects replace" 0615 0466 | f | .STRTAB 0x0466->0x0848 ; "[??,~!model??]" 0616 0472 | r | .STRTAB 0x0472->0x084f ; "replace" 0617 0477 | w | .STRTAB 0x0477->0x0852 ; ".LRM.[@'SPEC,~Calendar]" 0618 048c | | .STRTAB 0x048c->0x085e ; "??" 0619 048c | | .STRTAB 0x048c->0x085f ; "replace promote" 061a 0499 | | .STRTAB 0x0499->0x0866 ; "!model??" 061b 049f | | .STRTAB 0x049f->0x086a ; "Building model world" 061c 04b1 | | .STRTAB 0x04b1->0x0874 ; "Can't create model " 061d 04c2 | | .STRTAB 0x04c2->0x087e ; " due to unhandled exception " 061e 04dc | | .STRTAB 0x04dc->0x088c ; "Can't set target key for " 061f 04f3 | | .STRTAB 0x04f3->0x0898 ; "#" 0620 04f2 | | .STRTAB 0x04f2->0x0899 ; "!targets." 0621 04f9 | | .STRTAB 0x04f9->0x089d ; ".??'c(Ada)" 0622 0501 | | .STRTAB 0x0501->0x08a2 ; "Can't add links to " 0623 0512 | | .STRTAB 0x0512->0x08ac ; "Existing standard tree is incompatible with this release" 0624 0548 | H | .STRTAB 0x0548->0x08c8 ; "The existing standard package is being replaced: ada units with target key " 0625 0592 | | .STRTAB 0x0592->0x08ee ; " will be demoted to source and repromoted" 0626 05b9 | | .STRTAB 0x05b9->0x0902 ; " during the resgistration" 0627 05d0 | | .STRTAB 0x05d0->0x090f ; " of this target" 0628 05dd | | .STRTAB 0x05dd->0x0916 ; "Creating standard package" 0629 05f4 | | .STRTAB 0x05f4->0x0923 ; "created" 062a 05f9 | | .STRTAB 0x05f9->0x0926 ; "Standard" 062b 05ff | | .STRTAB 0x05ff->0x092a ; "Pretty printing standard package" 062c 061d | | .STRTAB 0x061d->0x093a ; "pretty printed" 062d 0629 | ) | .STRTAB 0x0629->0x0941 ; "internal error: fetch dir_obj from object.handle" 062e 0657 | W | .STRTAB 0x0657->0x0959 ; ".?'c(library)" 062f 0662 | b | .STRTAB 0x0662->0x0960 ; ".Switches" 0630 0669 | i | .STRTAB 0x0669->0x0964 ; "'SPEC" 0631 066c | l | .STREND 0x066c->0x0967 0632 474f 4f44 |GOOD| .STRTAB_STRINGS 0967 0000 | | .XXX[0x1] 0968 ; -------------------------------------------------------------------------------------- 0968 ; Debug Table 0968 ; -------------------------------------------------------------------------------------- 0968 0004 000c | | .DEBUG4 0x0004,0x000c,0x1257,0x0000,0x0001,0x0000 096e 0000 0000 | | .BLANK 0000[0x6] 0974 8014 0000 | | .XXX[0xb] 0976 0000 0000 | | 0978 0100 0000 | | 097a 0880 0000 | | 097c 0004 0000 | | 097e 0028 | ( | 097f 0000 0000 | | .BLANK 0000[0x2e] 09ad 1002 8000 | | .XXX[0xb] 09af 0000 0000 | | 09b1 0020 0000 | | 09b3 0110 0000 | | 09b5 0000 8000 | | 09b7 0005 | | 09b8 0000 0000 | | .BLANK 0000[0x48]