|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 6144 (0x1800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_ccb0b3
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦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 0ac8 | | .CONST 0x0ac8 ; 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 8006 | | .CONST 0x8006 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; SUBPROGRAM
0008 ; See instruction 0x02cf at 0x7a8, index=0x0
0008 ; --------------------------------------------------------------------------------------
0008 00da | | .CONST 0x00da ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0030 | 0 | .CONST 0x0030 ; Number of locals
000b INIT_0008:
000b INIT_0008:
000b 4900 |I | Short_Literal 0x100
000c e001 | | Load 0x0,0x1
000d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
000e 1c07 | | Execute_Immediate Run_Utility,0x7
000f 0129 | ) | Execute Any,Make_Visible
0010 e002 | | Load 0x0,0x2
0011 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0012 e003 | | Load 0x0,0x3
0013 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0014 029f 076b | k| Declare_Subprogram INIT_0768,For_Call
0016 4803 |H | Short_Literal 0x3
0017 032e | . | Declare_Type Record,Defined,Visible
0018 00e3 | | Load_Encached Natural_Cache
0019 0266 | f | Execute Discrete,Bounds
001a 00da | | Load_Top At_Offset_2
001b 029f 0103 | | Declare_Subprogram INIT_0100,For_Call
001d 4801 |H | Short_Literal 0x1
001e 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
001f 00c4 | | Action Make_Default
0020 00c4 | | Action Make_Default
0021 00c4 | | Action Make_Default
0022 00c4 | | Action Make_Default
0023 00c4 | | Action Make_Default
0024 00c4 | | Action Make_Default
0025 00c4 | | Action Make_Default
0026 00c4 | | Action Make_Default
0027 00c4 | | Action Make_Default
0028 00c4 | | Action Make_Default
0029 e004 | | Load 0x0,0x4
002a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
002b e005 | | Load 0x0,0x5
002c 1b14 | | Execute Package,Field_Read,Field_Number 0x14
002d 029f 078b | | Declare_Subprogram INIT_0788,For_Call
002f 4802 |H | Short_Literal 0x2
0030 032e | . | Declare_Type Record,Defined,Visible
0031 c215 | | Store 0x1,0x15
0032 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated
0034 c217 | | Store 0x1,0x17
0035 029a 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call,Visible,Unelaborated
0037 c210 | | Store 0x1,0x10
0038 029a 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call,Visible,Unelaborated
003a c211 | | Store 0x1,0x11
003b 029a 03bb | | Declare_Subprogram INIT_03b8,For_Outer_Call,Visible,Unelaborated
003d c212 | | Store 0x1,0x12
003e 029a 03d3 | | Declare_Subprogram INIT_03d0,For_Outer_Call,Visible,Unelaborated
0040 c218 | | Store 0x1,0x18
0041 00bf | | Action Accept_Activation
0042 4800 |H | Short_Literal 0x0
0043 4806 |H | Short_Literal 0x6
0044 029f 03f3 | | Declare_Subprogram INIT_03f0,For_Call
0046 03fd | | Declare_Type Discrete,Defined
0047 4800 |H | Short_Literal 0x0
0048 48ff |H | Short_Literal 0xff
0049 e006 | | Load 0x0,0x6
004a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
004b 03f8 | | Declare_Type Discrete,Constrained
004c 00e7 | | Load_Encached Duration_Cache
004d 03e9 | | Declare_Variable Discrete,Duplicate
004e 00e1 | | Load_Encached Boolean_Cache
004f 00e1 | | Load_Encached Boolean_Cache
0050 e007 | | Load 0x0,0x7
0051 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0052 e008 | | Load 0x0,0x8
0053 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0054 00e1 | | Load_Encached Boolean_Cache
0055 e002 | | Load 0x0,0x2
0056 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0057 e003 | | Load 0x0,0x3
0058 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0059 4801 |H | Short_Literal 0x1
005a 60c9 |` | Indirect_Literal Discrete,0x124,{0x00000000, 0x00000400}
005b 00e9 | | Load_Encached String_Cache
005c 035b | [ | Declare_Type Array,Constrained
005d 00e3 | | Load_Encached Natural_Cache
005e 00e1 | | Load_Encached Boolean_Cache
005f 00e1 | | Load_Encached Boolean_Cache
0060 e215 | | Load 0x1,0x15
0061 029f 041b | | Declare_Subprogram INIT_0418,For_Call
0063 480b |H | Short_Literal 0xb
0064 032d | - | Declare_Type Record,Defined
0065 4800 |H | Short_Literal 0x0
0066 48ff |H | Short_Literal 0xff
0067 00da | | Load_Top At_Offset_2
0068 029f 044b | K| Declare_Subprogram INIT_0448,For_Call
006a 4801 |H | Short_Literal 0x1
006b 035d | ] | Declare_Type Array,Defined
006c 00d8 | | Load_Top At_Offset_0
006d 0337 | 7 | Declare_Variable Array
006e 00d8 | | Load_Top At_Offset_0
006f 1c00 | | Execute_Immediate Run_Utility,0x0
0070 029b 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call,Unelaborated
0072 e009 | | Load 0x0,0x9
0073 e00a | | Load 0x0,0xa
0074 48e0 |H | Short_Literal 0xe0
0075 e00b | | Load 0x0,0xb
0076 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0077 4801 |H | Short_Literal 0x1
0078 4948 |IH | Short_Literal 0x148
0079 4804 |H | Short_Literal 0x4
007a 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
007b e00b | | Load 0x0,0xb
007c 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c
007d 0387 | | Declare_Variable Package
007e 00d8 | | Load_Top At_Offset_0
007f 020f | | Execute Module,Activate
0080 029b 04eb | | Declare_Subprogram INIT_04e8,For_Outer_Call,Unelaborated
0082 e00c | | Load 0x0,0xc
0083 e00d | | Load 0x0,0xd
0084 e219 | | Load 0x1,0x19
0085 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0086 e222 | " | Load 0x1,0x22
0087 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f
0088 0387 | | Declare_Variable Package
0089 00d8 | | Load_Top At_Offset_0
008a 020f | | Execute Module,Activate
008b 4800 |H | Short_Literal 0x0
008c e00e | | Load 0x0,0xe
008d 02a0 | | Declare_Subprogram Null_Subprogram
008e 038e | | Declare_Type Package,Defined
008f 0387 | | Declare_Variable Package
0090 e00f | | Load 0x0,0xf
0091 4801 |H | Short_Literal 0x1
0092 00da | | Load_Top At_Offset_2
0093 020e | | Execute Module,Augment_Imports
0094 00d8 | | Load_Top At_Offset_0
0095 020f | | Execute Module,Activate
0096 029d 054b | K| Declare_Subprogram INIT_0548,For_Outer_Call
0098 029d 055b | [| Declare_Subprogram INIT_0558,For_Outer_Call
009a 4800 |H | Short_Literal 0x0
009b 0093 0823 | #| push_full_address INIT_0820
009d 00f5 | | Load_Encached Unused21
009e 037d | } | Declare_Type Task,Defined
009f 036f | o | Declare_Variable Task
00a0 e003 | | Load 0x0,0x3
00a1 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00a2 e010 | | Load 0x0,0x10
00a3 e011 | | Load 0x0,0x11
00a4 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00a5 e012 | | Load 0x0,0x12
00a6 00b6 | | Action Make_Scope
00a7 4807 |H | Short_Literal 0x7
00a8 e228 | ( | Load 0x1,0x28
00a9 020e | | Execute Module,Augment_Imports
00aa 0007 | | Action Break_Optional
00ab 4800 |H | Short_Literal 0x0
00ac 0093 07a3 | | push_full_address INIT_07a0
00ae 00f5 | | Load_Encached Unused21
00af 037d | } | Declare_Type Task,Defined
00b0 036f | o | Declare_Variable Task
00b1 e013 | | Load 0x0,0x13
00b2 e003 | | Load 0x0,0x3
00b3 e006 | | Load 0x0,0x6
00b4 e014 | | Load 0x0,0x14
00b5 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
00b6 e21a | | Load 0x1,0x1a
00b7 e00b | | Load 0x0,0xb
00b8 e015 | | Load 0x0,0x15
00b9 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
00ba 4809 |H | Short_Literal 0x9
00bb e229 | ) | Load 0x1,0x29
00bc 020e | | Execute Module,Augment_Imports
00bd 0007 | | Action Break_Optional
00be 029d 057b | {| Declare_Subprogram INIT_0578,For_Outer_Call
00c0 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
00c1 00c7 | | Action Elaborate_Subprogram
00c2 029d 05a3 | | Declare_Subprogram INIT_05a0,For_Outer_Call
00c4 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
00c5 00c7 | | Action Elaborate_Subprogram
00c6 029d 05b3 | | Declare_Subprogram INIT_05b0,For_Outer_Call
00c8 029d 05db | | Declare_Subprogram INIT_05d8,For_Outer_Call
00ca 1d17 | | Execute_Immediate Reference_Lex_1,0x17
00cb 00c7 | | Action Elaborate_Subprogram
00cc 029d 05eb | | Declare_Subprogram INIT_05e8,For_Outer_Call
00ce 1d10 | | Execute_Immediate Reference_Lex_1,0x10
00cf 00c7 | | Action Elaborate_Subprogram
00d0 029d 066b | k| Declare_Subprogram INIT_0668,For_Outer_Call
00d2 1d18 | | Execute_Immediate Reference_Lex_1,0x18
00d3 00c7 | | Action Elaborate_Subprogram
00d4 1d11 | | Execute_Immediate Reference_Lex_1,0x11
00d5 00c7 | | Action Elaborate_Subprogram
00d6 029d 068b | | Declare_Subprogram INIT_0688,For_Outer_Call
00d8 1d12 | | Execute_Immediate Reference_Lex_1,0x12
00d9 00c7 | | Action Elaborate_Subprogram
00da BODY_0008:
00da BODY_0008:
00da 00be | | Action Activate_Tasks
00db 00e7 | | Load_Encached Duration_Cache
00dc 00e7 | | Load_Encached Duration_Cache
00dd e016 | | Load 0x0,0x16
00de 180d | | Execute Package,Field_Execute,Field_Number 0xd
00df c21b | | Store 0x1,0x1b
00e0 c21c | | Store 0x1,0x1c
00e1 e21c | | Load 0x1,0x1c
00e2 0e00 | | Execute_Immediate Not_Equal,0x0
00e3 a21d | | Store_Unchecked 0x1,0x1d
00e4 e010 | | Load 0x0,0x10
00e5 180e | | Execute Package,Field_Execute,Field_Number 0xe
00e6 4802 |H | Short_Literal 0x2
00e7 0092 087e | ~| Action Push_String_Extended,0x87e ; "Cleaning frequency :"
00e9 e21b | | Load 0x1,0x1b
00ea e012 | | Load 0x0,0x12
00eb 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
00ec 01cc | | Execute Vector,Catenate
00ed e011 | | Load 0x0,0x11
00ee 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00ef e010 | | Load 0x0,0x10
00f0 180e | | Execute Package,Field_Execute,Field_Number 0xe
00f1 4802 |H | Short_Literal 0x2
00f2 0092 087f | | Action Push_String_Extended,0x87f ; "Unused time :"
00f4 e21c | | Load 0x1,0x1c
00f5 e012 | | Load 0x0,0x12
00f6 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
00f7 01cc | | Execute Vector,Catenate
00f8 e011 | | Load 0x0,0x11
00f9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00fa 4800 |H | Short_Literal 0x0
00fb e228 | ( | Load 0x1,0x28
00fc 170d | | Execute Task,Entry_Call,Field_Number 0xd
00fd 00bc | | Action Signal_Activated
00fe 00bb | | Action Signal_Completion
00ff 0000 | | .XXX[0x1]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 4605 |F | Jump_Case 0x6
0104 7804 |x | Jump 0x109 ; case 0x0
0105 7810 |x | Jump 0x116 ; case 0x1
0106 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
0107 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0108 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0109 00da | | Load_Top At_Offset_2 ; case 0x5
010a 01dc | | Execute Vector,Last
010b 00db | | Load_Top At_Offset_3
010c 01dd | | Execute Vector,First
010d 0263 | c | Execute Discrete,Above_Bound
010e 7006 |p | Jump_Nonzero 0x115
010f 00d8 | | Load_Top At_Offset_0
0110 e5ff | | Load 0x2,-0x1
0111 01d5 | | Execute Vector,Field_Reference
0112 1c00 | | Execute_Immediate Run_Utility,0x0
0113 0a01 | | Execute_Immediate Plus,0x1
0114 7ff8 | | Jump 0x10d
0115 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0116 00da | | Load_Top At_Offset_2
0117 01dc | | Execute Vector,Last
0118 00db | | Load_Top At_Offset_3
0119 01dd | | Execute Vector,First
011a 0263 | c | Execute Discrete,Above_Bound
011b 7006 |p | Jump_Nonzero 0x122
011c 00d8 | | Load_Top At_Offset_0
011d e5ff | | Load 0x2,-0x1
011e 01d7 | | Execute Vector,Field_Read
011f 1c01 | | Execute_Immediate Run_Utility,0x1
0120 0a01 | | Execute_Immediate Plus,0x1
0121 7ff8 | | Jump 0x11a
0122 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0123 0000 | | .XXX[0x1]
0124 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 0150 | P | .CONST 0x0150 ; Address of begin
0129 02cb | | .CONST 0x02cb ; Address of exception handler
012a 000d | | .CONST 0x000d ; Number of locals
012b INIT_0128:
012b e013 | | Load 0x0,0x13
012c 1b19 | | Execute Package,Field_Read,Field_Number 0x19
012d e21a | | Load 0x1,0x1a
012e 0007 | | Action Break_Optional
012f e017 | | Load 0x0,0x17
0130 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0131 02c7 | | Declare_Variable Any
0132 00d8 | | Load_Top At_Offset_0
0133 1c00 | | Execute_Immediate Run_Utility,0x0
0134 00e1 | | Load_Encached Boolean_Cache
0135 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0136 00e1 | | Load_Encached Boolean_Cache
0137 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0138 e018 | | Load 0x0,0x18
0139 180e | | Execute Package,Field_Execute,Field_Number 0xe
013a e019 | | Load 0x0,0x19
013b 1b15 | | Execute Package,Field_Read,Field_Number 0x15
013c 03f1 | | Declare_Variable Discrete,With_Value
013d 00e1 | | Load_Encached Boolean_Cache
013e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
013f e008 | | Load 0x0,0x8
0140 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0141 0322 | " | Declare_Variable Record
0142 00d8 | | Load_Top At_Offset_0
0143 1c00 | | Execute_Immediate Run_Utility,0x0
0144 00e3 | | Load_Encached Natural_Cache
0145 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0146 00e1 | | Load_Encached Boolean_Cache
0147 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0148 e003 | | Load 0x0,0x3
0149 1b0f | | Execute Package,Field_Read,Field_Number 0xf
014a 02c7 | | Declare_Variable Any
014b 00d8 | | Load_Top At_Offset_0
014c 1c00 | | Execute_Immediate Run_Utility,0x0
014d e5fc | | Load 0x2,-0x4
014e e5fe | | Load 0x2,-0x2
014f 822c | , | Call 0x1,0x2c
0150 BODY_0128:
0150 4800 |H | Short_Literal 0x0
0151 a5fa | | Store_Unchecked 0x2,-0x6
0152 4800 |H | Short_Literal 0x0
0153 e407 | | Load 0x2,0x7
0154 e220 | | Load 0x1,0x20
0155 01d5 | | Execute Vector,Field_Reference
0156 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0157 4801 |H | Short_Literal 0x1
0158 e407 | | Load 0x2,0x7
0159 e220 | | Load 0x1,0x20
015a 01d5 | | Execute Vector,Field_Reference
015b 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
015c e5fb | | Load 0x2,-0x5
015d e407 | | Load 0x2,0x7
015e e220 | | Load 0x1,0x20
015f 01d5 | | Execute Vector,Field_Reference
0160 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0161 4801 |H | Short_Literal 0x1
0162 e407 | | Load 0x2,0x7
0163 e220 | | Load 0x1,0x20
0164 01d5 | | Execute Vector,Field_Reference
0165 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0166 e5fc | | Load 0x2,-0x4
0167 e407 | | Load 0x2,0x7
0168 e220 | | Load 0x1,0x20
0169 01d5 | | Execute Vector,Field_Reference
016a 380a |8 | Execute Record,Field_Write,Field_Number 0xa
016b e407 | | Load 0x2,0x7
016c e220 | | Load 0x1,0x20
016d 01d5 | | Execute Vector,Field_Reference
016e 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
016f 6818 |h | Jump_Zero 0x188
0170 e407 | | Load 0x2,0x7
0171 e220 | | Load 0x1,0x20
0172 01d5 | | Execute Vector,Field_Reference
0173 00d8 | | Load_Top At_Offset_0
0174 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0175 e5ff | | Load 0x2,-0x1
0176 0092 0880 | | Action Push_String_Extended,0x880 ; " "
0178 01cc | | Execute Vector,Catenate
0179 e5fc | | Load 0x2,-0x4
017a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
017b e005 | | Load 0x0,0x5
017c 1b14 | | Execute Package,Field_Read,Field_Number 0x14
017d 011c | | Execute Any,Convert_Unchecked
017e 1c01 | | Execute_Immediate Run_Utility,0x1
017f 01cc | | Execute Vector,Catenate
0180 0092 0881 | | Action Push_String_Extended,0x881 ; "Session"
0182 01cc | | Execute Vector,Catenate
0183 e225 | % | Load 0x1,0x25
0184 180d | | Execute Package,Field_Execute,Field_Number 0xd
0185 00d9 | | Load_Top At_Offset_1
0186 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0187 00d1 | | Pop_Control Pop_Count_1
0188 e21d | | Load 0x1,0x1d
0189 6836 |h6 | Jump_Zero 0x1c0
018a e5f9 | | Load 0x2,-0x7
018b e409 | | Load 0x2,0x9
018c e5ff | | Load 0x2,-0x1
018d e5fe | | Load 0x2,-0x2
018e e008 | | Load 0x0,0x8
018f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0190 00d1 | | Pop_Control Pop_Count_1
0191 c5f9 | | Store 0x2,-0x7
0192 4802 |H | Short_Literal 0x2
0193 e5f9 | | Load 0x2,-0x7
0194 e003 | | Load 0x0,0x3
0195 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0196 7029 |p) | Jump_Nonzero 0x1c0
0197 e409 | | Load 0x2,0x9
0198 822d | - | Call 0x1,0x2d
0199 6819 |h | Jump_Zero 0x1b3
019a e010 | | Load 0x0,0x10
019b 180e | | Execute Package,Field_Execute,Field_Number 0xe
019c 4802 |H | Short_Literal 0x2
019d 0092 0882 | | Action Push_String_Extended,0x882 ; "Reusing cached TELNET connection to "
019f e5ff | | Load 0x2,-0x1
01a0 01cc | | Execute Vector,Catenate
01a1 e011 | | Load 0x0,0x11
01a2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01a3 e409 | | Load 0x2,0x9
01a4 e407 | | Load 0x2,0x7
01a5 e220 | | Load 0x1,0x20
01a6 01d5 | | Execute Vector,Field_Reference
01a7 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01a8 4948 |IH | Short_Literal 0x148
01a9 e407 | | Load 0x2,0x7
01aa e220 | | Load 0x1,0x20
01ab 01d5 | | Execute Vector,Field_Reference
01ac 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
01ad 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
01ae 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01af 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01b0 4801 |H | Short_Literal 0x1
01b1 a5fa | | Store_Unchecked 0x2,-0x6
01b2 4506 |E | Exit_Suprogram New_Top_Offset 0x6
01b3 e010 | | Load 0x0,0x10
01b4 180e | | Execute Package,Field_Execute,Field_Number 0xe
01b5 4802 |H | Short_Literal 0x2
01b6 0092 0883 | | Action Push_String_Extended,0x883 ; "Removing invalid connection"
01b8 e011 | | Load 0x0,0x11
01b9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01ba e5f9 | | Load 0x2,-0x7
01bb e409 | | Load 0x2,0x9
01bc e008 | | Load 0x0,0x8
01bd 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01be 00d1 | | Pop_Control Pop_Count_1
01bf c5f9 | | Store 0x2,-0x7
01c0 e010 | | Load 0x0,0x10
01c1 180e | | Execute Package,Field_Execute,Field_Number 0xe
01c2 4802 |H | Short_Literal 0x2
01c3 0092 0884 | | Action Push_String_Extended,0x884 ; "Allocating a telnet port"
01c5 e011 | | Load 0x0,0x11
01c6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01c7 e5f9 | | Load 0x2,-0x7
01c8 e21a | | Load 0x1,0x1a
01c9 e409 | | Load 0x2,0x9
01ca e5ff | | Load 0x2,-0x1
01cb 4804 |H | Short_Literal 0x4
01cc e229 | ) | Load 0x1,0x29
01cd 170d | | Execute Task,Entry_Call,Field_Number 0xd
01ce 00d1 | | Pop_Control Pop_Count_1
01cf c403 | | Store 0x2,0x3
01d0 c5f9 | | Store 0x2,-0x7
01d1 4802 |H | Short_Literal 0x2
01d2 e5f9 | | Load 0x2,-0x7
01d3 e003 | | Load 0x0,0x3
01d4 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01d5 701e |p | Jump_Nonzero 0x1f4
01d6 e010 | | Load 0x0,0x10
01d7 180e | | Execute Package,Field_Execute,Field_Number 0xe
01d8 4802 |H | Short_Literal 0x2
01d9 0092 0885 | | Action Push_String_Extended,0x885 ; "Acquiring TELNET connection to "
01db e5ff | | Load 0x2,-0x1
01dc 01cc | | Execute Vector,Catenate
01dd 0092 0886 | | Action Push_String_Extended,0x886 ; " via port "
01df 01cc | | Execute Vector,Catenate
01e0 e403 | | Load 0x2,0x3
01e1 00e0 | | Load_Encached Standard_Cache
01e2 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01e3 01cc | | Execute Vector,Catenate
01e4 e011 | | Load 0x0,0x11
01e5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01e6 e409 | | Load 0x2,0x9
01e7 e407 | | Load 0x2,0x7
01e8 e220 | | Load 0x1,0x20
01e9 01d5 | | Execute Vector,Field_Reference
01ea 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01eb 4948 |IH | Short_Literal 0x148
01ec e407 | | Load 0x2,0x7
01ed e220 | | Load 0x1,0x20
01ee 01d5 | | Execute Vector,Field_Reference
01ef 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
01f0 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
01f1 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01f2 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01f3 780a |x | Jump 0x1fe
01f4 e010 | | Load 0x0,0x10
01f5 180e | | Execute Package,Field_Execute,Field_Number 0xe
01f6 4807 |H | Short_Literal 0x7
01f7 0092 0887 | | Action Push_String_Extended,0x887 ; "Could not connect to "
01f9 e5ff | | Load 0x2,-0x1
01fa 01cc | | Execute Vector,Catenate
01fb e011 | | Load 0x0,0x11
01fc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01fd 4506 |E | Exit_Suprogram New_Top_Offset 0x6
01fe e407 | | Load 0x2,0x7
01ff e220 | | Load 0x1,0x20
0200 01d5 | | Execute Vector,Field_Reference
0201 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0202 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0203 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0204 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0205 e006 | | Load 0x0,0x6
0206 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0207 c404 | | Store 0x2,0x4
0208 e5fc | | Load 0x2,-0x4
0209 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
020a e004 | | Load 0x0,0x4
020b 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
020c 7006 |p | Jump_Nonzero 0x213
020d 4801 |H | Short_Literal 0x1
020e 4800 |H | Short_Literal 0x0
020f 4801 |H | Short_Literal 0x1
0210 e404 | | Load 0x2,0x4
0211 e017 | | Load 0x0,0x17
0212 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0213 4800 |H | Short_Literal 0x0
0214 e407 | | Load 0x2,0x7
0215 e220 | | Load 0x1,0x20
0216 01d5 | | Execute Vector,Field_Reference
0217 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0218 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0219 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
021a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
021b e006 | | Load 0x0,0x6
021c 1819 | | Execute Package,Field_Execute,Field_Number 0x19
021d 4801 |H | Short_Literal 0x1
021e 4807 |H | Short_Literal 0x7
021f e407 | | Load 0x2,0x7
0220 e220 | | Load 0x1,0x20
0221 01d5 | | Execute Vector,Field_Reference
0222 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0223 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0224 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0225 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0226 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0227 01d6 | | Execute Vector,Field_Write
0228 60c7 |` | Indirect_Literal Discrete,0x2f0,{0x00000000, 0x00008000}
0229 00ba | | Action Initiate_Delay
022a e407 | | Load 0x2,0x7
022b e220 | | Load 0x1,0x20
022c 01d5 | | Execute Vector,Field_Reference
022d 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
022e 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
022f e5fc | | Load 0x2,-0x4
0230 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0231 e004 | | Load 0x0,0x4
0232 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0233 e222 | " | Load 0x1,0x22
0234 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0235 00cf | | Action Mark_Auxiliary
0236 e407 | | Load 0x2,0x7
0237 e220 | | Load 0x1,0x20
0238 01d5 | | Execute Vector,Field_Reference
0239 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
023a 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
023b e224 | $ | Load 0x1,0x24
023c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
023d e224 | $ | Load 0x1,0x24
023e 181a | | Execute Package,Field_Execute,Field_Number 0x1a
023f 4606 |F | Jump_Case 0x7
0240 7814 |x | Jump 0x255 ; case 0x0
0241 781c |x | Jump 0x25e ; case 0x1
0242 7826 |x& | Jump 0x269 ; case 0x2
0243 7834 |x4 | Jump 0x278 ; case 0x3
0244 784a |xJ | Jump 0x28f ; case 0x4
0245 7835 |x5 | Jump 0x27b ; case 0x5
0246 7800 |x | Jump 0x247 ; case 0x6
0247 e407 | | Load 0x2,0x7
0248 e220 | | Load 0x1,0x20
0249 01d5 | | Execute Vector,Field_Reference
024a 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
024b 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
024c 480d |H | Short_Literal 0xd
024d e5fc | | Load 0x2,-0x4
024e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
024f e004 | | Load 0x0,0x4
0250 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0251 01cb | | Execute Vector,Append
0252 e222 | " | Load 0x1,0x22
0253 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0254 784d |xM | Jump 0x2a2
0255 e5f9 | | Load 0x2,-0x7
0256 4802 |H | Short_Literal 0x2
0257 0092 0888 | | Action Push_String_Extended,0x888 ; "Disconnected from "
0259 e5ff | | Load 0x2,-0x1
025a 01cc | | Execute Vector,Catenate
025b 8226 | & | Call 0x1,0x26
025c c5f9 | | Store 0x2,-0x7
025d 4506 |E | Exit_Suprogram New_Top_Offset 0x6
025e e407 | | Load 0x2,0x7
025f e220 | | Load 0x1,0x20
0260 01d5 | | Execute Vector,Field_Reference
0261 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0262 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0263 480d |H | Short_Literal 0xd
0264 00db | | Load_Top At_Offset_3
0265 01cb | | Execute Vector,Append
0266 e222 | " | Load 0x1,0x22
0267 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0268 7839 |x9 | Jump 0x2a2
0269 e407 | | Load 0x2,0x7
026a e220 | | Load 0x1,0x20
026b 01d5 | | Execute Vector,Field_Reference
026c 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
026d 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
026e 480d |H | Short_Literal 0xd
026f e5fd | | Load 0x2,-0x3
0270 01cb | | Execute Vector,Append
0271 e222 | " | Load 0x1,0x22
0272 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0273 4801 |H | Short_Literal 0x1
0274 a40b | | Store_Unchecked 0x2,0xb
0275 4801 |H | Short_Literal 0x1
0276 a406 | | Store_Unchecked 0x2,0x6
0277 782a |x* | Jump 0x2a2
0278 4801 |H | Short_Literal 0x1
0279 a405 | | Store_Unchecked 0x2,0x5
027a 7829 |x) | Jump 0x2a4
027b 4800 |H | Short_Literal 0x0
027c a406 | | Store_Unchecked 0x2,0x6
027d e40a | | Load 0x2,0xa
027e 0a01 | | Execute_Immediate Plus,0x1
027f c40a | | Store 0x2,0xa
0280 e40a | | Load 0x2,0xa
0281 0c04 | | Execute_Immediate Greater_Equal,0x4
0282 681f |h | Jump_Zero 0x2a2
0283 e5f9 | | Load 0x2,-0x7
0284 4802 |H | Short_Literal 0x2
0285 0092 0889 | | Action Push_String_Extended,0x889 ; "Unable to login to remote machine "
0287 e5ff | | Load 0x2,-0x1
0288 01cc | | Execute Vector,Catenate
0289 0092 088a | | Action Push_String_Extended,0x88a ; ". User Authorization Failure"
028b 01cc | | Execute Vector,Catenate
028c 8226 | & | Call 0x1,0x26
028d c5f9 | | Store 0x2,-0x7
028e 7815 |x | Jump 0x2a4
028f 00db | | Load_Top At_Offset_3
0290 6801 |h | Jump_Zero 0x292
0291 7812 |x | Jump 0x2a4
0292 e407 | | Load 0x2,0x7
0293 e220 | | Load 0x1,0x20
0294 01d5 | | Execute Vector,Field_Reference
0295 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0296 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0297 4801 |H | Short_Literal 0x1
0298 4801 |H | Short_Literal 0x1
0299 00e9 | | Load_Encached String_Cache
029a 035b | [ | Declare_Type Array,Constrained
029b 0337 | 7 | Declare_Variable Array
029c 480d |H | Short_Literal 0xd
029d 4801 |H | Short_Literal 0x1
029e 00da | | Load_Top At_Offset_2
029f 01d6 | | Execute Vector,Field_Write
02a0 e222 | " | Load 0x1,0x22
02a1 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
02a2 00c9 | | Action Pop_Auxiliary_Loop
02a3 7f92 | | Jump 0x236
02a4 00ce | | Action Pop_Auxiliary
02a5 e406 | | Load 0x2,0x6
02a6 681d |h | Jump_Zero 0x2c4
02a7 e407 | | Load 0x2,0x7
02a8 e220 | | Load 0x1,0x20
02a9 01d5 | | Execute Vector,Field_Reference
02aa 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
02ab 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
02ac e5fc | | Load 0x2,-0x4
02ad 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02ae e004 | | Load 0x0,0x4
02af 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
02b0 e222 | " | Load 0x1,0x22
02b1 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
02b2 e21d | | Load 0x1,0x1d
02b3 680f |h | Jump_Zero 0x2c3
02b4 e407 | | Load 0x2,0x7
02b5 e220 | | Load 0x1,0x20
02b6 01d5 | | Execute Vector,Field_Reference
02b7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02b8 e5f9 | | Load 0x2,-0x7
02b9 00d9 | | Load_Top At_Offset_1
02ba e5ff | | Load 0x2,-0x1
02bb e5fe | | Load 0x2,-0x2
02bc e008 | | Load 0x0,0x8
02bd 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02be 00d1 | | Pop_Control Pop_Count_1
02bf c5f9 | | Store 0x2,-0x7
02c0 00d1 | | Pop_Control Pop_Count_1
02c1 00d9 | | Load_Top At_Offset_1
02c2 c5f9 | | Store 0x2,-0x7
02c3 4506 |E | Exit_Suprogram New_Top_Offset 0x6
02c4 e5f9 | | Load 0x2,-0x7
02c5 4802 |H | Short_Literal 0x2
02c6 0092 088b | | Action Push_String_Extended,0x88b ; "Unable to login to remote machine. Unknown Failure"
02c8 8226 | & | Call 0x1,0x26
02c9 c5f9 | | Store 0x2,-0x7
02ca 4506 |E | Exit_Suprogram New_Top_Offset 0x6
02cb TRAP_0128:
02cb e01a | | Load 0x0,0x1a
02cc 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02cd 010f | | Execute Exception,Equal
02ce 6809 |h | Jump_Zero 0x2d8
02cf e5f9 | | Load 0x2,-0x7
02d0 4802 |H | Short_Literal 0x2
02d1 0092 088c | | Action Push_String_Extended,0x88c ; "Undefined Remote Machine Name = "
02d3 e5ff | | Load 0x2,-0x1
02d4 01cc | | Execute Vector,Catenate
02d5 8226 | & | Call 0x1,0x26
02d6 c5f9 | | Store 0x2,-0x7
02d7 4506 |E | Exit_Suprogram New_Top_Offset 0x6
02d8 e006 | | Load 0x0,0x6
02d9 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
02da 010f | | Execute Exception,Equal
02db 6807 |h | Jump_Zero 0x2e3
02dc e5f9 | | Load 0x2,-0x7
02dd 4802 |H | Short_Literal 0x2
02de 0092 088d | | Action Push_String_Extended,0x88d ; "No connection found while setting no echo using telnet_protocol.offer"
02e0 8226 | & | Call 0x1,0x26
02e1 c5f9 | | Store 0x2,-0x7
02e2 4506 |E | Exit_Suprogram New_Top_Offset 0x6
02e3 e5f9 | | Load 0x2,-0x7
02e4 4802 |H | Short_Literal 0x2
02e5 4800 |H | Short_Literal 0x0
02e6 4801 |H | Short_Literal 0x1
02e7 e01b | | Load 0x0,0x1b
02e8 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02e9 0092 088e | | Action Push_String_Extended,0x88e ; " caught in Open_Connection."
02eb 01cc | | Execute Vector,Catenate
02ec 8226 | & | Call 0x1,0x26
02ed c5f9 | | Store 0x2,-0x7
02ee 4506 |E | Exit_Suprogram New_Top_Offset 0x6
02ef 0000 | | .XXX[0x1]
02f0 0000 0000 | | .LITERAL {0x00000000, 0x00008000}
02f4 0000 0000 | | .BLANK 0000[0x4]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 0300 | | .CONST 0x0300 ; Address of begin
02f9 0332 | 2 | .CONST 0x0332 ; Address of exception handler
02fa 0002 | | .CONST 0x0002 ; Number of locals
02fb INIT_02f8:
02fb e018 | | Load 0x0,0x18
02fc 180e | | Execute Package,Field_Execute,Field_Number 0xe
02fd e019 | | Load 0x0,0x19
02fe 1b15 | | Execute Package,Field_Read,Field_Number 0x15
02ff 03f1 | | Declare_Variable Discrete,With_Value
0300 BODY_02f8:
0300 4800 |H | Short_Literal 0x0
0301 00d9 | | Load_Top At_Offset_1
0302 e220 | | Load 0x1,0x20
0303 01d5 | | Execute Vector,Field_Reference
0304 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0305 4801 |H | Short_Literal 0x1
0306 00d9 | | Load_Top At_Offset_1
0307 e220 | | Load 0x1,0x20
0308 01d5 | | Execute Vector,Field_Reference
0309 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
030a 4800 |H | Short_Literal 0x0
030b 00d9 | | Load_Top At_Offset_1
030c e220 | | Load 0x1,0x20
030d 01d5 | | Execute Vector,Field_Reference
030e 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
030f 00db | | Load_Top At_Offset_3
0310 00d9 | | Load_Top At_Offset_1
0311 e220 | | Load 0x1,0x20
0312 01d5 | | Execute Vector,Field_Reference
0313 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0314 4801 |H | Short_Literal 0x1
0315 00d9 | | Load_Top At_Offset_1
0316 e220 | | Load 0x1,0x20
0317 01d5 | | Execute Vector,Field_Reference
0318 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0319 e5fd | | Load 0x2,-0x3
031a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
031b 00d9 | | Load_Top At_Offset_1
031c e220 | | Load 0x1,0x20
031d 01d5 | | Execute Vector,Field_Reference
031e 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
031f e5fd | | Load 0x2,-0x3
0320 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0321 00d1 | | Pop_Control Pop_Count_1
0322 e5fd | | Load 0x2,-0x3
0323 822e | . | Call 0x1,0x2e
0324 00d1 | | Pop_Control Pop_Count_1
0325 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0326 088f e5fd | | .XXX[0xc]
0328 3c01 e002 |< |
032a 1b0d 011c | |
032c 1c01 01cc | |
032e 8226 e5fd | & |
0330 3802 4503 |8 E |
0332 TRAP_02f8:
0332 e222 | " | Load 0x1,0x22
0333 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
0334 010f | | Execute Exception,Equal
0335 680b |h | Jump_Zero 0x341
0336 e5fd | | Load 0x2,-0x3
0337 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0338 4802 |H | Short_Literal 0x2
0339 0092 0890 | | Action Push_String_Extended,0x890 ; "Command timed out"
033b 8226 | & | Call 0x1,0x26
033c e5fd | | Load 0x2,-0x3
033d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
033e e222 | " | Load 0x1,0x22
033f 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0340 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0341 0100 | | Execute Exception,Raise
0342 0000 0000 | | .BLANK 0000[0x6]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 0350 | P | .CONST 0x0350 ; Address of begin
0349 03a7 | | .CONST 0x03a7 ; Address of exception handler
034a 0002 | | .CONST 0x0002 ; Number of locals
034b INIT_0348:
034b e003 | | Load 0x0,0x3
034c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
034d 02c7 | | Declare_Variable Any
034e 00d8 | | Load_Top At_Offset_0
034f 1c00 | | Execute_Immediate Run_Utility,0x0
0350 BODY_0348:
0350 00db | | Load_Top At_Offset_3
0351 e220 | | Load 0x1,0x20
0352 01d5 | | Execute Vector,Field_Reference
0353 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0354 6851 |hQ | Jump_Zero 0x3a6
0355 4800 |H | Short_Literal 0x0
0356 e5ff | | Load 0x2,-0x1
0357 e220 | | Load 0x1,0x20
0358 01d5 | | Execute Vector,Field_Reference
0359 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
035a 4800 |H | Short_Literal 0x0
035b e5ff | | Load 0x2,-0x1
035c e220 | | Load 0x1,0x20
035d 01d5 | | Execute Vector,Field_Reference
035e 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
035f 4801 |H | Short_Literal 0x1
0360 e5ff | | Load 0x2,-0x1
0361 e220 | | Load 0x1,0x20
0362 01d5 | | Execute Vector,Field_Reference
0363 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0364 e21d | | Load 0x1,0x1d
0365 6839 |h9 | Jump_Zero 0x39f
0366 00db | | Load_Top At_Offset_3
0367 e220 | | Load 0x1,0x20
0368 01d5 | | Execute Vector,Field_Reference
0369 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
036a 00d9 | | Load_Top At_Offset_1
036b 00d9 | | Load_Top At_Offset_1
036c e008 | | Load 0x0,0x8
036d 180f | | Execute Package,Field_Execute,Field_Number 0xf
036e 00d1 | | Pop_Control Pop_Count_1
036f c402 | | Store 0x2,0x2
0370 00d1 | | Pop_Control Pop_Count_1
0371 4801 |H | Short_Literal 0x1
0372 00d9 | | Load_Top At_Offset_1
0373 e003 | | Load 0x0,0x3
0374 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0375 6828 |h( | Jump_Zero 0x39e
0376 e010 | | Load 0x0,0x10
0377 180e | | Execute Package,Field_Execute,Field_Number 0xe
0378 4801 |H | Short_Literal 0x1
0379 0092 0891 | | Action Push_String_Extended,0x891 ; "Connection is not in cache"
037b e011 | | Load 0x0,0x11
037c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
037d e010 | | Load 0x0,0x10
037e 180e | | Execute Package,Field_Execute,Field_Number 0xe
037f 4801 |H | Short_Literal 0x1
0380 0092 0892 | | Action Push_String_Extended,0x892 ; "Connection cache entry is "
0382 e5ff | | Load 0x2,-0x1
0383 e220 | | Load 0x1,0x20
0384 01d5 | | Execute Vector,Field_Reference
0385 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0386 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0387 00e0 | | Load_Encached Standard_Cache
0388 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0389 01cc | | Execute Vector,Catenate
038a e011 | | Load 0x0,0x11
038b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
038c e010 | | Load 0x0,0x10
038d 180e | | Execute Package,Field_Execute,Field_Number 0xe
038e 4801 |H | Short_Literal 0x1
038f 0092 0893 | | Action Push_String_Extended,0x893 ; "Destroying connection for job "
0391 e5ff | | Load 0x2,-0x1
0392 00e0 | | Load_Encached Standard_Cache
0393 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0394 01cc | | Execute Vector,Catenate
0395 e011 | | Load 0x0,0x11
0396 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0397 00db | | Load_Top At_Offset_3
0398 e220 | | Load 0x1,0x20
0399 01d5 | | Execute Vector,Field_Reference
039a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
039b 00d8 | | Load_Top At_Offset_0
039c 822f | / | Call 0x1,0x2f
039d 00d2 | | Pop_Control Pop_Count_2
039e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
039f 00db | | Load_Top At_Offset_3
03a0 e220 | | Load 0x1,0x20
03a1 01d5 | | Execute Vector,Field_Reference
03a2 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
03a3 00d8 | | Load_Top At_Offset_0
03a4 822f | / | Call 0x1,0x2f
03a5 00d2 | | Pop_Control Pop_Count_2
03a6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03a7 TRAP_0348:
03a7 0007 | | Action Break_Optional
03a8 e5ff | | Load 0x2,-0x1
03a9 e220 | | Load 0x1,0x20
03aa 01d5 | | Execute Vector,Field_Reference
03ab 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
03ac 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
03ad 00d8 | | Load_Top At_Offset_0
03ae e00b | | Load 0x0,0xb
03af 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
03b0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03b1 0000 0000 | | .BLANK 0000[0x7]
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03c0 | | .CONST 0x03c0 ; Address of begin
03b9 03cd | | .CONST 0x03cd ; Address of exception handler
03ba 0002 | | .CONST 0x0002 ; Number of locals
03bb INIT_03b8:
03bb e018 | | Load 0x0,0x18
03bc 180e | | Execute Package,Field_Execute,Field_Number 0xe
03bd e019 | | Load 0x0,0x19
03be 1b15 | | Execute Package,Field_Read,Field_Number 0x15
03bf 03f1 | | Declare_Variable Discrete,With_Value
03c0 BODY_03b8:
03c0 00d8 | | Load_Top At_Offset_0
03c1 e220 | | Load 0x1,0x20
03c2 01d5 | | Execute Vector,Field_Reference
03c3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03c4 7002 |p | Jump_Nonzero 0x3c7
03c5 4800 |H | Short_Literal 0x0
03c6 00ca | | Action Exit_Nullary_Function
03c7 00d8 | | Load_Top At_Offset_0
03c8 e220 | | Load 0x1,0x20
03c9 01d5 | | Execute Vector,Field_Reference
03ca 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
03cb 822d | - | Call 0x1,0x2d
03cc 00ca | | Action Exit_Nullary_Function
03cd TRAP_03b8:
03cd 0007 | | Action Break_Optional
03ce 4800 |H | Short_Literal 0x0
03cf 00ca | | Action Exit_Nullary_Function
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03df | | .CONST 0x03df ; Address of begin
03d1 0004 | | .CONST 0x0004 ; Address of exception handler
03d2 0004 | | .CONST 0x0004 ; Number of locals
03d3 INIT_03d0:
03d3 e003 | | Load 0x0,0x3
03d4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03d5 02c7 | | Declare_Variable Any
03d6 00d8 | | Load_Top At_Offset_0
03d7 1c00 | | Execute_Immediate Run_Utility,0x0
03d8 e008 | | Load 0x0,0x8
03d9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03da 0322 | " | Declare_Variable Record
03db 00d8 | | Load_Top At_Offset_0
03dc 1c00 | | Execute_Immediate Run_Utility,0x0
03dd 029f 06a3 | | Declare_Subprogram INIT_06a0,For_Call
03df BODY_03d0:
03df 00cf | | Action Mark_Auxiliary
03e0 7802 |x | Jump 0x3e3
03e1 8404 | | Call 0x2,0x4
03e2 00c9 | | Action Pop_Auxiliary_Loop
03e3 4801 |H | Short_Literal 0x1
03e4 e402 | | Load 0x2,0x2
03e5 e003 | | Load 0x0,0x3
03e6 1817 | | Execute Package,Field_Execute,Field_Number 0x17
03e7 6ff9 |o | Jump_Zero 0x3e1
03e8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03e9 0000 0000 | | .BLANK 0000[0x7]
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 03f3 | | .CONST 0x03f3 ; Address of begin
03f1 0004 | | .CONST 0x0004 ; Address of exception handler
03f2 0001 | | .CONST 0x0001 ; Number of locals
03f3 BODY_03f0:
03f3 INIT_03f0:
03f3 4607 |F | Jump_Case 0x8
03f4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
03f5 7806 |x | Jump 0x3fc ; case 0x1
03f6 7809 |x | Jump 0x400 ; case 0x2
03f7 780d |x | Jump 0x405 ; case 0x3
03f8 7810 |x | Jump 0x409 ; case 0x4
03f9 7811 |x | Jump 0x40b ; case 0x5
03fa 7812 |x | Jump 0x40d ; case 0x6
03fb 7815 |x | Jump 0x411 ; case 0x7
03fc 00da | | Load_Top At_Offset_2
03fd 0091 0877 | w| Action Push_String_Extended_Indexed,0x877 ; "DISC"
03ff 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0400 00db | | Load_Top At_Offset_3
0401 00db | | Load_Top At_Offset_3
0402 00e0 | | Load_Encached Standard_Cache
0403 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0404 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0405 00da | | Load_Top At_Offset_2
0406 00e0 | | Load_Encached Standard_Cache
0407 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0408 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0409 00db | | Load_Top At_Offset_3
040a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
040b 00db | | Load_Top At_Offset_3
040c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
040d e219 | | Load 0x1,0x19
040e 00dc | | Load_Top At_Offset_4
040f 0267 | g | Execute Discrete,Predecessor
0410 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0411 e219 | | Load 0x1,0x19
0412 00dc | | Load_Top At_Offset_4
0413 0268 | h | Execute Discrete,Successor
0414 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0415 0000 0000 | | .XXX[0x3]
0417 0000 | |
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 041b | | .CONST 0x041b ; Address of begin
0419 0004 | | .CONST 0x0004 ; Address of exception handler
041a 0001 | | .CONST 0x0001 ; Number of locals
041b BODY_0418:
041b INIT_0418:
041b 4608 |F | Jump_Case 0x9
041c 7808 |x | Jump 0x425 ; case 0x0
041d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
041e 7828 |x( | Jump 0x447 ; case 0x2
041f 7827 |x' | Jump 0x447 ; case 0x3
0420 7826 |x& | Jump 0x447 ; case 0x4
0421 7825 |x% | Jump 0x447 ; case 0x5
0422 7824 |x$ | Jump 0x447 ; case 0x6
0423 7823 |x# | Jump 0x447 ; case 0x7
0424 7822 |x" | Jump 0x447 ; case 0x8
0425 4800 |H | Short_Literal 0x0
0426 00db | | Load_Top At_Offset_3
0427 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0428 00da | | Load_Top At_Offset_2
0429 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
042a 0125 | % | Execute Any,Set_Constraint
042b 00da | | Load_Top At_Offset_2
042c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
042d 1c00 | | Execute_Immediate Run_Utility,0x0
042e 00da | | Load_Top At_Offset_2
042f 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0430 1c00 | | Execute_Immediate Run_Utility,0x0
0431 4800 |H | Short_Literal 0x0
0432 00db | | Load_Top At_Offset_3
0433 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0434 4801 |H | Short_Literal 0x1
0435 00db | | Load_Top At_Offset_3
0436 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0437 4800 |H | Short_Literal 0x0
0438 00db | | Load_Top At_Offset_3
0439 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
043a 4801 |H | Short_Literal 0x1
043b 00db | | Load_Top At_Offset_3
043c 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
043d 4800 |H | Short_Literal 0x0
043e 00db | | Load_Top At_Offset_3
043f 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0440 4801 |H | Short_Literal 0x1
0441 00db | | Load_Top At_Offset_3
0442 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0443 00da | | Load_Top At_Offset_2
0444 340a |4 | Execute Record,Field_Reference,Field_Number 0xa
0445 1c00 | | Execute_Immediate Run_Utility,0x0
0446 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0447 0869 | i | Execute_Immediate Raise,0x69
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 044b | K | .CONST 0x044b ; Address of begin
0449 0004 | | .CONST 0x0004 ; Address of exception handler
044a 0001 | | .CONST 0x0001 ; Number of locals
044b BODY_0448:
044b INIT_0448:
044b 00d1 | | Pop_Control Pop_Count_1
044c 00da | | Load_Top At_Offset_2
044d 01dc | | Execute Vector,Last
044e 00db | | Load_Top At_Offset_3
044f 01dd | | Execute Vector,First
0450 0263 | c | Execute Discrete,Above_Bound
0451 7006 |p | Jump_Nonzero 0x458
0452 00d8 | | Load_Top At_Offset_0
0453 e5ff | | Load 0x2,-0x1
0454 01d5 | | Execute Vector,Field_Reference
0455 1c00 | | Execute_Immediate Run_Utility,0x0
0456 0a01 | | Execute_Immediate Plus,0x1
0457 7ff8 | | Jump 0x450
0458 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0459 0000 0000 | | .BLANK 0000[0x7]
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0479 | y | .CONST 0x0479 ; Address of begin
0461 0004 | | .CONST 0x0004 ; Address of exception handler
0462 0007 | | .CONST 0x0007 ; Number of locals
0463 INIT_0460:
0463 e002 | | Load 0x0,0x2
0464 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0465 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0466 e018 | | Load 0x0,0x18
0467 180e | | Execute Package,Field_Execute,Field_Number 0xe
0468 e019 | | Load 0x0,0x19
0469 1b15 | | Execute Package,Field_Read,Field_Number 0x15
046a 03f1 | | Declare_Variable Discrete,With_Value
046b e215 | | Load 0x1,0x15
046c 0322 | " | Declare_Variable Record
046d 00d9 | | Load_Top At_Offset_1
046e e220 | | Load 0x1,0x20
046f 01d5 | | Execute Vector,Field_Reference
0470 340a |4 | Execute Record,Field_Reference,Field_Number 0xa
0471 00d9 | | Load_Top At_Offset_1
0472 017d | } | Execute Record,Structure_Write
0473 029f 06e3 | | Declare_Subprogram INIT_06e0,For_Call
0475 029f 06f3 | | Declare_Subprogram INIT_06f0,For_Call
0477 029f 070b | | Declare_Subprogram INIT_0708,For_Call
0479 BODY_0460:
0479 e5ff | | Load 0x2,-0x1
047a 01db | | Execute Vector,Length
047b 7002 |p | Jump_Nonzero 0x47e
047c 8407 | | Call 0x2,0x7
047d 4504 |E | Exit_Suprogram New_Top_Offset 0x4
047e e5ff | | Load 0x2,-0x1
047f 01dd | | Execute Vector,First
0480 e5ff | | Load 0x2,-0x1
0481 01d7 | | Execute Vector,Field_Read
0482 00d8 | | Load_Top At_Offset_0
0483 00e8 | | Load_Encached Character_Cache
0484 0260 | ` | Execute Discrete,In_Type
0485 7001 |p | Jump_Nonzero 0x487
0486 0801 | | Execute_Immediate Raise,0x1
0487 0f0d | | Execute_Immediate Equal,0xd
0488 6812 |h | Jump_Zero 0x49b
0489 e5ff | | Load 0x2,-0x1
048a 01db | | Execute Vector,Length
048b 0c02 | | Execute_Immediate Greater_Equal,0x2
048c 680d |h | Jump_Zero 0x49a
048d e5ff | | Load 0x2,-0x1
048e 01dd | | Execute Vector,First
048f 0a01 | | Execute_Immediate Plus,0x1
0490 e5ff | | Load 0x2,-0x1
0491 01d7 | | Execute Vector,Field_Read
0492 00d8 | | Load_Top At_Offset_0
0493 00e8 | | Load_Encached Character_Cache
0494 0260 | ` | Execute Discrete,In_Type
0495 7001 |p | Jump_Nonzero 0x497
0496 0801 | | Execute_Immediate Raise,0x1
0497 0f0a | | Execute_Immediate Equal,0xa
0498 6801 |h | Jump_Zero 0x49a
0499 8407 | | Call 0x2,0x7
049a 4504 |E | Exit_Suprogram New_Top_Offset 0x4
049b e5fd | | Load 0x2,-0x3
049c 683d |h= | Jump_Zero 0x4da
049d e5ff | | Load 0x2,-0x1
049e e00b | | Load 0x0,0xb
049f 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
04a0 8406 | | Call 0x2,0x6
04a1 e403 | | Load 0x2,0x3
04a2 e220 | | Load 0x1,0x20
04a3 01d5 | | Execute Vector,Field_Reference
04a4 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
04a5 6833 |h3 | Jump_Zero 0x4d9
04a6 00db | | Load_Top At_Offset_3
04a7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04a8 e404 | | Load 0x2,0x4
04a9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04aa e403 | | Load 0x2,0x3
04ab e220 | | Load 0x1,0x20
04ac 01d5 | | Execute Vector,Field_Reference
04ad 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
04ae e5ff | | Load 0x2,-0x1
04af e00b | | Load 0x0,0xb
04b0 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
04b1 e002 | | Load 0x0,0x2
04b2 1819 | | Execute Package,Field_Execute,Field_Number 0x19
04b3 a402 | | Store_Unchecked 0x2,0x2
04b4 e402 | | Load 0x2,0x2
04b5 4603 |F | Jump_Case 0x4
04b6 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x0
04b7 7815 |x | Jump 0x4cd ; case 0x1
04b8 7801 |x | Jump 0x4ba ; case 0x2
04b9 7800 |x | Jump 0x4ba ; case 0x3
04ba 4801 |H | Short_Literal 0x1
04bb e403 | | Load 0x2,0x3
04bc e220 | | Load 0x1,0x20
04bd 01d5 | | Execute Vector,Field_Reference
04be 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
04bf e5ff | | Load 0x2,-0x1
04c0 8405 | | Call 0x2,0x5
04c1 e402 | | Load 0x2,0x2
04c2 822a | * | Call 0x1,0x2a
04c3 e403 | | Load 0x2,0x3
04c4 e220 | | Load 0x1,0x20
04c5 01d5 | | Execute Vector,Field_Reference
04c6 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
04c7 4800 |H | Short_Literal 0x0
04c8 e403 | | Load 0x2,0x3
04c9 e220 | | Load 0x1,0x20
04ca 01d5 | | Execute Vector,Field_Reference
04cb 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
04cc 4504 |E | Exit_Suprogram New_Top_Offset 0x4
04cd 4801 |H | Short_Literal 0x1
04ce e403 | | Load 0x2,0x3
04cf e220 | | Load 0x1,0x20
04d0 01d5 | | Execute Vector,Field_Reference
04d1 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
04d2 e5ff | | Load 0x2,-0x1
04d3 8405 | | Call 0x2,0x5
04d4 4801 |H | Short_Literal 0x1
04d5 e403 | | Load 0x2,0x3
04d6 e220 | | Load 0x1,0x20
04d7 01d5 | | Execute Vector,Field_Reference
04d8 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
04d9 4504 |E | Exit_Suprogram New_Top_Offset 0x4
04da e5fd | | Load 0x2,-0x3
04db 7008 |p | Jump_Nonzero 0x4e4
04dc e5fe | | Load 0x2,-0x2
04dd 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04de 6805 |h | Jump_Zero 0x4e4
04df e5ff | | Load 0x2,-0x1
04e0 e00b | | Load 0x0,0xb
04e1 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
04e2 8406 | | Call 0x2,0x6
04e3 8407 | | Call 0x2,0x7
04e4 4504 |E | Exit_Suprogram New_Top_Offset 0x4
04e5 0000 0000 | | .XXX[0x3]
04e7 0000 | |
04e8 ; --------------------------------------------------------------------------------------
04e8 ; SUBPROGRAM
04e8 ; --------------------------------------------------------------------------------------
04e8 04f9 | | .CONST 0x04f9 ; Address of begin
04e9 0004 | | .CONST 0x0004 ; Address of exception handler
04ea 0003 | | .CONST 0x0003 ; Number of locals
04eb INIT_04e8:
04eb e018 | | Load 0x0,0x18
04ec 180e | | Execute Package,Field_Execute,Field_Number 0xe
04ed e019 | | Load 0x0,0x19
04ee 1b15 | | Execute Package,Field_Read,Field_Number 0x15
04ef 03f1 | | Declare_Variable Discrete,With_Value
04f0 e004 | | Load 0x0,0x4
04f1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04f2 02c7 | | Declare_Variable Any
04f3 00d9 | | Load_Top At_Offset_1
04f4 e220 | | Load 0x1,0x20
04f5 01d5 | | Execute Vector,Field_Reference
04f6 340a |4 | Execute Record,Field_Reference,Field_Number 0xa
04f7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04f8 a403 | | Store_Unchecked 0x2,0x3
04f9 BODY_04e8:
04f9 e5ff | | Load 0x2,-0x1
04fa 4606 |F | Jump_Case 0x7
04fb 7812 |x | Jump 0x50e ; case 0x0
04fc 7814 |x | Jump 0x511 ; case 0x1
04fd 781c |x | Jump 0x51a ; case 0x2
04fe 7824 |x$ | Jump 0x523 ; case 0x3
04ff 782c |x, | Jump 0x52c ; case 0x4
0500 782f |x/ | Jump 0x530 ; case 0x5
0501 7800 |x | Jump 0x502 ; case 0x6
0502 603d |`= | Indirect_Literal Discrete,0x540,{0x00000000, 0x00004000}
0503 e222 | " | Load 0x1,0x22
0504 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0505 00da | | Load_Top At_Offset_2
0506 e220 | | Load 0x1,0x20
0507 01d5 | | Execute Vector,Field_Reference
0508 340a |4 | Execute Record,Field_Reference,Field_Number 0xa
0509 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
050a 822b | + | Call 0x1,0x2b
050b e222 | " | Load 0x1,0x22
050c 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
050d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
050e e222 | " | Load 0x1,0x22
050f 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0510 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0511 602e |`. | Indirect_Literal Discrete,0x540,{0x00000000, 0x00004000}
0512 e222 | " | Load 0x1,0x22
0513 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0514 00d9 | | Load_Top At_Offset_1
0515 e004 | | Load 0x0,0x4
0516 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0517 e222 | " | Load 0x1,0x22
0518 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0519 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
051a 6025 |`% | Indirect_Literal Discrete,0x540,{0x00000000, 0x00004000}
051b e222 | " | Load 0x1,0x22
051c 1820 | | Execute Package,Field_Execute,Field_Number 0x20
051d 00d9 | | Load_Top At_Offset_1
051e e004 | | Load 0x0,0x4
051f 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0520 e222 | " | Load 0x1,0x22
0521 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0522 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0523 601c |` | Indirect_Literal Discrete,0x540,{0x00000000, 0x00004000}
0524 e222 | " | Load 0x1,0x22
0525 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0526 00d9 | | Load_Top At_Offset_1
0527 e004 | | Load 0x0,0x4
0528 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0529 e222 | " | Load 0x1,0x22
052a 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
052b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
052c 600f |` | Indirect_Literal Discrete,0x53c,{0x00000000, 0x00014000}
052d e222 | " | Load 0x1,0x22
052e 1820 | | Execute Package,Field_Execute,Field_Number 0x20
052f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0530 600f |` | Indirect_Literal Discrete,0x540,{0x00000000, 0x00004000}
0531 e222 | " | Load 0x1,0x22
0532 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0533 00d9 | | Load_Top At_Offset_1
0534 e004 | | Load 0x0,0x4
0535 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0536 e222 | " | Load 0x1,0x22
0537 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0538 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0539 0000 0000 | | .XXX[0x3]
053b 0000 | |
053c 0000 0000 | | .LITERAL {0x00000000, 0x00014000}
0540 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0544 0000 0000 | | .BLANK 0000[0x4]
0548 ; --------------------------------------------------------------------------------------
0548 ; SUBPROGRAM
0548 ; --------------------------------------------------------------------------------------
0548 054b | K | .CONST 0x054b ; Address of begin
0549 0004 | | .CONST 0x0004 ; Address of exception handler
054a 0001 | | .CONST 0x0001 ; Number of locals
054b BODY_0548:
054b INIT_0548:
054b e5fd | | Load 0x2,-0x3
054c 00db | | Load_Top At_Offset_3
054d e5fe | | Load 0x2,-0x2
054e 00ea | | Load_Encached Null_String_Cache
054f e003 | | Load 0x0,0x3
0550 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0551 e003 | | Load 0x0,0x3
0552 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0553 c5fd | | Store 0x2,-0x3
0554 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0555 0000 0000 | | .XXX[0x3]
0557 0000 | |
0558 ; --------------------------------------------------------------------------------------
0558 ; SUBPROGRAM
0558 ; --------------------------------------------------------------------------------------
0558 055b | [ | .CONST 0x055b ; Address of begin
0559 0568 | h | .CONST 0x0568 ; Address of exception handler
055a 0001 | | .CONST 0x0001 ; Number of locals
055b BODY_0558:
055b INIT_0558:
055b 00da | | Load_Top At_Offset_2
055c 680a |h | Jump_Zero 0x567
055d 00db | | Load_Top At_Offset_3
055e 4802 |H | Short_Literal 0x2
055f 0092 0894 | | Action Push_String_Extended,0x894 ; "Transport Error = "
0561 e5ff | | Load 0x2,-0x1
0562 e013 | | Load 0x0,0x13
0563 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0564 01cc | | Execute Vector,Catenate
0565 8226 | & | Call 0x1,0x26
0566 c5fe | | Store 0x2,-0x2
0567 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0568 TRAP_0558:
0568 010e | | Execute Exception,Is_Constraint_Error
0569 680b |h | Jump_Zero 0x575
056a e5fe | | Load 0x2,-0x2
056b 4802 |H | Short_Literal 0x2
056c 0092 0895 | | Action Push_String_Extended,0x895 ; "Unknown Transport Status = "
056e e5ff | | Load 0x2,-0x1
056f 00e0 | | Load_Encached Standard_Cache
0570 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0571 01cc | | Execute Vector,Catenate
0572 8226 | & | Call 0x1,0x26
0573 c5fe | | Store 0x2,-0x2
0574 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0575 0100 | | Execute Exception,Raise
0576 0000 0000 | | .XXX[0x2]
0578 ; --------------------------------------------------------------------------------------
0578 ; SUBPROGRAM
0578 ; --------------------------------------------------------------------------------------
0578 059a | | .CONST 0x059a ; Address of begin
0579 0004 | | .CONST 0x0004 ; Address of exception handler
057a 0003 | | .CONST 0x0003 ; Number of locals
057b INIT_0578:
057b e002 | | Load 0x0,0x2
057c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
057d 0266 | f | Execute Discrete,Bounds
057e e003 | | Load 0x0,0x3
057f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0580 02a0 | | Declare_Subprogram Null_Subprogram
0581 4801 |H | Short_Literal 0x1
0582 035d | ] | Declare_Type Array,Defined
0583 00d8 | | Load_Top At_Offset_0
0584 0337 | 7 | Declare_Variable Array
0585 00d8 | | Load_Top At_Offset_0
0586 0335 | 5 | Declare_Variable Array,Duplicate
0587 00cd | | Action Spare6_Action
0588 4800 |H | Short_Literal 0x0
0589 4800 |H | Short_Literal 0x0
058a 00da | | Load_Top At_Offset_2
058b 01d6 | | Execute Vector,Field_Write
058c 4801 |H | Short_Literal 0x1
058d 4801 |H | Short_Literal 0x1
058e 00da | | Load_Top At_Offset_2
058f 01d6 | | Execute Vector,Field_Write
0590 4802 |H | Short_Literal 0x2
0591 4802 |H | Short_Literal 0x2
0592 00da | | Load_Top At_Offset_2
0593 01d6 | | Execute Vector,Field_Write
0594 4803 |H | Short_Literal 0x3
0595 4803 |H | Short_Literal 0x3
0596 00da | | Load_Top At_Offset_2
0597 01d6 | | Execute Vector,Field_Write
0598 00d9 | | Load_Top At_Offset_1
0599 01d4 | | Execute Vector,Structure_Write
059a BODY_0578:
059a e5ff | | Load 0x2,-0x1
059b 00d9 | | Load_Top At_Offset_1
059c 01d7 | | Execute Vector,Field_Read
059d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
059e 0000 0000 | | .XXX[0x2]
05a0 ; --------------------------------------------------------------------------------------
05a0 ; SUBPROGRAM
05a0 ; --------------------------------------------------------------------------------------
05a0 05a3 | | .CONST 0x05a3 ; Address of begin
05a1 0004 | | .CONST 0x0004 ; Address of exception handler
05a2 0001 | | .CONST 0x0001 ; Number of locals
05a3 BODY_05a0:
05a3 INIT_05a0:
05a3 00da | | Load_Top At_Offset_2
05a4 0f04 | | Execute_Immediate Equal,0x4
05a5 6803 |h | Jump_Zero 0x5a9
05a6 0092 0896 | | Action Push_String_Extended,0x896 ; "TERMINAL IDENTIFICATION NUMBER\x0d\x0a\x0d\x0a"
05a8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05a9 00ea | | Load_Encached Null_String_Cache
05aa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05ab 0000 0000 | | .BLANK 0000[0x5]
05b0 ; --------------------------------------------------------------------------------------
05b0 ; SUBPROGRAM
05b0 ; --------------------------------------------------------------------------------------
05b0 05b3 | | .CONST 0x05b3 ; Address of begin
05b1 0004 | | .CONST 0x0004 ; Address of exception handler
05b2 0001 | | .CONST 0x0001 ; Number of locals
05b3 BODY_05b0:
05b3 INIT_05b0:
05b3 00db | | Load_Top At_Offset_3
05b4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
05b5 0f04 | | Execute_Immediate Equal,0x4
05b6 681a |h | Jump_Zero 0x5d1
05b7 00da | | Load_Top At_Offset_2
05b8 01db | | Execute Vector,Length
05b9 0c02 | | Execute_Immediate Greater_Equal,0x2
05ba 6816 |h | Jump_Zero 0x5d1
05bb 00da | | Load_Top At_Offset_2
05bc 01dc | | Execute Vector,Last
05bd 00db | | Load_Top At_Offset_3
05be 01d7 | | Execute Vector,Field_Read
05bf 0f30 | 0 | Execute_Immediate Equal,0x30
05c0 6810 |h | Jump_Zero 0x5d1
05c1 00da | | Load_Top At_Offset_2
05c2 01dd | | Execute Vector,First
05c3 00db | | Load_Top At_Offset_3
05c4 01dc | | Execute Vector,Last
05c5 0aff | | Execute_Immediate Plus,-0x1
05c6 00d8 | | Load_Top At_Offset_0
05c7 00e2 | | Load_Encached Integer_Cache
05c8 0260 | ` | Execute Discrete,In_Type
05c9 7001 |p | Jump_Nonzero 0x5cb
05ca 0801 | | Execute_Immediate Raise,0x1
05cb e5ff | | Load 0x2,-0x1
05cc 01cf | | Execute Vector,Slice_Read
05cd 0092 0897 | | Action Push_String_Extended,0x897 ; "1"
05cf 01cc | | Execute Vector,Catenate
05d0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05d1 00da | | Load_Top At_Offset_2
05d2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05d3 0000 0000 | | .BLANK 0000[0x5]
05d8 ; --------------------------------------------------------------------------------------
05d8 ; SUBPROGRAM
05d8 ; --------------------------------------------------------------------------------------
05d8 05db | | .CONST 0x05db ; Address of begin
05d9 05e2 | | .CONST 0x05e2 ; Address of exception handler
05da 0001 | | .CONST 0x0001 ; Number of locals
05db BODY_05d8:
05db INIT_05d8:
05db 00da | | Load_Top At_Offset_2
05dc 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
05dd 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
05de 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05df e006 | | Load 0x0,0x6
05e0 1816 | | Execute Package,Field_Execute,Field_Number 0x16
05e1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05e2 TRAP_05d8:
05e2 0007 | | Action Break_Optional
05e3 4800 |H | Short_Literal 0x0
05e4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05e5 0000 0000 | | .XXX[0x3]
05e7 0000 | |
05e8 ; --------------------------------------------------------------------------------------
05e8 ; SUBPROGRAM
05e8 ; --------------------------------------------------------------------------------------
05e8 05f2 | | .CONST 0x05f2 ; Address of begin
05e9 0004 | | .CONST 0x0004 ; Address of exception handler
05ea 0003 | | .CONST 0x0003 ; Number of locals
05eb INIT_05e8:
05eb e018 | | Load 0x0,0x18
05ec 180e | | Execute Package,Field_Execute,Field_Number 0xe
05ed e019 | | Load 0x0,0x19
05ee 1b15 | | Execute Package,Field_Read,Field_Number 0x15
05ef 03f1 | | Declare_Variable Discrete,With_Value
05f0 00e2 | | Load_Encached Integer_Cache
05f1 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
05f2 BODY_05e8:
05f2 00d9 | | Load_Top At_Offset_1
05f3 e220 | | Load 0x1,0x20
05f4 01d5 | | Execute Vector,Field_Reference
05f5 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
05f6 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
05f7 480d |H | Short_Literal 0xd
05f8 e5ff | | Load 0x2,-0x1
05f9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
05fa e001 | | Load 0x0,0x1
05fb 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05fc 01cb | | Execute Vector,Append
05fd e222 | " | Load 0x1,0x22
05fe 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
05ff 4801 |H | Short_Literal 0x1
0600 00da | | Load_Top At_Offset_2
0601 e220 | | Load 0x1,0x20
0602 01d5 | | Execute Vector,Field_Reference
0603 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0604 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0605 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0606 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0607 605c |`\ | Indirect_Literal Discrete,0x664,{0x00000000, 0x1c200000}
0608 00da | | Load_Top At_Offset_2
0609 e220 | | Load 0x1,0x20
060a 01d5 | | Execute Vector,Field_Reference
060b 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
060c 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
060d 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
060e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
060f 00cf | | Action Mark_Auxiliary
0610 00da | | Load_Top At_Offset_2
0611 e220 | | Load 0x1,0x20
0612 01d5 | | Execute Vector,Field_Reference
0613 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0614 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0615 4801 |H | Short_Literal 0x1
0616 4802 |H | Short_Literal 0x2
0617 e224 | $ | Load 0x1,0x24
0618 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0619 0334 | 4 | Declare_Variable Array,With_Constraint
061a 4803 |H | Short_Literal 0x3
061b 4801 |H | Short_Literal 0x1
061c 00da | | Load_Top At_Offset_2
061d 01d6 | | Execute Vector,Field_Write
061e 4804 |H | Short_Literal 0x4
061f 4802 |H | Short_Literal 0x2
0620 00da | | Load_Top At_Offset_2
0621 01d6 | | Execute Vector,Field_Write
0622 e224 | $ | Load 0x1,0x24
0623 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0624 0f03 | | Execute_Immediate Equal,0x3
0625 7012 |p | Jump_Nonzero 0x638
0626 00d9 | | Load_Top At_Offset_1
0627 0a01 | | Execute_Immediate Plus,0x1
0628 005a | Z | Store_Top Discrete,At_Offset_2
0629 00d9 | | Load_Top At_Offset_1
062a 0c97 | | Execute_Immediate Greater_Equal,-0x69
062b 682b |h+ | Jump_Zero 0x657
062c 4800 |H | Short_Literal 0x0
062d 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
062e 00da | | Load_Top At_Offset_2
062f e220 | | Load 0x1,0x20
0630 01d5 | | Execute Vector,Field_Reference
0631 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0632 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0633 0092 0898 | | Action Push_String_Extended,0x898 ; "\x0d\x0d"
0635 e222 | " | Load 0x1,0x22
0636 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0637 781f |x | Jump 0x657
0638 00da | | Load_Top At_Offset_2
0639 e220 | | Load 0x1,0x20
063a 01d5 | | Execute Vector,Field_Reference
063b 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
063c 6819 |h | Jump_Zero 0x656
063d e5ff | | Load 0x2,-0x1
063e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
063f 00db | | Load_Top At_Offset_3
0640 e220 | | Load 0x1,0x20
0641 01d5 | | Execute Vector,Field_Reference
0642 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0643 4801 |H | Short_Literal 0x1
0644 e402 | | Load 0x2,0x2
0645 e220 | | Load 0x1,0x20
0646 01d5 | | Execute Vector,Field_Reference
0647 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0648 0aff | | Execute_Immediate Plus,-0x1
0649 e402 | | Load 0x2,0x2
064a e220 | | Load 0x1,0x20
064b 01d5 | | Execute Vector,Field_Reference
064c 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
064d 01cf | | Execute Vector,Slice_Read
064e 8226 | & | Call 0x1,0x26
064f e5ff | | Load 0x2,-0x1
0650 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0651 4800 |H | Short_Literal 0x0
0652 00db | | Load_Top At_Offset_3
0653 e220 | | Load 0x1,0x20
0654 01d5 | | Execute Vector,Field_Reference
0655 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0656 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0657 4800 |H | Short_Literal 0x0
0658 00db | | Load_Top At_Offset_3
0659 e220 | | Load 0x1,0x20
065a 01d5 | | Execute Vector,Field_Reference
065b 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
065c 4801 |H | Short_Literal 0x1
065d 00db | | Load_Top At_Offset_3
065e e220 | | Load 0x1,0x20
065f 01d5 | | Execute Vector,Field_Reference
0660 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0661 00c9 | | Action Pop_Auxiliary_Loop
0662 7fad | | Jump 0x610
0663 0000 | | .XXX[0x1]
0664 0000 0000 | | .LITERAL {0x00000000, 0x1c200000}
0668 ; --------------------------------------------------------------------------------------
0668 ; SUBPROGRAM
0668 ; --------------------------------------------------------------------------------------
0668 066b | k | .CONST 0x066b ; Address of begin
0669 0004 | | .CONST 0x0004 ; Address of exception handler
066a 0001 | | .CONST 0x0001 ; Number of locals
066b BODY_0668:
066b INIT_0668:
066b e010 | | Load 0x0,0x10
066c 180e | | Execute Package,Field_Execute,Field_Number 0xe
066d 4801 |H | Short_Literal 0x1
066e 0092 0899 | | Action Push_String_Extended,0x899 ; "In Destroy_Connection"
0670 e011 | | Load 0x0,0x11
0671 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0672 00da | | Load_Top At_Offset_2
0673 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0674 0092 089a | | Action Push_String_Extended,0x89a ; "logout"
0676 e222 | " | Load 0x1,0x22
0677 1b41 | A | Execute Package,Field_Read,Field_Number 0x41
0678 01cc | | Execute Vector,Catenate
0679 e222 | " | Load 0x1,0x22
067a 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
067b 00da | | Load_Top At_Offset_2
067c 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
067d e222 | " | Load 0x1,0x22
067e 181f | | Execute Package,Field_Execute,Field_Number 0x1f
067f e222 | " | Load 0x1,0x22
0680 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0681 00da | | Load_Top At_Offset_2
0682 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0683 e00b | | Load 0x0,0xb
0684 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0685 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0686 0000 0000 | | .XXX[0x2]
0688 ; --------------------------------------------------------------------------------------
0688 ; SUBPROGRAM
0688 ; --------------------------------------------------------------------------------------
0688 0690 | | .CONST 0x0690 ; Address of begin
0689 0004 | | .CONST 0x0004 ; Address of exception handler
068a 0002 | | .CONST 0x0002 ; Number of locals
068b INIT_0688:
068b e018 | | Load 0x0,0x18
068c 180e | | Execute Package,Field_Execute,Field_Number 0xe
068d e019 | | Load 0x0,0x19
068e 1b15 | | Execute Package,Field_Read,Field_Number 0x15
068f 03f1 | | Declare_Variable Discrete,With_Value
0690 BODY_0688:
0690 00d8 | | Load_Top At_Offset_0
0691 e220 | | Load 0x1,0x20
0692 01d5 | | Execute Vector,Field_Reference
0693 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0694 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0695 e5ff | | Load 0x2,-0x1
0696 e222 | " | Load 0x1,0x22
0697 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0698 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0699 0000 0000 | | .BLANK 0000[0x7]
06a0 ; --------------------------------------------------------------------------------------
06a0 ; SUBPROGRAM
06a0 ; --------------------------------------------------------------------------------------
06a0 06a3 | | .CONST 0x06a3 ; Address of begin
06a1 06c7 | | .CONST 0x06c7 ; Address of exception handler
06a2 0001 | | .CONST 0x0001 ; Number of locals
06a3 BODY_06a0:
06a3 INIT_06a0:
06a3 e010 | | Load 0x0,0x10
06a4 180e | | Execute Package,Field_Execute,Field_Number 0xe
06a5 4801 |H | Short_Literal 0x1
06a6 0092 089b | | Action Push_String_Extended,0x89b ; "Allocating unused connection"
06a8 e011 | | Load 0x0,0x11
06a9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06aa e402 | | Load 0x2,0x2
06ab e403 | | Load 0x2,0x3
06ac e5ff | | Load 0x2,-0x1
06ad e008 | | Load 0x0,0x8
06ae 1812 | | Execute Package,Field_Execute,Field_Number 0x12
06af 00d1 | | Pop_Control Pop_Count_1
06b0 c402 | | Store 0x2,0x2
06b1 4801 |H | Short_Literal 0x1
06b2 e402 | | Load 0x2,0x2
06b3 e003 | | Load 0x0,0x3
06b4 1817 | | Execute Package,Field_Execute,Field_Number 0x17
06b5 7010 |p | Jump_Nonzero 0x6c6
06b6 e010 | | Load 0x0,0x10
06b7 180e | | Execute Package,Field_Execute,Field_Number 0xe
06b8 4801 |H | Short_Literal 0x1
06b9 0092 089c | | Action Push_String_Extended,0x89c ; "Removing connection"
06bb e011 | | Load 0x0,0x11
06bc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06bd e5fe | | Load 0x2,-0x2
06be e403 | | Load 0x2,0x3
06bf e008 | | Load 0x0,0x8
06c0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
06c1 00d1 | | Pop_Control Pop_Count_1
06c2 c5fe | | Store 0x2,-0x2
06c3 e403 | | Load 0x2,0x3
06c4 822f | / | Call 0x1,0x2f
06c5 00d1 | | Pop_Control Pop_Count_1
06c6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06c7 TRAP_06a0:
06c7 0007 | | Action Break_Optional
06c8 e010 | | Load 0x0,0x10
06c9 180e | | Execute Package,Field_Execute,Field_Number 0xe
06ca 4807 |H | Short_Literal 0x7
06cb 0092 089d | | Action Push_String_Extended,0x89d ; "Exception raised in Release_unused_connections"
06cd e011 | | Load 0x0,0x11
06ce 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06cf e5fe | | Load 0x2,-0x2
06d0 0092 089e | | Action Push_String_Extended,0x89e ; "Exception raised in Release_unused_connection"
06d2 4802 |H | Short_Literal 0x2
06d3 00ea | | Load_Encached Null_String_Cache
06d4 e003 | | Load 0x0,0x3
06d5 181c | | Execute Package,Field_Execute,Field_Number 0x1c
06d6 e003 | | Load 0x0,0x3
06d7 181b | | Execute Package,Field_Execute,Field_Number 0x1b
06d8 c5fe | | Store 0x2,-0x2
06d9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06da 0000 0000 | | .BLANK 0000[0x6]
06e0 ; --------------------------------------------------------------------------------------
06e0 ; SUBPROGRAM
06e0 ; --------------------------------------------------------------------------------------
06e0 06e5 | | .CONST 0x06e5 ; Address of begin
06e1 0004 | | .CONST 0x0004 ; Address of exception handler
06e2 0002 | | .CONST 0x0002 ; Number of locals
06e3 INIT_06e0:
06e3 029f 0723 | #| Declare_Subprogram INIT_0720,For_Call
06e5 BODY_06e0:
06e5 e403 | | Load 0x2,0x3
06e6 e220 | | Load 0x1,0x20
06e7 01d5 | | Execute Vector,Field_Reference
06e8 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
06e9 6801 |h | Jump_Zero 0x6eb
06ea 8602 | | Call 0x3,0x2
06eb 4502 |E | Exit_Suprogram New_Top_Offset 0x2
06ec 0000 0000 | | .BLANK 0000[0x4]
06f0 ; --------------------------------------------------------------------------------------
06f0 ; SUBPROGRAM
06f0 ; --------------------------------------------------------------------------------------
06f0 06f3 | | .CONST 0x06f3 ; Address of begin
06f1 0004 | | .CONST 0x0004 ; Address of exception handler
06f2 0001 | | .CONST 0x0001 ; Number of locals
06f3 BODY_06f0:
06f3 INIT_06f0:
06f3 e403 | | Load 0x2,0x3
06f4 e220 | | Load 0x1,0x20
06f5 01d5 | | Execute Vector,Field_Reference
06f6 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
06f7 6809 |h | Jump_Zero 0x701
06f8 e403 | | Load 0x2,0x3
06f9 e220 | | Load 0x1,0x20
06fa 01d5 | | Execute Vector,Field_Reference
06fb 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
06fc 4800 |H | Short_Literal 0x0
06fd e7ff | | Load 0x3,-0x1
06fe e225 | % | Load 0x1,0x25
06ff 180e | | Execute Package,Field_Execute,Field_Number 0xe
0700 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0701 e010 | | Load 0x0,0x10
0702 180e | | Execute Package,Field_Execute,Field_Number 0xe
0703 4801 |H | Short_Literal 0x1
0704 e7ff | | Load 0x3,-0x1
0705 e011 | | Load 0x0,0x11
0706 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0707 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0708 ; --------------------------------------------------------------------------------------
0708 ; SUBPROGRAM
0708 ; --------------------------------------------------------------------------------------
0708 070b | | .CONST 0x070b ; Address of begin
0709 0004 | | .CONST 0x0004 ; Address of exception handler
070a 0001 | | .CONST 0x0001 ; Number of locals
070b BODY_0708:
070b INIT_0708:
070b e403 | | Load 0x2,0x3
070c e220 | | Load 0x1,0x20
070d 01d5 | | Execute Vector,Field_Reference
070e 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
070f 6808 |h | Jump_Zero 0x718
0710 e403 | | Load 0x2,0x3
0711 e220 | | Load 0x1,0x20
0712 01d5 | | Execute Vector,Field_Reference
0713 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0714 4801 |H | Short_Literal 0x1
0715 00ea | | Load_Encached Null_String_Cache
0716 e225 | % | Load 0x1,0x25
0717 180e | | Execute Package,Field_Execute,Field_Number 0xe
0718 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0719 0000 0000 | | .BLANK 0000[0x7]
0720 ; --------------------------------------------------------------------------------------
0720 ; SUBPROGRAM
0720 ; --------------------------------------------------------------------------------------
0720 0729 | ) | .CONST 0x0729 ; Address of begin
0721 0004 | | .CONST 0x0004 ; Address of exception handler
0722 0002 | | .CONST 0x0002 ; Number of locals
0723 INIT_0720:
0723 480d |H | Short_Literal 0xd
0724 e7ff | | Load 0x3,-0x1
0725 e00b | | Load 0x0,0xb
0726 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0727 e01c | | Load 0x0,0x1c
0728 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0729 BODY_0720:
0729 e403 | | Load 0x2,0x3
072a e220 | | Load 0x1,0x20
072b 01d5 | | Execute Vector,Field_Reference
072c 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
072d 00d9 | | Load_Top At_Offset_1
072e 01db | | Execute Vector,Length
072f 0273 | s | Execute Discrete,Plus
0730 e403 | | Load 0x2,0x3
0731 e220 | | Load 0x1,0x20
0732 01d5 | | Execute Vector,Field_Reference
0733 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0734 01db | | Execute Vector,Length
0735 027d | } | Execute Discrete,Greater
0736 6806 |h | Jump_Zero 0x73d
0737 4800 |H | Short_Literal 0x0
0738 e403 | | Load 0x2,0x3
0739 e220 | | Load 0x1,0x20
073a 01d5 | | Execute Vector,Field_Reference
073b 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
073c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
073d 00d8 | | Load_Top At_Offset_0
073e 01db | | Execute Vector,Length
073f 6822 |h" | Jump_Zero 0x762
0740 00d8 | | Load_Top At_Offset_0
0741 e403 | | Load 0x2,0x3
0742 e220 | | Load 0x1,0x20
0743 01d5 | | Execute Vector,Field_Reference
0744 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0745 e403 | | Load 0x2,0x3
0746 e220 | | Load 0x1,0x20
0747 01d5 | | Execute Vector,Field_Reference
0748 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0749 00db | | Load_Top At_Offset_3
074a 01db | | Execute Vector,Length
074b 0273 | s | Execute Discrete,Plus
074c 0aff | | Execute_Immediate Plus,-0x1
074d 00d8 | | Load_Top At_Offset_0
074e 00e2 | | Load_Encached Integer_Cache
074f 0260 | ` | Execute Discrete,In_Type
0750 7001 |p | Jump_Nonzero 0x752
0751 0801 | | Execute_Immediate Raise,0x1
0752 e403 | | Load 0x2,0x3
0753 e220 | | Load 0x1,0x20
0754 01d5 | | Execute Vector,Field_Reference
0755 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0756 01ce | | Execute Vector,Slice_Write
0757 e403 | | Load 0x2,0x3
0758 e220 | | Load 0x1,0x20
0759 01d5 | | Execute Vector,Field_Reference
075a 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
075b 00d9 | | Load_Top At_Offset_1
075c 01db | | Execute Vector,Length
075d 0273 | s | Execute Discrete,Plus
075e e403 | | Load 0x2,0x3
075f e220 | | Load 0x1,0x20
0760 01d5 | | Execute Vector,Field_Reference
0761 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0762 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0763 0000 0000 | | .BLANK 0000[0x5]
0768 ; --------------------------------------------------------------------------------------
0768 ; SUBPROGRAM
0768 ; --------------------------------------------------------------------------------------
0768 076b | k | .CONST 0x076b ; Address of begin
0769 0004 | | .CONST 0x0004 ; Address of exception handler
076a 0001 | | .CONST 0x0001 ; Number of locals
076b BODY_0768:
076b INIT_0768:
076b 4608 |F | Jump_Case 0x9
076c 7808 |x | Jump 0x775 ; case 0x0
076d 7814 |x | Jump 0x782 ; case 0x1
076e 7817 |x | Jump 0x786 ; case 0x2
076f 7816 |x | Jump 0x786 ; case 0x3
0770 7815 |x | Jump 0x786 ; case 0x4
0771 7814 |x | Jump 0x786 ; case 0x5
0772 7813 |x | Jump 0x786 ; case 0x6
0773 7812 |x | Jump 0x786 ; case 0x7
0774 7811 |x | Jump 0x786 ; case 0x8
0775 00da | | Load_Top At_Offset_2
0776 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0777 0125 | % | Execute Any,Set_Constraint
0778 00da | | Load_Top At_Offset_2
0779 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
077a 1c00 | | Execute_Immediate Run_Utility,0x0
077b 00da | | Load_Top At_Offset_2
077c 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
077d 0125 | % | Execute Any,Set_Constraint
077e 00da | | Load_Top At_Offset_2
077f 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0780 1c00 | | Execute_Immediate Run_Utility,0x0
0781 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0782 00da | | Load_Top At_Offset_2
0783 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0784 0125 | % | Execute Any,Set_Constraint
0785 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0786 0869 | i | Execute_Immediate Raise,0x69
0787 0000 | | .XXX[0x1]
0788 ; --------------------------------------------------------------------------------------
0788 ; SUBPROGRAM
0788 ; --------------------------------------------------------------------------------------
0788 078b | | .CONST 0x078b ; Address of begin
0789 0004 | | .CONST 0x0004 ; Address of exception handler
078a 0001 | | .CONST 0x0001 ; Number of locals
078b BODY_0788:
078b INIT_0788:
078b 4608 |F | Jump_Case 0x9
078c 7808 |x | Jump 0x795 ; case 0x0
078d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
078e 780d |x | Jump 0x79c ; case 0x2
078f 780c |x | Jump 0x79c ; case 0x3
0790 780b |x | Jump 0x79c ; case 0x4
0791 780a |x | Jump 0x79c ; case 0x5
0792 7809 |x | Jump 0x79c ; case 0x6
0793 7808 |x | Jump 0x79c ; case 0x7
0794 7807 |x | Jump 0x79c ; case 0x8
0795 00da | | Load_Top At_Offset_2
0796 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0797 0125 | % | Execute Any,Set_Constraint
0798 00da | | Load_Top At_Offset_2
0799 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
079a 1c00 | | Execute_Immediate Run_Utility,0x0
079b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
079c 0869 | i | Execute_Immediate Raise,0x69
079d 0000 0000 | | .XXX[0x3]
079f 0000 | |
07a0 ; --------------------------------------------------------------------------------------
07a0 ; SUBPROGRAM
07a0 ; --------------------------------------------------------------------------------------
07a0 07b0 | | .CONST 0x07b0 ; Address of begin
07a1 0004 | | .CONST 0x0004 ; Address of exception handler
07a2 000f | | .CONST 0x000f ; Number of locals
07a3 INIT_07a0:
07a3 4804 |H | Short_Literal 0x4
07a4 02cb | | Declare_Variable Entry
07a5 00bf | | Action Accept_Activation
07a6 029d 07bb | | Declare_Subprogram INIT_07b8,For_Outer_Call
07a8 480d 48fc |H H | Declare_Variable Select 0x000, 0x001,
07aa 4800 4801 |H H | [0x000]: 0x001 = 0x0008,
07ac 4800 4801 |H H | [0x00d]: 0x0fc = 0x07e0
07ae 02cf | |
07af 00bc | | Action Signal_Activated
07b0 BODY_07a0:
07b0 00cf | | Action Mark_Auxiliary
07b1 00d9 | | Load_Top At_Offset_1
07b2 013f | ? | Execute Select,Rendezvous
07b3 00d1 | | Pop_Control Pop_Count_1
07b4 00c9 | | Action Pop_Auxiliary_Loop
07b5 7ffb | | Jump 0x7b1
07b6 0000 0000 | | .XXX[0x2]
07b8 ; --------------------------------------------------------------------------------------
07b8 ; SUBPROGRAM
07b8 ; --------------------------------------------------------------------------------------
07b8 07bf | | .CONST 0x07bf ; Address of begin
07b9 0004 | | .CONST 0x0004 ; Address of exception handler
07ba 0003 | | .CONST 0x0003 ; Number of locals
07bb INIT_07b8:
07bb e001 | | Load 0x0,0x1
07bc 1b19 | | Execute Package,Field_Read,Field_Number 0x19
07bd 029f 07f3 | | Declare_Subprogram INIT_07f0,For_Call
07bf BODY_07b8:
07bf e5fc | | Load 0x2,-0x4
07c0 e002 | | Load 0x0,0x2
07c1 1810 | | Execute Package,Field_Execute,Field_Number 0x10
07c2 c5fc | | Store 0x2,-0x4
07c3 00cf | | Action Mark_Auxiliary
07c4 4800 |H | Short_Literal 0x0
07c5 48ff |H | Short_Literal 0xff
07c6 0007 | | Action Break_Optional
07c7 00d8 | | Load_Top At_Offset_0
07c8 a5fd | | Store_Unchecked 0x2,-0x3
07c9 00d8 | | Load_Top At_Offset_0
07ca e003 | | Load 0x0,0x3
07cb 1810 | | Execute Package,Field_Execute,Field_Number 0x10
07cc 6808 |h | Jump_Zero 0x7d5
07cd 00d8 | | Load_Top At_Offset_0
07ce e004 | | Load 0x0,0x4
07cf 1819 | | Execute Package,Field_Execute,Field_Number 0x19
07d0 e004 | | Load 0x0,0x4
07d1 181d | | Execute Package,Field_Execute,Field_Number 0x1d
07d2 027e | ~ | Execute Discrete,Not_Equal
07d3 6801 |h | Jump_Zero 0x7d5
07d4 8403 | | Call 0x2,0x3
07d5 00c8 | | Action Pop_Auxiliary_Range
07d6 37f0 |7 | Loop_Decreasing 0x7c7
07d7 00ce | | Action Pop_Auxiliary
07d8 e5fc | | Load 0x2,-0x4
07d9 4802 |H | Short_Literal 0x2
07da 0092 089f | | Action Push_String_Extended,0x89f ; "Unable to find a free telnet port"
07dc 8005 | | Call 0x0,0x5
07dd c5fc | | Store 0x2,-0x4
07de 4502 |E | Exit_Suprogram New_Top_Offset 0x2
07df 0000 | | .XXX[0x1]
07e0 ; --------------------------------------------------------------------------------------
07e0 ; SUBPROGRAM
07e0 ; See instruction 0x02cf at 0x7a8, index=0xd
07e0 ; --------------------------------------------------------------------------------------
07e0 07e3 | | .CONST 0x07e3 ; Address of begin
07e1 0004 | | .CONST 0x0004 ; Address of exception handler
07e2 0001 | | .CONST 0x0001 ; Number of locals
07e3 BODY_07e0:
07e3 INIT_07e0:
07e3 e5fb | | Load 0x2,-0x5
07e4 e006 | | Load 0x0,0x6
07e5 e5fd | | Load 0x2,-0x3
07e6 e5fe | | Load 0x2,-0x2
07e7 820e | | Call 0x1,0xe
07e8 00d1 | | Pop_Control Pop_Count_1
07e9 c5fc | | Store 0x2,-0x4
07ea c5fb | | Store 0x2,-0x5
07eb 4103 |A | End_Rendezvous 0x3
07ec 0000 0000 | | .BLANK 0000[0x4]
07f0 ; --------------------------------------------------------------------------------------
07f0 ; SUBPROGRAM
07f0 ; --------------------------------------------------------------------------------------
07f0 07f3 | | .CONST 0x07f3 ; Address of begin
07f1 081a | | .CONST 0x081a ; Address of exception handler
07f2 0001 | | .CONST 0x0001 ; Number of locals
07f3 BODY_07f0:
07f3 INIT_07f0:
07f3 e5fe | | Load 0x2,-0x2
07f4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
07f5 e007 | | Load 0x0,0x7
07f6 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
07f7 e406 | | Load 0x2,0x6
07f8 e007 | | Load 0x0,0x7
07f9 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
07fa 00d1 | | Pop_Control Pop_Count_1
07fb e001 | | Load 0x0,0x1
07fc 1b19 | | Execute Package,Field_Read,Field_Number 0x19
07fd 4804 |H | Short_Literal 0x4
07fe 601d |` | Indirect_Literal Discrete,0x81c,{0x00007fff, 0xffffffff}
07ff e008 | | Load 0x0,0x8
0800 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0801 e5ff | | Load 0x2,-0x1
0802 e5fe | | Load 0x2,-0x2
0803 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0804 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0805 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0806 e008 | | Load 0x0,0x8
0807 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0808 c402 | | Store 0x2,0x2
0809 e5fc | | Load 0x2,-0x4
080a e402 | | Load 0x2,0x2
080b 8009 | | Call 0x0,0x9
080c c5fc | | Store 0x2,-0x4
080d 4802 |H | Short_Literal 0x2
080e e5fc | | Load 0x2,-0x4
080f e002 | | Load 0x0,0x2
0810 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0811 6806 |h | Jump_Zero 0x818
0812 e5fe | | Load 0x2,-0x2
0813 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0814 e007 | | Load 0x0,0x7
0815 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0816 00cc | | Action Pop_Block
0817 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0818 00cc | | Action Pop_Block
0819 4502 |E | Exit_Suprogram New_Top_Offset 0x2
081a TRAP_07f0:
081a 0007 | | Action Break_Optional
081b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
081c 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
0820 ; --------------------------------------------------------------------------------------
0820 ; SUBPROGRAM
0820 ; --------------------------------------------------------------------------------------
0820 0831 | 1 | .CONST 0x0831 ; Address of begin
0821 0004 | | .CONST 0x0004 ; Address of exception handler
0822 0010 | | .CONST 0x0010 ; Number of locals
0823 INIT_0820:
0823 4800 |H | Short_Literal 0x0
0824 02cb | | Declare_Variable Entry
0825 00bf | | Action Accept_Activation
0826 e001 | | Load 0x0,0x1
0827 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0828 02c7 | | Declare_Variable Any
0829 00d8 | | Load_Top At_Offset_0
082a 1c00 | | Execute_Immediate Run_Utility,0x0
082b 480d |H | Short_Literal 0xd
082c 0299 0853 | S| Declare_Subprogram INIT_0850,For_Accept
082e 029f 085b | [| Declare_Subprogram INIT_0858,For_Call
0830 00bc | | Action Signal_Activated
0831 BODY_0820:
0831 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0832 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0833 0137 | 7 | Execute Entry,Rendezvous
0834 e002 | | Load 0x0,0x2
0835 7008 |p | Jump_Nonzero 0x83e
0836 e003 | | Load 0x0,0x3
0837 180e | | Execute Package,Field_Execute,Field_Number 0xe
0838 4802 |H | Short_Literal 0x2
0839 0092 08a0 | | Action Push_String_Extended,0x8a0 ; "Cache_Cleaner is being terminated"
083b e004 | | Load 0x0,0x4
083c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
083d 780f |x | Jump 0x84d
083e e003 | | Load 0x0,0x3
083f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0840 4802 |H | Short_Literal 0x2
0841 0092 08a1 | | Action Push_String_Extended,0x8a1 ; "Cache cleaner cleaning frequency "
0843 e005 | | Load 0x0,0x5
0844 e006 | | Load 0x0,0x6
0845 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0846 01cc | | Execute Vector,Catenate
0847 e004 | | Load 0x0,0x4
0848 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0849 00cf | | Action Mark_Auxiliary
084a 8210 | | Call 0x1,0x10
084b 00c9 | | Action Pop_Auxiliary_Loop
084c 7ffd | | Jump 0x84a
084d 00bb | | Action Signal_Completion
084e 0000 0000 | | .XXX[0x2]
0850 ; --------------------------------------------------------------------------------------
0850 ; SUBPROGRAM
0850 ; --------------------------------------------------------------------------------------
0850 0853 | S | .CONST 0x0853 ; Address of begin
0851 0004 | | .CONST 0x0004 ; Address of exception handler
0852 0001 | | .CONST 0x0001 ; Number of locals
0853 BODY_0850:
0853 INIT_0850:
0853 4100 |A | End_Rendezvous 0x0
0854 0000 0000 | | .BLANK 0000[0x4]
0858 ; --------------------------------------------------------------------------------------
0858 ; SUBPROGRAM
0858 ; --------------------------------------------------------------------------------------
0858 085b | [ | .CONST 0x085b ; Address of begin
0859 086e | n | .CONST 0x086e ; Address of exception handler
085a 0001 | | .CONST 0x0001 ; Number of locals
085b BODY_0858:
085b INIT_0858:
085b e003 | | Load 0x0,0x3
085c 180e | | Execute Package,Field_Execute,Field_Number 0xe
085d 4801 |H | Short_Literal 0x1
085e 0092 08a2 | | Action Push_String_Extended,0x8a2 ; "Task cleaner delaying for "
0860 e005 | | Load 0x0,0x5
0861 e006 | | Load 0x0,0x6
0862 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0863 01cc | | Execute Vector,Catenate
0864 e004 | | Load 0x0,0x4
0865 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0866 e005 | | Load 0x0,0x5
0867 00ba | | Action Initiate_Delay
0868 e20e | | Load 0x1,0xe
0869 e002 | | Load 0x0,0x2
086a e007 | | Load 0x0,0x7
086b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
086c c20e | | Store 0x1,0xe
086d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
086e TRAP_0858:
086e 0007 | | Action Break_Optional
086f e003 | | Load 0x0,0x3
0870 180e | | Execute Package,Field_Execute,Field_Number 0xe
0871 4802 |H | Short_Literal 0x2
0872 0092 08a3 | | Action Push_String_Extended,0x8a3 ; "Exception raise in Cache_Cleaner,profile.error_msg);"
0874 e004 | | Load 0x0,0x4
0875 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0876 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0877 ; --------------------------------------------------------------------------------------
0877 ; STRING TABLE
0877 ; --------------------------------------------------------------------------------------
0877 005c | \ | .STRTAB 0x005c->0x08a5 ; "DISC"
0878 005e | ^ | .STRTAB 0x005e->0x08a7 ; "USERNAME_PROMPT"
0879 006b | k | .STRTAB 0x006b->0x08ae ; "PASSWORD_PROMPT"
087a 0078 | x | .STRTAB 0x0078->0x08b6 ; "COMMAND_PROMPT"
087b 0084 | | .STRTAB 0x0084->0x08bd ; "TIMEOUT"
087c 0089 | | .STRTAB 0x0089->0x08c0 ; "PASSWORD_FAILURE"
087d 0097 | | .STRTAB 0x0097->0x08c8 ; "PRE_USERNAME_PROMPT"
087e 00a8 | | .STRTAB 0x00a8->0x08d2 ; "Cleaning frequency :"
087f 00ba | | .STRTAB 0x00ba->0x08dc ; "Unused time :"
0880 00c5 | | .STRTAB 0x00c5->0x08e2 ; " "
0881 00c4 | | .STRTAB 0x00c4->0x08e3 ; "Session"
0882 00c9 | | .STRTAB 0x00c9->0x08e6 ; "Reusing cached TELNET connection to "
0883 00eb | | .STRTAB 0x00eb->0x08f8 ; "Removing invalid connection"
0884 0104 | | .STRTAB 0x0104->0x0906 ; "Allocating a telnet port"
0885 011a | | .STRTAB 0x011a->0x0912 ; "Acquiring TELNET connection to "
0886 0137 | 7 | .STRTAB 0x0137->0x0921 ; " via port "
0887 013f | ? | .STRTAB 0x013f->0x0926 ; "Could not connect to "
0888 0152 | R | .STRTAB 0x0152->0x0931 ; "Disconnected from "
0889 0162 | b | .STRTAB 0x0162->0x093a ; "Unable to login to remote machine "
088a 0182 | | .STRTAB 0x0182->0x094b ; ". User Authorization Failure"
088b 019d | | .STRTAB 0x019d->0x0959 ; "Unable to login to remote machine. Unknown Failure"
088c 01ce | | .STRTAB 0x01ce->0x0973 ; "Undefined Remote Machine Name = "
088d 01ec | | .STRTAB 0x01ec->0x0983 ; "No connection found while setting no echo using telnet_protocol.offer"
088e 022f | / | .STRTAB 0x022f->0x09a5 ; " caught in Open_Connection."
088f 0248 | H | .STRTAB 0x0248->0x09b3 ; "Unimplemented Command Type = "
0890 0263 | c | .STRTAB 0x0263->0x09c1 ; "Command timed out"
0891 0272 | r | .STRTAB 0x0272->0x09ca ; "Connection is not in cache"
0892 028a | | .STRTAB 0x028a->0x09d7 ; "Connection cache entry is "
0893 02a2 | | .STRTAB 0x02a2->0x09e4 ; "Destroying connection for job "
0894 02be | | .STRTAB 0x02be->0x09f3 ; "Transport Error = "
0895 02cf | | .STRTAB 0x02cf->0x09fc ; "Unknown Transport Status = "
0896 02e8 | | .STRTAB 0x02e8->0x0a0a ; "TERMINAL IDENTIFICATION NUMBER\x0d\x0a\x0d\x0a"
0897 0308 | | .STRTAB 0x0308->0x0a1b ; "1"
0898 0307 | | .STRTAB 0x0307->0x0a1b ; "\x0d\x0d"
0899 0307 | | .STRTAB 0x0307->0x0a1c ; "In Destroy_Connection"
089a 031a | | .STRTAB 0x031a->0x0a27 ; "logout"
089b 031e | | .STRTAB 0x031e->0x0a2a ; "Allocating unused connection"
089c 0338 | 8 | .STRTAB 0x0338->0x0a38 ; "Removing connection"
089d 0349 | I | .STRTAB 0x0349->0x0a41 ; "Exception raised in Release_unused_connections"
089e 0375 | u | .STRTAB 0x0375->0x0a58 ; "Exception raised in Release_unused_connection"
089f 03a0 | | .STRTAB 0x03a0->0x0a6f ; "Unable to find a free telnet port"
08a0 03bf | | .STRTAB 0x03bf->0x0a7f ; "Cache_Cleaner is being terminated"
08a1 03de | | .STRTAB 0x03de->0x0a90 ; "Cache cleaner cleaning frequency "
08a2 03fd | | .STRTAB 0x03fd->0x0aa0 ; "Task cleaner delaying for "
08a3 0415 | | .STRTAB 0x0415->0x0aad ; "Exception raise in Cache_Cleaner,profile.error_msg);"
08a4 0447 | G | .STREND 0x0447->0x0ac7
08a5 4449 5343 |DISC| .STRTAB_STRINGS
0ac8 ; --------------------------------------------------------------------------------------
0ac8 ; Debug Table
0ac8 ; --------------------------------------------------------------------------------------
0ac8 0004 000e | | .DEBUG4 0x0004,0x000e,0x926c,0x0000,0x0001,0x0000
0ace 0000 0000 | | .BLANK 0000[0xd]
0adb 8000 0050 | P| .XXX[0xc]
0add 0000 0000 | |
0adf 0000 0080 | |
0ae1 0000 0580 | |
0ae3 0000 0002 | |
0ae5 0000 00a0 | |
0ae7 0000 0000 | | .BLANK 0000[0x2a]
0b11 2000 0014 | | .XXX[0xc]
0b13 0000 0000 | |
0b15 0000 0020 | |
0b17 0000 0160 | `|
0b19 0000 0000 | |
0b1b 8000 0028 | (|
0b1d 0000 0000 | | .BLANK 0000[0x2a]
0b47 0800 0005 | | .XXX[0xc]
0b49 0000 0000 | |
0b4b 0000 0008 | |
0b4d 0000 0058 | X|
0b4f 0000 0000 | |
0b51 2000 000a | |
0b53 0000 0000 | | .BLANK 0000[0x2a]
0b7d 0200 0001 | | .XXX[0xd]
0b7f 4000 0000 |@ |
0b81 0000 0002 | |
0b83 0000 0016 | |
0b85 0000 0000 | |
0b87 0800 0002 | |
0b89 8000 | |
0b8a 0000 0000 | | .BLANK 0000[0x29]
0bb3 0080 0000 | | .XXX[0xd]
0bb5 5000 0000 |P |
0bb7 0000 0000 | |
0bb9 8000 0005 | |
0bbb 8000 0000 | |
0bbd 0200 0000 | |
0bbf a000 | |
0bc0 0000 0000 | | .BLANK 0000[0x29]
0be9 0020 0000 | | .XXX[0xd]
0beb 1400 0000 | |
0bed 0000 0000 | |
0bef 2000 0001 | |
0bf1 6000 0000 |` |
0bf3 0080 0000 | |
0bf5 2800 |( |
0bf6 0000 0000 | | .BLANK 0000[0xa]