|
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]