|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5e40f2
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 03c8 | | .CONST 0x03c8 ; 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 8002 | | .CONST 0x8002 ; 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 004f | O | .CONST 0x004f ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0011 | | .CONST 0x0011 ; Number of locals 001b INIT_0018: 001b 0092 02d7 | | Action Push_String_Extended,0x2d7 ; "!Machine.Temporary.Delta_2_Differences" 001d e001 | | Load 0x0,0x1 001e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 001f 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0020 02c7 | | Declare_Variable Any 0021 00d8 | | Load_Top At_Offset_0 0022 1c00 | | Execute_Immediate Run_Utility,0x0 0023 e001 | | Load 0x0,0x1 0024 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0025 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0026 e001 | | Load 0x0,0x1 0027 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0028 02c7 | | Declare_Variable Any 0029 00d8 | | Load_Top At_Offset_0 002a 1c00 | | Execute_Immediate Run_Utility,0x0 002b 00e1 | | Load_Encached Boolean_Cache 002c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 002d e001 | | Load 0x0,0x1 002e 1b14 | | Execute Package,Field_Read,Field_Number 0x14 002f 02ff | | Declare_Variable Variant_Record 0030 00d8 | | Load_Top At_Offset_0 0031 1c00 | | Execute_Immediate Run_Utility,0x0 0032 00e1 | | Load_Encached Boolean_Cache 0033 00e1 | | Load_Encached Boolean_Cache 0034 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0035 00e1 | | Load_Encached Boolean_Cache 0036 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0037 e002 | | Load 0x0,0x2 0038 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0039 02c7 | | Declare_Variable Any 003a 480a |H | Short_Literal 0xa 003b e002 | | Load 0x0,0x2 003c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 003d a40b | | Store_Unchecked 0x2,0xb 003e e002 | | Load 0x0,0x2 003f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0040 02c7 | | Declare_Variable Any 0041 480a |H | Short_Literal 0xa 0042 e002 | | Load 0x0,0x2 0043 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0044 a40c | | Store_Unchecked 0x2,0xc 0045 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call 0047 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call 0049 029f 013b | ;| Declare_Subprogram INIT_0138,For_Call 004b 029f 016b | k| Declare_Subprogram INIT_0168,For_Call 004d 029f 0283 | | Declare_Subprogram INIT_0280,For_Call 004f BODY_0018: 004f e40b | | Load 0x2,0xb 0050 e5fe | | Load 0x2,-0x2 0051 840d | | Call 0x2,0xd 0052 c40b | | Store 0x2,0xb 0053 e40c | | Load 0x2,0xc 0054 e5fd | | Load 0x2,-0x3 0055 840d | | Call 0x2,0xd 0056 c40c | | Store 0x2,0xc 0057 e001 | | Load 0x0,0x1 0058 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0059 1b0f | | Execute Package,Field_Read,Field_Number 0xf 005a e403 | | Load 0x2,0x3 005b 6060 |`` | Indirect_Literal Discrete,0xbc,{0x00000000, 0x00004000} 005c e003 | | Load 0x0,0x3 005d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 005e e004 | | Load 0x0,0x4 005f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0060 e005 | | Load 0x0,0x5 0061 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0062 4801 |H | Short_Literal 0x1 0063 4800 |H | Short_Literal 0x0 0064 e004 | | Load 0x0,0x4 0065 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0066 e001 | | Load 0x0,0x1 0067 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0068 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0069 e5ff | | Load 0x2,-0x1 006a 0092 02d8 | | Action Push_String_Extended,0x2d8 ; "??'C(ADA)" 006c 01cc | | Execute Vector,Catenate 006d e001 | | Load 0x0,0x1 006e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 006f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0070 c403 | | Store 0x2,0x3 0071 c404 | | Store 0x2,0x4 0072 00cf | | Action Mark_Auxiliary 0073 780b |x | Jump 0x7f 0074 e40a | | Load 0x2,0xa 0075 a409 | | Store_Unchecked 0x2,0x9 0076 4800 |H | Short_Literal 0x0 0077 a40a | | Store_Unchecked 0x2,0xa 0078 8410 | | Call 0x2,0x10 0079 e403 | | Load 0x2,0x3 007a e001 | | Load 0x0,0x1 007b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 007c 181d | | Execute Package,Field_Execute,Field_Number 0x1d 007d c403 | | Store 0x2,0x3 007e 00c9 | | Action Pop_Auxiliary_Loop 007f e403 | | Load 0x2,0x3 0080 e001 | | Load 0x0,0x1 0081 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0082 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0083 6ff0 |o | Jump_Zero 0x74 0084 00ce | | Action Pop_Auxiliary 0085 e403 | | Load 0x2,0x3 0086 e001 | | Load 0x0,0x1 0087 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0088 1852 | R | Execute Package,Field_Execute,Field_Number 0x52 0089 c403 | | Store 0x2,0x3 008a e001 | | Load 0x0,0x1 008b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 008c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 008d e403 | | Load 0x2,0x3 008e 602d |`- | Indirect_Literal Discrete,0xbc,{0x00000000, 0x00004000} 008f e003 | | Load 0x0,0x3 0090 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0091 e004 | | Load 0x0,0x4 0092 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0093 e005 | | Load 0x0,0x5 0094 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0095 4801 |H | Short_Literal 0x1 0096 4800 |H | Short_Literal 0x0 0097 e004 | | Load 0x0,0x4 0098 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0099 e001 | | Load 0x0,0x1 009a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 009b 1816 | | Execute Package,Field_Execute,Field_Number 0x16 009c e5ff | | Load 0x2,-0x1 009d 0092 02d9 | | Action Push_String_Extended,0x2d9 ; "??'C(File)" 009f 01cc | | Execute Vector,Catenate 00a0 e001 | | Load 0x0,0x1 00a1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00a2 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00a3 c403 | | Store 0x2,0x3 00a4 c404 | | Store 0x2,0x4 00a5 00cf | | Action Mark_Auxiliary 00a6 7807 |x | Jump 0xae 00a7 8411 | | Call 0x2,0x11 00a8 e403 | | Load 0x2,0x3 00a9 e001 | | Load 0x0,0x1 00aa 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00ab 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00ac c403 | | Store 0x2,0x3 00ad 00c9 | | Action Pop_Auxiliary_Loop 00ae e403 | | Load 0x2,0x3 00af e001 | | Load 0x0,0x1 00b0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00b1 181e | | Execute Package,Field_Execute,Field_Number 0x1e 00b2 6ff4 |o | Jump_Zero 0xa7 00b3 00ce | | Action Pop_Auxiliary 00b4 e403 | | Load 0x2,0x3 00b5 e001 | | Load 0x0,0x1 00b6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00b7 1852 | R | Execute Package,Field_Execute,Field_Number 0x52 00b8 c403 | | Store 0x2,0x3 00b9 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00ba 0000 0000 | | .XXX[0x2] 00bc 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00cd | | .CONST 0x00cd ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0003 | | .CONST 0x0003 ; Number of locals 00c3 INIT_00c0: 00c3 e006 | | Load 0x0,0x6 00c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00c5 02c7 | | Declare_Variable Any 00c6 00d8 | | Load_Top At_Offset_0 00c7 1c00 | | Execute_Immediate Run_Utility,0x0 00c8 e002 | | Load 0x0,0x2 00c9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ca 02c7 | | Declare_Variable Any 00cb 00d8 | | Load_Top At_Offset_0 00cc 1c00 | | Execute_Immediate Run_Utility,0x0 00cd BODY_00c0: 00cd 00d9 | | Load_Top At_Offset_1 00ce 00ea | | Load_Encached Null_String_Cache 00cf e7ff | | Load 0x3,-0x1 00d0 4800 |H | Short_Literal 0x0 00d1 e006 | | Load 0x0,0x6 00d2 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00d3 c602 | | Store 0x3,0x2 00d4 00cf | | Action Mark_Auxiliary 00d5 780c |x | Jump 0xe2 00d6 4801 |H | Short_Literal 0x1 00d7 e7fe | | Load 0x3,-0x2 00d8 4820 |H | Short_Literal 0x20 00d9 e602 | | Load 0x3,0x2 00da e006 | | Load 0x0,0x6 00db 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 00dc e007 | | Load 0x0,0x7 00dd 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00de e002 | | Load 0x0,0x2 00df 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00e0 c603 | | Store 0x3,0x3 00e1 00c9 | | Action Pop_Auxiliary_Loop 00e2 00da | | Load_Top At_Offset_2 00e3 e006 | | Load 0x0,0x6 00e4 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 00e5 6ff0 |o | Jump_Zero 0xd6 00e6 00ce | | Action Pop_Auxiliary 00e7 00d9 | | Load_Top At_Offset_1 00e8 e006 | | Load 0x0,0x6 00e9 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00ea c602 | | Store 0x3,0x2 00eb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00ec 0000 0000 | | .BLANK 0000[0x4] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 0103 | | .CONST 0x0103 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0005 | | .CONST 0x0005 ; Number of locals 00f3 INIT_00f0: 00f3 e001 | | Load 0x0,0x1 00f4 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 00f5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00f6 02c7 | | Declare_Variable Any 00f7 00d8 | | Load_Top At_Offset_0 00f8 1c00 | | Execute_Immediate Run_Utility,0x0 00f9 e001 | | Load 0x0,0x1 00fa 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00fb 02c7 | | Declare_Variable Any 00fc 00d8 | | Load_Top At_Offset_0 00fd 1c00 | | Execute_Immediate Run_Utility,0x0 00fe e001 | | Load 0x0,0x1 00ff 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0100 e001 | | Load 0x0,0x1 0101 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0102 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0103 BODY_00f0: 0103 e001 | | Load 0x0,0x1 0104 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0105 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0106 00db | | Load_Top At_Offset_3 0107 0120 | | Execute Any,Is_Value 0108 6803 |h | Jump_Zero 0x10c 0109 e001 | | Load 0x0,0x1 010a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 010b 7801 |x | Jump 0x10d 010c 00db | | Load_Top At_Offset_3 010d 6026 |`& | Indirect_Literal Discrete,0x134,{0x00000000, 0x00004000} 010e e003 | | Load 0x0,0x3 010f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0110 e004 | | Load 0x0,0x4 0111 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0112 e001 | | Load 0x0,0x1 0113 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0114 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0115 e7ff | | Load 0x3,-0x1 0116 e001 | | Load 0x0,0x1 0117 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0118 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0119 c603 | | Store 0x3,0x3 011a 0059 | Y | Store_Top Discrete,At_Offset_1 011b e001 | | Load 0x0,0x1 011c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 011d e602 | | Load 0x3,0x2 011e 0120 | | Execute Any,Is_Value 011f 6804 |h | Jump_Zero 0x124 0120 e001 | | Load 0x0,0x1 0121 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 0122 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0123 7801 |x | Jump 0x125 0124 e602 | | Load 0x3,0x2 0125 600e |` | Indirect_Literal Discrete,0x134,{0x00000000, 0x00004000} 0126 e003 | | Load 0x0,0x3 0127 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0128 4800 |H | Short_Literal 0x0 0129 e603 | | Load 0x3,0x3 012a e001 | | Load 0x0,0x1 012b 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 012c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 012d c602 | | Store 0x3,0x2 012e 005a | Z | Store_Top Discrete,At_Offset_2 012f 00db | | Load_Top At_Offset_3 0130 e001 | | Load 0x0,0x1 0131 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 0132 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0133 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0134 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 0143 | C | .CONST 0x0143 ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0003 | | .CONST 0x0003 ; Number of locals 013b INIT_0138: 013b e001 | | Load 0x0,0x1 013c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 013d 02c7 | | Declare_Variable Any 013e 00d8 | | Load_Top At_Offset_0 013f 1c00 | | Execute_Immediate Run_Utility,0x0 0140 e001 | | Load 0x0,0x1 0141 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0142 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0143 BODY_0138: 0143 e001 | | Load 0x0,0x1 0144 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0145 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0146 00da | | Load_Top At_Offset_2 0147 0120 | | Execute Any,Is_Value 0148 6803 |h | Jump_Zero 0x14c 0149 e001 | | Load 0x0,0x1 014a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 014b 7801 |x | Jump 0x14d 014c 00da | | Load_Top At_Offset_2 014d 67e6 |g | Indirect_Literal Discrete,0x134,{0x00000000, 0x00004000} 014e e003 | | Load 0x0,0x3 014f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0150 e004 | | Load 0x0,0x4 0151 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0152 e001 | | Load 0x0,0x1 0153 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0154 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0155 e7ff | | Load 0x3,-0x1 0156 0092 02da | | Action Push_String_Extended,0x2da ; "'C(Load_Proc)" 0158 01cc | | Execute Vector,Catenate 0159 e001 | | Load 0x0,0x1 015a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 015b 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 015c c602 | | Store 0x3,0x2 015d 0059 | Y | Store_Top Discrete,At_Offset_1 015e 00d8 | | Load_Top At_Offset_0 015f 7006 |p | Jump_Nonzero 0x166 0160 e7fe | | Load 0x3,-0x2 0161 840e | | Call 0x2,0xe 0162 e7ff | | Load 0x3,-0x1 0163 840e | | Call 0x2,0xe 0164 012e | . | Execute Any,Not_Equal 0165 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0166 4800 |H | Short_Literal 0x0 0167 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 0197 | | .CONST 0x0197 ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0007 | | .CONST 0x0007 ; Number of locals 016b INIT_0168: 016b e403 | | Load 0x2,0x3 016c e001 | | Load 0x0,0x1 016d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 016e 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 016f e008 | | Load 0x0,0x8 0170 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0171 00d8 | | Load_Top At_Offset_0 0172 e008 | | Load 0x0,0x8 0173 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0174 4827 |H' | Short_Literal 0x27 0175 0092 02db | | Action Push_String_Extended,0x2db ; "@" 0177 e403 | | Load 0x2,0x3 0178 e001 | | Load 0x0,0x1 0179 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 017a 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 017b 01cb | | Execute Vector,Append 017c 00d9 | | Load_Top At_Offset_1 017d 01cc | | Execute Vector,Catenate 017e 0007 | | Action Break_Optional 017f 4821 |H! | Short_Literal 0x21 0180 00d9 | | Load_Top At_Offset_1 0181 01ca | | Execute Vector,Prepend 0182 0007 | | Action Break_Optional 0183 4801 |H | Short_Literal 0x1 0184 e40c | | Load 0x2,0xc 0185 00da | | Load_Top At_Offset_2 0186 e002 | | Load 0x0,0x2 0187 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0188 e002 | | Load 0x0,0x2 0189 181a | | Execute Package,Field_Execute,Field_Number 0x1a 018a 0f00 | | Execute_Immediate Equal,0x0 018b 00e1 | | Load_Encached Boolean_Cache 018c 03f1 | | Declare_Variable Discrete,With_Value 018d 4801 |H | Short_Literal 0x1 018e e40b | | Load 0x2,0xb 018f 00db | | Load_Top At_Offset_3 0190 e002 | | Load 0x0,0x2 0191 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0192 e002 | | Load 0x0,0x2 0193 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0194 0f00 | | Execute_Immediate Equal,0x0 0195 00e1 | | Load_Encached Boolean_Cache 0196 03f1 | | Declare_Variable Discrete,With_Value 0197 BODY_0168: 0197 00da | | Load_Top At_Offset_2 0198 8009 | | Call 0x0,0x9 0199 68d0 |h | Jump_Zero 0x26a 019a 00d9 | | Load_Top At_Offset_1 019b 0f00 | | Execute_Immediate Equal,0x0 019c 00db | | Load_Top At_Offset_3 019d e602 | | Load 0x3,0x2 019e e008 | | Load 0x0,0x8 019f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01a0 707a |pz | Jump_Nonzero 0x21b 01a1 00d8 | | Load_Top At_Offset_0 01a2 6806 |h | Jump_Zero 0x1a9 01a3 e603 | | Load 0x3,0x3 01a4 0092 02dc | | Action Push_String_Extended,0x2dc ; "SPEC" 01a6 01df | | Execute Vector,Equal 01a7 a40a | | Store_Unchecked 0x2,0xa 01a8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01a9 00d9 | | Load_Top At_Offset_1 01aa 6811 |h | Jump_Zero 0x1bc 01ab e00a | | Load 0x0,0xa 01ac 180e | | Execute Package,Field_Execute,Field_Number 0xe 01ad 4803 |H | Short_Literal 0x3 01ae e605 | | Load 0x3,0x5 01af 0092 02dd | | Action Push_String_Extended,0x2dd ; " will be updated " 01b1 01cc | | Execute Vector,Catenate 01b2 0092 02de | | Action Push_String_Extended,0x2de ; "to the released version." 01b4 01cc | | Execute Vector,Catenate 01b5 e00b | | Load 0x0,0xb 01b6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01b7 00db | | Load_Top At_Offset_3 01b8 e5fb | | Load 0x2,-0x5 01b9 e006 | | Load 0x0,0x6 01ba 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 01bb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01bc e603 | | Load 0x3,0x3 01bd 0092 02df | | Action Push_String_Extended,0x2df ; "BODY" 01bf 01df | | Execute Vector,Equal 01c0 6826 |h& | Jump_Zero 0x1e7 01c1 e409 | | Load 0x2,0x9 01c2 6824 |h$ | Jump_Zero 0x1e7 01c3 00db | | Load_Top At_Offset_3 01c4 e5fc | | Load 0x2,-0x4 01c5 e006 | | Load 0x0,0x6 01c6 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 01c7 e00a | | Load 0x0,0xa 01c8 180e | | Execute Package,Field_Execute,Field_Number 0xe 01c9 4804 |H | Short_Literal 0x4 01ca e605 | | Load 0x3,0x5 01cb 0092 02e0 | | Action Push_String_Extended,0x2e0 ; " has a new spec that will not " 01cd 01cc | | Execute Vector,Catenate 01ce 0092 02e1 | | Action Push_String_Extended,0x2e1 ; "be updated automatically; update will NOT be attempted" 01d0 01cc | | Execute Vector,Catenate 01d1 e00b | | Load 0x0,0xb 01d2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01d3 00db | | Load_Top At_Offset_3 01d4 e5fc | | Load 0x2,-0x4 01d5 e006 | | Load 0x0,0x6 01d6 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 01d7 4800 |H | Short_Literal 0x0 01d8 4801 |H | Short_Literal 0x1 01d9 e402 | | Load 0x2,0x2 01da e602 | | Load 0x3,0x2 01db e605 | | Load 0x3,0x5 01dc e00c | | Load 0x0,0xc 01dd 180f | | Execute Package,Field_Execute,Field_Number 0xf 01de e406 | | Load 0x2,0x6 01df 4801 |H | Short_Literal 0x1 01e0 4801 |H | Short_Literal 0x1 01e1 e605 | | Load 0x3,0x5 01e2 e402 | | Load 0x2,0x2 01e3 e008 | | Load 0x0,0x8 01e4 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01e5 c406 | | Store 0x2,0x6 01e6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01e7 e00a | | Load 0x0,0xa 01e8 180e | | Execute Package,Field_Execute,Field_Number 0xe 01e9 4804 |H | Short_Literal 0x4 01ea e605 | | Load 0x3,0x5 01eb 0092 02e2 | | Action Push_String_Extended,0x2e2 ; " is unexpectedly different from the released" 01ed 01cc | | Execute Vector,Catenate 01ee 0092 02e3 | | Action Push_String_Extended,0x2e3 ; " version, but it will not be updated." 01f0 01cc | | Execute Vector,Catenate 01f1 e00b | | Load 0x0,0xb 01f2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01f3 00e1 | | Load_Encached Boolean_Cache 01f4 e407 | | Load 0x2,0x7 01f5 e405 | | Load 0x2,0x5 01f6 0120 | | Execute Any,Is_Value 01f7 6803 |h | Jump_Zero 0x1fb 01f8 e001 | | Load 0x0,0x1 01f9 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01fa 7801 |x | Jump 0x1fc 01fb e405 | | Load 0x2,0x5 01fc e605 | | Load 0x3,0x5 01fd e008 | | Load 0x0,0x8 01fe 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01ff c405 | | Store 0x2,0x5 0200 00d1 | | Pop_Control Pop_Count_1 0201 c408 | | Store 0x2,0x8 0202 00db | | Load_Top At_Offset_3 0203 e5fc | | Load 0x2,-0x4 0204 e006 | | Load 0x0,0x6 0205 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0206 4800 |H | Short_Literal 0x0 0207 4801 |H | Short_Literal 0x1 0208 e402 | | Load 0x2,0x2 0209 e602 | | Load 0x3,0x2 020a e605 | | Load 0x3,0x5 020b e00c | | Load 0x0,0xc 020c 180f | | Execute Package,Field_Execute,Field_Number 0xf 020d e406 | | Load 0x2,0x6 020e 4801 |H | Short_Literal 0x1 020f 4801 |H | Short_Literal 0x1 0210 e605 | | Load 0x3,0x5 0211 e402 | | Load 0x2,0x2 0212 e008 | | Load 0x0,0x8 0213 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0214 c406 | | Store 0x2,0x6 0215 e603 | | Load 0x3,0x3 0216 0092 02dc | | Action Push_String_Extended,0x2dc ; "SPEC" 0218 01df | | Execute Vector,Equal 0219 a40a | | Store_Unchecked 0x2,0xa 021a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 021b 00d8 | | Load_Top At_Offset_0 021c 0f00 | | Execute_Immediate Equal,0x0 021d e603 | | Load 0x3,0x3 021e 0092 02dc | | Action Push_String_Extended,0x2dc ; "SPEC" 0220 01df | | Execute Vector,Equal 0221 0279 | y | Execute Discrete,And 0222 683d |h= | Jump_Zero 0x260 0223 e602 | | Load 0x3,0x2 0224 00db | | Load_Top At_Offset_3 0225 840f | | Call 0x2,0xf 0226 6839 |h9 | Jump_Zero 0x260 0227 00d9 | | Load_Top At_Offset_1 0228 6811 |h | Jump_Zero 0x23a 0229 e00a | | Load 0x0,0xa 022a 180e | | Execute Package,Field_Execute,Field_Number 0xe 022b 4803 |H | Short_Literal 0x3 022c e605 | | Load 0x3,0x5 022d 0092 02dd | | Action Push_String_Extended,0x2dd ; " will be updated " 022f 01cc | | Execute Vector,Catenate 0230 0092 02de | | Action Push_String_Extended,0x2de ; "to the released version." 0232 01cc | | Execute Vector,Catenate 0233 e00b | | Load 0x0,0xb 0234 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0235 00db | | Load_Top At_Offset_3 0236 e5fb | | Load 0x2,-0x5 0237 e006 | | Load 0x0,0x6 0238 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0239 4501 |E | Exit_Suprogram New_Top_Offset 0x1 023a e00a | | Load 0x0,0xa 023b 180e | | Execute Package,Field_Execute,Field_Number 0xe 023c 4804 |H | Short_Literal 0x4 023d e605 | | Load 0x3,0x5 023e 0092 02e4 | | Action Push_String_Extended,0x2e4 ; " is a Load_Proc whose " 0240 01cc | | Execute Vector,Catenate 0241 0092 02e5 | | Action Push_String_Extended,0x2e5 ; "code is unexpectedly different from " 0243 01cc | | Execute Vector,Catenate 0244 0092 02e6 | | Action Push_String_Extended,0x2e6 ; "the released version, " 0246 01cc | | Execute Vector,Catenate 0247 0092 02e7 | | Action Push_String_Extended,0x2e7 ; "but it will not be updated." 0249 01cc | | Execute Vector,Catenate 024a e00b | | Load 0x0,0xb 024b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 024c 00e1 | | Load_Encached Boolean_Cache 024d e407 | | Load 0x2,0x7 024e e405 | | Load 0x2,0x5 024f 0120 | | Execute Any,Is_Value 0250 6803 |h | Jump_Zero 0x254 0251 e001 | | Load 0x0,0x1 0252 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0253 7801 |x | Jump 0x255 0254 e405 | | Load 0x2,0x5 0255 e605 | | Load 0x3,0x5 0256 e008 | | Load 0x0,0x8 0257 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0258 c405 | | Store 0x2,0x5 0259 00d1 | | Pop_Control Pop_Count_1 025a c408 | | Store 0x2,0x8 025b 00db | | Load_Top At_Offset_3 025c e5fc | | Load 0x2,-0x4 025d e006 | | Load 0x0,0x6 025e 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 025f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0260 e00a | | Load 0x0,0xa 0261 180e | | Execute Package,Field_Execute,Field_Number 0xe 0262 4802 |H | Short_Literal 0x2 0263 e605 | | Load 0x3,0x5 0264 0092 02e8 | | Action Push_String_Extended,0x2e8 ; " is up-to-date." 0266 01cc | | Execute Vector,Catenate 0267 e00b | | Load 0x0,0xb 0268 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0269 4501 |E | Exit_Suprogram New_Top_Offset 0x1 026a 00d8 | | Load_Top At_Offset_0 026b 700d |p | Jump_Nonzero 0x279 026c e00a | | Load 0x0,0xa 026d 180e | | Execute Package,Field_Execute,Field_Number 0xe 026e 4803 |H | Short_Literal 0x3 026f e605 | | Load 0x3,0x5 0270 0092 02e9 | | Action Push_String_Extended,0x2e9 ; " will be added to the universe." 0272 01cc | | Execute Vector,Catenate 0273 e00b | | Load 0x0,0xb 0274 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0275 00db | | Load_Top At_Offset_3 0276 e5fb | | Load 0x2,-0x5 0277 e006 | | Load 0x0,0x6 0278 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0279 4501 |E | Exit_Suprogram New_Top_Offset 0x1 027a 0000 0000 | | .BLANK 0000[0x6] 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 02a7 | | .CONST 0x02a7 ; Address of begin 0281 0004 | | .CONST 0x0004 ; Address of exception handler 0282 0006 | | .CONST 0x0006 ; Number of locals 0283 INIT_0280: 0283 e403 | | Load 0x2,0x3 0284 e001 | | Load 0x0,0x1 0285 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0286 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0287 e008 | | Load 0x0,0x8 0288 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0289 0092 02db | | Action Push_String_Extended,0x2db ; "@" 028b e403 | | Load 0x2,0x3 028c e001 | | Load 0x0,0x1 028d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 028e 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 028f 4821 |H! | Short_Literal 0x21 0290 00d9 | | Load_Top At_Offset_1 0291 01ca | | Execute Vector,Prepend 0292 0007 | | Action Break_Optional 0293 4801 |H | Short_Literal 0x1 0294 e40c | | Load 0x2,0xc 0295 00da | | Load_Top At_Offset_2 0296 e002 | | Load 0x0,0x2 0297 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0298 e002 | | Load 0x0,0x2 0299 181a | | Execute Package,Field_Execute,Field_Number 0x1a 029a 0f00 | | Execute_Immediate Equal,0x0 029b 00e1 | | Load_Encached Boolean_Cache 029c 03f1 | | Declare_Variable Discrete,With_Value 029d 4801 |H | Short_Literal 0x1 029e e40b | | Load 0x2,0xb 029f 00db | | Load_Top At_Offset_3 02a0 e002 | | Load 0x0,0x2 02a1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02a2 e002 | | Load 0x0,0x2 02a3 181a | | Execute Package,Field_Execute,Field_Number 0x1a 02a4 0f00 | | Execute_Immediate Equal,0x0 02a5 00e1 | | Load_Encached Boolean_Cache 02a6 03f1 | | Declare_Variable Discrete,With_Value 02a7 BODY_0280: 02a7 00da | | Load_Top At_Offset_2 02a8 8009 | | Call 0x0,0x9 02a9 681d |h | Jump_Zero 0x2c7 02aa 00d9 | | Load_Top At_Offset_1 02ab 0f00 | | Execute_Immediate Equal,0x0 02ac 00db | | Load_Top At_Offset_3 02ad e602 | | Load 0x3,0x2 02ae e008 | | Load 0x0,0x8 02af 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02b0 7015 |p | Jump_Nonzero 0x2c6 02b1 00d8 | | Load_Top At_Offset_0 02b2 6801 |h | Jump_Zero 0x2b4 02b3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02b4 00d9 | | Load_Top At_Offset_1 02b5 6810 |h | Jump_Zero 0x2c6 02b6 e00a | | Load 0x0,0xa 02b7 180e | | Execute Package,Field_Execute,Field_Number 0xe 02b8 4803 |H | Short_Literal 0x3 02b9 e604 | | Load 0x3,0x4 02ba 0092 02dd | | Action Push_String_Extended,0x2dd ; " will be updated " 02bc 01cc | | Execute Vector,Catenate 02bd 0092 02de | | Action Push_String_Extended,0x2de ; "to the released version." 02bf 01cc | | Execute Vector,Catenate 02c0 e00b | | Load 0x0,0xb 02c1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02c2 00db | | Load_Top At_Offset_3 02c3 e5fb | | Load 0x2,-0x5 02c4 e006 | | Load 0x0,0x6 02c5 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 02c6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02c7 00d8 | | Load_Top At_Offset_0 02c8 700d |p | Jump_Nonzero 0x2d6 02c9 e00a | | Load 0x0,0xa 02ca 180e | | Execute Package,Field_Execute,Field_Number 0xe 02cb 4803 |H | Short_Literal 0x3 02cc e604 | | Load 0x3,0x4 02cd 0092 02e9 | | Action Push_String_Extended,0x2e9 ; " will be added to the universe." 02cf 01cc | | Execute Vector,Catenate 02d0 e00b | | Load 0x0,0xb 02d1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02d2 00db | | Load_Top At_Offset_3 02d3 e5fb | | Load 0x2,-0x5 02d4 e006 | | Load 0x0,0x6 02d5 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 02d6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02d7 ; -------------------------------------------------------------------------------------- 02d7 ; STRING TABLE 02d7 ; -------------------------------------------------------------------------------------- 02d7 0028 | ( | .STRTAB 0x0028->0x02eb ; "!Machine.Temporary.Delta_2_Differences" 02d8 004c | L | .STRTAB 0x004c->0x02fe ; "??'C(ADA)" 02d9 0053 | S | .STRTAB 0x0053->0x0302 ; "??'C(File)" 02da 005b | [ | .STRTAB 0x005b->0x0307 ; "'C(Load_Proc)" 02db 0066 | f | .STRTAB 0x0066->0x030e ; "@" 02dc 0065 | e | .STRTAB 0x0065->0x030e ; "SPEC" 02dd 0067 | g | .STRTAB 0x0067->0x0310 ; " will be updated " 02de 0076 | v | .STRTAB 0x0076->0x0319 ; "to the released version." 02df 008c | | .STRTAB 0x008c->0x0325 ; "BODY" 02e0 008e | | .STRTAB 0x008e->0x0327 ; " has a new spec that will not " 02e1 00aa | | .STRTAB 0x00aa->0x0336 ; "be updated automatically; update will NOT be attempted" 02e2 00de | | .STRTAB 0x00de->0x0351 ; " is unexpectedly different from the released" 02e3 0108 | | .STRTAB 0x0108->0x0367 ; " version, but it will not be updated." 02e4 012b | + | .STRTAB 0x012b->0x0379 ; " is a Load_Proc whose " 02e5 013f | ? | .STRTAB 0x013f->0x0384 ; "code is unexpectedly different from " 02e6 0161 | a | .STRTAB 0x0161->0x0396 ; "the released version, " 02e7 0175 | u | .STRTAB 0x0175->0x03a1 ; "but it will not be updated." 02e8 018e | | .STRTAB 0x018e->0x03af ; " is up-to-date." 02e9 019b | | .STRTAB 0x019b->0x03b6 ; " will be added to the universe." 02ea 01b8 | | .STREND 0x01b8->0x03c6 02eb 214d 6163 |!Mac| .STRTAB_STRINGS 03c6 0000 0000 | | .XXX[0x2] 03c8 ; -------------------------------------------------------------------------------------- 03c8 ; Debug Table 03c8 ; -------------------------------------------------------------------------------------- 03c8 0004 000e | | .DEBUG4 0x0004,0x000e,0x8550,0x0000,0x0001,0x0000 03ce d0c0 d119 | | .XXX[0x32] 03d0 1919 0cd1 | | 03d2 1508 e514 | | 03d4 c0c0 c0e0 | | 03d6 e4c9 0cd4 | | 03d8 c0d1 18c8 | | 03da d8d0 c0c5 | | 03dc 0429 4ccc | )L | 03de c4c5 14c0 | | 03e0 c0c0 d4d0 | | 03e2 c4c0 c918 | | 03e4 c908 c0c0 | | 03e6 c10c c918 | | 03e8 c915 1919 | | 03ea 190c d115 | | 03ec 08e5 14c0 | | 03ee c0c0 c0d4 | | 03f0 294c ccc4 |)L | 03f2 c514 c0c0 | | 03f4 c0d4 d0c5 | | 03f6 0cdc c4dc | | 03f8 d0d4 c0d1 | | 03fa 18dc c8c0 | | 03fc c0dd 14c0 | | 03fe cd08 c0e0 | |