|
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 96d8 0000 | | .XXX[0x8] 02b0 0000 0002 | | 02b2 965e 0000 | ^ | 02b4 51ae 4000 |Q @ | 02b6 0000 0000 | | .BLANK 0000[0x5] 02bb 0014 bcc0 | | .XXX[0x145] 02bd 0002 8f62 | b| 02bf 0000 004e | N| 02c1 c5c0 1459 | Y| 02c3 1000 0000 | | 02c5 0040 1800 | @ | 02c7 bc7a 83b0 | z | 02c9 2d00 0000 |- | 02cb 1fff d005 | | 02cd 43ec 0143 |C C| 02cf a882 1f00 | | 02d1 72fe 000a |r | 02d3 85c0 029b | | 02d5 0400 a763 | c| 02d7 8000 a305 | | 02d9 200a 67c0 | g | 02db 029c e202 | | 02dd 1c06 016b | k| 02df c480 0014 | | 02e1 ec70 0000 | p | 02e3 0000 0000 | | 02e5 5360 800e |S` | 02e7 4040 0700 |@@ | 02e9 0000 0000 | | 02eb 01ab 4d01 | M | 02ed 8000 533e | S>| 02ef 0000 0000 | | 02f1 053c 9a66 | < f| 02f3 2400 a763 |$ c| 02f5 8000 0000 | | 02f7 0a7e 5002 | ~P | 02f9 a082 0000 | | 02fb 0000 0027 | '| 02fd 62e0 0a79 |b y| 02ff 3000 0000 |0 | 0301 0150 0600 | P | 0303 6ca5 cec5 |l | 0305 c014 f260 | `| 0307 0000 0004 | | 0309 380c 02d6 |8 | 030b 1083 b02d | -| 030d 0000 001f | | 030f ffd0 0544 | D| 0311 c001 4cf8 | L | 0313 002c a6d0 | , | 0315 43c0 0e5f |C _| 0317 c001 5640 | V@| 0319 0054 7540 | Tu@| 031b 152b 1000 | + | 031d 14a0 b401 | | 031f 514b 0054 |QK T| 0321 96c0 2800 | ( | 0323 0015 2b10 | + | 0325 03b0 1001 | | 0327 c000 0000 | | 0329 0000 6ad3 | j | 032b 4599 8015 |E | 032d 14b0 0000 | | 032f 0001 5393 | S | 0331 0000 0000 | | 0333 e010 4320 | C | 0335 1c02 0864 | d| 0337 0000 0000 | | 0339 1331 2005 | 1 | 033b 4ac4 0000 |J | 033d 0000 550d | U | 033f c015 5c90 | \ | 0341 0000 0000 | | 0343 0133 1200 | 3 | 0345 54e4 c000 |T | 0347 0000 0553 | S| 0349 6c01 5552 |l UR| 034b 0000 0000 | | 034d 0013 b170 | p| 034f 0550 dc00 | P | 0351 0000 00a8 | | 0353 0300 3652 | 6R| 0355 e762 e00a | b | 0357 a1b8 0000 | | 0359 0002 1c06 | | 035b 016b 084e | k N| 035d c5c0 1539 | 9| 035f 3000 0000 |0 | 0361 0280 0c03 | | 0363 0a14 83b0 | | 0365 2d00 0000 |- | 0367 1fff d063 | c| 0369 d00e 5fc0 | _ | 036b 0164 f300 | d | 036d 55c9 c015 |U | 036f 86c0 0587 | | 0371 9c00 0918 | | 0373 2100 55a0 |! U | 0375 c015 8160 | `| 0377 0a40 0005 | @ | 0379 61b0 0000 |a | 037b b0f3 8000 | | 037d 0000 0000 | | 037f 02ae 4e00 | N | 0381 7a02 0038 |z 8| 0383 0000 0000 | | 0385 000d 5a68 | Zh| 0387 1bd0 02ad | | 0389 0600 0000 | | 038b 002b f060 | + `| 038d 0b0b 8000 | | 038f 0000 8d3f | ?| 0391 002b f060 | + `| 0393 0000 0002 | | 0395 b518 00ad | | 0397 7580 2b8f |u + | 0399 a8a1 1802 | | 039b b518 0000 | | 039d 0000 7901 | y | 039f 001d 32c0 | 2 | 03a1 0ae3 e800 | | 03a3 0159 9400 | Y | 03a5 0300 0000 | | 03a7 0015 9948 | H| 03a9 4480 02b2 |D | 03ab 0000 0000 | | 03ad 002b 4af3 | +J | 03af 3120 0564 |1 d| 03b1 0000 0000 | | 03b3 0056 e3c0 | V | 03b5 15c0 6000 | ` | 03b7 0000 0001 | | 03b9 3b17 0056 |; V| 03bb bac0 0000 | | 03bd 0007 4020 | @ | 03bf 0348 0676 | H v| 03c1 2e00 ad75 |. u| 03c3 8000 0000 | | 03c5 0b00 4007 | @ | 03c7 45d4 8040 |E @| 03c9 0159 0000 | Y | 03cb 57cb 4015 |W @ | 03cd d3c0 057b | {| 03cf 3810 0096 |8 | 03d1 9400 007d | }| 03d3 2989 9890 |) | 03d5 02b8 fa00 | | 03d7 0000 002b | +| 03d9 bc00 0af2 | | 03db b800 0000 | | 03dd 0000 9d8b | | 03df 802b a780 | + | 03e1 0000 0003 | | 03e3 a010 01a4 | | 03e5 033b 1700 | ; | 03e7 574f 0000 |WO | 03e9 0000 0800 | | 03eb 2003 f6ae | | 03ed 1126 00ae | & | 03ef 3e80 0000 |> | 03f1 0000 0004 | | 03f3 0400 5800 | X | 03f5 0000 0000 | | 03f7 2ba7 90c9 |+ | 03f9 4005 61b0 |@ a | 03fb 0000 0000 | | 03fd 5639 4000 |V9@ | 03ff 5804 |X |