|
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: 4096 (0x1000)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5850da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 07f0 | | .CONST 0x07f0 ; 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 8004 | | .CONST 0x8004 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; SUBPROGRAM
0008 ; See instruction 0x02cf at 0x658, index=0x0
0008 ; --------------------------------------------------------------------------------------
0008 00b9 | | .CONST 0x00b9 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0028 | ( | .CONST 0x0028 ; 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 061b | | Declare_Subprogram INIT_0618,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 00c3 | | Declare_Subprogram INIT_00c0,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 e004 | | Load 0x0,0x4
0028 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0029 e005 | | Load 0x0,0x5
002a 1b14 | | Execute Package,Field_Read,Field_Number 0x14
002b 029f 063b | ;| Declare_Subprogram INIT_0638,For_Call
002d 4802 |H | Short_Literal 0x2
002e 032e | . | Declare_Type Record,Defined,Visible
002f c215 | | Store 0x1,0x15
0030 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated
0032 c216 | | Store 0x1,0x16
0033 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated
0035 c210 | | Store 0x1,0x10
0036 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated
0038 c211 | | Store 0x1,0x11
0039 029a 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call,Visible,Unelaborated
003b c212 | | Store 0x1,0x12
003c 00bf | | Action Accept_Activation
003d 4800 |H | Short_Literal 0x0
003e 4806 |H | Short_Literal 0x6
003f 029f 031b | | Declare_Subprogram INIT_0318,For_Call
0041 03fd | | Declare_Type Discrete,Defined
0042 4800 |H | Short_Literal 0x0
0043 48ff |H | Short_Literal 0xff
0044 e006 | | Load 0x0,0x6
0045 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0046 03f8 | | Declare_Type Discrete,Constrained
0047 00e1 | | Load_Encached Boolean_Cache
0048 e007 | | Load 0x0,0x7
0049 1b0d | | Execute Package,Field_Read,Field_Number 0xd
004a e008 | | Load 0x0,0x8
004b 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
004c 00e1 | | Load_Encached Boolean_Cache
004d e002 | | Load 0x0,0x2
004e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
004f e003 | | Load 0x0,0x3
0050 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0051 4801 |H | Short_Literal 0x1
0052 6091 |` | Indirect_Literal Discrete,0xe4,{0x00000000, 0x00000400}
0053 00e9 | | Load_Encached String_Cache
0054 035b | [ | Declare_Type Array,Constrained
0055 00e3 | | Load_Encached Natural_Cache
0056 00e1 | | Load_Encached Boolean_Cache
0057 00e1 | | Load_Encached Boolean_Cache
0058 e215 | | Load 0x1,0x15
0059 029f 0343 | C| Declare_Subprogram INIT_0340,For_Call
005b 480b |H | Short_Literal 0xb
005c 032d | - | Declare_Type Record,Defined
005d 4800 |H | Short_Literal 0x0
005e 48ff |H | Short_Literal 0xff
005f 00da | | Load_Top At_Offset_2
0060 029f 0373 | s| Declare_Subprogram INIT_0370,For_Call
0062 4801 |H | Short_Literal 0x1
0063 035d | ] | Declare_Type Array,Defined
0064 00d8 | | Load_Top At_Offset_0
0065 0337 | 7 | Declare_Variable Array
0066 00d8 | | Load_Top At_Offset_0
0067 1c00 | | Execute_Immediate Run_Utility,0x0
0068 029b 038b | | Declare_Subprogram INIT_0388,For_Outer_Call,Unelaborated
006a e009 | | Load 0x0,0x9
006b e00a | | Load 0x0,0xa
006c 48e0 |H | Short_Literal 0xe0
006d e008 | | Load 0x0,0x8
006e 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
006f 4801 |H | Short_Literal 0x1
0070 4948 |IH | Short_Literal 0x148
0071 4804 |H | Short_Literal 0x4
0072 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0073 e008 | | Load 0x0,0x8
0074 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c
0075 0387 | | Declare_Variable Package
0076 00d8 | | Load_Top At_Offset_0
0077 020f | | Execute Module,Activate
0078 029b 0413 | | Declare_Subprogram INIT_0410,For_Outer_Call,Unelaborated
007a e00b | | Load 0x0,0xb
007b e00c | | Load 0x0,0xc
007c e217 | | Load 0x1,0x17
007d 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
007e e21d | | Load 0x1,0x1d
007f 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f
0080 0387 | | Declare_Variable Package
0081 00d8 | | Load_Top At_Offset_0
0082 020f | | Execute Module,Activate
0083 4800 |H | Short_Literal 0x0
0084 e00d | | Load 0x0,0xd
0085 02a0 | | Declare_Subprogram Null_Subprogram
0086 038e | | Declare_Type Package,Defined
0087 0387 | | Declare_Variable Package
0088 e00e | | Load 0x0,0xe
0089 4801 |H | Short_Literal 0x1
008a 00da | | Load_Top At_Offset_2
008b 020e | | Execute Module,Augment_Imports
008c 00d8 | | Load_Top At_Offset_0
008d 020f | | Execute Module,Activate
008e 029d 0473 | s| Declare_Subprogram INIT_0470,For_Outer_Call
0090 029d 0483 | | Declare_Subprogram INIT_0480,For_Outer_Call
0092 4800 |H | Short_Literal 0x0
0093 0093 0653 | S| push_full_address INIT_0650
0095 00f5 | | Load_Encached Unused21
0096 037d | } | Declare_Type Task,Defined
0097 036f | o | Declare_Variable Task
0098 e00f | | Load 0x0,0xf
0099 e003 | | Load 0x0,0x3
009a e006 | | Load 0x0,0x6
009b e010 | | Load 0x0,0x10
009c 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
009d e218 | | Load 0x1,0x18
009e e008 | | Load 0x0,0x8
009f 4807 |H | Short_Literal 0x7
00a0 e223 | # | Load 0x1,0x23
00a1 020e | | Execute Module,Augment_Imports
00a2 0007 | | Action Break_Optional
00a3 029d 04a3 | | Declare_Subprogram INIT_04a0,For_Outer_Call
00a5 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00a6 00c7 | | Action Elaborate_Subprogram
00a7 029d 04cb | | Declare_Subprogram INIT_04c8,For_Outer_Call
00a9 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
00aa 00c7 | | Action Elaborate_Subprogram
00ab 029d 04db | | Declare_Subprogram INIT_04d8,For_Outer_Call
00ad 1d16 | | Execute_Immediate Reference_Lex_1,0x16
00ae 00c7 | | Action Elaborate_Subprogram
00af 029d 0503 | | Declare_Subprogram INIT_0500,For_Outer_Call
00b1 1d10 | | Execute_Immediate Reference_Lex_1,0x10
00b2 00c7 | | Action Elaborate_Subprogram
00b3 1d11 | | Execute_Immediate Reference_Lex_1,0x11
00b4 00c7 | | Action Elaborate_Subprogram
00b5 029d 0583 | | Declare_Subprogram INIT_0580,For_Outer_Call
00b7 1d12 | | Execute_Immediate Reference_Lex_1,0x12
00b8 00c7 | | Action Elaborate_Subprogram
00b9 BODY_0008:
00b9 BODY_0008:
00b9 00be | | Action Activate_Tasks
00ba 00bc | | Action Signal_Activated
00bb 00bb | | Action Signal_Completion
00bc 0000 0000 | | .BLANK 0000[0x4]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3 | | .CONST 0x00c3 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0001 | | .CONST 0x0001 ; Number of locals
00c3 BODY_00c0:
00c3 INIT_00c0:
00c3 4605 |F | Jump_Case 0x6
00c4 7804 |x | Jump 0xc9 ; case 0x0
00c5 7810 |x | Jump 0xd6 ; case 0x1
00c6 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
00c7 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
00c8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
00c9 00da | | Load_Top At_Offset_2 ; case 0x5
00ca 01dc | | Execute Vector,Last
00cb 00db | | Load_Top At_Offset_3
00cc 01dd | | Execute Vector,First
00cd 0263 | c | Execute Discrete,Above_Bound
00ce 7006 |p | Jump_Nonzero 0xd5
00cf 00d8 | | Load_Top At_Offset_0
00d0 e5ff | | Load 0x2,-0x1
00d1 01d5 | | Execute Vector,Field_Reference
00d2 1c00 | | Execute_Immediate Run_Utility,0x0
00d3 0a01 | | Execute_Immediate Plus,0x1
00d4 7ff8 | | Jump 0xcd
00d5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
00d6 00da | | Load_Top At_Offset_2
00d7 01dc | | Execute Vector,Last
00d8 00db | | Load_Top At_Offset_3
00d9 01dd | | Execute Vector,First
00da 0263 | c | Execute Discrete,Above_Bound
00db 7006 |p | Jump_Nonzero 0xe2
00dc 00d8 | | Load_Top At_Offset_0
00dd e5ff | | Load 0x2,-0x1
00de 01d7 | | Execute Vector,Field_Read
00df 1c01 | | Execute_Immediate Run_Utility,0x1
00e0 0a01 | | Execute_Immediate Plus,0x1
00e1 7ff8 | | Jump 0xda
00e2 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
00e3 0000 | | .XXX[0x1]
00e4 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 010b | | .CONST 0x010b ; Address of begin
00e9 0240 | @ | .CONST 0x0240 ; Address of exception handler
00ea 000c | | .CONST 0x000c ; Number of locals
00eb INIT_00e8:
00eb e00f | | Load 0x0,0xf
00ec 1b19 | | Execute Package,Field_Read,Field_Number 0x19
00ed e218 | | Load 0x1,0x18
00ee 0007 | | Action Break_Optional
00ef e011 | | Load 0x0,0x11
00f0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f1 02c7 | | Declare_Variable Any
00f2 00d8 | | Load_Top At_Offset_0
00f3 1c00 | | Execute_Immediate Run_Utility,0x0
00f4 00e1 | | Load_Encached Boolean_Cache
00f5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00f6 00e1 | | Load_Encached Boolean_Cache
00f7 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
00f8 e012 | | Load 0x0,0x12
00f9 180e | | Execute Package,Field_Execute,Field_Number 0xe
00fa e013 | | Load 0x0,0x13
00fb 1b15 | | Execute Package,Field_Read,Field_Number 0x15
00fc 03f1 | | Declare_Variable Discrete,With_Value
00fd 00e1 | | Load_Encached Boolean_Cache
00fe 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00ff e008 | | Load 0x0,0x8
0100 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
0101 0322 | " | Declare_Variable Record
0102 00d8 | | Load_Top At_Offset_0
0103 1c00 | | Execute_Immediate Run_Utility,0x0
0104 00e3 | | Load_Encached Natural_Cache
0105 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0106 00e1 | | Load_Encached Boolean_Cache
0107 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0108 e5fc | | Load 0x2,-0x4
0109 e5fe | | Load 0x2,-0x2
010a 8226 | & | Call 0x1,0x26
010b BODY_00e8:
010b 4800 |H | Short_Literal 0x0
010c e407 | | Load 0x2,0x7
010d e21b | | Load 0x1,0x1b
010e 01d5 | | Execute Vector,Field_Reference
010f 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0110 4801 |H | Short_Literal 0x1
0111 e407 | | Load 0x2,0x7
0112 e21b | | Load 0x1,0x1b
0113 01d5 | | Execute Vector,Field_Reference
0114 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0115 e5fb | | Load 0x2,-0x5
0116 e407 | | Load 0x2,0x7
0117 e21b | | Load 0x1,0x1b
0118 01d5 | | Execute Vector,Field_Reference
0119 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
011a 4801 |H | Short_Literal 0x1
011b e407 | | Load 0x2,0x7
011c e21b | | Load 0x1,0x1b
011d 01d5 | | Execute Vector,Field_Reference
011e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
011f e5fc | | Load 0x2,-0x4
0120 e407 | | Load 0x2,0x7
0121 e21b | | Load 0x1,0x1b
0122 01d5 | | Execute Vector,Field_Reference
0123 380a |8 | Execute Record,Field_Write,Field_Number 0xa
0124 e407 | | Load 0x2,0x7
0125 e21b | | Load 0x1,0x1b
0126 01d5 | | Execute Vector,Field_Reference
0127 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0128 6818 |h | Jump_Zero 0x141
0129 e407 | | Load 0x2,0x7
012a e21b | | Load 0x1,0x1b
012b 01d5 | | Execute Vector,Field_Reference
012c 00d8 | | Load_Top At_Offset_0
012d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
012e e5ff | | Load 0x2,-0x1
012f 0092 06b4 | | Action Push_String_Extended,0x6b4 ; " "
0131 01cc | | Execute Vector,Catenate
0132 e5fc | | Load 0x2,-0x4
0133 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0134 e005 | | Load 0x0,0x5
0135 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0136 011c | | Execute Any,Convert_Unchecked
0137 1c01 | | Execute_Immediate Run_Utility,0x1
0138 01cc | | Execute Vector,Catenate
0139 0092 06b5 | | Action Push_String_Extended,0x6b5 ; "Session"
013b 01cc | | Execute Vector,Catenate
013c e220 | | Load 0x1,0x20
013d 180d | | Execute Package,Field_Execute,Field_Number 0xd
013e 00d9 | | Load_Top At_Offset_1
013f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0140 00d1 | | Pop_Control Pop_Count_1
0141 e5fa | | Load 0x2,-0x6
0142 e218 | | Load 0x1,0x18
0143 e409 | | Load 0x2,0x9
0144 4803 |H | Short_Literal 0x3
0145 e223 | # | Load 0x1,0x23
0146 170d | | Execute Task,Entry_Call,Field_Number 0xd
0147 00d1 | | Pop_Control Pop_Count_1
0148 c403 | | Store 0x2,0x3
0149 c5fa | | Store 0x2,-0x6
014a 4802 |H | Short_Literal 0x2
014b e5fa | | Load 0x2,-0x6
014c e003 | | Load 0x0,0x3
014d 1817 | | Execute Package,Field_Execute,Field_Number 0x17
014e 701d |p | Jump_Nonzero 0x16c
014f 00db | | Load_Top At_Offset_3
0150 e407 | | Load 0x2,0x7
0151 e21b | | Load 0x1,0x1b
0152 01d5 | | Execute Vector,Field_Reference
0153 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0154 4948 |IH | Short_Literal 0x148
0155 e407 | | Load 0x2,0x7
0156 e21b | | Load 0x1,0x1b
0157 01d5 | | Execute Vector,Field_Reference
0158 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0159 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
015a 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
015b e014 | | Load 0x0,0x14
015c 180e | | Execute Package,Field_Execute,Field_Number 0xe
015d 4802 |H | Short_Literal 0x2
015e 0092 06b6 | | Action Push_String_Extended,0x6b6 ; "Acquiring TELNET connection to "
0160 e5ff | | Load 0x2,-0x1
0161 01cc | | Execute Vector,Catenate
0162 0092 06b7 | | Action Push_String_Extended,0x6b7 ; " via port "
0164 01cc | | Execute Vector,Catenate
0165 e403 | | Load 0x2,0x3
0166 00e0 | | Load_Encached Standard_Cache
0167 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0168 01cc | | Execute Vector,Catenate
0169 e015 | | Load 0x0,0x15
016a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
016b 780a |x | Jump 0x176
016c e014 | | Load 0x0,0x14
016d 180e | | Execute Package,Field_Execute,Field_Number 0xe
016e 4807 |H | Short_Literal 0x7
016f 0092 06b8 | | Action Push_String_Extended,0x6b8 ; "Could not connect to "
0171 e5ff | | Load 0x2,-0x1
0172 01cc | | Execute Vector,Catenate
0173 e015 | | Load 0x0,0x15
0174 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0175 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0176 e00f | | Load 0x0,0xf
0177 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0178 4804 |H | Short_Literal 0x4
0179 60ee |` | Indirect_Literal Discrete,0x268,{0x00007fff, 0xffffffff}
017a e016 | | Load 0x0,0x16
017b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
017c e5ff | | Load 0x2,-0x1
017d e407 | | Load 0x2,0x7
017e e21b | | Load 0x1,0x1b
017f 01d5 | | Execute Vector,Field_Reference
0180 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0181 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0182 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0183 e016 | | Load 0x0,0x16
0184 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0185 c402 | | Store 0x2,0x2
0186 e5fa | | Load 0x2,-0x6
0187 e402 | | Load 0x2,0x2
0188 8222 | " | Call 0x1,0x22
0189 c5fa | | Store 0x2,-0x6
018a 4802 |H | Short_Literal 0x2
018b e5fa | | Load 0x2,-0x6
018c e003 | | Load 0x0,0x3
018d 1817 | | Execute Package,Field_Execute,Field_Number 0x17
018e 6804 |h | Jump_Zero 0x193
018f 00db | | Load_Top At_Offset_3
0190 e008 | | Load 0x0,0x8
0191 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0192 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0193 e407 | | Load 0x2,0x7
0194 e21b | | Load 0x1,0x1b
0195 01d5 | | Execute Vector,Field_Reference
0196 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0197 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0198 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0199 e006 | | Load 0x0,0x6
019a 1817 | | Execute Package,Field_Execute,Field_Number 0x17
019b c404 | | Store 0x2,0x4
019c 4801 |H | Short_Literal 0x1
019d 4800 |H | Short_Literal 0x0
019e 4801 |H | Short_Literal 0x1
019f e404 | | Load 0x2,0x4
01a0 e011 | | Load 0x0,0x11
01a1 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01a2 4800 |H | Short_Literal 0x0
01a3 e407 | | Load 0x2,0x7
01a4 e21b | | Load 0x1,0x1b
01a5 01d5 | | Execute Vector,Field_Reference
01a6 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
01a7 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
01a8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01a9 e006 | | Load 0x0,0x6
01aa 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01ab 4801 |H | Short_Literal 0x1
01ac 4807 |H | Short_Literal 0x7
01ad e407 | | Load 0x2,0x7
01ae e21b | | Load 0x1,0x1b
01af 01d5 | | Execute Vector,Field_Reference
01b0 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
01b1 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
01b2 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
01b3 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01b4 01d6 | | Execute Vector,Field_Write
01b5 60ae |` | Indirect_Literal Discrete,0x264,{0x00000000, 0x00008000}
01b6 00ba | | Action Initiate_Delay
01b7 e407 | | Load 0x2,0x7
01b8 e21b | | Load 0x1,0x1b
01b9 01d5 | | Execute Vector,Field_Reference
01ba 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
01bb e5fc | | Load 0x2,-0x4
01bc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01bd e004 | | Load 0x0,0x4
01be 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
01bf e21d | | Load 0x1,0x1d
01c0 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
01c1 00cf | | Action Mark_Auxiliary
01c2 e407 | | Load 0x2,0x7
01c3 e21b | | Load 0x1,0x1b
01c4 01d5 | | Execute Vector,Field_Reference
01c5 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
01c6 e21f | | Load 0x1,0x1f
01c7 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01c8 e21f | | Load 0x1,0x1f
01c9 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01ca 4606 |F | Jump_Case 0x7
01cb 7813 |x | Jump 0x1df ; case 0x0
01cc 781b |x | Jump 0x1e8 ; case 0x1
01cd 7824 |x$ | Jump 0x1f2 ; case 0x2
01ce 7831 |x1 | Jump 0x200 ; case 0x3
01cf 7847 |xG | Jump 0x217 ; case 0x4
01d0 7832 |x2 | Jump 0x203 ; case 0x5
01d1 7800 |x | Jump 0x1d2 ; case 0x6
01d2 e407 | | Load 0x2,0x7
01d3 e21b | | Load 0x1,0x1b
01d4 01d5 | | Execute Vector,Field_Reference
01d5 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
01d6 480d |H | Short_Literal 0xd
01d7 e5fc | | Load 0x2,-0x4
01d8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01d9 e004 | | Load 0x0,0x4
01da 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
01db 01cb | | Execute Vector,Append
01dc e21d | | Load 0x1,0x1d
01dd 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
01de 784a |xJ | Jump 0x229
01df e5fa | | Load 0x2,-0x6
01e0 4802 |H | Short_Literal 0x2
01e1 0092 06b9 | | Action Push_String_Extended,0x6b9 ; "Disconnected from "
01e3 e5ff | | Load 0x2,-0x1
01e4 01cc | | Execute Vector,Catenate
01e5 8221 | ! | Call 0x1,0x21
01e6 c5fa | | Store 0x2,-0x6
01e7 4506 |E | Exit_Suprogram New_Top_Offset 0x6
01e8 e407 | | Load 0x2,0x7
01e9 e21b | | Load 0x1,0x1b
01ea 01d5 | | Execute Vector,Field_Reference
01eb 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
01ec 480d |H | Short_Literal 0xd
01ed 00db | | Load_Top At_Offset_3
01ee 01cb | | Execute Vector,Append
01ef e21d | | Load 0x1,0x1d
01f0 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
01f1 7837 |x7 | Jump 0x229
01f2 e407 | | Load 0x2,0x7
01f3 e21b | | Load 0x1,0x1b
01f4 01d5 | | Execute Vector,Field_Reference
01f5 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
01f6 480d |H | Short_Literal 0xd
01f7 e5fd | | Load 0x2,-0x3
01f8 01cb | | Execute Vector,Append
01f9 e21d | | Load 0x1,0x1d
01fa 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
01fb 4801 |H | Short_Literal 0x1
01fc 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
01fd 4801 |H | Short_Literal 0x1
01fe a406 | | Store_Unchecked 0x2,0x6
01ff 7829 |x) | Jump 0x229
0200 4801 |H | Short_Literal 0x1
0201 a405 | | Store_Unchecked 0x2,0x5
0202 7828 |x( | Jump 0x22b
0203 4800 |H | Short_Literal 0x0
0204 a406 | | Store_Unchecked 0x2,0x6
0205 00db | | Load_Top At_Offset_3
0206 0a01 | | Execute_Immediate Plus,0x1
0207 c40a | | Store 0x2,0xa
0208 00db | | Load_Top At_Offset_3
0209 0c04 | | Execute_Immediate Greater_Equal,0x4
020a 681e |h | Jump_Zero 0x229
020b e5fa | | Load 0x2,-0x6
020c 4802 |H | Short_Literal 0x2
020d 0092 06ba | | Action Push_String_Extended,0x6ba ; "Unable to login to remote machine "
020f e5ff | | Load 0x2,-0x1
0210 01cc | | Execute Vector,Catenate
0211 0092 06bb | | Action Push_String_Extended,0x6bb ; ". User Authorization Failure"
0213 01cc | | Execute Vector,Catenate
0214 8221 | ! | Call 0x1,0x21
0215 c5fa | | Store 0x2,-0x6
0216 7814 |x | Jump 0x22b
0217 00da | | Load_Top At_Offset_2
0218 6801 |h | Jump_Zero 0x21a
0219 7811 |x | Jump 0x22b
021a e407 | | Load 0x2,0x7
021b e21b | | Load 0x1,0x1b
021c 01d5 | | Execute Vector,Field_Reference
021d 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
021e 4801 |H | Short_Literal 0x1
021f 4801 |H | Short_Literal 0x1
0220 00e9 | | Load_Encached String_Cache
0221 035b | [ | Declare_Type Array,Constrained
0222 0337 | 7 | Declare_Variable Array
0223 480d |H | Short_Literal 0xd
0224 4801 |H | Short_Literal 0x1
0225 00da | | Load_Top At_Offset_2
0226 01d6 | | Execute Vector,Field_Write
0227 e21d | | Load 0x1,0x1d
0228 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0229 00c9 | | Action Pop_Auxiliary_Loop
022a 7f97 | | Jump 0x1c2
022b 00ce | | Action Pop_Auxiliary
022c e406 | | Load 0x2,0x6
022d 680b |h | Jump_Zero 0x239
022e e407 | | Load 0x2,0x7
022f e21b | | Load 0x1,0x1b
0230 01d5 | | Execute Vector,Field_Reference
0231 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0232 e5fc | | Load 0x2,-0x4
0233 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0234 e004 | | Load 0x0,0x4
0235 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0236 e21d | | Load 0x1,0x1d
0237 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0238 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0239 e5fa | | Load 0x2,-0x6
023a 4802 |H | Short_Literal 0x2
023b 0092 06bc | | Action Push_String_Extended,0x6bc ; "Unable to login to remote machine. Unknown Failure"
023d 8221 | ! | Call 0x1,0x21
023e c5fa | | Store 0x2,-0x6
023f 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0240 TRAP_00e8:
0240 e017 | | Load 0x0,0x17
0241 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0242 010f | | Execute Exception,Equal
0243 6809 |h | Jump_Zero 0x24d
0244 e5fa | | Load 0x2,-0x6
0245 4802 |H | Short_Literal 0x2
0246 0092 06bd | | Action Push_String_Extended,0x6bd ; "Undefined Remote Machine Name = "
0248 e5ff | | Load 0x2,-0x1
0249 01cc | | Execute Vector,Catenate
024a 8221 | ! | Call 0x1,0x21
024b c5fa | | Store 0x2,-0x6
024c 4506 |E | Exit_Suprogram New_Top_Offset 0x6
024d e006 | | Load 0x0,0x6
024e 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
024f 010f | | Execute Exception,Equal
0250 6807 |h | Jump_Zero 0x258
0251 e5fa | | Load 0x2,-0x6
0252 4802 |H | Short_Literal 0x2
0253 0092 06be | | Action Push_String_Extended,0x6be ; "No connection found while setting no echo using telnet_protocol.offer"
0255 8221 | ! | Call 0x1,0x21
0256 c5fa | | Store 0x2,-0x6
0257 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0258 e5fa | | Load 0x2,-0x6
0259 4802 |H | Short_Literal 0x2
025a 4800 |H | Short_Literal 0x0
025b 4801 |H | Short_Literal 0x1
025c e018 | | Load 0x0,0x18
025d 1815 | | Execute Package,Field_Execute,Field_Number 0x15
025e 0092 06bf | | Action Push_String_Extended,0x6bf ; " caught in Open_Connection."
0260 01cc | | Execute Vector,Catenate
0261 8221 | ! | Call 0x1,0x21
0262 c5fa | | Store 0x2,-0x6
0263 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0264 0000 0000 | | .LITERAL {0x00000000, 0x00008000}
0268 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
026c 0000 0000 | | .BLANK 0000[0x4]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0278 | x | .CONST 0x0278 ; Address of begin
0271 02aa | | .CONST 0x02aa ; Address of exception handler
0272 0002 | | .CONST 0x0002 ; Number of locals
0273 INIT_0270:
0273 e012 | | Load 0x0,0x12
0274 180e | | Execute Package,Field_Execute,Field_Number 0xe
0275 e013 | | Load 0x0,0x13
0276 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0277 03f1 | | Declare_Variable Discrete,With_Value
0278 BODY_0270:
0278 4800 |H | Short_Literal 0x0
0279 00d9 | | Load_Top At_Offset_1
027a e21b | | Load 0x1,0x1b
027b 01d5 | | Execute Vector,Field_Reference
027c 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
027d 4801 |H | Short_Literal 0x1
027e 00d9 | | Load_Top At_Offset_1
027f e21b | | Load 0x1,0x1b
0280 01d5 | | Execute Vector,Field_Reference
0281 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0282 4800 |H | Short_Literal 0x0
0283 00d9 | | Load_Top At_Offset_1
0284 e21b | | Load 0x1,0x1b
0285 01d5 | | Execute Vector,Field_Reference
0286 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0287 00db | | Load_Top At_Offset_3
0288 00d9 | | Load_Top At_Offset_1
0289 e21b | | Load 0x1,0x1b
028a 01d5 | | Execute Vector,Field_Reference
028b 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
028c 4801 |H | Short_Literal 0x1
028d 00d9 | | Load_Top At_Offset_1
028e e21b | | Load 0x1,0x1b
028f 01d5 | | Execute Vector,Field_Reference
0290 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0291 e5fd | | Load 0x2,-0x3
0292 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0293 00d9 | | Load_Top At_Offset_1
0294 e21b | | Load 0x1,0x1b
0295 01d5 | | Execute Vector,Field_Reference
0296 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0297 e5fd | | Load 0x2,-0x3
0298 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0299 00d1 | | Pop_Control Pop_Count_1
029a e5fd | | Load 0x2,-0x3
029b 8227 | ' | Call 0x1,0x27
029c 00d1 | | Pop_Control Pop_Count_1
029d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
029e 06c0 e5fd | | .XXX[0xc]
02a0 3c01 e002 |< |
02a2 1b0d 011c | |
02a4 1c01 01cc | |
02a6 8221 e5fd | ! |
02a8 3802 4503 |8 E |
02aa TRAP_0270:
02aa e21d | | Load 0x1,0x1d
02ab 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
02ac 010f | | Execute Exception,Equal
02ad 680b |h | Jump_Zero 0x2b9
02ae e5fd | | Load 0x2,-0x3
02af 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02b0 4802 |H | Short_Literal 0x2
02b1 0092 06c1 | | Action Push_String_Extended,0x6c1 ; "Command timed out"
02b3 8221 | ! | Call 0x1,0x21
02b4 e5fd | | Load 0x2,-0x3
02b5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02b6 e21d | | Load 0x1,0x1d
02b7 1817 | | Execute Package,Field_Execute,Field_Number 0x17
02b8 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02b9 0100 | | Execute Exception,Raise
02ba 0000 0000 | | .BLANK 0000[0x6]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3 | | .CONST 0x02c3 ; Address of begin
02c1 02f3 | | .CONST 0x02f3 ; Address of exception handler
02c2 0001 | | .CONST 0x0001 ; Number of locals
02c3 BODY_02c0:
02c3 INIT_02c0:
02c3 00da | | Load_Top At_Offset_2
02c4 e21b | | Load 0x1,0x1b
02c5 01d5 | | Execute Vector,Field_Reference
02c6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02c7 682a |h* | Jump_Zero 0x2f2
02c8 4800 |H | Short_Literal 0x0
02c9 00db | | Load_Top At_Offset_3
02ca e21b | | Load 0x1,0x1b
02cb 01d5 | | Execute Vector,Field_Reference
02cc 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02cd 4800 |H | Short_Literal 0x0
02ce 00db | | Load_Top At_Offset_3
02cf e21b | | Load 0x1,0x1b
02d0 01d5 | | Execute Vector,Field_Reference
02d1 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
02d2 4801 |H | Short_Literal 0x1
02d3 00db | | Load_Top At_Offset_3
02d4 e21b | | Load 0x1,0x1b
02d5 01d5 | | Execute Vector,Field_Reference
02d6 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
02d7 00da | | Load_Top At_Offset_2
02d8 e21b | | Load 0x1,0x1b
02d9 01d5 | | Execute Vector,Field_Reference
02da 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
02db 0092 06c2 | | Action Push_String_Extended,0x6c2 ; "logout"
02dd e21d | | Load 0x1,0x1d
02de 1b41 | A | Execute Package,Field_Read,Field_Number 0x41
02df 01cc | | Execute Vector,Catenate
02e0 e21d | | Load 0x1,0x1d
02e1 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
02e2 00da | | Load_Top At_Offset_2
02e3 e21b | | Load 0x1,0x1b
02e4 01d5 | | Execute Vector,Field_Reference
02e5 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
02e6 e21d | | Load 0x1,0x1d
02e7 181f | | Execute Package,Field_Execute,Field_Number 0x1f
02e8 e21d | | Load 0x1,0x1d
02e9 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
02ea 00da | | Load_Top At_Offset_2
02eb e21b | | Load 0x1,0x1b
02ec 01d5 | | Execute Vector,Field_Reference
02ed 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02ee 00d8 | | Load_Top At_Offset_0
02ef e008 | | Load 0x0,0x8
02f0 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
02f1 00d2 | | Pop_Control Pop_Count_2
02f2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02f3 TRAP_02c0:
02f3 0007 | | Action Break_Optional
02f4 00db | | Load_Top At_Offset_3
02f5 e21b | | Load 0x1,0x1b
02f6 01d5 | | Execute Vector,Field_Reference
02f7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02f8 00d8 | | Load_Top At_Offset_0
02f9 e008 | | Load 0x0,0x8
02fa 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
02fb 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02fc 0000 0000 | | .BLANK 0000[0x4]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0308 | | .CONST 0x0308 ; Address of begin
0301 0311 | | .CONST 0x0311 ; Address of exception handler
0302 0002 | | .CONST 0x0002 ; Number of locals
0303 INIT_0300:
0303 e012 | | Load 0x0,0x12
0304 180e | | Execute Package,Field_Execute,Field_Number 0xe
0305 e013 | | Load 0x0,0x13
0306 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0307 03f1 | | Declare_Variable Discrete,With_Value
0308 BODY_0300:
0308 00d8 | | Load_Top At_Offset_0
0309 e21b | | Load 0x1,0x1b
030a 01d5 | | Execute Vector,Field_Reference
030b 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
030c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
030d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
030e e006 | | Load 0x0,0x6
030f 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0310 00ca | | Action Exit_Nullary_Function
0311 TRAP_0300:
0311 0007 | | Action Break_Optional
0312 4800 |H | Short_Literal 0x0
0313 00ca | | Action Exit_Nullary_Function
0314 0000 0000 | | .BLANK 0000[0x4]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031b | | .CONST 0x031b ; Address of begin
0319 0004 | | .CONST 0x0004 ; Address of exception handler
031a 0001 | | .CONST 0x0001 ; Number of locals
031b BODY_0318:
031b INIT_0318:
031b 4607 |F | Jump_Case 0x8
031c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
031d 7806 |x | Jump 0x324 ; case 0x1
031e 7809 |x | Jump 0x328 ; case 0x2
031f 780d |x | Jump 0x32d ; case 0x3
0320 7810 |x | Jump 0x331 ; case 0x4
0321 7811 |x | Jump 0x333 ; case 0x5
0322 7812 |x | Jump 0x335 ; case 0x6
0323 7815 |x | Jump 0x339 ; case 0x7
0324 00da | | Load_Top At_Offset_2
0325 0091 06ad | | Action Push_String_Extended_Indexed,0x6ad ; "DISC"
0327 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0328 00db | | Load_Top At_Offset_3
0329 00db | | Load_Top At_Offset_3
032a 00e0 | | Load_Encached Standard_Cache
032b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
032c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
032d 00da | | Load_Top At_Offset_2
032e 00e0 | | Load_Encached Standard_Cache
032f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0330 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0331 00db | | Load_Top At_Offset_3
0332 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0333 00db | | Load_Top At_Offset_3
0334 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0335 e217 | | Load 0x1,0x17
0336 00dc | | Load_Top At_Offset_4
0337 0267 | g | Execute Discrete,Predecessor
0338 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0339 e217 | | Load 0x1,0x17
033a 00dc | | Load_Top At_Offset_4
033b 0268 | h | Execute Discrete,Successor
033c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
033d 0000 0000 | | .XXX[0x3]
033f 0000 | |
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0343 | C | .CONST 0x0343 ; Address of begin
0341 0004 | | .CONST 0x0004 ; Address of exception handler
0342 0001 | | .CONST 0x0001 ; Number of locals
0343 BODY_0340:
0343 INIT_0340:
0343 4608 |F | Jump_Case 0x9
0344 7808 |x | Jump 0x34d ; case 0x0
0345 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0346 7828 |x( | Jump 0x36f ; case 0x2
0347 7827 |x' | Jump 0x36f ; case 0x3
0348 7826 |x& | Jump 0x36f ; case 0x4
0349 7825 |x% | Jump 0x36f ; case 0x5
034a 7824 |x$ | Jump 0x36f ; case 0x6
034b 7823 |x# | Jump 0x36f ; case 0x7
034c 7822 |x" | Jump 0x36f ; case 0x8
034d 4800 |H | Short_Literal 0x0
034e 00db | | Load_Top At_Offset_3
034f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0350 00da | | Load_Top At_Offset_2
0351 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0352 0125 | % | Execute Any,Set_Constraint
0353 00da | | Load_Top At_Offset_2
0354 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0355 1c00 | | Execute_Immediate Run_Utility,0x0
0356 00da | | Load_Top At_Offset_2
0357 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0358 1c00 | | Execute_Immediate Run_Utility,0x0
0359 4800 |H | Short_Literal 0x0
035a 00db | | Load_Top At_Offset_3
035b 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
035c 4801 |H | Short_Literal 0x1
035d 00db | | Load_Top At_Offset_3
035e 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
035f 4800 |H | Short_Literal 0x0
0360 00db | | Load_Top At_Offset_3
0361 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0362 4801 |H | Short_Literal 0x1
0363 00db | | Load_Top At_Offset_3
0364 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0365 4800 |H | Short_Literal 0x0
0366 00db | | Load_Top At_Offset_3
0367 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0368 4801 |H | Short_Literal 0x1
0369 00db | | Load_Top At_Offset_3
036a 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
036b 00da | | Load_Top At_Offset_2
036c 340a |4 | Execute Record,Field_Reference,Field_Number 0xa
036d 1c00 | | Execute_Immediate Run_Utility,0x0
036e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
036f 0869 | i | Execute_Immediate Raise,0x69
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0373 | s | .CONST 0x0373 ; Address of begin
0371 0004 | | .CONST 0x0004 ; Address of exception handler
0372 0001 | | .CONST 0x0001 ; Number of locals
0373 BODY_0370:
0373 INIT_0370:
0373 00d1 | | Pop_Control Pop_Count_1
0374 00da | | Load_Top At_Offset_2
0375 01dc | | Execute Vector,Last
0376 00db | | Load_Top At_Offset_3
0377 01dd | | Execute Vector,First
0378 0263 | c | Execute Discrete,Above_Bound
0379 7006 |p | Jump_Nonzero 0x380
037a 00d8 | | Load_Top At_Offset_0
037b e5ff | | Load 0x2,-0x1
037c 01d5 | | Execute Vector,Field_Reference
037d 1c00 | | Execute_Immediate Run_Utility,0x0
037e 0a01 | | Execute_Immediate Plus,0x1
037f 7ff8 | | Jump 0x378
0380 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0381 0000 0000 | | .BLANK 0000[0x7]
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 03a1 | | .CONST 0x03a1 ; Address of begin
0389 0004 | | .CONST 0x0004 ; Address of exception handler
038a 0007 | | .CONST 0x0007 ; Number of locals
038b INIT_0388:
038b e002 | | Load 0x0,0x2
038c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
038d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
038e e012 | | Load 0x0,0x12
038f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0390 e013 | | Load 0x0,0x13
0391 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0392 03f1 | | Declare_Variable Discrete,With_Value
0393 e215 | | Load 0x1,0x15
0394 0322 | " | Declare_Variable Record
0395 00d9 | | Load_Top At_Offset_1
0396 e21b | | Load 0x1,0x1b
0397 01d5 | | Execute Vector,Field_Reference
0398 340a |4 | Execute Record,Field_Reference,Field_Number 0xa
0399 00d9 | | Load_Top At_Offset_1
039a 017d | } | Execute Record,Structure_Write
039b 029f 0593 | | Declare_Subprogram INIT_0590,For_Call
039d 029f 05a3 | | Declare_Subprogram INIT_05a0,For_Call
039f 029f 05bb | | Declare_Subprogram INIT_05b8,For_Call
03a1 BODY_0388:
03a1 e5ff | | Load 0x2,-0x1
03a2 01db | | Execute Vector,Length
03a3 7002 |p | Jump_Nonzero 0x3a6
03a4 8407 | | Call 0x2,0x7
03a5 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03a6 e5ff | | Load 0x2,-0x1
03a7 01dd | | Execute Vector,First
03a8 e5ff | | Load 0x2,-0x1
03a9 01d7 | | Execute Vector,Field_Read
03aa 00d8 | | Load_Top At_Offset_0
03ab 00e8 | | Load_Encached Character_Cache
03ac 0260 | ` | Execute Discrete,In_Type
03ad 7001 |p | Jump_Nonzero 0x3af
03ae 0801 | | Execute_Immediate Raise,0x1
03af 0f0d | | Execute_Immediate Equal,0xd
03b0 6812 |h | Jump_Zero 0x3c3
03b1 e5ff | | Load 0x2,-0x1
03b2 01db | | Execute Vector,Length
03b3 0c02 | | Execute_Immediate Greater_Equal,0x2
03b4 680d |h | Jump_Zero 0x3c2
03b5 e5ff | | Load 0x2,-0x1
03b6 01dd | | Execute Vector,First
03b7 0a01 | | Execute_Immediate Plus,0x1
03b8 e5ff | | Load 0x2,-0x1
03b9 01d7 | | Execute Vector,Field_Read
03ba 00d8 | | Load_Top At_Offset_0
03bb 00e8 | | Load_Encached Character_Cache
03bc 0260 | ` | Execute Discrete,In_Type
03bd 7001 |p | Jump_Nonzero 0x3bf
03be 0801 | | Execute_Immediate Raise,0x1
03bf 0f0a | | Execute_Immediate Equal,0xa
03c0 6801 |h | Jump_Zero 0x3c2
03c1 8407 | | Call 0x2,0x7
03c2 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03c3 e5fd | | Load 0x2,-0x3
03c4 683d |h= | Jump_Zero 0x402
03c5 e5ff | | Load 0x2,-0x1
03c6 e008 | | Load 0x0,0x8
03c7 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
03c8 8406 | | Call 0x2,0x6
03c9 e403 | | Load 0x2,0x3
03ca e21b | | Load 0x1,0x1b
03cb 01d5 | | Execute Vector,Field_Reference
03cc 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
03cd 6833 |h3 | Jump_Zero 0x401
03ce 00db | | Load_Top At_Offset_3
03cf 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03d0 e404 | | Load 0x2,0x4
03d1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03d2 e403 | | Load 0x2,0x3
03d3 e21b | | Load 0x1,0x1b
03d4 01d5 | | Execute Vector,Field_Reference
03d5 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
03d6 e5ff | | Load 0x2,-0x1
03d7 e008 | | Load 0x0,0x8
03d8 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
03d9 e002 | | Load 0x0,0x2
03da 1819 | | Execute Package,Field_Execute,Field_Number 0x19
03db a402 | | Store_Unchecked 0x2,0x2
03dc e402 | | Load 0x2,0x2
03dd 4603 |F | Jump_Case 0x4
03de 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x0
03df 7815 |x | Jump 0x3f5 ; case 0x1
03e0 7801 |x | Jump 0x3e2 ; case 0x2
03e1 7800 |x | Jump 0x3e2 ; case 0x3
03e2 4801 |H | Short_Literal 0x1
03e3 e403 | | Load 0x2,0x3
03e4 e21b | | Load 0x1,0x1b
03e5 01d5 | | Execute Vector,Field_Reference
03e6 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
03e7 e5ff | | Load 0x2,-0x1
03e8 8405 | | Call 0x2,0x5
03e9 e402 | | Load 0x2,0x2
03ea 8224 | $ | Call 0x1,0x24
03eb e403 | | Load 0x2,0x3
03ec e21b | | Load 0x1,0x1b
03ed 01d5 | | Execute Vector,Field_Reference
03ee 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
03ef 4800 |H | Short_Literal 0x0
03f0 e403 | | Load 0x2,0x3
03f1 e21b | | Load 0x1,0x1b
03f2 01d5 | | Execute Vector,Field_Reference
03f3 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
03f4 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03f5 4801 |H | Short_Literal 0x1
03f6 e403 | | Load 0x2,0x3
03f7 e21b | | Load 0x1,0x1b
03f8 01d5 | | Execute Vector,Field_Reference
03f9 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
03fa e5ff | | Load 0x2,-0x1
03fb 8405 | | Call 0x2,0x5
03fc 4801 |H | Short_Literal 0x1
03fd e403 | | Load 0x2,0x3
03fe e21b | | Load 0x1,0x1b
03ff 01d5 | | Execute Vector,Field_Reference
0400 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0401 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0402 e5fd | | Load 0x2,-0x3
0403 7008 |p | Jump_Nonzero 0x40c
0404 e5fe | | Load 0x2,-0x2
0405 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0406 6805 |h | Jump_Zero 0x40c
0407 e5ff | | Load 0x2,-0x1
0408 e008 | | Load 0x0,0x8
0409 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
040a 8406 | | Call 0x2,0x6
040b 8407 | | Call 0x2,0x7
040c 4504 |E | Exit_Suprogram New_Top_Offset 0x4
040d 0000 0000 | | .XXX[0x3]
040f 0000 | |
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0421 | ! | .CONST 0x0421 ; Address of begin
0411 0004 | | .CONST 0x0004 ; Address of exception handler
0412 0003 | | .CONST 0x0003 ; Number of locals
0413 INIT_0410:
0413 e012 | | Load 0x0,0x12
0414 180e | | Execute Package,Field_Execute,Field_Number 0xe
0415 e013 | | Load 0x0,0x13
0416 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0417 03f1 | | Declare_Variable Discrete,With_Value
0418 e004 | | Load 0x0,0x4
0419 1b0f | | Execute Package,Field_Read,Field_Number 0xf
041a 02c7 | | Declare_Variable Any
041b 00d9 | | Load_Top At_Offset_1
041c e21b | | Load 0x1,0x1b
041d 01d5 | | Execute Vector,Field_Reference
041e 340a |4 | Execute Record,Field_Reference,Field_Number 0xa
041f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0420 a403 | | Store_Unchecked 0x2,0x3
0421 BODY_0410:
0421 e5ff | | Load 0x2,-0x1
0422 4606 |F | Jump_Case 0x7
0423 7812 |x | Jump 0x436 ; case 0x0
0424 7814 |x | Jump 0x439 ; case 0x1
0425 781c |x | Jump 0x442 ; case 0x2
0426 7824 |x$ | Jump 0x44b ; case 0x3
0427 782c |x, | Jump 0x454 ; case 0x4
0428 782f |x/ | Jump 0x458 ; case 0x5
0429 7800 |x | Jump 0x42a ; case 0x6
042a 603d |`= | Indirect_Literal Discrete,0x468,{0x00000000, 0x00004000}
042b e21d | | Load 0x1,0x1d
042c 1820 | | Execute Package,Field_Execute,Field_Number 0x20
042d 00da | | Load_Top At_Offset_2
042e e21b | | Load 0x1,0x1b
042f 01d5 | | Execute Vector,Field_Reference
0430 340a |4 | Execute Record,Field_Reference,Field_Number 0xa
0431 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0432 8225 | % | Call 0x1,0x25
0433 e21d | | Load 0x1,0x1d
0434 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0435 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0436 e21d | | Load 0x1,0x1d
0437 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0438 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0439 602e |`. | Indirect_Literal Discrete,0x468,{0x00000000, 0x00004000}
043a e21d | | Load 0x1,0x1d
043b 1820 | | Execute Package,Field_Execute,Field_Number 0x20
043c 00d9 | | Load_Top At_Offset_1
043d e004 | | Load 0x0,0x4
043e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
043f e21d | | Load 0x1,0x1d
0440 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0441 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0442 6025 |`% | Indirect_Literal Discrete,0x468,{0x00000000, 0x00004000}
0443 e21d | | Load 0x1,0x1d
0444 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0445 00d9 | | Load_Top At_Offset_1
0446 e004 | | Load 0x0,0x4
0447 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0448 e21d | | Load 0x1,0x1d
0449 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
044a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
044b 601c |` | Indirect_Literal Discrete,0x468,{0x00000000, 0x00004000}
044c e21d | | Load 0x1,0x1d
044d 1820 | | Execute Package,Field_Execute,Field_Number 0x20
044e 00d9 | | Load_Top At_Offset_1
044f e004 | | Load 0x0,0x4
0450 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0451 e21d | | Load 0x1,0x1d
0452 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0453 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0454 600f |` | Indirect_Literal Discrete,0x464,{0x00000000, 0x00014000}
0455 e21d | | Load 0x1,0x1d
0456 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0457 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0458 600f |` | Indirect_Literal Discrete,0x468,{0x00000000, 0x00004000}
0459 e21d | | Load 0x1,0x1d
045a 1820 | | Execute Package,Field_Execute,Field_Number 0x20
045b 00d9 | | Load_Top At_Offset_1
045c e004 | | Load 0x0,0x4
045d 181b | | Execute Package,Field_Execute,Field_Number 0x1b
045e e21d | | Load 0x1,0x1d
045f 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0460 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0461 0000 0000 | | .XXX[0x3]
0463 0000 | |
0464 0000 0000 | | .LITERAL {0x00000000, 0x00014000}
0468 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
046c 0000 0000 | | .BLANK 0000[0x4]
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0473 | s | .CONST 0x0473 ; Address of begin
0471 0004 | | .CONST 0x0004 ; Address of exception handler
0472 0001 | | .CONST 0x0001 ; Number of locals
0473 BODY_0470:
0473 INIT_0470:
0473 e5fd | | Load 0x2,-0x3
0474 00db | | Load_Top At_Offset_3
0475 e5fe | | Load 0x2,-0x2
0476 00ea | | Load_Encached Null_String_Cache
0477 e003 | | Load 0x0,0x3
0478 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0479 e003 | | Load 0x0,0x3
047a 181b | | Execute Package,Field_Execute,Field_Number 0x1b
047b c5fd | | Store 0x2,-0x3
047c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
047d 0000 0000 | | .XXX[0x3]
047f 0000 | |
0480 ; --------------------------------------------------------------------------------------
0480 ; SUBPROGRAM
0480 ; --------------------------------------------------------------------------------------
0480 0483 | | .CONST 0x0483 ; Address of begin
0481 0490 | | .CONST 0x0490 ; Address of exception handler
0482 0001 | | .CONST 0x0001 ; Number of locals
0483 BODY_0480:
0483 INIT_0480:
0483 00da | | Load_Top At_Offset_2
0484 680a |h | Jump_Zero 0x48f
0485 00db | | Load_Top At_Offset_3
0486 4802 |H | Short_Literal 0x2
0487 0092 06c3 | | Action Push_String_Extended,0x6c3 ; "Transport Error = "
0489 e5ff | | Load 0x2,-0x1
048a e00f | | Load 0x0,0xf
048b 181a | | Execute Package,Field_Execute,Field_Number 0x1a
048c 01cc | | Execute Vector,Catenate
048d 8221 | ! | Call 0x1,0x21
048e c5fe | | Store 0x2,-0x2
048f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0490 TRAP_0480:
0490 010e | | Execute Exception,Is_Constraint_Error
0491 680b |h | Jump_Zero 0x49d
0492 e5fe | | Load 0x2,-0x2
0493 4802 |H | Short_Literal 0x2
0494 0092 06c4 | | Action Push_String_Extended,0x6c4 ; "Unknown Transport Status = "
0496 e5ff | | Load 0x2,-0x1
0497 00e0 | | Load_Encached Standard_Cache
0498 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0499 01cc | | Execute Vector,Catenate
049a 8221 | ! | Call 0x1,0x21
049b c5fe | | Store 0x2,-0x2
049c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
049d 0100 | | Execute Exception,Raise
049e 0000 0000 | | .XXX[0x2]
04a0 ; --------------------------------------------------------------------------------------
04a0 ; SUBPROGRAM
04a0 ; --------------------------------------------------------------------------------------
04a0 04c2 | | .CONST 0x04c2 ; Address of begin
04a1 0004 | | .CONST 0x0004 ; Address of exception handler
04a2 0003 | | .CONST 0x0003 ; Number of locals
04a3 INIT_04a0:
04a3 e002 | | Load 0x0,0x2
04a4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04a5 0266 | f | Execute Discrete,Bounds
04a6 e003 | | Load 0x0,0x3
04a7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04a8 02a0 | | Declare_Subprogram Null_Subprogram
04a9 4801 |H | Short_Literal 0x1
04aa 035d | ] | Declare_Type Array,Defined
04ab 00d8 | | Load_Top At_Offset_0
04ac 0337 | 7 | Declare_Variable Array
04ad 00d8 | | Load_Top At_Offset_0
04ae 0335 | 5 | Declare_Variable Array,Duplicate
04af 00cd | | Action Spare6_Action
04b0 4800 |H | Short_Literal 0x0
04b1 4800 |H | Short_Literal 0x0
04b2 00da | | Load_Top At_Offset_2
04b3 01d6 | | Execute Vector,Field_Write
04b4 4801 |H | Short_Literal 0x1
04b5 4801 |H | Short_Literal 0x1
04b6 00da | | Load_Top At_Offset_2
04b7 01d6 | | Execute Vector,Field_Write
04b8 4802 |H | Short_Literal 0x2
04b9 4802 |H | Short_Literal 0x2
04ba 00da | | Load_Top At_Offset_2
04bb 01d6 | | Execute Vector,Field_Write
04bc 4803 |H | Short_Literal 0x3
04bd 4803 |H | Short_Literal 0x3
04be 00da | | Load_Top At_Offset_2
04bf 01d6 | | Execute Vector,Field_Write
04c0 00d9 | | Load_Top At_Offset_1
04c1 01d4 | | Execute Vector,Structure_Write
04c2 BODY_04a0:
04c2 e5ff | | Load 0x2,-0x1
04c3 00d9 | | Load_Top At_Offset_1
04c4 01d7 | | Execute Vector,Field_Read
04c5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04c6 0000 0000 | | .XXX[0x2]
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04cb | | .CONST 0x04cb ; Address of begin
04c9 0004 | | .CONST 0x0004 ; Address of exception handler
04ca 0001 | | .CONST 0x0001 ; Number of locals
04cb BODY_04c8:
04cb INIT_04c8:
04cb 00da | | Load_Top At_Offset_2
04cc 0f04 | | Execute_Immediate Equal,0x4
04cd 6803 |h | Jump_Zero 0x4d1
04ce 0092 06c5 | | Action Push_String_Extended,0x6c5 ; "TERMINAL IDENTIFICATION NUMBER\x0d\x0a\x0d\x0a"
04d0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04d1 00ea | | Load_Encached Null_String_Cache
04d2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04d3 0000 0000 | | .BLANK 0000[0x5]
04d8 ; --------------------------------------------------------------------------------------
04d8 ; SUBPROGRAM
04d8 ; --------------------------------------------------------------------------------------
04d8 04db | | .CONST 0x04db ; Address of begin
04d9 0004 | | .CONST 0x0004 ; Address of exception handler
04da 0001 | | .CONST 0x0001 ; Number of locals
04db BODY_04d8:
04db INIT_04d8:
04db 00db | | Load_Top At_Offset_3
04dc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04dd 0f04 | | Execute_Immediate Equal,0x4
04de 681a |h | Jump_Zero 0x4f9
04df 00da | | Load_Top At_Offset_2
04e0 01db | | Execute Vector,Length
04e1 0c02 | | Execute_Immediate Greater_Equal,0x2
04e2 6816 |h | Jump_Zero 0x4f9
04e3 00da | | Load_Top At_Offset_2
04e4 01dc | | Execute Vector,Last
04e5 00db | | Load_Top At_Offset_3
04e6 01d7 | | Execute Vector,Field_Read
04e7 0f30 | 0 | Execute_Immediate Equal,0x30
04e8 6810 |h | Jump_Zero 0x4f9
04e9 00da | | Load_Top At_Offset_2
04ea 01dd | | Execute Vector,First
04eb 00db | | Load_Top At_Offset_3
04ec 01dc | | Execute Vector,Last
04ed 0aff | | Execute_Immediate Plus,-0x1
04ee 00d8 | | Load_Top At_Offset_0
04ef 00e2 | | Load_Encached Integer_Cache
04f0 0260 | ` | Execute Discrete,In_Type
04f1 7001 |p | Jump_Nonzero 0x4f3
04f2 0801 | | Execute_Immediate Raise,0x1
04f3 e5ff | | Load 0x2,-0x1
04f4 01cf | | Execute Vector,Slice_Read
04f5 0092 06c6 | | Action Push_String_Extended,0x6c6 ; "1"
04f7 01cc | | Execute Vector,Catenate
04f8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
04f9 00da | | Load_Top At_Offset_2
04fa 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
04fb 0000 0000 | | .BLANK 0000[0x5]
0500 ; --------------------------------------------------------------------------------------
0500 ; SUBPROGRAM
0500 ; --------------------------------------------------------------------------------------
0500 050a | | .CONST 0x050a ; Address of begin
0501 0004 | | .CONST 0x0004 ; Address of exception handler
0502 0003 | | .CONST 0x0003 ; Number of locals
0503 INIT_0500:
0503 e012 | | Load 0x0,0x12
0504 180e | | Execute Package,Field_Execute,Field_Number 0xe
0505 e013 | | Load 0x0,0x13
0506 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0507 03f1 | | Declare_Variable Discrete,With_Value
0508 00e2 | | Load_Encached Integer_Cache
0509 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
050a BODY_0500:
050a 00d9 | | Load_Top At_Offset_1
050b e21b | | Load 0x1,0x1b
050c 01d5 | | Execute Vector,Field_Reference
050d 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
050e 480d |H | Short_Literal 0xd
050f e5ff | | Load 0x2,-0x1
0510 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0511 e001 | | Load 0x0,0x1
0512 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0513 01cb | | Execute Vector,Append
0514 e21d | | Load 0x1,0x1d
0515 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0516 4801 |H | Short_Literal 0x1
0517 00da | | Load_Top At_Offset_2
0518 e21b | | Load 0x1,0x1b
0519 01d5 | | Execute Vector,Field_Reference
051a 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
051b 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
051c 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
051d 605a |`Z | Indirect_Literal Discrete,0x578,{0x00000000, 0x1c200000}
051e 00da | | Load_Top At_Offset_2
051f e21b | | Load 0x1,0x1b
0520 01d5 | | Execute Vector,Field_Reference
0521 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0522 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0523 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0524 00cf | | Action Mark_Auxiliary
0525 00da | | Load_Top At_Offset_2
0526 e21b | | Load 0x1,0x1b
0527 01d5 | | Execute Vector,Field_Reference
0528 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0529 4801 |H | Short_Literal 0x1
052a 4802 |H | Short_Literal 0x2
052b e21f | | Load 0x1,0x1f
052c 1b14 | | Execute Package,Field_Read,Field_Number 0x14
052d 0334 | 4 | Declare_Variable Array,With_Constraint
052e 4803 |H | Short_Literal 0x3
052f 4801 |H | Short_Literal 0x1
0530 00da | | Load_Top At_Offset_2
0531 01d6 | | Execute Vector,Field_Write
0532 4804 |H | Short_Literal 0x4
0533 4802 |H | Short_Literal 0x2
0534 00da | | Load_Top At_Offset_2
0535 01d6 | | Execute Vector,Field_Write
0536 e21f | | Load 0x1,0x1f
0537 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0538 0f03 | | Execute_Immediate Equal,0x3
0539 7011 |p | Jump_Nonzero 0x54b
053a 00d9 | | Load_Top At_Offset_1
053b 0a01 | | Execute_Immediate Plus,0x1
053c 005a | Z | Store_Top Discrete,At_Offset_2
053d 00d9 | | Load_Top At_Offset_1
053e 0c97 | | Execute_Immediate Greater_Equal,-0x69
053f 682a |h* | Jump_Zero 0x56a
0540 4800 |H | Short_Literal 0x0
0541 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0542 00da | | Load_Top At_Offset_2
0543 e21b | | Load 0x1,0x1b
0544 01d5 | | Execute Vector,Field_Reference
0545 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0546 0092 06c7 | | Action Push_String_Extended,0x6c7 ; "\x0d\x0d"
0548 e21d | | Load 0x1,0x1d
0549 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
054a 781f |x | Jump 0x56a
054b 00da | | Load_Top At_Offset_2
054c e21b | | Load 0x1,0x1b
054d 01d5 | | Execute Vector,Field_Reference
054e 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
054f 6819 |h | Jump_Zero 0x569
0550 e5ff | | Load 0x2,-0x1
0551 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0552 00db | | Load_Top At_Offset_3
0553 e21b | | Load 0x1,0x1b
0554 01d5 | | Execute Vector,Field_Reference
0555 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0556 4801 |H | Short_Literal 0x1
0557 e402 | | Load 0x2,0x2
0558 e21b | | Load 0x1,0x1b
0559 01d5 | | Execute Vector,Field_Reference
055a 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
055b 0aff | | Execute_Immediate Plus,-0x1
055c e402 | | Load 0x2,0x2
055d e21b | | Load 0x1,0x1b
055e 01d5 | | Execute Vector,Field_Reference
055f 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0560 01cf | | Execute Vector,Slice_Read
0561 8221 | ! | Call 0x1,0x21
0562 e5ff | | Load 0x2,-0x1
0563 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0564 4800 |H | Short_Literal 0x0
0565 00db | | Load_Top At_Offset_3
0566 e21b | | Load 0x1,0x1b
0567 01d5 | | Execute Vector,Field_Reference
0568 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0569 4501 |E | Exit_Suprogram New_Top_Offset 0x1
056a 4800 |H | Short_Literal 0x0
056b 00db | | Load_Top At_Offset_3
056c e21b | | Load 0x1,0x1b
056d 01d5 | | Execute Vector,Field_Reference
056e 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
056f 4801 |H | Short_Literal 0x1
0570 00db | | Load_Top At_Offset_3
0571 e21b | | Load 0x1,0x1b
0572 01d5 | | Execute Vector,Field_Reference
0573 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0574 00c9 | | Action Pop_Auxiliary_Loop
0575 7faf | | Jump 0x525
0576 0000 0000 | | .XXX[0x2]
0578 0000 0000 | | .LITERAL {0x00000000, 0x1c200000}
057c 0000 0000 | | .BLANK 0000[0x4]
0580 ; --------------------------------------------------------------------------------------
0580 ; SUBPROGRAM
0580 ; --------------------------------------------------------------------------------------
0580 0588 | | .CONST 0x0588 ; Address of begin
0581 0004 | | .CONST 0x0004 ; Address of exception handler
0582 0002 | | .CONST 0x0002 ; Number of locals
0583 INIT_0580:
0583 e012 | | Load 0x0,0x12
0584 180e | | Execute Package,Field_Execute,Field_Number 0xe
0585 e013 | | Load 0x0,0x13
0586 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0587 03f1 | | Declare_Variable Discrete,With_Value
0588 BODY_0580:
0588 00d8 | | Load_Top At_Offset_0
0589 e21b | | Load 0x1,0x1b
058a 01d5 | | Execute Vector,Field_Reference
058b 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
058c e5ff | | Load 0x2,-0x1
058d e21d | | Load 0x1,0x1d
058e 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
058f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0590 ; --------------------------------------------------------------------------------------
0590 ; SUBPROGRAM
0590 ; --------------------------------------------------------------------------------------
0590 0595 | | .CONST 0x0595 ; Address of begin
0591 0004 | | .CONST 0x0004 ; Address of exception handler
0592 0002 | | .CONST 0x0002 ; Number of locals
0593 INIT_0590:
0593 029f 05d3 | | Declare_Subprogram INIT_05d0,For_Call
0595 BODY_0590:
0595 e403 | | Load 0x2,0x3
0596 e21b | | Load 0x1,0x1b
0597 01d5 | | Execute Vector,Field_Reference
0598 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0599 6801 |h | Jump_Zero 0x59b
059a 8602 | | Call 0x3,0x2
059b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
059c 0000 0000 | | .BLANK 0000[0x4]
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 e403 | | Load 0x2,0x3
05a4 e21b | | Load 0x1,0x1b
05a5 01d5 | | Execute Vector,Field_Reference
05a6 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
05a7 6809 |h | Jump_Zero 0x5b1
05a8 e403 | | Load 0x2,0x3
05a9 e21b | | Load 0x1,0x1b
05aa 01d5 | | Execute Vector,Field_Reference
05ab 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
05ac 4800 |H | Short_Literal 0x0
05ad e7ff | | Load 0x3,-0x1
05ae e220 | | Load 0x1,0x20
05af 180e | | Execute Package,Field_Execute,Field_Number 0xe
05b0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05b1 e014 | | Load 0x0,0x14
05b2 180e | | Execute Package,Field_Execute,Field_Number 0xe
05b3 4801 |H | Short_Literal 0x1
05b4 e7ff | | Load 0x3,-0x1
05b5 e015 | | Load 0x0,0x15
05b6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05b7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05b8 ; --------------------------------------------------------------------------------------
05b8 ; SUBPROGRAM
05b8 ; --------------------------------------------------------------------------------------
05b8 05bb | | .CONST 0x05bb ; Address of begin
05b9 0004 | | .CONST 0x0004 ; Address of exception handler
05ba 0001 | | .CONST 0x0001 ; Number of locals
05bb BODY_05b8:
05bb INIT_05b8:
05bb e403 | | Load 0x2,0x3
05bc e21b | | Load 0x1,0x1b
05bd 01d5 | | Execute Vector,Field_Reference
05be 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
05bf 6808 |h | Jump_Zero 0x5c8
05c0 e403 | | Load 0x2,0x3
05c1 e21b | | Load 0x1,0x1b
05c2 01d5 | | Execute Vector,Field_Reference
05c3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
05c4 4801 |H | Short_Literal 0x1
05c5 00ea | | Load_Encached Null_String_Cache
05c6 e220 | | Load 0x1,0x20
05c7 180e | | Execute Package,Field_Execute,Field_Number 0xe
05c8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
05c9 0000 0000 | | .BLANK 0000[0x7]
05d0 ; --------------------------------------------------------------------------------------
05d0 ; SUBPROGRAM
05d0 ; --------------------------------------------------------------------------------------
05d0 05d9 | | .CONST 0x05d9 ; Address of begin
05d1 0004 | | .CONST 0x0004 ; Address of exception handler
05d2 0002 | | .CONST 0x0002 ; Number of locals
05d3 INIT_05d0:
05d3 480d |H | Short_Literal 0xd
05d4 e7ff | | Load 0x3,-0x1
05d5 e008 | | Load 0x0,0x8
05d6 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
05d7 e019 | | Load 0x0,0x19
05d8 181a | | Execute Package,Field_Execute,Field_Number 0x1a
05d9 BODY_05d0:
05d9 e403 | | Load 0x2,0x3
05da e21b | | Load 0x1,0x1b
05db 01d5 | | Execute Vector,Field_Reference
05dc 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
05dd 00d9 | | Load_Top At_Offset_1
05de 01db | | Execute Vector,Length
05df 0273 | s | Execute Discrete,Plus
05e0 e403 | | Load 0x2,0x3
05e1 e21b | | Load 0x1,0x1b
05e2 01d5 | | Execute Vector,Field_Reference
05e3 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
05e4 01db | | Execute Vector,Length
05e5 027d | } | Execute Discrete,Greater
05e6 6806 |h | Jump_Zero 0x5ed
05e7 4800 |H | Short_Literal 0x0
05e8 e403 | | Load 0x2,0x3
05e9 e21b | | Load 0x1,0x1b
05ea 01d5 | | Execute Vector,Field_Reference
05eb 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
05ec 4501 |E | Exit_Suprogram New_Top_Offset 0x1
05ed 00d8 | | Load_Top At_Offset_0
05ee 01db | | Execute Vector,Length
05ef 6822 |h" | Jump_Zero 0x612
05f0 00d8 | | Load_Top At_Offset_0
05f1 e403 | | Load 0x2,0x3
05f2 e21b | | Load 0x1,0x1b
05f3 01d5 | | Execute Vector,Field_Reference
05f4 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
05f5 e403 | | Load 0x2,0x3
05f6 e21b | | Load 0x1,0x1b
05f7 01d5 | | Execute Vector,Field_Reference
05f8 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
05f9 00db | | Load_Top At_Offset_3
05fa 01db | | Execute Vector,Length
05fb 0273 | s | Execute Discrete,Plus
05fc 0aff | | Execute_Immediate Plus,-0x1
05fd 00d8 | | Load_Top At_Offset_0
05fe 00e2 | | Load_Encached Integer_Cache
05ff 0260 | ` | Execute Discrete,In_Type
0600 7001 |p | Jump_Nonzero 0x602
0601 0801 | | Execute_Immediate Raise,0x1
0602 e403 | | Load 0x2,0x3
0603 e21b | | Load 0x1,0x1b
0604 01d5 | | Execute Vector,Field_Reference
0605 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0606 01ce | | Execute Vector,Slice_Write
0607 e403 | | Load 0x2,0x3
0608 e21b | | Load 0x1,0x1b
0609 01d5 | | Execute Vector,Field_Reference
060a 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
060b 00d9 | | Load_Top At_Offset_1
060c 01db | | Execute Vector,Length
060d 0273 | s | Execute Discrete,Plus
060e e403 | | Load 0x2,0x3
060f e21b | | Load 0x1,0x1b
0610 01d5 | | Execute Vector,Field_Reference
0611 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0612 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0613 0000 0000 | | .BLANK 0000[0x5]
0618 ; --------------------------------------------------------------------------------------
0618 ; SUBPROGRAM
0618 ; --------------------------------------------------------------------------------------
0618 061b | | .CONST 0x061b ; Address of begin
0619 0004 | | .CONST 0x0004 ; Address of exception handler
061a 0001 | | .CONST 0x0001 ; Number of locals
061b BODY_0618:
061b INIT_0618:
061b 4608 |F | Jump_Case 0x9
061c 7808 |x | Jump 0x625 ; case 0x0
061d 7814 |x | Jump 0x632 ; case 0x1
061e 7817 |x | Jump 0x636 ; case 0x2
061f 7816 |x | Jump 0x636 ; case 0x3
0620 7815 |x | Jump 0x636 ; case 0x4
0621 7814 |x | Jump 0x636 ; case 0x5
0622 7813 |x | Jump 0x636 ; case 0x6
0623 7812 |x | Jump 0x636 ; case 0x7
0624 7811 |x | Jump 0x636 ; case 0x8
0625 00da | | Load_Top At_Offset_2
0626 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0627 0125 | % | Execute Any,Set_Constraint
0628 00da | | Load_Top At_Offset_2
0629 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
062a 1c00 | | Execute_Immediate Run_Utility,0x0
062b 00da | | Load_Top At_Offset_2
062c 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
062d 0125 | % | Execute Any,Set_Constraint
062e 00da | | Load_Top At_Offset_2
062f 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0630 1c00 | | Execute_Immediate Run_Utility,0x0
0631 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0632 00da | | Load_Top At_Offset_2
0633 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0634 0125 | % | Execute Any,Set_Constraint
0635 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0636 0869 | i | Execute_Immediate Raise,0x69
0637 0000 | | .XXX[0x1]
0638 ; --------------------------------------------------------------------------------------
0638 ; SUBPROGRAM
0638 ; --------------------------------------------------------------------------------------
0638 063b | ; | .CONST 0x063b ; Address of begin
0639 0004 | | .CONST 0x0004 ; Address of exception handler
063a 0001 | | .CONST 0x0001 ; Number of locals
063b BODY_0638:
063b INIT_0638:
063b 4608 |F | Jump_Case 0x9
063c 7808 |x | Jump 0x645 ; case 0x0
063d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
063e 780d |x | Jump 0x64c ; case 0x2
063f 780c |x | Jump 0x64c ; case 0x3
0640 780b |x | Jump 0x64c ; case 0x4
0641 780a |x | Jump 0x64c ; case 0x5
0642 7809 |x | Jump 0x64c ; case 0x6
0643 7808 |x | Jump 0x64c ; case 0x7
0644 7807 |x | Jump 0x64c ; case 0x8
0645 00da | | Load_Top At_Offset_2
0646 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0647 0125 | % | Execute Any,Set_Constraint
0648 00da | | Load_Top At_Offset_2
0649 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
064a 1c00 | | Execute_Immediate Run_Utility,0x0
064b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
064c 0869 | i | Execute_Immediate Raise,0x69
064d 0000 0000 | | .XXX[0x3]
064f 0000 | |
0650 ; --------------------------------------------------------------------------------------
0650 ; SUBPROGRAM
0650 ; --------------------------------------------------------------------------------------
0650 0660 | ` | .CONST 0x0660 ; Address of begin
0651 0004 | | .CONST 0x0004 ; Address of exception handler
0652 000f | | .CONST 0x000f ; Number of locals
0653 INIT_0650:
0653 4803 |H | Short_Literal 0x3
0654 02cb | | Declare_Variable Entry
0655 00bf | | Action Accept_Activation
0656 029d 066b | k| Declare_Subprogram INIT_0668,For_Outer_Call
0658 480d 48d2 |H H | Declare_Variable Select 0x000, 0x001,
065a 4800 4801 |H H | [0x000]: 0x001 = 0x0008,
065c 4800 4801 |H H | [0x00d]: 0x0d2 = 0x0690
065e 02cf | |
065f 00bc | | Action Signal_Activated
0660 BODY_0650:
0660 00cf | | Action Mark_Auxiliary
0661 00d9 | | Load_Top At_Offset_1
0662 013f | ? | Execute Select,Rendezvous
0663 00d1 | | Pop_Control Pop_Count_1
0664 00c9 | | Action Pop_Auxiliary_Loop
0665 7ffb | | Jump 0x661
0666 0000 0000 | | .XXX[0x2]
0668 ; --------------------------------------------------------------------------------------
0668 ; SUBPROGRAM
0668 ; --------------------------------------------------------------------------------------
0668 066f | o | .CONST 0x066f ; Address of begin
0669 0004 | | .CONST 0x0004 ; Address of exception handler
066a 0003 | | .CONST 0x0003 ; Number of locals
066b INIT_0668:
066b e001 | | Load 0x0,0x1
066c 1b19 | | Execute Package,Field_Read,Field_Number 0x19
066d 029f 06a3 | | Declare_Subprogram INIT_06a0,For_Call
066f BODY_0668:
066f e5fd | | Load 0x2,-0x3
0670 e002 | | Load 0x0,0x2
0671 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0672 c5fd | | Store 0x2,-0x3
0673 00cf | | Action Mark_Auxiliary
0674 4800 |H | Short_Literal 0x0
0675 48ff |H | Short_Literal 0xff
0676 0007 | | Action Break_Optional
0677 00d8 | | Load_Top At_Offset_0
0678 a5fe | | Store_Unchecked 0x2,-0x2
0679 00d8 | | Load_Top At_Offset_0
067a e003 | | Load 0x0,0x3
067b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
067c 6808 |h | Jump_Zero 0x685
067d 00d8 | | Load_Top At_Offset_0
067e e004 | | Load 0x0,0x4
067f 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0680 e004 | | Load 0x0,0x4
0681 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0682 027e | ~ | Execute Discrete,Not_Equal
0683 6801 |h | Jump_Zero 0x685
0684 8403 | | Call 0x2,0x3
0685 00c8 | | Action Pop_Auxiliary_Range
0686 37f0 |7 | Loop_Decreasing 0x677
0687 00ce | | Action Pop_Auxiliary
0688 e5fd | | Load 0x2,-0x3
0689 4802 |H | Short_Literal 0x2
068a 0092 06c8 | | Action Push_String_Extended,0x6c8 ; "Unable to find a free telnet port"
068c 8005 | | Call 0x0,0x5
068d c5fd | | Store 0x2,-0x3
068e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
068f 0000 | | .XXX[0x1]
0690 ; --------------------------------------------------------------------------------------
0690 ; SUBPROGRAM
0690 ; See instruction 0x02cf at 0x658, index=0xd
0690 ; --------------------------------------------------------------------------------------
0690 0693 | | .CONST 0x0693 ; Address of begin
0691 0004 | | .CONST 0x0004 ; Address of exception handler
0692 0001 | | .CONST 0x0001 ; Number of locals
0693 BODY_0690:
0693 INIT_0690:
0693 e5fc | | Load 0x2,-0x4
0694 e006 | | Load 0x0,0x6
0695 e5fe | | Load 0x2,-0x2
0696 820e | | Call 0x1,0xe
0697 00d1 | | Pop_Control Pop_Count_1
0698 c5fd | | Store 0x2,-0x3
0699 c5fc | | Store 0x2,-0x4
069a 4103 |A | End_Rendezvous 0x3
069b 0000 0000 | | .BLANK 0000[0x5]
06a0 ; --------------------------------------------------------------------------------------
06a0 ; SUBPROGRAM
06a0 ; --------------------------------------------------------------------------------------
06a0 06a3 | | .CONST 0x06a3 ; Address of begin
06a1 06ab | | .CONST 0x06ab ; Address of exception handler
06a2 0001 | | .CONST 0x0001 ; Number of locals
06a3 BODY_06a0:
06a3 INIT_06a0:
06a3 e5ff | | Load 0x2,-0x1
06a4 e007 | | Load 0x0,0x7
06a5 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
06a6 e406 | | Load 0x2,0x6
06a7 e007 | | Load 0x0,0x7
06a8 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
06a9 00cc | | Action Pop_Block
06aa 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06ab TRAP_06a0:
06ab 0007 | | Action Break_Optional
06ac 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06ad ; --------------------------------------------------------------------------------------
06ad ; STRING TABLE
06ad ; --------------------------------------------------------------------------------------
06ad 003a | : | .STRTAB 0x003a->0x06ca ; "DISC"
06ae 003c | < | .STRTAB 0x003c->0x06cc ; "USERNAME_PROMPT"
06af 0049 | I | .STRTAB 0x0049->0x06d3 ; "PASSWORD_PROMPT"
06b0 0056 | V | .STRTAB 0x0056->0x06db ; "COMMAND_PROMPT"
06b1 0062 | b | .STRTAB 0x0062->0x06e2 ; "TIMEOUT"
06b2 0067 | g | .STRTAB 0x0067->0x06e5 ; "PASSWORD_FAILURE"
06b3 0075 | u | .STRTAB 0x0075->0x06ed ; "PRE_USERNAME_PROMPT"
06b4 0086 | | .STRTAB 0x0086->0x06f7 ; " "
06b5 0085 | | .STRTAB 0x0085->0x06f7 ; "Session"
06b6 008a | | .STRTAB 0x008a->0x06fb ; "Acquiring TELNET connection to "
06b7 00a7 | | .STRTAB 0x00a7->0x070a ; " via port "
06b8 00af | | .STRTAB 0x00af->0x070f ; "Could not connect to "
06b9 00c2 | | .STRTAB 0x00c2->0x071a ; "Disconnected from "
06ba 00d2 | | .STRTAB 0x00d2->0x0723 ; "Unable to login to remote machine "
06bb 00f2 | | .STRTAB 0x00f2->0x0734 ; ". User Authorization Failure"
06bc 010d | | .STRTAB 0x010d->0x0742 ; "Unable to login to remote machine. Unknown Failure"
06bd 013e | > | .STRTAB 0x013e->0x075c ; "Undefined Remote Machine Name = "
06be 015c | \ | .STRTAB 0x015c->0x076c ; "No connection found while setting no echo using telnet_protocol.offer"
06bf 019f | | .STRTAB 0x019f->0x078e ; " caught in Open_Connection."
06c0 01b8 | | .STRTAB 0x01b8->0x079c ; "Unimplemented Command Type = "
06c1 01d3 | | .STRTAB 0x01d3->0x07aa ; "Command timed out"
06c2 01e2 | | .STRTAB 0x01e2->0x07b3 ; "logout"
06c3 01e6 | | .STRTAB 0x01e6->0x07b6 ; "Transport Error = "
06c4 01f7 | | .STRTAB 0x01f7->0x07bf ; "Unknown Transport Status = "
06c5 0210 | | .STRTAB 0x0210->0x07cd ; "TERMINAL IDENTIFICATION NUMBER\x0d\x0a\x0d\x0a"
06c6 0230 | 0 | .STRTAB 0x0230->0x07de ; "1"
06c7 022f | / | .STRTAB 0x022f->0x07de ; "\x0d\x0d"
06c8 022f | / | .STRTAB 0x022f->0x07df ; "Unable to find a free telnet port"
06c9 024e | N | .STREND 0x024e->0x07f0
06ca 4449 5343 |DISC| .STRTAB_STRINGS
07f0 ; --------------------------------------------------------------------------------------
07f0 ; Debug Table
07f0 ; --------------------------------------------------------------------------------------
07f0 0004 000d | | .DEBUG4 0x0004,0x000d,0xf868,0x0000,0x0001,0x0000
07f6 0000 0000 | | .BLANK 0000[0xa]