|
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 0330 | 0 | .CONST 0x0330 ; 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 0035 | 5 | .CONST 0x0035 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0011 | | .CONST 0x0011 ; Number of locals 000b INIT_0008: 000b 4801 |H | Short_Literal 0x1 000c 4808 |H | Short_Literal 0x8 000d 00e9 | | Load_Encached String_Cache 000e 0334 | 4 | Declare_Variable Array,With_Constraint 000f 50dc |P | Indirect_Literal Any,0xec,{0x45746865, 0x726e6574} 0010 0129 | ) | Execute Any,Make_Visible 0011 4801 |H | Short_Literal 0x1 0012 4806 |H | Short_Literal 0x6 0013 e001 | | Load 0x0,0x1 0014 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0015 0334 | 4 | Declare_Variable Array,With_Constraint 0016 4806 |H | Short_Literal 0x6 0017 4801 |H | Short_Literal 0x1 0018 48ff |H | Short_Literal 0xff 0019 00d9 | | Load_Top At_Offset_1 001a e20e | | Load 0x1,0xe 001b 01d6 | | Execute Vector,Field_Write 001c 3ffb |? | Loop_Increasing 0x18 001d 0129 | ) | Execute Any,Make_Visible 001e 4800 |H | Short_Literal 0x0 001f 4801 |H | Short_Literal 0x1 0020 e001 | | Load 0x0,0x1 0021 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0022 0334 | 4 | Declare_Variable Array,With_Constraint 0023 4890 |H | Short_Literal 0x90 0024 4800 |H | Short_Literal 0x0 0025 00da | | Load_Top At_Offset_2 0026 01d6 | | Execute Vector,Field_Write 0027 4800 |H | Short_Literal 0x0 0028 4801 |H | Short_Literal 0x1 0029 00da | | Load_Top At_Offset_2 002a 01d6 | | Execute Vector,Field_Write 002b 0129 | ) | Execute Any,Make_Visible 002c 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated 002e 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 0030 00bf | | Action Accept_Activation 0031 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0032 00c7 | | Action Elaborate_Subprogram 0033 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0034 00c7 | | Action Elaborate_Subprogram 0035 BODY_0008: 0035 00bc | | Action Signal_Activated 0036 00bb | | Action Signal_Completion 0037 0000 | | .XXX[0x1] 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 0089 | | .CONST 0x0089 ; Address of begin 0039 0004 | | .CONST 0x0004 ; Address of exception handler 003a 0002 | | .CONST 0x0002 ; Number of locals 003b INIT_0038: 003b 4801 |H | Short_Literal 0x1 003c 4811 |H | Short_Literal 0x11 003d 00e9 | | Load_Encached String_Cache 003e 035b | [ | Declare_Type Array,Constrained 003f 0337 | 7 | Declare_Variable Array 0040 00d8 | | Load_Top At_Offset_0 0041 0335 | 5 | Declare_Variable Array,Duplicate 0042 00cd | | Action Spare6_Action 0043 4878 |Hx | Short_Literal 0x78 0044 4801 |H | Short_Literal 0x1 0045 00da | | Load_Top At_Offset_2 0046 01d6 | | Execute Vector,Field_Write 0047 4878 |Hx | Short_Literal 0x78 0048 4802 |H | Short_Literal 0x2 0049 00da | | Load_Top At_Offset_2 004a 01d6 | | Execute Vector,Field_Write 004b 482d |H- | Short_Literal 0x2d 004c 4803 |H | Short_Literal 0x3 004d 00da | | Load_Top At_Offset_2 004e 01d6 | | Execute Vector,Field_Write 004f 4878 |Hx | Short_Literal 0x78 0050 4804 |H | Short_Literal 0x4 0051 00da | | Load_Top At_Offset_2 0052 01d6 | | Execute Vector,Field_Write 0053 4878 |Hx | Short_Literal 0x78 0054 4805 |H | Short_Literal 0x5 0055 00da | | Load_Top At_Offset_2 0056 01d6 | | Execute Vector,Field_Write 0057 482d |H- | Short_Literal 0x2d 0058 4806 |H | Short_Literal 0x6 0059 00da | | Load_Top At_Offset_2 005a 01d6 | | Execute Vector,Field_Write 005b 4878 |Hx | Short_Literal 0x78 005c 4807 |H | Short_Literal 0x7 005d 00da | | Load_Top At_Offset_2 005e 01d6 | | Execute Vector,Field_Write 005f 4878 |Hx | Short_Literal 0x78 0060 4808 |H | Short_Literal 0x8 0061 00da | | Load_Top At_Offset_2 0062 01d6 | | Execute Vector,Field_Write 0063 482d |H- | Short_Literal 0x2d 0064 4809 |H | Short_Literal 0x9 0065 00da | | Load_Top At_Offset_2 0066 01d6 | | Execute Vector,Field_Write 0067 4878 |Hx | Short_Literal 0x78 0068 480a |H | Short_Literal 0xa 0069 00da | | Load_Top At_Offset_2 006a 01d6 | | Execute Vector,Field_Write 006b 4878 |Hx | Short_Literal 0x78 006c 480b |H | Short_Literal 0xb 006d 00da | | Load_Top At_Offset_2 006e 01d6 | | Execute Vector,Field_Write 006f 482d |H- | Short_Literal 0x2d 0070 480c |H | Short_Literal 0xc 0071 00da | | Load_Top At_Offset_2 0072 01d6 | | Execute Vector,Field_Write 0073 4878 |Hx | Short_Literal 0x78 0074 480d |H | Short_Literal 0xd 0075 00da | | Load_Top At_Offset_2 0076 01d6 | | Execute Vector,Field_Write 0077 4878 |Hx | Short_Literal 0x78 0078 480e |H | Short_Literal 0xe 0079 00da | | Load_Top At_Offset_2 007a 01d6 | | Execute Vector,Field_Write 007b 482d |H- | Short_Literal 0x2d 007c 480f |H | Short_Literal 0xf 007d 00da | | Load_Top At_Offset_2 007e 01d6 | | Execute Vector,Field_Write 007f 4878 |Hx | Short_Literal 0x78 0080 4810 |H | Short_Literal 0x10 0081 00da | | Load_Top At_Offset_2 0082 01d6 | | Execute Vector,Field_Write 0083 4878 |Hx | Short_Literal 0x78 0084 4811 |H | Short_Literal 0x11 0085 00da | | Load_Top At_Offset_2 0086 01d6 | | Execute Vector,Field_Write 0087 00d9 | | Load_Top At_Offset_1 0088 01d4 | | Execute Vector,Structure_Write 0089 BODY_0038: 0089 00cf | | Action Mark_Auxiliary 008a e5ff | | Load 0x2,-0x1 008b 01db | | Execute Vector,Length 008c 00d8 | | Load_Top At_Offset_0 008d 00e3 | | Load_Encached Natural_Cache 008e 0260 | ` | Execute Discrete,In_Type 008f 7001 |p | Jump_Nonzero 0x91 0090 0801 | | Execute_Immediate Raise,0x1 0091 0aff | | Execute_Immediate Plus,-0x1 0092 4800 |H | Short_Literal 0x0 0093 0263 | c | Execute Discrete,Above_Bound 0094 7045 |pE | Jump_Nonzero 0xda 0095 00db | | Load_Top At_Offset_3 0096 00d9 | | Load_Top At_Offset_1 0097 4803 |H | Short_Literal 0x3 0098 0271 | q | Execute Discrete,Times 0099 0a01 | | Execute_Immediate Plus,0x1 009a 00d8 | | Load_Top At_Offset_0 009b 00e2 | | Load_Encached Integer_Cache 009c 0260 | ` | Execute Discrete,In_Type 009d 7001 |p | Jump_Nonzero 0x9f 009e 0801 | | Execute_Immediate Raise,0x1 009f 00da | | Load_Top At_Offset_2 00a0 4803 |H | Short_Literal 0x3 00a1 0271 | q | Execute Discrete,Times 00a2 0a02 | | Execute_Immediate Plus,0x2 00a3 00d8 | | Load_Top At_Offset_0 00a4 00e2 | | Load_Encached Integer_Cache 00a5 0260 | ` | Execute Discrete,In_Type 00a6 7001 |p | Jump_Nonzero 0xa8 00a7 0801 | | Execute_Immediate Raise,0x1 00a8 00d9 | | Load_Top At_Offset_1 00a9 00d9 | | Load_Top At_Offset_1 00aa e406 | | Load 0x2,0x6 00ab 035b | [ | Declare_Type Array,Constrained 00ac 00db | | Load_Top At_Offset_3 00ad 01cd | | Execute Vector,Slice_Reference 00ae 00d8 | | Load_Top At_Offset_0 00af 01dd | | Execute Vector,First 00b0 00d8 | | Load_Top At_Offset_0 00b1 0a01 | | Execute_Immediate Plus,0x1 00b2 00e9 | | Load_Encached String_Cache 00b3 035b | [ | Declare_Type Array,Constrained 00b4 0337 | 7 | Declare_Variable Array 00b5 00d8 | | Load_Top At_Offset_0 00b6 01dd | | Execute Vector,First 00b7 e5ff | | Load 0x2,-0x1 00b8 01dd | | Execute Vector,First 00b9 e405 | | Load 0x2,0x5 00ba 0273 | s | Execute Discrete,Plus 00bb e5ff | | Load 0x2,-0x1 00bc 01d7 | | Execute Vector,Field_Read 00bd 09fc | | Execute_Immediate Binary_Scale,-0x4 00be e002 | | Load 0x0,0x2 00bf 01d7 | | Execute Vector,Field_Read 00c0 00d9 | | Load_Top At_Offset_1 00c1 00db | | Load_Top At_Offset_3 00c2 01d6 | | Execute Vector,Field_Write 00c3 0a01 | | Execute_Immediate Plus,0x1 00c4 e5ff | | Load 0x2,-0x1 00c5 01dd | | Execute Vector,First 00c6 e405 | | Load 0x2,0x5 00c7 0273 | s | Execute Discrete,Plus 00c8 e5ff | | Load 0x2,-0x1 00c9 01d7 | | Execute Vector,Field_Read 00ca 480f |H | Short_Literal 0xf 00cb 0279 | y | Execute Discrete,And 00cc e002 | | Load 0x0,0x2 00cd 01d7 | | Execute Vector,Field_Read 00ce 00d9 | | Load_Top At_Offset_1 00cf 00db | | Load_Top At_Offset_3 00d0 01d6 | | Execute Vector,Field_Write 00d1 00d1 | | Pop_Control Pop_Count_1 00d2 00cd | | Action Spare6_Action 00d3 00da | | Load_Top At_Offset_2 00d4 00da | | Load_Top At_Offset_2 00d5 e406 | | Load 0x2,0x6 00d6 01ce | | Execute Vector,Slice_Write 00d7 00d3 | | Pop_Control Pop_Count_3 00d8 00c8 | | Action Pop_Auxiliary_Range 00d9 3fbb |? | Loop_Increasing 0x95 00da 00ce | | Action Pop_Auxiliary 00db 4801 |H | Short_Literal 0x1 00dc e5ff | | Load 0x2,-0x1 00dd 01db | | Execute Vector,Length 00de 4803 |H | Short_Literal 0x3 00df 0271 | q | Execute Discrete,Times 00e0 0aff | | Execute_Immediate Plus,-0x1 00e1 00d8 | | Load_Top At_Offset_0 00e2 00e2 | | Load_Encached Integer_Cache 00e3 0260 | ` | Execute Discrete,In_Type 00e4 7001 |p | Jump_Nonzero 0xe6 00e5 0801 | | Execute_Immediate Raise,0x1 00e6 00da | | Load_Top At_Offset_2 00e7 01cf | | Execute Vector,Slice_Read 00e8 00e9 | | Load_Encached String_Cache 00e9 01c6 | | Execute Vector,Convert_To_Formal 00ea 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00eb 0000 | | .XXX[0x1] 00ec 4574 6865 |Ethe| .LITERAL {0x45746865, 0x726e6574} 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 0107 | | .CONST 0x0107 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0008 | | .CONST 0x0008 ; Number of locals 00f3 INIT_00f0: 00f3 0092 0258 | X| Action Push_String_Extended,0x258 ; "Ethernet.Server" 00f5 e003 | | Load 0x0,0x3 00f6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00f7 02c7 | | Declare_Variable Any 00f8 00d8 | | Load_Top At_Offset_0 00f9 1c00 | | Execute_Immediate Run_Utility,0x0 00fa e004 | | Load 0x0,0x4 00fb 1b19 | | Execute Package,Field_Read,Field_Number 0x19 00fc 4801 |H | Short_Literal 0x1 00fd 6016 |` | Indirect_Literal Discrete,0x114,{0x00000000, 0x000005dc} 00fe e005 | | Load 0x0,0x5 00ff 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0100 035b | [ | Declare_Type Array,Constrained 0101 0337 | 7 | Declare_Variable Array 0102 00e3 | | Load_Encached Natural_Cache 0103 029f 011b | | Declare_Subprogram INIT_0118,For_Call 0105 029f 01d3 | | Declare_Subprogram INIT_01d0,For_Call 0107 BODY_00f0: 0107 e006 | | Load 0x0,0x6 0108 180e | | Execute Package,Field_Execute,Field_Number 0xe 0109 4802 |H | Short_Literal 0x2 010a e402 | | Load 0x2,0x2 010b e007 | | Load 0x0,0x7 010c 180d | | Execute Package,Field_Execute,Field_Number 0xd 010d 00cf | | Action Mark_Auxiliary 010e 8408 | | Call 0x2,0x8 010f e403 | | Load 0x2,0x3 0110 e003 | | Load 0x0,0x3 0111 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0112 00c9 | | Action Pop_Auxiliary_Loop 0113 7ffa | | Jump 0x10e 0114 0000 0000 | | .LITERAL {0x00000000, 0x000005dc} 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011d | | .CONST 0x011d ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0003 | | .CONST 0x0003 ; Number of locals 011b INIT_0118: 011b 00e3 | | Load_Encached Natural_Cache 011c 00e3 | | Load_Encached Natural_Cache 011d BODY_0118: 011d e406 | | Load 0x2,0x6 011e 0d02 | | Execute_Immediate Less,0x2 011f 680f |h | Jump_Zero 0x12f 0120 e006 | | Load 0x0,0x6 0121 180e | | Execute Package,Field_Execute,Field_Number 0xe 0122 4807 |H | Short_Literal 0x7 0123 0092 0259 | Y| Action Push_String_Extended,0x259 ; "Ethernet.Server:Received only" 0125 e406 | | Load 0x2,0x6 0126 00e0 | | Load_Encached Standard_Cache 0127 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0128 01cc | | Execute Vector,Catenate 0129 0092 025a | Z| Action Push_String_Extended,0x25a ; " bytes" 012b 01cc | | Execute Vector,Catenate 012c e007 | | Load 0x0,0x7 012d 180d | | Execute Package,Field_Execute,Field_Number 0xd 012e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 012f 4801 |H | Short_Literal 0x1 0130 e405 | | Load 0x2,0x5 0131 01d7 | | Execute Vector,Field_Read 0132 4802 |H | Short_Literal 0x2 0133 e405 | | Load 0x2,0x5 0134 01d7 | | Execute Vector,Field_Read 0135 0908 | | Execute_Immediate Binary_Scale,0x8 0136 0273 | s | Execute Discrete,Plus 0137 005a | Z | Store_Top Discrete,At_Offset_2 0138 e406 | | Load 0x2,0x6 0139 00da | | Load_Top At_Offset_2 013a 0a04 | | Execute_Immediate Plus,0x4 013b 027c | | | Execute Discrete,Less 013c 6813 |h | Jump_Zero 0x150 013d e006 | | Load 0x0,0x6 013e 180e | | Execute Package,Field_Execute,Field_Number 0xe 013f 4807 |H | Short_Literal 0x7 0140 0092 025b | [| Action Push_String_Extended,0x25b ; "Ethernet.Server:Received" 0142 e406 | | Load 0x2,0x6 0143 00e0 | | Load_Encached Standard_Cache 0144 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0145 01cc | | Execute Vector,Catenate 0146 0092 025c | \| Action Push_String_Extended,0x25c ; " bytes with Skip =" 0148 01cc | | Execute Vector,Catenate 0149 e602 | | Load 0x3,0x2 014a 00e0 | | Load_Encached Standard_Cache 014b 1818 | | Execute Package,Field_Execute,Field_Number 0x18 014c 01cc | | Execute Vector,Catenate 014d e007 | | Load 0x0,0x7 014e 180d | | Execute Package,Field_Execute,Field_Number 0xd 014f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0150 00d9 | | Load_Top At_Offset_1 0151 0a03 | | Execute_Immediate Plus,0x3 0152 e405 | | Load 0x2,0x5 0153 01d7 | | Execute Vector,Field_Read 0154 00da | | Load_Top At_Offset_2 0155 0a04 | | Execute_Immediate Plus,0x4 0156 e405 | | Load 0x2,0x5 0157 01d7 | | Execute Vector,Field_Read 0158 0908 | | Execute_Immediate Binary_Scale,0x8 0159 0273 | s | Execute Discrete,Plus 015a 0059 | Y | Store_Top Discrete,At_Offset_1 015b 00d8 | | Load_Top At_Offset_0 015c 0b01 | | Execute_Immediate Case_Compare,0x1 015d 700e |p | Jump_Nonzero 0x16c 015e 0f02 | | Execute_Immediate Equal,0x2 015f 700e |p | Jump_Nonzero 0x16e 0160 e006 | | Load 0x0,0x6 0161 180e | | Execute Package,Field_Execute,Field_Number 0xe 0162 4806 |H | Short_Literal 0x6 0163 0092 025d | ]| Action Push_String_Extended,0x25d ; "Ethernet.Server received opcode" 0165 00db | | Load_Top At_Offset_3 0166 00e0 | | Load_Encached Standard_Cache 0167 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0168 01cc | | Execute Vector,Catenate 0169 e007 | | Load 0x0,0x7 016a 180d | | Execute Package,Field_Execute,Field_Number 0xd 016b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 016c 00d1 | | Pop_Control Pop_Count_1 016d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 016e e004 | | Load 0x0,0x4 016f 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0170 605b |`[ | Indirect_Literal Discrete,0x1cc,{0x00007fff, 0xffffffff} 0171 e5fe | | Load 0x2,-0x2 0172 e602 | | Load 0x3,0x2 0173 0a05 | | Execute_Immediate Plus,0x5 0174 00d8 | | Load_Top At_Offset_0 0175 00e2 | | Load_Encached Integer_Cache 0176 0260 | ` | Execute Discrete,In_Type 0177 7001 |p | Jump_Nonzero 0x179 0178 0801 | | Execute_Immediate Raise,0x1 0179 e602 | | Load 0x3,0x2 017a 0a0a | | Execute_Immediate Plus,0xa 017b 00d8 | | Load_Top At_Offset_0 017c 00e2 | | Load_Encached Integer_Cache 017d 0260 | ` | Execute Discrete,In_Type 017e 7001 |p | Jump_Nonzero 0x180 017f 0801 | | Execute_Immediate Raise,0x1 0180 e405 | | Load 0x2,0x5 0181 01cf | | Execute Vector,Slice_Read 0182 e403 | | Load 0x2,0x3 0183 e003 | | Load 0x0,0x3 0184 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0185 c404 | | Store 0x2,0x4 0186 4806 |H | Short_Literal 0x6 0187 0092 025e | ^| Action Push_String_Extended,0x25e ; "Ethernet.Server:Transport.Connect(Active)" 0189 e404 | | Load 0x2,0x4 018a e007 | | Load 0x0,0x7 018b 1816 | | Execute Package,Field_Execute,Field_Number 0x16 018c e405 | | Load 0x2,0x5 018d 4801 |H | Short_Literal 0x1 018e 4802 |H | Short_Literal 0x2 018f 00da | | Load_Top At_Offset_2 0190 035b | [ | Declare_Type Array,Constrained 0191 00d9 | | Load_Top At_Offset_1 0192 01cd | | Execute Vector,Slice_Reference 0193 4801 |H | Short_Literal 0x1 0194 4802 |H | Short_Literal 0x2 0195 e001 | | Load 0x0,0x1 0196 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0197 0334 | 4 | Declare_Variable Array,With_Constraint 0198 e602 | | Load 0x3,0x2 0199 0a08 | | Execute_Immediate Plus,0x8 019a 48ff |H | Short_Literal 0xff 019b 0279 | y | Execute Discrete,And 019c 00d8 | | Load_Top At_Offset_0 019d e001 | | Load 0x0,0x1 019e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 019f 0260 | ` | Execute Discrete,In_Type 01a0 7001 |p | Jump_Nonzero 0x1a2 01a1 0801 | | Execute_Immediate Raise,0x1 01a2 4801 |H | Short_Literal 0x1 01a3 00da | | Load_Top At_Offset_2 01a4 01d6 | | Execute Vector,Field_Write 01a5 e602 | | Load 0x3,0x2 01a6 0a08 | | Execute_Immediate Plus,0x8 01a7 09f8 | | Execute_Immediate Binary_Scale,-0x8 01a8 00d8 | | Load_Top At_Offset_0 01a9 e001 | | Load 0x0,0x1 01aa 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01ab 0260 | ` | Execute Discrete,In_Type 01ac 7001 |p | Jump_Nonzero 0x1ae 01ad 0801 | | Execute_Immediate Raise,0x1 01ae 4802 |H | Short_Literal 0x2 01af 00da | | Load_Top At_Offset_2 01b0 01d6 | | Execute Vector,Field_Write 01b1 00cd | | Action Spare6_Action 01b2 4801 |H | Short_Literal 0x1 01b3 4802 |H | Short_Literal 0x2 01b4 00db | | Load_Top At_Offset_3 01b5 01ce | | Execute Vector,Slice_Write 01b6 00d1 | | Pop_Control Pop_Count_1 01b7 00e3 | | Load_Encached Natural_Cache 01b8 e004 | | Load 0x0,0x4 01b9 1b19 | | Execute Package,Field_Read,Field_Number 0x19 01ba 4800 |H | Short_Literal 0x0 01bb 6010 |` | Indirect_Literal Discrete,0x1cc,{0x00007fff, 0xffffffff} 01bc 4801 |H | Short_Literal 0x1 01bd e406 | | Load 0x2,0x6 01be e405 | | Load 0x2,0x5 01bf 01cf | | Execute Vector,Slice_Read 01c0 e403 | | Load 0x2,0x3 01c1 e003 | | Load 0x0,0x3 01c2 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 01c3 c404 | | Store 0x2,0x4 01c4 c406 | | Store 0x2,0x6 01c5 4806 |H | Short_Literal 0x6 01c6 0092 025f | _| Action Push_String_Extended,0x25f ; "Ethernet.Server:Transport.Transmit" 01c8 e404 | | Load 0x2,0x4 01c9 e007 | | Load 0x0,0x7 01ca 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01cb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01cc 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff} 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d3 | | .CONST 0x01d3 ; Address of begin 01d1 0240 | @ | .CONST 0x0240 ; Address of exception handler 01d2 0001 | | .CONST 0x0001 ; Number of locals 01d3 BODY_01d0: 01d3 INIT_01d0: 01d3 e004 | | Load 0x0,0x4 01d4 1b19 | | Execute Package,Field_Read,Field_Number 0x19 01d5 e403 | | Load 0x2,0x3 01d6 0120 | | Execute Any,Is_Value 01d7 6803 |h | Jump_Zero 0x1db 01d8 e003 | | Load 0x0,0x3 01d9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01da 7801 |x | Jump 0x1dc 01db e403 | | Load 0x2,0x3 01dc e5fe | | Load 0x2,-0x2 01dd e5ff | | Load 0x2,-0x1 01de e003 | | Load 0x0,0x3 01df 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01e0 c403 | | Store 0x2,0x3 01e1 c404 | | Store 0x2,0x4 01e2 e404 | | Load 0x2,0x4 01e3 0b0c | | Execute_Immediate Case_Compare,0xc 01e4 700a |p | Jump_Nonzero 0x1ef 01e5 0b10 | | Execute_Immediate Case_Compare,0x10 01e6 7008 |p | Jump_Nonzero 0x1ef 01e7 480e |H | Short_Literal 0xe 01e8 480f |H | Short_Literal 0xf 01e9 0262 | b | Execute Discrete,In_Range 01ea 7001 |p | Jump_Nonzero 0x1ec 01eb 7811 |x | Jump 0x1fd 01ec 6067 |`g | Indirect_Literal Discrete,0x254,{0x00000000, 0x001e0000} 01ed 00ba | | Action Initiate_Delay 01ee 780e |x | Jump 0x1fd 01ef 00d1 | | Pop_Control Pop_Count_1 01f0 e006 | | Load 0x0,0x6 01f1 180e | | Execute Package,Field_Execute,Field_Number 0xe 01f2 4805 |H | Short_Literal 0x5 01f3 0092 0260 | `| Action Push_String_Extended,0x260 ; "Ethernet.Server:Transport.Open.Status = " 01f5 e404 | | Load 0x2,0x4 01f6 e004 | | Load 0x0,0x4 01f7 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01f8 01cc | | Execute Vector,Catenate 01f9 e007 | | Load 0x0,0x7 01fa 180d | | Execute Package,Field_Execute,Field_Number 0xd 01fb 00cc | | Action Pop_Block 01fc 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01fd 4806 |H | Short_Literal 0x6 01fe 0092 0261 | a| Action Push_String_Extended,0x261 ; "Ethernet.Server:Transport.Open" 0200 e404 | | Load 0x2,0x4 0201 e007 | | Load 0x0,0x7 0202 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0203 e004 | | Load 0x0,0x4 0204 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0205 67c6 |g | Indirect_Literal Discrete,0x1cc,{0x00007fff, 0xffffffff} 0206 e403 | | Load 0x2,0x3 0207 e003 | | Load 0x0,0x3 0208 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0209 c404 | | Store 0x2,0x4 020a e404 | | Load 0x2,0x4 020b 0b0c | | Execute_Immediate Case_Compare,0xc 020c 700a |p | Jump_Nonzero 0x217 020d 0b10 | | Execute_Immediate Case_Compare,0x10 020e 7008 |p | Jump_Nonzero 0x217 020f 480e |H | Short_Literal 0xe 0210 480f |H | Short_Literal 0xf 0211 0262 | b | Execute Discrete,In_Range 0212 7001 |p | Jump_Nonzero 0x214 0213 7811 |x | Jump 0x225 0214 603f |`? | Indirect_Literal Discrete,0x254,{0x00000000, 0x001e0000} 0215 00ba | | Action Initiate_Delay 0216 780e |x | Jump 0x225 0217 00d1 | | Pop_Control Pop_Count_1 0218 e006 | | Load 0x0,0x6 0219 180e | | Execute Package,Field_Execute,Field_Number 0xe 021a 4805 |H | Short_Literal 0x5 021b 0092 0262 | b| Action Push_String_Extended,0x262 ; "Ethernet.Server:Transport.Connect.Status = " 021d e404 | | Load 0x2,0x4 021e e004 | | Load 0x0,0x4 021f 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0220 01cc | | Execute Vector,Catenate 0221 e007 | | Load 0x0,0x7 0222 180d | | Execute Package,Field_Execute,Field_Number 0xd 0223 00cc | | Action Pop_Block 0224 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0225 4806 |H | Short_Literal 0x6 0226 0092 0263 | c| Action Push_String_Extended,0x263 ; "Ethernet.Server:Transport.Connect" 0228 e404 | | Load 0x2,0x4 0229 e007 | | Load 0x0,0x7 022a 1816 | | Execute Package,Field_Execute,Field_Number 0x16 022b 00cf | | Action Mark_Auxiliary 022c 00e3 | | Load_Encached Natural_Cache 022d e405 | | Load 0x2,0x5 022e e004 | | Load 0x0,0x4 022f 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0230 679b |g | Indirect_Literal Discrete,0x1cc,{0x00007fff, 0xffffffff} 0231 e403 | | Load 0x2,0x3 0232 e003 | | Load 0x0,0x3 0233 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0234 c404 | | Store 0x2,0x4 0235 00d1 | | Pop_Control Pop_Count_1 0236 c406 | | Store 0x2,0x6 0237 4806 |H | Short_Literal 0x6 0238 0092 0264 | d| Action Push_String_Extended,0x264 ; "Ethernet.Server:Transport.Receive" 023a e404 | | Load 0x2,0x4 023b e007 | | Load 0x0,0x7 023c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 023d 8407 | | Call 0x2,0x7 023e 00c9 | | Action Pop_Auxiliary_Loop 023f 7fec | | Jump 0x22c 0240 TRAP_01d0: 0240 e007 | | Load 0x0,0x7 0241 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0242 010f | | Execute Exception,Equal 0243 6801 |h | Jump_Zero 0x245 0244 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0245 e006 | | Load 0x0,0x6 0246 180e | | Execute Package,Field_Execute,Field_Number 0xe 0247 4808 |H | Short_Literal 0x8 0248 0092 0265 | e| Action Push_String_Extended,0x265 ; "Ethernet.Server caught " 024a 4801 |H | Short_Literal 0x1 024b 4801 |H | Short_Literal 0x1 024c e008 | | Load 0x0,0x8 024d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 024e 01cc | | Execute Vector,Catenate 024f e007 | | Load 0x0,0x7 0250 180d | | Execute Package,Field_Execute,Field_Number 0xd 0251 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0252 0000 0000 | | .XXX[0x2] 0254 0000 0000 | | .LITERAL {0x00000000, 0x001e0000} 0258 ; -------------------------------------------------------------------------------------- 0258 ; STRING TABLE 0258 ; -------------------------------------------------------------------------------------- 0258 001e | | .STRTAB 0x001e->0x0267 ; "Ethernet.Server" 0259 002b | + | .STRTAB 0x002b->0x026e ; "Ethernet.Server:Received only" 025a 0046 | F | .STRTAB 0x0046->0x027d ; " bytes" 025b 004a | J | .STRTAB 0x004a->0x0280 ; "Ethernet.Server:Received" 025c 0060 | ` | .STRTAB 0x0060->0x028c ; " bytes with Skip =" 025d 0070 | p | .STRTAB 0x0070->0x0295 ; "Ethernet.Server received opcode" 025e 008d | | .STRTAB 0x008d->0x02a4 ; "Ethernet.Server:Transport.Connect(Active)" 025f 00b4 | | .STRTAB 0x00b4->0x02b9 ; "Ethernet.Server:Transport.Transmit" 0260 00d4 | | .STRTAB 0x00d4->0x02ca ; "Ethernet.Server:Transport.Open.Status = " 0261 00fa | | .STRTAB 0x00fa->0x02de ; "Ethernet.Server:Transport.Open" 0262 0116 | | .STRTAB 0x0116->0x02ed ; "Ethernet.Server:Transport.Connect.Status = " 0263 013f | ? | .STRTAB 0x013f->0x0302 ; "Ethernet.Server:Transport.Connect" 0264 015e | ^ | .STRTAB 0x015e->0x0313 ; "Ethernet.Server:Transport.Receive" 0265 017d | } | .STRTAB 0x017d->0x0323 ; "Ethernet.Server caught " 0266 0192 | | .STREND 0x0192->0x032f 0267 4574 6865 |Ethe| .STRTAB_STRINGS 032f 0000 | | .XXX[0x1] 0330 ; -------------------------------------------------------------------------------------- 0330 ; Debug Table 0330 ; -------------------------------------------------------------------------------------- 0330 0004 000d | | .DEBUG4 0x0004,0x000d,0x6df2,0x0000,0x0001,0x0000 0336 e402 0120 | | .XXX[0xca] 0338 6803 e013 |h | 033a 1b0d 7801 | x | 033c e402 e5fb | | 033e e21b 1b0d | | 0340 e013 181a | | 0342 c402 c403 | | 0344 4807 0092 |H | 0346 04bf e21b | | 0348 1b0d 01cc | | 034a 0092 04c0 | | 034c 01cc e403 | | 034e 8216 00cf | | 0350 e5fe 4801 | H | 0352 0263 70a1 | cp | 0354 e014 1b19 | | 0356 60b5 e5fb |` | 0358 e5fc e402 | | 035a e013 181c | | 035c c403 4807 | H | 035e 0092 04c1 | | 0360 e5fc e21b | | 0362 1810 01cc | | 0364 0092 04c0 | | 0366 01cc e403 | | 0368 8216 00e3 | | 036a e014 1b19 | | 036c 4800 609e |H ` | 036e e406 e402 | | 0370 e013 1826 | &| 0372 c403 c404 | | 0374 4807 0092 |H | 0376 04c2 e403 | | 0378 8216 00cf | | 037a 00e3 e407 | | 037c e014 1b19 | | 037e e40a e5fd | | 0380 0271 00d8 | q | 0382 00e7 0260 | `| 0384 7001 0801 |p | 0386 e402 e013 | | 0388 1827 c403 | ' | 038a 00d1 c404 | | 038c e403 0f07 | | 038e 7063 4807 |pcH | 0390 0092 04c3 | | 0392 e403 8216 | | 0394 e404 e406 | | 0396 01db 027b | {| 0398 6842 4801 |hBH | 039a 4808 e407 |H | 039c 01cf 4800 | H | 039e 4807 e006 |H | 03a0 1b12 0334 | 4| 03a2 4800 4800 |H H | 03a4 00da 01d6 | | 03a6 4801 4801 |H H | 03a8 00da 01d6 | | 03aa 4808 4802 |H H | 03ac 00da 01d6 | | 03ae 4800 4803 |H H | 03b0 00da 01d6 | | 03b2 4806 4804 |H H | 03b4 00da 01d6 | | 03b6 4804 4805 |H H | 03b8 00da 01d6 | | 03ba 4800 4806 |H H | 03bc 00da 01d6 | | 03be 4804 4807 |H H | 03c0 00da 01d6 | | 03c2 01df 6817 | h | 03c4 e00d 180e | | 03c6 4802 0092 |H | 03c8 04c4 e402 | | 03ca e013 1824 | $| 03cc e21b 1810 | | 03ce 01cc 820d | | 03d0 e402 e013 | | 03d2 181b 4819 | H | 03d4 481c e407 |H | 03d6 01cf e014 | | 03d8 1b11 01c6 | | 03da 4405 e00d |D | 03dc 180e 4806 | H | 03de 0092 04c5 | | 03e0 4801 e404 |H | 03e2 e407 01cf | | 03e4 8218 01cc | | 03e6 0092 04c6 | | 03e8 01cc e402 | | 03ea e013 1824 | $| 03ec e21b 1810 | | 03ee 01cc 820d | | 03f0 00c9 7f88 | | 03f2 00ce 00c8 | | 03f4 3f5f 00ce |?_ | 03f6 e00d 180e | | 03f8 4806 0092 |H | 03fa 04c7 e5fe | | 03fc 00e0 1818 | | 03fe 01cc 0092 | |