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

⟦10098236b⟧

    Length: 3072 (0xc00)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0698fd

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 0528       | (  |		.CONST	0x0528								; 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 8003       |    |		.CONST	0x8003								; 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 0089       |    |		.CONST	0x0089								; Address of begin
0019 008c       |    |		.CONST	0x008c								; Address of exception handler
001a 0016       |    |		.CONST	0x0016								; 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 e5fb       |    |		Load	0x2,-0x5
0020 e002       |    |		Load	0x0,0x2
0021 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
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 e004       |    |		Load	0x0,0x4
002d 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
002e 00e3       |    |		Load_Encached	Natural_Cache
002f 00e1       |    |		Load_Encached	Boolean_Cache
0030 00e1       |    |		Load_Encached	Boolean_Cache
0031 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0032 00e1       |    |		Load_Encached	Boolean_Cache
0033 e005       |    |		Load	0x0,0x5
0034 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0035 e006       |    |		Load	0x0,0x6
0036 1913       |    |		Execute	Package,Field_Reference,Field_Number 0x13
0037 0007       |    |		Action	Break_Optional
0038 029e 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Call,Unelaborated
003a 029e 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Call,Unelaborated
003c e007       |    |		Load	0x0,0x7
003d e008       |    |		Load	0x0,0x8
003e e40c       |    |		Load	0x2,0xc
003f 480d       |H   |		Short_Literal	0xd
0040 4802       |H   |		Short_Literal	0x2
0041 0099       |    |		Action	Reference_Dynamic
0042 480e       |H   |		Short_Literal	0xe
0043 4802       |H   |		Short_Literal	0x2
0044 0099       |    |		Action	Reference_Dynamic
0045 480f       |H   |		Short_Literal	0xf
0046 4802       |H   |		Short_Literal	0x2
0047 0099       |    |		Action	Reference_Dynamic
0048 e009       |    |		Load	0x0,0x9
0049 0387       |    |		Declare_Variable	Package
004a 00d8       |    |		Load_Top	At_Offset_0
004b 020f       |    |		Execute	Module,Activate
004c 00d8       |    |		Load_Top	At_Offset_0
004d 191c       |    |		Execute	Package,Field_Reference,Field_Number 0x1c
004e 0007       |    |		Action	Break_Optional
004f 4800       |H   |		Short_Literal	0x0
0050 0093 02a3  |    |		push_full_address	INIT_02a0
0052 00f5       |    |		Load_Encached	Unused21
0053 037d       | }  |		Declare_Type	Task,Defined
0054 036f       | o  |		Declare_Variable	Task
0055 e5fb       |    |		Load	0x2,-0x5
0056 e005       |    |		Load	0x0,0x5
0057 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
0058 e00a       |    |		Load	0x0,0xa
0059 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
005a 1c08       |    |		Execute_Immediate	Run_Utility,0x8
005b 00d8       |    |		Load_Top	At_Offset_0
005c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
005d e5fa       |    |		Load	0x2,-0x6
005e e005       |    |		Load	0x0,0x5
005f 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
0060 e00a       |    |		Load	0x0,0xa
0061 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0062 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0063 00d8       |    |		Load_Top	At_Offset_0
0064 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0065 029f 00db  |    |		Declare_Subprogram	INIT_00d8,For_Call
0067 480e       |H   |		Short_Literal	0xe
0068 4802       |H   |		Short_Literal	0x2
0069 0099       |    |		Action	Reference_Dynamic
006a 00c7       |    |		Action	Elaborate_Subprogram
006b 480f       |H   |		Short_Literal	0xf
006c 4802       |H   |		Short_Literal	0x2
006d 0099       |    |		Action	Reference_Dynamic
006e 00c7       |    |		Action	Elaborate_Subprogram
006f e004       |    |		Load	0x0,0x4
0070 e5fa       |    |		Load	0x2,-0x6
0071 e005       |    |		Load	0x0,0x5
0072 e00a       |    |		Load	0x0,0xa
0073 4806       |H   |		Short_Literal	0x6
0074 4802       |H   |		Short_Literal	0x2
0075 0099       |    |		Action	Reference_Dynamic
0076 e003       |    |		Load	0x0,0x3
0077 e410       |    |		Load	0x2,0x10
0078 e00b       |    |		Load	0x0,0xb
0079 e006       |    |		Load	0x0,0x6
007a e404       |    |		Load	0x2,0x4
007b 4815       |H   |		Short_Literal	0x15
007c 4802       |H   |		Short_Literal	0x2
007d 0099       |    |		Action	Reference_Dynamic
007e e403       |    |		Load	0x2,0x3
007f e002       |    |		Load	0x0,0x2
0080 480b       |H   |		Short_Literal	0xb
0081 4802       |H   |		Short_Literal	0x2
0082 0099       |    |		Action	Reference_Dynamic
0083 e00c       |    |		Load	0x0,0xc
0084 480f       |H   |		Short_Literal	0xf
0085 e412       |    |		Load	0x2,0x12
0086 020e       |    |		Execute	Module,Augment_Imports
0087 029f 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Call
0089			BODY_0018:
0089 00be       |    |		Action	Activate_Tasks
008a 8416       |    |		Call	0x2,0x16
008b 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
008c			TRAP_0018:
008c e410       |    |		Load	0x2,0x10
008d 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
008e 010f       |    |		Execute	Exception,Equal
008f 680d       |h   |		Jump_Zero	0x9d
0090 e5fa       |    |		Load	0x2,-0x6
0091 4805       |H   |		Short_Literal	0x5
0092 0092 0398  |    |		Action	Push_String_Extended,0x398					; "Aborting remote shell: Remote machine unknown"
0094 e006       |    |		Load	0x0,0x6
0095 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0096 e412       |    |		Load	0x2,0x12
0097 0209       |    |		Execute	Task,Abort
0098 0007       |    |		Action	Break_Optional
0099 e5fa       |    |		Load	0x2,-0x6
009a e002       |    |		Load	0x0,0x2
009b 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
009c 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
009d e410       |    |		Load	0x2,0x10
009e 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
009f 010f       |    |		Execute	Exception,Equal
00a0 6807       |h   |		Jump_Zero	0xa8
00a1 e412       |    |		Load	0x2,0x12
00a2 0209       |    |		Execute	Task,Abort
00a3 0007       |    |		Action	Break_Optional
00a4 e5fa       |    |		Load	0x2,-0x6
00a5 e002       |    |		Load	0x0,0x2
00a6 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
00a7 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
00a8 e005       |    |		Load	0x0,0x5
00a9 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
00aa 010f       |    |		Execute	Exception,Equal
00ab 6802       |h   |		Jump_Zero	0xae
00ac 00d8       |    |		Load_Top	At_Offset_0
00ad 0101       |    |		Execute	Exception,Reraise
00ae e5fa       |    |		Load	0x2,-0x6
00af 4808       |H   |		Short_Literal	0x8
00b0 0092 0399  |    |		Action	Push_String_Extended,0x399					; "Unexpected exception "
00b2 4800       |H   |		Short_Literal	0x0
00b3 4801       |H   |		Short_Literal	0x1
00b4 e00b       |    |		Load	0x0,0xb
00b5 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
00b6 01cc       |    |		Execute	Vector,Catenate
00b7 0092 039a  |    |		Action	Push_String_Extended,0x39a					; " in remote shell."
00b9 01cc       |    |		Execute	Vector,Catenate
00ba e006       |    |		Load	0x0,0x6
00bb 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00bc e412       |    |		Load	0x2,0x12
00bd 0209       |    |		Execute	Task,Abort
00be 0007       |    |		Action	Break_Optional
00bf e5fa       |    |		Load	0x2,-0x6
00c0 e002       |    |		Load	0x0,0x2
00c1 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
00c2 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
00c3 0000 0000  |    |		.BLANK	0000[0x5]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb       |    |		.CONST	0x00cb								; Address of begin
00c9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ca 0001       |    |		.CONST	0x0001								; Number of locals
00cb			BODY_00c8:
00cb			INIT_00c8:
00cb e404       |    |		Load	0x2,0x4
00cc 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00cd 0000 0000  |    |		.XXX[0x3]
00cf 0000       |    |
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3       |    |		.CONST	0x00d3								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0001       |    |		.CONST	0x0001								; Number of locals
00d3			BODY_00d0:
00d3			INIT_00d0:
00d3 00da       |    |		Load_Top	At_Offset_2
00d4 8415       |    |		Call	0x2,0x15
00d5 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00d6 0000 0000  |    |		.XXX[0x2]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db       |    |		.CONST	0x00db								; Address of begin
00d9 0004       |    |		.CONST	0x0004								; Address of exception handler
00da 0001       |    |		.CONST	0x0001								; Number of locals
00db			BODY_00d8:
00db			INIT_00d8:
00db e5fb       |    |		Load	0x2,-0x5
00dc 4801       |H   |		Short_Literal	0x1
00dd e7ff       |    |		Load	0x3,-0x1
00de e002       |    |		Load	0x0,0x2
00df 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00e0 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00e1 0000 0000  |    |		.BLANK	0000[0x7]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00fe       |    |		.CONST	0x00fe								; Address of begin
00e9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ea 0008       |    |		.CONST	0x0008								; Number of locals
00eb			INIT_00e8:
00eb e5fe       |    |		Load	0x2,-0x2
00ec e002       |    |		Load	0x0,0x2
00ed 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00ee e5fa       |    |		Load	0x2,-0x6
00ef 00d9       |    |		Load_Top	At_Offset_1
00f0 e410       |    |		Load	0x2,0x10
00f1 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
00f2 e5fa       |    |		Load	0x2,-0x6
00f3 00da       |    |		Load_Top	At_Offset_2
00f4 e410       |    |		Load	0x2,0x10
00f5 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00f6 029f 0133  |   3|		Declare_Subprogram	INIT_0130,For_Call
00f8 029f 017b  |   {|		Declare_Subprogram	INIT_0178,For_Call
00fa 029f 01ab  |    |		Declare_Subprogram	INIT_01a8,For_Call
00fc 029f 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Call
00fe			BODY_00e8:
00fe e5fb       |    |		Load	0x2,-0x5
00ff 4803       |H   |		Short_Literal	0x3
0100 0092 039b  |    |		Action	Push_String_Extended,0x39b					; "Executing remote shell on host "
0102 e602       |    |		Load	0x3,0x2
0103 e00d       |    |		Load	0x0,0xd
0104 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0105 01cc       |    |		Execute	Vector,Catenate
0106 e006       |    |		Load	0x0,0x6
0107 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0108 8605       |    |		Call	0x3,0x5
0109 8606       |    |		Call	0x3,0x6
010a 4800       |H   |		Short_Literal	0x0
010b e412       |    |		Load	0x2,0x12
010c 170e       |    |		Execute	Task,Entry_Call,Field_Number 0xe
010d 8607       |    |		Call	0x3,0x7
010e 8608       |    |		Call	0x3,0x8
010f 00e1       |    |		Load_Encached	Boolean_Cache
0110 4801       |H   |		Short_Literal	0x1
0111 e412       |    |		Load	0x2,0x12
0112 170f       |    |		Execute	Task,Entry_Call,Field_Number 0xf
0113 c409       |    |		Store	0x2,0x9
0114 e405       |    |		Load	0x2,0x5
0115 e003       |    |		Load	0x0,0x3
0116 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0117 e405       |    |		Load	0x2,0x5
0118 e003       |    |		Load	0x0,0x3
0119 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
011a e409       |    |		Load	0x2,0x9
011b e40a       |    |		Load	0x2,0xa
011c 0278       | x  |		Execute	Discrete,Or
011d 7007       |p   |		Jump_Nonzero	0x125
011e e5fb       |    |		Load	0x2,-0x5
011f 4800       |H   |		Short_Literal	0x0
0120 0092 039c  |    |		Action	Push_String_Extended,0x39c					; "[Remote Shell complete]"
0122 e006       |    |		Load	0x0,0x6
0123 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0124 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0125 e5fb       |    |		Load	0x2,-0x5
0126 4805       |H   |		Short_Literal	0x5
0127 0092 039d  |    |		Action	Push_String_Extended,0x39d					; "[Remote_Shell error occurred]"
0129 e006       |    |		Load	0x0,0x6
012a 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
012b e5fa       |    |		Load	0x2,-0x6
012c e002       |    |		Load	0x0,0x2
012d 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
012e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
012f 0000       |    |		.XXX[0x1]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133       | 3  |		.CONST	0x0133								; Address of begin
0131 0155       | U  |		.CONST	0x0155								; Address of exception handler
0132 0001       |    |		.CONST	0x0001								; Number of locals
0133			BODY_0130:
0133			INIT_0130:
0133 e405       |    |		Load	0x2,0x5
0134 e5fa       |    |		Load	0x2,-0x6
0135 e603       |    |		Load	0x3,0x3
0136 e00c       |    |		Load	0x0,0xc
0137 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0138 e410       |    |		Load	0x2,0x10
0139 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
013a c405       |    |		Store	0x2,0x5
013b e404       |    |		Load	0x2,0x4
013c 6803       |h   |		Jump_Zero	0x140
013d 0092 039e  |    |		Action	Push_String_Extended,0x39e					; "Opened primary ..."
013f 8415       |    |		Call	0x2,0x15
0140 e5fa       |    |		Load	0x2,-0x6
0141 e00c       |    |		Load	0x0,0xc
0142 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0143 e604       |    |		Load	0x3,0x4
0144 e405       |    |		Load	0x2,0x5
0145 e410       |    |		Load	0x2,0x10
0146 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0147 e603       |    |		Load	0x3,0x3
0148 4801       |H   |		Short_Literal	0x1
0149 e412       |    |		Load	0x2,0x12
014a 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
014b 00cf       |    |		Action	Mark_Auxiliary
014c 7803       |x   |		Jump	0x150
014d 6022       |`"  |		Indirect_Literal	Discrete,0x170,{0x00000000, 0x00004000}
014e 00ba       |    |		Action	Initiate_Delay
014f 00c9       |    |		Action	Pop_Auxiliary_Loop
0150 e406       |    |		Load	0x2,0x6
0151 e003       |    |		Load	0x0,0x3
0152 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0153 6ff9       |o   |		Jump_Zero	0x14d
0154 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0155			TRAP_0130:
0155 e410       |    |		Load	0x2,0x10
0156 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
0157 010f       |    |		Execute	Exception,Equal
0158 6808       |h   |		Jump_Zero	0x161
0159 e5fa       |    |		Load	0x2,-0x6
015a 4805       |H   |		Short_Literal	0x5
015b 0092 039f  |    |		Action	Push_String_Extended,0x39f					; "Aborting rshell because Open or Connect failed."
015d e006       |    |		Load	0x0,0x6
015e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
015f 00d8       |    |		Load_Top	At_Offset_0
0160 0101       |    |		Execute	Exception,Reraise
0161 e5fa       |    |		Load	0x2,-0x6
0162 4808       |H   |		Short_Literal	0x8
0163 0092 03a0  |    |		Action	Push_String_Extended,0x3a0					; "Unexpected exception in rshell initialization:"
0165 4800       |H   |		Short_Literal	0x0
0166 4801       |H   |		Short_Literal	0x1
0167 e00b       |    |		Load	0x0,0xb
0168 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0169 01cc       |    |		Execute	Vector,Catenate
016a e006       |    |		Load	0x0,0x6
016b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
016c 00d8       |    |		Load_Top	At_Offset_0
016d 0101       |    |		Execute	Exception,Reraise
016e 0000 0000  |    |		.XXX[0x2]
0170 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0174 0000 0000  |    |		.BLANK	0000[0x4]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 0181       |    |		.CONST	0x0181								; Address of begin
0179 0004       |    |		.CONST	0x0004								; Address of exception handler
017a 0003       |    |		.CONST	0x0003								; Number of locals
017b			INIT_0178:
017b e405       |    |		Load	0x2,0x5
017c e003       |    |		Load	0x0,0x3
017d 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
017e e406       |    |		Load	0x2,0x6
017f e003       |    |		Load	0x0,0x3
0180 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0181			BODY_0178:
0181 e404       |    |		Load	0x2,0x4
0182 681e       |h   |		Jump_Zero	0x1a1
0183 0092 03a1  |    |		Action	Push_String_Extended,0x3a1					; "Primary local socket = "
0185 4801       |H   |		Short_Literal	0x1
0186 00db       |    |		Load_Top	At_Offset_3
0187 01d7       |    |		Execute	Vector,Field_Read
0188 00e0       |    |		Load_Encached	Standard_Cache
0189 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
018a 01cc       |    |		Execute	Vector,Catenate
018b 4802       |H   |		Short_Literal	0x2
018c 00db       |    |		Load_Top	At_Offset_3
018d 01d7       |    |		Execute	Vector,Field_Read
018e 00e0       |    |		Load_Encached	Standard_Cache
018f 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0190 01cc       |    |		Execute	Vector,Catenate
0191 8415       |    |		Call	0x2,0x15
0192 0092 03a2  |    |		Action	Push_String_Extended,0x3a2					; "Secondary local socket = "
0194 4801       |H   |		Short_Literal	0x1
0195 00da       |    |		Load_Top	At_Offset_2
0196 01d7       |    |		Execute	Vector,Field_Read
0197 00e0       |    |		Load_Encached	Standard_Cache
0198 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0199 01cc       |    |		Execute	Vector,Catenate
019a 4802       |H   |		Short_Literal	0x2
019b 00da       |    |		Load_Top	At_Offset_2
019c 01d7       |    |		Execute	Vector,Field_Read
019d 00e0       |    |		Load_Encached	Standard_Cache
019e 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
019f 01cc       |    |		Execute	Vector,Catenate
01a0 8415       |    |		Call	0x2,0x15
01a1 e5fa       |    |		Load	0x2,-0x6
01a2 00d9       |    |		Load_Top	At_Offset_1
01a3 e002       |    |		Load	0x0,0x2
01a4 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
01a5 e405       |    |		Load	0x2,0x5
01a6 8411       |    |		Call	0x2,0x11
01a7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01bb       |    |		.CONST	0x01bb								; Address of begin
01a9 0004       |    |		.CONST	0x0004								; Address of exception handler
01aa 0003       |    |		.CONST	0x0003								; Number of locals
01ab			INIT_01a8:
01ab 4800       |H   |		Short_Literal	0x0
01ac e5fa       |    |		Load	0x2,-0x6
01ad e602       |    |		Load	0x3,0x2
01ae e5fd       |    |		Load	0x2,-0x3
01af e002       |    |		Load	0x0,0x2
01b0 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
01b1 01cb       |    |		Execute	Vector,Append
01b2 0007       |    |		Action	Break_Optional
01b3 4800       |H   |		Short_Literal	0x0
01b4 00d9       |    |		Load_Top	At_Offset_1
01b5 00da       |    |		Load_Top	At_Offset_2
01b6 01cc       |    |		Execute	Vector,Catenate
01b7 e5ff       |    |		Load	0x2,-0x1
01b8 01cc       |    |		Execute	Vector,Catenate
01b9 01cb       |    |		Execute	Vector,Append
01ba 0007       |    |		Action	Break_Optional
01bb			BODY_01a8:
01bb e404       |    |		Load	0x2,0x4
01bc 6805       |h   |		Jump_Zero	0x1c2
01bd 0092 03a3  |    |		Action	Push_String_Extended,0x3a3					; "Sending  "
01bf 00d9       |    |		Load_Top	At_Offset_1
01c0 01cc       |    |		Execute	Vector,Catenate
01c1 8415       |    |		Call	0x2,0x15
01c2 e5fa       |    |		Load	0x2,-0x6
01c3 00d9       |    |		Load_Top	At_Offset_1
01c4 e002       |    |		Load	0x0,0x2
01c5 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01c6 e405       |    |		Load	0x2,0x5
01c7 8411       |    |		Call	0x2,0x11
01c8 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01c9 0000 0000  |    |		.BLANK	0000[0x7]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01da       |    |		.CONST	0x01da								; Address of begin
01d1 0282       |    |		.CONST	0x0282								; Address of exception handler
01d2 0003       |    |		.CONST	0x0003								; Number of locals
01d3			INIT_01d0:
01d3 4801       |H   |		Short_Literal	0x1
01d4 60c7       |`   |		Indirect_Literal	Discrete,0x29c,{0x00000000, 0x00000400}
01d5 e403       |    |		Load	0x2,0x3
01d6 035b       | [  |		Declare_Type	Array,Constrained
01d7 0337       | 7  |		Declare_Variable	Array
01d8 e402       |    |		Load	0x2,0x2
01d9 0007       |    |		Action	Break_Optional
01da			BODY_01d0:
01da e414       |    |		Load	0x2,0x14
01db e5fa       |    |		Load	0x2,-0x6
01dc 4807       |H   |		Short_Literal	0x7
01dd e00a       |    |		Load	0x0,0xa
01de 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
01df 00d1       |    |		Pop_Control	Pop_Count_1
01e0 00e3       |    |		Load_Encached	Natural_Cache
01e1 00da       |    |		Load_Top	At_Offset_2
01e2 e004       |    |		Load	0x0,0x4
01e3 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
01e4 60b3       |`   |		Indirect_Literal	Discrete,0x298,{0x00000000, 0x00960000}
01e5 e405       |    |		Load	0x2,0x5
01e6 e003       |    |		Load	0x0,0x3
01e7 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
01e8 c407       |    |		Store	0x2,0x7
01e9 00d1       |    |		Pop_Control	Pop_Count_1
01ea c408       |    |		Store	0x2,0x8
01eb e408       |    |		Load	0x2,0x8
01ec 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
01ed 6840       |h@  |		Jump_Zero	0x22e
01ee e5fa       |    |		Load	0x2,-0x6
01ef e407       |    |		Load	0x2,0x7
01f0 e410       |    |		Load	0x2,0x10
01f1 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
01f2 4801       |H   |		Short_Literal	0x1
01f3 00da       |    |		Load_Top	At_Offset_2
01f4 01d7       |    |		Execute	Vector,Field_Read
01f5 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
01f6 00d8       |    |		Load_Top	At_Offset_0
01f7 0b00       |    |		Execute_Immediate	Case_Compare,0x0
01f8 7018       |p   |		Jump_Nonzero	0x211
01f9 0f01       |    |		Execute_Immediate	Equal,0x1
01fa 701d       |p   |		Jump_Nonzero	0x218
01fb 00e1       |    |		Load_Encached	Boolean_Cache
01fc e414       |    |		Load	0x2,0x14
01fd 00ea       |    |		Load_Encached	Null_String_Cache
01fe 0092 03a4  |    |		Action	Push_String_Extended,0x3a4					; "Remote shell error: "
0200 4801       |H   |		Short_Literal	0x1
0201 e408       |    |		Load	0x2,0x8
0202 e802       |    |		Load	0x4,0x2
0203 01cf       |    |		Execute	Vector,Slice_Read
0204 e002       |    |		Load	0x0,0x2
0205 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0206 01cc       |    |		Execute	Vector,Catenate
0207 e00a       |    |		Load	0x0,0xa
0208 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0209 00d1       |    |		Pop_Control	Pop_Count_1
020a c40b       |    |		Store	0x2,0xb
020b e414       |    |		Load	0x2,0x14
020c e00a       |    |		Load	0x0,0xa
020d 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
020e 00d1       |    |		Pop_Control	Pop_Count_1
020f e00e       |    |		Load	0x0,0xe
0210 0257       | W  |		Execute	Discrete,Raise
0211 00d1       |    |		Pop_Control	Pop_Count_1
0212 e404       |    |		Load	0x2,0x4
0213 681a       |h   |		Jump_Zero	0x22e
0214 0092 03a5  |    |		Action	Push_String_Extended,0x3a5					; "Remote shell invocation OK."
0216 8415       |    |		Call	0x2,0x15
0217 7816       |x   |		Jump	0x22e
0218 00e1       |    |		Load_Encached	Boolean_Cache
0219 e414       |    |		Load	0x2,0x14
021a 00ea       |    |		Load_Encached	Null_String_Cache
021b 0092 03a6  |    |		Action	Push_String_Extended,0x3a6					; "Unable to start remote shell: "
021d 4802       |H   |		Short_Literal	0x2
021e e408       |    |		Load	0x2,0x8
021f e802       |    |		Load	0x4,0x2
0220 01cf       |    |		Execute	Vector,Slice_Read
0221 e002       |    |		Load	0x0,0x2
0222 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0223 01cc       |    |		Execute	Vector,Catenate
0224 e00a       |    |		Load	0x0,0xa
0225 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0226 00d1       |    |		Pop_Control	Pop_Count_1
0227 c40b       |    |		Store	0x2,0xb
0228 e414       |    |		Load	0x2,0x14
0229 e00a       |    |		Load	0x0,0xa
022a 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
022b 00d1       |    |		Pop_Control	Pop_Count_1
022c e00e       |    |		Load	0x0,0xe
022d 0257       | W  |		Execute	Discrete,Raise
022e e5fc       |    |		Load	0x2,-0x4
022f e00f       |    |		Load	0x0,0xf
0230 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0231 7007       |p   |		Jump_Nonzero	0x239
0232 e413       |    |		Load	0x2,0x13
0233 e5fb       |    |		Load	0x2,-0x5
0234 4802       |H   |		Short_Literal	0x2
0235 e00a       |    |		Load	0x0,0xa
0236 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0237 00d1       |    |		Pop_Control	Pop_Count_1
0238 7805       |x   |		Jump	0x23e
0239 e413       |    |		Load	0x2,0x13
023a e5fc       |    |		Load	0x2,-0x4
023b e00a       |    |		Load	0x0,0xa
023c 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
023d 00d1       |    |		Pop_Control	Pop_Count_1
023e 00cf       |    |		Action	Mark_Auxiliary
023f 00e3       |    |		Load_Encached	Natural_Cache
0240 00db       |    |		Load_Top	At_Offset_3
0241 e004       |    |		Load	0x0,0x4
0242 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0243 6054       |`T  |		Indirect_Literal	Discrete,0x298,{0x00000000, 0x00960000}
0244 e405       |    |		Load	0x2,0x5
0245 e003       |    |		Load	0x0,0x3
0246 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0247 c407       |    |		Store	0x2,0x7
0248 00d1       |    |		Pop_Control	Pop_Count_1
0249 c408       |    |		Store	0x2,0x8
024a e404       |    |		Load	0x2,0x4
024b 6807       |h   |		Jump_Zero	0x253
024c 0092 03a7  |    |		Action	Push_String_Extended,0x3a7					; "Remote_Shell got data length = "
024e e408       |    |		Load	0x2,0x8
024f 00e0       |    |		Load_Encached	Standard_Cache
0250 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0251 01cc       |    |		Execute	Vector,Catenate
0252 8415       |    |		Call	0x2,0x15
0253 e408       |    |		Load	0x2,0x8
0254 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0255 6821       |h!  |		Jump_Zero	0x277
0256 e5fa       |    |		Load	0x2,-0x6
0257 e407       |    |		Load	0x2,0x7
0258 e410       |    |		Load	0x2,0x10
0259 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
025a e408       |    |		Load	0x2,0x8
025b 6040       |`@  |		Indirect_Literal	Discrete,0x29c,{0x00000000, 0x00000400}
025c 027f       |    |		Execute	Discrete,Equal
025d 680b       |h   |		Jump_Zero	0x269
025e 00e1       |    |		Load_Encached	Boolean_Cache
025f e413       |    |		Load	0x2,0x13
0260 00ea       |    |		Load_Encached	Null_String_Cache
0261 e802       |    |		Load	0x4,0x2
0262 e002       |    |		Load	0x0,0x2
0263 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0264 e00a       |    |		Load	0x0,0xa
0265 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0266 00d1       |    |		Pop_Control	Pop_Count_1
0267 c40b       |    |		Store	0x2,0xb
0268 7816       |x   |		Jump	0x27f
0269 00e1       |    |		Load_Encached	Boolean_Cache
026a e413       |    |		Load	0x2,0x13
026b 00ea       |    |		Load_Encached	Null_String_Cache
026c 4801       |H   |		Short_Literal	0x1
026d e408       |    |		Load	0x2,0x8
026e e802       |    |		Load	0x4,0x2
026f 01cf       |    |		Execute	Vector,Slice_Read
0270 e002       |    |		Load	0x0,0x2
0271 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0272 e00a       |    |		Load	0x0,0xa
0273 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0274 00d1       |    |		Pop_Control	Pop_Count_1
0275 c40b       |    |		Store	0x2,0xb
0276 7808       |x   |		Jump	0x27f
0277 e413       |    |		Load	0x2,0x13
0278 e00a       |    |		Load	0x0,0xa
0279 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
027a 00d1       |    |		Pop_Control	Pop_Count_1
027b e405       |    |		Load	0x2,0x5
027c e003       |    |		Load	0x0,0x3
027d 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
027e 6802       |h   |		Jump_Zero	0x281
027f 00c9       |    |		Action	Pop_Auxiliary_Loop
0280 7fbe       |    |		Jump	0x23f
0281 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0282			TRAP_01d0:
0282 e00e       |    |		Load	0x0,0xe
0283 010f       |    |		Execute	Exception,Equal
0284 6803       |h   |		Jump_Zero	0x288
0285 4801       |H   |		Short_Literal	0x1
0286 a40a       |    |		Store_Unchecked	0x2,0xa
0287 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0288 e5fa       |    |		Load	0x2,-0x6
0289 4808       |H   |		Short_Literal	0x8
028a 0092 03a8  |    |		Action	Push_String_Extended,0x3a8					; "Remote Shell got an unexpected exception 1: "
028c 4800       |H   |		Short_Literal	0x0
028d 4801       |H   |		Short_Literal	0x1
028e e00b       |    |		Load	0x0,0xb
028f 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0290 01cc       |    |		Execute	Vector,Catenate
0291 e006       |    |		Load	0x0,0x6
0292 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0293 4801       |H   |		Short_Literal	0x1
0294 a40a       |    |		Store_Unchecked	0x2,0xa
0295 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0296 0000 0000  |    |		.XXX[0x2]
0298 0000 0000  |    |		.LITERAL	{0x00000000, 0x00960000}
029c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000400}
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02bf       |    |		.CONST	0x02bf								; Address of begin
02a1 02cb       |    |		.CONST	0x02cb								; Address of exception handler
02a2 0016       |    |		.CONST	0x0016								; Number of locals
02a3			INIT_02a0:
02a3 4801       |H   |		Short_Literal	0x1
02a4 02cb       |    |		Declare_Variable	Entry
02a5 4800       |H   |		Short_Literal	0x0
02a6 02cb       |    |		Declare_Variable	Entry
02a7 4801       |H   |		Short_Literal	0x1
02a8 02cb       |    |		Declare_Variable	Entry
02a9 00bf       |    |		Action	Accept_Activation
02aa e001       |    |		Load	0x0,0x1
02ab 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
02ac 00e3       |    |		Load_Encached	Natural_Cache
02ad 00e1       |    |		Load_Encached	Boolean_Cache
02ae 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
02af e002       |    |		Load	0x0,0x2
02b0 e003       |    |		Load	0x0,0x3
02b1 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
02b2 e004       |    |		Load	0x0,0x4
02b3 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
02b4 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02b5 00d8       |    |		Load_Top	At_Offset_0
02b6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02b7 029f 02e3  |    |		Declare_Subprogram	INIT_02e0,For_Call
02b9 029f 031b  |    |		Declare_Subprogram	INIT_0318,For_Call
02bb 480f       |H   |		Short_Literal	0xf
02bc 0299 0373  |   s|		Declare_Subprogram	INIT_0370,For_Accept
02be 00bc       |    |		Action	Signal_Activated
02bf			BODY_02a0:
02bf 8214       |    |		Call	0x1,0x14
02c0 8215       |    |		Call	0x1,0x15
02c1 e005       |    |		Load	0x0,0x5
02c2 e006       |    |		Load	0x0,0x6
02c3 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
02c4 e005       |    |		Load	0x0,0x5
02c5 e006       |    |		Load	0x0,0x6
02c6 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
02c7 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
02c8 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
02c9 0137       | 7  |		Execute	Entry,Rendezvous
02ca 00bb       |    |		Action	Signal_Completion
02cb			TRAP_02a0:
02cb e007       |    |		Load	0x0,0x7
02cc 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
02cd 010f       |    |		Execute	Exception,Equal
02ce 6801       |h   |		Jump_Zero	0x2d0
02cf 00bb       |    |		Action	Signal_Completion
02d0 e002       |    |		Load	0x0,0x2
02d1 4808       |H   |		Short_Literal	0x8
02d2 0092 03a9  |    |		Action	Push_String_Extended,0x3a9					; "Error_Channel got an unexpected exception 2:"
02d4 4800       |H   |		Short_Literal	0x0
02d5 4801       |H   |		Short_Literal	0x1
02d6 e008       |    |		Load	0x0,0x8
02d7 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
02d8 01cc       |    |		Execute	Vector,Catenate
02d9 e009       |    |		Load	0x0,0x9
02da 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02db 00bb       |    |		Action	Signal_Completion
02dc 0000 0000  |    |		.BLANK	0000[0x4]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e9       |    |		.CONST	0x02e9								; Address of begin
02e1 0305       |    |		.CONST	0x0305								; Address of exception handler
02e2 0003       |    |		.CONST	0x0003								; Number of locals
02e3			INIT_02e0:
02e3 480d       |H   |		Short_Literal	0xd
02e4 0299 037b  |   {|		Declare_Subprogram	INIT_0378,For_Accept
02e6 480e       |H   |		Short_Literal	0xe
02e7 0299 0393  |    |		Declare_Subprogram	INIT_0390,For_Accept
02e9			BODY_02e0:
02e9 4802       |H   |		Short_Literal	0x2
02ea 4802       |H   |		Short_Literal	0x2
02eb 0099       |    |		Action	Reference_Dynamic
02ec 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
02ed 0137       | 7  |		Execute	Entry,Rendezvous
02ee e00a       |    |		Load	0x0,0xa
02ef 6803       |h   |		Jump_Zero	0x2f3
02f0 0092 03aa  |    |		Action	Push_String_Extended,0x3aa					; "Error_Channel connecting ..."
02f2 800b       |    |		Call	0x0,0xb
02f3 e001       |    |		Load	0x0,0x1
02f4 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
02f5 601e       |`   |		Indirect_Literal	Discrete,0x314,{0x00007fff, 0xffffffff}
02f6 e005       |    |		Load	0x0,0x5
02f7 e006       |    |		Load	0x0,0x6
02f8 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
02f9 c210       |    |		Store	0x1,0x10
02fa e00a       |    |		Load	0x0,0xa
02fb 6803       |h   |		Jump_Zero	0x2ff
02fc 0092 03ab  |    |		Action	Push_String_Extended,0x3ab					; "Error_Channel connected."
02fe 800b       |    |		Call	0x0,0xb
02ff 4803       |H   |		Short_Literal	0x3
0300 4802       |H   |		Short_Literal	0x2
0301 0099       |    |		Action	Reference_Dynamic
0302 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0303 0137       | 7  |		Execute	Entry,Rendezvous
0304 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0305			TRAP_02e0:
0305 e007       |    |		Load	0x0,0x7
0306 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
0307 010f       |    |		Execute	Exception,Equal
0308 6808       |h   |		Jump_Zero	0x311
0309 e002       |    |		Load	0x0,0x2
030a 4805       |H   |		Short_Literal	0x5
030b 0092 03ac  |    |		Action	Push_String_Extended,0x3ac					; "Error_Channel terminating due to Open or Connect failure"
030d e009       |    |		Load	0x0,0x9
030e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
030f 00d8       |    |		Load_Top	At_Offset_0
0310 0101       |    |		Execute	Exception,Reraise
0311 0100       |    |		Execute	Exception,Raise
0312 0000 0000  |    |		.XXX[0x2]
0314 0000 7fff  |    |		.LITERAL	{0x00007fff, 0xffffffff}
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 0320       |    |		.CONST	0x0320								; Address of begin
0319 0359       | Y  |		.CONST	0x0359								; Address of exception handler
031a 0002       |    |		.CONST	0x0002								; Number of locals
031b			INIT_0318:
031b 4801       |H   |		Short_Literal	0x1
031c 4880       |H   |		Short_Literal	0x80
031d e00c       |    |		Load	0x0,0xc
031e 035b       | [  |		Declare_Type	Array,Constrained
031f 0337       | 7  |		Declare_Variable	Array
0320			BODY_0318:
0320 e213       |    |		Load	0x1,0x13
0321 e002       |    |		Load	0x0,0x2
0322 4807       |H   |		Short_Literal	0x7
0323 e004       |    |		Load	0x0,0x4
0324 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0325 00d1       |    |		Pop_Control	Pop_Count_1
0326 00cf       |    |		Action	Mark_Auxiliary
0327 00e3       |    |		Load_Encached	Natural_Cache
0328 00da       |    |		Load_Top	At_Offset_2
0329 e001       |    |		Load	0x0,0x1
032a 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
032b 603c       |`<  |		Indirect_Literal	Discrete,0x368,{0x00000000, 0x00960000}
032c e005       |    |		Load	0x0,0x5
032d e006       |    |		Load	0x0,0x6
032e 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
032f c210       |    |		Store	0x1,0x10
0330 00d1       |    |		Pop_Control	Pop_Count_1
0331 c211       |    |		Store	0x1,0x11
0332 e211       |    |		Load	0x1,0x11
0333 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0334 6814       |h   |		Jump_Zero	0x349
0335 e002       |    |		Load	0x0,0x2
0336 e210       |    |		Load	0x1,0x10
0337 e007       |    |		Load	0x0,0x7
0338 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0339 00e1       |    |		Load_Encached	Boolean_Cache
033a e213       |    |		Load	0x1,0x13
033b 00ea       |    |		Load_Encached	Null_String_Cache
033c 4801       |H   |		Short_Literal	0x1
033d e211       |    |		Load	0x1,0x11
033e e402       |    |		Load	0x2,0x2
033f 01cf       |    |		Execute	Vector,Slice_Read
0340 e00d       |    |		Load	0x0,0xd
0341 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0342 e004       |    |		Load	0x0,0x4
0343 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0344 00d1       |    |		Pop_Control	Pop_Count_1
0345 c00e       |    |		Store	0x0,0xe
0346 4801       |H   |		Short_Literal	0x1
0347 a212       |    |		Store_Unchecked	0x1,0x12
0348 780d       |x   |		Jump	0x356
0349 e00a       |    |		Load	0x0,0xa
034a 6803       |h   |		Jump_Zero	0x34e
034b 0092 03ad  |    |		Action	Push_String_Extended,0x3ad					; "Error_Channel got 0 length data."
034d 800b       |    |		Call	0x0,0xb
034e e213       |    |		Load	0x1,0x13
034f e004       |    |		Load	0x0,0x4
0350 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0351 00d1       |    |		Pop_Control	Pop_Count_1
0352 e005       |    |		Load	0x0,0x5
0353 e006       |    |		Load	0x0,0x6
0354 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0355 6802       |h   |		Jump_Zero	0x358
0356 00c9       |    |		Action	Pop_Auxiliary_Loop
0357 7fcf       |    |		Jump	0x327
0358 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0359			TRAP_0318:
0359 0007       |    |		Action	Break_Optional
035a e002       |    |		Load	0x0,0x2
035b 4808       |H   |		Short_Literal	0x8
035c 0092 03ae  |    |		Action	Push_String_Extended,0x3ae					; "Error_Channel got an unexpected exception 1: "
035e 4800       |H   |		Short_Literal	0x0
035f 4801       |H   |		Short_Literal	0x1
0360 e008       |    |		Load	0x0,0x8
0361 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0362 01cc       |    |		Execute	Vector,Catenate
0363 e009       |    |		Load	0x0,0x9
0364 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0365 4801       |H   |		Short_Literal	0x1
0366 a212       |    |		Store_Unchecked	0x1,0x12
0367 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0368 0000 0000  |    |		.LITERAL	{0x00000000, 0x00960000}
036c 0000 0000  |    |		.BLANK	0000[0x4]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0373       | s  |		.CONST	0x0373								; Address of begin
0371 0004       |    |		.CONST	0x0004								; Address of exception handler
0372 0001       |    |		.CONST	0x0001								; Number of locals
0373			BODY_0370:
0373			INIT_0370:
0373 e212       |    |		Load	0x1,0x12
0374 a5fe       |    |		Store_Unchecked	0x2,-0x2
0375 4101       |A   |		End_Rendezvous	0x1
0376 0000 0000  |    |		.XXX[0x2]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 037b       | {  |		.CONST	0x037b								; Address of begin
0379 0004       |    |		.CONST	0x0004								; Address of exception handler
037a 0001       |    |		.CONST	0x0001								; Number of locals
037b			BODY_0378:
037b			INIT_0378:
037b e005       |    |		Load	0x0,0x5
037c e002       |    |		Load	0x0,0x2
037d e7fe       |    |		Load	0x3,-0x2
037e e00f       |    |		Load	0x0,0xf
037f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0380 e007       |    |		Load	0x0,0x7
0381 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0382 c005       |    |		Store	0x0,0x5
0383 e00a       |    |		Load	0x0,0xa
0384 6803       |h   |		Jump_Zero	0x388
0385 0092 03af  |    |		Action	Push_String_Extended,0x3af					; "Error_Channel opened."
0387 800b       |    |		Call	0x0,0xb
0388 4100       |A   |		End_Rendezvous	0x0
0389 0000 0000  |    |		.BLANK	0000[0x7]
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 0393       |    |		.CONST	0x0393								; Address of begin
0391 0004       |    |		.CONST	0x0004								; Address of exception handler
0392 0001       |    |		.CONST	0x0001								; Number of locals
0393			BODY_0390:
0393			INIT_0390:
0393 e002       |    |		Load	0x0,0x2
0394 e210       |    |		Load	0x1,0x10
0395 e007       |    |		Load	0x0,0x7
0396 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0397 4100       |A   |		End_Rendezvous	0x0
0398 ; --------------------------------------------------------------------------------------
0398 ; STRING TABLE
0398 ; --------------------------------------------------------------------------------------
0398 0032       | 2  |		.STRTAB	0x0032->0x03b1							; "Aborting remote shell: Remote machine unknown"
0399 005d       | ]  |		.STRTAB	0x005d->0x03c7							; "Unexpected exception "
039a 0070       | p  |		.STRTAB	0x0070->0x03d2							; " in remote shell."
039b 007f       |    |		.STRTAB	0x007f->0x03da							; "Executing remote shell on host "
039c 009c       |    |		.STRTAB	0x009c->0x03ea							; "[Remote Shell complete]"
039d 00b1       |    |		.STRTAB	0x00b1->0x03f5							; "[Remote_Shell error occurred]"
039e 00cc       |    |		.STRTAB	0x00cc->0x0404							; "Opened primary ..."
039f 00dc       |    |		.STRTAB	0x00dc->0x040d							; "Aborting rshell because Open or Connect failed."
03a0 0109       |    |		.STRTAB	0x0109->0x0424							; "Unexpected exception in rshell initialization:"
03a1 0135       | 5  |		.STRTAB	0x0135->0x043b							; "Primary local socket = "
03a2 014a       | J  |		.STRTAB	0x014a->0x0447							; "Secondary local socket = "
03a3 0161       | a  |		.STRTAB	0x0161->0x0453							; "Sending  "
03a4 0168       | h  |		.STRTAB	0x0168->0x0458							; "Remote shell error: "
03a5 017a       | z  |		.STRTAB	0x017a->0x0462							; "Remote shell invocation OK."
03a6 0193       |    |		.STRTAB	0x0193->0x046f							; "Unable to start remote shell: "
03a7 01af       |    |		.STRTAB	0x01af->0x047e							; "Remote_Shell got data length = "
03a8 01cc       |    |		.STRTAB	0x01cc->0x048e							; "Remote Shell got an unexpected exception 1: "
03a9 01f6       |    |		.STRTAB	0x01f6->0x04a4							; "Error_Channel got an unexpected exception 2:"
03aa 0220       |    |		.STRTAB	0x0220->0x04ba							; "Error_Channel connecting ..."
03ab 023a       | :  |		.STRTAB	0x023a->0x04c8							; "Error_Channel connected."
03ac 0250       | P  |		.STRTAB	0x0250->0x04d4							; "Error_Channel terminating due to Open or Connect failure"
03ad 0286       |    |		.STRTAB	0x0286->0x04f0							; "Error_Channel got 0 length data."
03ae 02a4       |    |		.STRTAB	0x02a4->0x0500							; "Error_Channel got an unexpected exception 1: "
03af 02cf       |    |		.STRTAB	0x02cf->0x0516							; "Error_Channel opened."
03b0 02e2       |    |		.STREND 0x02e2->0x0521
03b1 4162 6f72  |Abor|		.STRTAB_STRINGS
0521 0000 0000  |    |		.BLANK	0000[0x7]
0528 ; --------------------------------------------------------------------------------------
0528 ; Debug Table
0528 ; --------------------------------------------------------------------------------------
0528 0004 0001  |    |		.DEBUG4	0x0004,0x0001,0xc86f,0x0000,0x0001,0x0000
052e 0000 4031  |  @1|		.XXX[0xe]
0530 0730 f004  | 0  |
0532 0000 0fa0  |    |
0534 000b 8004  |    |
0536 000b 5c04  |  \ |
0538 0000 0000  |    |
053a 0000 0076  |   v|
053c 0000 0000  |    |		.BLANK	0000[0x4]
0540 0730 d004  | 0  |		.XXX[0x14]
0542 c000 1496  |    |
0544 0000 0040  |   @|
0546 0000 0040  |   @|
0548 0000 0000  |    |
054a 8000 0000  |    |
054c 00ea 3c0a  |  < |
054e 0000 4131  |  A1|
0550 0000 0000  |    |
0552 0000 0076  |   v|
0554 0000 0000  |    |		.BLANK	0000[0x4]
0558 0730 d004  | 0  |		.XXX[0x1c]
055a c000 1616  |    |
055c 0000 0040  |   @|
055e 0000 0040  |   @|
0560 0730 f004  | 0  |
0562 8000 0002  |    |
0564 00ea 3c0a  |  < |
0566 0000 4231  |  B1|
0568 000b 7804  |  x |
056a 0000 1308  |    |
056c 0730 f804  | 0  |
056e 000b 7c04  |  | |
0570 0000 0000  |    |
0572 0000 0076  |   v|
0574 0000 0000  |    |		.BLANK	0000[0x4]
0578 0730 d004  | 0  |		.XXX[0x14]
057a c000 1816  |    |
057c 0000 0040  |   @|
057e 0000 0040  |   @|
0580 0730 f804  | 0  |
0582 8000 0002  |    |
0584 00ea 3c0a  |  < |
0586 0000 43b1  |  C |
0588 0000 0000  |    |
058a 0000 0076  |   v|
058c 0000 0000  |    |		.BLANK	0000[0x4]
0590 0730 d004  | 0  |		.XXX[0x1c]
0592 c000 1996  |    |
0594 0000 0040  |   @|
0596 0000 0040  |   @|
0598 0000 0000  |    |
059a 8000 0000  |    |
059c 00ea 3c0a  |  < |
059e 0000 4531  |  E1|
05a0 000b 8804  |    |
05a2 0000 1680  |    |
05a4 000b 4404  |  D |
05a6 000b 4004  |  @ |
05a8 0000 0000  |    |
05aa 0000 0076  |   v|
05ac 0000 0000  |    |		.BLANK	0000[0x4]
05b0 0730 d004  | 0  |		.XXX[0x50]
05b2 c000 1b96  |    |
05b4 0000 0040  |   @|
05b6 0000 0040  |   @|
05b8 0731 0004  | 1  |
05ba 8000 0003  |    |
05bc 00ea 3c0a  |  < |
05be 0000 4631  |  F1|
05c0 0731 0804  | 1  |
05c2 0000 1a22  |   "|
05c4 000b 8c04  |    |
05c6 0740 0001  | @  |
05c8 a040 1380  | @  |
05ca 0000 3dd8  |  = |
05cc 0000 0231  |   1|
05ce 0a1a 7a6a  |  zj|
05d0 6a0a 7222  |j r"|
05d2 9972 9aca  | r  |
05d4 9aa2 2a6a  |  *j|
05d6 fa6a 0a4a  | j J|
05d8 72a2 2a72  |r *r|
05da 0a72 1a29  | r )|
05dc 7292 2ab1  |r * |
05de 898a f989  |    |
05e0 82fa 9a82  |    |
05e2 2a19 72aa  |* r |
05e4 724a a299  |rJ  |
05e6 7292 2a82  |r * |
05e8 0a4a 92fa  | J  |
05ea 224a 922a  |"J *|
05ec 1aa2 7a92  |  z |
05ee c93a 9a82  | :  |
05f0 2a1c 0000  |*   |
05f2 1a04 0060  |   `|
05f4 0000 0000  |    |
05f6 8000 0008  |    |
05f8 2922 a820  |)"  |
05fa a4a9 2fa2  |  / |
05fc 24a9 22a1  |$ " |
05fe aa27 a92c  | ' ,|