|
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: 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 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 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 For_Call,INIT_00c0
0047 029f 00f3 | | Declare_Subprogram For_Call,INIT_00f0
0049 029f 013b | ;| Declare_Subprogram For_Call,INIT_0138
004b 029f 016b | k| Declare_Subprogram For_Call,INIT_0168
004d 029f 0283 | | Declare_Subprogram For_Call,INIT_0280
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_Subprogram 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_Subprogram 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_Result,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_Result,0x2
0166 4800 |H | Short_Literal 0x0
0167 4402 |D | Exit_Subprogram With_Result,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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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"
; "SPEC"
; "SPEC"
02dd 0067 | g | .STRTAB 0x0067->0x0310 ; " will be updated "
; " will be updated "
; " will be updated "
02de 0076 | v | .STRTAB 0x0076->0x0319 ; "to the released version."
; "to the released version."
; "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."
; " 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 | |