|
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 0880 | | .CONST 0x0880 ; 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 ; SUBPROGRAM
0008 ; See instruction 0x02cf at 0x776, index=0x0
0008 ; --------------------------------------------------------------------------------------
0008 007d | } | .CONST 0x007d ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001d | | .CONST 0x001d ; Number of locals
000b INIT_0008:
000b INIT_0008:
000b 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated
000d 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
000f 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated
0011 00bf | | Action Accept_Activation
0012 e001 | | Load 0x0,0x1
0013 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0014 e001 | | Load 0x0,0x1
0015 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0016 4800 |H | Short_Literal 0x0
0017 480f |H | Short_Literal 0xf
0018 00e8 | | Load_Encached Character_Cache
0019 02a0 | | Declare_Subprogram Null_Subprogram
001a 4801 |H | Short_Literal 0x1
001b 035d | ] | Declare_Type Array,Defined
001c 00d8 | | Load_Top At_Offset_0
001d 0337 | 7 | Declare_Variable Array
001e 00d8 | | Load_Top At_Offset_0
001f 0335 | 5 | Declare_Variable Array,Duplicate
0020 00cd | | Action Spare6_Action
0021 4830 |H0 | Short_Literal 0x30
0022 4800 |H | Short_Literal 0x0
0023 00da | | Load_Top At_Offset_2
0024 01d6 | | Execute Vector,Field_Write
0025 4831 |H1 | Short_Literal 0x31
0026 4801 |H | Short_Literal 0x1
0027 00da | | Load_Top At_Offset_2
0028 01d6 | | Execute Vector,Field_Write
0029 4832 |H2 | Short_Literal 0x32
002a 4802 |H | Short_Literal 0x2
002b 00da | | Load_Top At_Offset_2
002c 01d6 | | Execute Vector,Field_Write
002d 4833 |H3 | Short_Literal 0x33
002e 4803 |H | Short_Literal 0x3
002f 00da | | Load_Top At_Offset_2
0030 01d6 | | Execute Vector,Field_Write
0031 4834 |H4 | Short_Literal 0x34
0032 4804 |H | Short_Literal 0x4
0033 00da | | Load_Top At_Offset_2
0034 01d6 | | Execute Vector,Field_Write
0035 4835 |H5 | Short_Literal 0x35
0036 4805 |H | Short_Literal 0x5
0037 00da | | Load_Top At_Offset_2
0038 01d6 | | Execute Vector,Field_Write
0039 4836 |H6 | Short_Literal 0x36
003a 4806 |H | Short_Literal 0x6
003b 00da | | Load_Top At_Offset_2
003c 01d6 | | Execute Vector,Field_Write
003d 4837 |H7 | Short_Literal 0x37
003e 4807 |H | Short_Literal 0x7
003f 00da | | Load_Top At_Offset_2
0040 01d6 | | Execute Vector,Field_Write
0041 4838 |H8 | Short_Literal 0x38
0042 4808 |H | Short_Literal 0x8
0043 00da | | Load_Top At_Offset_2
0044 01d6 | | Execute Vector,Field_Write
0045 4839 |H9 | Short_Literal 0x39
0046 4809 |H | Short_Literal 0x9
0047 00da | | Load_Top At_Offset_2
0048 01d6 | | Execute Vector,Field_Write
0049 4841 |HA | Short_Literal 0x41
004a 480a |H | Short_Literal 0xa
004b 00da | | Load_Top At_Offset_2
004c 01d6 | | Execute Vector,Field_Write
004d 4842 |HB | Short_Literal 0x42
004e 480b |H | Short_Literal 0xb
004f 00da | | Load_Top At_Offset_2
0050 01d6 | | Execute Vector,Field_Write
0051 4843 |HC | Short_Literal 0x43
0052 480c |H | Short_Literal 0xc
0053 00da | | Load_Top At_Offset_2
0054 01d6 | | Execute Vector,Field_Write
0055 4844 |HD | Short_Literal 0x44
0056 480d |H | Short_Literal 0xd
0057 00da | | Load_Top At_Offset_2
0058 01d6 | | Execute Vector,Field_Write
0059 4845 |HE | Short_Literal 0x45
005a 480e |H | Short_Literal 0xe
005b 00da | | Load_Top At_Offset_2
005c 01d6 | | Execute Vector,Field_Write
005d 4846 |HF | Short_Literal 0x46
005e 480f |H | Short_Literal 0xf
005f 00da | | Load_Top At_Offset_2
0060 01d6 | | Execute Vector,Field_Write
0061 00d9 | | Load_Top At_Offset_1
0062 01d4 | | Execute Vector,Structure_Write
0063 029d 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call
0065 029d 011b | | Declare_Subprogram INIT_0118,For_Outer_Call
0067 029d 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call
0069 029d 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call
006b 029d 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call
006d 029d 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call
006f 029d 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call
0071 029d 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call
0073 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0074 00c7 | | Action Elaborate_Subprogram
0075 029d 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call
0077 029d 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call
0079 1d0f | | Execute_Immediate Reference_Lex_1,0xf
007a 00c7 | | Action Elaborate_Subprogram
007b 1d0e | | Execute_Immediate Reference_Lex_1,0xe
007c 00c7 | | Action Elaborate_Subprogram
007d BODY_0008:
007d BODY_0008:
007d 00bc | | Action Signal_Activated
007e 00bb | | Action Signal_Completion
007f 0000 | | .XXX[0x1]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0092 | | .CONST 0x0092 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0005 | | .CONST 0x0005 ; Number of locals
0083 INIT_0080:
0083 00e1 | | Load_Encached Boolean_Cache
0084 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0085 029f 02a3 | | Declare_Subprogram INIT_02a0,For_Call
0087 e002 | | Load 0x0,0x2
0088 e003 | | Load 0x0,0x3
0089 4803 |H | Short_Literal 0x3
008a 4802 |H | Short_Literal 0x2
008b 0099 | | Action Reference_Dynamic
008c e004 | | Load 0x0,0x4
008d 0387 | | Declare_Variable Package
008e 00d8 | | Load_Top At_Offset_0
008f 020f | | Execute Module,Activate
0090 029f 03bb | | Declare_Subprogram INIT_03b8,For_Call
0092 BODY_0080:
0092 8405 | | Call 0x2,0x5
0093 450a |E | Exit_Suprogram New_Top_Offset 0xa
0094 0000 0000 | | .BLANK 0000[0x4]
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 e5fa | | Load 0x2,-0x6
009c e5fb | | Load 0x2,-0x5
009d e5fc | | Load 0x2,-0x4
009e e5ff | | Load 0x2,-0x1
009f 821c | | Call 0x1,0x1c
00a0 e5fd | | Load 0x2,-0x3
00a1 e5fe | | Load 0x2,-0x2
00a2 e5ff | | Load 0x2,-0x1
00a3 821d | | Call 0x1,0x1d
00a4 820f | | Call 0x1,0xf
00a5 4507 |E | Exit_Suprogram New_Top_Offset 0x7
00a6 0000 0000 | | .XXX[0x2]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ce | | .CONST 0x00ce ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0004 | | .CONST 0x0004 ; Number of locals
00ab INIT_00a8:
00ab 4800 |H | Short_Literal 0x0
00ac 0093 0633 | 3| push_full_address INIT_0630
00ae 00f5 | | Load_Encached Unused21
00af 037a | z | Declare_Type Task,Defined,Not_Elaborated
00b0 00e1 | | Load_Encached Boolean_Cache
00b1 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00b2 e005 | | Load 0x0,0x5
00b3 e006 | | Load 0x0,0x6
00b4 e211 | | Load 0x1,0x11
00b5 e007 | | Load 0x0,0x7
00b6 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00b7 e008 | | Load 0x0,0x8
00b8 e5fc | | Load 0x2,-0x4
00b9 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00ba e5fd | | Load 0x2,-0x3
00bb e5fb | | Load 0x2,-0x5
00bc e5ff | | Load 0x2,-0x1
00bd 4803 |H | Short_Literal 0x3
00be 4802 |H | Short_Literal 0x2
00bf 0099 | | Action Reference_Dynamic
00c0 1d17 | | Execute_Immediate Reference_Lex_1,0x17
00c1 e5fe | | Load 0x2,-0x2
00c2 1d18 | | Execute_Immediate Reference_Lex_1,0x18
00c3 e5f9 | | Load 0x2,-0x7
00c4 e5fa | | Load 0x2,-0x6
00c5 e009 | | Load 0x0,0x9
00c6 e00a | | Load 0x0,0xa
00c7 4813 |H | Short_Literal 0x13
00c8 e402 | | Load 0x2,0x2
00c9 020e | | Execute Module,Augment_Imports
00ca 00d9 | | Load_Top At_Offset_1
00cb 020d | | Execute Module,Elaborate
00cc 029f 03d3 | | Declare_Subprogram INIT_03d0,For_Call
00ce BODY_00a8:
00ce 8404 | | Call 0x2,0x4
00cf 00d9 | | Load_Top At_Offset_1
00d0 700f |p | Jump_Nonzero 0xe0
00d1 e007 | | Load 0x0,0x7
00d2 180e | | Execute Package,Field_Execute,Field_Number 0xe
00d3 4805 |H | Short_Literal 0x5
00d4 0092 07ac | | Action Push_String_Extended,0x7ac ; "Not connected"
00d6 e008 | | Load 0x0,0x8
00d7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00d8 e007 | | Load 0x0,0x7
00d9 180e | | Execute Package,Field_Execute,Field_Number 0xe
00da e007 | | Load 0x0,0x7
00db 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00dc 6803 |h | Jump_Zero 0xe0
00dd e007 | | Load 0x0,0x7
00de 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
00df 0257 | W | Execute Discrete,Raise
00e0 4508 |E | Exit_Suprogram New_Top_Offset 0x8
00e1 0000 0000 | | .BLANK 0000[0x7]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00f3 | | .CONST 0x00f3 ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0003 | | .CONST 0x0003 ; Number of locals
00eb INIT_00e8:
00eb 4801 |H | Short_Literal 0x1
00ec 4810 |H | Short_Literal 0x10
00ed 00e9 | | Load_Encached String_Cache
00ee 035b | [ | Declare_Type Array,Constrained
00ef 0337 | 7 | Declare_Variable Array
00f0 00db | | Load_Top At_Offset_3
00f1 00e3 | | Load_Encached Natural_Cache
00f2 03f1 | | Declare_Variable Discrete,With_Value
00f3 BODY_00e8:
00f3 00cf | | Action Mark_Auxiliary
00f4 00da | | Load_Top At_Offset_2
00f5 01da | | Execute Vector,Bounds
00f6 0007 | | Action Break_Optional
00f7 00db | | Load_Top At_Offset_3
00f8 480f |H | Short_Literal 0xf
00f9 0279 | y | Execute Discrete,And
00fa e213 | | Load 0x1,0x13
00fb 01d7 | | Execute Vector,Field_Read
00fc 00d9 | | Load_Top At_Offset_1
00fd e402 | | Load 0x2,0x2
00fe 01d6 | | Execute Vector,Field_Write
00ff 00db | | Load_Top At_Offset_3
0100 09fc | | Execute_Immediate Binary_Scale,-0x4
0101 c403 | | Store 0x2,0x3
0102 00db | | Load_Top At_Offset_3
0103 700a |p | Jump_Nonzero 0x10e
0104 0092 07ad | | Action Push_String_Extended,0x7ad ; " #"
0106 00d9 | | Load_Top At_Offset_1
0107 4810 |H | Short_Literal 0x10
0108 e402 | | Load 0x2,0x2
0109 01cf | | Execute Vector,Slice_Read
010a 01cc | | Execute Vector,Catenate
010b 00e9 | | Load_Encached String_Cache
010c 01c6 | | Execute Vector,Convert_To_Formal
010d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
010e 00c8 | | Action Pop_Auxiliary_Range
010f 37e7 |7 | Loop_Decreasing 0xf7
0110 00ce | | Action Pop_Auxiliary
0111 08e0 | | Execute_Immediate Raise,0xe0
0112 0000 0000 | | .BLANK 0000[0x6]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 0120 | | .CONST 0x0120 ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0002 | | .CONST 0x0002 ; Number of locals
011b INIT_0118:
011b 4801 |H | Short_Literal 0x1
011c 4802 |H | Short_Literal 0x2
011d 00e9 | | Load_Encached String_Cache
011e 035b | [ | Declare_Type Array,Constrained
011f 0337 | 7 | Declare_Variable Array
0120 BODY_0118:
0120 00d8 | | Load_Top At_Offset_0
0121 0335 | 5 | Declare_Variable Array,Duplicate
0122 00cd | | Action Spare6_Action
0123 e5ff | | Load 0x2,-0x1
0124 09fc | | Execute_Immediate Binary_Scale,-0x4
0125 e213 | | Load 0x1,0x13
0126 01d7 | | Execute Vector,Field_Read
0127 4801 |H | Short_Literal 0x1
0128 00da | | Load_Top At_Offset_2
0129 01d6 | | Execute Vector,Field_Write
012a e5ff | | Load 0x2,-0x1
012b 480f |H | Short_Literal 0xf
012c 0279 | y | Execute Discrete,And
012d e213 | | Load 0x1,0x13
012e 01d7 | | Execute Vector,Field_Read
012f 4802 |H | Short_Literal 0x2
0130 00da | | Load_Top At_Offset_2
0131 01d6 | | Execute Vector,Field_Write
0132 00d9 | | Load_Top At_Offset_1
0133 01d4 | | Execute Vector,Structure_Write
0134 00d8 | | Load_Top At_Offset_0
0135 00e9 | | Load_Encached String_Cache
0136 01c6 | | Execute Vector,Convert_To_Formal
0137 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 0146 | F | .CONST 0x0146 ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0005 | | .CONST 0x0005 ; Number of locals
013b INIT_0138:
013b 4801 |H | Short_Literal 0x1
013c 4830 |H0 | Short_Literal 0x30
013d 00e9 | | Load_Encached String_Cache
013e 035b | [ | Declare_Type Array,Constrained
013f 0337 | 7 | Declare_Variable Array
0140 00e3 | | Load_Encached Natural_Cache
0141 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0142 029f 03e3 | | Declare_Subprogram INIT_03e0,For_Call
0144 029f 03f3 | | Declare_Subprogram INIT_03f0,For_Call
0146 BODY_0138:
0146 00cf | | Action Mark_Auxiliary
0147 e5ff | | Load 0x2,-0x1
0148 01d9 | | Execute Vector,Reverse_Bounds
0149 0263 | c | Execute Discrete,Above_Bound
014a 7009 |p | Jump_Nonzero 0x154
014b 4820 |H | Short_Literal 0x20
014c 00d9 | | Load_Top At_Offset_1
014d e5ff | | Load 0x2,-0x1
014e 01d7 | | Execute Vector,Field_Read
014f 8215 | | Call 0x1,0x15
0150 01cb | | Execute Vector,Append
0151 8405 | | Call 0x2,0x5
0152 00c8 | | Action Pop_Auxiliary_Range
0153 3ff7 |? | Loop_Increasing 0x14b
0154 00ce | | Action Pop_Auxiliary
0155 8404 | | Call 0x2,0x4
0156 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0157 0000 | | .XXX[0x1]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015d | ] | .CONST 0x015d ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0002 | | .CONST 0x0002 ; Number of locals
015b INIT_0158:
015b 00e3 | | Load_Encached Natural_Cache
015c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
015d BODY_0158:
015d 00cf | | Action Mark_Auxiliary
015e e5ff | | Load 0x2,-0x1
015f 01d9 | | Execute Vector,Reverse_Bounds
0160 0263 | c | Execute Discrete,Above_Bound
0161 7009 |p | Jump_Nonzero 0x16b
0162 00db | | Load_Top At_Offset_3
0163 0908 | | Execute_Immediate Binary_Scale,0x8
0164 00d9 | | Load_Top At_Offset_1
0165 e5ff | | Load 0x2,-0x1
0166 01d7 | | Execute Vector,Field_Read
0167 0273 | s | Execute Discrete,Plus
0168 c402 | | Store 0x2,0x2
0169 00c8 | | Action Pop_Auxiliary_Range
016a 3ff7 |? | Loop_Increasing 0x162
016b 00ce | | Action Pop_Auxiliary
016c 00d8 | | Load_Top At_Offset_0
016d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
016e 0000 0000 | | .XXX[0x2]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 017d | } | .CONST 0x017d ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0004 | | .CONST 0x0004 ; Number of locals
0173 INIT_0170:
0173 4801 |H | Short_Literal 0x1
0174 e5fe | | Load 0x2,-0x2
0175 e211 | | Load 0x1,0x11
0176 035b | [ | Declare_Type Array,Constrained
0177 0337 | 7 | Declare_Variable Array
0178 00db | | Load_Top At_Offset_3
0179 00e3 | | Load_Encached Natural_Cache
017a 03f1 | | Declare_Variable Discrete,With_Value
017b 00e4 | | Load_Encached Positive_Cache
017c 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
017d BODY_0170:
017d e5fe | | Load 0x2,-0x2
017e 0c01 | | Execute_Immediate Greater_Equal,0x1
017f 6854 |hT | Jump_Zero 0x1d4
0180 00d9 | | Load_Top At_Offset_1
0181 4801 |H | Short_Literal 0x1
0182 0279 | y | Execute Discrete,And
0183 6812 |h | Jump_Zero 0x196
0184 00d9 | | Load_Top At_Offset_1
0185 48ff |H | Short_Literal 0xff
0186 026e | n | Execute Discrete,Modulo
0187 00d8 | | Load_Top At_Offset_0
0188 e00b | | Load 0x0,0xb
0189 1b11 | | Execute Package,Field_Read,Field_Number 0x11
018a 0260 | ` | Execute Discrete,In_Type
018b 7001 |p | Jump_Nonzero 0x18d
018c 0801 | | Execute_Immediate Raise,0x1
018d 00d9 | | Load_Top At_Offset_1
018e e402 | | Load 0x2,0x2
018f 01d6 | | Execute Vector,Field_Write
0190 00d9 | | Load_Top At_Offset_1
0191 0a01 | | Execute_Immediate Plus,0x1
0192 005a | Z | Store_Top Discrete,At_Offset_2
0193 00d8 | | Load_Top At_Offset_0
0194 0a01 | | Execute_Immediate Plus,0x1
0195 0059 | Y | Store_Top Discrete,At_Offset_1
0196 00cf | | Action Mark_Auxiliary
0197 7826 |x& | Jump 0x1be
0198 00da | | Load_Top At_Offset_2
0199 09f8 | | Execute_Immediate Binary_Scale,-0x8
019a 48ff |H | Short_Literal 0xff
019b 0279 | y | Execute Discrete,And
019c 00d8 | | Load_Top At_Offset_0
019d e00b | | Load 0x0,0xb
019e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
019f 0260 | ` | Execute Discrete,In_Type
01a0 7001 |p | Jump_Nonzero 0x1a2
01a1 0801 | | Execute_Immediate Raise,0x1
01a2 00da | | Load_Top At_Offset_2
01a3 e402 | | Load 0x2,0x2
01a4 01d6 | | Execute Vector,Field_Write
01a5 00da | | Load_Top At_Offset_2
01a6 0a01 | | Execute_Immediate Plus,0x1
01a7 005b | [ | Store_Top Discrete,At_Offset_3
01a8 00d9 | | Load_Top At_Offset_1
01a9 0a01 | | Execute_Immediate Plus,0x1
01aa 005a | Z | Store_Top Discrete,At_Offset_2
01ab 00da | | Load_Top At_Offset_2
01ac 48ff |H | Short_Literal 0xff
01ad 026e | n | Execute Discrete,Modulo
01ae 00d8 | | Load_Top At_Offset_0
01af e00b | | Load 0x0,0xb
01b0 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01b1 0260 | ` | Execute Discrete,In_Type
01b2 7001 |p | Jump_Nonzero 0x1b4
01b3 0801 | | Execute_Immediate Raise,0x1
01b4 00da | | Load_Top At_Offset_2
01b5 e402 | | Load 0x2,0x2
01b6 01d6 | | Execute Vector,Field_Write
01b7 00da | | Load_Top At_Offset_2
01b8 0a01 | | Execute_Immediate Plus,0x1
01b9 005b | [ | Store_Top Discrete,At_Offset_3
01ba 00d9 | | Load_Top At_Offset_1
01bb 0a01 | | Execute_Immediate Plus,0x1
01bc 005a | Z | Store_Top Discrete,At_Offset_2
01bd 00c9 | | Action Pop_Auxiliary_Loop
01be 00d9 | | Load_Top At_Offset_1
01bf e5fe | | Load 0x2,-0x2
01c0 027c | | | Execute Discrete,Less
01c1 77d6 |w | Jump_Nonzero 0x198
01c2 00ce | | Action Pop_Auxiliary
01c3 00d8 | | Load_Top At_Offset_0
01c4 e5fe | | Load 0x2,-0x2
01c5 027f | | Execute Discrete,Equal
01c6 680d |h | Jump_Zero 0x1d4
01c7 00d9 | | Load_Top At_Offset_1
01c8 09f8 | | Execute_Immediate Binary_Scale,-0x8
01c9 48ff |H | Short_Literal 0xff
01ca 0279 | y | Execute Discrete,And
01cb 00d8 | | Load_Top At_Offset_0
01cc e00b | | Load 0x0,0xb
01cd 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01ce 0260 | ` | Execute Discrete,In_Type
01cf 7001 |p | Jump_Nonzero 0x1d1
01d0 0801 | | Execute_Immediate Raise,0x1
01d1 00d9 | | Load_Top At_Offset_1
01d2 e402 | | Load 0x2,0x2
01d3 01d6 | | Execute Vector,Field_Write
01d4 00da | | Load_Top At_Offset_2
01d5 e00b | | Load 0x0,0xb
01d6 1b12 | | Execute Package,Field_Read,Field_Number 0x12
01d7 01c6 | | Execute Vector,Convert_To_Formal
01d8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01d9 0000 0000 | | .BLANK 0000[0x7]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3 | | .CONST 0x01e3 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0001 | | .CONST 0x0001 ; Number of locals
01e3 BODY_01e0:
01e3 INIT_01e0:
01e3 00da | | Load_Top At_Offset_2
01e4 e005 | | Load 0x0,0x5
01e5 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
01e6 e00c | | Load 0x0,0xc
01e7 180f | | Execute Package,Field_Execute,Field_Number 0xf
01e8 0092 07ae | | Action Push_String_Extended,0x7ae ; ", "
01ea 01cc | | Execute Vector,Catenate
01eb 00db | | Load_Top At_Offset_3
01ec e005 | | Load 0x0,0x5
01ed 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
01ee e00c | | Load 0x0,0xc
01ef 180f | | Execute Package,Field_Execute,Field_Number 0xf
01f0 01cc | | Execute Vector,Catenate
01f1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01f2 0000 0000 | | .BLANK 0000[0x6]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb | | .CONST 0x01fb ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0001 | | .CONST 0x0001 ; Number of locals
01fb BODY_01f8:
01fb INIT_01f8:
01fb 00da | | Load_Top At_Offset_2
01fc e005 | | Load 0x0,0x5
01fd 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
01fe e00c | | Load 0x0,0xc
01ff 180f | | Execute Package,Field_Execute,Field_Number 0xf
0200 0092 07ae | | Action Push_String_Extended,0x7ae ; ", "
0202 01cc | | Execute Vector,Catenate
0203 00db | | Load_Top At_Offset_3
0204 e005 | | Load 0x0,0x5
0205 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0206 e00c | | Load 0x0,0xc
0207 180f | | Execute Package,Field_Execute,Field_Number 0xf
0208 01cc | | Execute Vector,Catenate
0209 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
020a 0000 0000 | | .BLANK 0000[0x6]
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 00da | | Load_Top At_Offset_2
0214 680f |h | Jump_Zero 0x224
0215 e007 | | Load 0x0,0x7
0216 180e | | Execute Package,Field_Execute,Field_Number 0xe
0217 4807 |H | Short_Literal 0x7
0218 e5fe | | Load 0x2,-0x2
0219 0092 07af | | Action Push_String_Extended,0x7af ; ".Status = "
021b 01cc | | Execute Vector,Catenate
021c e5ff | | Load 0x2,-0x1
021d e006 | | Load 0x0,0x6
021e 181a | | Execute Package,Field_Execute,Field_Number 0x1a
021f 01cc | | Execute Vector,Catenate
0220 e008 | | Load 0x0,0x8
0221 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0222 e009 | | Load 0x0,0x9
0223 0257 | W | Execute Discrete,Raise
0224 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0225 0000 0000 | | .XXX[0x3]
0227 0000 | |
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b | + | .CONST 0x022b ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0001 | | .CONST 0x0001 ; Number of locals
022b BODY_0228:
022b INIT_0228:
022b 00da | | Load_Top At_Offset_2
022c 01dd | | Execute Vector,First
022d 00db | | Load_Top At_Offset_3
022e 01d7 | | Execute Vector,Field_Read
022f 4830 |H0 | Short_Literal 0x30
0230 4839 |H9 | Short_Literal 0x39
0231 0262 | b | Execute Discrete,In_Range
0232 6806 |h | Jump_Zero 0x239
0233 4801 |H | Short_Literal 0x1
0234 4806 |H | Short_Literal 0x6
0235 00e9 | | Load_Encached String_Cache
0236 0334 | 4 | Declare_Variable Array,With_Constraint
0237 5008 |P | Indirect_Literal Any,0x240,{0x5443502f, 0x49502020}
0238 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0239 00da | | Load_Top At_Offset_2
023a e00d | | Load 0x0,0xd
023b 180d | | Execute Package,Field_Execute,Field_Number 0xd
023c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
023d 0000 0000 | | .XXX[0x3]
023f 0000 | |
0240 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020}
0244 0000 0000 | | .BLANK 0000[0x4]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 025f | _ | .CONST 0x025f ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0003 | | .CONST 0x0003 ; Number of locals
024b INIT_0248:
024b 4801 |H | Short_Literal 0x1
024c 4810 |H | Short_Literal 0x10
024d e006 | | Load 0x0,0x6
024e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
024f 035b | [ | Declare_Type Array,Constrained
0250 0337 | 7 | Declare_Variable Array
0251 00d8 | | Load_Top At_Offset_0
0252 0335 | 5 | Declare_Variable Array,Duplicate
0253 00cd | | Action Spare6_Action
0254 4810 |H | Short_Literal 0x10
0255 4801 |H | Short_Literal 0x1
0256 4800 |H | Short_Literal 0x0
0257 00d9 | | Load_Top At_Offset_1
0258 e403 | | Load 0x2,0x3
0259 01d6 | | Execute Vector,Field_Write
025a 3ffb |? | Loop_Increasing 0x256
025b 00d9 | | Load_Top At_Offset_1
025c 01d4 | | Execute Vector,Structure_Write
025d 00e3 | | Load_Encached Natural_Cache
025e 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
025f BODY_0248:
025f e5ff | | Load 0x2,-0x1
0260 01dd | | Execute Vector,First
0261 e5ff | | Load 0x2,-0x1
0262 01d7 | | Execute Vector,Field_Read
0263 4830 |H0 | Short_Literal 0x30
0264 4839 |H9 | Short_Literal 0x39
0265 0262 | b | Execute Discrete,In_Range
0266 6833 |h3 | Jump_Zero 0x29a
0267 00cf | | Action Mark_Auxiliary
0268 e5ff | | Load 0x2,-0x1
0269 01d9 | | Execute Vector,Reverse_Bounds
026a 0263 | c | Execute Discrete,Above_Bound
026b 7025 |p% | Jump_Nonzero 0x291
026c 00d8 | | Load_Top At_Offset_0
026d e5ff | | Load 0x2,-0x1
026e 01d7 | | Execute Vector,Field_Read
026f 00d8 | | Load_Top At_Offset_0
0270 4830 |H0 | Short_Literal 0x30
0271 4839 |H9 | Short_Literal 0x39
0272 0262 | b | Execute Discrete,In_Range
0273 7007 |p | Jump_Nonzero 0x27b
0274 0f2e | . | Execute_Immediate Equal,0x2e
0275 7001 |p | Jump_Nonzero 0x277
0276 7818 |x | Jump 0x28f
0277 00db | | Load_Top At_Offset_3
0278 0a01 | | Execute_Immediate Plus,0x1
0279 c403 | | Store 0x2,0x3
027a 7814 |x | Jump 0x28f
027b 00d1 | | Pop_Control Pop_Count_1
027c 00db | | Load_Top At_Offset_3
027d e402 | | Load 0x2,0x2
027e 01d7 | | Execute Vector,Field_Read
027f 480a |H | Short_Literal 0xa
0280 0271 | q | Execute Discrete,Times
0281 00d9 | | Load_Top At_Offset_1
0282 e5ff | | Load 0x2,-0x1
0283 01d7 | | Execute Vector,Field_Read
0284 0ad0 | | Execute_Immediate Plus,-0x30
0285 00d8 | | Load_Top At_Offset_0
0286 e00b | | Load 0x0,0xb
0287 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0288 0260 | ` | Execute Discrete,In_Type
0289 7001 |p | Jump_Nonzero 0x28b
028a 0801 | | Execute_Immediate Raise,0x1
028b 0273 | s | Execute Discrete,Plus
028c e403 | | Load 0x2,0x3
028d e402 | | Load 0x2,0x2
028e 01d6 | | Execute Vector,Field_Write
028f 00c8 | | Action Pop_Auxiliary_Range
0290 3fdb |? | Loop_Increasing 0x26c
0291 00ce | | Action Pop_Auxiliary
0292 4801 |H | Short_Literal 0x1
0293 00d9 | | Load_Top At_Offset_1
0294 00db | | Load_Top At_Offset_3
0295 01cf | | Execute Vector,Slice_Read
0296 e006 | | Load 0x0,0x6
0297 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0298 01c6 | | Execute Vector,Convert_To_Formal
0299 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
029a e5ff | | Load 0x2,-0x1
029b e00d | | Load 0x0,0xd
029c 180e | | Execute Package,Field_Execute,Field_Number 0xe
029d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
029e 0000 0000 | | .XXX[0x2]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02b3 | | .CONST 0x02b3 ; Address of begin
02a1 0377 | w | .CONST 0x0377 ; Address of exception handler
02a2 0008 | | .CONST 0x0008 ; Number of locals
02a3 INIT_02a0:
02a3 e006 | | Load 0x0,0x6
02a4 1b19 | | Execute Package,Field_Read,Field_Number 0x19
02a5 4801 |H | Short_Literal 0x1
02a6 610d |a | Indirect_Literal Discrete,0x3b4,{0x00000000, 0x00000400}
02a7 e211 | | Load 0x1,0x11
02a8 035b | [ | Declare_Type Array,Constrained
02a9 0337 | 7 | Declare_Variable Array
02aa 00e3 | | Load_Encached Natural_Cache
02ab 00e3 | | Load_Encached Natural_Cache
02ac 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
02ad 00e3 | | Load_Encached Natural_Cache
02ae e5fc | | Load 0x2,-0x4
02af 00e1 | | Load_Encached Boolean_Cache
02b0 03f1 | | Declare_Variable Discrete,With_Value
02b1 029f 041b | | Declare_Subprogram INIT_0418,For_Call
02b3 BODY_02a0:
02b3 e007 | | Load 0x0,0x7
02b4 180e | | Execute Package,Field_Execute,Field_Number 0xe
02b5 4802 |H | Short_Literal 0x2
02b6 e7ff | | Load 0x3,-0x1
02b7 8219 | | Call 0x1,0x19
02b8 0092 07b0 | | Action Push_String_Extended,0x7b0 ; " connected."
02ba 01cc | | Execute Vector,Catenate
02bb e008 | | Load 0x0,0x8
02bc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02bd e402 | | Load 0x2,0x2
02be 680e |h | Jump_Zero 0x2cd
02bf e5fa | | Load 0x2,-0x6
02c0 680c |h | Jump_Zero 0x2cd
02c1 e007 | | Load 0x0,0x7
02c2 180e | | Execute Package,Field_Execute,Field_Number 0xe
02c3 4807 |H | Short_Literal 0x7
02c4 e7ff | | Load 0x3,-0x1
02c5 8219 | | Call 0x1,0x19
02c6 0092 07b1 | | Action Push_String_Extended,0x7b1 ; " error detected; stopped."
02c8 01cc | | Execute Vector,Catenate
02c9 e008 | | Load 0x0,0x8
02ca 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02cb 60e4 |` | Indirect_Literal Discrete,0x3b0,{0x00007fff, 0xffffffff}
02cc 00ba | | Action Initiate_Delay
02cd e7ff | | Load 0x3,-0x1
02ce e005 | | Load 0x0,0x5
02cf 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
02d0 8217 | | Call 0x1,0x17
02d1 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
02d2 00cf | | Action Mark_Auxiliary
02d3 7862 |xb | Jump 0x336
02d4 00e3 | | Load_Encached Natural_Cache
02d5 e603 | | Load 0x3,0x3
02d6 e006 | | Load 0x0,0x6
02d7 1b19 | | Execute Package,Field_Read,Field_Number 0x19
02d8 60d7 |` | Indirect_Literal Discrete,0x3b0,{0x00007fff, 0xffffffff}
02d9 e7ff | | Load 0x3,-0x1
02da e005 | | Load 0x0,0x5
02db 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
02dc c602 | | Store 0x3,0x2
02dd 00d1 | | Pop_Control Pop_Count_1
02de c604 | | Store 0x3,0x4
02df e602 | | Load 0x3,0x2
02e0 0f05 | | Execute_Immediate Equal,0x5
02e1 7058 |pX | Jump_Nonzero 0x33a
02e2 e7ff | | Load 0x3,-0x1
02e3 8219 | | Call 0x1,0x19
02e4 0092 07b2 | | Action Push_String_Extended,0x7b2 ; " Transport.Receive"
02e6 01cc | | Execute Vector,Catenate
02e7 e602 | | Load 0x3,0x2
02e8 821b | | Call 0x1,0x1b
02e9 e402 | | Load 0x2,0x2
02ea 680e |h | Jump_Zero 0x2f9
02eb e5fa | | Load 0x2,-0x6
02ec 680c |h | Jump_Zero 0x2f9
02ed e007 | | Load 0x0,0x7
02ee 180e | | Execute Package,Field_Execute,Field_Number 0xe
02ef 4807 |H | Short_Literal 0x7
02f0 e7ff | | Load 0x3,-0x1
02f1 8219 | | Call 0x1,0x19
02f2 0092 07b1 | | Action Push_String_Extended,0x7b1 ; " error detected; stopped."
02f4 01cc | | Execute Vector,Catenate
02f5 e008 | | Load 0x0,0x8
02f6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02f7 60b8 |` | Indirect_Literal Discrete,0x3b0,{0x00007fff, 0xffffffff}
02f8 00ba | | Action Initiate_Delay
02f9 e604 | | Load 0x3,0x4
02fa 0d01 | | Execute_Immediate Less,0x1
02fb 680f |h | Jump_Zero 0x30b
02fc e007 | | Load 0x0,0x7
02fd 180e | | Execute Package,Field_Execute,Field_Number 0xe
02fe 4807 |H | Short_Literal 0x7
02ff e7ff | | Load 0x3,-0x1
0300 8219 | | Call 0x1,0x19
0301 0092 07b3 | | Action Push_String_Extended,0x7b3 ; " Transport.Receive.Count ="
0303 01cc | | Execute Vector,Catenate
0304 e604 | | Load 0x3,0x4
0305 00e0 | | Load_Encached Standard_Cache
0306 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0307 01cc | | Execute Vector,Catenate
0308 e008 | | Load 0x0,0x8
0309 1813 | | Execute Package,Field_Execute,Field_Number 0x13
030a 7828 |x( | Jump 0x333
030b 00da | | Load_Top At_Offset_2
030c 681e |h | Jump_Zero 0x32b
030d 4801 |H | Short_Literal 0x1
030e e604 | | Load 0x3,0x4
030f e603 | | Load 0x3,0x3
0310 01cf | | Execute Vector,Slice_Read
0311 e604 | | Load 0x3,0x4
0312 e606 | | Load 0x3,0x6
0313 8218 | | Call 0x1,0x18
0314 01df | | Execute Vector,Equal
0315 7015 |p | Jump_Nonzero 0x32b
0316 4801 |H | Short_Literal 0x1
0317 a402 | | Store_Unchecked 0x2,0x2
0318 e5fa | | Load 0x2,-0x6
0319 6810 |h | Jump_Zero 0x32a
031a e007 | | Load 0x0,0x7
031b 180e | | Execute Package,Field_Execute,Field_Number 0xe
031c 4807 |H | Short_Literal 0x7
031d e7ff | | Load 0x3,-0x1
031e 8219 | | Call 0x1,0x19
031f 0092 07b4 | | Action Push_String_Extended,0x7b4 ; " error at byte"
0321 01cc | | Execute Vector,Catenate
0322 e606 | | Load 0x3,0x6
0323 8214 | | Call 0x1,0x14
0324 01cc | | Execute Vector,Catenate
0325 e008 | | Load 0x0,0x8
0326 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0327 6088 |` | Indirect_Literal Discrete,0x3b0,{0x00007fff, 0xffffffff}
0328 00ba | | Action Initiate_Delay
0329 7801 |x | Jump 0x32b
032a 8608 | | Call 0x3,0x8
032b 00db | | Load_Top At_Offset_3
032c e604 | | Load 0x3,0x4
032d 0273 | s | Execute Discrete,Plus
032e c606 | | Store 0x3,0x6
032f e605 | | Load 0x3,0x5
0330 e604 | | Load 0x3,0x4
0331 0273 | s | Execute Discrete,Plus
0332 c605 | | Store 0x3,0x5
0333 e5f7 | | Load 0x2,-0x9
0334 00ba | | Action Initiate_Delay
0335 00c9 | | Action Pop_Auxiliary_Loop
0336 e605 | | Load 0x3,0x5
0337 e5fe | | Load 0x2,-0x2
0338 027c | | | Execute Discrete,Less
0339 779a |w | Jump_Nonzero 0x2d4
033a 00ce | | Action Pop_Auxiliary
033b e5fb | | Load 0x2,-0x5
033c 6804 |h | Jump_Zero 0x341
033d 00db | | Load_Top At_Offset_3
033e e5fe | | Load 0x2,-0x2
033f 027f | | Execute Discrete,Equal
0340 6812 |h | Jump_Zero 0x353
0341 e007 | | Load 0x0,0x7
0342 180e | | Execute Package,Field_Execute,Field_Number 0xe
0343 4803 |H | Short_Literal 0x3
0344 e7ff | | Load 0x3,-0x1
0345 8219 | | Call 0x1,0x19
0346 0092 07b5 | | Action Push_String_Extended,0x7b5 ; " received"
0348 01cc | | Execute Vector,Catenate
0349 e605 | | Load 0x3,0x5
034a 00e0 | | Load_Encached Standard_Cache
034b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
034c 01cc | | Execute Vector,Catenate
034d 0092 07b6 | | Action Push_String_Extended,0x7b6 ; " bytes."
034f 01cc | | Execute Vector,Catenate
0350 e008 | | Load 0x0,0x8
0351 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0352 781e |x | Jump 0x371
0353 4801 |H | Short_Literal 0x1
0354 a402 | | Store_Unchecked 0x2,0x2
0355 e007 | | Load 0x0,0x7
0356 180e | | Execute Package,Field_Execute,Field_Number 0xe
0357 4807 |H | Short_Literal 0x7
0358 e7ff | | Load 0x3,-0x1
0359 8219 | | Call 0x1,0x19
035a 0092 07b5 | | Action Push_String_Extended,0x7b5 ; " received"
035c 01cc | | Execute Vector,Catenate
035d e605 | | Load 0x3,0x5
035e 00e0 | | Load_Encached Standard_Cache
035f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0360 01cc | | Execute Vector,Catenate
0361 0092 07b7 | | Action Push_String_Extended,0x7b7 ; " not"
0363 01cc | | Execute Vector,Catenate
0364 e5fe | | Load 0x2,-0x2
0365 00e0 | | Load_Encached Standard_Cache
0366 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0367 01cc | | Execute Vector,Catenate
0368 0092 07b8 | | Action Push_String_Extended,0x7b8 ; " bytes"
036a 01cc | | Execute Vector,Catenate
036b e008 | | Load 0x0,0x8
036c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
036d e5fa | | Load 0x2,-0x6
036e 6802 |h | Jump_Zero 0x371
036f 6040 |`@ | Indirect_Literal Discrete,0x3b0,{0x00007fff, 0xffffffff}
0370 00ba | | Action Initiate_Delay
0371 e5f8 | | Load 0x2,-0x8
0372 00ba | | Action Initiate_Delay
0373 e7ff | | Load 0x3,-0x1
0374 e005 | | Load 0x0,0x5
0375 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0376 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0377 TRAP_02a0:
0377 e009 | | Load 0x0,0x9
0378 010f | | Execute Exception,Equal
0379 6815 |h | Jump_Zero 0x38f
037a e007 | | Load 0x0,0x7
037b 180e | | Execute Package,Field_Execute,Field_Number 0xe
037c 4808 |H | Short_Literal 0x8
037d e7ff | | Load 0x3,-0x1
037e 8219 | | Call 0x1,0x19
037f 0092 07b5 | | Action Push_String_Extended,0x7b5 ; " received"
0381 01cc | | Execute Vector,Catenate
0382 e605 | | Load 0x3,0x5
0383 00e0 | | Load_Encached Standard_Cache
0384 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0385 01cc | | Execute Vector,Catenate
0386 0092 07b6 | | Action Push_String_Extended,0x7b6 ; " bytes."
0388 01cc | | Execute Vector,Catenate
0389 e008 | | Load 0x0,0x8
038a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
038b e7ff | | Load 0x3,-0x1
038c e005 | | Load 0x0,0x5
038d 181b | | Execute Package,Field_Execute,Field_Number 0x1b
038e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
038f e007 | | Load 0x0,0x7
0390 180e | | Execute Package,Field_Execute,Field_Number 0xe
0391 4807 |H | Short_Literal 0x7
0392 4801 |H | Short_Literal 0x1
0393 4801 |H | Short_Literal 0x1
0394 e00a | | Load 0x0,0xa
0395 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0396 e008 | | Load 0x0,0x8
0397 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0398 e007 | | Load 0x0,0x7
0399 180e | | Execute Package,Field_Execute,Field_Number 0xe
039a 4808 |H | Short_Literal 0x8
039b e7ff | | Load 0x3,-0x1
039c 8219 | | Call 0x1,0x19
039d 0092 07b5 | | Action Push_String_Extended,0x7b5 ; " received"
039f 01cc | | Execute Vector,Catenate
03a0 e605 | | Load 0x3,0x5
03a1 00e0 | | Load_Encached Standard_Cache
03a2 1818 | | Execute Package,Field_Execute,Field_Number 0x18
03a3 01cc | | Execute Vector,Catenate
03a4 0092 07b6 | | Action Push_String_Extended,0x7b6 ; " bytes."
03a6 01cc | | Execute Vector,Catenate
03a7 e008 | | Load 0x0,0x8
03a8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03a9 e7ff | | Load 0x3,-0x1
03aa e005 | | Load 0x0,0x5
03ab 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03ac 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03ad 0000 0000 | | .XXX[0x3]
03af 0000 | |
03b0 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
03b4 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03c0 | | .CONST 0x03c0 ; Address of begin
03b9 0004 | | .CONST 0x0004 ; Address of exception handler
03ba 0002 | | .CONST 0x0002 ; Number of locals
03bb INIT_03b8:
03bb e404 | | Load 0x2,0x4
03bc 1b10 | | Execute Package,Field_Read,Field_Number 0x10
03bd 02c7 | | Declare_Variable Any
03be 00d8 | | Load_Top At_Offset_0
03bf 1c00 | | Execute_Immediate Run_Utility,0x0
03c0 BODY_03b8:
03c0 e5fd | | Load 0x2,-0x3
03c1 e5f9 | | Load 0x2,-0x7
03c2 e5ff | | Load 0x2,-0x1
03c3 e404 | | Load 0x2,0x4
03c4 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03c5 c602 | | Store 0x3,0x2
03c6 e007 | | Load 0x0,0x7
03c7 180e | | Execute Package,Field_Execute,Field_Number 0xe
03c8 4802 |H | Short_Literal 0x2
03c9 0092 07b9 | | Action Push_String_Extended,0x7b9 ; "server started"
03cb e008 | | Load 0x0,0x8
03cc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03cd 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03ce 0000 0000 | | .XXX[0x2]
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03de | | .CONST 0x03de ; Address of begin
03d1 0004 | | .CONST 0x0004 ; Address of exception handler
03d2 0003 | | .CONST 0x0003 ; Number of locals
03d3 INIT_03d0:
03d3 4801 |H | Short_Literal 0x1
03d4 e5fd | | Load 0x2,-0x3
03d5 e402 | | Load 0x2,0x2
03d6 029f 04f3 | | Declare_Subprogram INIT_04f0,For_Call
03d8 4801 |H | Short_Literal 0x1
03d9 035d | ] | Declare_Type Array,Defined
03da 00d8 | | Load_Top At_Offset_0
03db 0337 | 7 | Declare_Variable Array
03dc 00d8 | | Load_Top At_Offset_0
03dd 1c00 | | Execute_Immediate Run_Utility,0x0
03de BODY_03d0:
03de 00be | | Action Activate_Tasks
03df 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03e3 | | .CONST 0x03e3 ; Address of begin
03e1 0004 | | .CONST 0x0004 ; Address of exception handler
03e2 0001 | | .CONST 0x0001 ; Number of locals
03e3 BODY_03e0:
03e3 INIT_03e0:
03e3 e403 | | Load 0x2,0x3
03e4 0c01 | | Execute_Immediate Greater_Equal,0x1
03e5 6808 |h | Jump_Zero 0x3ee
03e6 4801 |H | Short_Literal 0x1
03e7 e403 | | Load 0x2,0x3
03e8 e402 | | Load 0x2,0x2
03e9 01cf | | Execute Vector,Slice_Read
03ea e00e | | Load 0x0,0xe
03eb 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
03ec 4800 |H | Short_Literal 0x0
03ed a403 | | Store_Unchecked 0x2,0x3
03ee 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03ef 0000 | | .XXX[0x1]
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 03f3 | | .CONST 0x03f3 ; Address of begin
03f1 0004 | | .CONST 0x0004 ; Address of exception handler
03f2 0001 | | .CONST 0x0001 ; Number of locals
03f3 BODY_03f0:
03f3 INIT_03f0:
03f3 e403 | | Load 0x2,0x3
03f4 00db | | Load_Top At_Offset_3
03f5 01db | | Execute Vector,Length
03f6 0273 | s | Execute Discrete,Plus
03f7 0c31 | 1 | Execute_Immediate Greater_Equal,0x31
03f8 6801 |h | Jump_Zero 0x3fa
03f9 8404 | | Call 0x2,0x4
03fa 00da | | Load_Top At_Offset_2
03fb e403 | | Load 0x2,0x3
03fc 0a01 | | Execute_Immediate Plus,0x1
03fd 00d8 | | Load_Top At_Offset_0
03fe 00e2 | | Load_Encached Integer_Cache
03ff 0260 | ` | Execute Discrete,In_Type
0400 7001 |p | Jump_Nonzero 0x402
0401 0801 | | Execute_Immediate Raise,0x1
0402 e403 | | Load 0x2,0x3
0403 e7ff | | Load 0x3,-0x1
0404 01db | | Execute Vector,Length
0405 0273 | s | Execute Discrete,Plus
0406 00d8 | | Load_Top At_Offset_0
0407 00e2 | | Load_Encached Integer_Cache
0408 0260 | ` | Execute Discrete,In_Type
0409 7001 |p | Jump_Nonzero 0x40b
040a 0801 | | Execute_Immediate Raise,0x1
040b e402 | | Load 0x2,0x2
040c 01ce | | Execute Vector,Slice_Write
040d e403 | | Load 0x2,0x3
040e 00db | | Load_Top At_Offset_3
040f 01db | | Execute Vector,Length
0410 0273 | s | Execute Discrete,Plus
0411 c403 | | Store 0x2,0x3
0412 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0413 0000 0000 | | .BLANK 0000[0x5]
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 0422 | " | .CONST 0x0422 ; Address of begin
0419 0004 | | .CONST 0x0004 ; Address of exception handler
041a 0005 | | .CONST 0x0005 ; Number of locals
041b INIT_0418:
041b 00e3 | | Load_Encached Natural_Cache
041c 029f 050b | | Declare_Subprogram INIT_0508,For_Call
041e 029f 055b | [| Declare_Subprogram INIT_0558,For_Call
0420 029f 059b | | Declare_Subprogram INIT_0598,For_Call
0422 BODY_0418:
0422 8804 | | Call 0x4,0x4
0423 4803 |H | Short_Literal 0x3
0424 8803 | | Call 0x4,0x3
0425 00cf | | Action Mark_Auxiliary
0426 60c5 |` | Indirect_Literal Discrete,0x4ec,{0x00000000, 0x00004000}
0427 4801 |H | Short_Literal 0x1
0428 0007 | | Action Break_Optional
0429 4801 |H | Short_Literal 0x1
042a 4803 |H | Short_Literal 0x3
042b e603 | | Load 0x3,0x3
042c 01cf | | Execute Vector,Slice_Read
042d 4803 |H | Short_Literal 0x3
042e e606 | | Load 0x3,0x6
042f 00db | | Load_Top At_Offset_3
0430 0273 | s | Execute Discrete,Plus
0431 00d8 | | Load_Top At_Offset_0
0432 00e3 | | Load_Encached Natural_Cache
0433 0260 | ` | Execute Discrete,In_Type
0434 7001 |p | Jump_Nonzero 0x436
0435 0801 | | Execute_Immediate Raise,0x1
0436 8218 | | Call 0x1,0x18
0437 01df | | Execute Vector,Equal
0438 6833 |h3 | Jump_Zero 0x46c
0439 e007 | | Load 0x0,0x7
043a 180e | | Execute Package,Field_Execute,Field_Number 0xe
043b 4807 |H | Short_Literal 0x7
043c e7ff | | Load 0x3,-0x1
043d 8219 | | Call 0x1,0x19
043e 0092 07ba | | Action Push_String_Extended,0x7ba ; " lost"
0440 01cc | | Execute Vector,Catenate
0441 00db | | Load_Top At_Offset_3
0442 8214 | | Call 0x1,0x14
0443 01cc | | Execute Vector,Catenate
0444 0092 07b8 | | Action Push_String_Extended,0x7b8 ; " bytes"
0446 01cc | | Execute Vector,Catenate
0447 e606 | | Load 0x3,0x6
0448 8214 | | Call 0x1,0x14
0449 01cc | | Execute Vector,Catenate
044a 0092 07bb | | Action Push_String_Extended,0x7bb ; " .."
044c 01cc | | Execute Vector,Catenate
044d e606 | | Load 0x3,0x6
044e e808 | | Load 0x4,0x8
044f 0273 | s | Execute Discrete,Plus
0450 0aff | | Execute_Immediate Plus,-0x1
0451 00d8 | | Load_Top At_Offset_0
0452 00e3 | | Load_Encached Natural_Cache
0453 0260 | ` | Execute Discrete,In_Type
0454 7001 |p | Jump_Nonzero 0x456
0455 0801 | | Execute_Immediate Raise,0x1
0456 8214 | | Call 0x1,0x14
0457 01cc | | Execute Vector,Catenate
0458 0092 07bc | | Action Push_String_Extended,0x7bc ; ","
045a 01cc | | Execute Vector,Catenate
045b e802 | | Load 0x4,0x2
045c 8214 | | Call 0x1,0x14
045d 01cc | | Execute Vector,Catenate
045e 0092 07bd | | Action Push_String_Extended,0x7bd ; ":"
0460 01cc | | Execute Vector,Catenate
0461 e008 | | Load 0x0,0x8
0462 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0463 00d8 | | Load_Top At_Offset_0
0464 e606 | | Load 0x3,0x6
0465 8218 | | Call 0x1,0x18
0466 8216 | | Call 0x1,0x16
0467 e606 | | Load 0x3,0x6
0468 00d9 | | Load_Top At_Offset_1
0469 0273 | s | Execute Discrete,Plus
046a c606 | | Store 0x3,0x6
046b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
046c 00d8 | | Load_Top At_Offset_0
046d e606 | | Load 0x3,0x6
046e 027a | z | Execute Discrete,Less_Equal
046f 6848 |hH | Jump_Zero 0x4b8
0470 4801 |H | Short_Literal 0x1
0471 4803 |H | Short_Literal 0x3
0472 e603 | | Load 0x3,0x3
0473 01cf | | Execute Vector,Slice_Read
0474 4803 |H | Short_Literal 0x3
0475 e606 | | Load 0x3,0x6
0476 00db | | Load_Top At_Offset_3
0477 0272 | r | Execute Discrete,Minus
0478 00d8 | | Load_Top At_Offset_0
0479 00e3 | | Load_Encached Natural_Cache
047a 0260 | ` | Execute Discrete,In_Type
047b 7001 |p | Jump_Nonzero 0x47d
047c 0801 | | Execute_Immediate Raise,0x1
047d 8218 | | Call 0x1,0x18
047e 01df | | Execute Vector,Equal
047f 6838 |h8 | Jump_Zero 0x4b8
0480 e007 | | Load 0x0,0x7
0481 180e | | Execute Package,Field_Execute,Field_Number 0xe
0482 4807 |H | Short_Literal 0x7
0483 e7ff | | Load 0x3,-0x1
0484 8219 | | Call 0x1,0x19
0485 0092 07be | | Action Push_String_Extended,0x7be ; " duplicated"
0487 01cc | | Execute Vector,Catenate
0488 00db | | Load_Top At_Offset_3
0489 8214 | | Call 0x1,0x14
048a 01cc | | Execute Vector,Catenate
048b 0092 07b8 | | Action Push_String_Extended,0x7b8 ; " bytes"
048d 01cc | | Execute Vector,Catenate
048e e606 | | Load 0x3,0x6
048f e808 | | Load 0x4,0x8
0490 0272 | r | Execute Discrete,Minus
0491 00d8 | | Load_Top At_Offset_0
0492 00e3 | | Load_Encached Natural_Cache
0493 0260 | ` | Execute Discrete,In_Type
0494 7001 |p | Jump_Nonzero 0x496
0495 0801 | | Execute_Immediate Raise,0x1
0496 8214 | | Call 0x1,0x14
0497 01cc | | Execute Vector,Catenate
0498 0092 07bb | | Action Push_String_Extended,0x7bb ; " .."
049a 01cc | | Execute Vector,Catenate
049b e606 | | Load 0x3,0x6
049c 0aff | | Execute_Immediate Plus,-0x1
049d 00d8 | | Load_Top At_Offset_0
049e 00e3 | | Load_Encached Natural_Cache
049f 0260 | ` | Execute Discrete,In_Type
04a0 7001 |p | Jump_Nonzero 0x4a2
04a1 0801 | | Execute_Immediate Raise,0x1
04a2 8214 | | Call 0x1,0x14
04a3 01cc | | Execute Vector,Catenate
04a4 0092 07bc | | Action Push_String_Extended,0x7bc ; ","
04a6 01cc | | Execute Vector,Catenate
04a7 e802 | | Load 0x4,0x2
04a8 8214 | | Call 0x1,0x14
04a9 01cc | | Execute Vector,Catenate
04aa 0092 07bd | | Action Push_String_Extended,0x7bd ; ":"
04ac 01cc | | Execute Vector,Catenate
04ad e008 | | Load 0x0,0x8
04ae 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04af e606 | | Load 0x3,0x6
04b0 00d9 | | Load_Top At_Offset_1
04b1 0272 | r | Execute Discrete,Minus
04b2 c606 | | Store 0x3,0x6
04b3 00d8 | | Load_Top At_Offset_0
04b4 e606 | | Load 0x3,0x6
04b5 8218 | | Call 0x1,0x18
04b6 8216 | | Call 0x1,0x16
04b7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04b8 00c8 | | Action Pop_Auxiliary_Range
04b9 3f6f |?o | Loop_Increasing 0x429
04ba 00ce | | Action Pop_Auxiliary
04bb 602c |`, | Indirect_Literal Discrete,0x4e8,{0x00000000, 0x00000400}
04bc 8803 | | Call 0x4,0x3
04bd 8805 | | Call 0x4,0x5
04be e007 | | Load 0x0,0x7
04bf 180e | | Execute Package,Field_Execute,Field_Number 0xe
04c0 4807 |H | Short_Literal 0x7
04c1 e7ff | | Load 0x3,-0x1
04c2 8219 | | Call 0x1,0x19
04c3 0092 07bf | | Action Push_String_Extended,0x7bf ; " received unrecoverably wrong data:"
04c5 01cc | | Execute Vector,Catenate
04c6 e008 | | Load 0x0,0x8
04c7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04c8 e604 | | Load 0x3,0x4
04c9 a802 | | Store_Unchecked 0x4,0x2
04ca 00db | | Load_Top At_Offset_3
04cb 0c41 | A | Execute_Immediate Greater_Equal,0x41
04cc 6802 |h | Jump_Zero 0x4cf
04cd 4840 |H@ | Short_Literal 0x40
04ce a802 | | Store_Unchecked 0x4,0x2
04cf 4801 |H | Short_Literal 0x1
04d0 e802 | | Load 0x4,0x2
04d1 e603 | | Load 0x3,0x3
04d2 01cf | | Execute Vector,Slice_Read
04d3 8216 | | Call 0x1,0x16
04d4 e007 | | Load 0x0,0x7
04d5 180e | | Execute Package,Field_Execute,Field_Number 0xe
04d6 4807 |H | Short_Literal 0x7
04d7 e7ff | | Load 0x3,-0x1
04d8 8219 | | Call 0x1,0x19
04d9 0092 07c0 | | Action Push_String_Extended,0x7c0 ; " expected:"
04db 01cc | | Execute Vector,Catenate
04dc e008 | | Load 0x0,0x8
04dd 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04de 00db | | Load_Top At_Offset_3
04df e606 | | Load 0x3,0x6
04e0 8218 | | Call 0x1,0x18
04e1 8216 | | Call 0x1,0x16
04e2 4800 |H | Short_Literal 0x0
04e3 a607 | | Store_Unchecked 0x3,0x7
04e4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04e5 0000 0000 | | .XXX[0x3]
04e7 0000 | |
04e8 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
04ec 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
04f0 ; --------------------------------------------------------------------------------------
04f0 ; SUBPROGRAM
04f0 ; --------------------------------------------------------------------------------------
04f0 04f3 | | .CONST 0x04f3 ; Address of begin
04f1 0004 | | .CONST 0x0004 ; Address of exception handler
04f2 0001 | | .CONST 0x0001 ; Number of locals
04f3 BODY_04f0:
04f3 INIT_04f0:
04f3 00d1 | | Pop_Control Pop_Count_1
04f4 00da | | Load_Top At_Offset_2
04f5 01dc | | Execute Vector,Last
04f6 00db | | Load_Top At_Offset_3
04f7 01dd | | Execute Vector,First
04f8 0263 | c | Execute Discrete,Above_Bound
04f9 7006 |p | Jump_Nonzero 0x500
04fa 00d8 | | Load_Top At_Offset_0
04fb e9ff | | Load 0x4,-0x1
04fc 01d5 | | Execute Vector,Field_Reference
04fd 036b | k | Declare_Variable Task,As_Component
04fe 0a01 | | Execute_Immediate Plus,0x1
04ff 7ff8 | | Jump 0x4f8
0500 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0501 0000 0000 | | .BLANK 0000[0x7]
0508 ; --------------------------------------------------------------------------------------
0508 ; SUBPROGRAM
0508 ; --------------------------------------------------------------------------------------
0508 050c | | .CONST 0x050c ; Address of begin
0509 0004 | | .CONST 0x0004 ; Address of exception handler
050a 0002 | | .CONST 0x0002 ; Number of locals
050b INIT_0508:
050b 00e3 | | Load_Encached Natural_Cache
050c BODY_0508:
050c 00cf | | Action Mark_Auxiliary
050d 7834 |x4 | Jump 0x542
050e e603 | | Load 0x3,0x3
050f e604 | | Load 0x3,0x4
0510 0a01 | | Execute_Immediate Plus,0x1
0511 00d8 | | Load_Top At_Offset_0
0512 00e2 | | Load_Encached Integer_Cache
0513 0260 | ` | Execute Discrete,In_Type
0514 7001 |p | Jump_Nonzero 0x516
0515 0801 | | Execute_Immediate Raise,0x1
0516 6039 |`9 | Indirect_Literal Discrete,0x550,{0x00000000, 0x00000400}
0517 00da | | Load_Top At_Offset_2
0518 035b | [ | Declare_Type Array,Constrained
0519 00d0 | | Action Swap_Control
051a 01cd | | Execute Vector,Slice_Reference
051b 00e3 | | Load_Encached Natural_Cache
051c 00d9 | | Load_Top At_Offset_1
051d e006 | | Load 0x0,0x6
051e 1b19 | | Execute Package,Field_Read,Field_Number 0x19
051f 602c |`, | Indirect_Literal Discrete,0x54c,{0x00007fff, 0xffffffff}
0520 e7ff | | Load 0x3,-0x1
0521 e005 | | Load 0x0,0x5
0522 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0523 c602 | | Store 0x3,0x2
0524 00d1 | | Pop_Control Pop_Count_1
0525 005b | [ | Store_Top Discrete,At_Offset_3
0526 00d1 | | Pop_Control Pop_Count_1
0527 0092 07c1 | | Action Push_String_Extended,0x7c1 ; "Transport.Receive"
0529 e602 | | Load 0x3,0x2
052a 821b | | Call 0x1,0x1b
052b 00d9 | | Load_Top At_Offset_1
052c 0d01 | | Execute_Immediate Less,0x1
052d 680f |h | Jump_Zero 0x53d
052e e007 | | Load 0x0,0x7
052f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0530 4807 |H | Short_Literal 0x7
0531 e7ff | | Load 0x3,-0x1
0532 8219 | | Call 0x1,0x19
0533 0092 07b3 | | Action Push_String_Extended,0x7b3 ; " Transport.Receive.Count ="
0535 01cc | | Execute Vector,Catenate
0536 ea02 | | Load 0x5,0x2
0537 00e0 | | Load_Encached Standard_Cache
0538 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0539 01cc | | Execute Vector,Catenate
053a e008 | | Load 0x0,0x8
053b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
053c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
053d e604 | | Load 0x3,0x4
053e 00da | | Load_Top At_Offset_2
053f 0273 | s | Execute Discrete,Plus
0540 c604 | | Store 0x3,0x4
0541 00c9 | | Action Pop_Auxiliary_Loop
0542 e604 | | Load 0x3,0x4
0543 ebff | | Load 0x5,-0x1
0544 027c | | | Execute Discrete,Less
0545 6804 |h | Jump_Zero 0x54a
0546 e604 | | Load 0x3,0x4
0547 6008 |` | Indirect_Literal Discrete,0x550,{0x00000000, 0x00000400}
0548 027c | | | Execute Discrete,Less
0549 77c4 |w | Jump_Nonzero 0x50e
054a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
054b 0000 | | .XXX[0x1]
054c 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
0550 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
0554 0000 0000 | | .BLANK 0000[0x4]
0558 ; --------------------------------------------------------------------------------------
0558 ; SUBPROGRAM
0558 ; --------------------------------------------------------------------------------------
0558 0565 | e | .CONST 0x0565 ; Address of begin
0559 0004 | | .CONST 0x0004 ; Address of exception handler
055a 0002 | | .CONST 0x0002 ; Number of locals
055b INIT_0558:
055b 4801 |H | Short_Literal 0x1
055c e604 | | Load 0x3,0x4
055d e211 | | Load 0x1,0x11
055e 035b | [ | Declare_Type Array,Constrained
055f 0337 | 7 | Declare_Variable Array
0560 e604 | | Load 0x3,0x4
0561 e606 | | Load 0x3,0x6
0562 8218 | | Call 0x1,0x18
0563 00d9 | | Load_Top At_Offset_1
0564 01d4 | | Execute Vector,Structure_Write
0565 BODY_0558:
0565 00cf | | Action Mark_Auxiliary
0566 e604 | | Load 0x3,0x4
0567 4801 |H | Short_Literal 0x1
0568 0263 | c | Execute Discrete,Above_Bound
0569 702c |p, | Jump_Nonzero 0x596
056a 00d8 | | Load_Top At_Offset_0
056b e603 | | Load 0x3,0x3
056c 01d7 | | Execute Vector,Field_Read
056d 00d9 | | Load_Top At_Offset_1
056e ea02 | | Load 0x5,0x2
056f 01d7 | | Execute Vector,Field_Read
0570 027f | | Execute Discrete,Equal
0571 7022 |p" | Jump_Nonzero 0x594
0572 00d8 | | Load_Top At_Offset_0
0573 0aff | | Execute_Immediate Plus,-0x1
0574 c802 | | Store 0x4,0x2
0575 e604 | | Load 0x3,0x4
0576 e802 | | Load 0x4,0x2
0577 0272 | r | Execute Discrete,Minus
0578 c604 | | Store 0x3,0x4
0579 e802 | | Load 0x4,0x2
057a 0a01 | | Execute_Immediate Plus,0x1
057b 00d8 | | Load_Top At_Offset_0
057c 00e2 | | Load_Encached Integer_Cache
057d 0260 | ` | Execute Discrete,In_Type
057e 7001 |p | Jump_Nonzero 0x580
057f 0801 | | Execute_Immediate Raise,0x1
0580 e802 | | Load 0x4,0x2
0581 e604 | | Load 0x3,0x4
0582 0273 | s | Execute Discrete,Plus
0583 00d8 | | Load_Top At_Offset_0
0584 00e2 | | Load_Encached Integer_Cache
0585 0260 | ` | Execute Discrete,In_Type
0586 7001 |p | Jump_Nonzero 0x588
0587 0801 | | Execute_Immediate Raise,0x1
0588 e603 | | Load 0x3,0x3
0589 01cf | | Execute Vector,Slice_Read
058a 4801 |H | Short_Literal 0x1
058b e604 | | Load 0x3,0x4
058c e603 | | Load 0x3,0x3
058d 01ce | | Execute Vector,Slice_Write
058e e606 | | Load 0x3,0x6
058f e802 | | Load 0x4,0x2
0590 0273 | s | Execute Discrete,Plus
0591 c606 | | Store 0x3,0x6
0592 00d2 | | Pop_Control Pop_Count_2
0593 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0594 00c8 | | Action Pop_Auxiliary_Range
0595 3fd4 |? | Loop_Increasing 0x56a
0596 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0597 0000 | | .XXX[0x1]
0598 ; --------------------------------------------------------------------------------------
0598 ; SUBPROGRAM
0598 ; --------------------------------------------------------------------------------------
0598 059e | | .CONST 0x059e ; Address of begin
0599 0004 | | .CONST 0x0004 ; Address of exception handler
059a 0002 | | .CONST 0x0002 ; Number of locals
059b INIT_0598:
059b e604 | | Load 0x3,0x4
059c e606 | | Load 0x3,0x6
059d 8218 | | Call 0x1,0x18
059e BODY_0598:
059e 00cf | | Action Mark_Auxiliary
059f e604 | | Load 0x3,0x4
05a0 0afd | | Execute_Immediate Plus,-0x3
05a1 4801 |H | Short_Literal 0x1
05a2 0263 | c | Execute Discrete,Above_Bound
05a3 7087 |p | Jump_Nonzero 0x62b
05a4 00d8 | | Load_Top At_Offset_0
05a5 0a01 | | Execute_Immediate Plus,0x1
05a6 00d8 | | Load_Top At_Offset_0
05a7 00e2 | | Load_Encached Integer_Cache
05a8 0260 | ` | Execute Discrete,In_Type
05a9 7001 |p | Jump_Nonzero 0x5ab
05aa 0801 | | Execute_Immediate Raise,0x1
05ab e604 | | Load 0x3,0x4
05ac e603 | | Load 0x3,0x3
05ad 01cf | | Execute Vector,Slice_Read
05ae ea02 | | Load 0x5,0x2
05af 01dd | | Execute Vector,First
05b0 00da | | Load_Top At_Offset_2
05b1 0273 | s | Execute Discrete,Plus
05b2 00d8 | | Load_Top At_Offset_0
05b3 00e2 | | Load_Encached Integer_Cache
05b4 0260 | ` | Execute Discrete,In_Type
05b5 7001 |p | Jump_Nonzero 0x5b7
05b6 0801 | | Execute_Immediate Raise,0x1
05b7 ea02 | | Load 0x5,0x2
05b8 01dc | | Execute Vector,Last
05b9 ea02 | | Load 0x5,0x2
05ba 01cf | | Execute Vector,Slice_Read
05bb 01df | | Execute Vector,Equal
05bc 686c |hl | Jump_Zero 0x629
05bd e007 | | Load 0x0,0x7
05be 180e | | Execute Package,Field_Execute,Field_Number 0xe
05bf 4807 |H | Short_Literal 0x7
05c0 e7ff | | Load 0x3,-0x1
05c1 8219 | | Call 0x1,0x19
05c2 0092 07c2 | | Action Push_String_Extended,0x7c2 ; " damaged"
05c4 01cc | | Execute Vector,Catenate
05c5 00db | | Load_Top At_Offset_3
05c6 8214 | | Call 0x1,0x14
05c7 01cc | | Execute Vector,Catenate
05c8 0092 07b8 | | Action Push_String_Extended,0x7b8 ; " bytes"
05ca 01cc | | Execute Vector,Catenate
05cb e606 | | Load 0x3,0x6
05cc 8214 | | Call 0x1,0x14
05cd 01cc | | Execute Vector,Catenate
05ce 0092 07bb | | Action Push_String_Extended,0x7bb ; " .."
05d0 01cc | | Execute Vector,Catenate
05d1 e606 | | Load 0x3,0x6
05d2 ea05 | | Load 0x5,0x5
05d3 0273 | s | Execute Discrete,Plus
05d4 0aff | | Execute_Immediate Plus,-0x1
05d5 00d8 | | Load_Top At_Offset_0
05d6 00e3 | | Load_Encached Natural_Cache
05d7 0260 | ` | Execute Discrete,In_Type
05d8 7001 |p | Jump_Nonzero 0x5da
05d9 0801 | | Execute_Immediate Raise,0x1
05da 8214 | | Call 0x1,0x14
05db 01cc | | Execute Vector,Catenate
05dc 0092 07bc | | Action Push_String_Extended,0x7bc ; ","
05de 01cc | | Execute Vector,Catenate
05df e802 | | Load 0x4,0x2
05e0 8214 | | Call 0x1,0x14
05e1 01cc | | Execute Vector,Catenate
05e2 0092 07bd | | Action Push_String_Extended,0x7bd ; ":"
05e4 01cc | | Execute Vector,Catenate
05e5 e008 | | Load 0x0,0x8
05e6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05e7 4801 |H | Short_Literal 0x1
05e8 00d9 | | Load_Top At_Offset_1
05e9 00d8 | | Load_Top At_Offset_0
05ea 00e2 | | Load_Encached Integer_Cache
05eb 0260 | ` | Execute Discrete,In_Type
05ec 7001 |p | Jump_Nonzero 0x5ee
05ed 0801 | | Execute_Immediate Raise,0x1
05ee e603 | | Load 0x3,0x3
05ef 01cf | | Execute Vector,Slice_Read
05f0 8216 | | Call 0x1,0x16
05f1 e007 | | Load 0x0,0x7
05f2 180e | | Execute Package,Field_Execute,Field_Number 0xe
05f3 4807 |H | Short_Literal 0x7
05f4 e7ff | | Load 0x3,-0x1
05f5 8219 | | Call 0x1,0x19
05f6 0092 07c0 | | Action Push_String_Extended,0x7c0 ; " expected:"
05f8 01cc | | Execute Vector,Catenate
05f9 e008 | | Load 0x0,0x8
05fa 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05fb 00db | | Load_Top At_Offset_3
05fc 01dd | | Execute Vector,First
05fd ea02 | | Load 0x5,0x2
05fe 01dd | | Execute Vector,First
05ff 00da | | Load_Top At_Offset_2
0600 0273 | s | Execute Discrete,Plus
0601 0aff | | Execute_Immediate Plus,-0x1
0602 00d8 | | Load_Top At_Offset_0
0603 00e2 | | Load_Encached Integer_Cache
0604 0260 | ` | Execute Discrete,In_Type
0605 7001 |p | Jump_Nonzero 0x607
0606 0801 | | Execute_Immediate Raise,0x1
0607 ea02 | | Load 0x5,0x2
0608 01cf | | Execute Vector,Slice_Read
0609 8216 | | Call 0x1,0x16
060a e604 | | Load 0x3,0x4
060b 00d9 | | Load_Top At_Offset_1
060c 0272 | r | Execute Discrete,Minus
060d c604 | | Store 0x3,0x4
060e 00d8 | | Load_Top At_Offset_0
060f 0a01 | | Execute_Immediate Plus,0x1
0610 00d8 | | Load_Top At_Offset_0
0611 00e2 | | Load_Encached Integer_Cache
0612 0260 | ` | Execute Discrete,In_Type
0613 7001 |p | Jump_Nonzero 0x615
0614 0801 | | Execute_Immediate Raise,0x1
0615 00d9 | | Load_Top At_Offset_1
0616 e604 | | Load 0x3,0x4
0617 0273 | s | Execute Discrete,Plus
0618 00d8 | | Load_Top At_Offset_0
0619 00e2 | | Load_Encached Integer_Cache
061a 0260 | ` | Execute Discrete,In_Type
061b 7001 |p | Jump_Nonzero 0x61d
061c 0801 | | Execute_Immediate Raise,0x1
061d e603 | | Load 0x3,0x3
061e 01cf | | Execute Vector,Slice_Read
061f 4801 |H | Short_Literal 0x1
0620 e604 | | Load 0x3,0x4
0621 e603 | | Load 0x3,0x3
0622 01ce | | Execute Vector,Slice_Write
0623 e606 | | Load 0x3,0x6
0624 00d9 | | Load_Top At_Offset_1
0625 0273 | s | Execute Discrete,Plus
0626 c606 | | Store 0x3,0x6
0627 00cc | | Action Pop_Block
0628 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0629 00c8 | | Action Pop_Auxiliary_Range
062a 3f79 |?y | Loop_Increasing 0x5a4
062b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
062c 0000 0000 | | .BLANK 0000[0x4]
0630 ; --------------------------------------------------------------------------------------
0630 ; SUBPROGRAM
0630 ; --------------------------------------------------------------------------------------
0630 0655 | U | .CONST 0x0655 ; Address of begin
0631 0726 | & | .CONST 0x0726 ; Address of exception handler
0632 0013 | | .CONST 0x0013 ; Number of locals
0633 INIT_0630:
0633 00bf | | Action Accept_Activation
0634 e001 | | Load 0x0,0x1
0635 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0636 02c7 | | Declare_Variable Any
0637 00d8 | | Load_Top At_Offset_0
0638 1c00 | | Execute_Immediate Run_Utility,0x0
0639 e002 | | Load 0x0,0x2
063a 1b19 | | Execute Package,Field_Read,Field_Number 0x19
063b 4801 |H | Short_Literal 0x1
063c 6127 |a' | Indirect_Literal Discrete,0x764,{0x00000000, 0x00000400}
063d e003 | | Load 0x0,0x3
063e 035b | [ | Declare_Type Array,Constrained
063f 0337 | 7 | Declare_Variable Array
0640 00e3 | | Load_Encached Natural_Cache
0641 00e3 | | Load_Encached Natural_Cache
0642 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0643 00e3 | | Load_Encached Natural_Cache
0644 4800 |H | Short_Literal 0x0
0645 0093 076b | k| push_full_address INIT_0768
0647 00f5 | | Load_Encached Unused21
0648 037d | } | Declare_Type Task,Defined
0649 036f | o | Declare_Variable Task
064a e002 | | Load 0x0,0x2
064b e003 | | Load 0x0,0x3
064c 1d0d | | Execute_Immediate Reference_Lex_1,0xd
064d e001 | | Load 0x0,0x1
064e e004 | | Load 0x0,0x4
064f a005 | | Store_Unchecked 0x0,0x5
0650 e006 | | Load 0x0,0x6
0651 4807 |H | Short_Literal 0x7
0652 e213 | | Load 0x1,0x13
0653 020e | | Execute Module,Augment_Imports
0654 00bc | | Action Signal_Activated
0655 BODY_0630:
0655 00be | | Action Activate_Tasks
0656 e002 | | Load 0x0,0x2
0657 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0658 e20d | | Load 0x1,0xd
0659 0120 | | Execute Any,Is_Value
065a 6803 |h | Jump_Zero 0x65e
065b e001 | | Load 0x0,0x1
065c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
065d 7801 |x | Jump 0x65f
065e e20d | | Load 0x1,0xd
065f e002 | | Load 0x0,0x2
0660 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0661 e007 | | Load 0x0,0x7
0662 e001 | | Load 0x0,0x1
0663 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0664 c20d | | Store 0x1,0xd
0665 c20e | | Store 0x1,0xe
0666 e20d | | Load 0x1,0xd
0667 8005 | | Call 0x0,0x5
0668 0092 07c3 | | Action Push_String_Extended,0x7c3 ; " Transport.Open"
066a 01cc | | Execute Vector,Catenate
066b e20e | | Load 0x1,0xe
066c 8008 | | Call 0x0,0x8
066d 00cf | | Action Mark_Auxiliary
066e e009 | | Load 0x0,0x9
066f 4803 |H | Short_Literal 0x3
0670 0271 | q | Execute Discrete,Times
0671 00d8 | | Load_Top At_Offset_0
0672 00e2 | | Load_Encached Integer_Cache
0673 0260 | ` | Execute Discrete,In_Type
0674 7001 |p | Jump_Nonzero 0x676
0675 0801 | | Execute_Immediate Raise,0x1
0676 4801 |H | Short_Literal 0x1
0677 0263 | c | Execute Discrete,Above_Bound
0678 7012 |p | Jump_Nonzero 0x68b
0679 e002 | | Load 0x0,0x2
067a 1b19 | | Execute Package,Field_Read,Field_Number 0x19
067b 60e4 |` | Indirect_Literal Discrete,0x760,{0x00007fff, 0xffffffff}
067c e00a | | Load 0x0,0xa
067d e00b | | Load 0x0,0xb
067e e20d | | Load 0x1,0xd
067f e001 | | Load 0x0,0x1
0680 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0681 c20e | | Store 0x1,0xe
0682 e20e | | Load 0x1,0xe
0683 0f09 | | Execute_Immediate Equal,0x9
0684 7002 |p | Jump_Nonzero 0x687
0685 00d2 | | Pop_Control Pop_Count_2
0686 7804 |x | Jump 0x68b
0687 60d4 |` | Indirect_Literal Discrete,0x75c,{0x00000000, 0x00008000}
0688 00ba | | Action Initiate_Delay
0689 00c8 | | Action Pop_Auxiliary_Range
068a 3fee |? | Loop_Increasing 0x679
068b 00ce | | Action Pop_Auxiliary
068c e20d | | Load 0x1,0xd
068d 8005 | | Call 0x0,0x5
068e 0092 07c4 | | Action Push_String_Extended,0x7c4 ; " Transport.Connect"
0690 01cc | | Execute Vector,Catenate
0691 e20e | | Load 0x1,0xe
0692 8008 | | Call 0x0,0x8
0693 4801 |H | Short_Literal 0x1
0694 c00c | | Store 0x0,0xc
0695 e004 | | Load 0x0,0x4
0696 180e | | Execute Package,Field_Execute,Field_Number 0xe
0697 4802 |H | Short_Literal 0x2
0698 e20d | | Load 0x1,0xd
0699 8005 | | Call 0x0,0x5
069a 0092 07b0 | | Action Push_String_Extended,0x7b0 ; " connected."
069c 01cc | | Execute Vector,Catenate
069d e006 | | Load 0x0,0x6
069e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
069f 4800 |H | Short_Literal 0x0
06a0 00d9 | | Load_Top At_Offset_1
06a1 170d | | Execute Task,Entry_Call,Field_Number 0xd
06a2 e20d | | Load 0x1,0xd
06a3 e001 | | Load 0x0,0x1
06a4 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
06a5 800d | | Call 0x0,0xd
06a6 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
06a7 00cf | | Action Mark_Auxiliary
06a8 785b |x[ | Jump 0x704
06a9 e00e | | Load 0x0,0xe
06aa e211 | | Load 0x1,0x11
06ab 0272 | r | Execute Discrete,Minus
06ac 60b7 |` | Indirect_Literal Discrete,0x764,{0x00000000, 0x00000400}
06ad 027c | | | Execute Discrete,Less
06ae 6821 |h! | Jump_Zero 0x6d0
06af e00e | | Load 0x0,0xe
06b0 e211 | | Load 0x1,0x11
06b1 0272 | r | Execute Discrete,Minus
06b2 00d8 | | Load_Top At_Offset_0
06b3 00e3 | | Load_Encached Natural_Cache
06b4 0260 | ` | Execute Discrete,In_Type
06b5 7001 |p | Jump_Nonzero 0x6b7
06b6 0801 | | Execute_Immediate Raise,0x1
06b7 00db | | Load_Top At_Offset_3
06b8 800f | | Call 0x0,0xf
06b9 4801 |H | Short_Literal 0x1
06ba e00e | | Load 0x0,0xe
06bb e211 | | Load 0x1,0x11
06bc 0272 | r | Execute Discrete,Minus
06bd e20f | | Load 0x1,0xf
06be 01ce | | Execute Vector,Slice_Write
06bf 00e3 | | Load_Encached Natural_Cache
06c0 e002 | | Load 0x0,0x2
06c1 1b19 | | Execute Package,Field_Read,Field_Number 0x19
06c2 4800 |H | Short_Literal 0x0
06c3 609c |` | Indirect_Literal Discrete,0x760,{0x00007fff, 0xffffffff}
06c4 4801 |H | Short_Literal 0x1
06c5 e00e | | Load 0x0,0xe
06c6 e211 | | Load 0x1,0x11
06c7 0272 | r | Execute Discrete,Minus
06c8 e20f | | Load 0x1,0xf
06c9 01cf | | Execute Vector,Slice_Read
06ca e20d | | Load 0x1,0xd
06cb e001 | | Load 0x0,0x1
06cc 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
06cd c20e | | Store 0x1,0xe
06ce c210 | | Store 0x1,0x10
06cf 7810 |x | Jump 0x6e0
06d0 6093 |` | Indirect_Literal Discrete,0x764,{0x00000000, 0x00000400}
06d1 00db | | Load_Top At_Offset_3
06d2 800f | | Call 0x0,0xf
06d3 e20f | | Load 0x1,0xf
06d4 01d4 | | Execute Vector,Structure_Write
06d5 00e3 | | Load_Encached Natural_Cache
06d6 e002 | | Load 0x0,0x2
06d7 1b19 | | Execute Package,Field_Read,Field_Number 0x19
06d8 4800 |H | Short_Literal 0x0
06d9 6086 |` | Indirect_Literal Discrete,0x760,{0x00007fff, 0xffffffff}
06da e20f | | Load 0x1,0xf
06db e20d | | Load 0x1,0xd
06dc e001 | | Load 0x0,0x1
06dd 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
06de c20e | | Store 0x1,0xe
06df c210 | | Store 0x1,0x10
06e0 e20d | | Load 0x1,0xd
06e1 8005 | | Call 0x0,0x5
06e2 0092 07c5 | | Action Push_String_Extended,0x7c5 ; " Transport.Transmit"
06e4 01cc | | Execute Vector,Catenate
06e5 e20e | | Load 0x1,0xe
06e6 8008 | | Call 0x0,0x8
06e7 e210 | | Load 0x1,0x10
06e8 0d01 | | Execute_Immediate Less,0x1
06e9 680f |h | Jump_Zero 0x6f9
06ea e004 | | Load 0x0,0x4
06eb 180e | | Execute Package,Field_Execute,Field_Number 0xe
06ec 4807 |H | Short_Literal 0x7
06ed e20d | | Load 0x1,0xd
06ee 8005 | | Call 0x0,0x5
06ef 0092 07c6 | | Action Push_String_Extended,0x7c6 ; " Transport.Transmit.Count ="
06f1 01cc | | Execute Vector,Catenate
06f2 e210 | | Load 0x1,0x10
06f3 00e0 | | Load_Encached Standard_Cache
06f4 1818 | | Execute Package,Field_Execute,Field_Number 0x18
06f5 01cc | | Execute Vector,Catenate
06f6 e006 | | Load 0x0,0x6
06f7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06f8 7808 |x | Jump 0x701
06f9 00da | | Load_Top At_Offset_2
06fa e210 | | Load 0x1,0x10
06fb 0273 | s | Execute Discrete,Plus
06fc 005b | [ | Store_Top Discrete,At_Offset_3
06fd 00db | | Load_Top At_Offset_3
06fe e210 | | Load 0x1,0x10
06ff 0273 | s | Execute Discrete,Plus
0700 c211 | | Store 0x1,0x11
0701 e010 | | Load 0x0,0x10
0702 00ba | | Action Initiate_Delay
0703 00c9 | | Action Pop_Auxiliary_Loop
0704 00db | | Load_Top At_Offset_3
0705 e00e | | Load 0x0,0xe
0706 027c | | | Execute Discrete,Less
0707 77a1 |w | Jump_Nonzero 0x6a9
0708 00ce | | Action Pop_Auxiliary
0709 e004 | | Load 0x0,0x4
070a 180e | | Execute Package,Field_Execute,Field_Number 0xe
070b 4803 |H | Short_Literal 0x3
070c e20d | | Load 0x1,0xd
070d 8005 | | Call 0x0,0x5
070e 0092 07c7 | | Action Push_String_Extended,0x7c7 ; " transmitted"
0710 01cc | | Execute Vector,Catenate
0711 e211 | | Load 0x1,0x11
0712 00e0 | | Load_Encached Standard_Cache
0713 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0714 01cc | | Execute Vector,Catenate
0715 0092 07b6 | | Action Push_String_Extended,0x7b6 ; " bytes."
0717 01cc | | Execute Vector,Catenate
0718 e006 | | Load 0x0,0x6
0719 1813 | | Execute Package,Field_Execute,Field_Number 0x13
071a e011 | | Load 0x0,0x11
071b 00ba | | Action Initiate_Delay
071c 00d8 | | Load_Top At_Offset_0
071d 0209 | | Execute Task,Abort
071e 0007 | | Action Break_Optional
071f e20d | | Load 0x1,0xd
0720 e001 | | Load 0x0,0x1
0721 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0722 e20d | | Load 0x1,0xd
0723 e001 | | Load 0x0,0x1
0724 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0725 00bb | | Action Signal_Completion
0726 TRAP_0630:
0726 e012 | | Load 0x0,0x12
0727 010f | | Execute Exception,Equal
0728 6815 |h | Jump_Zero 0x73e
0729 e004 | | Load 0x0,0x4
072a 180e | | Execute Package,Field_Execute,Field_Number 0xe
072b 4808 |H | Short_Literal 0x8
072c e20d | | Load 0x1,0xd
072d 8005 | | Call 0x0,0x5
072e 0092 07c7 | | Action Push_String_Extended,0x7c7 ; " transmitted"
0730 01cc | | Execute Vector,Catenate
0731 e211 | | Load 0x1,0x11
0732 00e0 | | Load_Encached Standard_Cache
0733 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0734 01cc | | Execute Vector,Catenate
0735 0092 07b6 | | Action Push_String_Extended,0x7b6 ; " bytes."
0737 01cc | | Execute Vector,Catenate
0738 e006 | | Load 0x0,0x6
0739 1813 | | Execute Package,Field_Execute,Field_Number 0x13
073a e20d | | Load 0x1,0xd
073b e001 | | Load 0x0,0x1
073c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
073d 00bb | | Action Signal_Completion
073e e004 | | Load 0x0,0x4
073f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0740 4807 |H | Short_Literal 0x7
0741 4801 |H | Short_Literal 0x1
0742 4801 |H | Short_Literal 0x1
0743 e013 | | Load 0x0,0x13
0744 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0745 e006 | | Load 0x0,0x6
0746 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0747 e004 | | Load 0x0,0x4
0748 180e | | Execute Package,Field_Execute,Field_Number 0xe
0749 4808 |H | Short_Literal 0x8
074a e20d | | Load 0x1,0xd
074b 8005 | | Call 0x0,0x5
074c 0092 07c7 | | Action Push_String_Extended,0x7c7 ; " transmitted"
074e 01cc | | Execute Vector,Catenate
074f e211 | | Load 0x1,0x11
0750 00e0 | | Load_Encached Standard_Cache
0751 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0752 01cc | | Execute Vector,Catenate
0753 0092 07b6 | | Action Push_String_Extended,0x7b6 ; " bytes."
0755 01cc | | Execute Vector,Catenate
0756 e006 | | Load 0x0,0x6
0757 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0758 e20d | | Load 0x1,0xd
0759 e001 | | Load 0x0,0x1
075a 181b | | Execute Package,Field_Execute,Field_Number 0x1b
075b 00bb | | Action Signal_Completion
075c 0000 0000 | | .LITERAL {0x00000000, 0x00008000}
0760 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
0764 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
0768 ; --------------------------------------------------------------------------------------
0768 ; SUBPROGRAM
0768 ; --------------------------------------------------------------------------------------
0768 077e | ~ | .CONST 0x077e ; Address of begin
0769 0004 | | .CONST 0x0004 ; Address of exception handler
076a 0011 | | .CONST 0x0011 ; Number of locals
076b INIT_0768:
076b 4800 |H | Short_Literal 0x0
076c 02cb | | Declare_Variable Entry
076d 00bf | | Action Accept_Activation
076e e001 | | Load 0x0,0x1
076f 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0770 4801 |H | Short_Literal 0x1
0771 67f2 |g | Indirect_Literal Discrete,0x764,{0x00000000, 0x00000400}
0772 e002 | | Load 0x0,0x2
0773 035b | [ | Declare_Type Array,Constrained
0774 0337 | 7 | Declare_Variable Array
0775 00e3 | | Load_Encached Natural_Cache
0776 480d 48f5 |H H | Declare_Variable Select 0x000, 0x001,
0778 4800 4801 |H H | [0x000]: 0x001 = 0x0008,
077a 4800 4801 |H H | [0x00d]: 0x0f5 = 0x07a8
077c 02cf | |
077d 00bc | | Action Signal_Activated
077e BODY_0768:
077e 00d8 | | Load_Top At_Offset_0
077f 013f | ? | Execute Select,Rendezvous
0780 00d1 | | Pop_Control Pop_Count_1
0781 00cf | | Action Mark_Auxiliary
0782 00e3 | | Load_Encached Natural_Cache
0783 e20f | | Load 0x1,0xf
0784 e001 | | Load 0x0,0x1
0785 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0786 67d9 |g | Indirect_Literal Discrete,0x760,{0x00007fff, 0xffffffff}
0787 e003 | | Load 0x0,0x3
0788 e004 | | Load 0x0,0x4
0789 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
078a c20e | | Store 0x1,0xe
078b 00d1 | | Pop_Control Pop_Count_1
078c 005b | [ | Store_Top Discrete,At_Offset_3
078d e20e | | Load 0x1,0xe
078e 7013 |p | Jump_Nonzero 0x7a2
078f e005 | | Load 0x0,0x5
0790 180e | | Execute Package,Field_Execute,Field_Number 0xe
0791 4807 |H | Short_Literal 0x7
0792 e003 | | Load 0x0,0x3
0793 8006 | | Call 0x0,0x6
0794 0092 07c8 | | Action Push_String_Extended,0x7c8 ; "received"
0796 01cc | | Execute Vector,Catenate
0797 e210 | | Load 0x1,0x10
0798 00e0 | | Load_Encached Standard_Cache
0799 1818 | | Execute Package,Field_Execute,Field_Number 0x18
079a 01cc | | Execute Vector,Catenate
079b 0092 07b8 | | Action Push_String_Extended,0x7b8 ; " bytes"
079d 01cc | | Execute Vector,Catenate
079e e007 | | Load 0x0,0x7
079f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
07a0 00c9 | | Action Pop_Auxiliary_Loop
07a1 7fe0 | | Jump 0x782
07a2 00ce | | Action Pop_Auxiliary
07a3 00bb | | Action Signal_Completion
07a4 0000 0000 | | .BLANK 0000[0x4]
07a8 ; --------------------------------------------------------------------------------------
07a8 ; SUBPROGRAM
07a8 ; See instruction 0x02cf at 0x776, index=0xd
07a8 ; --------------------------------------------------------------------------------------
07a8 07ab | | .CONST 0x07ab ; Address of begin
07a9 0004 | | .CONST 0x0004 ; Address of exception handler
07aa 0001 | | .CONST 0x0001 ; Number of locals
07ab BODY_07a8:
07ab INIT_07a8:
07ab 4100 |A | End_Rendezvous 0x0
07ac ; --------------------------------------------------------------------------------------
07ac ; STRING TABLE
07ac ; --------------------------------------------------------------------------------------
07ac 003c | < | .STRTAB 0x003c->0x07ca ; "Not connected"
07ad 0047 | G | .STRTAB 0x0047->0x07d0 ; " #"
07ae 0047 | G | .STRTAB 0x0047->0x07d1 ; ", "
07af 0047 | G | .STRTAB 0x0047->0x07d2 ; ".Status = "
07b0 004f | O | .STRTAB 0x004f->0x07d7 ; " connected."
07b1 0058 | X | .STRTAB 0x0058->0x07dd ; " error detected; stopped."
07b2 006f | o | .STRTAB 0x006f->0x07e9 ; " Transport.Receive"
07b3 007f | | .STRTAB 0x007f->0x07f2 ; " Transport.Receive.Count ="
07b4 0097 | | .STRTAB 0x0097->0x07ff ; " error at byte"
07b5 00a3 | | .STRTAB 0x00a3->0x0806 ; " received"
07b6 00aa | | .STRTAB 0x00aa->0x080b ; " bytes."
07b7 00af | | .STRTAB 0x00af->0x080e ; " not"
07b8 00b1 | | .STRTAB 0x00b1->0x0810 ; " bytes"
07b9 00b5 | | .STRTAB 0x00b5->0x0813 ; "server started"
07ba 00c1 | | .STRTAB 0x00c1->0x081a ; " lost"
07bb 00c4 | | .STRTAB 0x00c4->0x081d ; " .."
07bc 00c5 | | .STRTAB 0x00c5->0x081e ; ","
07bd 00c4 | | .STRTAB 0x00c4->0x081f ; ":"
07be 00c3 | | .STRTAB 0x00c3->0x081f ; " duplicated"
07bf 00cc | | .STRTAB 0x00cc->0x0825 ; " received unrecoverably wrong data:"
07c0 00ed | | .STRTAB 0x00ed->0x0836 ; " expected:"
07c1 00f5 | | .STRTAB 0x00f5->0x083b ; "Transport.Receive"
07c2 0104 | | .STRTAB 0x0104->0x0844 ; " damaged"
07c3 010a | | .STRTAB 0x010a->0x0848 ; " Transport.Open"
07c4 0117 | | .STRTAB 0x0117->0x084f ; " Transport.Connect"
07c5 0127 | ' | .STRTAB 0x0127->0x0858 ; " Transport.Transmit"
07c6 0138 | 8 | .STRTAB 0x0138->0x0862 ; " Transport.Transmit.Count ="
07c7 0151 | Q | .STRTAB 0x0151->0x086f ; " transmitted"
07c8 015b | [ | .STRTAB 0x015b->0x0875 ; "received"
07c9 0161 | a | .STREND 0x0161->0x0879
07ca 4e6f 7420 |Not | .STRTAB_STRINGS
087a 0000 0000 | | .BLANK 0000[0x6]
0880 ; --------------------------------------------------------------------------------------
0880 ; Debug Table
0880 ; --------------------------------------------------------------------------------------
0880 0004 000c | | .DEBUG4 0x0004,0x000c,0xd684,0x0000,0x0001,0x0000
0886 0000 000a | | .XXX[0x7]
0888 0000 000a | |
088a 8000 0000 | |
088c 1000 | |
088d 0000 0000 | | .BLANK 0000[0x5]
0892 1000 0000 | | .XXX[0x11b]
0894 d523 1303 | # |
0896 0305 f574 | t|
0898 f524 b494 | $ |
089a e471 48c4 | qH |
089c c0c0 c131 | 1|
089e 3d05 11c1 |= |
08a0 c9bd 8d95 | |
08a2 91d5 c994 | |
08a4 814d a1bd | M |
08a6 dd7d 05b1 | } |
08a8 b17d 3595 | }5 |
08aa cdcd 859d | |
08ac 95cc eddd | |
08ae a5d1 a081 | |
08b0 4da1 bddd |M |
08b2 7d21 95b1 |}! |
08b4 b1bc ec29 | )|
08b6 dda5 d1a0 | |
08b8 814d a1bd | M |
08ba dd7d 1985 | } |
08bc b5a5 b1e4 | |
08be ec29 c1c9 | ) |
08c0 bd8d 9591 | |
08c2 d5c9 9481 | |
08c4 4da1 bddd |M |
08c6 7d05 b1b1 |} |
08c8 7d35 95cd |}5 |
08ca cd85 9d95 | |
08cc cc81 a5cc | |
08ce 2989 959d |) |
08d0 a5b8 2880 | ( |
08d2 8080 814d | M|
08d4 a1bd dd7d | }|
08d6 2195 b1b1 |! |
08d8 bcec 2880 | ( |
08da 8080 814d | M|
08dc a1bd dd7d | }|
08de 1985 b5a5 | |
08e0 b1e4 ec29 | )|
08e2 95b9 9081 | |
08e4 4da1 bddd |M |
08e6 7d05 b1b1 |} |
08e8 7d35 95cd |}5 |
08ea cd85 9d95 | |
08ec ccec 29c1 | ) |
08ee c985 9db5 | |
08f0 8481 3585 | 5 |
08f2 a5b8 edc1 | |
08f4 c9bd 8d95 | |
08f6 91d5 c994 | |
08f8 814d a1bd | M |
08fa dd7d 1985 | } |
08fc b5a5 b1e4 | |
08fe eddd a5d1 | |
0900 a081 5195 | Q |
0902 e1d1 7d25 | }%|
0904 bcec 29c1 | ) |
0906 c9bd 8d95 | |
0908 91d5 c994 | |
090a 814d a1bd | M |
090c dd7d 1985 | } |
090e b5a5 b1e4 | |
0910 81a5 cc29 | )|
0912 8995 9da5 | |
0914 b828 8080 | ( |
0916 8081 5195 | Q |
0918 e1d1 7d25 | }%|
091a bcb9 41d5 | A |
091c d17d 31a5 | }1 |
091e b994 80a1 | |
0920 25d1 95b4 |% |
0922 80f4 f880 | |
0924 8948 c4c0 | H |
0926 c0c0 88a4 | |
0928 ec29 95b9 | ) |
092a 9081 4da1 | M |
092c bddd 7d19 | } |
092e 85b5 a5b1 | |
0930 e4ed c1c9 | |
0932 bd8d 9591 | |
0934 d5c9 9481 | |
0936 4da1 bddd |M |
0938 7d21 95b1 |}! |
093a b1bc eddd | |
093c a5d1 a081 | |
093e 5195 e1d1 |Q |
0940 7d25 bcec |}% |
0942 29c1 c9bd |) |
0944 8d95 91d5 | |
0946 c994 814d | M|
0948 a1bd dd7d | }|
094a 2195 b1b1 |! |
094c bc81 a5cc | |
094e 2989 959d |) |
0950 a5b8 2880 | ( |
0952 8080 8151 | Q|
0954 95e1 d17d | }|
0956 25bc b941 |% A|
0958 d5d1 7d31 | }1|
095a a5b9 9480 | |
095c a125 d195 | % |
095e b480 f4f8 | |
0960 8089 a195 | |
0962 b1bc 81dd | |
0964 95c9 b190 | |
0966 88a4 ec29 | )|
0968 95b9 9081 | |
096a 4da1 bddd |M |
096c 7d21 95b1 |}! |
096e b1bc ed41 | A|
0970 4925 3505 |I%5 |
0972 4964 80f4 |Id |
0974 f881 5149 | QI|
0976 5514 294d |U )M|
0978 5509 4d65 |U Me|
097a 4d51 1534 |MQ 4|
097c 80f4 f880 | |
097e 80c4 e0dc | |
0980 e0dc d0cc | |
0982 c8d4 cce4 | |
0984 d0c8 c8dc | |
0986 dc29 4149 | )AI|
0988 2535 0549 |%5 I|
098a 657d 3905 |e}9 |
098c 3514 80f4 |5 |
098e f880 8555 | U|
0990 4d15 494c |M IL|
0992 b90d 1119 | |
0994 7d35 0cd8 |}5 |
0996 e0c0 c8c1 | |
0998 7d09 0549 |} I|
099a 157d 3505 | }5 |
099c 4d51 1548 |MQ H|
099e b935 154d | 5 M|
09a0 4d05 1d15 |M |
09a2 4c00 067d |L }|
09a4 ecb9 b6e0 | |
09a6 c000 0000 | |
09a8 0000 040b | |
09aa 5800 0631 |X 1|
09ac d800 | |
09ad 0000 0000 | | .BLANK 0000[0x4]
09b1 0a4f d800 | O | .XXX[0x6]
09b3 01fd 5800 | X |
09b5 00fd 5800 | X |
09b7 0000 0000 | | .BLANK 0000[0x10]
09c7 03fb d800 | | .XXX[0xe]
09c9 05fb d800 | |
09cb 0000 0000 | |
09cd 24fb d800 |$ |
09cf 09fb d800 | |
09d1 06fb d800 | |
09d3 04fb d800 | |
09d5 0000 0000 | | .BLANK 0000[0x18]
09ed 1000 | | .XXX[0x1]
09ee 0000 0000 | | .BLANK 0000[0xa]
09f8 000c 7cc5 | | | .XXX[0x8]
09fa 4071 c1d5 |@q |
09fc 0003 f510 | |
09fe e9d0 f408 | |