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