|
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 |