|
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: 5120 (0x1400)
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 0918 | | .CONST 0x0918 ; 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 8005 | | .CONST 0x8005 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0052 | R | .CONST 0x0052 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0015 | | .CONST 0x0015 ; Number of locals
000b INIT_0008:
000b 4801 |H | Short_Literal 0x1
000c 4806 |H | Short_Literal 0x6
000d 00e9 | | Load_Encached String_Cache
000e 0334 | 4 | Declare_Variable Array,With_Constraint
000f 5074 |Pt | Indirect_Literal Any,0x84,{0x5544502f, 0x49502020}
0010 0129 | ) | Execute Any,Make_Visible
0011 00e7 | | Load_Encached Duration_Cache
0012 0400 | | Execute_Immediate Set_Value_Visible_Unchecked,0x0
0013 4bf0 |K | Short_Literal 0x3f0
0014 00e3 | | Load_Encached Natural_Cache
0015 03f0 | | Declare_Variable Discrete,Visible,With_Value
0016 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated
0018 4800 |H | Short_Literal 0x0
0019 0093 0193 | | push_full_address INIT_0190
001b 02a0 | | Declare_Subprogram Null_Subprogram
001c 038f | | Declare_Type Package,Defined,Visible
001d e001 | | Load 0x0,0x1
001e 4801 |H | Short_Literal 0x1
001f 00da | | Load_Top At_Offset_2
0020 020e | | Execute Module,Augment_Imports
0021 0386 | | Declare_Variable Package,Visible
0022 4800 |H | Short_Literal 0x0
0023 0093 00bb | | push_full_address INIT_00b8
0025 02a0 | | Declare_Subprogram Null_Subprogram
0026 038f | | Declare_Type Package,Defined,Visible
0027 e001 | | Load 0x0,0x1
0028 4801 |H | Short_Literal 0x1
0029 00da | | Load_Top At_Offset_2
002a 020e | | Execute Module,Augment_Imports
002b 0386 | | Declare_Variable Package,Visible
002c 00bf | | Action Accept_Activation
002d 0092 079f | | Action Push_String_Extended,0x79f ; "UDP"
002f 029d 008b | | Declare_Subprogram INIT_0088,For_Outer_Call
0031 029d 009b | | Declare_Subprogram INIT_0098,For_Outer_Call
0033 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0034 00c7 | | Action Elaborate_Subprogram
0035 00da | | Load_Top At_Offset_2
0036 e002 | | Load 0x0,0x2
0037 e003 | | Load 0x0,0x3
0038 e004 | | Load 0x0,0x4
0039 e005 | | Load 0x0,0x5
003a e006 | | Load 0x0,0x6
003b e007 | | Load 0x0,0x7
003c e008 | | Load 0x0,0x8
003d e009 | | Load 0x0,0x9
003e a00a | | Store_Unchecked 0x0,0xa
003f 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0040 e00b | | Load 0x0,0xb
0041 480c |H | Short_Literal 0xc
0042 e211 | | Load 0x1,0x11
0043 020e | | Execute Module,Augment_Imports
0044 e211 | | Load 0x1,0x11
0045 020f | | Execute Module,Activate
0046 00da | | Load_Top At_Offset_2
0047 e002 | | Load 0x0,0x2
0048 e003 | | Load 0x0,0x3
0049 e005 | | Load 0x0,0x5
004a e004 | | Load 0x0,0x4
004b e006 | | Load 0x0,0x6
004c e007 | | Load 0x0,0x7
004d 4807 |H | Short_Literal 0x7
004e e212 | | Load 0x1,0x12
004f 020e | | Execute Module,Augment_Imports
0050 00db | | Load_Top At_Offset_3
0051 020f | | Execute Module,Activate
0052 BODY_0008:
0052 00bc | | Action Signal_Activated
0053 00bb | | Action Signal_Completion
0054 0000 0000 | | .BLANK 0000[0x4]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 0064 | d | .CONST 0x0064 ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0004 | | .CONST 0x0004 ; Number of locals
005b INIT_0058:
005b e002 | | Load 0x0,0x2
005c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
005d 02c7 | | Declare_Variable Any
005e 00d8 | | Load_Top At_Offset_0
005f 1c00 | | Execute_Immediate Run_Utility,0x0
0060 e003 | | Load 0x0,0x3
0061 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0062 029f 00ab | | Declare_Subprogram INIT_00a8,For_Call
0064 BODY_0058:
0064 e003 | | Load 0x0,0x3
0065 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0066 00db | | Load_Top At_Offset_3
0067 0120 | | Execute Any,Is_Value
0068 6803 |h | Jump_Zero 0x6c
0069 e002 | | Load 0x0,0x2
006a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
006b 7801 |x | Jump 0x6d
006c 00db | | Load_Top At_Offset_3
006d e003 | | Load 0x0,0x3
006e 1b16 | | Execute Package,Field_Read,Field_Number 0x16
006f e5ff | | Load 0x2,-0x1
0070 e002 | | Load 0x0,0x2
0071 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0072 c402 | | Store 0x2,0x2
0073 005a | Z | Store_Top Discrete,At_Offset_2
0074 4807 |H | Short_Literal 0x7
0075 0092 07a0 | | Action Push_String_Extended,0x7a0 ; "Transport.Open(\x22"
0077 e5ff | | Load 0x2,-0x1
0078 01cc | | Execute Vector,Catenate
0079 0092 07a1 | | Action Push_String_Extended,0x7a1 ; "\x22)"
007b 01cc | | Execute Vector,Catenate
007c 00db | | Load_Top At_Offset_3
007d e005 | | Load 0x0,0x5
007e 1816 | | Execute Package,Field_Execute,Field_Number 0x16
007f 8404 | | Call 0x2,0x4
0080 0831 | 1 | Execute_Immediate Raise,0x31
0081 0000 0000 | | .XXX[0x3]
0083 0000 | |
0084 5544 502f |UDP/| .LITERAL {0x5544502f, 0x49502020}
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b | | .CONST 0x008b ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0001 | | .CONST 0x0001 ; Number of locals
008b BODY_0088:
008b INIT_0088:
008b 00da | | Load_Top At_Offset_2
008c e003 | | Load 0x0,0x3
008d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
008e e5fe | | Load 0x2,-0x2
008f e003 | | Load 0x0,0x3
0090 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0091 01df | | Execute Vector,Equal
0092 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0093 0000 0000 | | .BLANK 0000[0x5]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b | | .CONST 0x009b ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0001 | | .CONST 0x0001 ; Number of locals
009b BODY_0098:
009b INIT_0098:
009b 00da | | Load_Top At_Offset_2
009c e003 | | Load 0x0,0x3
009d 1817 | | Execute Package,Field_Execute,Field_Number 0x17
009e e5fe | | Load 0x2,-0x2
009f e003 | | Load 0x0,0x3
00a0 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00a1 01df | | Execute Vector,Equal
00a2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00a3 0000 0000 | | .BLANK 0000[0x5]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ae | | .CONST 0x00ae ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0002 | | .CONST 0x0002 ; Number of locals
00ab INIT_00a8:
00ab e402 | | Load 0x2,0x2
00ac e002 | | Load 0x0,0x2
00ad 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
00ae BODY_00a8:
00ae e402 | | Load 0x2,0x2
00af e002 | | Load 0x0,0x2
00b0 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00b1 00d8 | | Load_Top At_Offset_0
00b2 00cb | | Action Pop_Block_With_Result
00b3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00b4 0000 0000 | | .BLANK 0000[0x4]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00d3 | | .CONST 0x00d3 ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 000f | | .CONST 0x000f ; Number of locals
00bb INIT_00b8:
00bb 4800 |H | Short_Literal 0x0
00bc 4801 |H | Short_Literal 0x1
00bd e001 | | Load 0x0,0x1
00be 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00bf 0334 | 4 | Declare_Variable Array,With_Constraint
00c0 4800 |H | Short_Literal 0x0
00c1 4800 |H | Short_Literal 0x0
00c2 00da | | Load_Top At_Offset_2
00c3 01d6 | | Execute Vector,Field_Write
00c4 4809 |H | Short_Literal 0x9
00c5 4801 |H | Short_Literal 0x1
00c6 00da | | Load_Top At_Offset_2
00c7 01d6 | | Execute Vector,Field_Write
00c8 0129 | ) | Execute Any,Make_Visible
00c9 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
00cb 00bf | | Action Accept_Activation
00cc e002 | | Load 0x0,0x2
00cd 0092 07a2 | | Action Push_String_Extended,0x7a2 ; ".Discard"
00cf 01cc | | Execute Vector,Catenate
00d0 0007 | | Action Break_Optional
00d1 1d0e | | Execute_Immediate Reference_Lex_1,0xe
00d2 00c7 | | Action Elaborate_Subprogram
00d3 BODY_00b8:
00d3 00bc | | Action Signal_Activated
00d4 00bb | | Action Signal_Completion
00d5 0000 0000 | | .XXX[0x3]
00d7 0000 | |
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 0103 | | .CONST 0x0103 ; Address of begin
00d9 0146 | F | .CONST 0x0146 ; Address of exception handler
00da 000a | | .CONST 0x000a ; Number of locals
00db INIT_00d8:
00db e20f | | Load 0x1,0xf
00dc 0092 07a3 | | Action Push_String_Extended,0x7a3 ; ".Client"
00de 01cc | | Execute Vector,Catenate
00df 0007 | | Action Break_Optional
00e0 e003 | | Load 0x0,0x3
00e1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00e2 02c7 | | Declare_Variable Any
00e3 00d8 | | Load_Top At_Offset_0
00e4 1c00 | | Execute_Immediate Run_Utility,0x0
00e5 e004 | | Load 0x0,0x4
00e6 1b19 | | Execute Package,Field_Read,Field_Number 0x19
00e7 e005 | | Load 0x0,0x5
00e8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00e9 e5fe | | Load 0x2,-0x2
00ea e005 | | Load 0x0,0x5
00eb 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00ec 4801 |H | Short_Literal 0x1
00ed 00d9 | | Load_Top At_Offset_1
00ee 01db | | Execute Vector,Length
00ef 00d8 | | Load_Top At_Offset_0
00f0 00e2 | | Load_Encached Integer_Cache
00f1 0260 | ` | Execute Discrete,In_Type
00f2 7001 |p | Jump_Nonzero 0xf4
00f3 0801 | | Execute_Immediate Raise,0x1
00f4 e006 | | Load 0x0,0x6
00f5 035b | [ | Declare_Type Array,Constrained
00f6 0337 | 7 | Declare_Variable Array
00f7 00d9 | | Load_Top At_Offset_1
00f8 00d9 | | Load_Top At_Offset_1
00f9 01d4 | | Execute Vector,Structure_Write
00fa 00e3 | | Load_Encached Natural_Cache
00fb 03e9 | | Declare_Variable Discrete,Duplicate
00fc e007 | | Load 0x0,0x7
00fd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00fe 02c7 | | Declare_Variable Any
00ff 00d8 | | Load_Top At_Offset_0
0100 1c00 | | Execute_Immediate Run_Utility,0x0
0101 029f 0153 | S| Declare_Subprogram INIT_0150,For_Call
0103 BODY_00d8:
0103 e008 | | Load 0x0,0x8
0104 180e | | Execute Package,Field_Execute,Field_Number 0xe
0105 4802 |H | Short_Literal 0x2
0106 e402 | | Load 0x2,0x2
0107 e005 | | Load 0x0,0x5
0108 180d | | Execute Package,Field_Execute,Field_Number 0xd
0109 e004 | | Load 0x0,0x4
010a 1b19 | | Execute Package,Field_Read,Field_Number 0x19
010b e403 | | Load 0x2,0x3
010c 0120 | | Execute Any,Is_Value
010d 6803 |h | Jump_Zero 0x111
010e e003 | | Load 0x0,0x3
010f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0110 7801 |x | Jump 0x112
0111 e403 | | Load 0x2,0x3
0112 e004 | | Load 0x0,0x4
0113 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0114 e005 | | Load 0x0,0x5
0115 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0116 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0117 e003 | | Load 0x0,0x3
0118 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0119 c403 | | Store 0x2,0x3
011a c404 | | Store 0x2,0x4
011b 4807 |H | Short_Literal 0x7
011c e402 | | Load 0x2,0x2
011d 0092 07a4 | | Action Push_String_Extended,0x7a4 ; ":Transport.Open"
011f 01cc | | Execute Vector,Catenate
0120 e404 | | Load 0x2,0x4
0121 e005 | | Load 0x0,0x5
0122 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0123 e004 | | Load 0x0,0x4
0124 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0125 6026 |`& | Indirect_Literal Discrete,0x14c,{0x00007fff, 0xffffffff}
0126 e5fc | | Load 0x2,-0x4
0127 e5ff | | Load 0x2,-0x1
0128 e403 | | Load 0x2,0x3
0129 e003 | | Load 0x0,0x3
012a 181c | | Execute Package,Field_Execute,Field_Number 0x1c
012b c404 | | Store 0x2,0x4
012c 4807 |H | Short_Literal 0x7
012d e402 | | Load 0x2,0x2
012e 0092 07a5 | | Action Push_String_Extended,0x7a5 ; ":Transport.Connect"
0130 01cc | | Execute Vector,Catenate
0131 e404 | | Load 0x2,0x4
0132 e005 | | Load 0x0,0x5
0133 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0134 840a | | Call 0x2,0xa
0135 00cf | | Action Mark_Auxiliary
0136 e5fd | | Load 0x2,-0x3
0137 4802 |H | Short_Literal 0x2
0138 0263 | c | Execute Discrete,Above_Bound
0139 7007 |p | Jump_Nonzero 0x141
013a e005 | | Load 0x0,0x5
013b 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
013c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
013d 00ba | | Action Initiate_Delay
013e 840a | | Call 0x2,0xa
013f 00c8 | | Action Pop_Auxiliary_Range
0140 3ff9 |? | Loop_Increasing 0x13a
0141 00ce | | Action Pop_Auxiliary
0142 e403 | | Load 0x2,0x3
0143 e003 | | Load 0x0,0x3
0144 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0145 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0146 TRAP_00d8:
0146 0007 | | Action Break_Optional
0147 e403 | | Load 0x2,0x3
0148 e003 | | Load 0x0,0x3
0149 181b | | Execute Package,Field_Execute,Field_Number 0x1b
014a 00d8 | | Load_Top At_Offset_0
014b 0101 | | Execute Exception,Reraise
014c 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153 | S | .CONST 0x0153 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0001 | | .CONST 0x0001 ; Number of locals
0153 BODY_0150:
0153 INIT_0150:
0153 e007 | | Load 0x0,0x7
0154 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0155 c409 | | Store 0x2,0x9
0156 00e3 | | Load_Encached Natural_Cache
0157 e004 | | Load 0x0,0x4
0158 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0159 4800 |H | Short_Literal 0x0
015a 67f1 |g | Indirect_Literal Discrete,0x14c,{0x00007fff, 0xffffffff}
015b e406 | | Load 0x2,0x6
015c e403 | | Load 0x2,0x3
015d e003 | | Load 0x0,0x3
015e 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
015f c404 | | Store 0x2,0x4
0160 c408 | | Store 0x2,0x8
0161 00cf | | Action Mark_Auxiliary
0162 7820 |x | Jump 0x183
0163 4807 |H | Short_Literal 0x7
0164 0092 07a6 | | Action Push_String_Extended,0x7a6 ; "Transport.Transmit"
0166 e404 | | Load 0x2,0x4
0167 e005 | | Load 0x0,0x5
0168 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0169 00e3 | | Load_Encached Natural_Cache
016a e004 | | Load 0x0,0x4
016b 1b19 | | Execute Package,Field_Read,Field_Number 0x19
016c 4800 |H | Short_Literal 0x0
016d 67de |g | Indirect_Literal Discrete,0x14c,{0x00007fff, 0xffffffff}
016e e408 | | Load 0x2,0x8
016f 0a01 | | Execute_Immediate Plus,0x1
0170 00d8 | | Load_Top At_Offset_0
0171 00e2 | | Load_Encached Integer_Cache
0172 0260 | ` | Execute Discrete,In_Type
0173 7001 |p | Jump_Nonzero 0x175
0174 0801 | | Execute_Immediate Raise,0x1
0175 e406 | | Load 0x2,0x6
0176 01dc | | Execute Vector,Last
0177 e406 | | Load 0x2,0x6
0178 01cf | | Execute Vector,Slice_Read
0179 e403 | | Load 0x2,0x3
017a e003 | | Load 0x0,0x3
017b 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
017c c404 | | Store 0x2,0x4
017d c407 | | Store 0x2,0x7
017e e408 | | Load 0x2,0x8
017f e407 | | Load 0x2,0x7
0180 0273 | s | Execute Discrete,Plus
0181 c408 | | Store 0x2,0x8
0182 00c9 | | Action Pop_Auxiliary_Loop
0183 e408 | | Load 0x2,0x8
0184 e406 | | Load 0x2,0x6
0185 01db | | Execute Vector,Length
0186 027c | | | Execute Discrete,Less
0187 77db |w | Jump_Nonzero 0x163
0188 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0189 0000 0000 | | .BLANK 0000[0x7]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 01b6 | | .CONST 0x01b6 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0012 | | .CONST 0x0012 ; Number of locals
0193 INIT_0190:
0193 4800 |H | Short_Literal 0x0
0194 4801 |H | Short_Literal 0x1
0195 e001 | | Load 0x0,0x1
0196 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0197 0334 | 4 | Declare_Variable Array,With_Constraint
0198 4800 |H | Short_Literal 0x0
0199 4800 |H | Short_Literal 0x0
019a 00da | | Load_Top At_Offset_2
019b 01d6 | | Execute Vector,Field_Write
019c 4807 |H | Short_Literal 0x7
019d 4801 |H | Short_Literal 0x1
019e 00da | | Load_Top At_Offset_2
019f 01d6 | | Execute Vector,Field_Write
01a0 0129 | ) | Execute Any,Make_Visible
01a1 60b6 |` | Indirect_Literal Discrete,0x258,{0x00000000, 0x00050000}
01a2 00e7 | | Load_Encached Duration_Cache
01a3 03f0 | | Declare_Variable Discrete,Visible,With_Value
01a4 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated
01a6 029a 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call,Visible,Unelaborated
01a8 029a 028b | | Declare_Subprogram INIT_0288,For_Outer_Call,Visible,Unelaborated
01aa 00bf | | Action Accept_Activation
01ab e002 | | Load 0x0,0x2
01ac 0092 07a7 | | Action Push_String_Extended,0x7a7 ; ".Echo"
01ae 01cc | | Execute Vector,Catenate
01af 0007 | | Action Break_Optional
01b0 1d0f | | Execute_Immediate Reference_Lex_1,0xf
01b1 00c7 | | Action Elaborate_Subprogram
01b2 1d11 | | Execute_Immediate Reference_Lex_1,0x11
01b3 00c7 | | Action Elaborate_Subprogram
01b4 1d10 | | Execute_Immediate Reference_Lex_1,0x10
01b5 00c7 | | Action Elaborate_Subprogram
01b6 BODY_0190:
01b6 00bc | | Action Signal_Activated
01b7 00bb | | Action Signal_Completion
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01fb | | .CONST 0x01fb ; Address of begin
01b9 0248 | H | .CONST 0x0248 ; Address of exception handler
01ba 0008 | | .CONST 0x0008 ; Number of locals
01bb INIT_01b8:
01bb e212 | | Load 0x1,0x12
01bc 0092 07a3 | | Action Push_String_Extended,0x7a3 ; ".Client"
01be 01cc | | Execute Vector,Catenate
01bf 0007 | | Action Break_Optional
01c0 e003 | | Load 0x0,0x3
01c1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01c2 02c7 | | Declare_Variable Any
01c3 00d8 | | Load_Top At_Offset_0
01c4 1c00 | | Execute_Immediate Run_Utility,0x0
01c5 e004 | | Load 0x0,0x4
01c6 1b19 | | Execute Package,Field_Read,Field_Number 0x19
01c7 4801 |H | Short_Literal 0x1
01c8 e5fe | | Load 0x2,-0x2
01c9 e005 | | Load 0x0,0x5
01ca 035b | [ | Declare_Type Array,Constrained
01cb 0337 | 7 | Declare_Variable Array
01cc e006 | | Load 0x0,0x6
01cd 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01ce e5fe | | Load 0x2,-0x2
01cf e006 | | Load 0x0,0x6
01d0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01d1 00d9 | | Load_Top At_Offset_1
01d2 01d4 | | Execute Vector,Structure_Write
01d3 e007 | | Load 0x0,0x7
01d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01d5 02c7 | | Declare_Variable Any
01d6 00d8 | | Load_Top At_Offset_0
01d7 1c00 | | Execute_Immediate Run_Utility,0x0
01d8 4800 |H | Short_Literal 0x0
01d9 0093 056b | k| push_full_address INIT_0568
01db 00f5 | | Load_Encached Unused21
01dc 037d | } | Declare_Type Task,Defined
01dd 036f | o | Declare_Variable Task
01de 00da | | Load_Top At_Offset_2
01df e005 | | Load 0x0,0x5
01e0 e004 | | Load 0x0,0x4
01e1 e006 | | Load 0x0,0x6
01e2 4803 |H | Short_Literal 0x3
01e3 4802 |H | Short_Literal 0x2
01e4 0099 | | Action Reference_Dynamic
01e5 e003 | | Load 0x0,0x3
01e6 4804 |H | Short_Literal 0x4
01e7 4802 |H | Short_Literal 0x2
01e8 0099 | | Action Reference_Dynamic
01e9 4806 |H | Short_Literal 0x6
01ea 4802 |H | Short_Literal 0x2
01eb 0099 | | Action Reference_Dynamic
01ec e007 | | Load 0x0,0x7
01ed e008 | | Load 0x0,0x8
01ee e402 | | Load 0x2,0x2
01ef e5ff | | Load 0x2,-0x1
01f0 e009 | | Load 0x0,0x9
01f1 e5fd | | Load 0x2,-0x3
01f2 e5fc | | Load 0x2,-0x4
01f3 e001 | | Load 0x0,0x1
01f4 e00a | | Load 0x0,0xa
01f5 4811 |H | Short_Literal 0x11
01f6 e407 | | Load 0x2,0x7
01f7 020e | | Execute Module,Augment_Imports
01f8 0007 | | Action Break_Optional
01f9 029f 035b | [| Declare_Subprogram INIT_0358,For_Call
01fb BODY_01b8:
01fb 00be | | Action Activate_Tasks
01fc e008 | | Load 0x0,0x8
01fd 180e | | Execute Package,Field_Execute,Field_Number 0xe
01fe 4802 |H | Short_Literal 0x2
01ff e402 | | Load 0x2,0x2
0200 0092 07a8 | | Action Push_String_Extended,0x7a8 ; " (Server = "
0202 01cc | | Execute Vector,Catenate
0203 e5ff | | Load 0x2,-0x1
0204 e006 | | Load 0x0,0x6
0205 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0206 01cc | | Execute Vector,Catenate
0207 0092 07a9 | | Action Push_String_Extended,0x7a9 ; ")"
0209 01cc | | Execute Vector,Catenate
020a e006 | | Load 0x0,0x6
020b 180d | | Execute Package,Field_Execute,Field_Number 0xd
020c e004 | | Load 0x0,0x4
020d 1b19 | | Execute Package,Field_Read,Field_Number 0x19
020e e403 | | Load 0x2,0x3
020f 0120 | | Execute Any,Is_Value
0210 6803 |h | Jump_Zero 0x214
0211 e003 | | Load 0x0,0x3
0212 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0213 7801 |x | Jump 0x215
0214 e403 | | Load 0x2,0x3
0215 e004 | | Load 0x0,0x4
0216 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0217 e006 | | Load 0x0,0x6
0218 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0219 1b0d | | Execute Package,Field_Read,Field_Number 0xd
021a e003 | | Load 0x0,0x3
021b 181a | | Execute Package,Field_Execute,Field_Number 0x1a
021c c403 | | Store 0x2,0x3
021d c404 | | Store 0x2,0x4
021e 4807 |H | Short_Literal 0x7
021f 0092 07aa | | Action Push_String_Extended,0x7aa ; "Transport.Open"
0221 e404 | | Load 0x2,0x4
0222 e006 | | Load 0x0,0x6
0223 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0224 e004 | | Load 0x0,0x4
0225 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0226 602d |`- | Indirect_Literal Discrete,0x254,{0x00007fff, 0xffffffff}
0227 e5fc | | Load 0x2,-0x4
0228 e5ff | | Load 0x2,-0x1
0229 e403 | | Load 0x2,0x3
022a e003 | | Load 0x0,0x3
022b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
022c c404 | | Store 0x2,0x4
022d 4807 |H | Short_Literal 0x7
022e 0092 07ab | | Action Push_String_Extended,0x7ab ; "Transport.Connect"
0230 e404 | | Load 0x2,0x4
0231 e006 | | Load 0x0,0x6
0232 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0233 8408 | | Call 0x2,0x8
0234 00cf | | Action Mark_Auxiliary
0235 e5fd | | Load 0x2,-0x3
0236 4802 |H | Short_Literal 0x2
0237 0263 | c | Execute Discrete,Above_Bound
0238 7007 |p | Jump_Nonzero 0x240
0239 e006 | | Load 0x0,0x6
023a 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
023b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
023c 00ba | | Action Initiate_Delay
023d 8408 | | Call 0x2,0x8
023e 00c8 | | Action Pop_Auxiliary_Range
023f 3ff9 |? | Loop_Increasing 0x239
0240 00ce | | Action Pop_Auxiliary
0241 4800 |H | Short_Literal 0x0
0242 00da | | Load_Top At_Offset_2
0243 170e | | Execute Task,Entry_Call,Field_Number 0xe
0244 e403 | | Load 0x2,0x3
0245 e003 | | Load 0x0,0x3
0246 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0247 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0248 TRAP_01b8:
0248 0007 | | Action Break_Optional
0249 00da | | Load_Top At_Offset_2
024a 0209 | | Execute Task,Abort
024b 0007 | | Action Break_Optional
024c e403 | | Load 0x2,0x3
024d e003 | | Load 0x0,0x3
024e 181b | | Execute Package,Field_Execute,Field_Number 0x1b
024f 00d8 | | Load_Top At_Offset_0
0250 0101 | | Execute Exception,Reraise
0251 0000 0000 | | .XXX[0x3]
0253 0000 | |
0254 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
0258 0000 0000 | | .LITERAL {0x00000000, 0x00050000}
025c 0000 0000 | | .BLANK 0000[0x4]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0277 | w | .CONST 0x0277 ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0007 | | .CONST 0x0007 ; Number of locals
0263 INIT_0260:
0263 e212 | | Load 0x1,0x12
0264 0092 07ac | | Action Push_String_Extended,0x7ac ; ".Server"
0266 01cc | | Execute Vector,Catenate
0267 0007 | | Action Break_Optional
0268 e003 | | Load 0x0,0x3
0269 1b0d | | Execute Package,Field_Read,Field_Number 0xd
026a 02c7 | | Declare_Variable Any
026b 00d8 | | Load_Top At_Offset_0
026c 1c00 | | Execute_Immediate Run_Utility,0x0
026d e004 | | Load 0x0,0x4
026e 1b19 | | Execute Package,Field_Read,Field_Number 0x19
026f 00e3 | | Load_Encached Natural_Cache
0270 4801 |H | Short_Literal 0x1
0271 6012 |` | Indirect_Literal Discrete,0x284,{0x00000000, 0x00002000}
0272 e005 | | Load 0x0,0x5
0273 035b | [ | Declare_Type Array,Constrained
0274 0337 | 7 | Declare_Variable Array
0275 029f 03a3 | | Declare_Subprogram INIT_03a0,For_Call
0277 BODY_0260:
0277 e008 | | Load 0x0,0x8
0278 180e | | Execute Package,Field_Execute,Field_Number 0xe
0279 4802 |H | Short_Literal 0x2
027a e402 | | Load 0x2,0x2
027b e006 | | Load 0x0,0x6
027c 180d | | Execute Package,Field_Execute,Field_Number 0xd
027d 00cf | | Action Mark_Auxiliary
027e 8407 | | Call 0x2,0x7
027f e403 | | Load 0x2,0x3
0280 e003 | | Load 0x0,0x3
0281 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0282 00c9 | | Action Pop_Auxiliary_Loop
0283 7ffa | | Jump 0x27e
0284 0000 0000 | | .LITERAL {0x00000000, 0x00002000}
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 02b7 | | .CONST 0x02b7 ; Address of begin
0289 0335 | 5 | .CONST 0x0335 ; Address of exception handler
028a 000c | | .CONST 0x000c ; Number of locals
028b INIT_0288:
028b e212 | | Load 0x1,0x12
028c 0092 07ad | | Action Push_String_Extended,0x7ad ; ".Find_Server"
028e 01cc | | Execute Vector,Catenate
028f 0007 | | Action Break_Optional
0290 e003 | | Load 0x0,0x3
0291 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0292 02c7 | | Declare_Variable Any
0293 00d8 | | Load_Top At_Offset_0
0294 1c00 | | Execute_Immediate Run_Utility,0x0
0295 e004 | | Load 0x0,0x4
0296 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0297 00e3 | | Load_Encached Natural_Cache
0298 4801 |H | Short_Literal 0x1
0299 e5ff | | Load 0x2,-0x1
029a e005 | | Load 0x0,0x5
029b 035b | [ | Declare_Type Array,Constrained
029c 0337 | 7 | Declare_Variable Array
029d 4801 |H | Short_Literal 0x1
029e 00d9 | | Load_Top At_Offset_1
029f 01db | | Execute Vector,Length
02a0 0a01 | | Execute_Immediate Plus,0x1
02a1 00d8 | | Load_Top At_Offset_0
02a2 00e2 | | Load_Encached Integer_Cache
02a3 0260 | ` | Execute Discrete,In_Type
02a4 7001 |p | Jump_Nonzero 0x2a6
02a5 0801 | | Execute_Immediate Raise,0x1
02a6 e005 | | Load 0x0,0x5
02a7 035b | [ | Declare_Type Array,Constrained
02a8 0337 | 7 | Declare_Variable Array
02a9 e006 | | Load 0x0,0x6
02aa 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
02ab 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02ac e003 | | Load 0x0,0x3
02ad 180f | | Execute Package,Field_Execute,Field_Number 0xf
02ae 800b | | Call 0x0,0xb
02af 029f 0453 | S| Declare_Subprogram INIT_0450,For_Call
02b1 029f 049b | | Declare_Subprogram INIT_0498,For_Call
02b3 029f 04db | | Declare_Subprogram INIT_04d8,For_Call
02b5 029f 0503 | | Declare_Subprogram INIT_0500,For_Call
02b7 BODY_0288:
02b7 e004 | | Load 0x0,0x4
02b8 1b19 | | Execute Package,Field_Read,Field_Number 0x19
02b9 e403 | | Load 0x2,0x3
02ba 0120 | | Execute Any,Is_Value
02bb 6803 |h | Jump_Zero 0x2bf
02bc e003 | | Load 0x0,0x3
02bd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02be 7801 |x | Jump 0x2c0
02bf e403 | | Load 0x2,0x3
02c0 e004 | | Load 0x0,0x4
02c1 1b16 | | Execute Package,Field_Read,Field_Number 0x16
02c2 e006 | | Load 0x0,0x6
02c3 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
02c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02c5 e003 | | Load 0x0,0x3
02c6 181a | | Execute Package,Field_Execute,Field_Number 0x1a
02c7 c403 | | Store 0x2,0x3
02c8 c404 | | Store 0x2,0x4
02c9 4807 |H | Short_Literal 0x7
02ca e402 | | Load 0x2,0x2
02cb 0092 07a4 | | Action Push_String_Extended,0x7a4 ; ":Transport.Open"
02cd 01cc | | Execute Vector,Catenate
02ce e404 | | Load 0x2,0x4
02cf e006 | | Load 0x0,0x6
02d0 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02d1 00cf | | Action Mark_Auxiliary
02d2 e5fe | | Load 0x2,-0x2
02d3 4801 |H | Short_Literal 0x1
02d4 0263 | c | Execute Discrete,Above_Bound
02d5 7047 |pG | Jump_Nonzero 0x31d
02d6 8409 | | Call 0x2,0x9
02d7 4807 |H | Short_Literal 0x7
02d8 e402 | | Load 0x2,0x2
02d9 0092 07a5 | | Action Push_String_Extended,0x7a5 ; ":Transport.Connect"
02db 01cc | | Execute Vector,Catenate
02dc e404 | | Load 0x2,0x4
02dd e006 | | Load 0x0,0x6
02de 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02df e006 | | Load 0x0,0x6
02e0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02e1 e406 | | Load 0x2,0x6
02e2 01db | | Execute Vector,Length
02e3 00d8 | | Load_Top At_Offset_0
02e4 00e3 | | Load_Encached Natural_Cache
02e5 0260 | ` | Execute Discrete,In_Type
02e6 7001 |p | Jump_Nonzero 0x2e8
02e7 0801 | | Execute_Immediate Raise,0x1
02e8 e006 | | Load 0x0,0x6
02e9 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02ea e406 | | Load 0x2,0x6
02eb 01d4 | | Execute Vector,Structure_Write
02ec 00e3 | | Load_Encached Natural_Cache
02ed e004 | | Load 0x0,0x4
02ee 1b19 | | Execute Package,Field_Read,Field_Number 0x19
02ef 4800 |H | Short_Literal 0x0
02f0 6063 |`c | Indirect_Literal Discrete,0x354,{0x00007fff, 0xffffffff}
02f1 e406 | | Load 0x2,0x6
02f2 e403 | | Load 0x2,0x3
02f3 e003 | | Load 0x0,0x3
02f4 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
02f5 c404 | | Store 0x2,0x4
02f6 c405 | | Store 0x2,0x5
02f7 4807 |H | Short_Literal 0x7
02f8 e402 | | Load 0x2,0x2
02f9 0092 07ae | | Action Push_String_Extended,0x7ae ; ":Transport.Transmit"
02fb 01cc | | Execute Vector,Catenate
02fc e404 | | Load 0x2,0x4
02fd e006 | | Load 0x0,0x6
02fe 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02ff 840a | | Call 0x2,0xa
0300 00cf | | Action Mark_Auxiliary
0301 840b | | Call 0x2,0xb
0302 4807 |H | Short_Literal 0x7
0303 e402 | | Load 0x2,0x2
0304 0092 07af | | Action Push_String_Extended,0x7af ; ":Transport.Receive"
0306 01cc | | Execute Vector,Catenate
0307 e404 | | Load 0x2,0x4
0308 e006 | | Load 0x0,0x6
0309 1816 | | Execute Package,Field_Execute,Field_Number 0x16
030a e5fd | | Load 0x2,-0x3
030b e403 | | Load 0x2,0x3
030c e003 | | Load 0x0,0x3
030d 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
030e 800c | | Call 0x0,0xc
030f 6808 |h | Jump_Zero 0x318
0310 4801 |H | Short_Literal 0x1
0311 e405 | | Load 0x2,0x5
0312 e407 | | Load 0x2,0x7
0313 01cf | | Execute Vector,Slice_Read
0314 e406 | | Load 0x2,0x6
0315 01df | | Execute Vector,Equal
0316 6801 |h | Jump_Zero 0x318
0317 840c | | Call 0x2,0xc
0318 00c9 | | Action Pop_Auxiliary_Loop
0319 7fe7 | | Jump 0x301
031a 00ce | | Action Pop_Auxiliary
031b 00c8 | | Action Pop_Auxiliary_Range
031c 3fb9 |? | Loop_Increasing 0x2d6
031d 00ce | | Action Pop_Auxiliary
031e e008 | | Load 0x0,0x8
031f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0320 4807 |H | Short_Literal 0x7
0321 e402 | | Load 0x2,0x2
0322 0092 07b0 | | Action Push_String_Extended,0x7b0 ; ": no response to"
0324 01cc | | Execute Vector,Catenate
0325 e5fe | | Load 0x2,-0x2
0326 00e0 | | Load_Encached Standard_Cache
0327 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0328 01cc | | Execute Vector,Catenate
0329 0092 07b1 | | Action Push_String_Extended,0x7b1 ; " datagrams transmitted to "
032b 01cc | | Execute Vector,Catenate
032c e408 | | Load 0x2,0x8
032d e006 | | Load 0x0,0x6
032e 181a | | Execute Package,Field_Execute,Field_Number 0x1a
032f 01cc | | Execute Vector,Catenate
0330 e006 | | Load 0x0,0x6
0331 180d | | Execute Package,Field_Execute,Field_Number 0xd
0332 e006 | | Load 0x0,0x6
0333 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0334 0257 | W | Execute Discrete,Raise
0335 TRAP_0288:
0335 e006 | | Load 0x0,0x6
0336 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0337 010f | | Execute Exception,Equal
0338 6805 |h | Jump_Zero 0x33e
0339 e403 | | Load 0x2,0x3
033a e003 | | Load 0x0,0x3
033b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
033c 00d8 | | Load_Top At_Offset_0
033d 0101 | | Execute Exception,Reraise
033e e403 | | Load 0x2,0x3
033f e003 | | Load 0x0,0x3
0340 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0341 e008 | | Load 0x0,0x8
0342 180e | | Execute Package,Field_Execute,Field_Number 0xe
0343 4808 |H | Short_Literal 0x8
0344 e402 | | Load 0x2,0x2
0345 0092 07b2 | | Action Push_String_Extended,0x7b2 ; " caught "
0347 01cc | | Execute Vector,Catenate
0348 4800 |H | Short_Literal 0x0
0349 4801 |H | Short_Literal 0x1
034a e00d | | Load 0x0,0xd
034b 1815 | | Execute Package,Field_Execute,Field_Number 0x15
034c 01cc | | Execute Vector,Catenate
034d e006 | | Load 0x0,0x6
034e 180d | | Execute Package,Field_Execute,Field_Number 0xd
034f 00d8 | | Load_Top At_Offset_0
0350 0101 | | Execute Exception,Reraise
0351 0000 0000 | | .XXX[0x3]
0353 0000 | |
0354 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 035d | ] | .CONST 0x035d ; Address of begin
0359 0004 | | .CONST 0x0004 ; Address of exception handler
035a 0003 | | .CONST 0x0003 ; Number of locals
035b INIT_0358:
035b 00e3 | | Load_Encached Natural_Cache
035c 03e9 | | Declare_Variable Discrete,Duplicate
035d BODY_0358:
035d 4800 |H | Short_Literal 0x0
035e e407 | | Load 0x2,0x7
035f 170d | | Execute Task,Entry_Call,Field_Number 0xd
0360 e007 | | Load 0x0,0x7
0361 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0362 c406 | | Store 0x2,0x6
0363 00e3 | | Load_Encached Natural_Cache
0364 e004 | | Load 0x0,0x4
0365 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0366 4800 |H | Short_Literal 0x0
0367 67ec |g | Indirect_Literal Discrete,0x354,{0x00007fff, 0xffffffff}
0368 e405 | | Load 0x2,0x5
0369 e403 | | Load 0x2,0x3
036a e003 | | Load 0x0,0x3
036b 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
036c c404 | | Store 0x2,0x4
036d 0059 | Y | Store_Top Discrete,At_Offset_1
036e 4807 |H | Short_Literal 0x7
036f e402 | | Load 0x2,0x2
0370 0092 07ae | | Action Push_String_Extended,0x7ae ; ":Transport.Transmit"
0372 01cc | | Execute Vector,Catenate
0373 e404 | | Load 0x2,0x4
0374 e006 | | Load 0x0,0x6
0375 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0376 00d8 | | Load_Top At_Offset_0
0377 e405 | | Load 0x2,0x5
0378 01db | | Execute Vector,Length
0379 027e | ~ | Execute Discrete,Not_Equal
037a 6824 |h$ | Jump_Zero 0x39f
037b e008 | | Load 0x0,0x8
037c 180e | | Execute Package,Field_Execute,Field_Number 0xe
037d 4807 |H | Short_Literal 0x7
037e e402 | | Load 0x2,0x2
037f 0092 07b3 | | Action Push_String_Extended,0x7b3 ; ":Transport.Transmitted"
0381 01cc | | Execute Vector,Catenate
0382 00db | | Load_Top At_Offset_3
0383 00e0 | | Load_Encached Standard_Cache
0384 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0385 01cc | | Execute Vector,Catenate
0386 0092 07b4 | | Action Push_String_Extended,0x7b4 ; " out of"
0388 01cc | | Execute Vector,Catenate
0389 e405 | | Load 0x2,0x5
038a 01db | | Execute Vector,Length
038b 00d8 | | Load_Top At_Offset_0
038c 00e2 | | Load_Encached Integer_Cache
038d 0260 | ` | Execute Discrete,In_Type
038e 7001 |p | Jump_Nonzero 0x390
038f 0801 | | Execute_Immediate Raise,0x1
0390 00e0 | | Load_Encached Standard_Cache
0391 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0392 01cc | | Execute Vector,Catenate
0393 0092 07b5 | | Action Push_String_Extended,0x7b5 ; " bytes to "
0395 01cc | | Execute Vector,Catenate
0396 e5ff | | Load 0x2,-0x1
0397 e006 | | Load 0x0,0x6
0398 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0399 01cc | | Execute Vector,Catenate
039a e006 | | Load 0x0,0x6
039b 180d | | Execute Package,Field_Execute,Field_Number 0xd
039c e006 | | Load 0x0,0x6
039d 1b17 | | Execute Package,Field_Read,Field_Number 0x17
039e 0257 | W | Execute Discrete,Raise
039f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03a3 | | .CONST 0x03a3 ; Address of begin
03a1 0431 | 1 | .CONST 0x0431 ; Address of exception handler
03a2 0001 | | .CONST 0x0001 ; Number of locals
03a3 BODY_03a0:
03a3 INIT_03a0:
03a3 e004 | | Load 0x0,0x4
03a4 1b19 | | Execute Package,Field_Read,Field_Number 0x19
03a5 e403 | | Load 0x2,0x3
03a6 0120 | | Execute Any,Is_Value
03a7 6803 |h | Jump_Zero 0x3ab
03a8 e003 | | Load 0x0,0x3
03a9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03aa 7801 |x | Jump 0x3ac
03ab e403 | | Load 0x2,0x3
03ac e5ff | | Load 0x2,-0x1
03ad e006 | | Load 0x0,0x6
03ae 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
03af 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03b0 e003 | | Load 0x0,0x3
03b1 181a | | Execute Package,Field_Execute,Field_Number 0x1a
03b2 c403 | | Store 0x2,0x3
03b3 c404 | | Store 0x2,0x4
03b4 e404 | | Load 0x2,0x4
03b5 0b0c | | Execute_Immediate Case_Compare,0xc
03b6 700a |p | Jump_Nonzero 0x3c1
03b7 0b10 | | Execute_Immediate Case_Compare,0x10
03b8 7008 |p | Jump_Nonzero 0x3c1
03b9 480e |H | Short_Literal 0xe
03ba 480f |H | Short_Literal 0xf
03bb 0262 | b | Execute Discrete,In_Range
03bc 7001 |p | Jump_Nonzero 0x3be
03bd 7813 |x | Jump 0x3d1
03be 608d |` | Indirect_Literal Discrete,0x44c,{0x00000000, 0x001e0000}
03bf 00ba | | Action Initiate_Delay
03c0 7810 |x | Jump 0x3d1
03c1 00d1 | | Pop_Control Pop_Count_1
03c2 e008 | | Load 0x0,0x8
03c3 180e | | Execute Package,Field_Execute,Field_Number 0xe
03c4 4805 |H | Short_Literal 0x5
03c5 e402 | | Load 0x2,0x2
03c6 0092 07b6 | | Action Push_String_Extended,0x7b6 ; ":Transport.Open.Status = "
03c8 01cc | | Execute Vector,Catenate
03c9 e404 | | Load 0x2,0x4
03ca e004 | | Load 0x0,0x4
03cb 181a | | Execute Package,Field_Execute,Field_Number 0x1a
03cc 01cc | | Execute Vector,Catenate
03cd e006 | | Load 0x0,0x6
03ce 180d | | Execute Package,Field_Execute,Field_Number 0xd
03cf 00cc | | Action Pop_Block
03d0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03d1 4806 |H | Short_Literal 0x6
03d2 e402 | | Load 0x2,0x2
03d3 0092 07a4 | | Action Push_String_Extended,0x7a4 ; ":Transport.Open"
03d5 01cc | | Execute Vector,Catenate
03d6 e404 | | Load 0x2,0x4
03d7 e006 | | Load 0x0,0x6
03d8 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03d9 e004 | | Load 0x0,0x4
03da 1b19 | | Execute Package,Field_Read,Field_Number 0x19
03db 606c |`l | Indirect_Literal Discrete,0x448,{0x00007fff, 0xffffffff}
03dc e403 | | Load 0x2,0x3
03dd e003 | | Load 0x0,0x3
03de 181d | | Execute Package,Field_Execute,Field_Number 0x1d
03df c404 | | Store 0x2,0x4
03e0 e404 | | Load 0x2,0x4
03e1 0b0c | | Execute_Immediate Case_Compare,0xc
03e2 700a |p | Jump_Nonzero 0x3ed
03e3 0b10 | | Execute_Immediate Case_Compare,0x10
03e4 7008 |p | Jump_Nonzero 0x3ed
03e5 480e |H | Short_Literal 0xe
03e6 480f |H | Short_Literal 0xf
03e7 0262 | b | Execute Discrete,In_Range
03e8 7001 |p | Jump_Nonzero 0x3ea
03e9 7813 |x | Jump 0x3fd
03ea 6061 |`a | Indirect_Literal Discrete,0x44c,{0x00000000, 0x001e0000}
03eb 00ba | | Action Initiate_Delay
03ec 7810 |x | Jump 0x3fd
03ed 00d1 | | Pop_Control Pop_Count_1
03ee e008 | | Load 0x0,0x8
03ef 180e | | Execute Package,Field_Execute,Field_Number 0xe
03f0 4805 |H | Short_Literal 0x5
03f1 e402 | | Load 0x2,0x2
03f2 0092 07b7 | | Action Push_String_Extended,0x7b7 ; ":Transport.Connect = "
03f4 01cc | | Execute Vector,Catenate
03f5 e404 | | Load 0x2,0x4
03f6 e004 | | Load 0x0,0x4
03f7 181a | | Execute Package,Field_Execute,Field_Number 0x1a
03f8 01cc | | Execute Vector,Catenate
03f9 e006 | | Load 0x0,0x6
03fa 180d | | Execute Package,Field_Execute,Field_Number 0xd
03fb 00cc | | Action Pop_Block
03fc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03fd 4806 |H | Short_Literal 0x6
03fe e402 | | Load 0x2,0x2
03ff 0092 07a5 | | Action Push_String_Extended,0x7a5 ; ":Transport.Connect"
0401 01cc | | Execute Vector,Catenate
0402 e404 | | Load 0x2,0x4
0403 e006 | | Load 0x0,0x6
0404 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0405 00cf | | Action Mark_Auxiliary
0406 00e3 | | Load_Encached Natural_Cache
0407 e406 | | Load 0x2,0x6
0408 e004 | | Load 0x0,0x4
0409 1b19 | | Execute Package,Field_Read,Field_Number 0x19
040a 603d |`= | Indirect_Literal Discrete,0x448,{0x00007fff, 0xffffffff}
040b e403 | | Load 0x2,0x3
040c e003 | | Load 0x0,0x3
040d 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
040e c404 | | Store 0x2,0x4
040f 00d1 | | Pop_Control Pop_Count_1
0410 c405 | | Store 0x2,0x5
0411 4806 |H | Short_Literal 0x6
0412 e402 | | Load 0x2,0x2
0413 0092 07af | | Action Push_String_Extended,0x7af ; ":Transport.Receive"
0415 01cc | | Execute Vector,Catenate
0416 e404 | | Load 0x2,0x4
0417 e006 | | Load 0x0,0x6
0418 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0419 00e3 | | Load_Encached Natural_Cache
041a e004 | | Load 0x0,0x4
041b 1b19 | | Execute Package,Field_Read,Field_Number 0x19
041c 4800 |H | Short_Literal 0x0
041d 602a |`* | Indirect_Literal Discrete,0x448,{0x00007fff, 0xffffffff}
041e 4801 |H | Short_Literal 0x1
041f e405 | | Load 0x2,0x5
0420 e406 | | Load 0x2,0x6
0421 01cf | | Execute Vector,Slice_Read
0422 e403 | | Load 0x2,0x3
0423 e003 | | Load 0x0,0x3
0424 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0425 c404 | | Store 0x2,0x4
0426 c405 | | Store 0x2,0x5
0427 4806 |H | Short_Literal 0x6
0428 e402 | | Load 0x2,0x2
0429 0092 07ae | | Action Push_String_Extended,0x7ae ; ":Transport.Transmit"
042b 01cc | | Execute Vector,Catenate
042c e404 | | Load 0x2,0x4
042d e006 | | Load 0x0,0x6
042e 1816 | | Execute Package,Field_Execute,Field_Number 0x16
042f 00c9 | | Action Pop_Auxiliary_Loop
0430 7fd5 | | Jump 0x406
0431 TRAP_03a0:
0431 e006 | | Load 0x0,0x6
0432 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0433 010f | | Execute Exception,Equal
0434 6801 |h | Jump_Zero 0x436
0435 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0436 e008 | | Load 0x0,0x8
0437 180e | | Execute Package,Field_Execute,Field_Number 0xe
0438 4808 |H | Short_Literal 0x8
0439 e402 | | Load 0x2,0x2
043a 0092 07b2 | | Action Push_String_Extended,0x7b2 ; " caught "
043c 01cc | | Execute Vector,Catenate
043d 4801 |H | Short_Literal 0x1
043e 4801 |H | Short_Literal 0x1
043f e00d | | Load 0x0,0xd
0440 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0441 01cc | | Execute Vector,Catenate
0442 e006 | | Load 0x0,0x6
0443 180d | | Execute Package,Field_Execute,Field_Number 0xd
0444 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0445 0000 0000 | | .XXX[0x3]
0447 0000 | |
0448 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
044c 0000 0000 | | .LITERAL {0x00000000, 0x001e0000}
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0455 | U | .CONST 0x0455 ; Address of begin
0451 045f | _ | .CONST 0x045f ; Address of exception handler
0452 0002 | | .CONST 0x0002 ; Number of locals
0453 INIT_0450:
0453 029f 053b | ;| Declare_Subprogram INIT_0538,For_Call
0455 BODY_0450:
0455 e004 | | Load 0x0,0x4
0456 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0457 67f0 |g | Indirect_Literal Discrete,0x448,{0x00007fff, 0xffffffff}
0458 e5fd | | Load 0x2,-0x3
0459 e408 | | Load 0x2,0x8
045a e403 | | Load 0x2,0x3
045b e003 | | Load 0x0,0x3
045c 181c | | Execute Package,Field_Execute,Field_Number 0x1c
045d c404 | | Store 0x2,0x4
045e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
045f TRAP_0450:
045f 0007 | | Action Break_Optional
0460 e008 | | Load 0x0,0x8
0461 180e | | Execute Package,Field_Execute,Field_Number 0xe
0462 4806 |H | Short_Literal 0x6
0463 e402 | | Load 0x2,0x2
0464 0092 07b8 | | Action Push_String_Extended,0x7b8 ; ":Transport.Connect("
0466 01cc | | Execute Vector,Catenate
0467 e408 | | Load 0x2,0x8
0468 e006 | | Load 0x0,0x6
0469 181a | | Execute Package,Field_Execute,Field_Number 0x1a
046a 01cc | | Execute Vector,Catenate
046b 0092 07b9 | | Action Push_String_Extended,0x7b9 ; ") propagated "
046d 01cc | | Execute Vector,Catenate
046e 4800 |H | Short_Literal 0x0
046f 4801 |H | Short_Literal 0x1
0470 e00d | | Load 0x0,0xd
0471 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0472 01cc | | Execute Vector,Catenate
0473 e006 | | Load 0x0,0x6
0474 180d | | Execute Package,Field_Execute,Field_Number 0xd
0475 e403 | | Load 0x2,0x3
0476 e003 | | Load 0x0,0x3
0477 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0478 e004 | | Load 0x0,0x4
0479 1b19 | | Execute Package,Field_Read,Field_Number 0x19
047a e403 | | Load 0x2,0x3
047b 0120 | | Execute Any,Is_Value
047c 6803 |h | Jump_Zero 0x480
047d e003 | | Load 0x0,0x3
047e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
047f 7801 |x | Jump 0x481
0480 e403 | | Load 0x2,0x3
0481 e004 | | Load 0x0,0x4
0482 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0483 e006 | | Load 0x0,0x6
0484 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0485 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0486 e003 | | Load 0x0,0x3
0487 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0488 c403 | | Store 0x2,0x3
0489 c404 | | Store 0x2,0x4
048a 4807 |H | Short_Literal 0x7
048b e402 | | Load 0x2,0x2
048c 0092 07a4 | | Action Push_String_Extended,0x7a4 ; ":Transport.Open"
048e 01cc | | Execute Vector,Catenate
048f e404 | | Load 0x2,0x4
0490 e006 | | Load 0x0,0x6
0491 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0492 8602 | | Call 0x3,0x2
0493 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0494 0000 0000 | | .BLANK 0000[0x4]
0498 ; --------------------------------------------------------------------------------------
0498 ; SUBPROGRAM
0498 ; --------------------------------------------------------------------------------------
0498 049b | | .CONST 0x049b ; Address of begin
0499 04c1 | | .CONST 0x04c1 ; Address of exception handler
049a 0001 | | .CONST 0x0001 ; Number of locals
049b BODY_0498:
049b INIT_0498:
049b e405 | | Load 0x2,0x5
049c e406 | | Load 0x2,0x6
049d 01db | | Execute Vector,Length
049e 027c | | | Execute Discrete,Less
049f 6820 |h | Jump_Zero 0x4c0
04a0 e008 | | Load 0x0,0x8
04a1 180e | | Execute Package,Field_Execute,Field_Number 0xe
04a2 4807 |H | Short_Literal 0x7
04a3 e402 | | Load 0x2,0x2
04a4 0092 07ba | | Action Push_String_Extended,0x7ba ; ":Transmitted only"
04a6 01cc | | Execute Vector,Catenate
04a7 e405 | | Load 0x2,0x5
04a8 00e0 | | Load_Encached Standard_Cache
04a9 1818 | | Execute Package,Field_Execute,Field_Number 0x18
04aa 01cc | | Execute Vector,Catenate
04ab 0092 07b4 | | Action Push_String_Extended,0x7b4 ; " out of"
04ad 01cc | | Execute Vector,Catenate
04ae e406 | | Load 0x2,0x6
04af 01db | | Execute Vector,Length
04b0 00d8 | | Load_Top At_Offset_0
04b1 00e2 | | Load_Encached Integer_Cache
04b2 0260 | ` | Execute Discrete,In_Type
04b3 7001 |p | Jump_Nonzero 0x4b5
04b4 0801 | | Execute_Immediate Raise,0x1
04b5 00e0 | | Load_Encached Standard_Cache
04b6 1818 | | Execute Package,Field_Execute,Field_Number 0x18
04b7 01cc | | Execute Vector,Catenate
04b8 0092 07bb | | Action Push_String_Extended,0x7bb ; " bytes"
04ba 01cc | | Execute Vector,Catenate
04bb e006 | | Load 0x0,0x6
04bc 180d | | Execute Package,Field_Execute,Field_Number 0xd
04bd e006 | | Load 0x0,0x6
04be 1b17 | | Execute Package,Field_Read,Field_Number 0x17
04bf 0257 | W | Execute Discrete,Raise
04c0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04c1 TRAP_0498:
04c1 0007 | | Action Break_Optional
04c2 e008 | | Load 0x0,0x8
04c3 180e | | Execute Package,Field_Execute,Field_Number 0xe
04c4 4807 |H | Short_Literal 0x7
04c5 e402 | | Load 0x2,0x2
04c6 0092 07bc | | Action Push_String_Extended,0x7bc ; ":Transport.Transmit.Count raised "
04c8 01cc | | Execute Vector,Catenate
04c9 4800 |H | Short_Literal 0x0
04ca 4801 |H | Short_Literal 0x1
04cb e00d | | Load 0x0,0xd
04cc 1815 | | Execute Package,Field_Execute,Field_Number 0x15
04cd 01cc | | Execute Vector,Catenate
04ce e006 | | Load 0x0,0x6
04cf 180d | | Execute Package,Field_Execute,Field_Number 0xd
04d0 e006 | | Load 0x0,0x6
04d1 1b17 | | Execute Package,Field_Read,Field_Number 0x17
04d2 0257 | W | Execute Discrete,Raise
04d3 0000 0000 | | .BLANK 0000[0x5]
04d8 ; --------------------------------------------------------------------------------------
04d8 ; SUBPROGRAM
04d8 ; --------------------------------------------------------------------------------------
04d8 04db | | .CONST 0x04db ; Address of begin
04d9 04ec | | .CONST 0x04ec ; Address of exception handler
04da 0001 | | .CONST 0x0001 ; Number of locals
04db BODY_04d8:
04db INIT_04d8:
04db 00e3 | | Load_Encached Natural_Cache
04dc e407 | | Load 0x2,0x7
04dd e004 | | Load 0x0,0x4
04de 1b19 | | Execute Package,Field_Read,Field_Number 0x19
04df e20e | | Load 0x1,0xe
04e0 e403 | | Load 0x2,0x3
04e1 e003 | | Load 0x0,0x3
04e2 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
04e3 c404 | | Store 0x2,0x4
04e4 00d1 | | Pop_Control Pop_Count_1
04e5 c405 | | Store 0x2,0x5
04e6 e404 | | Load 0x2,0x4
04e7 0f07 | | Execute_Immediate Equal,0x7
04e8 6802 |h | Jump_Zero 0x4eb
04e9 00cc | | Action Pop_Block
04ea 7e2f |~/ | Jump 0x31a
04eb 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04ec TRAP_04d8:
04ec 0007 | | Action Break_Optional
04ed e008 | | Load 0x0,0x8
04ee 180e | | Execute Package,Field_Execute,Field_Number 0xe
04ef 4807 |H | Short_Literal 0x7
04f0 e402 | | Load 0x2,0x2
04f1 0092 07bd | | Action Push_String_Extended,0x7bd ; ":Transport.Receive propagated "
04f3 01cc | | Execute Vector,Catenate
04f4 4801 |H | Short_Literal 0x1
04f5 4801 |H | Short_Literal 0x1
04f6 e00d | | Load 0x0,0xd
04f7 1815 | | Execute Package,Field_Execute,Field_Number 0x15
04f8 01cc | | Execute Vector,Catenate
04f9 e006 | | Load 0x0,0x6
04fa 180d | | Execute Package,Field_Execute,Field_Number 0xd
04fb e006 | | Load 0x0,0x6
04fc 1b17 | | Execute Package,Field_Read,Field_Number 0x17
04fd 0257 | W | Execute Discrete,Raise
04fe 0000 0000 | | .XXX[0x2]
0500 ; --------------------------------------------------------------------------------------
0500 ; SUBPROGRAM
0500 ; --------------------------------------------------------------------------------------
0500 0506 | | .CONST 0x0506 ; Address of begin
0501 0004 | | .CONST 0x0004 ; Address of exception handler
0502 0002 | | .CONST 0x0002 ; Number of locals
0503 INIT_0500:
0503 e403 | | Load 0x2,0x3
0504 e003 | | Load 0x0,0x3
0505 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0506 BODY_0500:
0506 00d8 | | Load_Top At_Offset_0
0507 e006 | | Load 0x0,0x6
0508 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0509 01df | | Execute Vector,Equal
050a 7020 |p | Jump_Nonzero 0x52b
050b 00d8 | | Load_Top At_Offset_0
050c 4800 |H | Short_Literal 0x0
050d 4803 |H | Short_Literal 0x3
050e e001 | | Load 0x0,0x1
050f 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0510 0334 | 4 | Declare_Variable Array,With_Constraint
0511 487f |H | Short_Literal 0x7f
0512 4800 |H | Short_Literal 0x0
0513 00da | | Load_Top At_Offset_2
0514 01d6 | | Execute Vector,Field_Write
0515 4800 |H | Short_Literal 0x0
0516 4801 |H | Short_Literal 0x1
0517 00da | | Load_Top At_Offset_2
0518 01d6 | | Execute Vector,Field_Write
0519 4800 |H | Short_Literal 0x0
051a 4802 |H | Short_Literal 0x2
051b 00da | | Load_Top At_Offset_2
051c 01d6 | | Execute Vector,Field_Write
051d 4801 |H | Short_Literal 0x1
051e 4803 |H | Short_Literal 0x3
051f 00da | | Load_Top At_Offset_2
0520 01d6 | | Execute Vector,Field_Write
0521 01df | | Execute Vector,Equal
0522 7006 |p | Jump_Nonzero 0x529
0523 00d8 | | Load_Top At_Offset_0
0524 e403 | | Load 0x2,0x3
0525 e003 | | Load 0x0,0x3
0526 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0527 01df | | Execute Vector,Equal
0528 7803 |x | Jump 0x52c
0529 4801 |H | Short_Literal 0x1
052a 7801 |x | Jump 0x52c
052b 4801 |H | Short_Literal 0x1
052c 7006 |p | Jump_Nonzero 0x533
052d e403 | | Load 0x2,0x3
052e e003 | | Load 0x0,0x3
052f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0530 00d8 | | Load_Top At_Offset_0
0531 00cb | | Action Pop_Block_With_Result
0532 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0533 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0534 0000 0000 | | .BLANK 0000[0x4]
0538 ; --------------------------------------------------------------------------------------
0538 ; SUBPROGRAM
0538 ; --------------------------------------------------------------------------------------
0538 053b | ; | .CONST 0x053b ; Address of begin
0539 0545 | E | .CONST 0x0545 ; Address of exception handler
053a 0001 | | .CONST 0x0001 ; Number of locals
053b BODY_0538:
053b INIT_0538:
053b e004 | | Load 0x0,0x4
053c 1b19 | | Execute Package,Field_Read,Field_Number 0x19
053d 6022 |`" | Indirect_Literal Discrete,0x560,{0x00007fff, 0xffffffff}
053e e5fd | | Load 0x2,-0x3
053f e408 | | Load 0x2,0x8
0540 e403 | | Load 0x2,0x3
0541 e003 | | Load 0x0,0x3
0542 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0543 c404 | | Store 0x2,0x4
0544 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0545 TRAP_0538:
0545 0007 | | Action Break_Optional
0546 e008 | | Load 0x0,0x8
0547 180e | | Execute Package,Field_Execute,Field_Number 0xe
0548 4807 |H | Short_Literal 0x7
0549 e402 | | Load 0x2,0x2
054a 0092 07b8 | | Action Push_String_Extended,0x7b8 ; ":Transport.Connect("
054c 01cc | | Execute Vector,Catenate
054d e408 | | Load 0x2,0x8
054e e006 | | Load 0x0,0x6
054f 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0550 01cc | | Execute Vector,Catenate
0551 0092 07b9 | | Action Push_String_Extended,0x7b9 ; ") propagated "
0553 01cc | | Execute Vector,Catenate
0554 4801 |H | Short_Literal 0x1
0555 4801 |H | Short_Literal 0x1
0556 e00d | | Load 0x0,0xd
0557 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0558 01cc | | Execute Vector,Catenate
0559 e006 | | Load 0x0,0x6
055a 180d | | Execute Package,Field_Execute,Field_Number 0xd
055b e006 | | Load 0x0,0x6
055c 1b17 | | Execute Package,Field_Read,Field_Number 0x17
055d 0257 | W | Execute Discrete,Raise
055e 0000 0000 | | .XXX[0x2]
0560 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
0564 0000 0000 | | .BLANK 0000[0x4]
0568 ; --------------------------------------------------------------------------------------
0568 ; SUBPROGRAM
0568 ; --------------------------------------------------------------------------------------
0568 0592 | | .CONST 0x0592 ; Address of begin
0569 0004 | | .CONST 0x0004 ; Address of exception handler
056a 001a | | .CONST 0x001a ; Number of locals
056b INIT_0568:
056b 4800 |H | Short_Literal 0x0
056c 02cb | | Declare_Variable Entry
056d 4800 |H | Short_Literal 0x0
056e 02cb | | Declare_Variable Entry
056f 00bf | | Action Accept_Activation
0570 00e3 | | Load_Encached Natural_Cache
0571 00e3 | | Load_Encached Natural_Cache
0572 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0573 e001 | | Load 0x0,0x1
0574 01da | | Execute Vector,Bounds
0575 e002 | | Load 0x0,0x2
0576 035b | [ | Declare_Type Array,Constrained
0577 0337 | 7 | Declare_Variable Array
0578 00e7 | | Load_Encached Duration_Cache
0579 00e3 | | Load_Encached Natural_Cache
057a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
057b 00e3 | | Load_Encached Natural_Cache
057c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
057d 60ce |` | Indirect_Literal Discrete,0x64c,{0x00007fff, 0xffffffff}
057e 00e7 | | Load_Encached Duration_Cache
057f 03f1 | | Declare_Variable Discrete,With_Value
0580 00e7 | | Load_Encached Duration_Cache
0581 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0582 00e7 | | Load_Encached Duration_Cache
0583 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0584 029d 05a3 | | Declare_Subprogram INIT_05a0,For_Outer_Call
0586 029d 0653 | S| Declare_Subprogram INIT_0650,For_Outer_Call
0588 480e 48d8 |H H | Declare_Variable Select 0x000, 0x002,
058a 480d 48d9 |H H | [0x000]: 0x000 = 0x0000,
058c 4800 4800 |H H | [0x00d]: 0x0d9 = 0x06c8,
058e 4800 4802 |H H | [0x00e]: 0x0d8 = 0x06c0
0590 02cf | |
0591 00bc | | Action Signal_Activated
0592 BODY_0568:
0592 00cf | | Action Mark_Auxiliary
0593 00d9 | | Load_Top At_Offset_1
0594 013f | ? | Execute Select,Rendezvous
0595 4602 |F | Jump_Case 0x3
0596 7805 |x | Jump 0x59c ; case 0x0
0597 7801 |x | Jump 0x599 ; case 0x1
0598 7803 |x | Jump 0x59c ; case 0x2
0599 8218 | | Call 0x1,0x18
059a 00c9 | | Action Pop_Auxiliary_Loop
059b 7ff7 | | Jump 0x593
059c 00ce | | Action Pop_Auxiliary
059d 00bb | | Action Signal_Completion
059e 0000 0000 | | .XXX[0x2]
05a0 ; --------------------------------------------------------------------------------------
05a0 ; SUBPROGRAM
05a0 ; --------------------------------------------------------------------------------------
05a0 05a5 | | .CONST 0x05a5 ; Address of begin
05a1 0004 | | .CONST 0x0004 ; Address of exception handler
05a2 0002 | | .CONST 0x0002 ; Number of locals
05a3 INIT_05a0:
05a3 029f 0703 | | Declare_Subprogram INIT_0700,For_Call
05a5 BODY_05a0:
05a5 00cf | | Action Mark_Auxiliary
05a6 00e3 | | Load_Encached Natural_Cache
05a7 e211 | | Load 0x1,0x11
05a8 e003 | | Load 0x0,0x3
05a9 1b19 | | Execute Package,Field_Read,Field_Number 0x19
05aa e004 | | Load 0x0,0x4
05ab 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
05ac 1b11 | | Execute Package,Field_Read,Field_Number 0x11
05ad 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05ae e005 | | Load 0x0,0x5
05af e006 | | Load 0x0,0x6
05b0 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
05b1 c007 | | Store 0x0,0x7
05b2 00d1 | | Pop_Control Pop_Count_1
05b3 c210 | | Store 0x1,0x10
05b4 e008 | | Load 0x0,0x8
05b5 e009 | | Load 0x0,0x9
05b6 1812 | | Execute Package,Field_Execute,Field_Number 0x12
05b7 e009 | | Load 0x0,0x9
05b8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
05b9 a212 | | Store_Unchecked 0x1,0x12
05ba e007 | | Load 0x0,0x7
05bb 0f07 | | Execute_Immediate Equal,0x7
05bc 6811 |h | Jump_Zero 0x5ce
05bd e00a | | Load 0x0,0xa
05be 180e | | Execute Package,Field_Execute,Field_Number 0xe
05bf 4806 |H | Short_Literal 0x6
05c0 e00b | | Load 0x0,0xb
05c1 0092 07be | | Action Push_String_Extended,0x7be ; ":Transport.Receive.Status = "
05c3 01cc | | Execute Vector,Catenate
05c4 e007 | | Load 0x0,0x7
05c5 e003 | | Load 0x0,0x3
05c6 181a | | Execute Package,Field_Execute,Field_Number 0x1a
05c7 01cc | | Execute Vector,Catenate
05c8 e004 | | Load 0x0,0x4
05c9 180d | | Execute Package,Field_Execute,Field_Number 0xd
05ca e214 | | Load 0x1,0x14
05cb 0a01 | | Execute_Immediate Plus,0x1
05cc c214 | | Store 0x1,0x14
05cd 4501 |E | Exit_Suprogram New_Top_Offset 0x1
05ce 4807 |H | Short_Literal 0x7
05cf e00b | | Load 0x0,0xb
05d0 0092 07af | | Action Push_String_Extended,0x7af ; ":Transport.Receive"
05d2 01cc | | Execute Vector,Catenate
05d3 e007 | | Load 0x0,0x7
05d4 e004 | | Load 0x0,0x4
05d5 1816 | | Execute Package,Field_Execute,Field_Number 0x16
05d6 8402 | | Call 0x2,0x2
05d7 00c9 | | Action Pop_Auxiliary_Loop
05d8 7fcd | | Jump 0x5a6
05d9 00ce | | Action Pop_Auxiliary
05da e001 | | Load 0x0,0x1
05db 4801 |H | Short_Literal 0x1
05dc e210 | | Load 0x1,0x10
05dd 00d8 | | Load_Top At_Offset_0
05de 00e2 | | Load_Encached Integer_Cache
05df 0260 | ` | Execute Discrete,In_Type
05e0 7001 |p | Jump_Nonzero 0x5e2
05e1 0801 | | Execute_Immediate Raise,0x1
05e2 e211 | | Load 0x1,0x11
05e3 01cf | | Execute Vector,Slice_Read
05e4 01df | | Execute Vector,Equal
05e5 7050 |pP | Jump_Nonzero 0x636
05e6 e00a | | Load 0x0,0xa
05e7 180e | | Execute Package,Field_Execute,Field_Number 0xe
05e8 4807 |H | Short_Literal 0x7
05e9 e00c | | Load 0x0,0xc
05ea e004 | | Load 0x0,0x4
05eb 181a | | Execute Package,Field_Execute,Field_Number 0x1a
05ec 0092 07bf | | Action Push_String_Extended,0x7bf ; " echoed"
05ee 01cc | | Execute Vector,Catenate
05ef e004 | | Load 0x0,0x4
05f0 180d | | Execute Package,Field_Execute,Field_Number 0xd
05f1 e00a | | Load 0x0,0xa
05f2 180e | | Execute Package,Field_Execute,Field_Number 0xe
05f3 4807 |H | Short_Literal 0x7
05f4 4801 |H | Short_Literal 0x1
05f5 e210 | | Load 0x1,0x10
05f6 00d8 | | Load_Top At_Offset_0
05f7 00e2 | | Load_Encached Integer_Cache
05f8 0260 | ` | Execute Discrete,In_Type
05f9 7001 |p | Jump_Nonzero 0x5fb
05fa 0801 | | Execute_Immediate Raise,0x1
05fb e211 | | Load 0x1,0x11
05fc 01cf | | Execute Vector,Slice_Read
05fd e004 | | Load 0x0,0x4
05fe 1818 | | Execute Package,Field_Execute,Field_Number 0x18
05ff 0092 07c0 | | Action Push_String_Extended,0x7c0 ; ", not"
0601 01cc | | Execute Vector,Catenate
0602 e004 | | Load 0x0,0x4
0603 180d | | Execute Package,Field_Execute,Field_Number 0xd
0604 e00a | | Load 0x0,0xa
0605 180e | | Execute Package,Field_Execute,Field_Number 0xe
0606 4807 |H | Short_Literal 0x7
0607 e001 | | Load 0x0,0x1
0608 e004 | | Load 0x0,0x4
0609 1818 | | Execute Package,Field_Execute,Field_Number 0x18
060a e004 | | Load 0x0,0x4
060b 180d | | Execute Package,Field_Execute,Field_Number 0xd
060c e00a | | Load 0x0,0xa
060d 180e | | Execute Package,Field_Execute,Field_Number 0xe
060e 4807 |H | Short_Literal 0x7
060f 482c |H, | Short_Literal 0x2c
0610 482c |H, | Short_Literal 0x2c
0611 4820 |H | Short_Literal 0x20
0612 e00b | | Load 0x0,0xb
0613 01cb | | Execute Vector,Append
0614 e005 | | Load 0x0,0x5
0615 e006 | | Load 0x0,0x6
0616 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0617 e004 | | Load 0x0,0x4
0618 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0619 01cc | | Execute Vector,Catenate
061a 01cb | | Execute Vector,Append
061b e005 | | Load 0x0,0x5
061c e006 | | Load 0x0,0x6
061d 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
061e e004 | | Load 0x0,0x4
061f 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0620 01cc | | Execute Vector,Catenate
0621 0092 07c1 | | Action Push_String_Extended,0x7c1 ; "; Server "
0623 01cc | | Execute Vector,Catenate
0624 e005 | | Load 0x0,0x5
0625 e006 | | Load 0x0,0x6
0626 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0627 e004 | | Load 0x0,0x4
0628 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0629 01cc | | Execute Vector,Catenate
062a 01cb | | Execute Vector,Append
062b e005 | | Load 0x0,0x5
062c e006 | | Load 0x0,0x6
062d 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
062e e004 | | Load 0x0,0x4
062f 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0630 01cc | | Execute Vector,Catenate
0631 e004 | | Load 0x0,0x4
0632 180d | | Execute Package,Field_Execute,Field_Number 0xd
0633 e004 | | Load 0x0,0x4
0634 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0635 0257 | W | Execute Discrete,Raise
0636 e213 | | Load 0x1,0x13
0637 0a01 | | Execute_Immediate Plus,0x1
0638 c213 | | Store 0x1,0x13
0639 4800 |H | Short_Literal 0x0
063a a214 | | Store_Unchecked 0x1,0x14
063b e217 | | Load 0x1,0x17
063c e212 | | Load 0x1,0x12
063d 0273 | s | Execute Discrete,Plus
063e c217 | | Store 0x1,0x17
063f e215 | | Load 0x1,0x15
0640 e212 | | Load 0x1,0x12
0641 027d | } | Execute Discrete,Greater
0642 6802 |h | Jump_Zero 0x645
0643 e212 | | Load 0x1,0x12
0644 a215 | | Store_Unchecked 0x1,0x15
0645 e216 | | Load 0x1,0x16
0646 e212 | | Load 0x1,0x12
0647 027c | | | Execute Discrete,Less
0648 6802 |h | Jump_Zero 0x64b
0649 e212 | | Load 0x1,0x12
064a a216 | | Store_Unchecked 0x1,0x16
064b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
064c 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
0650 ; --------------------------------------------------------------------------------------
0650 ; SUBPROGRAM
0650 ; --------------------------------------------------------------------------------------
0650 0655 | U | .CONST 0x0655 ; Address of begin
0651 0004 | | .CONST 0x0004 ; Address of exception handler
0652 0002 | | .CONST 0x0002 ; Number of locals
0653 INIT_0650:
0653 029f 076b | k| Declare_Subprogram INIT_0768,For_Call
0655 BODY_0650:
0655 e213 | | Load 0x1,0x13
0656 0f01 | | Execute_Immediate Equal,0x1
0657 681d |h | Jump_Zero 0x675
0658 e00a | | Load 0x0,0xa
0659 180e | | Execute Package,Field_Execute,Field_Number 0xe
065a 4800 |H | Short_Literal 0x0
065b e00c | | Load 0x0,0xc
065c e004 | | Load 0x0,0x4
065d 181a | | Execute Package,Field_Execute,Field_Number 0x1a
065e 0092 07bf | | Action Push_String_Extended,0x7bf ; " echoed"
0660 01cc | | Execute Vector,Catenate
0661 e001 | | Load 0x0,0x1
0662 01db | | Execute Vector,Length
0663 00d8 | | Load_Top At_Offset_0
0664 00e2 | | Load_Encached Integer_Cache
0665 0260 | ` | Execute Discrete,In_Type
0666 7001 |p | Jump_Nonzero 0x668
0667 0801 | | Execute_Immediate Raise,0x1
0668 00e0 | | Load_Encached Standard_Cache
0669 1818 | | Execute Package,Field_Execute,Field_Number 0x18
066a 01cc | | Execute Vector,Catenate
066b 0092 07c2 | | Action Push_String_Extended,0x7c2 ; " bytes in "
066d 01cc | | Execute Vector,Catenate
066e e217 | | Load 0x1,0x17
066f e00d | | Load 0x0,0xd
0670 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0671 01cc | | Execute Vector,Catenate
0672 e004 | | Load 0x0,0x4
0673 180d | | Execute Package,Field_Execute,Field_Number 0xd
0674 783f |x? | Jump 0x6b4
0675 e213 | | Load 0x1,0x13
0676 0c02 | | Execute_Immediate Greater_Equal,0x2
0677 683c |h< | Jump_Zero 0x6b4
0678 e00a | | Load 0x0,0xa
0679 180e | | Execute Package,Field_Execute,Field_Number 0xe
067a 4800 |H | Short_Literal 0x0
067b e00c | | Load 0x0,0xc
067c e004 | | Load 0x0,0x4
067d 181a | | Execute Package,Field_Execute,Field_Number 0x1a
067e 0092 07bf | | Action Push_String_Extended,0x7bf ; " echoed"
0680 01cc | | Execute Vector,Catenate
0681 e213 | | Load 0x1,0x13
0682 00e0 | | Load_Encached Standard_Cache
0683 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0684 01cc | | Execute Vector,Catenate
0685 e001 | | Load 0x0,0x1
0686 01db | | Execute Vector,Length
0687 00d8 | | Load_Top At_Offset_0
0688 00e2 | | Load_Encached Integer_Cache
0689 0260 | ` | Execute Discrete,In_Type
068a 7001 |p | Jump_Nonzero 0x68c
068b 0801 | | Execute_Immediate Raise,0x1
068c 00e0 | | Load_Encached Standard_Cache
068d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
068e 01cc | | Execute Vector,Catenate
068f 0092 07c3 | | Action Push_String_Extended,0x7c3 ; "-byte packets in:"
0691 01cc | | Execute Vector,Catenate
0692 e004 | | Load 0x0,0x4
0693 180d | | Execute Package,Field_Execute,Field_Number 0xd
0694 e00a | | Load 0x0,0xa
0695 180e | | Execute Package,Field_Execute,Field_Number 0xe
0696 4800 |H | Short_Literal 0x0
0697 0092 07c4 | | Action Push_String_Extended,0x7c4 ; "average "
0699 e217 | | Load 0x1,0x17
069a e213 | | Load 0x1,0x13
069b 0270 | p | Execute Discrete,Divide
069c 00d8 | | Load_Top At_Offset_0
069d 00e7 | | Load_Encached Duration_Cache
069e 0260 | ` | Execute Discrete,In_Type
069f 7001 |p | Jump_Nonzero 0x6a1
06a0 0801 | | Execute_Immediate Raise,0x1
06a1 e00d | | Load 0x0,0xd
06a2 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
06a3 01cc | | Execute Vector,Catenate
06a4 0092 07c5 | | Action Push_String_Extended,0x7c5 ; ", minimum "
06a6 01cc | | Execute Vector,Catenate
06a7 e215 | | Load 0x1,0x15
06a8 e00d | | Load 0x0,0xd
06a9 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
06aa 01cc | | Execute Vector,Catenate
06ab 0092 07c6 | | Action Push_String_Extended,0x7c6 ; ", maximum "
06ad 01cc | | Execute Vector,Catenate
06ae e216 | | Load 0x1,0x16
06af e00d | | Load 0x0,0xd
06b0 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
06b1 01cc | | Execute Vector,Catenate
06b2 e004 | | Load 0x0,0x4
06b3 180d | | Execute Package,Field_Execute,Field_Number 0xd
06b4 e213 | | Load 0x1,0x13
06b5 e00e | | Load 0x0,0xe
06b6 027c | | | Execute Discrete,Less
06b7 6801 |h | Jump_Zero 0x6b9
06b8 8402 | | Call 0x2,0x2
06b9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06ba 0000 0000 | | .BLANK 0000[0x6]
06c0 ; --------------------------------------------------------------------------------------
06c0 ; SUBPROGRAM
06c0 ; See instruction 0x02cf at 0x588, index=0xe
06c0 ; --------------------------------------------------------------------------------------
06c0 06c3 | | .CONST 0x06c3 ; Address of begin
06c1 0004 | | .CONST 0x0004 ; Address of exception handler
06c2 0001 | | .CONST 0x0001 ; Number of locals
06c3 BODY_06c0:
06c3 INIT_06c0:
06c3 8219 | | Call 0x1,0x19
06c4 4100 |A | End_Rendezvous 0x0
06c5 0000 0000 | | .XXX[0x3]
06c7 0000 | |
06c8 ; --------------------------------------------------------------------------------------
06c8 ; SUBPROGRAM
06c8 ; See instruction 0x02cf at 0x588, index=0xd
06c8 ; --------------------------------------------------------------------------------------
06c8 06cb | | .CONST 0x06cb ; Address of begin
06c9 0004 | | .CONST 0x0004 ; Address of exception handler
06ca 0001 | | .CONST 0x0001 ; Number of locals
06cb BODY_06c8:
06cb INIT_06c8:
06cb e214 | | Load 0x1,0x14
06cc 0c0a | | Execute_Immediate Greater_Equal,0xa
06cd 681a |h | Jump_Zero 0x6e8
06ce e00a | | Load 0x0,0xa
06cf 180e | | Execute Package,Field_Execute,Field_Number 0xe
06d0 4807 |H | Short_Literal 0x7
06d1 e00b | | Load 0x0,0xb
06d2 0092 07c7 | | Action Push_String_Extended,0x7c7 ; ": "
06d4 01cc | | Execute Vector,Catenate
06d5 e00c | | Load 0x0,0xc
06d6 e004 | | Load 0x0,0x4
06d7 181a | | Execute Package,Field_Execute,Field_Number 0x1a
06d8 01cc | | Execute Vector,Catenate
06d9 0092 07c8 | | Action Push_String_Extended,0x7c8 ; " did not respond to"
06db 01cc | | Execute Vector,Catenate
06dc e214 | | Load 0x1,0x14
06dd 00e0 | | Load_Encached Standard_Cache
06de 1818 | | Execute Package,Field_Execute,Field_Number 0x18
06df 01cc | | Execute Vector,Catenate
06e0 0092 07c9 | | Action Push_String_Extended,0x7c9 ; " consecutive datagrams"
06e2 01cc | | Execute Vector,Catenate
06e3 e004 | | Load 0x0,0x4
06e4 180d | | Execute Package,Field_Execute,Field_Number 0xd
06e5 e004 | | Load 0x0,0x4
06e6 1b17 | | Execute Package,Field_Read,Field_Number 0x17
06e7 0257 | W | Execute Discrete,Raise
06e8 00cf | | Action Mark_Auxiliary
06e9 00e3 | | Load_Encached Natural_Cache
06ea e211 | | Load 0x1,0x11
06eb e003 | | Load 0x0,0x3
06ec 1b19 | | Execute Package,Field_Read,Field_Number 0x19
06ed 4800 |H | Short_Literal 0x0
06ee e005 | | Load 0x0,0x5
06ef e006 | | Load 0x0,0x6
06f0 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
06f1 c007 | | Store 0x0,0x7
06f2 00d1 | | Pop_Control Pop_Count_1
06f3 c210 | | Store 0x1,0x10
06f4 e007 | | Load 0x0,0x7
06f5 7002 |p | Jump_Nonzero 0x6f8
06f6 00c9 | | Action Pop_Auxiliary_Loop
06f7 7ff1 | | Jump 0x6e9
06f8 4100 |A | End_Rendezvous 0x0
06f9 0000 0000 | | .BLANK 0000[0x7]
0700 ; --------------------------------------------------------------------------------------
0700 ; SUBPROGRAM
0700 ; --------------------------------------------------------------------------------------
0700 070d | | .CONST 0x070d ; Address of begin
0701 0004 | | .CONST 0x0004 ; Address of exception handler
0702 0003 | | .CONST 0x0003 ; Number of locals
0703 INIT_0700:
0703 e005 | | Load 0x0,0x5
0704 e006 | | Load 0x0,0x6
0705 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0706 e003 | | Load 0x0,0x3
0707 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0708 e005 | | Load 0x0,0x5
0709 e006 | | Load 0x0,0x6
070a 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
070b e003 | | Load 0x0,0x3
070c 1817 | | Execute Package,Field_Execute,Field_Number 0x17
070d BODY_0700:
070d 00d8 | | Load_Top At_Offset_0
070e e00f | | Load 0x0,0xf
070f e003 | | Load 0x0,0x3
0710 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0711 01df | | Execute Vector,Equal
0712 6832 |h2 | Jump_Zero 0x745
0713 00d9 | | Load_Top At_Offset_1
0714 e00c | | Load 0x0,0xc
0715 e003 | | Load 0x0,0x3
0716 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0717 01df | | Execute Vector,Equal
0718 702a |p* | Jump_Nonzero 0x743
0719 00d9 | | Load_Top At_Offset_1
071a e004 | | Load 0x0,0x4
071b 1b15 | | Execute Package,Field_Read,Field_Number 0x15
071c 01df | | Execute Vector,Equal
071d 7018 |p | Jump_Nonzero 0x736
071e 00d9 | | Load_Top At_Offset_1
071f 4800 |H | Short_Literal 0x0
0720 4803 |H | Short_Literal 0x3
0721 e010 | | Load 0x0,0x10
0722 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0723 0334 | 4 | Declare_Variable Array,With_Constraint
0724 487f |H | Short_Literal 0x7f
0725 4800 |H | Short_Literal 0x0
0726 00da | | Load_Top At_Offset_2
0727 01d6 | | Execute Vector,Field_Write
0728 4800 |H | Short_Literal 0x0
0729 4801 |H | Short_Literal 0x1
072a 00da | | Load_Top At_Offset_2
072b 01d6 | | Execute Vector,Field_Write
072c 4800 |H | Short_Literal 0x0
072d 4802 |H | Short_Literal 0x2
072e 00da | | Load_Top At_Offset_2
072f 01d6 | | Execute Vector,Field_Write
0730 4801 |H | Short_Literal 0x1
0731 4803 |H | Short_Literal 0x3
0732 00da | | Load_Top At_Offset_2
0733 01d6 | | Execute Vector,Field_Write
0734 01df | | Execute Vector,Equal
0735 680f |h | Jump_Zero 0x745
0736 e00c | | Load 0x0,0xc
0737 e004 | | Load 0x0,0x4
0738 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0739 01df | | Execute Vector,Equal
073a 7008 |p | Jump_Nonzero 0x743
073b e00c | | Load 0x0,0xc
073c e004 | | Load 0x0,0x4
073d 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
073e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
073f e006 | | Load 0x0,0x6
0740 180f | | Execute Package,Field_Execute,Field_Number 0xf
0741 01df | | Execute Vector,Equal
0742 6802 |h | Jump_Zero 0x745
0743 00cc | | Action Pop_Block
0744 7e94 |~ | Jump 0x5d9
0745 e00a | | Load 0x0,0xa
0746 180e | | Execute Package,Field_Execute,Field_Number 0xe
0747 4806 |H | Short_Literal 0x6
0748 482c |H, | Short_Literal 0x2c
0749 482c |H, | Short_Literal 0x2c
074a 0092 07ca | | Action Push_String_Extended,0x7ca ; "received a datagram from "
074c e602 | | Load 0x3,0x2
074d e004 | | Load 0x0,0x4
074e 181a | | Execute Package,Field_Execute,Field_Number 0x1a
074f 01cc | | Execute Vector,Catenate
0750 01cb | | Execute Vector,Append
0751 e603 | | Load 0x3,0x3
0752 e004 | | Load 0x0,0x4
0753 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0754 01cc | | Execute Vector,Catenate
0755 0092 07cb | | Action Push_String_Extended,0x7cb ; "; not "
0757 01cc | | Execute Vector,Catenate
0758 e00c | | Load 0x0,0xc
0759 e004 | | Load 0x0,0x4
075a 181a | | Execute Package,Field_Execute,Field_Number 0x1a
075b 01cc | | Execute Vector,Catenate
075c 01cb | | Execute Vector,Append
075d e00f | | Load 0x0,0xf
075e e004 | | Load 0x0,0x4
075f 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0760 01cc | | Execute Vector,Catenate
0761 e011 | | Load 0x0,0x11
0762 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0763 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0764 0000 0000 | | .BLANK 0000[0x4]
0768 ; --------------------------------------------------------------------------------------
0768 ; SUBPROGRAM
0768 ; --------------------------------------------------------------------------------------
0768 0787 | | .CONST 0x0787 ; Address of begin
0769 0004 | | .CONST 0x0004 ; Address of exception handler
076a 0002 | | .CONST 0x0002 ; Number of locals
076b INIT_0768:
076b e00c | | Load 0x0,0xc
076c e004 | | Load 0x0,0x4
076d 181a | | Execute Package,Field_Execute,Field_Number 0x1a
076e 0092 07cc | | Action Push_String_Extended,0x7cc ; " echoed only"
0770 01cc | | Execute Vector,Catenate
0771 e213 | | Load 0x1,0x13
0772 00e0 | | Load_Encached Standard_Cache
0773 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0774 01cc | | Execute Vector,Catenate
0775 0092 07b4 | | Action Push_String_Extended,0x7b4 ; " out of"
0777 01cc | | Execute Vector,Catenate
0778 e00e | | Load 0x0,0xe
0779 00e0 | | Load_Encached Standard_Cache
077a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
077b 01cc | | Execute Vector,Catenate
077c 0092 07cd | | Action Push_String_Extended,0x7cd ; " "
077e 01cc | | Execute Vector,Catenate
077f e004 | | Load 0x0,0x4
0780 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0781 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0782 01cc | | Execute Vector,Catenate
0783 0092 07ce | | Action Push_String_Extended,0x7ce ; " datagrams correctly"
0785 01cc | | Execute Vector,Catenate
0786 0007 | | Action Break_Optional
0787 BODY_0768:
0787 e213 | | Load 0x1,0x13
0788 e00e | | Load 0x0,0xe
0789 4809 |H | Short_Literal 0x9
078a 0271 | q | Execute Discrete,Times
078b 480a |H | Short_Literal 0xa
078c 0270 | p | Execute Discrete,Divide
078d 027c | | | Execute Discrete,Less
078e 6809 |h | Jump_Zero 0x798
078f e00a | | Load 0x0,0xa
0790 180e | | Execute Package,Field_Execute,Field_Number 0xe
0791 4807 |H | Short_Literal 0x7
0792 00da | | Load_Top At_Offset_2
0793 e004 | | Load 0x0,0x4
0794 180d | | Execute Package,Field_Execute,Field_Number 0xd
0795 e004 | | Load 0x0,0x4
0796 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0797 0257 | W | Execute Discrete,Raise
0798 e00a | | Load 0x0,0xa
0799 180e | | Execute Package,Field_Execute,Field_Number 0xe
079a 4806 |H | Short_Literal 0x6
079b 00da | | Load_Top At_Offset_2
079c e004 | | Load 0x0,0x4
079d 180d | | Execute Package,Field_Execute,Field_Number 0xd
079e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
079f ; --------------------------------------------------------------------------------------
079f ; STRING TABLE
079f ; --------------------------------------------------------------------------------------
079f 0062 | b | .STRTAB 0x0062->0x07d0 ; "UDP"
07a0 0063 | c | .STRTAB 0x0063->0x07d1 ; "Transport.Open(\x22"
07a1 0071 | q | .STRTAB 0x0071->0x07d9 ; "\x22)"
07a2 0071 | q | .STRTAB 0x0071->0x07da ; ".Discard"
07a3 0077 | w | .STRTAB 0x0077->0x07de ; ".Client"
07a4 007c | | | .STRTAB 0x007c->0x07e2 ; ":Transport.Open"
07a5 0089 | | .STRTAB 0x0089->0x07e9 ; ":Transport.Connect"
07a6 0099 | | .STRTAB 0x0099->0x07f2 ; "Transport.Transmit"
07a7 00a9 | | .STRTAB 0x00a9->0x07fb ; ".Echo"
07a8 00ac | | .STRTAB 0x00ac->0x07fe ; " (Server = "
07a9 00b5 | | .STRTAB 0x00b5->0x0803 ; ")"
07aa 00b4 | | .STRTAB 0x00b4->0x0804 ; "Transport.Open"
07ab 00c0 | | .STRTAB 0x00c0->0x080b ; "Transport.Connect"
07ac 00cf | | .STRTAB 0x00cf->0x0813 ; ".Server"
07ad 00d4 | | .STRTAB 0x00d4->0x0817 ; ".Find_Server"
07ae 00de | | .STRTAB 0x00de->0x081d ; ":Transport.Transmit"
07af 00ef | | .STRTAB 0x00ef->0x0826 ; ":Transport.Receive"
07b0 00ff | | .STRTAB 0x00ff->0x082f ; ": no response to"
07b1 010d | | .STRTAB 0x010d->0x0837 ; " datagrams transmitted to "
07b2 0125 | % | .STRTAB 0x0125->0x0844 ; " caught "
07b3 012b | + | .STRTAB 0x012b->0x0848 ; ":Transport.Transmitted"
07b4 013f | ? | .STRTAB 0x013f->0x0853 ; " out of"
07b5 0144 | D | .STRTAB 0x0144->0x0857 ; " bytes to "
07b6 014c | L | .STRTAB 0x014c->0x085c ; ":Transport.Open.Status = "
07b7 0163 | c | .STRTAB 0x0163->0x0868 ; ":Transport.Connect = "
07b8 0176 | v | .STRTAB 0x0176->0x0873 ; ":Transport.Connect("
07b9 0187 | | .STRTAB 0x0187->0x087c ; ") propagated "
07ba 0192 | | .STRTAB 0x0192->0x0883 ; ":Transmitted only"
07bb 01a1 | | .STRTAB 0x01a1->0x088b ; " bytes"
07bc 01a5 | | .STRTAB 0x01a5->0x088e ; ":Transport.Transmit.Count raised "
07bd 01c4 | | .STRTAB 0x01c4->0x089f ; ":Transport.Receive propagated "
07be 01e0 | | .STRTAB 0x01e0->0x08ae ; ":Transport.Receive.Status = "
07bf 01fa | | .STRTAB 0x01fa->0x08bc ; " echoed"
07c0 01ff | | .STRTAB 0x01ff->0x08bf ; ", not"
07c1 0202 | | .STRTAB 0x0202->0x08c2 ; "; Server "
07c2 0209 | | .STRTAB 0x0209->0x08c6 ; " bytes in "
07c3 0211 | | .STRTAB 0x0211->0x08cb ; "-byte packets in:"
07c4 0220 | | .STRTAB 0x0220->0x08d4 ; "average "
07c5 0226 | & | .STRTAB 0x0226->0x08d8 ; ", minimum "
07c6 022e | . | .STRTAB 0x022e->0x08dd ; ", maximum "
07c7 0236 | 6 | .STRTAB 0x0236->0x08e2 ; ": "
07c8 0236 | 6 | .STRTAB 0x0236->0x08e3 ; " did not respond to"
07c9 0247 | G | .STRTAB 0x0247->0x08ec ; " consecutive datagrams"
07ca 025b | [ | .STRTAB 0x025b->0x08f7 ; "received a datagram from "
07cb 0272 | r | .STRTAB 0x0272->0x0904 ; "; not "
07cc 0276 | v | .STRTAB 0x0276->0x0907 ; " echoed only"
07cd 0280 | | .STRTAB 0x0280->0x090d ; " "
07ce 027f | | .STRTAB 0x027f->0x090d ; " datagrams correctly"
07cf 0291 | | .STREND 0x0291->0x0917
07d0 5544 5054 |UDPT| .STRTAB_STRINGS
0918 ; --------------------------------------------------------------------------------------
0918 ; Debug Table
0918 ; --------------------------------------------------------------------------------------
0918 0004 000d | | .DEBUG4 0x0004,0x000d,0x6df4,0x0000,0x0001,0x0000
091e 8080 8080 | | .BLANK 8080[0x5]
0923 81f0 2880 | ( | .XXX[0x6]
0925 8080 8080 | |
0927 8080 80b4 | |
0929 b4b4 b4b4 | | .BLANK b4b4[0x1f]
0948 b480 2880 | ( | .XXX[0x2b]
094a 8080 8080 | |
094c 8081 f080 | |
094e 8080 8081 | |
0950 3915 5080 |9 P |
0952 8080 8081 | |
0954 f080 8081 | |
0956 1955 3910 | U9 |
0958 b080 81f0 | |
095a 8105 b1b0 | |
095c 81d5 cd95 | |
095e c9cd f080 | |
0960 8080 8149 | I|
0962 85d1 a5bd | |
0964 b985 b080 | |
0966 8080 81f0 | |
0968 8080 80c4 | |
096a 8191 85e4 | |
096c 8080 81f0 | |
096e 2880 8080 |( |
0970 8080 8081 | |
0972 f080 | |
0973 8080 8080 | | .BLANK 8080[0x5]
0978 8081 f080 | | .XXX[0x7]
097a 8105 1158 | X|
097c 8151 3d40 | Q=@|
097e 81f0 | |
097f 8080 8080 | | .BLANK 8080[0x4]
0983 8081 f080 | | .XXX[0xa]
0985 8139 95d1 | 9 |
0987 ddbd c9ad | |
0989 a5b9 9cb0 | |
098b 80c8 81f0 | |
098d 8080 8080 | | .BLANK 8080[0x5]
0992 81f0 2880 | ( | .XXX[0x6]
0994 8080 8080 | |
0996 8081 f080 | |
0998 8080 8080 | | .BLANK 8080[0x5]
099d 8081 f080 | | .XXX[0x2]
099f 8080 8080 | | .BLANK 8080[0x4]
09a3 81f0 | | .XXX[0x1]
09a4 8080 8080 | | .BLANK 8080[0x4]
09a8 8081 f080 | | .XXX[0xa]
09aa 8080 8080 | |
09ac 81d9 bdb1 | |
09ae ccb8 8080 | |
09b0 8080 81f0 | |
09b2 8080 8080 | | .BLANK 8080[0x5]
09b7 81f0 2880 | ( | .XXX[0x6]
09b9 8080 8080 | |
09bb 8080 80b4 | |
09bd b4b4 b4b4 | | .BLANK b4b4[0x1f]
09dc b480 2880 | ( | .XXX[0x24]
09de 8080 8080 | |
09e0 8081 f080 | |
09e2 8080 8080 | |
09e4 8141 3480 | A4 |
09e6 8080 8081 | |
09e8 f080 8081 | |
09ea 1955 3910 | U9 |
09ec b080 81f0 | |
09ee 8111 95cd | |
09f0 a59d b995 | |
09f2 c9cd f080 | |
09f4 8080 8081 | |
09f6 41c9 bda9 |A |
09f8 958d d080 | |
09fa 8080 81f0 | |
09fc 8080 80cc | |
09fe 8191 85e5 | |