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