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

⟦76098c393⟧

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

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 08e0       |    |		.CONST	0x08e0								; 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 00b8       |    |		.CONST	0x00b8								; Address of begin
0019 00bb       |    |		.CONST	0x00bb								; Address of exception handler
001a 001d       |    |		.CONST	0x001d								; 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 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0035 02c7       |    |		Declare_Variable	Any
0036 e5f7       |    |		Load	0x2,-0x9
0037 a40b       |    |		Store_Unchecked	0x2,0xb
0038 e005       |    |		Load	0x0,0x5
0039 e006       |    |		Load	0x0,0x6
003a 4ffd       |O   |		Short_Literal	-0x3
003b 4802       |H   |		Short_Literal	0x2
003c 0099       |    |		Action	Reference_Dynamic
003d 4ffe       |O   |		Short_Literal	-0x2
003e 4802       |H   |		Short_Literal	0x2
003f 0099       |    |		Action	Reference_Dynamic
0040 e007       |    |		Load	0x0,0x7
0041 0387       |    |		Declare_Variable	Package
0042 00d8       |    |		Load_Top	At_Offset_0
0043 020f       |    |		Execute	Module,Activate
0044 4800       |H   |		Short_Literal	0x0
0045 0093 05eb  |    |		push_full_address	INIT_05e8
0047 00f5       |    |		Load_Encached	Unused21
0048 037d       | }  |		Declare_Type	Task,Defined
0049 036f       | o  |		Declare_Variable	Task
004a 4800       |H   |		Short_Literal	0x0
004b 0093 04fb  |    |		push_full_address	INIT_04f8
004d 00f5       |    |		Load_Encached	Unused21
004e 037d       | }  |		Declare_Type	Task,Defined
004f 036f       | o  |		Declare_Variable	Task
0050 00da       |    |		Load_Top	At_Offset_2
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 00db       |    |		Load_Top	At_Offset_3
0056 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0057 0322       | "  |		Declare_Variable	Record
0058 00d8       |    |		Load_Top	At_Offset_0
0059 1c00       |    |		Execute_Immediate	Run_Utility,0x0
005a e008       |    |		Load	0x0,0x8
005b 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
005c 00d8       |    |		Load_Top	At_Offset_0
005d 0007       |    |		Action	Break_Optional
005e 029f 0143  |   C|		Declare_Subprogram	INIT_0140,For_Call
0060 029f 0153  |   S|		Declare_Subprogram	INIT_0150,For_Call
0062 029f 016b  |   k|		Declare_Subprogram	INIT_0168,For_Call
0064 029f 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Call
0066 029f 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Call
0068 029f 01db  |    |		Declare_Subprogram	INIT_01d8,For_Call
006a 029f 0203  |    |		Declare_Subprogram	INIT_0200,For_Call
006c 029f 0223  |   #|		Declare_Subprogram	INIT_0220,For_Call
006e 029f 0233  |   3|		Declare_Subprogram	INIT_0230,For_Call
0070 029f 0243  |   C|		Declare_Subprogram	INIT_0240,For_Call
0072 e009       |    |		Load	0x0,0x9
0073 4806       |H   |		Short_Literal	0x6
0074 4802       |H   |		Short_Literal	0x2
0075 0099       |    |		Action	Reference_Dynamic
0076 e003       |    |		Load	0x0,0x3
0077 e00a       |    |		Load	0x0,0xa
0078 e00b       |    |		Load	0x0,0xb
0079 481b       |H   |		Short_Literal	0x1b
007a 4802       |H   |		Short_Literal	0x2
007b 0099       |    |		Action	Reference_Dynamic
007c e404       |    |		Load	0x2,0x4
007d 4813       |H   |		Short_Literal	0x13
007e 4802       |H   |		Short_Literal	0x2
007f 0099       |    |		Action	Reference_Dynamic
0080 e403       |    |		Load	0x2,0x3
0081 481c       |H   |		Short_Literal	0x1c
0082 4802       |H   |		Short_Literal	0x2
0083 0099       |    |		Action	Reference_Dynamic
0084 e002       |    |		Load	0x0,0x2
0085 e410       |    |		Load	0x2,0x10
0086 e40c       |    |		Load	0x2,0xc
0087 4809       |H   |		Short_Literal	0x9
0088 4802       |H   |		Short_Literal	0x2
0089 0099       |    |		Action	Reference_Dynamic
008a e00c       |    |		Load	0x0,0xc
008b 480f       |H   |		Short_Literal	0xf
008c e40d       |    |		Load	0x2,0xd
008d 020e       |    |		Execute	Module,Augment_Imports
008e 0007       |    |		Action	Break_Optional
008f e00d       |    |		Load	0x0,0xd
0090 e403       |    |		Load	0x2,0x3
0091 e009       |    |		Load	0x0,0x9
0092 e5f3       |    |		Load	0x2,-0xd
0093 480b       |H   |		Short_Literal	0xb
0094 4802       |H   |		Short_Literal	0x2
0095 0099       |    |		Action	Reference_Dynamic
0096 e004       |    |		Load	0x0,0x4
0097 4805       |H   |		Short_Literal	0x5
0098 4802       |H   |		Short_Literal	0x2
0099 0099       |    |		Action	Reference_Dynamic
009a e00c       |    |		Load	0x0,0xc
009b e404       |    |		Load	0x2,0x4
009c e002       |    |		Load	0x0,0x2
009d 4813       |H   |		Short_Literal	0x13
009e 4802       |H   |		Short_Literal	0x2
009f 0099       |    |		Action	Reference_Dynamic
00a0 e003       |    |		Load	0x0,0x3
00a1 e00e       |    |		Load	0x0,0xe
00a2 4814       |H   |		Short_Literal	0x14
00a3 4802       |H   |		Short_Literal	0x2
00a4 0099       |    |		Action	Reference_Dynamic
00a5 481b       |H   |		Short_Literal	0x1b
00a6 4802       |H   |		Short_Literal	0x2
00a7 0099       |    |		Action	Reference_Dynamic
00a8 e00a       |    |		Load	0x0,0xa
00a9 e00b       |    |		Load	0x0,0xb
00aa e5f7       |    |		Load	0x2,-0x9
00ab e5f1       |    |		Load	0x2,-0xf
00ac e5f0       |    |		Load	0x2,-0x10
00ad e00f       |    |		Load	0x0,0xf
00ae e008       |    |		Load	0x0,0x8
00af 4812       |H   |		Short_Literal	0x12
00b0 4802       |H   |		Short_Literal	0x2
00b1 0099       |    |		Action	Reference_Dynamic
00b2 e010       |    |		Load	0x0,0x10
00b3 4818       |H   |		Short_Literal	0x18
00b4 e40e       |    |		Load	0x2,0xe
00b5 020e       |    |		Execute	Module,Augment_Imports
00b6 029f 025b  |   [|		Declare_Subprogram	INIT_0258,For_Call
00b8			BODY_0018:
00b8 00be       |    |		Action	Activate_Tasks
00b9 841d       |    |		Call	0x2,0x1d
00ba 4512       |E   |		Exit_Suprogram	New_Top_Offset 0x12
00bb			TRAP_0018:
00bb e011       |    |		Load	0x0,0x11
00bc 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
00bd 010f       |    |		Execute	Exception,Equal
00be 681d       |h   |		Jump_Zero	0xdc
00bf 0092 06d6  |    |		Action	Push_String_Extended,0x6d6					; "Aborting remote shell: Remote machine unknown"
00c1 841b       |    |		Call	0x2,0x1b
00c2 e40b       |    |		Load	0x2,0xb
00c3 e004       |    |		Load	0x0,0x4
00c4 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
00c5 6804       |h   |		Jump_Zero	0xca
00c6 e40b       |    |		Load	0x2,0xb
00c7 e004       |    |		Load	0x0,0x4
00c8 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
00c9 c40b       |    |		Store	0x2,0xb
00ca e40f       |    |		Load	0x2,0xf
00cb e40c       |    |		Load	0x2,0xc
00cc 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00cd 00d1       |    |		Pop_Control	Pop_Count_1
00ce e410       |    |		Load	0x2,0x10
00cf e40c       |    |		Load	0x2,0xc
00d0 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00d1 00d1       |    |		Pop_Control	Pop_Count_1
00d2 e40d       |    |		Load	0x2,0xd
00d3 0209       |    |		Execute	Task,Abort
00d4 0007       |    |		Action	Break_Optional
00d5 e40e       |    |		Load	0x2,0xe
00d6 0209       |    |		Execute	Task,Abort
00d7 0007       |    |		Action	Break_Optional
00d8 e5ef       |    |		Load	0x2,-0x11
00d9 e002       |    |		Load	0x0,0x2
00da 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00db 4512       |E   |		Exit_Suprogram	New_Top_Offset 0x12
00dc e00a       |    |		Load	0x0,0xa
00dd 010f       |    |		Execute	Exception,Equal
00de 681a       |h   |		Jump_Zero	0xf9
00df e40b       |    |		Load	0x2,0xb
00e0 e004       |    |		Load	0x0,0x4
00e1 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
00e2 6804       |h   |		Jump_Zero	0xe7
00e3 e40b       |    |		Load	0x2,0xb
00e4 e004       |    |		Load	0x0,0x4
00e5 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
00e6 c40b       |    |		Store	0x2,0xb
00e7 e40f       |    |		Load	0x2,0xf
00e8 e40c       |    |		Load	0x2,0xc
00e9 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00ea 00d1       |    |		Pop_Control	Pop_Count_1
00eb e410       |    |		Load	0x2,0x10
00ec e40c       |    |		Load	0x2,0xc
00ed 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00ee 00d1       |    |		Pop_Control	Pop_Count_1
00ef e40d       |    |		Load	0x2,0xd
00f0 0209       |    |		Execute	Task,Abort
00f1 0007       |    |		Action	Break_Optional
00f2 e40e       |    |		Load	0x2,0xe
00f3 0209       |    |		Execute	Task,Abort
00f4 0007       |    |		Action	Break_Optional
00f5 e5ef       |    |		Load	0x2,-0x11
00f6 e002       |    |		Load	0x0,0x2
00f7 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00f8 4512       |E   |		Exit_Suprogram	New_Top_Offset 0x12
00f9 e012       |    |		Load	0x0,0x12
00fa 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
00fb 010f       |    |		Execute	Exception,Equal
00fc 6818       |h   |		Jump_Zero	0x115
00fd e40b       |    |		Load	0x2,0xb
00fe e004       |    |		Load	0x0,0x4
00ff 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0100 6804       |h   |		Jump_Zero	0x105
0101 e40b       |    |		Load	0x2,0xb
0102 e004       |    |		Load	0x0,0x4
0103 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0104 c40b       |    |		Store	0x2,0xb
0105 e40f       |    |		Load	0x2,0xf
0106 e40c       |    |		Load	0x2,0xc
0107 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0108 00d1       |    |		Pop_Control	Pop_Count_1
0109 e410       |    |		Load	0x2,0x10
010a e40c       |    |		Load	0x2,0xc
010b 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
010c 00d1       |    |		Pop_Control	Pop_Count_1
010d e40d       |    |		Load	0x2,0xd
010e 0209       |    |		Execute	Task,Abort
010f 0007       |    |		Action	Break_Optional
0110 e40e       |    |		Load	0x2,0xe
0111 0209       |    |		Execute	Task,Abort
0112 0007       |    |		Action	Break_Optional
0113 00d8       |    |		Load_Top	At_Offset_0
0114 0101       |    |		Execute	Exception,Reraise
0115 0092 06d7  |    |		Action	Push_String_Extended,0x6d7					; "Unexpected exception "
0117 4800       |H   |		Short_Literal	0x0
0118 4801       |H   |		Short_Literal	0x1
0119 e00b       |    |		Load	0x0,0xb
011a 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
011b 01cc       |    |		Execute	Vector,Catenate
011c 0092 06d8  |    |		Action	Push_String_Extended,0x6d8					; " in remote shell."
011e 01cc       |    |		Execute	Vector,Catenate
011f 841b       |    |		Call	0x2,0x1b
0120 e40b       |    |		Load	0x2,0xb
0121 e004       |    |		Load	0x0,0x4
0122 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0123 6804       |h   |		Jump_Zero	0x128
0124 e40b       |    |		Load	0x2,0xb
0125 e004       |    |		Load	0x0,0x4
0126 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0127 c40b       |    |		Store	0x2,0xb
0128 e40f       |    |		Load	0x2,0xf
0129 e40c       |    |		Load	0x2,0xc
012a 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
012b 00d1       |    |		Pop_Control	Pop_Count_1
012c e410       |    |		Load	0x2,0x10
012d e40c       |    |		Load	0x2,0xc
012e 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
012f 00d1       |    |		Pop_Control	Pop_Count_1
0130 e40d       |    |		Load	0x2,0xd
0131 0209       |    |		Execute	Task,Abort
0132 0007       |    |		Action	Break_Optional
0133 e40e       |    |		Load	0x2,0xe
0134 0209       |    |		Execute	Task,Abort
0135 0007       |    |		Action	Break_Optional
0136 e5ef       |    |		Load	0x2,-0x11
0137 e002       |    |		Load	0x0,0x2
0138 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0139 4512       |E   |		Exit_Suprogram	New_Top_Offset 0x12
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 e5ef       |    |		Load	0x2,-0x11
0144 4801       |H   |		Short_Literal	0x1
0145 e7ff       |    |		Load	0x3,-0x1
0146 e013       |    |		Load	0x0,0x13
0147 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0148 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0149 0000 0000  |    |		.BLANK	0000[0x7]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153       | S  |		.CONST	0x0153								; Address of begin
0151 0160       | `  |		.CONST	0x0160								; Address of exception handler
0152 0001       |    |		.CONST	0x0001								; Number of locals
0153			BODY_0150:
0153			INIT_0150:
0153 e405       |    |		Load	0x2,0x5
0154 e003       |    |		Load	0x0,0x3
0155 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0156 e405       |    |		Load	0x2,0x5
0157 e003       |    |		Load	0x0,0x3
0158 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0159 e406       |    |		Load	0x2,0x6
015a e003       |    |		Load	0x0,0x3
015b 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
015c e406       |    |		Load	0x2,0x6
015d e003       |    |		Load	0x0,0x3
015e 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
015f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0160			TRAP_0150:
0160 0007       |    |		Action	Break_Optional
0161 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0162 0000 0000  |    |		.BLANK	0000[0x6]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b       | k  |		.CONST	0x016b								; Address of begin
0169 0004       |    |		.CONST	0x0004								; Address of exception handler
016a 0001       |    |		.CONST	0x0001								; Number of locals
016b			BODY_0168:
016b			INIT_0168:
016b 4802       |H   |		Short_Literal	0x2
016c e00d       |    |		Load	0x0,0xd
016d 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
016e 4801       |H   |		Short_Literal	0x1
016f 4850       |HP  |		Short_Literal	0x50
0170 00e9       |    |		Load_Encached	String_Cache
0171 035b       | [  |		Declare_Type	Array,Constrained
0172 0337       | 7  |		Declare_Variable	Array
0173 4850       |HP  |		Short_Literal	0x50
0174 4801       |H   |		Short_Literal	0x1
0175 4820       |H   |		Short_Literal	0x20
0176 00d9       |    |		Load_Top	At_Offset_1
0177 e604       |    |		Load	0x3,0x4
0178 01d6       |    |		Execute	Vector,Field_Write
0179 3ffb       |?   |		Loop_Increasing	0x175
017a e7ff       |    |		Load	0x3,-0x1
017b e00d       |    |		Load	0x0,0xd
017c 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
017d 4801       |H   |		Short_Literal	0x1
017e 00db       |    |		Load_Top	At_Offset_3
017f e00d       |    |		Load	0x0,0xd
0180 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
0181 4802       |H   |		Short_Literal	0x2
0182 e00d       |    |		Load	0x0,0xd
0183 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
0184 4801       |H   |		Short_Literal	0x1
0185 4850       |HP  |		Short_Literal	0x50
0186 00e9       |    |		Load_Encached	String_Cache
0187 035b       | [  |		Declare_Type	Array,Constrained
0188 0337       | 7  |		Declare_Variable	Array
0189 4850       |HP  |		Short_Literal	0x50
018a 4801       |H   |		Short_Literal	0x1
018b 4820       |H   |		Short_Literal	0x20
018c 00d9       |    |		Load_Top	At_Offset_1
018d e604       |    |		Load	0x3,0x4
018e 01d6       |    |		Execute	Vector,Field_Write
018f 3ffb       |?   |		Loop_Increasing	0x18b
0190 e7ff       |    |		Load	0x3,-0x1
0191 e00d       |    |		Load	0x0,0xd
0192 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
0193 4801       |H   |		Short_Literal	0x1
0194 00db       |    |		Load_Top	At_Offset_3
0195 e00d       |    |		Load	0x0,0xd
0196 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
0197 4800       |H   |		Short_Literal	0x0
0198 4801       |H   |		Short_Literal	0x1
0199 4801       |H   |		Short_Literal	0x1
019a e7ff       |    |		Load	0x3,-0x1
019b e00d       |    |		Load	0x0,0xd
019c 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
019d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
019e 0000 0000  |    |		.XXX[0x2]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a9       |    |		.CONST	0x01a9								; Address of begin
01a1 0004       |    |		.CONST	0x0004								; Address of exception handler
01a2 0002       |    |		.CONST	0x0002								; Number of locals
01a3			INIT_01a0:
01a3 e010       |    |		Load	0x0,0x10
01a4 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
01a5 e010       |    |		Load	0x0,0x10
01a6 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
01a7 e010       |    |		Load	0x0,0x10
01a8 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
01a9			BODY_01a0:
01a9 4801       |H   |		Short_Literal	0x1
01aa 4805       |H   |		Short_Literal	0x5
01ab 00da       |    |		Load_Top	At_Offset_2
01ac 01cf       |    |		Execute	Vector,Slice_Read
01ad 0092 06d9  |    |		Action	Push_String_Extended,0x6d9					; "Baud_"
01af 01df       |    |		Execute	Vector,Equal
01b0 6806       |h   |		Jump_Zero	0x1b7
01b1 4806       |H   |		Short_Literal	0x6
01b2 00d9       |    |		Load_Top	At_Offset_1
01b3 01dc       |    |		Execute	Vector,Last
01b4 00da       |    |		Load_Top	At_Offset_2
01b5 01cf       |    |		Execute	Vector,Slice_Read
01b6 00ca       |    |		Action	Exit_Nullary_Function
01b7 0092 06da  |    |		Action	Push_String_Extended,0x6da					; "19200"
01b9 00ca       |    |		Action	Exit_Nullary_Function
01ba 0000 0000  |    |		.BLANK	0000[0x6]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3       |    |		.CONST	0x01c3								; Address of begin
01c1 0004       |    |		.CONST	0x0004								; Address of exception handler
01c2 0001       |    |		.CONST	0x0001								; Number of locals
01c3			BODY_01c0:
01c3			INIT_01c0:
01c3 00da       |    |		Load_Top	At_Offset_2
01c4 01db       |    |		Execute	Vector,Length
01c5 0d10       |    |		Execute_Immediate	Less,0x10
01c6 6802       |h   |		Jump_Zero	0x1c9
01c7 00da       |    |		Load_Top	At_Offset_2
01c8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01c9 00da       |    |		Load_Top	At_Offset_2
01ca 01dd       |    |		Execute	Vector,First
01cb 00db       |    |		Load_Top	At_Offset_3
01cc 01dd       |    |		Execute	Vector,First
01cd 0a0e       |    |		Execute_Immediate	Plus,0xe
01ce 00d8       |    |		Load_Top	At_Offset_0
01cf 00e2       |    |		Load_Encached	Integer_Cache
01d0 0260       | `  |		Execute	Discrete,In_Type
01d1 7001       |p   |		Jump_Nonzero	0x1d3
01d2 0801       |    |		Execute_Immediate	Raise,0x1
01d3 e7ff       |    |		Load	0x3,-0x1
01d4 01cf       |    |		Execute	Vector,Slice_Read
01d5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01d6 0000 0000  |    |		.XXX[0x2]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01e5       |    |		.CONST	0x01e5								; Address of begin
01d9 0004       |    |		.CONST	0x0004								; Address of exception handler
01da 0002       |    |		.CONST	0x0002								; Number of locals
01db			INIT_01d8:
01db 4800       |H   |		Short_Literal	0x0
01dc e010       |    |		Load	0x0,0x10
01dd 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
01de e010       |    |		Load	0x0,0x10
01df 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
01e0 e014       |    |		Load	0x0,0x14
01e1 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01e2 8417       |    |		Call	0x2,0x17
01e3 01cb       |    |		Execute	Vector,Append
01e4 0007       |    |		Action	Break_Optional
01e5			BODY_01d8:
01e5 e5f3       |    |		Load	0x2,-0xd
01e6 680d       |h   |		Jump_Zero	0x1f4
01e7 4800       |H   |		Short_Literal	0x0
01e8 4800       |H   |		Short_Literal	0x0
01e9 00da       |    |		Load_Top	At_Offset_2
01ea 01ca       |    |		Execute	Vector,Prepend
01eb e7ff       |    |		Load	0x3,-0x1
01ec 01cc       |    |		Execute	Vector,Catenate
01ed 0092 06db  |    |		Action	Push_String_Extended,0x6db					; "vt100/"
01ef 01cc       |    |		Execute	Vector,Catenate
01f0 8416       |    |		Call	0x2,0x16
01f1 01cc       |    |		Execute	Vector,Catenate
01f2 01cb       |    |		Execute	Vector,Append
01f3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01f4 4800       |H   |		Short_Literal	0x0
01f5 00d9       |    |		Load_Top	At_Offset_1
01f6 e7ff       |    |		Load	0x3,-0x1
01f7 01cc       |    |		Execute	Vector,Catenate
01f8 e5fc       |    |		Load	0x2,-0x4
01f9 01cc       |    |		Execute	Vector,Catenate
01fa 01cb       |    |		Execute	Vector,Append
01fb 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01fc 0000 0000  |    |		.BLANK	0000[0x4]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0206       |    |		.CONST	0x0206								; Address of begin
0201 0004       |    |		.CONST	0x0004								; Address of exception handler
0202 0003       |    |		.CONST	0x0003								; Number of locals
0203			INIT_0200:
0203 e00d       |    |		Load	0x0,0xd
0204 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
0205 03e9       |    |		Declare_Variable	Discrete,Duplicate
0206			BODY_0200:
0206 e00d       |    |		Load	0x0,0xd
0207 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
0208 e00d       |    |		Load	0x0,0xd
0209 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
020a e7ff       |    |		Load	0x3,-0x1
020b e00d       |    |		Load	0x0,0xd
020c 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
020d 005b       | [  |		Store_Top	Discrete,At_Offset_3
020e 0059       | Y  |		Store_Top	Discrete,At_Offset_1
020f 00d9       |    |		Load_Top	At_Offset_1
0210 e7fe       |    |		Load	0x3,-0x2
0211 027c       | |  |		Execute	Discrete,Less
0212 6806       |h   |		Jump_Zero	0x219
0213 e7fe       |    |		Load	0x3,-0x2
0214 00da       |    |		Load_Top	At_Offset_2
0215 0272       | r  |		Execute	Discrete,Minus
0216 e015       |    |		Load	0x0,0x15
0217 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0218 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0219 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
021a 0000 0000  |    |		.BLANK	0000[0x6]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223       | #  |		.CONST	0x0223								; Address of begin
0221 0004       |    |		.CONST	0x0004								; Address of exception handler
0222 0001       |    |		.CONST	0x0001								; Number of locals
0223			BODY_0220:
0223			INIT_0220:
0223 e5f2       |    |		Load	0x2,-0xe
0224 6803       |h   |		Jump_Zero	0x228
0225 00da       |    |		Load_Top	At_Offset_2
0226 85fd       |    |		Call	0x2,-0x3
0227 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0228 e5ef       |    |		Load	0x2,-0x11
0229 e7fe       |    |		Load	0x3,-0x2
022a e7ff       |    |		Load	0x3,-0x1
022b e013       |    |		Load	0x0,0x13
022c 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
022d 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
022e 0000 0000  |    |		.XXX[0x2]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233       | 3  |		.CONST	0x0233								; Address of begin
0231 0004       |    |		.CONST	0x0004								; Address of exception handler
0232 0001       |    |		.CONST	0x0001								; Number of locals
0233			BODY_0230:
0233			INIT_0230:
0233 4800       |H   |		Short_Literal	0x0
0234 a5ee       |    |		Store_Unchecked	0x2,-0x12
0235 e5f2       |    |		Load	0x2,-0xe
0236 6803       |h   |		Jump_Zero	0x23a
0237 00da       |    |		Load_Top	At_Offset_2
0238 85fe       |    |		Call	0x2,-0x2
0239 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
023a e5ef       |    |		Load	0x2,-0x11
023b 4805       |H   |		Short_Literal	0x5
023c e7ff       |    |		Load	0x3,-0x1
023d e013       |    |		Load	0x0,0x13
023e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
023f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243       | C  |		.CONST	0x0243								; Address of begin
0241 0004       |    |		.CONST	0x0004								; Address of exception handler
0242 0001       |    |		.CONST	0x0001								; Number of locals
0243			BODY_0240:
0243			INIT_0240:
0243 00da       |    |		Load_Top	At_Offset_2
0244 680b       |h   |		Jump_Zero	0x250
0245 00da       |    |		Load_Top	At_Offset_2
0246 0f10       |    |		Execute_Immediate	Equal,0x10
0247 6802       |h   |		Jump_Zero	0x24a
0248 e016       |    |		Load	0x0,0x16
0249 0257       | W  |		Execute	Discrete,Raise
024a 00da       |    |		Load_Top	At_Offset_2
024b e009       |    |		Load	0x0,0x9
024c 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
024d 841b       |    |		Call	0x2,0x1b
024e e00a       |    |		Load	0x0,0xa
024f 0257       | W  |		Execute	Discrete,Raise
0250 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0251 0000 0000  |    |		.BLANK	0000[0x7]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 0285       |    |		.CONST	0x0285								; Address of begin
0259 0004       |    |		.CONST	0x0004								; Address of exception handler
025a 000d       |    |		.CONST	0x000d								; Number of locals
025b			INIT_0258:
025b e009       |    |		Load	0x0,0x9
025c 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
025d e5fb       |    |		Load	0x2,-0x5
025e e00c       |    |		Load	0x0,0xc
025f 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0260 e5fb       |    |		Load	0x2,-0x5
0261 e00c       |    |		Load	0x0,0xc
0262 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0263 e00d       |    |		Load	0x0,0xd
0264 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0265 02c7       |    |		Declare_Variable	Any
0266 00d8       |    |		Load_Top	At_Offset_0
0267 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0268 e00d       |    |		Load	0x0,0xd
0269 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
026a 02c7       |    |		Declare_Variable	Any
026b 00d8       |    |		Load_Top	At_Offset_0
026c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
026d e00d       |    |		Load	0x0,0xd
026e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
026f 02c7       |    |		Declare_Variable	Any
0270 00d8       |    |		Load_Top	At_Offset_0
0271 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0272 4801       |H   |		Short_Literal	0x1
0273 4802       |H   |		Short_Literal	0x2
0274 e009       |    |		Load	0x0,0x9
0275 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0276 035b       | [  |		Declare_Type	Array,Constrained
0277 0337       | 7  |		Declare_Variable	Array
0278 e002       |    |		Load	0x0,0x2
0279 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
027a 00d9       |    |		Load_Top	At_Offset_1
027b 01d4       |    |		Execute	Vector,Structure_Write
027c 00e1       |    |		Load_Encached	Boolean_Cache
027d 029f 02d3  |    |		Declare_Subprogram	INIT_02d0,For_Call
027f 029f 03ab  |    |		Declare_Subprogram	INIT_03a8,For_Call
0281 029f 03e3  |    |		Declare_Subprogram	INIT_03e0,For_Call
0283 029f 0403  |    |		Declare_Subprogram	INIT_0400,For_Call
0285			BODY_0258:
0285 4801       |H   |		Short_Literal	0x1
0286 a5ee       |    |		Store_Unchecked	0x2,-0x12
0287 4803       |H   |		Short_Literal	0x3
0288 0092 06dc  |    |		Action	Push_String_Extended,0x6dc					; "Executing remote shell on host "
028a e5fb       |    |		Load	0x2,-0x5
028b e014       |    |		Load	0x0,0x14
028c 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
028d 01cc       |    |		Execute	Vector,Catenate
028e 841a       |    |		Call	0x2,0x1a
028f 860a       |    |		Call	0x3,0xa
0290 e5f3       |    |		Load	0x2,-0xd
0291 7004       |p   |		Jump_Nonzero	0x296
0292 860b       |    |		Call	0x3,0xb
0293 4800       |H   |		Short_Literal	0x0
0294 e40d       |    |		Load	0x2,0xd
0295 170e       |    |		Execute	Task,Entry_Call,Field_Number 0xe
0296 860c       |    |		Call	0x3,0xc
0297 860d       |    |		Call	0x3,0xd
0298 602f       |`/  |		Indirect_Literal	Discrete,0x2c8,{0x00000000, 0x00010000}
0299 00ba       |    |		Action	Initiate_Delay
029a e40b       |    |		Load	0x2,0xb
029b e004       |    |		Load	0x0,0x4
029c 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
029d 6804       |h   |		Jump_Zero	0x2a2
029e e40b       |    |		Load	0x2,0xb
029f e004       |    |		Load	0x0,0x4
02a0 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
02a1 c40b       |    |		Store	0x2,0xb
02a2 e40f       |    |		Load	0x2,0xf
02a3 e40c       |    |		Load	0x2,0xc
02a4 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
02a5 00d1       |    |		Pop_Control	Pop_Count_1
02a6 e410       |    |		Load	0x2,0x10
02a7 e40c       |    |		Load	0x2,0xc
02a8 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
02a9 00d1       |    |		Pop_Control	Pop_Count_1
02aa 8414       |    |		Call	0x2,0x14
02ab e40e       |    |		Load	0x2,0xe
02ac 0209       |    |		Execute	Task,Abort
02ad 0007       |    |		Action	Break_Optional
02ae e5f3       |    |		Load	0x2,-0xd
02af 7003       |p   |		Jump_Nonzero	0x2b3
02b0 e40d       |    |		Load	0x2,0xd
02b1 0209       |    |		Execute	Task,Abort
02b2 0007       |    |		Action	Break_Optional
02b3 e409       |    |		Load	0x2,0x9
02b4 e40a       |    |		Load	0x2,0xa
02b5 0278       | x  |		Execute	Discrete,Or
02b6 0f00       |    |		Execute_Immediate	Equal,0x0
02b7 e5f3       |    |		Load	0x2,-0xd
02b8 0278       | x  |		Execute	Discrete,Or
02b9 6805       |h   |		Jump_Zero	0x2bf
02ba 4800       |H   |		Short_Literal	0x0
02bb 0092 06dd  |    |		Action	Push_String_Extended,0x6dd					; "[Remote Shell complete]"
02bd 841a       |    |		Call	0x2,0x1a
02be 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02bf 0092 06de  |    |		Action	Push_String_Extended,0x6de					; "[Remote_Shell error occurred]"
02c1 841b       |    |		Call	0x2,0x1b
02c2 e5ef       |    |		Load	0x2,-0x11
02c3 e002       |    |		Load	0x0,0x2
02c4 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
02c5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02c6 0000 0000  |    |		.XXX[0x2]
02c8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00010000}
02cc 0000 0000  |    |		.BLANK	0000[0x4]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d5       |    |		.CONST	0x02d5								; Address of begin
02d1 038e       |    |		.CONST	0x038e								; Address of exception handler
02d2 0002       |    |		.CONST	0x0002								; Number of locals
02d3			INIT_02d0:
02d3 029f 04ab  |    |		Declare_Subprogram	INIT_04a8,For_Call
02d5			BODY_02d0:
02d5 00cf       |    |		Action	Mark_Auxiliary
02d6 8802       |    |		Call	0x4,0x2
02d7 00c9       |    |		Action	Pop_Auxiliary_Loop
02d8 7ffd       |    |		Jump	0x2d6
02d9 00ce       |    |		Action	Pop_Auxiliary
02da e40b       |    |		Load	0x2,0xb
02db e004       |    |		Load	0x0,0x4
02dc 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
02dd 7003       |p   |		Jump_Nonzero	0x2e1
02de e5f6       |    |		Load	0x2,-0xa
02df 01db       |    |		Execute	Vector,Length
02e0 6817       |h   |		Jump_Zero	0x2f8
02e1 e405       |    |		Load	0x2,0x5
02e2 e008       |    |		Load	0x0,0x8
02e3 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
02e4 e605       |    |		Load	0x3,0x5
02e5 0120       |    |		Execute	Any,Is_Value
02e6 6803       |h   |		Jump_Zero	0x2ea
02e7 e00d       |    |		Load	0x0,0xd
02e8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02e9 7801       |x   |		Jump	0x2eb
02ea e605       |    |		Load	0x3,0x5
02eb e5f6       |    |		Load	0x2,-0xa
02ec 4802       |H   |		Short_Literal	0x2
02ed e40e       |    |		Load	0x2,0xe
02ee 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
02ef c605       |    |		Store	0x3,0x5
02f0 e5f6       |    |		Load	0x2,-0xa
02f1 01db       |    |		Execute	Vector,Length
02f2 6802       |h   |		Jump_Zero	0x2f5
02f3 e605       |    |		Load	0x3,0x5
02f4 8415       |    |		Call	0x2,0x15
02f5 4801       |H   |		Short_Literal	0x1
02f6 a609       |    |		Store_Unchecked	0x3,0x9
02f7 7805       |x   |		Jump	0x2fd
02f8 e40e       |    |		Load	0x2,0xe
02f9 0209       |    |		Execute	Task,Abort
02fa 0007       |    |		Action	Break_Optional
02fb 4800       |H   |		Short_Literal	0x0
02fc a609       |    |		Store_Unchecked	0x3,0x9
02fd e5f9       |    |		Load	0x2,-0x7
02fe e004       |    |		Load	0x0,0x4
02ff 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0300 6806       |h   |		Jump_Zero	0x307
0301 e40f       |    |		Load	0x2,0xf
0302 e5f9       |    |		Load	0x2,-0x7
0303 e40c       |    |		Load	0x2,0xc
0304 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0305 00d1       |    |		Pop_Control	Pop_Count_1
0306 7830       |x0  |		Jump	0x337
0307 e5f2       |    |		Load	0x2,-0xe
0308 6806       |h   |		Jump_Zero	0x30f
0309 e40f       |    |		Load	0x2,0xf
030a 4800       |H   |		Short_Literal	0x0
030b e40c       |    |		Load	0x2,0xc
030c 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
030d 00d1       |    |		Pop_Control	Pop_Count_1
030e 7828       |x(  |		Jump	0x337
030f e5f8       |    |		Load	0x2,-0x8
0310 01db       |    |		Execute	Vector,Length
0311 681f       |h   |		Jump_Zero	0x331
0312 e5f6       |    |		Load	0x2,-0xa
0313 e5f8       |    |		Load	0x2,-0x8
0314 01df       |    |		Execute	Vector,Equal
0315 6803       |h   |		Jump_Zero	0x319
0316 e605       |    |		Load	0x3,0x5
0317 c606       |    |		Store	0x3,0x6
0318 7809       |x   |		Jump	0x322
0319 e606       |    |		Load	0x3,0x6
031a 00ea       |    |		Load_Encached	Null_String_Cache
031b e5f8       |    |		Load	0x2,-0x8
031c 4801       |H   |		Short_Literal	0x1
031d e00d       |    |		Load	0x0,0xd
031e 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
031f c606       |    |		Store	0x3,0x6
0320 e606       |    |		Load	0x3,0x6
0321 8415       |    |		Call	0x2,0x15
0322 e5f3       |    |		Load	0x2,-0xd
0323 6807       |h   |		Jump_Zero	0x32b
0324 e40f       |    |		Load	0x2,0xf
0325 e412       |    |		Load	0x2,0x12
0326 e606       |    |		Load	0x3,0x6
0327 e40c       |    |		Load	0x2,0xc
0328 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0329 00d1       |    |		Pop_Control	Pop_Count_1
032a 780c       |x   |		Jump	0x337
032b e40f       |    |		Load	0x2,0xf
032c e606       |    |		Load	0x3,0x6
032d e40c       |    |		Load	0x2,0xc
032e 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
032f 00d1       |    |		Pop_Control	Pop_Count_1
0330 7806       |x   |		Jump	0x337
0331 e40f       |    |		Load	0x2,0xf
0332 e5ef       |    |		Load	0x2,-0x11
0333 4802       |H   |		Short_Literal	0x2
0334 e40c       |    |		Load	0x2,0xc
0335 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0336 00d1       |    |		Pop_Control	Pop_Count_1
0337 e5f3       |    |		Load	0x2,-0xd
0338 680d       |h   |		Jump_Zero	0x346
0339 e40d       |    |		Load	0x2,0xd
033a 0209       |    |		Execute	Task,Abort
033b 0007       |    |		Action	Break_Optional
033c e5f1       |    |		Load	0x2,-0xf
033d 0a02       |    |		Execute_Immediate	Plus,0x2
033e 00d8       |    |		Load_Top	At_Offset_0
033f 00e4       |    |		Load_Encached	Positive_Cache
0340 0260       | `  |		Execute	Discrete,In_Type
0341 7001       |p   |		Jump_Nonzero	0x343
0342 0801       |    |		Execute_Immediate	Raise,0x1
0343 e606       |    |		Load	0x3,0x6
0344 8419       |    |		Call	0x2,0x19
0345 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0346 e5f2       |    |		Load	0x2,-0xe
0347 6806       |h   |		Jump_Zero	0x34e
0348 e410       |    |		Load	0x2,0x10
0349 4801       |H   |		Short_Literal	0x1
034a e40c       |    |		Load	0x2,0xc
034b 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
034c 00d1       |    |		Pop_Control	Pop_Count_1
034d 7830       |x0  |		Jump	0x37e
034e e5f5       |    |		Load	0x2,-0xb
034f e004       |    |		Load	0x0,0x4
0350 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0351 6806       |h   |		Jump_Zero	0x358
0352 e410       |    |		Load	0x2,0x10
0353 e5f5       |    |		Load	0x2,-0xb
0354 e40c       |    |		Load	0x2,0xc
0355 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0356 00d1       |    |		Pop_Control	Pop_Count_1
0357 7826       |x&  |		Jump	0x37e
0358 e5f4       |    |		Load	0x2,-0xc
0359 01db       |    |		Execute	Vector,Length
035a 681d       |h   |		Jump_Zero	0x378
035b e5f4       |    |		Load	0x2,-0xc
035c e5f6       |    |		Load	0x2,-0xa
035d 01df       |    |		Execute	Vector,Equal
035e 6803       |h   |		Jump_Zero	0x362
035f e605       |    |		Load	0x3,0x5
0360 c607       |    |		Store	0x3,0x7
0361 7810       |x   |		Jump	0x372
0362 e5f4       |    |		Load	0x2,-0xc
0363 e5f8       |    |		Load	0x2,-0x8
0364 01df       |    |		Execute	Vector,Equal
0365 6803       |h   |		Jump_Zero	0x369
0366 e606       |    |		Load	0x3,0x6
0367 c607       |    |		Store	0x3,0x7
0368 7809       |x   |		Jump	0x372
0369 e607       |    |		Load	0x3,0x7
036a 00ea       |    |		Load_Encached	Null_String_Cache
036b e5f4       |    |		Load	0x2,-0xc
036c 4801       |H   |		Short_Literal	0x1
036d e00d       |    |		Load	0x0,0xd
036e 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
036f c607       |    |		Store	0x3,0x7
0370 e607       |    |		Load	0x3,0x7
0371 8415       |    |		Call	0x2,0x15
0372 e410       |    |		Load	0x2,0x10
0373 e607       |    |		Load	0x3,0x7
0374 e40c       |    |		Load	0x2,0xc
0375 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0376 00d1       |    |		Pop_Control	Pop_Count_1
0377 7806       |x   |		Jump	0x37e
0378 e410       |    |		Load	0x2,0x10
0379 e5ef       |    |		Load	0x2,-0x11
037a 4807       |H   |		Short_Literal	0x7
037b e40c       |    |		Load	0x2,0xc
037c 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
037d 00d1       |    |		Pop_Control	Pop_Count_1
037e e608       |    |		Load	0x3,0x8
037f e603       |    |		Load	0x3,0x3
0380 4802       |H   |		Short_Literal	0x2
0381 e40d       |    |		Load	0x2,0xd
0382 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
0383 00cf       |    |		Action	Mark_Auxiliary
0384 7803       |x   |		Jump	0x388
0385 601a       |`   |		Indirect_Literal	Discrete,0x3a0,{0x00000000, 0x00004000}
0386 00ba       |    |		Action	Initiate_Delay
0387 00c9       |    |		Action	Pop_Auxiliary_Loop
0388 e406       |    |		Load	0x2,0x6
0389 e003       |    |		Load	0x0,0x3
038a 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
038b 6ff9       |o   |		Jump_Zero	0x385
038c 00ce       |    |		Action	Pop_Auxiliary
038d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
038e			TRAP_02d0:
038e e00a       |    |		Load	0x0,0xa
038f 010f       |    |		Execute	Exception,Equal
0390 6805       |h   |		Jump_Zero	0x396
0391 0092 06df  |    |		Action	Push_String_Extended,0x6df					; "Aborting rshell because Open or Connect failed."
0393 841b       |    |		Call	0x2,0x1b
0394 00d8       |    |		Load_Top	At_Offset_0
0395 0101       |    |		Execute	Exception,Reraise
0396 0092 06e0  |    |		Action	Push_String_Extended,0x6e0					; "Unexpected exception in rshell initialization:"
0398 4800       |H   |		Short_Literal	0x0
0399 4801       |H   |		Short_Literal	0x1
039a e00b       |    |		Load	0x0,0xb
039b 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
039c 01cc       |    |		Execute	Vector,Catenate
039d 841b       |    |		Call	0x2,0x1b
039e 00d8       |    |		Load_Top	At_Offset_0
039f 0101       |    |		Execute	Exception,Reraise
03a0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
03a4 0000 0000  |    |		.BLANK	0000[0x4]
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03b1       |    |		.CONST	0x03b1								; Address of begin
03a9 0004       |    |		.CONST	0x0004								; Address of exception handler
03aa 0003       |    |		.CONST	0x0003								; Number of locals
03ab			INIT_03a8:
03ab e405       |    |		Load	0x2,0x5
03ac e003       |    |		Load	0x0,0x3
03ad 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
03ae e406       |    |		Load	0x2,0x6
03af e003       |    |		Load	0x0,0x3
03b0 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
03b1			BODY_03a8:
03b1 e404       |    |		Load	0x2,0x4
03b2 681e       |h   |		Jump_Zero	0x3d1
03b3 0092 06e1  |    |		Action	Push_String_Extended,0x6e1					; "Primary local socket = "
03b5 4801       |H   |		Short_Literal	0x1
03b6 00db       |    |		Load_Top	At_Offset_3
03b7 01d7       |    |		Execute	Vector,Field_Read
03b8 00e0       |    |		Load_Encached	Standard_Cache
03b9 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
03ba 01cc       |    |		Execute	Vector,Catenate
03bb 4802       |H   |		Short_Literal	0x2
03bc 00db       |    |		Load_Top	At_Offset_3
03bd 01d7       |    |		Execute	Vector,Field_Read
03be 00e0       |    |		Load_Encached	Standard_Cache
03bf 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
03c0 01cc       |    |		Execute	Vector,Catenate
03c1 8413       |    |		Call	0x2,0x13
03c2 0092 06e2  |    |		Action	Push_String_Extended,0x6e2					; "Secondary local socket = "
03c4 4801       |H   |		Short_Literal	0x1
03c5 00da       |    |		Load_Top	At_Offset_2
03c6 01d7       |    |		Execute	Vector,Field_Read
03c7 00e0       |    |		Load_Encached	Standard_Cache
03c8 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
03c9 01cc       |    |		Execute	Vector,Catenate
03ca 4802       |H   |		Short_Literal	0x2
03cb 00da       |    |		Load_Top	At_Offset_2
03cc 01d7       |    |		Execute	Vector,Field_Read
03cd 00e0       |    |		Load_Encached	Standard_Cache
03ce 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
03cf 01cc       |    |		Execute	Vector,Catenate
03d0 8413       |    |		Call	0x2,0x13
03d1 e009       |    |		Load	0x0,0x9
03d2 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
03d3 00d9       |    |		Load_Top	At_Offset_1
03d4 e002       |    |		Load	0x0,0x2
03d5 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03d6 e405       |    |		Load	0x2,0x5
03d7 e00c       |    |		Load	0x0,0xc
03d8 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
03d9 c602       |    |		Store	0x3,0x2
03da e602       |    |		Load	0x3,0x2
03db 841c       |    |		Call	0x2,0x1c
03dc 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03dd 0000 0000  |    |		.XXX[0x3]
03df 0000       |    |
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03e9       |    |		.CONST	0x03e9								; Address of begin
03e1 0004       |    |		.CONST	0x0004								; Address of exception handler
03e2 0003       |    |		.CONST	0x0003								; Number of locals
03e3			INIT_03e0:
03e3 4800       |H   |		Short_Literal	0x0
03e4 e5fa       |    |		Load	0x2,-0x6
03e5 01cb       |    |		Execute	Vector,Append
03e6 0007       |    |		Action	Break_Optional
03e7 00d8       |    |		Load_Top	At_Offset_0
03e8 8418       |    |		Call	0x2,0x18
03e9			BODY_03e0:
03e9 e404       |    |		Load	0x2,0x4
03ea 6805       |h   |		Jump_Zero	0x3f0
03eb 0092 06e3  |    |		Action	Push_String_Extended,0x6e3					; "Sending  "
03ed 00d9       |    |		Load_Top	At_Offset_1
03ee 01cc       |    |		Execute	Vector,Catenate
03ef 8413       |    |		Call	0x2,0x13
03f0 e009       |    |		Load	0x0,0x9
03f1 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
03f2 00d9       |    |		Load_Top	At_Offset_1
03f3 e002       |    |		Load	0x0,0x2
03f4 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
03f5 e405       |    |		Load	0x2,0x5
03f6 e00c       |    |		Load	0x0,0xc
03f7 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
03f8 c602       |    |		Store	0x3,0x2
03f9 e602       |    |		Load	0x3,0x2
03fa 841c       |    |		Call	0x2,0x1c
03fb 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03fc 0000 0000  |    |		.BLANK	0000[0x4]
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 040a       |    |		.CONST	0x040a								; Address of begin
0401 0488       |    |		.CONST	0x0488								; Address of exception handler
0402 0003       |    |		.CONST	0x0003								; Number of locals
0403			INIT_0400:
0403 4801       |H   |		Short_Literal	0x1
0404 609f       |`   |		Indirect_Literal	Discrete,0x4a4,{0x00000000, 0x00000400}
0405 e403       |    |		Load	0x2,0x3
0406 035b       | [  |		Declare_Type	Array,Constrained
0407 0337       | 7  |		Declare_Variable	Array
0408 e402       |    |		Load	0x2,0x2
0409 0007       |    |		Action	Break_Optional
040a			BODY_0400:
040a 00e3       |    |		Load_Encached	Natural_Cache
040b 00da       |    |		Load_Top	At_Offset_2
040c e009       |    |		Load	0x0,0x9
040d 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
040e 6091       |`   |		Indirect_Literal	Discrete,0x4a0,{0x00000000, 0x00960000}
040f e405       |    |		Load	0x2,0x5
0410 e003       |    |		Load	0x0,0x3
0411 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0412 c602       |    |		Store	0x3,0x2
0413 00d1       |    |		Pop_Control	Pop_Count_1
0414 c407       |    |		Store	0x2,0x7
0415 e408       |    |		Load	0x2,0x8
0416 e407       |    |		Load	0x2,0x7
0417 0273       | s  |		Execute	Discrete,Plus
0418 c408       |    |		Store	0x2,0x8
0419 e404       |    |		Load	0x2,0x4
041a 6804       |h   |		Jump_Zero	0x41f
041b e407       |    |		Load	0x2,0x7
041c 00e0       |    |		Load_Encached	Standard_Cache
041d 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
041e 8413       |    |		Call	0x2,0x13
041f e407       |    |		Load	0x2,0x7
0420 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0421 682a       |h*  |		Jump_Zero	0x44c
0422 e602       |    |		Load	0x3,0x2
0423 841c       |    |		Call	0x2,0x1c
0424 4801       |H   |		Short_Literal	0x1
0425 00da       |    |		Load_Top	At_Offset_2
0426 01d7       |    |		Execute	Vector,Field_Read
0427 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0428 00d8       |    |		Load_Top	At_Offset_0
0429 0b00       |    |		Execute_Immediate	Case_Compare,0x0
042a 700e       |p   |		Jump_Nonzero	0x439
042b 0f01       |    |		Execute_Immediate	Equal,0x1
042c 7013       |p   |		Jump_Nonzero	0x440
042d 0092 06e4  |    |		Action	Push_String_Extended,0x6e4					; "Remote shell error: "
042f 4801       |H   |		Short_Literal	0x1
0430 e407       |    |		Load	0x2,0x7
0431 e802       |    |		Load	0x4,0x2
0432 01cf       |    |		Execute	Vector,Slice_Read
0433 e002       |    |		Load	0x0,0x2
0434 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0435 01cc       |    |		Execute	Vector,Catenate
0436 841b       |    |		Call	0x2,0x1b
0437 e017       |    |		Load	0x0,0x17
0438 0257       | W  |		Execute	Discrete,Raise
0439 00d1       |    |		Pop_Control	Pop_Count_1
043a e404       |    |		Load	0x2,0x4
043b 6810       |h   |		Jump_Zero	0x44c
043c 0092 06e5  |    |		Action	Push_String_Extended,0x6e5					; "Remote shell invocation OK."
043e 8413       |    |		Call	0x2,0x13
043f 780c       |x   |		Jump	0x44c
0440 0092 06e6  |    |		Action	Push_String_Extended,0x6e6					; "Unable to start remote shell: "
0442 4802       |H   |		Short_Literal	0x2
0443 e407       |    |		Load	0x2,0x7
0444 e802       |    |		Load	0x4,0x2
0445 01cf       |    |		Execute	Vector,Slice_Read
0446 e002       |    |		Load	0x0,0x2
0447 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0448 01cc       |    |		Execute	Vector,Catenate
0449 841b       |    |		Call	0x2,0x1b
044a e017       |    |		Load	0x0,0x17
044b 0257       | W  |		Execute	Discrete,Raise
044c e609       |    |		Load	0x3,0x9
044d 6803       |h   |		Jump_Zero	0x451
044e 4800       |H   |		Short_Literal	0x0
044f e40e       |    |		Load	0x2,0xe
0450 170e       |    |		Execute	Task,Entry_Call,Field_Number 0xe
0451 00cf       |    |		Action	Mark_Auxiliary
0452 00e3       |    |		Load_Encached	Natural_Cache
0453 00db       |    |		Load_Top	At_Offset_3
0454 e009       |    |		Load	0x0,0x9
0455 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0456 6045       |`E  |		Indirect_Literal	Discrete,0x49c,{0x00007fff, 0xffffffff}
0457 e405       |    |		Load	0x2,0x5
0458 e003       |    |		Load	0x0,0x3
0459 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
045a c602       |    |		Store	0x3,0x2
045b 00d1       |    |		Pop_Control	Pop_Count_1
045c c407       |    |		Store	0x2,0x7
045d e404       |    |		Load	0x2,0x4
045e 6807       |h   |		Jump_Zero	0x466
045f 0092 06e7  |    |		Action	Push_String_Extended,0x6e7					; "Remote_Shell got data length = "
0461 e407       |    |		Load	0x2,0x7
0462 00e0       |    |		Load_Encached	Standard_Cache
0463 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0464 01cc       |    |		Execute	Vector,Catenate
0465 8413       |    |		Call	0x2,0x13
0466 e407       |    |		Load	0x2,0x7
0467 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0468 680f       |h   |		Jump_Zero	0x478
0469 e602       |    |		Load	0x3,0x2
046a 841c       |    |		Call	0x2,0x1c
046b e408       |    |		Load	0x2,0x8
046c e407       |    |		Load	0x2,0x7
046d 0273       | s  |		Execute	Discrete,Plus
046e c408       |    |		Store	0x2,0x8
046f e40f       |    |		Load	0x2,0xf
0470 4801       |H   |		Short_Literal	0x1
0471 e407       |    |		Load	0x2,0x7
0472 e802       |    |		Load	0x4,0x2
0473 01cf       |    |		Execute	Vector,Slice_Read
0474 e40c       |    |		Load	0x2,0xc
0475 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0476 00d1       |    |		Pop_Control	Pop_Count_1
0477 7803       |x   |		Jump	0x47b
0478 e602       |    |		Load	0x3,0x2
0479 6801       |h   |		Jump_Zero	0x47b
047a 7802       |x   |		Jump	0x47d
047b 00c9       |    |		Action	Pop_Auxiliary_Loop
047c 7fd5       |    |		Jump	0x452
047d 00ce       |    |		Action	Pop_Auxiliary
047e e404       |    |		Load	0x2,0x4
047f 6807       |h   |		Jump_Zero	0x487
0480 0092 06e8  |    |		Action	Push_String_Extended,0x6e8					; "Remote Shell byte count = "
0482 e408       |    |		Load	0x2,0x8
0483 00e0       |    |		Load_Encached	Standard_Cache
0484 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0485 01cc       |    |		Execute	Vector,Catenate
0486 8413       |    |		Call	0x2,0x13
0487 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0488			TRAP_0400:
0488 e017       |    |		Load	0x0,0x17
0489 010f       |    |		Execute	Exception,Equal
048a 6803       |h   |		Jump_Zero	0x48e
048b 4801       |H   |		Short_Literal	0x1
048c a40a       |    |		Store_Unchecked	0x2,0xa
048d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
048e 0092 06e9  |    |		Action	Push_String_Extended,0x6e9					; "Remote Shell got an unexpected exception 1: "
0490 4800       |H   |		Short_Literal	0x0
0491 4801       |H   |		Short_Literal	0x1
0492 e00b       |    |		Load	0x0,0xb
0493 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0494 01cc       |    |		Execute	Vector,Catenate
0495 841b       |    |		Call	0x2,0x1b
0496 4801       |H   |		Short_Literal	0x1
0497 a40a       |    |		Store_Unchecked	0x2,0xa
0498 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0499 0000 0000  |    |		.XXX[0x3]
049b 0000       |    |
049c 0000 7fff  |    |		.LITERAL	{0x00007fff, 0xffffffff}
04a0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00960000}
04a4 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000400}
04a8 ; --------------------------------------------------------------------------------------
04a8 ; SUBPROGRAM
04a8 ; --------------------------------------------------------------------------------------
04a8 04ab       |    |		.CONST	0x04ab								; Address of begin
04a9 04d4       |    |		.CONST	0x04d4								; Address of exception handler
04aa 0001       |    |		.CONST	0x0001								; Number of locals
04ab			BODY_04a8:
04ab			INIT_04a8:
04ab e009       |    |		Load	0x0,0x9
04ac 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
04ad e405       |    |		Load	0x2,0x5
04ae e603       |    |		Load	0x3,0x3
04af e608       |    |		Load	0x3,0x8
04b0 e00c       |    |		Load	0x0,0xc
04b1 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
04b2 c405       |    |		Store	0x2,0x5
04b3 c602       |    |		Store	0x3,0x2
04b4 e602       |    |		Load	0x3,0x2
04b5 841c       |    |		Call	0x2,0x1c
04b6 e404       |    |		Load	0x2,0x4
04b7 6803       |h   |		Jump_Zero	0x4bb
04b8 0092 06ea  |    |		Action	Push_String_Extended,0x6ea					; "Opened primary ..."
04ba 8413       |    |		Call	0x2,0x13
04bb e5f3       |    |		Load	0x2,-0xd
04bc 680a       |h   |		Jump_Zero	0x4c7
04bd e009       |    |		Load	0x0,0x9
04be 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
04bf e018       |    |		Load	0x0,0x18
04c0 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
04c1 e604       |    |		Load	0x3,0x4
04c2 e405       |    |		Load	0x2,0x5
04c3 e00c       |    |		Load	0x0,0xc
04c4 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
04c5 c602       |    |		Store	0x3,0x2
04c6 7809       |x   |		Jump	0x4d0
04c7 e009       |    |		Load	0x0,0x9
04c8 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
04c9 e018       |    |		Load	0x0,0x18
04ca 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04cb e604       |    |		Load	0x3,0x4
04cc e405       |    |		Load	0x2,0x5
04cd e00c       |    |		Load	0x0,0xc
04ce 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
04cf c602       |    |		Store	0x3,0x2
04d0 e602       |    |		Load	0x3,0x2
04d1 841c       |    |		Call	0x2,0x1c
04d2 00cc       |    |		Action	Pop_Block
04d3 7e05       |~   |		Jump	0x2d9
04d4			TRAP_04a8:
04d4 e016       |    |		Load	0x0,0x16
04d5 010f       |    |		Execute	Exception,Equal
04d6 681a       |h   |		Jump_Zero	0x4f1
04d7 4806       |H   |		Short_Literal	0x6
04d8 0092 06eb  |    |		Action	Push_String_Extended,0x6eb					; "Connect failed - SOCKET_IN_USE"
04da 841a       |    |		Call	0x2,0x1a
04db 4802       |H   |		Short_Literal	0x2
04dc 0092 06ec  |    |		Action	Push_String_Extended,0x6ec					; "Retrying with a different socket"
04de 841a       |    |		Call	0x2,0x1a
04df e405       |    |		Load	0x2,0x5
04e0 e003       |    |		Load	0x0,0x3
04e1 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
04e2 e608       |    |		Load	0x3,0x8
04e3 01d4       |    |		Execute	Vector,Structure_Write
04e4 e405       |    |		Load	0x2,0x5
04e5 e003       |    |		Load	0x0,0x3
04e6 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
04e7 e009       |    |		Load	0x0,0x9
04e8 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
04e9 e608       |    |		Load	0x3,0x8
04ea e002       |    |		Load	0x0,0x2
04eb 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
04ec 00d1       |    |		Pop_Control	Pop_Count_1
04ed c602       |    |		Store	0x3,0x2
04ee e602       |    |		Load	0x3,0x2
04ef 841c       |    |		Call	0x2,0x1c
04f0 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04f1 0100       |    |		Execute	Exception,Raise
04f2 0000 0000  |    |		.BLANK	0000[0x6]
04f8 ; --------------------------------------------------------------------------------------
04f8 ; SUBPROGRAM
04f8 ; --------------------------------------------------------------------------------------
04f8 051c       |    |		.CONST	0x051c								; Address of begin
04f9 0563       | c  |		.CONST	0x0563								; Address of exception handler
04fa 0016       |    |		.CONST	0x0016								; Number of locals
04fb			INIT_04f8:
04fb 4802       |H   |		Short_Literal	0x2
04fc 02cb       |    |		Declare_Variable	Entry
04fd 4800       |H   |		Short_Literal	0x0
04fe 02cb       |    |		Declare_Variable	Entry
04ff 00bf       |    |		Action	Accept_Activation
0500 e001       |    |		Load	0x0,0x1
0501 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0502 02c7       |    |		Declare_Variable	Any
0503 00d8       |    |		Load_Top	At_Offset_0
0504 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0505 e001       |    |		Load	0x0,0x1
0506 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0507 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0508 02c7       |    |		Declare_Variable	Any
0509 00d8       |    |		Load_Top	At_Offset_0
050a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
050b 4801       |H   |		Short_Literal	0x1
050c 60ab       |`   |		Indirect_Literal	Discrete,0x5b8,{0x00000000, 0x00000400}
050d e002       |    |		Load	0x0,0x2
050e 035b       | [  |		Declare_Type	Array,Constrained
050f 0337       | 7  |		Declare_Variable	Array
0510 e003       |    |		Load	0x0,0x3
0511 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0512 00e3       |    |		Load_Encached	Natural_Cache
0513 480d       |H   |		Short_Literal	0xd
0514 0299 059b  |    |		Declare_Subprogram	INIT_0598,For_Accept
0516 480e       |H   |		Short_Literal	0xe
0517 0299 05c3  |    |		Declare_Subprogram	INIT_05c0,For_Accept
0519 029f 05cb  |    |		Declare_Subprogram	INIT_05c8,For_Call
051b 00bc       |    |		Action	Signal_Activated
051c			BODY_04f8:
051c 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
051d 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
051e 0137       | 7  |		Execute	Entry,Rendezvous
051f 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0520 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0521 0137       | 7  |		Execute	Entry,Rendezvous
0522 e004       |    |		Load	0x0,0x4
0523 6802       |h   |		Jump_Zero	0x526
0524 8216       |    |		Call	0x1,0x16
0525 783c       |x<  |		Jump	0x562
0526 e005       |    |		Load	0x0,0x5
0527 e006       |    |		Load	0x0,0x6
0528 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0529 6834       |h4  |		Jump_Zero	0x55e
052a 00cf       |    |		Action	Mark_Auxiliary
052b 7823       |x#  |		Jump	0x54f
052c 00e3       |    |		Load_Encached	Natural_Cache
052d e211       |    |		Load	0x1,0x11
052e e005       |    |		Load	0x0,0x5
052f e006       |    |		Load	0x0,0x6
0530 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0531 00d1       |    |		Pop_Control	Pop_Count_1
0532 c213       |    |		Store	0x1,0x13
0533 e213       |    |		Load	0x1,0x13
0534 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0535 6818       |h   |		Jump_Zero	0x54e
0536 e003       |    |		Load	0x0,0x3
0537 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0538 4801       |H   |		Short_Literal	0x1
0539 e213       |    |		Load	0x1,0x13
053a e211       |    |		Load	0x1,0x11
053b 01cf       |    |		Execute	Vector,Slice_Read
053c e007       |    |		Load	0x0,0x7
053d e008       |    |		Load	0x0,0x8
053e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
053f c212       |    |		Store	0x1,0x12
0540 e212       |    |		Load	0x1,0x12
0541 7011       |p   |		Jump_Nonzero	0x553
0542 e009       |    |		Load	0x0,0x9
0543 680a       |h   |		Jump_Zero	0x54e
0544 0092 06ed  |    |		Action	Push_String_Extended,0x6ed					; "Transmitted string "
0546 4801       |H   |		Short_Literal	0x1
0547 e213       |    |		Load	0x1,0x13
0548 e211       |    |		Load	0x1,0x11
0549 01cf       |    |		Execute	Vector,Slice_Read
054a e00a       |    |		Load	0x0,0xa
054b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
054c 01cc       |    |		Execute	Vector,Catenate
054d 800b       |    |		Call	0x0,0xb
054e 00c9       |    |		Action	Pop_Auxiliary_Loop
054f e005       |    |		Load	0x0,0x5
0550 e006       |    |		Load	0x0,0x6
0551 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0552 6fd9       |o   |		Jump_Zero	0x52c
0553 00ce       |    |		Action	Pop_Auxiliary
0554 e005       |    |		Load	0x0,0x5
0555 e006       |    |		Load	0x0,0x6
0556 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0557 c005       |    |		Store	0x0,0x5
0558 605b       |`[  |		Indirect_Literal	Discrete,0x5b4,{0x00000000, 0x00008000}
0559 00ba       |    |		Action	Initiate_Delay
055a e007       |    |		Load	0x0,0x7
055b e00c       |    |		Load	0x0,0xc
055c 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
055d 7804       |x   |		Jump	0x562
055e e007       |    |		Load	0x0,0x7
055f e20f       |    |		Load	0x1,0xf
0560 e00d       |    |		Load	0x0,0xd
0561 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0562 00bb       |    |		Action	Signal_Completion
0563			TRAP_04f8:
0563 e008       |    |		Load	0x0,0x8
0564 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0565 010f       |    |		Execute	Exception,Equal
0566 680d       |h   |		Jump_Zero	0x574
0567 e005       |    |		Load	0x0,0x5
0568 e006       |    |		Load	0x0,0x6
0569 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
056a 6804       |h   |		Jump_Zero	0x56f
056b e005       |    |		Load	0x0,0x5
056c e006       |    |		Load	0x0,0x6
056d 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
056e c005       |    |		Store	0x0,0x5
056f 800e       |    |		Call	0x0,0xe
0570 0092 06ee  |    |		Action	Push_String_Extended,0x6ee					; "Error in transmitting data"
0572 800f       |    |		Call	0x0,0xf
0573 00bb       |    |		Action	Signal_Completion
0574 e010       |    |		Load	0x0,0x10
0575 010f       |    |		Execute	Exception,Equal
0576 680a       |h   |		Jump_Zero	0x581
0577 e005       |    |		Load	0x0,0x5
0578 e006       |    |		Load	0x0,0x6
0579 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
057a 6804       |h   |		Jump_Zero	0x57f
057b e005       |    |		Load	0x0,0x5
057c e006       |    |		Load	0x0,0x6
057d 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
057e c005       |    |		Store	0x0,0x5
057f 800e       |    |		Call	0x0,0xe
0580 00bb       |    |		Action	Signal_Completion
0581 e005       |    |		Load	0x0,0x5
0582 e006       |    |		Load	0x0,0x6
0583 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0584 6804       |h   |		Jump_Zero	0x589
0585 e005       |    |		Load	0x0,0x5
0586 e006       |    |		Load	0x0,0x6
0587 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0588 c005       |    |		Store	0x0,0x5
0589 800e       |    |		Call	0x0,0xe
058a 0092 06ef  |    |		Action	Push_String_Extended,0x6ef					; "Input_Channel got an unexpected exception:"
058c 4800       |H   |		Short_Literal	0x0
058d 4801       |H   |		Short_Literal	0x1
058e e011       |    |		Load	0x0,0x11
058f 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0590 01cc       |    |		Execute	Vector,Catenate
0591 800f       |    |		Call	0x0,0xf
0592 00bb       |    |		Action	Signal_Completion
0593 0000 0000  |    |		.BLANK	0000[0x5]
0598 ; --------------------------------------------------------------------------------------
0598 ; SUBPROGRAM
0598 ; --------------------------------------------------------------------------------------
0598 059b       |    |		.CONST	0x059b								; Address of begin
0599 0004       |    |		.CONST	0x0004								; Address of exception handler
059a 0001       |    |		.CONST	0x0001								; Number of locals
059b			BODY_0598:
059b			INIT_0598:
059b e012       |    |		Load	0x0,0x12
059c e006       |    |		Load	0x0,0x6
059d 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
059e 7014       |p   |		Jump_Nonzero	0x5b3
059f 00db       |    |		Load_Top	At_Offset_3
05a0 e00d       |    |		Load	0x0,0xd
05a1 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
05a2 c20f       |    |		Store	0x1,0xf
05a3 e20f       |    |		Load	0x1,0xf
05a4 c5fd       |    |		Store	0x2,-0x3
05a5 e004       |    |		Load	0x0,0x4
05a6 680c       |h   |		Jump_Zero	0x5b3
05a7 e013       |    |		Load	0x0,0x13
05a8 e014       |    |		Load	0x0,0x14
05a9 e015       |    |		Load	0x0,0x15
05aa 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
05ab 1c08       |    |		Execute_Immediate	Run_Utility,0x8
05ac e016       |    |		Load	0x0,0x16
05ad 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
05ae 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
05af 00d8       |    |		Load_Top	At_Offset_0
05b0 0227       | '  |		Execute	Access,All_Reference
05b1 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05b2 c017       |    |		Store	0x0,0x17
05b3 4101       |A   |		End_Rendezvous	0x1
05b4 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008000}
05b8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000400}
05bc 0000 0000  |    |		.BLANK	0000[0x4]
05c0 ; --------------------------------------------------------------------------------------
05c0 ; SUBPROGRAM
05c0 ; --------------------------------------------------------------------------------------
05c0 05c3       |    |		.CONST	0x05c3								; Address of begin
05c1 0004       |    |		.CONST	0x0004								; Address of exception handler
05c2 0001       |    |		.CONST	0x0001								; Number of locals
05c3			BODY_05c0:
05c3			INIT_05c0:
05c3 4100       |A   |		End_Rendezvous	0x0
05c4 0000 0000  |    |		.BLANK	0000[0x4]
05c8 ; --------------------------------------------------------------------------------------
05c8 ; SUBPROGRAM
05c8 ; --------------------------------------------------------------------------------------
05c8 05d1       |    |		.CONST	0x05d1								; Address of begin
05c9 0004       |    |		.CONST	0x0004								; Address of exception handler
05ca 0002       |    |		.CONST	0x0002								; Number of locals
05cb			INIT_05c8:
05cb e018       |    |		Load	0x0,0x18
05cc 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
05cd e018       |    |		Load	0x0,0x18
05ce 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
05cf e018       |    |		Load	0x0,0x18
05d0 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
05d1			BODY_05c8:
05d1 e210       |    |		Load	0x1,0x10
05d2 e001       |    |		Load	0x0,0x1
05d3 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
05d4 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
05d5 c210       |    |		Store	0x1,0x10
05d6 00cf       |    |		Action	Mark_Auxiliary
05d7 00d9       |    |		Load_Top	At_Offset_1
05d8 e210       |    |		Load	0x1,0x10
05d9 e017       |    |		Load	0x0,0x17
05da 0227       | '  |		Execute	Access,All_Reference
05db e015       |    |		Load	0x0,0x15
05dc 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
05dd e016       |    |		Load	0x0,0x16
05de 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
05df 00c9       |    |		Action	Pop_Auxiliary_Loop
05e0 7ff6       |    |		Jump	0x5d7
05e1 0000 0000  |    |		.BLANK	0000[0x7]
05e8 ; --------------------------------------------------------------------------------------
05e8 ; SUBPROGRAM
05e8 ; --------------------------------------------------------------------------------------
05e8 0600       |    |		.CONST	0x0600								; Address of begin
05e9 060b       |    |		.CONST	0x060b								; Address of exception handler
05ea 0014       |    |		.CONST	0x0014								; Number of locals
05eb			INIT_05e8:
05eb 4802       |H   |		Short_Literal	0x2
05ec 02cb       |    |		Declare_Variable	Entry
05ed 4800       |H   |		Short_Literal	0x0
05ee 02cb       |    |		Declare_Variable	Entry
05ef 00bf       |    |		Action	Accept_Activation
05f0 e001       |    |		Load	0x0,0x1
05f1 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
05f2 00e3       |    |		Load_Encached	Natural_Cache
05f3 00e3       |    |		Load_Encached	Natural_Cache
05f4 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
05f5 4801       |H   |		Short_Literal	0x1
05f6 4802       |H   |		Short_Literal	0x2
05f7 e001       |    |		Load	0x0,0x1
05f8 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
05f9 035b       | [  |		Declare_Type	Array,Constrained
05fa 0337       | 7  |		Declare_Variable	Array
05fb 029f 061b  |    |		Declare_Subprogram	INIT_0618,For_Call
05fd 029f 0653  |   S|		Declare_Subprogram	INIT_0650,For_Call
05ff 00bc       |    |		Action	Signal_Activated
0600			BODY_05e8:
0600 8213       |    |		Call	0x1,0x13
0601 604a       |`J  |		Indirect_Literal	Discrete,0x64c,{0x00000000, 0x00008000}
0602 00ba       |    |		Action	Initiate_Delay
0603 8214       |    |		Call	0x1,0x14
0604 e002       |    |		Load	0x0,0x2
0605 e003       |    |		Load	0x0,0x3
0606 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0607 e002       |    |		Load	0x0,0x2
0608 e003       |    |		Load	0x0,0x3
0609 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
060a 00bb       |    |		Action	Signal_Completion
060b			TRAP_05e8:
060b e004       |    |		Load	0x0,0x4
060c 010f       |    |		Execute	Exception,Equal
060d 6801       |h   |		Jump_Zero	0x60f
060e 00bb       |    |		Action	Signal_Completion
060f 0092 06f0  |    |		Action	Push_String_Extended,0x6f0					; "Error_Channel got an unexpected exception 2:"
0611 4800       |H   |		Short_Literal	0x0
0612 4801       |H   |		Short_Literal	0x1
0613 e005       |    |		Load	0x0,0x5
0614 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0615 01cc       |    |		Execute	Vector,Catenate
0616 8006       |    |		Call	0x0,0x6
0617 00bb       |    |		Action	Signal_Completion
0618 ; --------------------------------------------------------------------------------------
0618 ; SUBPROGRAM
0618 ; --------------------------------------------------------------------------------------
0618 0621       | !  |		.CONST	0x0621								; Address of begin
0619 063d       | =  |		.CONST	0x063d								; Address of exception handler
061a 0003       |    |		.CONST	0x0003								; Number of locals
061b			INIT_0618:
061b 480d       |H   |		Short_Literal	0xd
061c 0299 06b3  |    |		Declare_Subprogram	INIT_06b0,For_Accept
061e 480e       |H   |		Short_Literal	0xe
061f 0299 06d3  |    |		Declare_Subprogram	INIT_06d0,For_Accept
0621			BODY_0618:
0621 4802       |H   |		Short_Literal	0x2
0622 4802       |H   |		Short_Literal	0x2
0623 0099       |    |		Action	Reference_Dynamic
0624 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0625 0137       | 7  |		Execute	Entry,Rendezvous
0626 e007       |    |		Load	0x0,0x7
0627 6803       |h   |		Jump_Zero	0x62b
0628 0092 06f1  |    |		Action	Push_String_Extended,0x6f1					; "Error_Channel connecting ..."
062a 8008       |    |		Call	0x0,0x8
062b e001       |    |		Load	0x0,0x1
062c 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
062d 601a       |`   |		Indirect_Literal	Discrete,0x648,{0x00007fff, 0xffffffff}
062e e002       |    |		Load	0x0,0x2
062f e003       |    |		Load	0x0,0x3
0630 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0631 c20f       |    |		Store	0x1,0xf
0632 e007       |    |		Load	0x0,0x7
0633 6803       |h   |		Jump_Zero	0x637
0634 0092 06f2  |    |		Action	Push_String_Extended,0x6f2					; "Error_Channel connected."
0636 8008       |    |		Call	0x0,0x8
0637 4803       |H   |		Short_Literal	0x3
0638 4802       |H   |		Short_Literal	0x2
0639 0099       |    |		Action	Reference_Dynamic
063a 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
063b 0137       | 7  |		Execute	Entry,Rendezvous
063c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
063d			TRAP_0618:
063d e004       |    |		Load	0x0,0x4
063e 010f       |    |		Execute	Exception,Equal
063f 6805       |h   |		Jump_Zero	0x645
0640 0092 06f3  |    |		Action	Push_String_Extended,0x6f3					; "Error_Channel terminating due to Open or Connect failure"
0642 8006       |    |		Call	0x0,0x6
0643 00d8       |    |		Load_Top	At_Offset_0
0644 0101       |    |		Execute	Exception,Reraise
0645 0100       |    |		Execute	Exception,Raise
0646 0000 0000  |    |		.XXX[0x2]
0648 0000 7fff  |    |		.LITERAL	{0x00007fff, 0xffffffff}
064c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008000}
0650 ; --------------------------------------------------------------------------------------
0650 ; SUBPROGRAM
0650 ; --------------------------------------------------------------------------------------
0650 0658       | X  |		.CONST	0x0658								; Address of begin
0651 069d       |    |		.CONST	0x069d								; Address of exception handler
0652 0002       |    |		.CONST	0x0002								; Number of locals
0653			INIT_0650:
0653 4801       |H   |		Short_Literal	0x1
0654 4880       |H   |		Short_Literal	0x80
0655 e009       |    |		Load	0x0,0x9
0656 035b       | [  |		Declare_Type	Array,Constrained
0657 0337       | 7  |		Declare_Variable	Array
0658			BODY_0650:
0658 00cf       |    |		Action	Mark_Auxiliary
0659 00e3       |    |		Load_Encached	Natural_Cache
065a 00da       |    |		Load_Top	At_Offset_2
065b e001       |    |		Load	0x0,0x1
065c 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
065d 67ea       |g   |		Indirect_Literal	Discrete,0x648,{0x00007fff, 0xffffffff}
065e e002       |    |		Load	0x0,0x2
065f e003       |    |		Load	0x0,0x3
0660 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0661 c20f       |    |		Store	0x1,0xf
0662 00d1       |    |		Pop_Control	Pop_Count_1
0663 c210       |    |		Store	0x1,0x10
0664 e20f       |    |		Load	0x1,0xf
0665 6801       |h   |		Jump_Zero	0x667
0666 782b       |x+  |		Jump	0x692
0667 e210       |    |		Load	0x1,0x10
0668 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0669 6821       |h!  |		Jump_Zero	0x68b
066a e20f       |    |		Load	0x1,0xf
066b 800a       |    |		Call	0x0,0xa
066c e211       |    |		Load	0x1,0x11
066d e210       |    |		Load	0x1,0x10
066e 0273       | s  |		Execute	Discrete,Plus
066f c211       |    |		Store	0x1,0x11
0670 e007       |    |		Load	0x0,0x7
0671 680e       |h   |		Jump_Zero	0x680
0672 4801       |H   |		Short_Literal	0x1
0673 e210       |    |		Load	0x1,0x10
0674 00db       |    |		Load_Top	At_Offset_3
0675 01cf       |    |		Execute	Vector,Slice_Read
0676 e00b       |    |		Load	0x0,0xb
0677 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0678 0092 06f4  |    |		Action	Push_String_Extended,0x6f4					; "count => "
067a 01cc       |    |		Execute	Vector,Catenate
067b e210       |    |		Load	0x1,0x10
067c 00e0       |    |		Load_Encached	Standard_Cache
067d 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
067e 01cc       |    |		Execute	Vector,Catenate
067f 8008       |    |		Call	0x0,0x8
0680 e00c       |    |		Load	0x0,0xc
0681 4801       |H   |		Short_Literal	0x1
0682 e210       |    |		Load	0x1,0x10
0683 e402       |    |		Load	0x2,0x2
0684 01cf       |    |		Execute	Vector,Slice_Read
0685 e00d       |    |		Load	0x0,0xd
0686 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0687 00d1       |    |		Pop_Control	Pop_Count_1
0688 4801       |H   |		Short_Literal	0x1
0689 c00e       |    |		Store	0x0,0xe
068a 7805       |x   |		Jump	0x690
068b e007       |    |		Load	0x0,0x7
068c 6803       |h   |		Jump_Zero	0x690
068d 0092 06f5  |    |		Action	Push_String_Extended,0x6f5					; "Error_Channel got 0 length data."
068f 8008       |    |		Call	0x0,0x8
0690 00c9       |    |		Action	Pop_Auxiliary_Loop
0691 7fc7       |    |		Jump	0x659
0692 00ce       |    |		Action	Pop_Auxiliary
0693 e007       |    |		Load	0x0,0x7
0694 6807       |h   |		Jump_Zero	0x69c
0695 0092 06f6  |    |		Action	Push_String_Extended,0x6f6					; "Error_Channel byte count = "
0697 e211       |    |		Load	0x1,0x11
0698 00e0       |    |		Load_Encached	Standard_Cache
0699 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
069a 01cc       |    |		Execute	Vector,Catenate
069b 8008       |    |		Call	0x0,0x8
069c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
069d			TRAP_0650:
069d 0007       |    |		Action	Break_Optional
069e 0092 06f7  |    |		Action	Push_String_Extended,0x6f7					; "Error_Channel got an unexpected exception 1: "
06a0 4800       |H   |		Short_Literal	0x0
06a1 4801       |H   |		Short_Literal	0x1
06a2 e005       |    |		Load	0x0,0x5
06a3 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
06a4 01cc       |    |		Execute	Vector,Catenate
06a5 8006       |    |		Call	0x0,0x6
06a6 4801       |H   |		Short_Literal	0x1
06a7 c00e       |    |		Store	0x0,0xe
06a8 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
06a9 0000 0000  |    |		.BLANK	0000[0x7]
06b0 ; --------------------------------------------------------------------------------------
06b0 ; SUBPROGRAM
06b0 ; --------------------------------------------------------------------------------------
06b0 06b3       |    |		.CONST	0x06b3								; Address of begin
06b1 0004       |    |		.CONST	0x0004								; Address of exception handler
06b2 0001       |    |		.CONST	0x0001								; Number of locals
06b3			BODY_06b0:
06b3			INIT_06b0:
06b3 e7fd       |    |		Load	0x3,-0x3
06b4 e212       |    |		Load	0x1,0x12
06b5 01d4       |    |		Execute	Vector,Structure_Write
06b6 e001       |    |		Load	0x0,0x1
06b7 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
06b8 e212       |    |		Load	0x1,0x12
06b9 e00b       |    |		Load	0x0,0xb
06ba 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
06bb 00d1       |    |		Pop_Control	Pop_Count_1
06bc c20f       |    |		Store	0x1,0xf
06bd e20f       |    |		Load	0x1,0xf
06be 800a       |    |		Call	0x0,0xa
06bf e001       |    |		Load	0x0,0x1
06c0 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
06c1 e002       |    |		Load	0x0,0x2
06c2 e7fe       |    |		Load	0x3,-0x2
06c3 e212       |    |		Load	0x1,0x12
06c4 e00f       |    |		Load	0x0,0xf
06c5 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
06c6 c002       |    |		Store	0x0,0x2
06c7 c20f       |    |		Store	0x1,0xf
06c8 e20f       |    |		Load	0x1,0xf
06c9 800a       |    |		Call	0x0,0xa
06ca e007       |    |		Load	0x0,0x7
06cb 6803       |h   |		Jump_Zero	0x6cf
06cc 0092 06f8  |    |		Action	Push_String_Extended,0x6f8					; "Error_Channel opened."
06ce 8008       |    |		Call	0x0,0x8
06cf 4100       |A   |		End_Rendezvous	0x0
06d0 ; --------------------------------------------------------------------------------------
06d0 ; SUBPROGRAM
06d0 ; --------------------------------------------------------------------------------------
06d0 06d3       |    |		.CONST	0x06d3								; Address of begin
06d1 0004       |    |		.CONST	0x0004								; Address of exception handler
06d2 0001       |    |		.CONST	0x0001								; Number of locals
06d3			BODY_06d0:
06d3			INIT_06d0:
06d3 e20f       |    |		Load	0x1,0xf
06d4 800a       |    |		Call	0x0,0xa
06d5 4100       |A   |		End_Rendezvous	0x0
06d6 ; --------------------------------------------------------------------------------------
06d6 ; STRING TABLE
06d6 ; --------------------------------------------------------------------------------------
06d6 0048       | H  |		.STRTAB	0x0048->0x06fa							; "Aborting remote shell: Remote machine unknown"
06d7 0073       | s  |		.STRTAB	0x0073->0x0710							; "Unexpected exception "
06d8 0086       |    |		.STRTAB	0x0086->0x071b							; " in remote shell."
06d9 0095       |    |		.STRTAB	0x0095->0x0723							; "Baud_"
06da 0098       |    |		.STRTAB	0x0098->0x0726							; "19200"
06db 009b       |    |		.STRTAB	0x009b->0x0728							; "vt100/"
06dc 009f       |    |		.STRTAB	0x009f->0x072b							; "Executing remote shell on host "
06dd 00bc       |    |		.STRTAB	0x00bc->0x073b							; "[Remote Shell complete]"
06de 00d1       |    |		.STRTAB	0x00d1->0x0746							; "[Remote_Shell error occurred]"
06df 00ec       |    |		.STRTAB	0x00ec->0x0755							; "Aborting rshell because Open or Connect failed."
06e0 0119       |    |		.STRTAB	0x0119->0x076c							; "Unexpected exception in rshell initialization:"
06e1 0145       | E  |		.STRTAB	0x0145->0x0783							; "Primary local socket = "
06e2 015a       | Z  |		.STRTAB	0x015a->0x078f							; "Secondary local socket = "
06e3 0171       | q  |		.STRTAB	0x0171->0x079b							; "Sending  "
06e4 0178       | x  |		.STRTAB	0x0178->0x07a0							; "Remote shell error: "
06e5 018a       |    |		.STRTAB	0x018a->0x07aa							; "Remote shell invocation OK."
06e6 01a3       |    |		.STRTAB	0x01a3->0x07b7							; "Unable to start remote shell: "
06e7 01bf       |    |		.STRTAB	0x01bf->0x07c6							; "Remote_Shell got data length = "
06e8 01dc       |    |		.STRTAB	0x01dc->0x07d6							; "Remote Shell byte count = "
06e9 01f4       |    |		.STRTAB	0x01f4->0x07e3							; "Remote Shell got an unexpected exception 1: "
06ea 021e       |    |		.STRTAB	0x021e->0x07f9							; "Opened primary ..."
06eb 022e       | .  |		.STRTAB	0x022e->0x0802							; "Connect failed - SOCKET_IN_USE"
06ec 024a       | J  |		.STRTAB	0x024a->0x0811							; "Retrying with a different socket"
06ed 0268       | h  |		.STRTAB	0x0268->0x0821							; "Transmitted string "
06ee 0279       | y  |		.STRTAB	0x0279->0x082a							; "Error in transmitting data"
06ef 0291       |    |		.STRTAB	0x0291->0x0837							; "Input_Channel got an unexpected exception:"
06f0 02b9       |    |		.STRTAB	0x02b9->0x084c							; "Error_Channel got an unexpected exception 2:"
06f1 02e3       |    |		.STRTAB	0x02e3->0x0862							; "Error_Channel connecting ..."
06f2 02fd       |    |		.STRTAB	0x02fd->0x0870							; "Error_Channel connected."
06f3 0313       |    |		.STRTAB	0x0313->0x087c							; "Error_Channel terminating due to Open or Connect failure"
06f4 0349       | I  |		.STRTAB	0x0349->0x0898							; "count => "
06f5 0350       | P  |		.STRTAB	0x0350->0x089d							; "Error_Channel got 0 length data."
06f6 036e       | n  |		.STRTAB	0x036e->0x08ad							; "Error_Channel byte count = "
06f7 0387       |    |		.STRTAB	0x0387->0x08ba							; "Error_Channel got an unexpected exception 1: "
06f8 03b2       |    |		.STRTAB	0x03b2->0x08d1							; "Error_Channel opened."
06f9 03c5       |    |		.STREND 0x03c5->0x08db
06fa 4162 6f72  |Abor|		.STRTAB_STRINGS
08dc 0000 0000  |    |		.BLANK	0000[0x4]
08e0 ; --------------------------------------------------------------------------------------
08e0 ; Debug Table
08e0 ; --------------------------------------------------------------------------------------
08e0 0004 000f  |    |		.DEBUG4	0x0004,0x000f,0xa881,0x0000,0x0001,0x0000
08e6 6bbf 2fd6  |k / |		.XXX[0x11a]
08e8 b7d1 1793  |    |
08ea 7edb 12d7  |~   |
08ec 6bd5 e6da  |k   |
08ee 97d6 f3d1  |    |
08f0 3bd5 67da  |; g |
08f2 5bd9 8fdb  |[   |
08f4 13d6 ebd1  |    |
08f6 23d4 96db  |#   |
08f8 dbd7 e3d6  |    |
08fa 7fd8 8fd9  |    |
08fc e301 27da  |  ' |
08fe 32d4 2fd8  |2 / |
0900 1adf 9ada  |    |
0902 2b0f 7ad4  |+ z |
0904 4fa6 632d  |O c-|
0906 1398 7aec  |  z |
0908 e3be b720  |    |
090a e3d9 23db  |  # |
090c 07d0 47d8  |  G |
090e e3bf abd3  |    |
0910 fedb b3d2  |    |
0912 275b 82f6  |'[  |
0914 d3d9 e72f  |   /|
0916 2aec e3d4  |*   |
0918 1ae1 0bd5  |    |
091a 13d6 87d3  |    |
091c 17d8 f333  |   3|
091e efd6 b3da  |    |
0920 f3db e7d1  |    |
0922 430b 4bd1  |C K |
0924 fb2f 12d7  | /  |
0926 5bd2 12d6  |[   |
0928 9754 4ae7  | TJ |
092a a3d4 cfd9  |    |
092c 43d6 f7db  |C   |
092e ab30 8f63  | 0 c|
0930 db96 634a  |  cJ|
0932 d2e5 72e6  |  r |
0934 a6e2 6f2d  |  o-|
0936 32d8 8b83  |2   |
0938 bfd1 73d4  |  s |
093a 0fd4 43d5  |  C |
093c 63d4 473e  |c G>|
093e 332d daee  |3-  |
0940 8ee0 1bd5  |    |
0942 3705 5fd6  |7 _ |
0944 16eb 6bd8  |  k |
0946 23d6 23d7  |# # |
0948 fadd 5bdb  |  [ |
094a cfd9 9003  |    |
094c 3af6 32da  |: 2 |
094e 6b2d 76df  |k-v |
0950 6367 f3d8  |cg  |
0952 f6dd e401  |    |
0954 3715 4bd9  |7 K |
0956 8bb4 f7d8  |    |
0958 87db 3bd8  |  ; |
095a b7db 43da  |  C |
095c 32d4 c465  |2  e|
095e 8bb5 fbb4  |    |
0960 efd9 cdf2  |    |
0962 3fd8 3ae0  |? : |
0964 43d9 a3d4  |C   |
0966 6ae2 2fd0  |j / |
0968 8b72 c3d2  | r  |
096a 3fd3 d7da  |?   |
096c 1fd5 ded4  |    |
096e d3d8 a2e1  |    |
0970 66e0 a2e1  |f   |
0972 a7da 63d2  |  c |
0974 ffcb 43d6  |  C |
0976 937a bfd4  | z  |
0978 4fd9 fbdb  |O   |
097a 17da 6bd1  |  k |
097c 33da a6d4  |3   |
097e 97dd d3d4  |    |
0980 16e1 52ea  |  R |
0982 b3d3 5fd7  |  _ |
0984 eef4 67dd  |  g |
0986 4eee cbd1  |N   |
0988 3ade fbca  |:   |
098a 22d6 67db  |" g |
098c 9bd6 9bdb  |    |
098e 37d9 3bd7  |7 ; |
0990 47d6 dd83  |G   |
0992 46ed deff  |F   |
0994 3fda 07d5  |?   |
0996 a3d6 bfd8  |    |
0998 51d8 8300  |Q   |
099a 53de bbda  |S   |
099c 9b1f bfd1  |    |
099e 26ed 8c00  |&   |
09a0 8303 e3d3  |    |
09a2 bbda 36e2  |  6 |
09a4 2322 6fa8  |#"o |
09a6 36e1 37ae  |6 7 |
09a8 3301 0730  |3  0|
09aa e365 fbac  | e  |
09ac bf65 32ff  | e2 |
09ae 02e7 8f0f  |    |
09b0 c7a9 0b11  |    |
09b2 d7d9 c320  |    |
09b4 0bd5 5bd7  |  [ |
09b6 afd8 1bd6  |    |
09b8 ebdb dfda  |    |
09ba b7d9 4b83  |  K |
09bc 6f72 3ee4  |or> |
09be fbde afd9  |    |
09c0 930c 2fd5  |  / |
09c2 3bdd 43dc  |; C |
09c4 a2e3 cb28  |   (|
09c6 36e0 ebad  |6   |
09c8 13a5 63dd  |  c |
09ca b6d4 e365  |   e|
09cc 83df 06d7  |    |
09ce 5f01 7bdd  |_ { |
09d0 a7d4 e6d8  |    |
09d2 36e6 c6dc  |6   |
09d4 b342 d2d6  | B  |
09d6 32f1 47dd  |2 G |
09d8 0386 fbd2  |    |
09da a6d6 0bdd  |    |
09dc b3dd f064  |   d|
09de 7bdd a3d5  |{   |
09e0 bbde fbd3  |    |
09e2 32fc 62d8  |2 b |
09e4 c7de cf23  |   #|
09e6 06d7 6709  |  g |
09e8 fbdc 12ea  |    |
09ea 574f ebdb  |WO  |
09ec dbd0 8aee  |    |
09ee bed7 37d0  |  7 |
09f0 a7dc 6ada  |  j |
09f2 9ef4 8302  |    |
09f4 63de 2bdf  |c + |
09f6 aadb 52de  |  R |
09f8 9fd7 e561  |   a|
09fa 07d6 4783  |  G |
09fc bbd2 2b73  |  +s|
09fe 97d4 7691  |  v |