DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦a297ea1a9⟧

    Length: 5120 (0x1400)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_11cacfe

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

Disassembly

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 08b0       |    |		.CONST	0x08b0								; 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 0010       |    |		.CONST	0x0010								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0001       |    |		.CONST	0x0001								; Number of locals
000b			INIT_0008:
000b 029a 001b  |    |		Declare_Subprogram	INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf       |    |		Action	Accept_Activation
000e 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
000f 00c7       |    |		Action	Elaborate_Subprogram
0010			BODY_0008:
0010 00bc       |    |		Action	Signal_Activated
0011 00bb       |    |		Action	Signal_Completion
0012 0000 0000  |    |		.BLANK	0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 00b0       |    |		.CONST	0x00b0								; Address of begin
0019 00b3       |    |		.CONST	0x00b3								; Address of exception handler
001a 001c       |    |		.CONST	0x001c								; Number of locals
001b			INIT_0018:
001b e001       |    |		Load	0x0,0x1
001c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
001d e001       |    |		Load	0x0,0x1
001e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
001f e5ef       |    |		Load	0x2,-0x11
0020 e002       |    |		Load	0x0,0x2
0021 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0022 e003       |    |		Load	0x0,0x3
0023 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0024 02c7       |    |		Declare_Variable	Any
0025 00d8       |    |		Load_Top	At_Offset_0
0026 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0027 e003       |    |		Load	0x0,0x3
0028 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0029 02c7       |    |		Declare_Variable	Any
002a 00d8       |    |		Load_Top	At_Offset_0
002b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
002c 00e3       |    |		Load_Encached	Natural_Cache
002d 00e3       |    |		Load_Encached	Natural_Cache
002e 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
002f 00e1       |    |		Load_Encached	Boolean_Cache
0030 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0031 00e1       |    |		Load_Encached	Boolean_Cache
0032 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0033 e004       |    |		Load	0x0,0x4
0034 e005       |    |		Load	0x0,0x5
0035 4ffd       |O   |		Short_Literal	-0x3
0036 4802       |H   |		Short_Literal	0x2
0037 0099       |    |		Action	Reference_Dynamic
0038 4ffe       |O   |		Short_Literal	-0x2
0039 4802       |H   |		Short_Literal	0x2
003a 0099       |    |		Action	Reference_Dynamic
003b e006       |    |		Load	0x0,0x6
003c 0387       |    |		Declare_Variable	Package
003d 00d8       |    |		Load_Top	At_Offset_0
003e 020f       |    |		Execute	Module,Activate
003f 4800       |H   |		Short_Literal	0x0
0040 0093 05bb  |    |		push_full_address	INIT_05b8
0042 00f5       |    |		Load_Encached	Unused21
0043 037d       | }  |		Declare_Type	Task,Defined
0044 036f       | o  |		Declare_Variable	Task
0045 4800       |H   |		Short_Literal	0x0
0046 0093 04cb  |    |		push_full_address	INIT_04c8
0048 00f5       |    |		Load_Encached	Unused21
0049 037d       | }  |		Declare_Type	Task,Defined
004a 036f       | o  |		Declare_Variable	Task
004b 00da       |    |		Load_Top	At_Offset_2
004c 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
004d 0322       | "  |		Declare_Variable	Record
004e 00d8       |    |		Load_Top	At_Offset_0
004f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0050 00db       |    |		Load_Top	At_Offset_3
0051 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0052 0322       | "  |		Declare_Variable	Record
0053 00d8       |    |		Load_Top	At_Offset_0
0054 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0055 e007       |    |		Load	0x0,0x7
0056 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0057 00d8       |    |		Load_Top	At_Offset_0
0058 0007       |    |		Action	Break_Optional
0059 029f 011b  |    |		Declare_Subprogram	INIT_0118,For_Call
005b 029f 012b  |   +|		Declare_Subprogram	INIT_0128,For_Call
005d 029f 0143  |   C|		Declare_Subprogram	INIT_0140,For_Call
005f 029f 017b  |   {|		Declare_Subprogram	INIT_0178,For_Call
0061 029f 019b  |    |		Declare_Subprogram	INIT_0198,For_Call
0063 029f 01b3  |    |		Declare_Subprogram	INIT_01b0,For_Call
0065 029f 01db  |    |		Declare_Subprogram	INIT_01d8,For_Call
0067 029f 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Call
0069 029f 020b  |    |		Declare_Subprogram	INIT_0208,For_Call
006b 029f 021b  |    |		Declare_Subprogram	INIT_0218,For_Call
006d e008       |    |		Load	0x0,0x8
006e 4806       |H   |		Short_Literal	0x6
006f 4802       |H   |		Short_Literal	0x2
0070 0099       |    |		Action	Reference_Dynamic
0071 e003       |    |		Load	0x0,0x3
0072 e009       |    |		Load	0x0,0x9
0073 e00a       |    |		Load	0x0,0xa
0074 481a       |H   |		Short_Literal	0x1a
0075 4802       |H   |		Short_Literal	0x2
0076 0099       |    |		Action	Reference_Dynamic
0077 e404       |    |		Load	0x2,0x4
0078 4812       |H   |		Short_Literal	0x12
0079 4802       |H   |		Short_Literal	0x2
007a 0099       |    |		Action	Reference_Dynamic
007b e403       |    |		Load	0x2,0x3
007c 481b       |H   |		Short_Literal	0x1b
007d 4802       |H   |		Short_Literal	0x2
007e 0099       |    |		Action	Reference_Dynamic
007f e002       |    |		Load	0x0,0x2
0080 e40f       |    |		Load	0x2,0xf
0081 e40b       |    |		Load	0x2,0xb
0082 4809       |H   |		Short_Literal	0x9
0083 4802       |H   |		Short_Literal	0x2
0084 0099       |    |		Action	Reference_Dynamic
0085 e00b       |    |		Load	0x0,0xb
0086 480f       |H   |		Short_Literal	0xf
0087 e40c       |    |		Load	0x2,0xc
0088 020e       |    |		Execute	Module,Augment_Imports
0089 0007       |    |		Action	Break_Optional
008a e00c       |    |		Load	0x0,0xc
008b e403       |    |		Load	0x2,0x3
008c e008       |    |		Load	0x0,0x8
008d e00d       |    |		Load	0x0,0xd
008e e5f7       |    |		Load	0x2,-0x9
008f e5f3       |    |		Load	0x2,-0xd
0090 4805       |H   |		Short_Literal	0x5
0091 4802       |H   |		Short_Literal	0x2
0092 0099       |    |		Action	Reference_Dynamic
0093 e00b       |    |		Load	0x0,0xb
0094 e404       |    |		Load	0x2,0x4
0095 e002       |    |		Load	0x0,0x2
0096 4812       |H   |		Short_Literal	0x12
0097 4802       |H   |		Short_Literal	0x2
0098 0099       |    |		Action	Reference_Dynamic
0099 e003       |    |		Load	0x0,0x3
009a e00e       |    |		Load	0x0,0xe
009b 4813       |H   |		Short_Literal	0x13
009c 4802       |H   |		Short_Literal	0x2
009d 0099       |    |		Action	Reference_Dynamic
009e 481a       |H   |		Short_Literal	0x1a
009f 4802       |H   |		Short_Literal	0x2
00a0 0099       |    |		Action	Reference_Dynamic
00a1 e009       |    |		Load	0x0,0x9
00a2 e00a       |    |		Load	0x0,0xa
00a3 e5f1       |    |		Load	0x2,-0xf
00a4 e5f0       |    |		Load	0x2,-0x10
00a5 e00f       |    |		Load	0x0,0xf
00a6 e007       |    |		Load	0x0,0x7
00a7 4811       |H   |		Short_Literal	0x11
00a8 4802       |H   |		Short_Literal	0x2
00a9 0099       |    |		Action	Reference_Dynamic
00aa e010       |    |		Load	0x0,0x10
00ab 4817       |H   |		Short_Literal	0x17
00ac e40d       |    |		Load	0x2,0xd
00ad 020e       |    |		Execute	Module,Augment_Imports
00ae 029f 0233  |   3|		Declare_Subprogram	INIT_0230,For_Call
00b0			BODY_0018:
00b0 00be       |    |		Action	Activate_Tasks
00b1 841c       |    |		Call	0x2,0x1c
00b2 4512       |E   |		Exit_Suprogram	New_Top_Offset 0x12
00b3			TRAP_0018:
00b3 e011       |    |		Load	0x0,0x11
00b4 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
00b5 010f       |    |		Execute	Exception,Equal
00b6 6815       |h   |		Jump_Zero	0xcc
00b7 0092 06a6  |    |		Action	Push_String_Extended,0x6a6					; "Aborting remote shell: Remote machine unknown"
00b9 841a       |    |		Call	0x2,0x1a
00ba e40e       |    |		Load	0x2,0xe
00bb e40b       |    |		Load	0x2,0xb
00bc 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00bd 00d1       |    |		Pop_Control	Pop_Count_1
00be e40f       |    |		Load	0x2,0xf
00bf e40b       |    |		Load	0x2,0xb
00c0 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00c1 00d1       |    |		Pop_Control	Pop_Count_1
00c2 e40c       |    |		Load	0x2,0xc
00c3 0209       |    |		Execute	Task,Abort
00c4 0007       |    |		Action	Break_Optional
00c5 e40d       |    |		Load	0x2,0xd
00c6 0209       |    |		Execute	Task,Abort
00c7 0007       |    |		Action	Break_Optional
00c8 e5ef       |    |		Load	0x2,-0x11
00c9 e002       |    |		Load	0x0,0x2
00ca 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00cb 4512       |E   |		Exit_Suprogram	New_Top_Offset 0x12
00cc e009       |    |		Load	0x0,0x9
00cd 010f       |    |		Execute	Exception,Equal
00ce 6812       |h   |		Jump_Zero	0xe1
00cf e40e       |    |		Load	0x2,0xe
00d0 e40b       |    |		Load	0x2,0xb
00d1 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00d2 00d1       |    |		Pop_Control	Pop_Count_1
00d3 e40f       |    |		Load	0x2,0xf
00d4 e40b       |    |		Load	0x2,0xb
00d5 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00d6 00d1       |    |		Pop_Control	Pop_Count_1
00d7 e40c       |    |		Load	0x2,0xc
00d8 0209       |    |		Execute	Task,Abort
00d9 0007       |    |		Action	Break_Optional
00da e40d       |    |		Load	0x2,0xd
00db 0209       |    |		Execute	Task,Abort
00dc 0007       |    |		Action	Break_Optional
00dd e5ef       |    |		Load	0x2,-0x11
00de e002       |    |		Load	0x0,0x2
00df 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00e0 4512       |E   |		Exit_Suprogram	New_Top_Offset 0x12
00e1 e012       |    |		Load	0x0,0x12
00e2 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
00e3 010f       |    |		Execute	Exception,Equal
00e4 6810       |h   |		Jump_Zero	0xf5
00e5 e40e       |    |		Load	0x2,0xe
00e6 e40b       |    |		Load	0x2,0xb
00e7 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00e8 00d1       |    |		Pop_Control	Pop_Count_1
00e9 e40f       |    |		Load	0x2,0xf
00ea e40b       |    |		Load	0x2,0xb
00eb 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00ec 00d1       |    |		Pop_Control	Pop_Count_1
00ed e40c       |    |		Load	0x2,0xc
00ee 0209       |    |		Execute	Task,Abort
00ef 0007       |    |		Action	Break_Optional
00f0 e40d       |    |		Load	0x2,0xd
00f1 0209       |    |		Execute	Task,Abort
00f2 0007       |    |		Action	Break_Optional
00f3 00d8       |    |		Load_Top	At_Offset_0
00f4 0101       |    |		Execute	Exception,Reraise
00f5 0092 06a7  |    |		Action	Push_String_Extended,0x6a7					; "Unexpected exception "
00f7 4800       |H   |		Short_Literal	0x0
00f8 4801       |H   |		Short_Literal	0x1
00f9 e00a       |    |		Load	0x0,0xa
00fa 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
00fb 01cc       |    |		Execute	Vector,Catenate
00fc 0092 06a8  |    |		Action	Push_String_Extended,0x6a8					; " in remote shell."
00fe 01cc       |    |		Execute	Vector,Catenate
00ff 841a       |    |		Call	0x2,0x1a
0100 e40e       |    |		Load	0x2,0xe
0101 e40b       |    |		Load	0x2,0xb
0102 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0103 00d1       |    |		Pop_Control	Pop_Count_1
0104 e40f       |    |		Load	0x2,0xf
0105 e40b       |    |		Load	0x2,0xb
0106 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0107 00d1       |    |		Pop_Control	Pop_Count_1
0108 e40c       |    |		Load	0x2,0xc
0109 0209       |    |		Execute	Task,Abort
010a 0007       |    |		Action	Break_Optional
010b e40d       |    |		Load	0x2,0xd
010c 0209       |    |		Execute	Task,Abort
010d 0007       |    |		Action	Break_Optional
010e e5ef       |    |		Load	0x2,-0x11
010f e002       |    |		Load	0x0,0x2
0110 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0111 4512       |E   |		Exit_Suprogram	New_Top_Offset 0x12
0112 0000 0000  |    |		.BLANK	0000[0x6]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b       |    |		.CONST	0x011b								; Address of begin
0119 0004       |    |		.CONST	0x0004								; Address of exception handler
011a 0001       |    |		.CONST	0x0001								; Number of locals
011b			BODY_0118:
011b			INIT_0118:
011b e5ef       |    |		Load	0x2,-0x11
011c 4801       |H   |		Short_Literal	0x1
011d e7ff       |    |		Load	0x3,-0x1
011e e013       |    |		Load	0x0,0x13
011f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0120 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0121 0000 0000  |    |		.BLANK	0000[0x7]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b       | +  |		.CONST	0x012b								; Address of begin
0129 0138       | 8  |		.CONST	0x0138								; Address of exception handler
012a 0001       |    |		.CONST	0x0001								; Number of locals
012b			BODY_0128:
012b			INIT_0128:
012b e405       |    |		Load	0x2,0x5
012c e003       |    |		Load	0x0,0x3
012d 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
012e e405       |    |		Load	0x2,0x5
012f e003       |    |		Load	0x0,0x3
0130 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0131 e406       |    |		Load	0x2,0x6
0132 e003       |    |		Load	0x0,0x3
0133 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0134 e406       |    |		Load	0x2,0x6
0135 e003       |    |		Load	0x0,0x3
0136 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0137 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0138			TRAP_0128:
0138 0007       |    |		Action	Break_Optional
0139 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
013a 0000 0000  |    |		.BLANK	0000[0x6]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143       | C  |		.CONST	0x0143								; Address of begin
0141 0004       |    |		.CONST	0x0004								; Address of exception handler
0142 0001       |    |		.CONST	0x0001								; Number of locals
0143			BODY_0140:
0143			INIT_0140:
0143 4802       |H   |		Short_Literal	0x2
0144 e00c       |    |		Load	0x0,0xc
0145 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
0146 4801       |H   |		Short_Literal	0x1
0147 4850       |HP  |		Short_Literal	0x50
0148 00e9       |    |		Load_Encached	String_Cache
0149 035b       | [  |		Declare_Type	Array,Constrained
014a 0337       | 7  |		Declare_Variable	Array
014b 4850       |HP  |		Short_Literal	0x50
014c 4801       |H   |		Short_Literal	0x1
014d 4820       |H   |		Short_Literal	0x20
014e 00d9       |    |		Load_Top	At_Offset_1
014f e604       |    |		Load	0x3,0x4
0150 01d6       |    |		Execute	Vector,Field_Write
0151 3ffb       |?   |		Loop_Increasing	0x14d
0152 e7ff       |    |		Load	0x3,-0x1
0153 e00c       |    |		Load	0x0,0xc
0154 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
0155 4801       |H   |		Short_Literal	0x1
0156 00db       |    |		Load_Top	At_Offset_3
0157 e00c       |    |		Load	0x0,0xc
0158 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
0159 4802       |H   |		Short_Literal	0x2
015a e00c       |    |		Load	0x0,0xc
015b 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
015c 4801       |H   |		Short_Literal	0x1
015d 4850       |HP  |		Short_Literal	0x50
015e 00e9       |    |		Load_Encached	String_Cache
015f 035b       | [  |		Declare_Type	Array,Constrained
0160 0337       | 7  |		Declare_Variable	Array
0161 4850       |HP  |		Short_Literal	0x50
0162 4801       |H   |		Short_Literal	0x1
0163 4820       |H   |		Short_Literal	0x20
0164 00d9       |    |		Load_Top	At_Offset_1
0165 e604       |    |		Load	0x3,0x4
0166 01d6       |    |		Execute	Vector,Field_Write
0167 3ffb       |?   |		Loop_Increasing	0x163
0168 e7ff       |    |		Load	0x3,-0x1
0169 e00c       |    |		Load	0x0,0xc
016a 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
016b 4801       |H   |		Short_Literal	0x1
016c 00db       |    |		Load_Top	At_Offset_3
016d e00c       |    |		Load	0x0,0xc
016e 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
016f 4800       |H   |		Short_Literal	0x0
0170 4801       |H   |		Short_Literal	0x1
0171 4801       |H   |		Short_Literal	0x1
0172 e7ff       |    |		Load	0x3,-0x1
0173 e00c       |    |		Load	0x0,0xc
0174 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0175 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0176 0000 0000  |    |		.XXX[0x2]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 0181       |    |		.CONST	0x0181								; Address of begin
0179 0004       |    |		.CONST	0x0004								; Address of exception handler
017a 0002       |    |		.CONST	0x0002								; Number of locals
017b			INIT_0178:
017b e010       |    |		Load	0x0,0x10
017c 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
017d e010       |    |		Load	0x0,0x10
017e 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
017f e010       |    |		Load	0x0,0x10
0180 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
0181			BODY_0178:
0181 4801       |H   |		Short_Literal	0x1
0182 4805       |H   |		Short_Literal	0x5
0183 00da       |    |		Load_Top	At_Offset_2
0184 01cf       |    |		Execute	Vector,Slice_Read
0185 0092 06a9  |    |		Action	Push_String_Extended,0x6a9					; "Baud_"
0187 01df       |    |		Execute	Vector,Equal
0188 6806       |h   |		Jump_Zero	0x18f
0189 4806       |H   |		Short_Literal	0x6
018a 00d9       |    |		Load_Top	At_Offset_1
018b 01dc       |    |		Execute	Vector,Last
018c 00da       |    |		Load_Top	At_Offset_2
018d 01cf       |    |		Execute	Vector,Slice_Read
018e 00ca       |    |		Action	Exit_Nullary_Function
018f 0092 06aa  |    |		Action	Push_String_Extended,0x6aa					; "19200"
0191 00ca       |    |		Action	Exit_Nullary_Function
0192 0000 0000  |    |		.BLANK	0000[0x6]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b       |    |		.CONST	0x019b								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0001       |    |		.CONST	0x0001								; Number of locals
019b			BODY_0198:
019b			INIT_0198:
019b 00da       |    |		Load_Top	At_Offset_2
019c 01db       |    |		Execute	Vector,Length
019d 0d10       |    |		Execute_Immediate	Less,0x10
019e 6802       |h   |		Jump_Zero	0x1a1
019f 00da       |    |		Load_Top	At_Offset_2
01a0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01a1 00da       |    |		Load_Top	At_Offset_2
01a2 01dd       |    |		Execute	Vector,First
01a3 00db       |    |		Load_Top	At_Offset_3
01a4 01dd       |    |		Execute	Vector,First
01a5 0a0e       |    |		Execute_Immediate	Plus,0xe
01a6 00d8       |    |		Load_Top	At_Offset_0
01a7 00e2       |    |		Load_Encached	Integer_Cache
01a8 0260       | `  |		Execute	Discrete,In_Type
01a9 7001       |p   |		Jump_Nonzero	0x1ab
01aa 0801       |    |		Execute_Immediate	Raise,0x1
01ab e7ff       |    |		Load	0x3,-0x1
01ac 01cf       |    |		Execute	Vector,Slice_Read
01ad 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01ae 0000 0000  |    |		.XXX[0x2]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01bd       |    |		.CONST	0x01bd								; Address of begin
01b1 0004       |    |		.CONST	0x0004								; Address of exception handler
01b2 0002       |    |		.CONST	0x0002								; Number of locals
01b3			INIT_01b0:
01b3 4800       |H   |		Short_Literal	0x0
01b4 e010       |    |		Load	0x0,0x10
01b5 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
01b6 e010       |    |		Load	0x0,0x10
01b7 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
01b8 e014       |    |		Load	0x0,0x14
01b9 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01ba 8416       |    |		Call	0x2,0x16
01bb 01cb       |    |		Execute	Vector,Append
01bc 0007       |    |		Action	Break_Optional
01bd			BODY_01b0:
01bd e5f3       |    |		Load	0x2,-0xd
01be 680d       |h   |		Jump_Zero	0x1cc
01bf 4800       |H   |		Short_Literal	0x0
01c0 4800       |H   |		Short_Literal	0x0
01c1 00da       |    |		Load_Top	At_Offset_2
01c2 01ca       |    |		Execute	Vector,Prepend
01c3 e7ff       |    |		Load	0x3,-0x1
01c4 01cc       |    |		Execute	Vector,Catenate
01c5 0092 06ab  |    |		Action	Push_String_Extended,0x6ab					; "vt100/"
01c7 01cc       |    |		Execute	Vector,Catenate
01c8 8415       |    |		Call	0x2,0x15
01c9 01cc       |    |		Execute	Vector,Catenate
01ca 01cb       |    |		Execute	Vector,Append
01cb 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01cc 4800       |H   |		Short_Literal	0x0
01cd 00d9       |    |		Load_Top	At_Offset_1
01ce e7ff       |    |		Load	0x3,-0x1
01cf 01cc       |    |		Execute	Vector,Catenate
01d0 e5fc       |    |		Load	0x2,-0x4
01d1 01cc       |    |		Execute	Vector,Catenate
01d2 01cb       |    |		Execute	Vector,Append
01d3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01d4 0000 0000  |    |		.BLANK	0000[0x4]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01de       |    |		.CONST	0x01de								; Address of begin
01d9 0004       |    |		.CONST	0x0004								; Address of exception handler
01da 0003       |    |		.CONST	0x0003								; Number of locals
01db			INIT_01d8:
01db e00c       |    |		Load	0x0,0xc
01dc 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
01dd 03e9       |    |		Declare_Variable	Discrete,Duplicate
01de			BODY_01d8:
01de e00c       |    |		Load	0x0,0xc
01df 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
01e0 e00c       |    |		Load	0x0,0xc
01e1 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
01e2 e7ff       |    |		Load	0x3,-0x1
01e3 e00c       |    |		Load	0x0,0xc
01e4 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
01e5 005b       | [  |		Store_Top	Discrete,At_Offset_3
01e6 0059       | Y  |		Store_Top	Discrete,At_Offset_1
01e7 00d9       |    |		Load_Top	At_Offset_1
01e8 e7fe       |    |		Load	0x3,-0x2
01e9 027c       | |  |		Execute	Discrete,Less
01ea 6806       |h   |		Jump_Zero	0x1f1
01eb e7fe       |    |		Load	0x3,-0x2
01ec 00da       |    |		Load_Top	At_Offset_2
01ed 0272       | r  |		Execute	Discrete,Minus
01ee e015       |    |		Load	0x0,0x15
01ef 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
01f0 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
01f1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
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 e5f2       |    |		Load	0x2,-0xe
01fc 6803       |h   |		Jump_Zero	0x200
01fd 00da       |    |		Load_Top	At_Offset_2
01fe 85fd       |    |		Call	0x2,-0x3
01ff 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0200 e5ef       |    |		Load	0x2,-0x11
0201 e7fe       |    |		Load	0x3,-0x2
0202 e7ff       |    |		Load	0x3,-0x1
0203 e013       |    |		Load	0x0,0x13
0204 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0205 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0206 0000 0000  |    |		.XXX[0x2]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b       |    |		.CONST	0x020b								; Address of begin
0209 0004       |    |		.CONST	0x0004								; Address of exception handler
020a 0001       |    |		.CONST	0x0001								; Number of locals
020b			BODY_0208:
020b			INIT_0208:
020b 4800       |H   |		Short_Literal	0x0
020c a5ee       |    |		Store_Unchecked	0x2,-0x12
020d e5f2       |    |		Load	0x2,-0xe
020e 6803       |h   |		Jump_Zero	0x212
020f 00da       |    |		Load_Top	At_Offset_2
0210 85fe       |    |		Call	0x2,-0x2
0211 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0212 e5ef       |    |		Load	0x2,-0x11
0213 4805       |H   |		Short_Literal	0x5
0214 e7ff       |    |		Load	0x3,-0x1
0215 e013       |    |		Load	0x0,0x13
0216 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0217 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b       |    |		.CONST	0x021b								; Address of begin
0219 0004       |    |		.CONST	0x0004								; Address of exception handler
021a 0001       |    |		.CONST	0x0001								; Number of locals
021b			BODY_0218:
021b			INIT_0218:
021b 00da       |    |		Load_Top	At_Offset_2
021c 680b       |h   |		Jump_Zero	0x228
021d 00da       |    |		Load_Top	At_Offset_2
021e 0f10       |    |		Execute_Immediate	Equal,0x10
021f 6802       |h   |		Jump_Zero	0x222
0220 e016       |    |		Load	0x0,0x16
0221 0257       | W  |		Execute	Discrete,Raise
0222 00da       |    |		Load_Top	At_Offset_2
0223 e008       |    |		Load	0x0,0x8
0224 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0225 841a       |    |		Call	0x2,0x1a
0226 e009       |    |		Load	0x0,0x9
0227 0257       | W  |		Execute	Discrete,Raise
0228 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0229 0000 0000  |    |		.BLANK	0000[0x7]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 025d       | ]  |		.CONST	0x025d								; Address of begin
0231 0004       |    |		.CONST	0x0004								; Address of exception handler
0232 000d       |    |		.CONST	0x000d								; Number of locals
0233			INIT_0230:
0233 e008       |    |		Load	0x0,0x8
0234 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0235 e5fb       |    |		Load	0x2,-0x5
0236 e00b       |    |		Load	0x0,0xb
0237 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0238 e5fb       |    |		Load	0x2,-0x5
0239 e00b       |    |		Load	0x0,0xb
023a 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
023b e00c       |    |		Load	0x0,0xc
023c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
023d 02c7       |    |		Declare_Variable	Any
023e 00d8       |    |		Load_Top	At_Offset_0
023f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0240 e00c       |    |		Load	0x0,0xc
0241 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0242 02c7       |    |		Declare_Variable	Any
0243 00d8       |    |		Load_Top	At_Offset_0
0244 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0245 e00c       |    |		Load	0x0,0xc
0246 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0247 02c7       |    |		Declare_Variable	Any
0248 00d8       |    |		Load_Top	At_Offset_0
0249 1c00       |    |		Execute_Immediate	Run_Utility,0x0
024a 4801       |H   |		Short_Literal	0x1
024b 4802       |H   |		Short_Literal	0x2
024c e008       |    |		Load	0x0,0x8
024d 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
024e 035b       | [  |		Declare_Type	Array,Constrained
024f 0337       | 7  |		Declare_Variable	Array
0250 e002       |    |		Load	0x0,0x2
0251 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0252 00d9       |    |		Load_Top	At_Offset_1
0253 01d4       |    |		Execute	Vector,Structure_Write
0254 00e1       |    |		Load_Encached	Boolean_Cache
0255 029f 02a3  |    |		Declare_Subprogram	INIT_02a0,For_Call
0257 029f 037b  |   {|		Declare_Subprogram	INIT_0378,For_Call
0259 029f 03b3  |    |		Declare_Subprogram	INIT_03b0,For_Call
025b 029f 03d3  |    |		Declare_Subprogram	INIT_03d0,For_Call
025d			BODY_0230:
025d 4801       |H   |		Short_Literal	0x1
025e a5ee       |    |		Store_Unchecked	0x2,-0x12
025f 4803       |H   |		Short_Literal	0x3
0260 0092 06ac  |    |		Action	Push_String_Extended,0x6ac					; "Executing remote shell on host "
0262 e5fb       |    |		Load	0x2,-0x5
0263 e014       |    |		Load	0x0,0x14
0264 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0265 01cc       |    |		Execute	Vector,Catenate
0266 8419       |    |		Call	0x2,0x19
0267 860a       |    |		Call	0x3,0xa
0268 e5f3       |    |		Load	0x2,-0xd
0269 7004       |p   |		Jump_Nonzero	0x26e
026a 860b       |    |		Call	0x3,0xb
026b 4800       |H   |		Short_Literal	0x0
026c e40c       |    |		Load	0x2,0xc
026d 170e       |    |		Execute	Task,Entry_Call,Field_Number 0xe
026e 860c       |    |		Call	0x3,0xc
026f 860d       |    |		Call	0x3,0xd
0270 6027       |`'  |		Indirect_Literal	Discrete,0x298,{0x00000000, 0x00010000}
0271 00ba       |    |		Action	Initiate_Delay
0272 e40e       |    |		Load	0x2,0xe
0273 e40b       |    |		Load	0x2,0xb
0274 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0275 00d1       |    |		Pop_Control	Pop_Count_1
0276 e40f       |    |		Load	0x2,0xf
0277 e40b       |    |		Load	0x2,0xb
0278 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0279 00d1       |    |		Pop_Control	Pop_Count_1
027a 8413       |    |		Call	0x2,0x13
027b e40d       |    |		Load	0x2,0xd
027c 0209       |    |		Execute	Task,Abort
027d 0007       |    |		Action	Break_Optional
027e e5f3       |    |		Load	0x2,-0xd
027f 7003       |p   |		Jump_Nonzero	0x283
0280 e40c       |    |		Load	0x2,0xc
0281 0209       |    |		Execute	Task,Abort
0282 0007       |    |		Action	Break_Optional
0283 e409       |    |		Load	0x2,0x9
0284 e40a       |    |		Load	0x2,0xa
0285 0278       | x  |		Execute	Discrete,Or
0286 0f00       |    |		Execute_Immediate	Equal,0x0
0287 e5f3       |    |		Load	0x2,-0xd
0288 0278       | x  |		Execute	Discrete,Or
0289 6805       |h   |		Jump_Zero	0x28f
028a 4800       |H   |		Short_Literal	0x0
028b 0092 06ad  |    |		Action	Push_String_Extended,0x6ad					; "[Remote Shell complete]"
028d 8419       |    |		Call	0x2,0x19
028e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
028f 0092 06ae  |    |		Action	Push_String_Extended,0x6ae					; "[Remote_Shell error occurred]"
0291 841a       |    |		Call	0x2,0x1a
0292 e5ef       |    |		Load	0x2,-0x11
0293 e002       |    |		Load	0x0,0x2
0294 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0295 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0296 0000 0000  |    |		.XXX[0x2]
0298 0000 0000  |    |		.LITERAL	{0x00000000, 0x00010000}
029c 0000 0000  |    |		.BLANK	0000[0x4]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a5       |    |		.CONST	0x02a5								; Address of begin
02a1 035e       | ^  |		.CONST	0x035e								; Address of exception handler
02a2 0002       |    |		.CONST	0x0002								; Number of locals
02a3			INIT_02a0:
02a3 029f 047b  |   {|		Declare_Subprogram	INIT_0478,For_Call
02a5			BODY_02a0:
02a5 00cf       |    |		Action	Mark_Auxiliary
02a6 8802       |    |		Call	0x4,0x2
02a7 00c9       |    |		Action	Pop_Auxiliary_Loop
02a8 7ffd       |    |		Jump	0x2a6
02a9 00ce       |    |		Action	Pop_Auxiliary
02aa e5f7       |    |		Load	0x2,-0x9
02ab e00d       |    |		Load	0x0,0xd
02ac 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
02ad 7003       |p   |		Jump_Nonzero	0x2b1
02ae e5f6       |    |		Load	0x2,-0xa
02af 01db       |    |		Execute	Vector,Length
02b0 6817       |h   |		Jump_Zero	0x2c8
02b1 e405       |    |		Load	0x2,0x5
02b2 e007       |    |		Load	0x0,0x7
02b3 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
02b4 e605       |    |		Load	0x3,0x5
02b5 0120       |    |		Execute	Any,Is_Value
02b6 6803       |h   |		Jump_Zero	0x2ba
02b7 e00c       |    |		Load	0x0,0xc
02b8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02b9 7801       |x   |		Jump	0x2bb
02ba e605       |    |		Load	0x3,0x5
02bb e5f6       |    |		Load	0x2,-0xa
02bc 4802       |H   |		Short_Literal	0x2
02bd e40d       |    |		Load	0x2,0xd
02be 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
02bf c605       |    |		Store	0x3,0x5
02c0 e5f6       |    |		Load	0x2,-0xa
02c1 01db       |    |		Execute	Vector,Length
02c2 6802       |h   |		Jump_Zero	0x2c5
02c3 e605       |    |		Load	0x3,0x5
02c4 8414       |    |		Call	0x2,0x14
02c5 4801       |H   |		Short_Literal	0x1
02c6 a609       |    |		Store_Unchecked	0x3,0x9
02c7 7805       |x   |		Jump	0x2cd
02c8 e40d       |    |		Load	0x2,0xd
02c9 0209       |    |		Execute	Task,Abort
02ca 0007       |    |		Action	Break_Optional
02cb 4800       |H   |		Short_Literal	0x0
02cc a609       |    |		Store_Unchecked	0x3,0x9
02cd e5f9       |    |		Load	0x2,-0x7
02ce e00d       |    |		Load	0x0,0xd
02cf 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
02d0 6806       |h   |		Jump_Zero	0x2d7
02d1 e40e       |    |		Load	0x2,0xe
02d2 e5f9       |    |		Load	0x2,-0x7
02d3 e40b       |    |		Load	0x2,0xb
02d4 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
02d5 00d1       |    |		Pop_Control	Pop_Count_1
02d6 7830       |x0  |		Jump	0x307
02d7 e5f2       |    |		Load	0x2,-0xe
02d8 6806       |h   |		Jump_Zero	0x2df
02d9 e40e       |    |		Load	0x2,0xe
02da 4800       |H   |		Short_Literal	0x0
02db e40b       |    |		Load	0x2,0xb
02dc 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
02dd 00d1       |    |		Pop_Control	Pop_Count_1
02de 7828       |x(  |		Jump	0x307
02df e5f8       |    |		Load	0x2,-0x8
02e0 01db       |    |		Execute	Vector,Length
02e1 681f       |h   |		Jump_Zero	0x301
02e2 e5f6       |    |		Load	0x2,-0xa
02e3 e5f8       |    |		Load	0x2,-0x8
02e4 01df       |    |		Execute	Vector,Equal
02e5 6803       |h   |		Jump_Zero	0x2e9
02e6 e605       |    |		Load	0x3,0x5
02e7 c606       |    |		Store	0x3,0x6
02e8 7809       |x   |		Jump	0x2f2
02e9 e606       |    |		Load	0x3,0x6
02ea 00ea       |    |		Load_Encached	Null_String_Cache
02eb e5f8       |    |		Load	0x2,-0x8
02ec 4801       |H   |		Short_Literal	0x1
02ed e00c       |    |		Load	0x0,0xc
02ee 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
02ef c606       |    |		Store	0x3,0x6
02f0 e606       |    |		Load	0x3,0x6
02f1 8414       |    |		Call	0x2,0x14
02f2 e5f3       |    |		Load	0x2,-0xd
02f3 6807       |h   |		Jump_Zero	0x2fb
02f4 e40e       |    |		Load	0x2,0xe
02f5 e411       |    |		Load	0x2,0x11
02f6 e606       |    |		Load	0x3,0x6
02f7 e40b       |    |		Load	0x2,0xb
02f8 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
02f9 00d1       |    |		Pop_Control	Pop_Count_1
02fa 780c       |x   |		Jump	0x307
02fb e40e       |    |		Load	0x2,0xe
02fc e606       |    |		Load	0x3,0x6
02fd e40b       |    |		Load	0x2,0xb
02fe 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
02ff 00d1       |    |		Pop_Control	Pop_Count_1
0300 7806       |x   |		Jump	0x307
0301 e40e       |    |		Load	0x2,0xe
0302 e5ef       |    |		Load	0x2,-0x11
0303 4802       |H   |		Short_Literal	0x2
0304 e40b       |    |		Load	0x2,0xb
0305 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0306 00d1       |    |		Pop_Control	Pop_Count_1
0307 e5f3       |    |		Load	0x2,-0xd
0308 680d       |h   |		Jump_Zero	0x316
0309 e40c       |    |		Load	0x2,0xc
030a 0209       |    |		Execute	Task,Abort
030b 0007       |    |		Action	Break_Optional
030c e5f1       |    |		Load	0x2,-0xf
030d 0a02       |    |		Execute_Immediate	Plus,0x2
030e 00d8       |    |		Load_Top	At_Offset_0
030f 00e4       |    |		Load_Encached	Positive_Cache
0310 0260       | `  |		Execute	Discrete,In_Type
0311 7001       |p   |		Jump_Nonzero	0x313
0312 0801       |    |		Execute_Immediate	Raise,0x1
0313 e606       |    |		Load	0x3,0x6
0314 8418       |    |		Call	0x2,0x18
0315 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0316 e5f2       |    |		Load	0x2,-0xe
0317 6806       |h   |		Jump_Zero	0x31e
0318 e40f       |    |		Load	0x2,0xf
0319 4801       |H   |		Short_Literal	0x1
031a e40b       |    |		Load	0x2,0xb
031b 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
031c 00d1       |    |		Pop_Control	Pop_Count_1
031d 7830       |x0  |		Jump	0x34e
031e e5f5       |    |		Load	0x2,-0xb
031f e00d       |    |		Load	0x0,0xd
0320 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0321 6806       |h   |		Jump_Zero	0x328
0322 e40f       |    |		Load	0x2,0xf
0323 e5f5       |    |		Load	0x2,-0xb
0324 e40b       |    |		Load	0x2,0xb
0325 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0326 00d1       |    |		Pop_Control	Pop_Count_1
0327 7826       |x&  |		Jump	0x34e
0328 e5f4       |    |		Load	0x2,-0xc
0329 01db       |    |		Execute	Vector,Length
032a 681d       |h   |		Jump_Zero	0x348
032b e5f4       |    |		Load	0x2,-0xc
032c e5f6       |    |		Load	0x2,-0xa
032d 01df       |    |		Execute	Vector,Equal
032e 6803       |h   |		Jump_Zero	0x332
032f e605       |    |		Load	0x3,0x5
0330 c607       |    |		Store	0x3,0x7
0331 7810       |x   |		Jump	0x342
0332 e5f4       |    |		Load	0x2,-0xc
0333 e5f8       |    |		Load	0x2,-0x8
0334 01df       |    |		Execute	Vector,Equal
0335 6803       |h   |		Jump_Zero	0x339
0336 e606       |    |		Load	0x3,0x6
0337 c607       |    |		Store	0x3,0x7
0338 7809       |x   |		Jump	0x342
0339 e607       |    |		Load	0x3,0x7
033a 00ea       |    |		Load_Encached	Null_String_Cache
033b e5f4       |    |		Load	0x2,-0xc
033c 4801       |H   |		Short_Literal	0x1
033d e00c       |    |		Load	0x0,0xc
033e 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
033f c607       |    |		Store	0x3,0x7
0340 e607       |    |		Load	0x3,0x7
0341 8414       |    |		Call	0x2,0x14
0342 e40f       |    |		Load	0x2,0xf
0343 e607       |    |		Load	0x3,0x7
0344 e40b       |    |		Load	0x2,0xb
0345 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0346 00d1       |    |		Pop_Control	Pop_Count_1
0347 7806       |x   |		Jump	0x34e
0348 e40f       |    |		Load	0x2,0xf
0349 e5ef       |    |		Load	0x2,-0x11
034a 4807       |H   |		Short_Literal	0x7
034b e40b       |    |		Load	0x2,0xb
034c 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
034d 00d1       |    |		Pop_Control	Pop_Count_1
034e e608       |    |		Load	0x3,0x8
034f e603       |    |		Load	0x3,0x3
0350 4802       |H   |		Short_Literal	0x2
0351 e40c       |    |		Load	0x2,0xc
0352 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
0353 00cf       |    |		Action	Mark_Auxiliary
0354 7803       |x   |		Jump	0x358
0355 601a       |`   |		Indirect_Literal	Discrete,0x370,{0x00000000, 0x00004000}
0356 00ba       |    |		Action	Initiate_Delay
0357 00c9       |    |		Action	Pop_Auxiliary_Loop
0358 e406       |    |		Load	0x2,0x6
0359 e003       |    |		Load	0x0,0x3
035a 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
035b 6ff9       |o   |		Jump_Zero	0x355
035c 00ce       |    |		Action	Pop_Auxiliary
035d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
035e			TRAP_02a0:
035e e009       |    |		Load	0x0,0x9
035f 010f       |    |		Execute	Exception,Equal
0360 6805       |h   |		Jump_Zero	0x366
0361 0092 06af  |    |		Action	Push_String_Extended,0x6af					; "Aborting rshell because Open or Connect failed."
0363 841a       |    |		Call	0x2,0x1a
0364 00d8       |    |		Load_Top	At_Offset_0
0365 0101       |    |		Execute	Exception,Reraise
0366 0092 06b0  |    |		Action	Push_String_Extended,0x6b0					; "Unexpected exception in rshell initialization:"
0368 4800       |H   |		Short_Literal	0x0
0369 4801       |H   |		Short_Literal	0x1
036a e00a       |    |		Load	0x0,0xa
036b 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
036c 01cc       |    |		Execute	Vector,Catenate
036d 841a       |    |		Call	0x2,0x1a
036e 00d8       |    |		Load_Top	At_Offset_0
036f 0101       |    |		Execute	Exception,Reraise
0370 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0374 0000 0000  |    |		.BLANK	0000[0x4]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 0381       |    |		.CONST	0x0381								; Address of begin
0379 0004       |    |		.CONST	0x0004								; Address of exception handler
037a 0003       |    |		.CONST	0x0003								; Number of locals
037b			INIT_0378:
037b e405       |    |		Load	0x2,0x5
037c e003       |    |		Load	0x0,0x3
037d 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
037e e406       |    |		Load	0x2,0x6
037f e003       |    |		Load	0x0,0x3
0380 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0381			BODY_0378:
0381 e404       |    |		Load	0x2,0x4
0382 681e       |h   |		Jump_Zero	0x3a1
0383 0092 06b1  |    |		Action	Push_String_Extended,0x6b1					; "Primary local socket = "
0385 4801       |H   |		Short_Literal	0x1
0386 00db       |    |		Load_Top	At_Offset_3
0387 01d7       |    |		Execute	Vector,Field_Read
0388 00e0       |    |		Load_Encached	Standard_Cache
0389 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
038a 01cc       |    |		Execute	Vector,Catenate
038b 4802       |H   |		Short_Literal	0x2
038c 00db       |    |		Load_Top	At_Offset_3
038d 01d7       |    |		Execute	Vector,Field_Read
038e 00e0       |    |		Load_Encached	Standard_Cache
038f 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0390 01cc       |    |		Execute	Vector,Catenate
0391 8412       |    |		Call	0x2,0x12
0392 0092 06b2  |    |		Action	Push_String_Extended,0x6b2					; "Secondary local socket = "
0394 4801       |H   |		Short_Literal	0x1
0395 00da       |    |		Load_Top	At_Offset_2
0396 01d7       |    |		Execute	Vector,Field_Read
0397 00e0       |    |		Load_Encached	Standard_Cache
0398 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0399 01cc       |    |		Execute	Vector,Catenate
039a 4802       |H   |		Short_Literal	0x2
039b 00da       |    |		Load_Top	At_Offset_2
039c 01d7       |    |		Execute	Vector,Field_Read
039d 00e0       |    |		Load_Encached	Standard_Cache
039e 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
039f 01cc       |    |		Execute	Vector,Catenate
03a0 8412       |    |		Call	0x2,0x12
03a1 e008       |    |		Load	0x0,0x8
03a2 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
03a3 00d9       |    |		Load_Top	At_Offset_1
03a4 e002       |    |		Load	0x0,0x2
03a5 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03a6 e405       |    |		Load	0x2,0x5
03a7 e00b       |    |		Load	0x0,0xb
03a8 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
03a9 c602       |    |		Store	0x3,0x2
03aa e602       |    |		Load	0x3,0x2
03ab 841b       |    |		Call	0x2,0x1b
03ac 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03ad 0000 0000  |    |		.XXX[0x3]
03af 0000       |    |
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b9       |    |		.CONST	0x03b9								; Address of begin
03b1 0004       |    |		.CONST	0x0004								; Address of exception handler
03b2 0003       |    |		.CONST	0x0003								; Number of locals
03b3			INIT_03b0:
03b3 4800       |H   |		Short_Literal	0x0
03b4 e5fa       |    |		Load	0x2,-0x6
03b5 01cb       |    |		Execute	Vector,Append
03b6 0007       |    |		Action	Break_Optional
03b7 00d8       |    |		Load_Top	At_Offset_0
03b8 8417       |    |		Call	0x2,0x17
03b9			BODY_03b0:
03b9 e404       |    |		Load	0x2,0x4
03ba 6805       |h   |		Jump_Zero	0x3c0
03bb 0092 06b3  |    |		Action	Push_String_Extended,0x6b3					; "Sending  "
03bd 00d9       |    |		Load_Top	At_Offset_1
03be 01cc       |    |		Execute	Vector,Catenate
03bf 8412       |    |		Call	0x2,0x12
03c0 e008       |    |		Load	0x0,0x8
03c1 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
03c2 00d9       |    |		Load_Top	At_Offset_1
03c3 e002       |    |		Load	0x0,0x2
03c4 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
03c5 e405       |    |		Load	0x2,0x5
03c6 e00b       |    |		Load	0x0,0xb
03c7 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
03c8 c602       |    |		Store	0x3,0x2
03c9 e602       |    |		Load	0x3,0x2
03ca 841b       |    |		Call	0x2,0x1b
03cb 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03cc 0000 0000  |    |		.BLANK	0000[0x4]
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03da       |    |		.CONST	0x03da								; Address of begin
03d1 0458       | X  |		.CONST	0x0458								; Address of exception handler
03d2 0003       |    |		.CONST	0x0003								; Number of locals
03d3			INIT_03d0:
03d3 4801       |H   |		Short_Literal	0x1
03d4 609f       |`   |		Indirect_Literal	Discrete,0x474,{0x00000000, 0x00000400}
03d5 e403       |    |		Load	0x2,0x3
03d6 035b       | [  |		Declare_Type	Array,Constrained
03d7 0337       | 7  |		Declare_Variable	Array
03d8 e402       |    |		Load	0x2,0x2
03d9 0007       |    |		Action	Break_Optional
03da			BODY_03d0:
03da 00e3       |    |		Load_Encached	Natural_Cache
03db 00da       |    |		Load_Top	At_Offset_2
03dc e008       |    |		Load	0x0,0x8
03dd 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
03de 6091       |`   |		Indirect_Literal	Discrete,0x470,{0x00000000, 0x00960000}
03df e405       |    |		Load	0x2,0x5
03e0 e003       |    |		Load	0x0,0x3
03e1 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
03e2 c602       |    |		Store	0x3,0x2
03e3 00d1       |    |		Pop_Control	Pop_Count_1
03e4 c407       |    |		Store	0x2,0x7
03e5 e408       |    |		Load	0x2,0x8
03e6 e407       |    |		Load	0x2,0x7
03e7 0273       | s  |		Execute	Discrete,Plus
03e8 c408       |    |		Store	0x2,0x8
03e9 e404       |    |		Load	0x2,0x4
03ea 6804       |h   |		Jump_Zero	0x3ef
03eb e407       |    |		Load	0x2,0x7
03ec 00e0       |    |		Load_Encached	Standard_Cache
03ed 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
03ee 8412       |    |		Call	0x2,0x12
03ef e407       |    |		Load	0x2,0x7
03f0 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
03f1 682a       |h*  |		Jump_Zero	0x41c
03f2 e602       |    |		Load	0x3,0x2
03f3 841b       |    |		Call	0x2,0x1b
03f4 4801       |H   |		Short_Literal	0x1
03f5 00da       |    |		Load_Top	At_Offset_2
03f6 01d7       |    |		Execute	Vector,Field_Read
03f7 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
03f8 00d8       |    |		Load_Top	At_Offset_0
03f9 0b00       |    |		Execute_Immediate	Case_Compare,0x0
03fa 700e       |p   |		Jump_Nonzero	0x409
03fb 0f01       |    |		Execute_Immediate	Equal,0x1
03fc 7013       |p   |		Jump_Nonzero	0x410
03fd 0092 06b4  |    |		Action	Push_String_Extended,0x6b4					; "Remote shell error: "
03ff 4801       |H   |		Short_Literal	0x1
0400 e407       |    |		Load	0x2,0x7
0401 e802       |    |		Load	0x4,0x2
0402 01cf       |    |		Execute	Vector,Slice_Read
0403 e002       |    |		Load	0x0,0x2
0404 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0405 01cc       |    |		Execute	Vector,Catenate
0406 841a       |    |		Call	0x2,0x1a
0407 e017       |    |		Load	0x0,0x17
0408 0257       | W  |		Execute	Discrete,Raise
0409 00d1       |    |		Pop_Control	Pop_Count_1
040a e404       |    |		Load	0x2,0x4
040b 6810       |h   |		Jump_Zero	0x41c
040c 0092 06b5  |    |		Action	Push_String_Extended,0x6b5					; "Remote shell invocation OK."
040e 8412       |    |		Call	0x2,0x12
040f 780c       |x   |		Jump	0x41c
0410 0092 06b6  |    |		Action	Push_String_Extended,0x6b6					; "Unable to start remote shell: "
0412 4802       |H   |		Short_Literal	0x2
0413 e407       |    |		Load	0x2,0x7
0414 e802       |    |		Load	0x4,0x2
0415 01cf       |    |		Execute	Vector,Slice_Read
0416 e002       |    |		Load	0x0,0x2
0417 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0418 01cc       |    |		Execute	Vector,Catenate
0419 841a       |    |		Call	0x2,0x1a
041a e017       |    |		Load	0x0,0x17
041b 0257       | W  |		Execute	Discrete,Raise
041c e609       |    |		Load	0x3,0x9
041d 6803       |h   |		Jump_Zero	0x421
041e 4800       |H   |		Short_Literal	0x0
041f e40d       |    |		Load	0x2,0xd
0420 170e       |    |		Execute	Task,Entry_Call,Field_Number 0xe
0421 00cf       |    |		Action	Mark_Auxiliary
0422 00e3       |    |		Load_Encached	Natural_Cache
0423 00db       |    |		Load_Top	At_Offset_3
0424 e008       |    |		Load	0x0,0x8
0425 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0426 6045       |`E  |		Indirect_Literal	Discrete,0x46c,{0x00007fff, 0xffffffff}
0427 e405       |    |		Load	0x2,0x5
0428 e003       |    |		Load	0x0,0x3
0429 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
042a c602       |    |		Store	0x3,0x2
042b 00d1       |    |		Pop_Control	Pop_Count_1
042c c407       |    |		Store	0x2,0x7
042d e404       |    |		Load	0x2,0x4
042e 6807       |h   |		Jump_Zero	0x436
042f 0092 06b7  |    |		Action	Push_String_Extended,0x6b7					; "Remote_Shell got data length = "
0431 e407       |    |		Load	0x2,0x7
0432 00e0       |    |		Load_Encached	Standard_Cache
0433 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0434 01cc       |    |		Execute	Vector,Catenate
0435 8412       |    |		Call	0x2,0x12
0436 e407       |    |		Load	0x2,0x7
0437 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0438 680f       |h   |		Jump_Zero	0x448
0439 e602       |    |		Load	0x3,0x2
043a 841b       |    |		Call	0x2,0x1b
043b e408       |    |		Load	0x2,0x8
043c e407       |    |		Load	0x2,0x7
043d 0273       | s  |		Execute	Discrete,Plus
043e c408       |    |		Store	0x2,0x8
043f e40e       |    |		Load	0x2,0xe
0440 4801       |H   |		Short_Literal	0x1
0441 e407       |    |		Load	0x2,0x7
0442 e802       |    |		Load	0x4,0x2
0443 01cf       |    |		Execute	Vector,Slice_Read
0444 e40b       |    |		Load	0x2,0xb
0445 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0446 00d1       |    |		Pop_Control	Pop_Count_1
0447 7803       |x   |		Jump	0x44b
0448 e602       |    |		Load	0x3,0x2
0449 6801       |h   |		Jump_Zero	0x44b
044a 7802       |x   |		Jump	0x44d
044b 00c9       |    |		Action	Pop_Auxiliary_Loop
044c 7fd5       |    |		Jump	0x422
044d 00ce       |    |		Action	Pop_Auxiliary
044e e404       |    |		Load	0x2,0x4
044f 6807       |h   |		Jump_Zero	0x457
0450 0092 06b8  |    |		Action	Push_String_Extended,0x6b8					; "Remote Shell byte count = "
0452 e408       |    |		Load	0x2,0x8
0453 00e0       |    |		Load_Encached	Standard_Cache
0454 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0455 01cc       |    |		Execute	Vector,Catenate
0456 8412       |    |		Call	0x2,0x12
0457 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0458			TRAP_03d0:
0458 e017       |    |		Load	0x0,0x17
0459 010f       |    |		Execute	Exception,Equal
045a 6803       |h   |		Jump_Zero	0x45e
045b 4801       |H   |		Short_Literal	0x1
045c a40a       |    |		Store_Unchecked	0x2,0xa
045d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
045e 0092 06b9  |    |		Action	Push_String_Extended,0x6b9					; "Remote Shell got an unexpected exception 1: "
0460 4800       |H   |		Short_Literal	0x0
0461 4801       |H   |		Short_Literal	0x1
0462 e00a       |    |		Load	0x0,0xa
0463 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0464 01cc       |    |		Execute	Vector,Catenate
0465 841a       |    |		Call	0x2,0x1a
0466 4801       |H   |		Short_Literal	0x1
0467 a40a       |    |		Store_Unchecked	0x2,0xa
0468 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0469 0000 0000  |    |		.XXX[0x3]
046b 0000       |    |
046c 0000 7fff  |    |		.LITERAL	{0x00007fff, 0xffffffff}
0470 0000 0000  |    |		.LITERAL	{0x00000000, 0x00960000}
0474 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000400}
0478 ; --------------------------------------------------------------------------------------
0478 ; SUBPROGRAM
0478 ; --------------------------------------------------------------------------------------
0478 047b       | {  |		.CONST	0x047b								; Address of begin
0479 04a4       |    |		.CONST	0x04a4								; Address of exception handler
047a 0001       |    |		.CONST	0x0001								; Number of locals
047b			BODY_0478:
047b			INIT_0478:
047b e008       |    |		Load	0x0,0x8
047c 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
047d e405       |    |		Load	0x2,0x5
047e e603       |    |		Load	0x3,0x3
047f e608       |    |		Load	0x3,0x8
0480 e00b       |    |		Load	0x0,0xb
0481 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0482 c405       |    |		Store	0x2,0x5
0483 c602       |    |		Store	0x3,0x2
0484 e602       |    |		Load	0x3,0x2
0485 841b       |    |		Call	0x2,0x1b
0486 e404       |    |		Load	0x2,0x4
0487 6803       |h   |		Jump_Zero	0x48b
0488 0092 06ba  |    |		Action	Push_String_Extended,0x6ba					; "Opened primary ..."
048a 8412       |    |		Call	0x2,0x12
048b e5f3       |    |		Load	0x2,-0xd
048c 680a       |h   |		Jump_Zero	0x497
048d e008       |    |		Load	0x0,0x8
048e 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
048f e018       |    |		Load	0x0,0x18
0490 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0491 e604       |    |		Load	0x3,0x4
0492 e405       |    |		Load	0x2,0x5
0493 e00b       |    |		Load	0x0,0xb
0494 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0495 c602       |    |		Store	0x3,0x2
0496 7809       |x   |		Jump	0x4a0
0497 e008       |    |		Load	0x0,0x8
0498 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0499 e018       |    |		Load	0x0,0x18
049a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
049b e604       |    |		Load	0x3,0x4
049c e405       |    |		Load	0x2,0x5
049d e00b       |    |		Load	0x0,0xb
049e 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
049f c602       |    |		Store	0x3,0x2
04a0 e602       |    |		Load	0x3,0x2
04a1 841b       |    |		Call	0x2,0x1b
04a2 00cc       |    |		Action	Pop_Block
04a3 7e05       |~   |		Jump	0x2a9
04a4			TRAP_0478:
04a4 e016       |    |		Load	0x0,0x16
04a5 010f       |    |		Execute	Exception,Equal
04a6 681a       |h   |		Jump_Zero	0x4c1
04a7 4806       |H   |		Short_Literal	0x6
04a8 0092 06bb  |    |		Action	Push_String_Extended,0x6bb					; "Connect failed - SOCKET_IN_USE"
04aa 8419       |    |		Call	0x2,0x19
04ab 4802       |H   |		Short_Literal	0x2
04ac 0092 06bc  |    |		Action	Push_String_Extended,0x6bc					; "Retrying with a different socket"
04ae 8419       |    |		Call	0x2,0x19
04af e405       |    |		Load	0x2,0x5
04b0 e003       |    |		Load	0x0,0x3
04b1 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
04b2 e608       |    |		Load	0x3,0x8
04b3 01d4       |    |		Execute	Vector,Structure_Write
04b4 e405       |    |		Load	0x2,0x5
04b5 e003       |    |		Load	0x0,0x3
04b6 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
04b7 e008       |    |		Load	0x0,0x8
04b8 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
04b9 e608       |    |		Load	0x3,0x8
04ba e002       |    |		Load	0x0,0x2
04bb 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
04bc 00d1       |    |		Pop_Control	Pop_Count_1
04bd c602       |    |		Store	0x3,0x2
04be e602       |    |		Load	0x3,0x2
04bf 841b       |    |		Call	0x2,0x1b
04c0 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04c1 0100       |    |		Execute	Exception,Raise
04c2 0000 0000  |    |		.BLANK	0000[0x6]
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04f1       |    |		.CONST	0x04f1								; Address of begin
04c9 0538       | 8  |		.CONST	0x0538								; Address of exception handler
04ca 0017       |    |		.CONST	0x0017								; Number of locals
04cb			INIT_04c8:
04cb 4802       |H   |		Short_Literal	0x2
04cc 02cb       |    |		Declare_Variable	Entry
04cd 4800       |H   |		Short_Literal	0x0
04ce 02cb       |    |		Declare_Variable	Entry
04cf 00bf       |    |		Action	Accept_Activation
04d0 e001       |    |		Load	0x0,0x1
04d1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04d2 02c7       |    |		Declare_Variable	Any
04d3 00d8       |    |		Load_Top	At_Offset_0
04d4 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04d5 e001       |    |		Load	0x0,0x1
04d6 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
04d7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04d8 02c7       |    |		Declare_Variable	Any
04d9 00d8       |    |		Load_Top	At_Offset_0
04da 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04db 4801       |H   |		Short_Literal	0x1
04dc 60ab       |`   |		Indirect_Literal	Discrete,0x588,{0x00000000, 0x00000400}
04dd e002       |    |		Load	0x0,0x2
04de 035b       | [  |		Declare_Type	Array,Constrained
04df 0337       | 7  |		Declare_Variable	Array
04e0 e003       |    |		Load	0x0,0x3
04e1 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
04e2 e004       |    |		Load	0x0,0x4
04e3 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04e4 02c7       |    |		Declare_Variable	Any
04e5 e005       |    |		Load	0x0,0x5
04e6 a213       |    |		Store_Unchecked	0x1,0x13
04e7 00e3       |    |		Load_Encached	Natural_Cache
04e8 480d       |H   |		Short_Literal	0xd
04e9 0299 056b  |   k|		Declare_Subprogram	INIT_0568,For_Accept
04eb 480e       |H   |		Short_Literal	0xe
04ec 0299 0593  |    |		Declare_Subprogram	INIT_0590,For_Accept
04ee 029f 059b  |    |		Declare_Subprogram	INIT_0598,For_Call
04f0 00bc       |    |		Action	Signal_Activated
04f1			BODY_04c8:
04f1 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
04f2 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
04f3 0137       | 7  |		Execute	Entry,Rendezvous
04f4 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
04f5 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
04f6 0137       | 7  |		Execute	Entry,Rendezvous
04f7 e006       |    |		Load	0x0,0x6
04f8 6802       |h   |		Jump_Zero	0x4fb
04f9 8217       |    |		Call	0x1,0x17
04fa 783c       |x<  |		Jump	0x537
04fb e213       |    |		Load	0x1,0x13
04fc e004       |    |		Load	0x0,0x4
04fd 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
04fe 6834       |h4  |		Jump_Zero	0x533
04ff 00cf       |    |		Action	Mark_Auxiliary
0500 7823       |x#  |		Jump	0x524
0501 00e3       |    |		Load_Encached	Natural_Cache
0502 e211       |    |		Load	0x1,0x11
0503 e213       |    |		Load	0x1,0x13
0504 e004       |    |		Load	0x0,0x4
0505 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0506 00d1       |    |		Pop_Control	Pop_Count_1
0507 c214       |    |		Store	0x1,0x14
0508 e214       |    |		Load	0x1,0x14
0509 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
050a 6818       |h   |		Jump_Zero	0x523
050b e003       |    |		Load	0x0,0x3
050c 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
050d 4801       |H   |		Short_Literal	0x1
050e e214       |    |		Load	0x1,0x14
050f e211       |    |		Load	0x1,0x11
0510 01cf       |    |		Execute	Vector,Slice_Read
0511 e007       |    |		Load	0x0,0x7
0512 e008       |    |		Load	0x0,0x8
0513 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0514 c212       |    |		Store	0x1,0x12
0515 e212       |    |		Load	0x1,0x12
0516 7011       |p   |		Jump_Nonzero	0x528
0517 e009       |    |		Load	0x0,0x9
0518 680a       |h   |		Jump_Zero	0x523
0519 0092 06bd  |    |		Action	Push_String_Extended,0x6bd					; "Transmitted string "
051b 4801       |H   |		Short_Literal	0x1
051c e214       |    |		Load	0x1,0x14
051d e211       |    |		Load	0x1,0x11
051e 01cf       |    |		Execute	Vector,Slice_Read
051f e00a       |    |		Load	0x0,0xa
0520 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0521 01cc       |    |		Execute	Vector,Catenate
0522 800b       |    |		Call	0x0,0xb
0523 00c9       |    |		Action	Pop_Auxiliary_Loop
0524 e213       |    |		Load	0x1,0x13
0525 e004       |    |		Load	0x0,0x4
0526 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0527 6fd9       |o   |		Jump_Zero	0x501
0528 00ce       |    |		Action	Pop_Auxiliary
0529 e213       |    |		Load	0x1,0x13
052a e004       |    |		Load	0x0,0x4
052b 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
052c c213       |    |		Store	0x1,0x13
052d 6056       |`V  |		Indirect_Literal	Discrete,0x584,{0x00000000, 0x00008000}
052e 00ba       |    |		Action	Initiate_Delay
052f e007       |    |		Load	0x0,0x7
0530 e00c       |    |		Load	0x0,0xc
0531 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0532 7804       |x   |		Jump	0x537
0533 e007       |    |		Load	0x0,0x7
0534 e20f       |    |		Load	0x1,0xf
0535 e00d       |    |		Load	0x0,0xd
0536 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0537 00bb       |    |		Action	Signal_Completion
0538			TRAP_04c8:
0538 e008       |    |		Load	0x0,0x8
0539 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
053a 010f       |    |		Execute	Exception,Equal
053b 680d       |h   |		Jump_Zero	0x549
053c e213       |    |		Load	0x1,0x13
053d e004       |    |		Load	0x0,0x4
053e 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
053f 6804       |h   |		Jump_Zero	0x544
0540 e213       |    |		Load	0x1,0x13
0541 e004       |    |		Load	0x0,0x4
0542 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0543 c213       |    |		Store	0x1,0x13
0544 800e       |    |		Call	0x0,0xe
0545 0092 06be  |    |		Action	Push_String_Extended,0x6be					; "Error in transmitting data"
0547 800f       |    |		Call	0x0,0xf
0548 00bb       |    |		Action	Signal_Completion
0549 e010       |    |		Load	0x0,0x10
054a 010f       |    |		Execute	Exception,Equal
054b 680a       |h   |		Jump_Zero	0x556
054c e213       |    |		Load	0x1,0x13
054d e004       |    |		Load	0x0,0x4
054e 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
054f 6804       |h   |		Jump_Zero	0x554
0550 e213       |    |		Load	0x1,0x13
0551 e004       |    |		Load	0x0,0x4
0552 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0553 c213       |    |		Store	0x1,0x13
0554 800e       |    |		Call	0x0,0xe
0555 00bb       |    |		Action	Signal_Completion
0556 e213       |    |		Load	0x1,0x13
0557 e004       |    |		Load	0x0,0x4
0558 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0559 6804       |h   |		Jump_Zero	0x55e
055a e213       |    |		Load	0x1,0x13
055b e004       |    |		Load	0x0,0x4
055c 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
055d c213       |    |		Store	0x1,0x13
055e 800e       |    |		Call	0x0,0xe
055f 0092 06bf  |    |		Action	Push_String_Extended,0x6bf					; "Input_Channel got an unexpected exception:"
0561 4800       |H   |		Short_Literal	0x0
0562 4801       |H   |		Short_Literal	0x1
0563 e011       |    |		Load	0x0,0x11
0564 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0565 01cc       |    |		Execute	Vector,Catenate
0566 800f       |    |		Call	0x0,0xf
0567 00bb       |    |		Action	Signal_Completion
0568 ; --------------------------------------------------------------------------------------
0568 ; SUBPROGRAM
0568 ; --------------------------------------------------------------------------------------
0568 056b       | k  |		.CONST	0x056b								; Address of begin
0569 0004       |    |		.CONST	0x0004								; Address of exception handler
056a 0001       |    |		.CONST	0x0001								; Number of locals
056b			BODY_0568:
056b			INIT_0568:
056b e005       |    |		Load	0x0,0x5
056c e004       |    |		Load	0x0,0x4
056d 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
056e 7014       |p   |		Jump_Nonzero	0x583
056f 00db       |    |		Load_Top	At_Offset_3
0570 e00d       |    |		Load	0x0,0xd
0571 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0572 c20f       |    |		Store	0x1,0xf
0573 e20f       |    |		Load	0x1,0xf
0574 c5fd       |    |		Store	0x2,-0x3
0575 e006       |    |		Load	0x0,0x6
0576 680c       |h   |		Jump_Zero	0x583
0577 e012       |    |		Load	0x0,0x12
0578 e013       |    |		Load	0x0,0x13
0579 e014       |    |		Load	0x0,0x14
057a 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
057b 1c08       |    |		Execute_Immediate	Run_Utility,0x8
057c e015       |    |		Load	0x0,0x15
057d 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
057e 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
057f 00d8       |    |		Load_Top	At_Offset_0
0580 0227       | '  |		Execute	Access,All_Reference
0581 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0582 c016       |    |		Store	0x0,0x16
0583 4101       |A   |		End_Rendezvous	0x1
0584 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008000}
0588 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000400}
058c 0000 0000  |    |		.BLANK	0000[0x4]
0590 ; --------------------------------------------------------------------------------------
0590 ; SUBPROGRAM
0590 ; --------------------------------------------------------------------------------------
0590 0593       |    |		.CONST	0x0593								; Address of begin
0591 0004       |    |		.CONST	0x0004								; Address of exception handler
0592 0001       |    |		.CONST	0x0001								; Number of locals
0593			BODY_0590:
0593			INIT_0590:
0593 4100       |A   |		End_Rendezvous	0x0
0594 0000 0000  |    |		.BLANK	0000[0x4]
0598 ; --------------------------------------------------------------------------------------
0598 ; SUBPROGRAM
0598 ; --------------------------------------------------------------------------------------
0598 05a1       |    |		.CONST	0x05a1								; Address of begin
0599 0004       |    |		.CONST	0x0004								; Address of exception handler
059a 0002       |    |		.CONST	0x0002								; Number of locals
059b			INIT_0598:
059b e017       |    |		Load	0x0,0x17
059c 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
059d e017       |    |		Load	0x0,0x17
059e 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
059f e017       |    |		Load	0x0,0x17
05a0 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
05a1			BODY_0598:
05a1 e210       |    |		Load	0x1,0x10
05a2 e001       |    |		Load	0x0,0x1
05a3 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
05a4 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
05a5 c210       |    |		Store	0x1,0x10
05a6 00cf       |    |		Action	Mark_Auxiliary
05a7 00d9       |    |		Load_Top	At_Offset_1
05a8 e210       |    |		Load	0x1,0x10
05a9 e016       |    |		Load	0x0,0x16
05aa 0227       | '  |		Execute	Access,All_Reference
05ab e014       |    |		Load	0x0,0x14
05ac 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
05ad e015       |    |		Load	0x0,0x15
05ae 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
05af 00c9       |    |		Action	Pop_Auxiliary_Loop
05b0 7ff6       |    |		Jump	0x5a7
05b1 0000 0000  |    |		.BLANK	0000[0x7]
05b8 ; --------------------------------------------------------------------------------------
05b8 ; SUBPROGRAM
05b8 ; --------------------------------------------------------------------------------------
05b8 05d0       |    |		.CONST	0x05d0								; Address of begin
05b9 05db       |    |		.CONST	0x05db								; Address of exception handler
05ba 0014       |    |		.CONST	0x0014								; Number of locals
05bb			INIT_05b8:
05bb 4802       |H   |		Short_Literal	0x2
05bc 02cb       |    |		Declare_Variable	Entry
05bd 4800       |H   |		Short_Literal	0x0
05be 02cb       |    |		Declare_Variable	Entry
05bf 00bf       |    |		Action	Accept_Activation
05c0 e001       |    |		Load	0x0,0x1
05c1 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
05c2 00e3       |    |		Load_Encached	Natural_Cache
05c3 00e3       |    |		Load_Encached	Natural_Cache
05c4 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
05c5 4801       |H   |		Short_Literal	0x1
05c6 4802       |H   |		Short_Literal	0x2
05c7 e001       |    |		Load	0x0,0x1
05c8 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
05c9 035b       | [  |		Declare_Type	Array,Constrained
05ca 0337       | 7  |		Declare_Variable	Array
05cb 029f 05eb  |    |		Declare_Subprogram	INIT_05e8,For_Call
05cd 029f 0623  |   #|		Declare_Subprogram	INIT_0620,For_Call
05cf 00bc       |    |		Action	Signal_Activated
05d0			BODY_05b8:
05d0 8213       |    |		Call	0x1,0x13
05d1 604a       |`J  |		Indirect_Literal	Discrete,0x61c,{0x00000000, 0x00008000}
05d2 00ba       |    |		Action	Initiate_Delay
05d3 8214       |    |		Call	0x1,0x14
05d4 e002       |    |		Load	0x0,0x2
05d5 e003       |    |		Load	0x0,0x3
05d6 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
05d7 e002       |    |		Load	0x0,0x2
05d8 e003       |    |		Load	0x0,0x3
05d9 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
05da 00bb       |    |		Action	Signal_Completion
05db			TRAP_05b8:
05db e004       |    |		Load	0x0,0x4
05dc 010f       |    |		Execute	Exception,Equal
05dd 6801       |h   |		Jump_Zero	0x5df
05de 00bb       |    |		Action	Signal_Completion
05df 0092 06c0  |    |		Action	Push_String_Extended,0x6c0					; "Error_Channel got an unexpected exception 2:"
05e1 4800       |H   |		Short_Literal	0x0
05e2 4801       |H   |		Short_Literal	0x1
05e3 e005       |    |		Load	0x0,0x5
05e4 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
05e5 01cc       |    |		Execute	Vector,Catenate
05e6 8006       |    |		Call	0x0,0x6
05e7 00bb       |    |		Action	Signal_Completion
05e8 ; --------------------------------------------------------------------------------------
05e8 ; SUBPROGRAM
05e8 ; --------------------------------------------------------------------------------------
05e8 05f1       |    |		.CONST	0x05f1								; Address of begin
05e9 060d       |    |		.CONST	0x060d								; Address of exception handler
05ea 0003       |    |		.CONST	0x0003								; Number of locals
05eb			INIT_05e8:
05eb 480d       |H   |		Short_Literal	0xd
05ec 0299 0683  |    |		Declare_Subprogram	INIT_0680,For_Accept
05ee 480e       |H   |		Short_Literal	0xe
05ef 0299 06a3  |    |		Declare_Subprogram	INIT_06a0,For_Accept
05f1			BODY_05e8:
05f1 4802       |H   |		Short_Literal	0x2
05f2 4802       |H   |		Short_Literal	0x2
05f3 0099       |    |		Action	Reference_Dynamic
05f4 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
05f5 0137       | 7  |		Execute	Entry,Rendezvous
05f6 e007       |    |		Load	0x0,0x7
05f7 6803       |h   |		Jump_Zero	0x5fb
05f8 0092 06c1  |    |		Action	Push_String_Extended,0x6c1					; "Error_Channel connecting ..."
05fa 8008       |    |		Call	0x0,0x8
05fb e001       |    |		Load	0x0,0x1
05fc 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
05fd 601a       |`   |		Indirect_Literal	Discrete,0x618,{0x00007fff, 0xffffffff}
05fe e002       |    |		Load	0x0,0x2
05ff e003       |    |		Load	0x0,0x3
0600 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0601 c20f       |    |		Store	0x1,0xf
0602 e007       |    |		Load	0x0,0x7
0603 6803       |h   |		Jump_Zero	0x607
0604 0092 06c2  |    |		Action	Push_String_Extended,0x6c2					; "Error_Channel connected."
0606 8008       |    |		Call	0x0,0x8
0607 4803       |H   |		Short_Literal	0x3
0608 4802       |H   |		Short_Literal	0x2
0609 0099       |    |		Action	Reference_Dynamic
060a 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
060b 0137       | 7  |		Execute	Entry,Rendezvous
060c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
060d			TRAP_05e8:
060d e004       |    |		Load	0x0,0x4
060e 010f       |    |		Execute	Exception,Equal
060f 6805       |h   |		Jump_Zero	0x615
0610 0092 06c3  |    |		Action	Push_String_Extended,0x6c3					; "Error_Channel terminating due to Open or Connect failure"
0612 8006       |    |		Call	0x0,0x6
0613 00d8       |    |		Load_Top	At_Offset_0
0614 0101       |    |		Execute	Exception,Reraise
0615 0100       |    |		Execute	Exception,Raise
0616 0000 0000  |    |		.XXX[0x2]
0618 0000 7fff  |    |		.LITERAL	{0x00007fff, 0xffffffff}
061c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008000}
0620 ; --------------------------------------------------------------------------------------
0620 ; SUBPROGRAM
0620 ; --------------------------------------------------------------------------------------
0620 0628       | (  |		.CONST	0x0628								; Address of begin
0621 066d       | m  |		.CONST	0x066d								; Address of exception handler
0622 0002       |    |		.CONST	0x0002								; Number of locals
0623			INIT_0620:
0623 4801       |H   |		Short_Literal	0x1
0624 4880       |H   |		Short_Literal	0x80
0625 e009       |    |		Load	0x0,0x9
0626 035b       | [  |		Declare_Type	Array,Constrained
0627 0337       | 7  |		Declare_Variable	Array
0628			BODY_0620:
0628 00cf       |    |		Action	Mark_Auxiliary
0629 00e3       |    |		Load_Encached	Natural_Cache
062a 00da       |    |		Load_Top	At_Offset_2
062b e001       |    |		Load	0x0,0x1
062c 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
062d 67ea       |g   |		Indirect_Literal	Discrete,0x618,{0x00007fff, 0xffffffff}
062e e002       |    |		Load	0x0,0x2
062f e003       |    |		Load	0x0,0x3
0630 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0631 c20f       |    |		Store	0x1,0xf
0632 00d1       |    |		Pop_Control	Pop_Count_1
0633 c210       |    |		Store	0x1,0x10
0634 e20f       |    |		Load	0x1,0xf
0635 6801       |h   |		Jump_Zero	0x637
0636 782b       |x+  |		Jump	0x662
0637 e210       |    |		Load	0x1,0x10
0638 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0639 6821       |h!  |		Jump_Zero	0x65b
063a e20f       |    |		Load	0x1,0xf
063b 800a       |    |		Call	0x0,0xa
063c e211       |    |		Load	0x1,0x11
063d e210       |    |		Load	0x1,0x10
063e 0273       | s  |		Execute	Discrete,Plus
063f c211       |    |		Store	0x1,0x11
0640 e007       |    |		Load	0x0,0x7
0641 680e       |h   |		Jump_Zero	0x650
0642 4801       |H   |		Short_Literal	0x1
0643 e210       |    |		Load	0x1,0x10
0644 00db       |    |		Load_Top	At_Offset_3
0645 01cf       |    |		Execute	Vector,Slice_Read
0646 e00b       |    |		Load	0x0,0xb
0647 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0648 0092 06c4  |    |		Action	Push_String_Extended,0x6c4					; "count => "
064a 01cc       |    |		Execute	Vector,Catenate
064b e210       |    |		Load	0x1,0x10
064c 00e0       |    |		Load_Encached	Standard_Cache
064d 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
064e 01cc       |    |		Execute	Vector,Catenate
064f 8008       |    |		Call	0x0,0x8
0650 e00c       |    |		Load	0x0,0xc
0651 4801       |H   |		Short_Literal	0x1
0652 e210       |    |		Load	0x1,0x10
0653 e402       |    |		Load	0x2,0x2
0654 01cf       |    |		Execute	Vector,Slice_Read
0655 e00d       |    |		Load	0x0,0xd
0656 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0657 00d1       |    |		Pop_Control	Pop_Count_1
0658 4801       |H   |		Short_Literal	0x1
0659 c00e       |    |		Store	0x0,0xe
065a 7805       |x   |		Jump	0x660
065b e007       |    |		Load	0x0,0x7
065c 6803       |h   |		Jump_Zero	0x660
065d 0092 06c5  |    |		Action	Push_String_Extended,0x6c5					; "Error_Channel got 0 length data."
065f 8008       |    |		Call	0x0,0x8
0660 00c9       |    |		Action	Pop_Auxiliary_Loop
0661 7fc7       |    |		Jump	0x629
0662 00ce       |    |		Action	Pop_Auxiliary
0663 e007       |    |		Load	0x0,0x7
0664 6807       |h   |		Jump_Zero	0x66c
0665 0092 06c6  |    |		Action	Push_String_Extended,0x6c6					; "Error_Channel byte count = "
0667 e211       |    |		Load	0x1,0x11
0668 00e0       |    |		Load_Encached	Standard_Cache
0669 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
066a 01cc       |    |		Execute	Vector,Catenate
066b 8008       |    |		Call	0x0,0x8
066c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
066d			TRAP_0620:
066d 0007       |    |		Action	Break_Optional
066e 0092 06c7  |    |		Action	Push_String_Extended,0x6c7					; "Error_Channel got an unexpected exception 1: "
0670 4800       |H   |		Short_Literal	0x0
0671 4801       |H   |		Short_Literal	0x1
0672 e005       |    |		Load	0x0,0x5
0673 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0674 01cc       |    |		Execute	Vector,Catenate
0675 8006       |    |		Call	0x0,0x6
0676 4801       |H   |		Short_Literal	0x1
0677 c00e       |    |		Store	0x0,0xe
0678 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0679 0000 0000  |    |		.BLANK	0000[0x7]
0680 ; --------------------------------------------------------------------------------------
0680 ; SUBPROGRAM
0680 ; --------------------------------------------------------------------------------------
0680 0683       |    |		.CONST	0x0683								; Address of begin
0681 0004       |    |		.CONST	0x0004								; Address of exception handler
0682 0001       |    |		.CONST	0x0001								; Number of locals
0683			BODY_0680:
0683			INIT_0680:
0683 e7fd       |    |		Load	0x3,-0x3
0684 e212       |    |		Load	0x1,0x12
0685 01d4       |    |		Execute	Vector,Structure_Write
0686 e001       |    |		Load	0x0,0x1
0687 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0688 e212       |    |		Load	0x1,0x12
0689 e00b       |    |		Load	0x0,0xb
068a 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
068b 00d1       |    |		Pop_Control	Pop_Count_1
068c c20f       |    |		Store	0x1,0xf
068d e20f       |    |		Load	0x1,0xf
068e 800a       |    |		Call	0x0,0xa
068f e001       |    |		Load	0x0,0x1
0690 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0691 e002       |    |		Load	0x0,0x2
0692 e7fe       |    |		Load	0x3,-0x2
0693 e212       |    |		Load	0x1,0x12
0694 e00f       |    |		Load	0x0,0xf
0695 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0696 c002       |    |		Store	0x0,0x2
0697 c20f       |    |		Store	0x1,0xf
0698 e20f       |    |		Load	0x1,0xf
0699 800a       |    |		Call	0x0,0xa
069a e007       |    |		Load	0x0,0x7
069b 6803       |h   |		Jump_Zero	0x69f
069c 0092 06c8  |    |		Action	Push_String_Extended,0x6c8					; "Error_Channel opened."
069e 8008       |    |		Call	0x0,0x8
069f 4100       |A   |		End_Rendezvous	0x0
06a0 ; --------------------------------------------------------------------------------------
06a0 ; SUBPROGRAM
06a0 ; --------------------------------------------------------------------------------------
06a0 06a3       |    |		.CONST	0x06a3								; Address of begin
06a1 0004       |    |		.CONST	0x0004								; Address of exception handler
06a2 0001       |    |		.CONST	0x0001								; Number of locals
06a3			BODY_06a0:
06a3			INIT_06a0:
06a3 e20f       |    |		Load	0x1,0xf
06a4 800a       |    |		Call	0x0,0xa
06a5 4100       |A   |		End_Rendezvous	0x0
06a6 ; --------------------------------------------------------------------------------------
06a6 ; STRING TABLE
06a6 ; --------------------------------------------------------------------------------------
06a6 0048       | H  |		.STRTAB	0x0048->0x06ca							; "Aborting remote shell: Remote machine unknown"
06a7 0073       | s  |		.STRTAB	0x0073->0x06e0							; "Unexpected exception "
06a8 0086       |    |		.STRTAB	0x0086->0x06eb							; " in remote shell."
06a9 0095       |    |		.STRTAB	0x0095->0x06f3							; "Baud_"
06aa 0098       |    |		.STRTAB	0x0098->0x06f6							; "19200"
06ab 009b       |    |		.STRTAB	0x009b->0x06f8							; "vt100/"
06ac 009f       |    |		.STRTAB	0x009f->0x06fb							; "Executing remote shell on host "
06ad 00bc       |    |		.STRTAB	0x00bc->0x070b							; "[Remote Shell complete]"
06ae 00d1       |    |		.STRTAB	0x00d1->0x0716							; "[Remote_Shell error occurred]"
06af 00ec       |    |		.STRTAB	0x00ec->0x0725							; "Aborting rshell because Open or Connect failed."
06b0 0119       |    |		.STRTAB	0x0119->0x073c							; "Unexpected exception in rshell initialization:"
06b1 0145       | E  |		.STRTAB	0x0145->0x0753							; "Primary local socket = "
06b2 015a       | Z  |		.STRTAB	0x015a->0x075f							; "Secondary local socket = "
06b3 0171       | q  |		.STRTAB	0x0171->0x076b							; "Sending  "
06b4 0178       | x  |		.STRTAB	0x0178->0x0770							; "Remote shell error: "
06b5 018a       |    |		.STRTAB	0x018a->0x077a							; "Remote shell invocation OK."
06b6 01a3       |    |		.STRTAB	0x01a3->0x0787							; "Unable to start remote shell: "
06b7 01bf       |    |		.STRTAB	0x01bf->0x0796							; "Remote_Shell got data length = "
06b8 01dc       |    |		.STRTAB	0x01dc->0x07a6							; "Remote Shell byte count = "
06b9 01f4       |    |		.STRTAB	0x01f4->0x07b3							; "Remote Shell got an unexpected exception 1: "
06ba 021e       |    |		.STRTAB	0x021e->0x07c9							; "Opened primary ..."
06bb 022e       | .  |		.STRTAB	0x022e->0x07d2							; "Connect failed - SOCKET_IN_USE"
06bc 024a       | J  |		.STRTAB	0x024a->0x07e1							; "Retrying with a different socket"
06bd 0268       | h  |		.STRTAB	0x0268->0x07f1							; "Transmitted string "
06be 0279       | y  |		.STRTAB	0x0279->0x07fa							; "Error in transmitting data"
06bf 0291       |    |		.STRTAB	0x0291->0x0807							; "Input_Channel got an unexpected exception:"
06c0 02b9       |    |		.STRTAB	0x02b9->0x081c							; "Error_Channel got an unexpected exception 2:"
06c1 02e3       |    |		.STRTAB	0x02e3->0x0832							; "Error_Channel connecting ..."
06c2 02fd       |    |		.STRTAB	0x02fd->0x0840							; "Error_Channel connected."
06c3 0313       |    |		.STRTAB	0x0313->0x084c							; "Error_Channel terminating due to Open or Connect failure"
06c4 0349       | I  |		.STRTAB	0x0349->0x0868							; "count => "
06c5 0350       | P  |		.STRTAB	0x0350->0x086d							; "Error_Channel got 0 length data."
06c6 036e       | n  |		.STRTAB	0x036e->0x087d							; "Error_Channel byte count = "
06c7 0387       |    |		.STRTAB	0x0387->0x088a							; "Error_Channel got an unexpected exception 1: "
06c8 03b2       |    |		.STRTAB	0x03b2->0x08a1							; "Error_Channel opened."
06c9 03c5       |    |		.STREND 0x03c5->0x08ab
06ca 4162 6f72  |Abor|		.STRTAB_STRINGS
08ac 0000 0000  |    |		.BLANK	0000[0x4]
08b0 ; --------------------------------------------------------------------------------------
08b0 ; Debug Table
08b0 ; --------------------------------------------------------------------------------------
08b0 0004 000d  |    |		.DEBUG4	0x0004,0x000d,0xdda6,0x0000,0x0001,0x0000
08b6 85c1 a1a5  |    |		.XXX[0x1d]
08b8 8dcd 7d05  |  } |
08ba c98d 0d19  |    |
08bc d8e9 18a0  |    |
08be c0b0 d0d8  |    |
08c0 e4a4 017d  |   }|
08c2 7cc1 d1a1  ||   |
08c4 a5cc e9c0  |    |
08c6 a0c0 b0d0  |    |
08c8 e0c0 a401  |    |
08ca cd95 d17d  |   }|
08cc 91bd d589  |    |
08ce b195 7db1  |  } |
08d0 a5b9 a7d5  |    |
08d2 6000       |`   |
08d3 0000 0000  |    |		.BLANK	0000[0x4]
08d7 010c 9100  |    |		.XXX[0x1b]
08d9 2bf5 8000  |+   |
08db 0000 039a  |    |
08dd f000 02ca  |    |
08df a000 0118  |    |
08e1 2900 2c1e  |) , |
08e3 800e 3fb0  |  ? |
08e5 0ec0 0000  |    |
08e7 0000 0000  |    |
08e9 57eb 0040  |W  @|
08eb 0e58 8008  | X  |
08ed 01cb 1000  |    |
08ef 0213 1200  |    |
08f1 57eb       |W   |
08f2 0000 0000  |    |		.BLANK	0000[0x4]
08f6 0213 2e00  |  . |		.XXX[0x3]
08f8 57eb       |W   |
08f9 0000 0000  |    |		.BLANK	0000[0x4]
08fd 020c 9c00  |    |		.XXX[0x16]
08ff 583d 0000  |X=  |
0901 0000 056b  |   k|
0903 b801 5ecc  |  ^ |
0905 0057 7b00  | W{ |
0907 0020 88e0  |    |
0909 058f 2000  |    |
090b 0000 0057  |   W|
090d 0380 15fa  |    |
090f c000 084c  |   L|
0911 a801 63c8  |  c |
0913 0000 0000  |    |		.BLANK	0000[0x4]
0917 084c 2001  | L  |		.XXX[0x3]
0919 63c8       |c   |
091a 0000 0000  |    |		.BLANK	0000[0x4]
091e 0895 4000  |  @ |		.XXX[0x1d]
0920 0000 0000  |    |
0922 0000 162e  |   .|
0924 8005 83d0  |    |
0926 0162 0800  | b  |
0928 0186 5000  |  P |
092a 0000 0000  |    |
092c 0800 00b2  |    |
092e e800 0000  |    |
0930 0000 0000  |    |
0932 8000 0000  |    |
0934 0000 00e7  |    |
0936 7b00 0000  |{   |
0938 0000 00f3  |    |
093a 3600       |6   |
093b 0000 0000  |    |		.BLANK	0000[0x82]
09bd 0102 da00  |    |		.XXX[0x6]
09bf 0000 0000  |    |
09c1 00fe f100  |    |
09c3 0000 0000  |    |		.BLANK	0000[0xc]
09cf 00ef 4d00  |  M |		.XXX[0x2]
09d1 0000 0000  |    |		.BLANK	0000[0x2f]