|
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 02a8 | | .CONST 0x02a8 ; 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 0025 | % | .CONST 0x0025 ; Address of begin 0009 0028 | ( | .CONST 0x0028 ; Address of exception handler 000a 0015 | | .CONST 0x0015 ; Number of locals 000b INIT_0008: 000b 00e1 | | Load_Encached Boolean_Cache 000c 0401 | | Execute_Immediate Set_Value_Visible_Unchecked,0x1 000d 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated 000f 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated 0011 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated 0013 00bf | | Action Accept_Activation 0014 0092 0214 | | Action Push_String_Extended,0x214 ; "Memory.EXOS" 0016 e001 | | Load 0x0,0x1 0017 0007 | | Action Break_Optional 0018 6033 |`3 | Indirect_Literal Discrete,0x4c,{0x00000000, 0x00010000} 0019 00d9 | | Load_Top At_Offset_1 001a 03f1 | | Declare_Variable Discrete,With_Value 001b 029d 018b | | Declare_Subprogram INIT_0188,For_Outer_Call 001d 1d0e | | Execute_Immediate Reference_Lex_1,0xe 001e 00c7 | | Action Elaborate_Subprogram 001f 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0020 00c7 | | Action Elaborate_Subprogram 0021 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0022 00c7 | | Action Elaborate_Subprogram 0023 029f 019b | | Declare_Subprogram INIT_0198,For_Call 0025 BODY_0008: 0025 8215 | | Call 0x1,0x15 0026 00bc | | Action Signal_Activated 0027 00bb | | Action Signal_Completion 0028 TRAP_0008: 0028 0007 | | Action Break_Optional 0029 4800 |H | Short_Literal 0x0 002a a20d | | Store_Unchecked 0x1,0xd 002b 00bc | | Action Signal_Activated 002c 00bb | | Action Signal_Completion 002d 0000 0000 | | .XXX[0x3] 002f 0000 | | 0030 ; -------------------------------------------------------------------------------------- 0030 ; SUBPROGRAM 0030 ; -------------------------------------------------------------------------------------- 0030 0039 | 9 | .CONST 0x0039 ; Address of begin 0031 003b | ; | .CONST 0x003b ; Address of exception handler 0032 0003 | | .CONST 0x0003 ; Number of locals 0033 INIT_0030: 0033 e211 | | Load 0x1,0x11 0034 0092 0215 | | Action Push_String_Extended,0x215 ; ".Reset" 0036 01cc | | Execute Vector,Catenate 0037 029f 01bb | | Declare_Subprogram INIT_01b8,For_Call 0039 BODY_0030: 0039 8403 | | Call 0x2,0x3 003a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 003b TRAP_0030: 003b 4884 |H | Short_Literal 0x84 003c 010f | | Execute Exception,Equal 003d 680c |h | Jump_Zero 0x4a 003e e002 | | Load 0x0,0x2 003f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0040 4806 |H | Short_Literal 0x6 0041 e402 | | Load 0x2,0x2 0042 0092 0216 | | Action Push_String_Extended,0x216 ; " caught System.Nonexistent_Page_Error" 0044 01cc | | Execute Vector,Catenate 0045 e003 | | Load 0x0,0x3 0046 180d | | Execute Package,Field_Execute,Field_Number 0xd 0047 4800 |H | Short_Literal 0x0 0048 a20d | | Store_Unchecked 0x1,0xd 0049 4501 |E | Exit_Suprogram New_Top_Offset 0x1 004a 0100 | | Execute Exception,Raise 004b 0000 | | .XXX[0x1] 004c 0000 0000 | | .LITERAL {0x00000000, 0x00010000} 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 005c | \ | .CONST 0x005c ; Address of begin 0051 00b0 | | .CONST 0x00b0 ; Address of exception handler 0052 0003 | | .CONST 0x0003 ; Number of locals 0053 INIT_0050: 0053 6080 |` | Indirect_Literal Discrete,0xd4,{0x00000000, 0x00001000} 0054 e212 | | Load 0x1,0x12 0055 03f1 | | Declare_Variable Discrete,With_Value 0056 4801 |H | Short_Literal 0x1 0057 4a00 |J | Short_Literal 0x200 0058 e004 | | Load 0x0,0x4 0059 1b0e | | Execute Package,Field_Read,Field_Number 0xe 005a 035b | [ | Declare_Type Array,Constrained 005b 0337 | 7 | Declare_Variable Array 005c BODY_0050: 005c e20d | | Load 0x1,0xd 005d 7001 |p | Jump_Nonzero 0x5f 005e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 005f 00cf | | Action Mark_Auxiliary 0060 7840 |x@ | Jump 0xa1 0061 00da | | Load_Top At_Offset_2 0062 00d8 | | Load_Top At_Offset_0 0063 00e3 | | Load_Encached Natural_Cache 0064 0260 | ` | Execute Discrete,In_Type 0065 7001 |p | Jump_Nonzero 0x67 0066 0801 | | Execute_Immediate Raise,0x1 0067 4a00 |J | Short_Literal 0x200 0068 e003 | | Load 0x0,0x3 0069 1811 | | Execute Package,Field_Execute,Field_Number 0x11 006a 00da | | Load_Top At_Offset_2 006b 01d4 | | Execute Vector,Structure_Write 006c e002 | | Load 0x0,0x2 006d 180e | | Execute Package,Field_Execute,Field_Number 0xe 006e 4801 |H | Short_Literal 0x1 006f 0092 0217 | | Action Push_String_Extended,0x217 ; "Tcp_Ip_Driver.Load" 0071 e402 | | Load 0x2,0x2 0072 8214 | | Call 0x1,0x14 0073 01cc | | Execute Vector,Catenate 0074 e003 | | Load 0x0,0x3 0075 180d | | Execute Package,Field_Execute,Field_Number 0xd 0076 00da | | Load_Top At_Offset_2 0077 4a00 |J | Short_Literal 0x200 0078 0273 | s | Execute Discrete,Plus 0079 e213 | | Load 0x1,0x13 007a 027a | z | Execute Discrete,Less_Equal 007b 680b |h | Jump_Zero 0x87 007c 00d9 | | Load_Top At_Offset_1 007d 00db | | Load_Top At_Offset_3 007e 00d8 | | Load_Top At_Offset_0 007f e005 | | Load 0x0,0x5 0080 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 0081 0260 | ` | Execute Discrete,In_Type 0082 7001 |p | Jump_Nonzero 0x84 0083 0801 | | Execute_Immediate Raise,0x1 0084 e005 | | Load 0x0,0x5 0085 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0086 7815 |x | Jump 0x9c 0087 4801 |H | Short_Literal 0x1 0088 e213 | | Load 0x1,0x13 0089 e402 | | Load 0x2,0x2 008a 0272 | r | Execute Discrete,Minus 008b 00d8 | | Load_Top At_Offset_0 008c 00e3 | | Load_Encached Natural_Cache 008d 0260 | ` | Execute Discrete,In_Type 008e 7001 |p | Jump_Nonzero 0x90 008f 0801 | | Execute_Immediate Raise,0x1 0090 00db | | Load_Top At_Offset_3 0091 01cf | | Execute Vector,Slice_Read 0092 00db | | Load_Top At_Offset_3 0093 00d8 | | Load_Top At_Offset_0 0094 e005 | | Load 0x0,0x5 0095 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 0096 0260 | ` | Execute Discrete,In_Type 0097 7001 |p | Jump_Nonzero 0x99 0098 0801 | | Execute_Immediate Raise,0x1 0099 e005 | | Load 0x0,0x5 009a 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 009b 7809 |x | Jump 0xa5 009c 00da | | Load_Top At_Offset_2 009d 4a00 |J | Short_Literal 0x200 009e 0273 | s | Execute Discrete,Plus 009f 005b | [ | Store_Top Discrete,At_Offset_3 00a0 00c9 | | Action Pop_Auxiliary_Loop 00a1 00da | | Load_Top At_Offset_2 00a2 e213 | | Load 0x1,0x13 00a3 027c | | | Execute Discrete,Less 00a4 77bc |w | Jump_Nonzero 0x61 00a5 00ce | | Action Pop_Auxiliary 00a6 e002 | | Load 0x0,0x2 00a7 180e | | Execute Package,Field_Execute,Field_Number 0xe 00a8 4802 |H | Short_Literal 0x2 00a9 e211 | | Load 0x1,0x11 00aa 0092 0218 | | Action Push_String_Extended,0x218 ; ".Write succeeded" 00ac 01cc | | Execute Vector,Catenate 00ad e003 | | Load 0x0,0x3 00ae 180d | | Execute Package,Field_Execute,Field_Number 0xd 00af 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00b0 TRAP_0050: 00b0 e003 | | Load 0x0,0x3 00b1 1b17 | | Execute Package,Field_Read,Field_Number 0x17 00b2 010f | | Execute Exception,Equal 00b3 680b |h | Jump_Zero 0xbf 00b4 e002 | | Load 0x0,0x2 00b5 180e | | Execute Package,Field_Execute,Field_Number 0xe 00b6 4807 |H | Short_Literal 0x7 00b7 e211 | | Load 0x1,0x11 00b8 0092 0219 | | Action Push_String_Extended,0x219 ; ".Write failed" 00ba 01cc | | Execute Vector,Catenate 00bb e003 | | Load 0x0,0x3 00bc 180d | | Execute Package,Field_Execute,Field_Number 0xd 00bd 00d8 | | Load_Top At_Offset_0 00be 0101 | | Execute Exception,Reraise 00bf e002 | | Load 0x0,0x2 00c0 180e | | Execute Package,Field_Execute,Field_Number 0xe 00c1 4808 |H | Short_Literal 0x8 00c2 4801 |H | Short_Literal 0x1 00c3 4801 |H | Short_Literal 0x1 00c4 e006 | | Load 0x0,0x6 00c5 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00c6 0092 021a | | Action Push_String_Extended,0x21a ; " caught in " 00c8 01cc | | Execute Vector,Catenate 00c9 e211 | | Load 0x1,0x11 00ca 01cc | | Execute Vector,Catenate 00cb 0092 021b | | Action Push_String_Extended,0x21b ; ".Write" 00cd 01cc | | Execute Vector,Catenate 00ce e003 | | Load 0x0,0x3 00cf 180d | | Execute Package,Field_Execute,Field_Number 0xd 00d0 00d8 | | Load_Top At_Offset_0 00d1 0101 | | Execute Exception,Reraise 00d2 0000 0000 | | .XXX[0x2] 00d4 0000 0000 | | .LITERAL {0x00000000, 0x00001000} 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00e5 | | .CONST 0x00e5 ; Address of begin 00d9 015c | \ | .CONST 0x015c ; Address of exception handler 00da 0004 | | .CONST 0x0004 ; Number of locals 00db INIT_00d8: 00db 67f8 |g | Indirect_Literal Discrete,0xd4,{0x00000000, 0x00001000} 00dc e212 | | Load 0x1,0x12 00dd 03f1 | | Declare_Variable Discrete,With_Value 00de 4801 |H | Short_Literal 0x1 00df 4a00 |J | Short_Literal 0x200 00e0 e004 | | Load 0x0,0x4 00e1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00e2 035b | [ | Declare_Type Array,Constrained 00e3 0337 | 7 | Declare_Variable Array 00e4 00e3 | | Load_Encached Natural_Cache 00e5 BODY_00d8: 00e5 e20d | | Load 0x1,0xd 00e6 6806 |h | Jump_Zero 0xed 00e7 e003 | | Load 0x0,0x3 00e8 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 00e9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ea e003 | | Load 0x0,0x3 00eb 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00ec 7005 |p | Jump_Nonzero 0xf2 00ed e003 | | Load 0x0,0x3 00ee 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00ef 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00f0 00ba | | Action Initiate_Delay 00f1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00f2 00cf | | Action Mark_Auxiliary 00f3 7857 |xW | Jump 0x14b 00f4 e5ff | | Load 0x2,-0x1 00f5 7004 |p | Jump_Nonzero 0xfa 00f6 e003 | | Load 0x0,0x3 00f7 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00f8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00f9 00ba | | Action Initiate_Delay 00fa e002 | | Load 0x0,0x2 00fb 180e | | Execute Package,Field_Execute,Field_Number 0xe 00fc 4801 |H | Short_Literal 0x1 00fd 0092 021c | | Action Push_String_Extended,0x21c ; "Tcp_Ip_Driver.Unload" 00ff e402 | | Load 0x2,0x2 0100 8214 | | Call 0x1,0x14 0101 01cc | | Execute Vector,Catenate 0102 e003 | | Load 0x0,0x3 0103 180d | | Execute Package,Field_Execute,Field_Number 0xd 0104 00e3 | | Load_Encached Natural_Cache 0105 00db | | Load_Top At_Offset_3 0106 e402 | | Load 0x2,0x2 0107 00d8 | | Load_Top At_Offset_0 0108 e005 | | Load 0x0,0x5 0109 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 010a 0260 | ` | Execute Discrete,In_Type 010b 7001 |p | Jump_Nonzero 0x10d 010c 0801 | | Execute_Immediate Raise,0x1 010d e005 | | Load 0x0,0x5 010e 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 010f 00d1 | | Pop_Control Pop_Count_1 0110 005a | Z | Store_Top Discrete,At_Offset_2 0111 00d9 | | Load_Top At_Offset_1 0112 0d01 | | Execute_Immediate Less,0x1 0113 681a |h | Jump_Zero 0x12e 0114 e5ff | | Load 0x2,-0x1 0115 7004 |p | Jump_Nonzero 0x11a 0116 00db | | Load_Top At_Offset_3 0117 6068 |`h | Indirect_Literal Discrete,0x180,{0x00000000, 0x00010000} 0118 027b | { | Execute Discrete,Greater_Equal 0119 7035 |p5 | Jump_Nonzero 0x14f 011a e002 | | Load 0x0,0x2 011b 180e | | Execute Package,Field_Execute,Field_Number 0xe 011c 4807 |H | Short_Literal 0x7 011d 0092 021d | | Action Push_String_Extended,0x21d ; "Tcp_Ip_Driver.Unload(" 011f e402 | | Load 0x2,0x2 0120 8214 | | Call 0x1,0x14 0121 01cc | | Execute Vector,Catenate 0122 0092 021e | | Action Push_String_Extended,0x21e ; ").Count =" 0124 01cc | | Execute Vector,Catenate 0125 e404 | | Load 0x2,0x4 0126 00e0 | | Load_Encached Standard_Cache 0127 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0128 01cc | | Execute Vector,Catenate 0129 e003 | | Load 0x0,0x3 012a 180d | | Execute Package,Field_Execute,Field_Number 0xd 012b e003 | | Load 0x0,0x3 012c 1b17 | | Execute Package,Field_Read,Field_Number 0x17 012d 0257 | W | Execute Discrete,Raise 012e e5ff | | Load 0x2,-0x1 012f 6816 |h | Jump_Zero 0x146 0130 0092 021d | | Action Push_String_Extended,0x21d ; "Tcp_Ip_Driver.Unload(" 0132 e402 | | Load 0x2,0x2 0133 8214 | | Call 0x1,0x14 0134 01cc | | Execute Vector,Catenate 0135 0092 021f | | Action Push_String_Extended,0x21f ; ")" 0137 01cc | | Execute Vector,Catenate 0138 e402 | | Load 0x2,0x2 0139 00d8 | | Load_Top At_Offset_0 013a 00e3 | | Load_Encached Natural_Cache 013b 0260 | ` | Execute Discrete,In_Type 013c 7001 |p | Jump_Nonzero 0x13e 013d 0801 | | Execute_Immediate Raise,0x1 013e 00db | | Load_Top At_Offset_3 013f e003 | | Load 0x0,0x3 0140 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0141 4801 |H | Short_Literal 0x1 0142 e404 | | Load 0x2,0x4 0143 e403 | | Load 0x2,0x3 0144 01cf | | Execute Vector,Slice_Read 0145 8007 | | Call 0x0,0x7 0146 00db | | Load_Top At_Offset_3 0147 00da | | Load_Top At_Offset_2 0148 0273 | s | Execute Discrete,Plus 0149 c402 | | Store 0x2,0x2 014a 00c9 | | Action Pop_Auxiliary_Loop 014b 00db | | Load_Top At_Offset_3 014c e213 | | Load 0x1,0x13 014d 027c | | | Execute Discrete,Less 014e 77a5 |w | Jump_Nonzero 0xf4 014f 00ce | | Action Pop_Auxiliary 0150 e5ff | | Load 0x2,-0x1 0151 6809 |h | Jump_Zero 0x15b 0152 e002 | | Load 0x0,0x2 0153 180e | | Execute Package,Field_Execute,Field_Number 0xe 0154 4802 |H | Short_Literal 0x2 0155 e211 | | Load 0x1,0x11 0156 0092 0220 | | Action Push_String_Extended,0x220 ; ".Read succeeded" 0158 01cc | | Execute Vector,Catenate 0159 e003 | | Load 0x0,0x3 015a 180d | | Execute Package,Field_Execute,Field_Number 0xd 015b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 015c TRAP_00d8: 015c e003 | | Load 0x0,0x3 015d 1b17 | | Execute Package,Field_Read,Field_Number 0x17 015e 010f | | Execute Exception,Equal 015f 680b |h | Jump_Zero 0x16b 0160 e002 | | Load 0x0,0x2 0161 180e | | Execute Package,Field_Execute,Field_Number 0xe 0162 4807 |H | Short_Literal 0x7 0163 e211 | | Load 0x1,0x11 0164 0092 0221 | !| Action Push_String_Extended,0x221 ; ".Read failed" 0166 01cc | | Execute Vector,Catenate 0167 e003 | | Load 0x0,0x3 0168 180d | | Execute Package,Field_Execute,Field_Number 0xd 0169 00d8 | | Load_Top At_Offset_0 016a 0101 | | Execute Exception,Reraise 016b e002 | | Load 0x0,0x2 016c 180e | | Execute Package,Field_Execute,Field_Number 0xe 016d 4808 |H | Short_Literal 0x8 016e 4801 |H | Short_Literal 0x1 016f 4801 |H | Short_Literal 0x1 0170 e006 | | Load 0x0,0x6 0171 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0172 0092 021a | | Action Push_String_Extended,0x21a ; " caught in " 0174 01cc | | Execute Vector,Catenate 0175 e211 | | Load 0x1,0x11 0176 01cc | | Execute Vector,Catenate 0177 0092 0222 | "| Action Push_String_Extended,0x222 ; ".Read" 0179 01cc | | Execute Vector,Catenate 017a e003 | | Load 0x0,0x3 017b 180d | | Execute Package,Field_Execute,Field_Number 0xd 017c 00d8 | | Load_Top At_Offset_0 017d 0101 | | Execute Exception,Reraise 017e 0000 0000 | | .XXX[0x2] 0180 0000 0000 | | .LITERAL {0x00000000, 0x00010000} 0184 0000 0000 | | .BLANK 0000[0x4] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 018b | | .CONST 0x018b ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0001 | | .CONST 0x0001 ; Number of locals 018b BODY_0188: 018b INIT_0188: 018b 0092 0223 | #| Action Push_String_Extended,0x223 ; " #" 018d 00db | | Load_Top At_Offset_3 018e 8008 | | Call 0x0,0x8 018f 01cc | | Execute Vector,Catenate 0190 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0191 0000 0000 | | .BLANK 0000[0x7] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 01a7 | | .CONST 0x01a7 ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0006 | | .CONST 0x0006 ; Number of locals 019b INIT_0198: 019b 029f 0213 | | Declare_Subprogram INIT_0210,For_Call 019d e005 | | Load 0x0,0x5 019e 1931 | 1 | Execute Package,Field_Reference,Field_Number 0x31 019f 00c6 | | Action Check_Subprogram_Elaborated 01a0 4802 |H | Short_Literal 0x2 01a1 4802 |H | Short_Literal 0x2 01a2 0099 | | Action Reference_Dynamic 01a3 e009 | | Load 0x0,0x9 01a4 e00a | | Load 0x0,0xa 01a5 4806 |H | Short_Literal 0x6 01a6 0007 | | Action Break_Optional 01a7 BODY_0198: 01a7 4801 |H | Short_Literal 0x1 01a8 4803 |H | Short_Literal 0x3 01a9 4802 |H | Short_Literal 0x2 01aa 0099 | | Action Reference_Dynamic 01ab 4804 |H | Short_Literal 0x4 01ac 4802 |H | Short_Literal 0x2 01ad 0099 | | Action Reference_Dynamic 01ae e005 | | Load 0x0,0x5 01af 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 01b0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01b1 0000 0000 | | .BLANK 0000[0x7] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01bf | | .CONST 0x01bf ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0003 | | .CONST 0x0003 ; Number of locals 01bb INIT_01b8: 01bb e005 | | Load 0x0,0x5 01bc 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 01bd e005 | | Load 0x0,0x5 01be 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 01bf BODY_01b8: 01bf e005 | | Load 0x0,0x5 01c0 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 01c1 e005 | | Load 0x0,0x5 01c2 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 01c3 e005 | | Load 0x0,0x5 01c4 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 01c5 005b | [ | Store_Top Discrete,At_Offset_3 01c6 0059 | Y | Store_Top Discrete,At_Offset_1 01c7 00d9 | | Load_Top At_Offset_1 01c8 4605 |F | Jump_Case 0x6 01c9 7815 |x | Jump 0x1df ; case 0x0 01ca 7804 |x | Jump 0x1cf ; case 0x1 01cb 782b |x+ | Jump 0x1f7 ; case 0x2 01cc 7802 |x | Jump 0x1cf ; case 0x3 01cd 7801 |x | Jump 0x1cf ; case 0x4 01ce 7800 |x | Jump 0x1cf ; case 0x5 01cf e002 | | Load 0x0,0x2 01d0 180e | | Execute Package,Field_Execute,Field_Number 0xe 01d1 4807 |H | Short_Literal 0x7 01d2 0092 0224 | $| Action Push_String_Extended,0x224 ; "Tcp_Ip_Driver.Reset.Status = " 01d4 e602 | | Load 0x3,0x2 01d5 e005 | | Load 0x0,0x5 01d6 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 01d7 011c | | Execute Any,Convert_Unchecked 01d8 1c01 | | Execute_Immediate Run_Utility,0x1 01d9 01cc | | Execute Vector,Catenate 01da e003 | | Load 0x0,0x3 01db 180d | | Execute Package,Field_Execute,Field_Number 0xd 01dc e003 | | Load 0x0,0x3 01dd 1b17 | | Execute Package,Field_Read,Field_Number 0x17 01de 0257 | W | Execute Discrete,Raise 01df 4801 |H | Short_Literal 0x1 01e0 a20d | | Store_Unchecked 0x1,0xd 01e1 00d8 | | Load_Top At_Offset_0 01e2 0a01 | | Execute_Immediate Plus,0x1 01e3 c213 | | Store 0x1,0x13 01e4 e213 | | Load 0x1,0x13 01e5 6022 |`" | Indirect_Literal Discrete,0x208,{0x00000000, 0x00010000} 01e6 027d | } | Execute Discrete,Greater 01e7 6802 |h | Jump_Zero 0x1ea 01e8 601f |` | Indirect_Literal Discrete,0x208,{0x00000000, 0x00010000} 01e9 a213 | | Store_Unchecked 0x1,0x13 01ea e002 | | Load 0x0,0x2 01eb 180e | | Execute Package,Field_Execute,Field_Number 0xe 01ec 4800 |H | Short_Literal 0x0 01ed e402 | | Load 0x2,0x2 01ee 0092 0225 | %| Action Push_String_Extended,0x225 ; ".Limit_Address =" 01f0 01cc | | Execute Vector,Catenate 01f1 e213 | | Load 0x1,0x13 01f2 8214 | | Call 0x1,0x14 01f3 01cc | | Execute Vector,Catenate 01f4 e003 | | Load 0x0,0x3 01f5 180d | | Execute Package,Field_Execute,Field_Number 0xd 01f6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01f7 4800 |H | Short_Literal 0x0 01f8 a20d | | Store_Unchecked 0x1,0xd 01f9 e002 | | Load 0x0,0x2 01fa 180e | | Execute Package,Field_Execute,Field_Number 0xe 01fb 4802 |H | Short_Literal 0x2 01fc 0092 0224 | $| Action Push_String_Extended,0x224 ; "Tcp_Ip_Driver.Reset.Status = " 01fe e602 | | Load 0x3,0x2 01ff e005 | | Load 0x0,0x5 0200 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 0201 011c | | Execute Any,Convert_Unchecked 0202 1c01 | | Execute_Immediate Run_Utility,0x1 0203 01cc | | Execute Vector,Catenate 0204 e003 | | Load 0x0,0x3 0205 180d | | Execute Package,Field_Execute,Field_Number 0xd 0206 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0207 0000 | | .XXX[0x1] 0208 0000 0000 | | .LITERAL {0x00000000, 0x00010000} 020c 0000 0000 | | .BLANK 0000[0x4] 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0213 | | .CONST 0x0213 ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0001 | | .CONST 0x0001 ; Number of locals 0213 BODY_0210: 0213 INIT_0210: 0213 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0214 ; -------------------------------------------------------------------------------------- 0214 ; STRING TABLE 0214 ; -------------------------------------------------------------------------------------- 0214 0026 | & | .STRTAB 0x0026->0x0227 ; "Memory.EXOS" 0215 002f | / | .STRTAB 0x002f->0x022c ; ".Reset" 0216 0033 | 3 | .STRTAB 0x0033->0x022f ; " caught System.Nonexistent_Page_Error" 0217 0056 | V | .STRTAB 0x0056->0x0242 ; "Tcp_Ip_Driver.Load" 0218 0066 | f | .STRTAB 0x0066->0x024b ; ".Write succeeded" 0219 0074 | t | .STRTAB 0x0074->0x0253 ; ".Write failed" 021a 007f | | .STRTAB 0x007f->0x0259 ; " caught in " 021b 0088 | | .STRTAB 0x0088->0x025f ; ".Write" 021c 008c | | .STRTAB 0x008c->0x0262 ; "Tcp_Ip_Driver.Unload" 021d 009e | | .STRTAB 0x009e->0x026c ; "Tcp_Ip_Driver.Unload(" 021e 00b1 | | .STRTAB 0x00b1->0x0276 ; ").Count =" 021f 00b8 | | .STRTAB 0x00b8->0x027b ; ")" 0220 00b7 | | .STRTAB 0x00b7->0x027b ; ".Read succeeded" 0221 00c4 | | .STRTAB 0x00c4->0x0283 ; ".Read failed" 0222 00ce | | .STRTAB 0x00ce->0x0289 ; ".Read" 0223 00d1 | | .STRTAB 0x00d1->0x028b ; " #" 0224 00d1 | | .STRTAB 0x00d1->0x028c ; "Tcp_Ip_Driver.Reset.Status = " 0225 00ec | | .STRTAB 0x00ec->0x029b ; ".Limit_Address =" 0226 00fa | | .STREND 0x00fa->0x02a3 0227 4d65 6d6f |Memo| .STRTAB_STRINGS 02a3 0000 0000 | | .BLANK 0000[0x5] 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; Debug Table 02a8 ; -------------------------------------------------------------------------------------- 02a8 0004 000d | | .DEBUG4 0x0004,0x000d,0x6df6,0x0000,0x0001,0x0000 02ae 0000 0000 | | .XXX[0x1e] 02b0 0730 a404 | 0 | 02b2 c000 2b96 | + | 02b4 0000 0040 | @| 02b6 0000 0040 | @| 02b8 0730 f804 | 0 | 02ba 8000 0003 | | 02bc 000c 280a | ( | 02be 0000 00b1 | | 02c0 0731 2004 | 1 | 02c2 0000 28a8 | ( | 02c4 0731 0404 | 1 | 02c6 000c b804 | | 02c8 0000 0000 | | 02ca 0000 0076 | v| 02cc 0000 0000 | | .BLANK 0000[0x4] 02d0 0730 a404 | 0 | .XXX[0x1c] 02d2 c000 2d96 | - | 02d4 0000 0040 | @| 02d6 0000 0040 | @| 02d8 0731 2804 | 1( | 02da 8000 0004 | | 02dc 000c 600a | ` | 02de 0000 00b1 | | 02e0 000c 9404 | | 02e2 0000 2c08 | , | 02e4 0731 2804 | 1( | 02e6 000c d804 | | 02e8 0000 0000 | | 02ea 0000 0076 | v| 02ec 0000 0000 | | .BLANK 0000[0x4] 02f0 0730 a404 | 0 | .XXX[0x14] 02f2 c000 2f96 | / | 02f4 0000 0040 | @| 02f6 0000 0040 | @| 02f8 0000 0000 | | 02fa 8000 0000 | | 02fc 006d a408 | m | 02fe 0000 00b1 | | 0300 0000 0000 | | 0302 0000 0076 | v| 0304 0000 0000 | | .BLANK 0000[0x4] 0308 0730 a404 | 0 | .XXX[0x1c] 030a c000 3116 | 1 | 030c 0000 0040 | @| 030e 0000 0040 | @| 0310 0000 0000 | | 0312 8000 0000 | | 0314 000c 540a | T | 0316 0000 00b1 | | 0318 000c f004 | | 031a 0000 2e00 | . | 031c 000c 8c04 | | 031e 000c c804 | | 0320 0000 0000 | | 0322 0000 0076 | v| 0324 0000 0000 | | .BLANK 0000[0x4] 0328 0730 a404 | 0 | .XXX[0x10] 032a c000 3316 | 3 | 032c 0000 0040 | @| 032e 0000 0040 | @| 0330 0000 0000 | | 0332 8000 0000 | | 0334 000c 700a | p | 0336 0000 00b1 | | 0338 0000 0000 | | .BLANK 0000[0xc8]