|
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 - metrics - 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 For_Outer_Call,Visible,Unelaborated,INIT_0018
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 For_Call,INIT_00a0
0050 029f 00cb | | Declare_Subprogram For_Call,INIT_00c8
0052 029f 00db | | Declare_Subprogram For_Call,INIT_00d8
0054 029f 011b | | Declare_Subprogram For_Call,INIT_0118
0056 029f 0153 | S| Declare_Subprogram For_Call,INIT_0150
0058 029f 01eb | | Declare_Subprogram For_Call,INIT_01e8
005a 029f 021b | | Declare_Subprogram For_Call,INIT_0218
005c 029f 0233 | 3| Declare_Subprogram For_Call,INIT_0230
005e 029f 0243 | C| Declare_Subprogram For_Call,INIT_0240
0060 029f 025b | [| Declare_Subprogram For_Call,INIT_0258
0062 029f 028b | | Declare_Subprogram For_Call,INIT_0288
0064 029f 02b3 | | Declare_Subprogram For_Call,INIT_02b0
0066 029f 031b | | Declare_Subprogram For_Call,INIT_0318
0068 029f 0343 | C| Declare_Subprogram For_Call,INIT_0340
006a 029f 035b | [| Declare_Subprogram For_Call,INIT_0358
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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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 For_Call,INIT_0398
016c 029f 03c3 | | Declare_Subprogram For_Call,INIT_03c0
016e 029f 03db | | Declare_Subprogram For_Call,INIT_03d8
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 0xe
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_Subprogram 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_Subprogram 0x2
01d9 8608 | | Call 0x3,0x8
01da 8609 | | Call 0x3,0x9
01db 860a | | Call 0x3,0xa
01dc 4502 |E | Exit_Subprogram 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 For_Call,INIT_0400
01f5 03fd | | Declare_Type Discrete,Defined
01f6 029f 042b | +| Declare_Subprogram For_Call,INIT_0428
01f8 029f 044b | K| Declare_Subprogram For_Call,INIT_0448
01fa 029f 0483 | | Declare_Subprogram For_Call,INIT_0480
01fc BODY_01e8:
01fc 8605 | | Call 0x3,0x5
01fd 4602 |F | Jump_Case 0x2
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_Subprogram 0x1
0205 4801 |H | Short_Literal 0x1
0206 8606 | | Call 0x3,0x6
0207 8607 | | Call 0x3,0x7
0208 4501 |E | Exit_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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 For_Call,INIT_04a0
0323 029f 04cb | | Declare_Subprogram For_Call,INIT_04c8
0325 029f 04e3 | | Declare_Subprogram For_Call,INIT_04e0
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_Result,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_Result,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 For_Call,INIT_04f8
0347 03fd | | Declare_Type Discrete,Defined
0348 029f 0523 | #| Declare_Subprogram For_Call,INIT_0520
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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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 0x7
0404 4302 |C | Exit_Subprogram From_Utility,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,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,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,0x1
0419 00db | | Load_Top At_Offset_3
041a 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
041b 00db | | Load_Top At_Offset_3
041c 4202 |B | Exit_Subprogram From_Utility,With_Result,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,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,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_Subprogram 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_Subprogram 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 For_Call,INIT_0580
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_Result,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 For_Call,INIT_05a0
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_Result,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 0x7
04fc 4302 |C | Exit_Subprogram From_Utility,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,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,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,0x1
0511 00db | | Load_Top At_Offset_3
0512 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0513 00db | | Load_Top At_Offset_3
0514 4202 |B | Exit_Subprogram From_Utility,With_Result,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,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,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_Subprogram 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 For_Call,INIT_05b8
0590 029f 05cb | | Declare_Subprogram For_Call,INIT_05c8
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."
; "!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>"
; "<PROFILE>"
; "<PROFILE>"
; "<PROFILE>"
; "<PROFILE>"
; "<PROFILE>"
; "<PROFILE>"
; "<PROFILE>"
; "<PROFILE>"
; "<PROFILE>"
05f6 0256 | V | .STRTAB 0x0256->0x0721 ; "Library "
05f7 025c | \ | .STRTAB 0x025c->0x0725 ; " already exists"
; " 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"
; "_!machine.temporary.freeze_file"
060a 0361 | a | .STRTAB 0x0361->0x07ba ; "<WORLDS>"
; "<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"
; "_!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"
; "_!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"
; "_!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 "
; " due to unhandled exception "
; " 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"
; "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]