|
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 0404 0404 | | .BLANK 0404[0x2c]
02ea 1008 078d | | .XXX[0x6]
02ec 73ed 0c6b |s k|
02ee 14ad 0800 | |
02f0 0000 0000 | | .BLANK 0000[0xd9]
03c9 0004 2a00 | * | .XXX[0x5]
03cb 0884 6206 | b |
03cd 5003 |P |
03ce 0000 0000 | | .BLANK 0000[0x32]