|
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_0368ff
└─⟦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 02b8 | | .CONST 0x02b8 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0028 | ( | .CONST 0x0028 ; Address of begin 0009 0059 | Y | .CONST 0x0059 ; Address of exception handler 000a 000b | | .CONST 0x000b ; Number of locals 000b INIT_0008: 000b e220 | | Load 0x1,0x20 000c 0092 0236 | 6| Action Push_String_Extended,0x236 ; ".Boot" 000e 01cc | | Execute Vector,Catenate 000f 0007 | | Action Break_Optional 0010 e00d | | Load 0x0,0xd 0011 180e | | Execute Package,Field_Execute,Field_Number 0xe 0012 e00d | | Load 0x0,0xd 0013 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0014 e00d | | Load 0x0,0xd 0015 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0016 0337 | 7 | Declare_Variable Array 0017 00d9 | | Load_Top At_Offset_1 0018 00d9 | | Load_Top At_Offset_1 0019 01d4 | | Execute Vector,Structure_Write 001a 0092 0237 | 7| Action Push_String_Extended,0x237 ; "!Tools.Networking.Tcp_Ip_Test.Temp" 001c e019 | | Load 0x0,0x19 001d 180e | | Execute Package,Field_Execute,Field_Number 0xe 001e 029f 0063 | c| Declare_Subprogram INIT_0060,For_Call 0020 029f 0083 | | Declare_Subprogram INIT_0080,For_Call 0022 029f 00ab | | Declare_Subprogram INIT_00a8,For_Call 0024 029f 012b | +| Declare_Subprogram INIT_0128,For_Call 0026 029f 013b | ;| Declare_Subprogram INIT_0138,For_Call 0028 BODY_0008: 0028 4801 |H | Short_Literal 0x1 0029 e403 | | Load 0x2,0x3 002a 01d7 | | Execute Vector,Field_Read 002b 4803 |H | Short_Literal 0x3 002c e404 | | Load 0x2,0x4 002d 01d6 | | Execute Vector,Field_Write 002e 4801 |H | Short_Literal 0x1 002f e403 | | Load 0x2,0x3 0030 01d7 | | Execute Vector,Field_Read 0031 4802 |H | Short_Literal 0x2 0032 e404 | | Load 0x2,0x4 0033 01d6 | | Execute Vector,Field_Write 0034 e404 | | Load 0x2,0x4 0035 e00d | | Load 0x0,0xd 0036 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0037 e5ff | | Load 0x2,-0x1 0038 8407 | | Call 0x2,0x7 0039 680b |h | Jump_Zero 0x45 003a 4800 |H | Short_Literal 0x0 003b 4801 |H | Short_Literal 0x1 003c 0092 0238 | 8| Action Push_String_Extended,0x238 ; "!machine.ethernet_host_id" 003e e5ff | | Load 0x2,-0x1 003f 0092 0239 | 9| Action Push_String_Extended,0x239 ; "!tools.networking." 0041 4801 |H | Short_Literal 0x1 0042 4801 |H | Short_Literal 0x1 0043 801b | | Call 0x0,0x1b 0044 7810 |x | Jump 0x55 0045 e5fe | | Load 0x2,-0x2 0046 8229 | ) | Call 0x1,0x29 0047 821a | | Call 0x1,0x1a 0048 e405 | | Load 0x2,0x5 0049 8408 | | Call 0x2,0x8 004a 4800 |H | Short_Literal 0x0 004b 4801 |H | Short_Literal 0x1 004c 0092 0238 | 8| Action Push_String_Extended,0x238 ; "!machine.ethernet_host_id" 004e e405 | | Load 0x2,0x5 004f 0092 0239 | 9| Action Push_String_Extended,0x239 ; "!tools.networking." 0051 4801 |H | Short_Literal 0x1 0052 4801 |H | Short_Literal 0x1 0053 801b | | Call 0x0,0x1b 0054 840b | | Call 0x2,0xb 0055 e403 | | Load 0x2,0x3 0056 e00d | | Load 0x0,0xd 0057 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0058 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0059 TRAP_0008: 0059 0007 | | Action Break_Optional 005a e403 | | Load 0x2,0x3 005b e00d | | Load 0x0,0xd 005c 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 005d 00d8 | | Load_Top At_Offset_0 005e 0101 | | Execute Exception,Reraise 005f 0000 | | .XXX[0x1] 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 006a | j | .CONST 0x006a ; Address of begin 0061 0079 | y | .CONST 0x0079 ; Address of exception handler 0062 0003 | | .CONST 0x0003 ; Number of locals 0063 INIT_0060: 0063 e01c | | Load 0x0,0x1c 0064 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0065 02c7 | | Declare_Variable Any 0066 00d8 | | Load_Top At_Offset_0 0067 1c00 | | Execute_Immediate Run_Utility,0x0 0068 029f 017b | {| Declare_Subprogram INIT_0178,For_Call 006a BODY_0060: 006a 00be | | Action Activate_Tasks 006b 00d9 | | Load_Top At_Offset_1 006c 00ea | | Load_Encached Null_String_Cache 006d e7ff | | Load 0x3,-0x1 006e 4800 |H | Short_Literal 0x0 006f e01c | | Load 0x0,0x1c 0070 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0071 c602 | | Store 0x3,0x2 0072 8603 | | Call 0x3,0x3 0073 00d9 | | Load_Top At_Offset_1 0074 e01c | | Load 0x0,0x1c 0075 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0076 c602 | | Store 0x3,0x2 0077 4801 |H | Short_Literal 0x1 0078 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0079 TRAP_0060: 0079 0007 | | Action Break_Optional 007a 4800 |H | Short_Literal 0x0 007b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 007c 0000 0000 | | .BLANK 0000[0x4] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 008a | | .CONST 0x008a ; Address of begin 0081 0094 | | .CONST 0x0094 ; Address of exception handler 0082 0003 | | .CONST 0x0003 ; Number of locals 0083 INIT_0080: 0083 e01d | | Load 0x0,0x1d 0084 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0085 02c7 | | Declare_Variable Any 0086 00d8 | | Load_Top At_Offset_0 0087 1c00 | | Execute_Immediate Run_Utility,0x0 0088 029f 01bb | | Declare_Subprogram INIT_01b8,For_Call 008a BODY_0080: 008a 8603 | | Call 0x3,0x3 008b e7fe | | Load 0x3,-0x2 008c 00da | | Load_Top At_Offset_2 008d e01d | | Load 0x0,0x1d 008e 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 008f 00d9 | | Load_Top At_Offset_1 0090 e01d | | Load 0x0,0x1d 0091 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0092 c602 | | Store 0x3,0x2 0093 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0094 TRAP_0080: 0094 0007 | | Action Break_Optional 0095 e00d | | Load 0x0,0xd 0096 180e | | Execute Package,Field_Execute,Field_Number 0xe 0097 4808 |H | Short_Literal 0x8 0098 e7ff | | Load 0x3,-0x1 0099 0092 023a | :| Action Push_String_Extended,0x23a ; ".Put_File caught " 009b 01cc | | Execute Vector,Catenate 009c 4801 |H | Short_Literal 0x1 009d 4801 |H | Short_Literal 0x1 009e e00f | | Load 0x0,0xf 009f 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00a0 01cc | | Execute Vector,Catenate 00a1 820d | | Call 0x1,0xd 00a2 00d8 | | Load_Top At_Offset_0 00a3 0101 | | Execute Exception,Reraise 00a4 0000 0000 | | .BLANK 0000[0x4] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00c0 | | .CONST 0x00c0 ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0006 | | .CONST 0x0006 ; Number of locals 00ab INIT_00a8: 00ab 00da | | Load_Top At_Offset_2 00ac 8229 | ) | Call 0x1,0x29 00ad 00d8 | | Load_Top At_Offset_0 00ae 01da | | Execute Vector,Bounds 00af e014 | | Load 0x0,0x14 00b0 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00b1 035b | [ | Declare_Type Array,Constrained 00b2 0337 | 7 | Declare_Variable Array 00b3 00d9 | | Load_Top At_Offset_1 00b4 00d9 | | Load_Top At_Offset_1 00b5 01d4 | | Execute Vector,Structure_Write 00b6 00d8 | | Load_Top At_Offset_0 00b7 01dd | | Execute Vector,First 00b8 00d9 | | Load_Top At_Offset_1 00b9 8228 | ( | Call 0x1,0x28 00ba 0273 | s | Execute Discrete,Plus 00bb 00e4 | | Load_Encached Positive_Cache 00bc 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 00bd 00e5 | | Load_Encached Long_Integer_Cache 00be 029f 01db | | Declare_Subprogram INIT_01d8,For_Call 00c0 BODY_00a8: 00c0 e406 | | Load 0x2,0x6 00c1 0b00 | | Execute_Immediate Case_Compare,0x0 00c2 7008 |p | Jump_Nonzero 0xcb 00c3 0b0a | | Execute_Immediate Case_Compare,0xa 00c4 7006 |p | Jump_Nonzero 0xcb 00c5 605a |`Z | Indirect_Literal Discrete,0x120,{0x00000000, 0x000f423f} 00c6 027f | | Execute Discrete,Equal 00c7 7004 |p | Jump_Nonzero 0xcc 00c8 e406 | | Load 0x2,0x6 00c9 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 00ca 7810 |x | Jump 0xdb 00cb 00d1 | | Pop_Control Pop_Count_1 00cc e00d | | Load 0x0,0xd 00cd 180e | | Execute Package,Field_Execute,Field_Number 0xe 00ce 4807 |H | Short_Literal 0x7 00cf 0092 023b | ;| Action Push_String_Extended,0x23b ; "cannot guess IP address (cluster ID =" 00d1 e406 | | Load 0x2,0x6 00d2 00e0 | | Load_Encached Standard_Cache 00d3 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00d4 01cc | | Execute Vector,Catenate 00d5 0092 023c | <| Action Push_String_Extended,0x23c ; ")" 00d7 01cc | | Execute Vector,Catenate 00d8 820d | | Call 0x1,0xd 00d9 e217 | | Load 0x1,0x17 00da 0257 | W | Execute Discrete,Raise 00db 00cf | | Action Mark_Auxiliary 00dc 00cf | | Action Mark_Auxiliary 00dd e604 | | Load 0x3,0x4 00de e603 | | Load 0x3,0x3 00df 01dc | | Execute Vector,Last 00e0 0264 | d | Execute Discrete,Below_Bound 00e1 7011 |p | Jump_Nonzero 0xf3 00e2 e605 | | Load 0x3,0x5 00e3 48ff |H | Short_Literal 0xff 00e4 0279 | y | Execute Discrete,And 00e5 00d8 | | Load_Top At_Offset_0 00e6 e006 | | Load 0x0,0x6 00e7 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00e8 0260 | ` | Execute Discrete,In_Type 00e9 7001 |p | Jump_Nonzero 0xeb 00ea 0801 | | Execute_Immediate Raise,0x1 00eb 00d9 | | Load_Top At_Offset_1 00ec e603 | | Load 0x3,0x3 00ed 01d6 | | Execute Vector,Field_Write 00ee e605 | | Load 0x3,0x5 00ef 09f8 | | Execute_Immediate Binary_Scale,-0x8 00f0 a605 | | Store_Unchecked 0x3,0x5 00f1 00c8 | | Action Pop_Auxiliary_Range 00f2 37ef |7 | Loop_Decreasing 0xe2 00f3 00ce | | Action Pop_Auxiliary 00f4 e603 | | Load 0x3,0x3 00f5 e602 | | Load 0x3,0x2 00f6 01df | | Execute Vector,Equal 00f7 7021 |p! | Jump_Nonzero 0x119 00f8 e603 | | Load 0x3,0x3 00f9 8606 | | Call 0x3,0x6 00fa 680d |h | Jump_Zero 0x108 00fb e00d | | Load 0x0,0xd 00fc 180e | | Execute Package,Field_Execute,Field_Number 0xe 00fd 4806 |H | Short_Literal 0x6 00fe 0092 023d | =| Action Push_String_Extended,0x23d ; "Host_Id " 0100 e603 | | Load 0x3,0x3 0101 821a | | Call 0x1,0x1a 0102 01cc | | Execute Vector,Catenate 0103 0092 023e | >| Action Push_String_Extended,0x23e ; " is already in use." 0105 01cc | | Execute Vector,Catenate 0106 820d | | Call 0x1,0xd 0107 7811 |x | Jump 0x119 0108 e00d | | Load 0x0,0xd 0109 180e | | Execute Package,Field_Execute,Field_Number 0xe 010a 4802 |H | Short_Literal 0x2 010b 0092 023d | =| Action Push_String_Extended,0x23d ; "Host_Id " 010d e603 | | Load 0x3,0x3 010e 821a | | Call 0x1,0x1a 010f 01cc | | Execute Vector,Catenate 0110 0092 023f | ?| Action Push_String_Extended,0x23f ; " chosen by guess-and-test." 0112 01cc | | Execute Vector,Catenate 0113 820d | | Call 0x1,0xd 0114 e603 | | Load 0x3,0x3 0115 e014 | | Load 0x0,0x14 0116 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0117 01c6 | | Execute Vector,Convert_To_Formal 0118 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0119 8210 | | Call 0x1,0x10 011a 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 011b 00c9 | | Action Pop_Auxiliary_Loop 011c 7fbf | | Jump 0xdc 011d 0000 0000 | | .XXX[0x3] 011f 0000 | | 0120 0000 0000 | | .LITERAL {0x00000000, 0x000f423f} 0124 0000 0000 | | .BLANK 0000[0x4] 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 012f | / | .CONST 0x012f ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0003 | | .CONST 0x0003 ; Number of locals 012b INIT_0128: 012b 029f 01fb | | Declare_Subprogram INIT_01f8,For_Call 012d 029f 020b | | Declare_Subprogram INIT_0208,For_Call 012f BODY_0128: 012f 8602 | | Call 0x3,0x2 0130 8603 | | Call 0x3,0x3 0131 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0132 0000 0000 | | .BLANK 0000[0x6] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 013d | = | .CONST 0x013d ; Address of begin 0139 016b | k | .CONST 0x016b ; Address of exception handler 013a 0002 | | .CONST 0x0002 ; Number of locals 013b INIT_0138: 013b 029f 021b | | Declare_Subprogram INIT_0218,For_Call 013d BODY_0138: 013d 4800 |H | Short_Literal 0x0 013e 4801 |H | Short_Literal 0x1 013f e006 | | Load 0x0,0x6 0140 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0141 0334 | 4 | Declare_Variable Array,With_Constraint 0142 4880 |H | Short_Literal 0x80 0143 4800 |H | Short_Literal 0x0 0144 00da | | Load_Top At_Offset_2 0145 01d6 | | Execute Vector,Field_Write 0146 4835 |H5 | Short_Literal 0x35 0147 4801 |H | Short_Literal 0x1 0148 00da | | Load_Top At_Offset_2 0149 01d6 | | Execute Vector,Field_Write 014a e21b | | Load 0x1,0x1b 014b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 014c 6023 |`# | Indirect_Literal Discrete,0x170,{0x00000000, 0x00008000} 014d 4804 |H | Short_Literal 0x4 014e e21b | | Load 0x1,0x1b 014f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0150 e013 | | Load 0x0,0x13 0151 180f | | Execute Package,Field_Execute,Field_Number 0xf 0152 821c | | Call 0x1,0x1c 0153 821a | | Call 0x1,0x1a 0154 0092 0240 | @| Action Push_String_Extended,0x240 ; " -- RARP " 0156 01cc | | Execute Vector,Catenate 0157 e21b | | Load 0x1,0x1b 0158 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0159 e013 | | Load 0x0,0x13 015a 180f | | Execute Package,Field_Execute,Field_Number 0xf 015b e21b | | Load 0x1,0x1b 015c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 015d 01cc | | Execute Vector,Catenate 015e e405 | | Load 0x2,0x5 015f 8408 | | Call 0x2,0x8 0160 4800 |H | Short_Literal 0x0 0161 4801 |H | Short_Literal 0x1 0162 0092 0238 | 8| Action Push_String_Extended,0x238 ; "!machine.ethernet_host_id" 0164 e405 | | Load 0x2,0x5 0165 0092 0239 | 9| Action Push_String_Extended,0x239 ; "!tools.networking." 0167 4801 |H | Short_Literal 0x1 0168 4801 |H | Short_Literal 0x1 0169 801b | | Call 0x0,0x1b 016a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 016b TRAP_0138: 016b 0007 | | Action Break_Optional 016c 8602 | | Call 0x3,0x2 016d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 016e 0000 0000 | | .XXX[0x2] 0170 0000 0000 | | .LITERAL {0x00000000, 0x00008000} 0174 0000 0000 | | .BLANK 0000[0x4] 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 0189 | | .CONST 0x0189 ; Address of begin 0179 01b5 | | .CONST 0x01b5 ; Address of exception handler 017a 0004 | | .CONST 0x0004 ; Number of locals 017b INIT_0178: 017b e602 | | Load 0x3,0x2 017c e01a | | Load 0x0,0x1a 017d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 017e e019 | | Load 0x0,0x19 017f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0180 e01e | | Load 0x0,0x1e 0181 e01f | | Load 0x0,0x1f 0182 e019 | | Load 0x0,0x19 0183 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0184 e01c | | Load 0x0,0x1c 0185 1b50 | P | Execute Package,Field_Read,Field_Number 0x50 0186 0387 | | Declare_Variable Package 0187 00d8 | | Load_Top At_Offset_0 0188 020f | | Execute Module,Activate 0189 BODY_0178: 0189 00d8 | | Load_Top At_Offset_0 018a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 018b 4800 |H | Short_Literal 0x0 018c e602 | | Load 0x3,0x2 018d 00db | | Load_Top At_Offset_3 018e 1812 | | Execute Package,Field_Execute,Field_Number 0x12 018f 005a | Z | Store_Top Discrete,At_Offset_2 0190 00d9 | | Load_Top At_Offset_1 0191 e406 | | Load 0x2,0x6 0192 027e | ~ | Execute Discrete,Not_Equal 0193 6820 |h | Jump_Zero 0x1b4 0194 e602 | | Load 0x3,0x2 0195 e01c | | Load 0x0,0x1c 0196 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0197 c602 | | Store 0x3,0x2 0198 e00d | | Load 0x0,0xd 0199 180e | | Execute Package,Field_Execute,Field_Number 0xe 019a 4806 |H | Short_Literal 0x6 019b 0092 0241 | A| Action Push_String_Extended,0x241 ; "in " 019d e7ff | | Load 0x3,-0x1 019e 01cc | | Execute Vector,Catenate 019f 0092 0242 | B| Action Push_String_Extended,0x242 ; ":" 01a1 01cc | | Execute Vector,Catenate 01a2 e803 | | Load 0x4,0x3 01a3 00e0 | | Load_Encached Standard_Cache 01a4 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01a5 01cc | | Execute Vector,Catenate 01a6 0092 0243 | C| Action Push_String_Extended,0x243 ; " /=" 01a8 01cc | | Execute Vector,Catenate 01a9 e406 | | Load 0x2,0x6 01aa 00e0 | | Load_Encached Standard_Cache 01ab 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01ac 01cc | | Execute Vector,Catenate 01ad 0092 0244 | D| Action Push_String_Extended,0x244 ; " (Machine.Get_Id)" 01af 01cc | | Execute Vector,Catenate 01b0 820d | | Call 0x1,0xd 01b1 4800 |H | Short_Literal 0x0 01b2 00cb | | Action Pop_Block_With_Result 01b3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01b4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01b5 TRAP_0178: 01b5 0007 | | Action Break_Optional 01b6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01b7 0000 | | .XXX[0x1] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01bb | | .CONST 0x01bb ; Address of begin 01b9 01c3 | | .CONST 0x01c3 ; Address of exception handler 01ba 0001 | | .CONST 0x0001 ; Number of locals 01bb BODY_01b8: 01bb INIT_01b8: 01bb e602 | | Load 0x3,0x2 01bc 00ea | | Load_Encached Null_String_Cache 01bd e7ff | | Load 0x3,-0x1 01be 4801 |H | Short_Literal 0x1 01bf e01d | | Load 0x0,0x1d 01c0 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01c1 c602 | | Store 0x3,0x2 01c2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01c3 TRAP_01b8: 01c3 00d8 | | Load_Top At_Offset_0 01c4 0107 | | Execute Exception,Get_Name 01c5 4920 |I | Short_Literal 0x120 01c6 492f |I/ | Short_Literal 0x12f 01c7 0262 | b | Execute Discrete,In_Range 01c8 6808 |h | Jump_Zero 0x1d1 01c9 e602 | | Load 0x3,0x2 01ca 00ea | | Load_Encached Null_String_Cache 01cb e7ff | | Load 0x3,-0x1 01cc 4801 |H | Short_Literal 0x1 01cd e01d | | Load 0x0,0x1d 01ce 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01cf c602 | | Store 0x3,0x2 01d0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01d1 0100 | | Execute Exception,Raise 01d2 0000 0000 | | .BLANK 0000[0x6] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01db | | .CONST 0x01db ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0001 | | .CONST 0x0001 ; Number of locals 01db BODY_01d8: 01db INIT_01d8: 01db 00cf | | Action Mark_Auxiliary 01dc 4803 |H | Short_Literal 0x3 01dd 4800 |H | Short_Literal 0x0 01de 0007 | | Action Break_Optional 01df e21f | | Load 0x1,0x1f 01e0 1b12 | | Execute Package,Field_Read,Field_Number 0x12 01e1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01e2 4801 |H | Short_Literal 0x1 01e3 4801 |H | Short_Literal 0x1 01e4 e9ff | | Load 0x4,-0x1 01e5 e21f | | Load 0x1,0x1f 01e6 1b12 | | Execute Package,Field_Read,Field_Number 0x12 01e7 180e | | Execute Package,Field_Execute,Field_Number 0xe 01e8 00d8 | | Load_Top At_Offset_0 01e9 090e | | Execute_Immediate Binary_Scale,0xe 01ea 00ba | | Action Initiate_Delay 01eb e9ff | | Load 0x4,-0x1 01ec e21e | | Load 0x1,0x1e 01ed 180d | | Execute Package,Field_Execute,Field_Number 0xd 01ee 6802 |h | Jump_Zero 0x1f1 01ef 4801 |H | Short_Literal 0x1 01f0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01f1 00c8 | | Action Pop_Auxiliary_Range 01f2 3fec |? | Loop_Increasing 0x1df 01f3 00ce | | Action Pop_Auxiliary 01f4 4800 |H | Short_Literal 0x0 01f5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01f6 0000 0000 | | .XXX[0x2] 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 01fb | | .CONST 0x01fb ; Address of begin 01f9 01ff | | .CONST 0x01ff ; Address of exception handler 01fa 0001 | | .CONST 0x0001 ; Number of locals 01fb BODY_01f8: 01fb INIT_01f8: 01fb e212 | | Load 0x1,0x12 01fc 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01fd 180e | | Execute Package,Field_Execute,Field_Number 0xe 01fe 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01ff TRAP_01f8: 01ff 0007 | | Action Break_Optional 0200 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0201 0000 0000 | | .BLANK 0000[0x7] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 020b | | .CONST 0x020b ; Address of begin 0209 020f | | .CONST 0x020f ; Address of exception handler 020a 0001 | | .CONST 0x0001 ; Number of locals 020b BODY_0208: 020b INIT_0208: 020b e212 | | Load 0x1,0x12 020c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 020d 180e | | Execute Package,Field_Execute,Field_Number 0xe 020e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 020f TRAP_0208: 020f 0007 | | Action Break_Optional 0210 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0211 0000 0000 | | .BLANK 0000[0x7] 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 021b | | .CONST 0x021b ; Address of begin 0219 0232 | 2 | .CONST 0x0232 ; Address of exception handler 021a 0001 | | .CONST 0x0001 ; Number of locals 021b BODY_0218: 021b INIT_0218: 021b e5fe | | Load 0x2,-0x2 021c 8409 | | Call 0x2,0x9 021d 821a | | Call 0x1,0x1a 021e 0092 0245 | E| Action Push_String_Extended,0x245 ; " " 0220 01cc | | Execute Vector,Catenate 0221 e406 | | Load 0x2,0x6 0222 00e0 | | Load_Encached Standard_Cache 0223 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0224 01cc | | Execute Vector,Catenate 0225 e5ff | | Load 0x2,-0x1 0226 8408 | | Call 0x2,0x8 0227 4800 |H | Short_Literal 0x0 0228 4801 |H | Short_Literal 0x1 0229 0092 0238 | 8| Action Push_String_Extended,0x238 ; "!machine.ethernet_host_id" 022b e5ff | | Load 0x2,-0x1 022c 0092 0239 | 9| Action Push_String_Extended,0x239 ; "!tools.networking." 022e 4801 |H | Short_Literal 0x1 022f 4801 |H | Short_Literal 0x1 0230 801b | | Call 0x0,0x1b 0231 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0232 TRAP_0218: 0232 0007 | | Action Break_Optional 0233 840a | | Call 0x2,0xa 0234 00d8 | | Load_Top At_Offset_0 0235 0101 | | Execute Exception,Reraise 0236 ; -------------------------------------------------------------------------------------- 0236 ; STRING TABLE 0236 ; -------------------------------------------------------------------------------------- 0236 0022 | " | .STRTAB 0x0022->0x0247 ; ".Boot" 0237 0025 | % | .STRTAB 0x0025->0x0249 ; "!Tools.Networking.Tcp_Ip_Test.Temp" 0238 0045 | E | .STRTAB 0x0045->0x025a ; "!machine.ethernet_host_id" 0239 005c | \ | .STRTAB 0x005c->0x0267 ; "!tools.networking." 023a 006c | l | .STRTAB 0x006c->0x0270 ; ".Put_File caught " 023b 007b | { | .STRTAB 0x007b->0x0278 ; "cannot guess IP address (cluster ID =" 023c 009e | | .STRTAB 0x009e->0x028b ; ")" 023d 009d | | .STRTAB 0x009d->0x028b ; "Host_Id " 023e 00a3 | | .STRTAB 0x00a3->0x028f ; " is already in use." 023f 00b4 | | .STRTAB 0x00b4->0x0299 ; " chosen by guess-and-test." 0240 00cc | | .STRTAB 0x00cc->0x02a6 ; " -- RARP " 0241 00d3 | | .STRTAB 0x00d3->0x02aa ; "in " 0242 00d4 | | .STRTAB 0x00d4->0x02ac ; ":" 0243 00d3 | | .STRTAB 0x00d3->0x02ac ; " /=" 0244 00d4 | | .STRTAB 0x00d4->0x02ae ; " (Machine.Get_Id)" 0245 00e3 | | .STRTAB 0x00e3->0x02b6 ; " " 0246 00e2 | | .STREND 0x00e2->0x02b7 0247 2e42 6f6f |.Boo| .STRTAB_STRINGS 02b7 0000 | | .XXX[0x1] 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; Debug Table 02b8 ; -------------------------------------------------------------------------------------- 02b8 0004 000d | | .DEBUG4 0x0004,0x000d,0x6df1,0x0000,0x0001,0x0000 02be 1549 0551 | I Q| .XXX[0x36] 02c0 253d 394c |%=9L| 02c2 00d4 1d15 | | 02c4 3115 3515 |1 5 | 02c6 3950 00d8 |9P | 02c8 1d0d 3d35 | =5| 02ca 4155 5114 |AUQ | 02cc 00dc 1d25 | %| 02ce 397d 1925 |9} %| 02d0 3114 00e0 |1 | 02d2 1525 3911 | %9 | 02d4 1563 8004 | c | 02d6 0000 0208 | | 02d8 a0ce 0000 | | 02da 0060 0000 | ` | 02dc 02c0 0000 | | 02de 0000 003a | :| 02e0 4180 0000 |A | 02e2 1000 0000 | | 02e4 2600 0000 |& | 02e6 0040 0000 | @ | 02e8 02d1 5391 | S | 02ea 17d3 d197 | | 02ec d192 5311 | S | 02ee 65a6 0000 |e | 02f0 0000 01df | | 02f2 0400 c800 | | 02f4 0000 0000 | | .BLANK 0000[0x4] 02f8 208a 0ce0 | | .XXX[0x21] 02fa 0000 0600 | | 02fc 0000 4c00 | L | 02fe 0000 0000 | | 0300 03bb 8800 | | 0302 0001 0000 | | 0304 0003 6000 | ` | 0306 0000 0400 | | 0308 0000 4d19 | M | 030a 2549 4d51 |%IMQ| 030c 7d19 4915 |} I | 030e 157d 413d | }A=| 0310 4d25 5125 |M%Q%| 0312 3d3a 5a60 |=:Z`| 0314 0000 0000 | | 0316 1f58 800c | X | 0318 c000 | | 0319 0000 0000 | | .BLANK 0000[0x4] 031d 0003 6968 | ih| .XXX[0xa8] 031f 0003 6868 | hh| 0321 0000 0004 | | 0323 0000 00e4 | | 0325 0002 4000 | @ | 0327 2000 0a20 | | 0329 00c0 002d | -| 032b 8004 0000 | | 032d ce00 1400 | | 032f 0380 0060 | `| 0331 000e e001 | | 0333 c000 4080 | @ | 0335 0800 011a | | 0337 0024 0004 | $ | 0339 e000 a000 | | 033b 14a0 02c0 | | 033d 03ad 800c | | 033f 000e c800 | | 0341 3400 3b80 |4 ; | 0343 00e0 00ef | | 0345 8003 c003 | | 0347 c480 1000 | | 0349 0f2c 0044 | , D| 034b 003c e801 | < | 034d 2000 f420 | | 034f 04c0 03d2 | | 0351 8014 000f | | 0353 5200 5400 |R T | 0355 3d70 0160 |=p `| 0357 0180 6005 | ` | 0359 c006 0980 | | 035b 1800 1836 | 6| 035d 0064 0061 | d a| 035f 3001 a001 |0 | 0361 8620 06c0 | | 0363 061c 001c | | 0365 0018 8000 | | 0367 7400 6248 |t bH| 0369 01e0 018a | | 036b 6007 c008 |` | 036d 5780 2000 |W | 036f 2172 0084 |!r | 0371 0086 0002 | | 0373 2002 19a0 | | 0375 08c0 086a | j| 0377 0024 0021 | $ !| 0379 c000 9400 | | 037b 8748 0260 | H `| 037d 021e e009 | | 037f c008 8280 | | 0381 2800 29fc |( ) | 0383 00a4 00a8 | | 0385 4802 a002 |H | 0387 a340 0ac0 | @ | 0389 0a91 002c | ,| 038b 002a 5e00 | *^ | 038d b400 a9b8 | | 038f 02e0 02a8 | | 0391 000b c00a | | 0393 a500 3000 | 0 | 0395 2aa2 00c4 |* | 0397 00c6 1803 | | 0399 2003 1a20 | | 039b 0cc0 0c73 | s| 039d 8034 0031 | 4 1| 039f dc00 d400 | | 03a1 c810 0360 | `| 03a3 0321 800d | ! | 03a5 c00c 8b00 | | 03a7 3800 3240 |8 2@| 03a9 00e4 00e3 | | 03ab e800 0822 | "| 03ad 8338 0000 | 8 | 03af 0180 0000 | | 03b1 0400 0000 | | 03b3 0000 00f1 | | 03b5 2e00 0000 |. | 03b7 4000 0000 |@ | 03b9 6000 0000 |` | 03bb 0100 0000 | | 03bd 0453 495a | SIZ| 03bf 4596 9800 |E | 03c1 0000 0007 | | 03c3 e4c0 0340 | @| 03c5 0000 0000 | | .BLANK 0000[0x4] 03c9 0082 2833 | (3| .XXX[0x20] 03cb 8000 0018 | | 03cd 0000 0110 | | 03cf 0000 0000 | | 03d1 000f bf80 | | 03d3 0000 0400 | | 03d5 0000 0c80 | | 03d7 0000 0010 | | 03d9 0000 0114 | | 03db 4495 2454 |D $T| 03dd 3545 f4f5 |5E | 03df 0455 2415 | U$ | 03e1 4494 f4e5 |D | 03e3 3969 8000 |9i | 03e5 0000 007f | | 03e7 6a00 3500 |j 5 | 03e9 0000 0000 | | .BLANK 0000[0x4] 03ed 0822 8338 | " 8| .XXX[0x13] 03ef 0000 0180 | | 03f1 0000 0700 | | 03f3 008d 8e00 | | 03f5 00fe 3400 | 4 | 03f7 0000 4000 | @ | 03f9 0000 7800 | x | 03fb 0000 0100 | | 03fd 0000 0745 | E| 03ff 4c45 |LE |