|
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_6a18da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0720 | | .CONST 0x0720 ; 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 0x5a8, index=0x0
0008 ; --------------------------------------------------------------------------------------
0008 00ac | | .CONST 0x00ac ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0025 | % | .CONST 0x0025 ; 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 056b | k| Declare_Subprogram INIT_0568,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 00b3 | | Declare_Subprogram INIT_00b0,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 058b | | Declare_Subprogram INIT_0588,For_Call
002d 4802 |H | Short_Literal 0x2
002e 032e | . | Declare_Type Record,Defined,Visible
002f c215 | | Store 0x1,0x15
0030 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
0032 c216 | | Store 0x1,0x16
0033 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated
0035 c210 | | Store 0x1,0x10
0036 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated
0038 c211 | | Store 0x1,0x11
0039 029a 02bb | | Declare_Subprogram INIT_02b8,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 02d3 | | Declare_Subprogram INIT_02d0,For_Call
0041 03fd | | Declare_Type Discrete,Defined
0042 00e1 | | Load_Encached Boolean_Cache
0043 e006 | | Load 0x0,0x6
0044 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0045 e007 | | Load 0x0,0x7
0046 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
0047 00e1 | | Load_Encached Boolean_Cache
0048 e002 | | Load 0x0,0x2
0049 1b0d | | Execute Package,Field_Read,Field_Number 0xd
004a e003 | | Load 0x0,0x3
004b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
004c 4801 |H | Short_Literal 0x1
004d 6086 |` | Indirect_Literal Discrete,0xd4,{0x00000000, 0x00000400}
004e 00e9 | | Load_Encached String_Cache
004f 035b | [ | Declare_Type Array,Constrained
0050 00e3 | | Load_Encached Natural_Cache
0051 00e1 | | Load_Encached Boolean_Cache
0052 00e1 | | Load_Encached Boolean_Cache
0053 e215 | | Load 0x1,0x15
0054 029f 02fb | | Declare_Subprogram INIT_02f8,For_Call
0056 480b |H | Short_Literal 0xb
0057 032d | - | Declare_Type Record,Defined
0058 4800 |H | Short_Literal 0x0
0059 48ff |H | Short_Literal 0xff
005a 00da | | Load_Top At_Offset_2
005b 029f 032b | +| Declare_Subprogram INIT_0328,For_Call
005d 4801 |H | Short_Literal 0x1
005e 035d | ] | Declare_Type Array,Defined
005f 00d8 | | Load_Top At_Offset_0
0060 0337 | 7 | Declare_Variable Array
0061 00d8 | | Load_Top At_Offset_0
0062 1c00 | | Execute_Immediate Run_Utility,0x0
0063 029b 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call,Unelaborated
0065 e008 | | Load 0x0,0x8
0066 e009 | | Load 0x0,0x9
0067 48e0 |H | Short_Literal 0xe0
0068 e007 | | Load 0x0,0x7
0069 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
006a 4801 |H | Short_Literal 0x1
006b 4948 |IH | Short_Literal 0x148
006c 4804 |H | Short_Literal 0x4
006d 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
006e e007 | | Load 0x0,0x7
006f 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c
0070 0387 | | Declare_Variable Package
0071 00d8 | | Load_Top At_Offset_0
0072 020f | | Execute Module,Activate
0073 029b 03cb | | Declare_Subprogram INIT_03c8,For_Outer_Call,Unelaborated
0075 e00a | | Load 0x0,0xa
0076 e00b | | Load 0x0,0xb
0077 e217 | | Load 0x1,0x17
0078 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0079 e21c | | Load 0x1,0x1c
007a 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f
007b 0387 | | Declare_Variable Package
007c 00d8 | | Load_Top At_Offset_0
007d 020f | | Execute Module,Activate
007e 4800 |H | Short_Literal 0x0
007f e00c | | Load 0x0,0xc
0080 02a0 | | Declare_Subprogram Null_Subprogram
0081 038e | | Declare_Type Package,Defined
0082 0387 | | Declare_Variable Package
0083 e00d | | Load 0x0,0xd
0084 4801 |H | Short_Literal 0x1
0085 00da | | Load_Top At_Offset_2
0086 020e | | Execute Module,Augment_Imports
0087 00d8 | | Load_Top At_Offset_0
0088 020f | | Execute Module,Activate
0089 4800 |H | Short_Literal 0x0
008a 0093 05a3 | | push_full_address INIT_05a0
008c 00f5 | | Load_Encached Unused21
008d 037d | } | Declare_Type Task,Defined
008e 036f | o | Declare_Variable Task
008f e00e | | Load 0x0,0xe
0090 e00f | | Load 0x0,0xf
0091 e007 | | Load 0x0,0x7
0092 4803 |H | Short_Literal 0x3
0093 e220 | | Load 0x1,0x20
0094 020e | | Execute Module,Augment_Imports
0095 0007 | | Action Break_Optional
0096 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0097 00c7 | | Action Elaborate_Subprogram
0098 029d 042b | +| Declare_Subprogram INIT_0428,For_Outer_Call
009a 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
009b 00c7 | | Action Elaborate_Subprogram
009c 029d 043b | ;| Declare_Subprogram INIT_0438,For_Outer_Call
009e 029d 044b | K| Declare_Subprogram INIT_0448,For_Outer_Call
00a0 1d16 | | Execute_Immediate Reference_Lex_1,0x16
00a1 00c7 | | Action Elaborate_Subprogram
00a2 029d 046b | k| Declare_Subprogram INIT_0468,For_Outer_Call
00a4 1d10 | | Execute_Immediate Reference_Lex_1,0x10
00a5 00c7 | | Action Elaborate_Subprogram
00a6 1d11 | | Execute_Immediate Reference_Lex_1,0x11
00a7 00c7 | | Action Elaborate_Subprogram
00a8 029d 04d3 | | Declare_Subprogram INIT_04d0,For_Outer_Call
00aa 1d12 | | Execute_Immediate Reference_Lex_1,0x12
00ab 00c7 | | Action Elaborate_Subprogram
00ac BODY_0008:
00ac BODY_0008:
00ac 00be | | Action Activate_Tasks
00ad 00bc | | Action Signal_Activated
00ae 00bb | | Action Signal_Completion
00af 0000 | | .XXX[0x1]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 4605 |F | Jump_Case 0x6
00b4 7804 |x | Jump 0xb9 ; case 0x0
00b5 7810 |x | Jump 0xc6 ; case 0x1
00b6 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
00b7 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
00b8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
00b9 00da | | Load_Top At_Offset_2 ; case 0x5
00ba 01dc | | Execute Vector,Last
00bb 00db | | Load_Top At_Offset_3
00bc 01dd | | Execute Vector,First
00bd 0263 | c | Execute Discrete,Above_Bound
00be 7006 |p | Jump_Nonzero 0xc5
00bf 00d8 | | Load_Top At_Offset_0
00c0 e5ff | | Load 0x2,-0x1
00c1 01d5 | | Execute Vector,Field_Reference
00c2 1c00 | | Execute_Immediate Run_Utility,0x0
00c3 0a01 | | Execute_Immediate Plus,0x1
00c4 7ff8 | | Jump 0xbd
00c5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
00c6 00da | | Load_Top At_Offset_2
00c7 01dc | | Execute Vector,Last
00c8 00db | | Load_Top At_Offset_3
00c9 01dd | | Execute Vector,First
00ca 0263 | c | Execute Discrete,Above_Bound
00cb 7006 |p | Jump_Nonzero 0xd2
00cc 00d8 | | Load_Top At_Offset_0
00cd e5ff | | Load 0x2,-0x1
00ce 01d7 | | Execute Vector,Field_Read
00cf 1c01 | | Execute_Immediate Run_Utility,0x1
00d0 0a01 | | Execute_Immediate Plus,0x1
00d1 7ff8 | | Jump 0xca
00d2 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
00d3 0000 | | .XXX[0x1]
00d4 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00f4 | | .CONST 0x00f4 ; Address of begin
00d9 01f8 | | .CONST 0x01f8 ; Address of exception handler
00da 000a | | .CONST 0x000a ; Number of locals
00db INIT_00d8:
00db e010 | | Load 0x0,0x10
00dc 1b19 | | Execute Package,Field_Read,Field_Number 0x19
00dd 00e1 | | Load_Encached Boolean_Cache
00de 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00df 00e1 | | Load_Encached Boolean_Cache
00e0 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
00e1 e011 | | Load 0x0,0x11
00e2 180e | | Execute Package,Field_Execute,Field_Number 0xe
00e3 e012 | | Load 0x0,0x12
00e4 1b15 | | Execute Package,Field_Read,Field_Number 0x15
00e5 03f1 | | Declare_Variable Discrete,With_Value
00e6 00e1 | | Load_Encached Boolean_Cache
00e7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00e8 e013 | | Load 0x0,0x13
00e9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ea 06e0 | | Execute_Immediate Set_Value_Unchecked,0xe0
00eb e007 | | Load 0x0,0x7
00ec 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
00ed 0322 | " | Declare_Variable Record
00ee 00d8 | | Load_Top At_Offset_0
00ef 1c00 | | Execute_Immediate Run_Utility,0x0
00f0 00e3 | | Load_Encached Natural_Cache
00f1 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00f2 00e1 | | Load_Encached Boolean_Cache
00f3 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00f4 BODY_00d8:
00f4 4800 |H | Short_Literal 0x0
00f5 e405 | | Load 0x2,0x5
00f6 e21a | | Load 0x1,0x1a
00f7 01d5 | | Execute Vector,Field_Reference
00f8 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
00f9 4801 |H | Short_Literal 0x1
00fa e405 | | Load 0x2,0x5
00fb e21a | | Load 0x1,0x1a
00fc 01d5 | | Execute Vector,Field_Reference
00fd 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
00fe e5fb | | Load 0x2,-0x5
00ff e405 | | Load 0x2,0x5
0100 e21a | | Load 0x1,0x1a
0101 01d5 | | Execute Vector,Field_Reference
0102 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0103 4801 |H | Short_Literal 0x1
0104 e405 | | Load 0x2,0x5
0105 e21a | | Load 0x1,0x1a
0106 01d5 | | Execute Vector,Field_Reference
0107 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0108 e5fc | | Load 0x2,-0x4
0109 e405 | | Load 0x2,0x5
010a e21a | | Load 0x1,0x1a
010b 01d5 | | Execute Vector,Field_Reference
010c 380a |8 | Execute Record,Field_Write,Field_Number 0xa
010d e405 | | Load 0x2,0x5
010e e21a | | Load 0x1,0x1a
010f 01d5 | | Execute Vector,Field_Reference
0110 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0111 6818 |h | Jump_Zero 0x12a
0112 e405 | | Load 0x2,0x5
0113 e21a | | Load 0x1,0x1a
0114 01d5 | | Execute Vector,Field_Reference
0115 00d8 | | Load_Top At_Offset_0
0116 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0117 e5ff | | Load 0x2,-0x1
0118 0092 05fa | | Action Push_String_Extended,0x5fa ; " "
011a 01cc | | Execute Vector,Catenate
011b e5fc | | Load 0x2,-0x4
011c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
011d e005 | | Load 0x0,0x5
011e 1b14 | | Execute Package,Field_Read,Field_Number 0x14
011f 011c | | Execute Any,Convert_Unchecked
0120 1c01 | | Execute_Immediate Run_Utility,0x1
0121 01cc | | Execute Vector,Catenate
0122 0092 05fb | | Action Push_String_Extended,0x5fb ; "Session"
0124 01cc | | Execute Vector,Catenate
0125 e21f | | Load 0x1,0x1f
0126 180d | | Execute Package,Field_Execute,Field_Number 0xd
0127 00d9 | | Load_Top At_Offset_1
0128 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0129 00d1 | | Pop_Control Pop_Count_1
012a 00e1 | | Load_Encached Boolean_Cache
012b e407 | | Load 0x2,0x7
012c e408 | | Load 0x2,0x8
012d 4803 |H | Short_Literal 0x3
012e e220 | | Load 0x1,0x20
012f 170d | | Execute Task,Entry_Call,Field_Number 0xd
0130 00d1 | | Pop_Control Pop_Count_1
0131 c407 | | Store 0x2,0x7
0132 c406 | | Store 0x2,0x6
0133 e406 | | Load 0x2,0x6
0134 6818 |h | Jump_Zero 0x14d
0135 00da | | Load_Top At_Offset_2
0136 e405 | | Load 0x2,0x5
0137 e21a | | Load 0x1,0x1a
0138 01d5 | | Execute Vector,Field_Reference
0139 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
013a 4948 |IH | Short_Literal 0x148
013b e405 | | Load 0x2,0x5
013c e21a | | Load 0x1,0x1a
013d 01d5 | | Execute Vector,Field_Reference
013e 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
013f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0140 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0141 e00e | | Load 0x0,0xe
0142 180e | | Execute Package,Field_Execute,Field_Number 0xe
0143 4802 |H | Short_Literal 0x2
0144 0092 05fc | | Action Push_String_Extended,0x5fc ; "Connecting to target via Telnet Port "
0146 e407 | | Load 0x2,0x7
0147 00e0 | | Load_Encached Standard_Cache
0148 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0149 01cc | | Execute Vector,Catenate
014a e00f | | Load 0x0,0xf
014b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
014c 7802 |x | Jump 0x14f
014d e014 | | Load 0x0,0x14
014e 0257 | W | Execute Discrete,Raise
014f e010 | | Load 0x0,0x10
0150 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0151 4804 |H | Short_Literal 0x4
0152 60cd |` | Indirect_Literal Discrete,0x220,{0x00007fff, 0xffffffff}
0153 e015 | | Load 0x0,0x15
0154 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0155 e5ff | | Load 0x2,-0x1
0156 e405 | | Load 0x2,0x5
0157 e21a | | Load 0x1,0x1a
0158 01d5 | | Execute Vector,Field_Reference
0159 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
015a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
015b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
015c e015 | | Load 0x0,0x15
015d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
015e c402 | | Store 0x2,0x2
015f e5fa | | Load 0x2,-0x6
0160 e402 | | Load 0x2,0x2
0161 8223 | # | Call 0x1,0x23
0162 c5fa | | Store 0x2,-0x6
0163 4802 |H | Short_Literal 0x2
0164 e5fa | | Load 0x2,-0x6
0165 e003 | | Load 0x0,0x3
0166 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0167 6801 |h | Jump_Zero 0x169
0168 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0169 4800 |H | Short_Literal 0x0
016a e405 | | Load 0x2,0x5
016b e21a | | Load 0x1,0x1a
016c 01d5 | | Execute Vector,Field_Reference
016d 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
016e 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
016f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0170 e016 | | Load 0x0,0x16
0171 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0172 4801 |H | Short_Literal 0x1
0173 4807 |H | Short_Literal 0x7
0174 e405 | | Load 0x2,0x5
0175 e21a | | Load 0x1,0x1a
0176 01d5 | | Execute Vector,Field_Reference
0177 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0178 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0179 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
017a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
017b 01d6 | | Execute Vector,Field_Write
017c 609f |` | Indirect_Literal Discrete,0x21c,{0x00000000, 0x00008000}
017d 00ba | | Action Initiate_Delay
017e e405 | | Load 0x2,0x5
017f e21a | | Load 0x1,0x1a
0180 01d5 | | Execute Vector,Field_Reference
0181 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0182 e5fc | | Load 0x2,-0x4
0183 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0184 e004 | | Load 0x0,0x4
0185 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0186 e21c | | Load 0x1,0x1c
0187 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0188 00cf | | Action Mark_Auxiliary
0189 e405 | | Load 0x2,0x5
018a e21a | | Load 0x1,0x1a
018b 01d5 | | Execute Vector,Field_Reference
018c 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
018d e21e | | Load 0x1,0x1e
018e 181b | | Execute Package,Field_Execute,Field_Number 0x1b
018f e21e | | Load 0x1,0x1e
0190 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0191 4606 |F | Jump_Case 0x7
0192 7813 |x | Jump 0x1a6 ; case 0x0
0193 781b |x | Jump 0x1af ; case 0x1
0194 7824 |x$ | Jump 0x1b9 ; case 0x2
0195 7831 |x1 | Jump 0x1c7 ; case 0x3
0196 7847 |xG | Jump 0x1de ; case 0x4
0197 7832 |x2 | Jump 0x1ca ; case 0x5
0198 7800 |x | Jump 0x199 ; case 0x6
0199 e405 | | Load 0x2,0x5
019a e21a | | Load 0x1,0x1a
019b 01d5 | | Execute Vector,Field_Reference
019c 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
019d 480d |H | Short_Literal 0xd
019e e5fc | | Load 0x2,-0x4
019f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01a0 e004 | | Load 0x0,0x4
01a1 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
01a2 01cb | | Execute Vector,Append
01a3 e21c | | Load 0x1,0x1c
01a4 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
01a5 783b |x; | Jump 0x1e1
01a6 e5fa | | Load 0x2,-0x6
01a7 4802 |H | Short_Literal 0x2
01a8 0092 05fd | | Action Push_String_Extended,0x5fd ; "Disconnected from "
01aa e5ff | | Load 0x2,-0x1
01ab 01cc | | Execute Vector,Catenate
01ac 8222 | " | Call 0x1,0x22
01ad c5fa | | Store 0x2,-0x6
01ae 4506 |E | Exit_Suprogram New_Top_Offset 0x6
01af e405 | | Load 0x2,0x5
01b0 e21a | | Load 0x1,0x1a
01b1 01d5 | | Execute Vector,Field_Reference
01b2 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
01b3 480d |H | Short_Literal 0xd
01b4 e5fe | | Load 0x2,-0x2
01b5 01cb | | Execute Vector,Append
01b6 e21c | | Load 0x1,0x1c
01b7 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
01b8 7828 |x( | Jump 0x1e1
01b9 e405 | | Load 0x2,0x5
01ba e21a | | Load 0x1,0x1a
01bb 01d5 | | Execute Vector,Field_Reference
01bc 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
01bd 480d |H | Short_Literal 0xd
01be e5fd | | Load 0x2,-0x3
01bf 01cb | | Execute Vector,Append
01c0 e21c | | Load 0x1,0x1c
01c1 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
01c2 4801 |H | Short_Literal 0x1
01c3 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
01c4 4801 |H | Short_Literal 0x1
01c5 a404 | | Store_Unchecked 0x2,0x4
01c6 781a |x | Jump 0x1e1
01c7 4801 |H | Short_Literal 0x1
01c8 a403 | | Store_Unchecked 0x2,0x3
01c9 7819 |x | Jump 0x1e3
01ca 4800 |H | Short_Literal 0x0
01cb a404 | | Store_Unchecked 0x2,0x4
01cc 00da | | Load_Top At_Offset_2
01cd 0a01 | | Execute_Immediate Plus,0x1
01ce 005b | [ | Store_Top Discrete,At_Offset_3
01cf 00da | | Load_Top At_Offset_2
01d0 0c03 | | Execute_Immediate Greater_Equal,0x3
01d1 680f |h | Jump_Zero 0x1e1
01d2 e5fa | | Load 0x2,-0x6
01d3 4802 |H | Short_Literal 0x2
01d4 0092 05fe | | Action Push_String_Extended,0x5fe ; "Unable to login to remote machine "
01d6 e5ff | | Load 0x2,-0x1
01d7 01cc | | Execute Vector,Catenate
01d8 0092 05ff | | Action Push_String_Extended,0x5ff ; ". User Authorization Failure"
01da 01cc | | Execute Vector,Catenate
01db 8222 | " | Call 0x1,0x22
01dc c5fa | | Store 0x2,-0x6
01dd 7805 |x | Jump 0x1e3
01de 00d9 | | Load_Top At_Offset_1
01df 6801 |h | Jump_Zero 0x1e1
01e0 7802 |x | Jump 0x1e3
01e1 00c9 | | Action Pop_Auxiliary_Loop
01e2 7fa6 | | Jump 0x189
01e3 00ce | | Action Pop_Auxiliary
01e4 e404 | | Load 0x2,0x4
01e5 680b |h | Jump_Zero 0x1f1
01e6 e405 | | Load 0x2,0x5
01e7 e21a | | Load 0x1,0x1a
01e8 01d5 | | Execute Vector,Field_Reference
01e9 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
01ea e5fc | | Load 0x2,-0x4
01eb 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01ec e004 | | Load 0x0,0x4
01ed 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
01ee e21c | | Load 0x1,0x1c
01ef 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
01f0 4506 |E | Exit_Suprogram New_Top_Offset 0x6
01f1 e5fa | | Load 0x2,-0x6
01f2 4802 |H | Short_Literal 0x2
01f3 0092 0600 | | Action Push_String_Extended,0x600 ; "Unable to login to remote machine. Unknown Failure"
01f5 8222 | " | Call 0x1,0x22
01f6 c5fa | | Store 0x2,-0x6
01f7 4506 |E | Exit_Suprogram New_Top_Offset 0x6
01f8 TRAP_00d8:
01f8 e014 | | Load 0x0,0x14
01f9 010f | | Execute Exception,Equal
01fa 6807 |h | Jump_Zero 0x202
01fb e5fa | | Load 0x2,-0x6
01fc 4802 |H | Short_Literal 0x2
01fd 0092 0601 | | Action Push_String_Extended,0x601 ; "Unable to find a free telnet port. Try again later."
01ff 8222 | " | Call 0x1,0x22
0200 c5fa | | Store 0x2,-0x6
0201 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0202 e017 | | Load 0x0,0x17
0203 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0204 010f | | Execute Exception,Equal
0205 6809 |h | Jump_Zero 0x20f
0206 e5fa | | Load 0x2,-0x6
0207 4802 |H | Short_Literal 0x2
0208 0092 0602 | | Action Push_String_Extended,0x602 ; "Undefined Remote Machine Name = "
020a e5ff | | Load 0x2,-0x1
020b 01cc | | Execute Vector,Catenate
020c 8222 | " | Call 0x1,0x22
020d c5fa | | Store 0x2,-0x6
020e 4506 |E | Exit_Suprogram New_Top_Offset 0x6
020f e5fa | | Load 0x2,-0x6
0210 4802 |H | Short_Literal 0x2
0211 4800 |H | Short_Literal 0x0
0212 4801 |H | Short_Literal 0x1
0213 e018 | | Load 0x0,0x18
0214 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0215 0092 0603 | | Action Push_String_Extended,0x603 ; " caught in Open_Connection."
0217 01cc | | Execute Vector,Catenate
0218 8222 | " | Call 0x1,0x22
0219 c5fa | | Store 0x2,-0x6
021a 4506 |E | Exit_Suprogram New_Top_Offset 0x6
021b 0000 | | .XXX[0x1]
021c 0000 0000 | | .LITERAL {0x00000000, 0x00008000}
0220 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
0224 0000 0000 | | .BLANK 0000[0x4]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 0230 | 0 | .CONST 0x0230 ; Address of begin
0229 0262 | b | .CONST 0x0262 ; Address of exception handler
022a 0002 | | .CONST 0x0002 ; Number of locals
022b INIT_0228:
022b e011 | | Load 0x0,0x11
022c 180e | | Execute Package,Field_Execute,Field_Number 0xe
022d e012 | | Load 0x0,0x12
022e 1b15 | | Execute Package,Field_Read,Field_Number 0x15
022f 03f1 | | Declare_Variable Discrete,With_Value
0230 BODY_0228:
0230 4800 |H | Short_Literal 0x0
0231 00d9 | | Load_Top At_Offset_1
0232 e21a | | Load 0x1,0x1a
0233 01d5 | | Execute Vector,Field_Reference
0234 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0235 4801 |H | Short_Literal 0x1
0236 00d9 | | Load_Top At_Offset_1
0237 e21a | | Load 0x1,0x1a
0238 01d5 | | Execute Vector,Field_Reference
0239 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
023a 4800 |H | Short_Literal 0x0
023b 00d9 | | Load_Top At_Offset_1
023c e21a | | Load 0x1,0x1a
023d 01d5 | | Execute Vector,Field_Reference
023e 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
023f 00db | | Load_Top At_Offset_3
0240 00d9 | | Load_Top At_Offset_1
0241 e21a | | Load 0x1,0x1a
0242 01d5 | | Execute Vector,Field_Reference
0243 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0244 4801 |H | Short_Literal 0x1
0245 00d9 | | Load_Top At_Offset_1
0246 e21a | | Load 0x1,0x1a
0247 01d5 | | Execute Vector,Field_Reference
0248 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0249 e5fd | | Load 0x2,-0x3
024a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
024b 00d9 | | Load_Top At_Offset_1
024c e21a | | Load 0x1,0x1a
024d 01d5 | | Execute Vector,Field_Reference
024e 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
024f e5fd | | Load 0x2,-0x3
0250 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0251 00d1 | | Pop_Control Pop_Count_1
0252 e5fd | | Load 0x2,-0x3
0253 8224 | $ | Call 0x1,0x24
0254 00d1 | | Pop_Control Pop_Count_1
0255 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0256 0604 e5fd | | .XXX[0xc]
0258 3c01 e002 |< |
025a 1b0d 011c | |
025c 1c01 01cc | |
025e 8222 e5fd | " |
0260 3802 4503 |8 E |
0262 TRAP_0228:
0262 e21c | | Load 0x1,0x1c
0263 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
0264 010f | | Execute Exception,Equal
0265 680b |h | Jump_Zero 0x271
0266 e5fd | | Load 0x2,-0x3
0267 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0268 4802 |H | Short_Literal 0x2
0269 0092 0605 | | Action Push_String_Extended,0x605 ; "Command timed out"
026b 8222 | " | Call 0x1,0x22
026c e5fd | | Load 0x2,-0x3
026d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
026e e21c | | Load 0x1,0x1c
026f 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0270 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0271 0100 | | Execute Exception,Raise
0272 0000 0000 | | .BLANK 0000[0x6]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b | { | .CONST 0x027b ; Address of begin
0279 02ab | | .CONST 0x02ab ; Address of exception handler
027a 0001 | | .CONST 0x0001 ; Number of locals
027b BODY_0278:
027b INIT_0278:
027b 00da | | Load_Top At_Offset_2
027c e21a | | Load 0x1,0x1a
027d 01d5 | | Execute Vector,Field_Reference
027e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
027f 682a |h* | Jump_Zero 0x2aa
0280 4800 |H | Short_Literal 0x0
0281 00db | | Load_Top At_Offset_3
0282 e21a | | Load 0x1,0x1a
0283 01d5 | | Execute Vector,Field_Reference
0284 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0285 4800 |H | Short_Literal 0x0
0286 00db | | Load_Top At_Offset_3
0287 e21a | | Load 0x1,0x1a
0288 01d5 | | Execute Vector,Field_Reference
0289 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
028a 4801 |H | Short_Literal 0x1
028b 00db | | Load_Top At_Offset_3
028c e21a | | Load 0x1,0x1a
028d 01d5 | | Execute Vector,Field_Reference
028e 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
028f 00da | | Load_Top At_Offset_2
0290 e21a | | Load 0x1,0x1a
0291 01d5 | | Execute Vector,Field_Reference
0292 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0293 0092 0606 | | Action Push_String_Extended,0x606 ; "logout"
0295 e21c | | Load 0x1,0x1c
0296 1b41 | A | Execute Package,Field_Read,Field_Number 0x41
0297 01cc | | Execute Vector,Catenate
0298 e21c | | Load 0x1,0x1c
0299 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
029a 00da | | Load_Top At_Offset_2
029b e21a | | Load 0x1,0x1a
029c 01d5 | | Execute Vector,Field_Reference
029d 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
029e e21c | | Load 0x1,0x1c
029f 181f | | Execute Package,Field_Execute,Field_Number 0x1f
02a0 e21c | | Load 0x1,0x1c
02a1 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
02a2 00da | | Load_Top At_Offset_2
02a3 e21a | | Load 0x1,0x1a
02a4 01d5 | | Execute Vector,Field_Reference
02a5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02a6 00d8 | | Load_Top At_Offset_0
02a7 e007 | | Load 0x0,0x7
02a8 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
02a9 00d2 | | Pop_Control Pop_Count_2
02aa 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02ab TRAP_0278:
02ab 0007 | | Action Break_Optional
02ac 00db | | Load_Top At_Offset_3
02ad e21a | | Load 0x1,0x1a
02ae 01d5 | | Execute Vector,Field_Reference
02af 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02b0 00d8 | | Load_Top At_Offset_0
02b1 e007 | | Load 0x0,0x7
02b2 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
02b3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02b4 0000 0000 | | .BLANK 0000[0x4]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02c0 | | .CONST 0x02c0 ; Address of begin
02b9 02c9 | | .CONST 0x02c9 ; Address of exception handler
02ba 0002 | | .CONST 0x0002 ; Number of locals
02bb INIT_02b8:
02bb e011 | | Load 0x0,0x11
02bc 180e | | Execute Package,Field_Execute,Field_Number 0xe
02bd e012 | | Load 0x0,0x12
02be 1b15 | | Execute Package,Field_Read,Field_Number 0x15
02bf 03f1 | | Declare_Variable Discrete,With_Value
02c0 BODY_02b8:
02c0 00d8 | | Load_Top At_Offset_0
02c1 e21a | | Load 0x1,0x1a
02c2 01d5 | | Execute Vector,Field_Reference
02c3 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
02c4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02c5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02c6 e016 | | Load 0x0,0x16
02c7 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02c8 00ca | | Action Exit_Nullary_Function
02c9 TRAP_02b8:
02c9 0007 | | Action Break_Optional
02ca 4800 |H | Short_Literal 0x0
02cb 00ca | | Action Exit_Nullary_Function
02cc 0000 0000 | | .BLANK 0000[0x4]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d3 | | .CONST 0x02d3 ; Address of begin
02d1 0004 | | .CONST 0x0004 ; Address of exception handler
02d2 0001 | | .CONST 0x0001 ; Number of locals
02d3 BODY_02d0:
02d3 INIT_02d0:
02d3 4607 |F | Jump_Case 0x8
02d4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
02d5 7806 |x | Jump 0x2dc ; case 0x1
02d6 7809 |x | Jump 0x2e0 ; case 0x2
02d7 780d |x | Jump 0x2e5 ; case 0x3
02d8 7810 |x | Jump 0x2e9 ; case 0x4
02d9 7811 |x | Jump 0x2eb ; case 0x5
02da 7812 |x | Jump 0x2ed ; case 0x6
02db 7815 |x | Jump 0x2f1 ; case 0x7
02dc 00da | | Load_Top At_Offset_2
02dd 0091 05f3 | | Action Push_String_Extended_Indexed,0x5f3 ; "DISC"
02df 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
02e0 00db | | Load_Top At_Offset_3
02e1 00db | | Load_Top At_Offset_3
02e2 00e0 | | Load_Encached Standard_Cache
02e3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02e4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02e5 00da | | Load_Top At_Offset_2
02e6 00e0 | | Load_Encached Standard_Cache
02e7 181c | | Execute Package,Field_Execute,Field_Number 0x1c
02e8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
02e9 00db | | Load_Top At_Offset_3
02ea 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02eb 00db | | Load_Top At_Offset_3
02ec 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02ed e217 | | Load 0x1,0x17
02ee 00dc | | Load_Top At_Offset_4
02ef 0267 | g | Execute Discrete,Predecessor
02f0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02f1 e217 | | Load 0x1,0x17
02f2 00dc | | Load_Top At_Offset_4
02f3 0268 | h | Execute Discrete,Successor
02f4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02f5 0000 0000 | | .XXX[0x3]
02f7 0000 | |
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02fb | | .CONST 0x02fb ; Address of begin
02f9 0004 | | .CONST 0x0004 ; Address of exception handler
02fa 0001 | | .CONST 0x0001 ; Number of locals
02fb BODY_02f8:
02fb INIT_02f8:
02fb 4608 |F | Jump_Case 0x9
02fc 7808 |x | Jump 0x305 ; case 0x0
02fd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
02fe 7828 |x( | Jump 0x327 ; case 0x2
02ff 7827 |x' | Jump 0x327 ; case 0x3
0300 7826 |x& | Jump 0x327 ; case 0x4
0301 7825 |x% | Jump 0x327 ; case 0x5
0302 7824 |x$ | Jump 0x327 ; case 0x6
0303 7823 |x# | Jump 0x327 ; case 0x7
0304 7822 |x" | Jump 0x327 ; case 0x8
0305 4800 |H | Short_Literal 0x0
0306 00db | | Load_Top At_Offset_3
0307 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0308 00da | | Load_Top At_Offset_2
0309 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
030a 0125 | % | Execute Any,Set_Constraint
030b 00da | | Load_Top At_Offset_2
030c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
030d 1c00 | | Execute_Immediate Run_Utility,0x0
030e 00da | | Load_Top At_Offset_2
030f 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0310 1c00 | | Execute_Immediate Run_Utility,0x0
0311 4800 |H | Short_Literal 0x0
0312 00db | | Load_Top At_Offset_3
0313 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0314 4801 |H | Short_Literal 0x1
0315 00db | | Load_Top At_Offset_3
0316 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0317 4800 |H | Short_Literal 0x0
0318 00db | | Load_Top At_Offset_3
0319 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
031a 4801 |H | Short_Literal 0x1
031b 00db | | Load_Top At_Offset_3
031c 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
031d 4800 |H | Short_Literal 0x0
031e 00db | | Load_Top At_Offset_3
031f 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0320 4801 |H | Short_Literal 0x1
0321 00db | | Load_Top At_Offset_3
0322 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0323 00da | | Load_Top At_Offset_2
0324 340a |4 | Execute Record,Field_Reference,Field_Number 0xa
0325 1c00 | | Execute_Immediate Run_Utility,0x0
0326 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0327 0869 | i | Execute_Immediate Raise,0x69
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032b | + | .CONST 0x032b ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 0001 | | .CONST 0x0001 ; Number of locals
032b BODY_0328:
032b INIT_0328:
032b 00d1 | | Pop_Control Pop_Count_1
032c 00da | | Load_Top At_Offset_2
032d 01dc | | Execute Vector,Last
032e 00db | | Load_Top At_Offset_3
032f 01dd | | Execute Vector,First
0330 0263 | c | Execute Discrete,Above_Bound
0331 7006 |p | Jump_Nonzero 0x338
0332 00d8 | | Load_Top At_Offset_0
0333 e5ff | | Load 0x2,-0x1
0334 01d5 | | Execute Vector,Field_Reference
0335 1c00 | | Execute_Immediate Run_Utility,0x0
0336 0a01 | | Execute_Immediate Plus,0x1
0337 7ff8 | | Jump 0x330
0338 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0339 0000 0000 | | .BLANK 0000[0x7]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0359 | Y | .CONST 0x0359 ; Address of begin
0341 0004 | | .CONST 0x0004 ; Address of exception handler
0342 0007 | | .CONST 0x0007 ; Number of locals
0343 INIT_0340:
0343 e002 | | Load 0x0,0x2
0344 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0345 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0346 e011 | | Load 0x0,0x11
0347 180e | | Execute Package,Field_Execute,Field_Number 0xe
0348 e012 | | Load 0x0,0x12
0349 1b15 | | Execute Package,Field_Read,Field_Number 0x15
034a 03f1 | | Declare_Variable Discrete,With_Value
034b e215 | | Load 0x1,0x15
034c 0322 | " | Declare_Variable Record
034d 00d9 | | Load_Top At_Offset_1
034e e21a | | Load 0x1,0x1a
034f 01d5 | | Execute Vector,Field_Reference
0350 340a |4 | Execute Record,Field_Reference,Field_Number 0xa
0351 00d9 | | Load_Top At_Offset_1
0352 017d | } | Execute Record,Structure_Write
0353 029f 04e3 | | Declare_Subprogram INIT_04e0,For_Call
0355 029f 04f3 | | Declare_Subprogram INIT_04f0,For_Call
0357 029f 050b | | Declare_Subprogram INIT_0508,For_Call
0359 BODY_0340:
0359 e5ff | | Load 0x2,-0x1
035a 01db | | Execute Vector,Length
035b 7002 |p | Jump_Nonzero 0x35e
035c 8407 | | Call 0x2,0x7
035d 4504 |E | Exit_Suprogram New_Top_Offset 0x4
035e e5ff | | Load 0x2,-0x1
035f 01dd | | Execute Vector,First
0360 e5ff | | Load 0x2,-0x1
0361 01d7 | | Execute Vector,Field_Read
0362 00d8 | | Load_Top At_Offset_0
0363 00e8 | | Load_Encached Character_Cache
0364 0260 | ` | Execute Discrete,In_Type
0365 7001 |p | Jump_Nonzero 0x367
0366 0801 | | Execute_Immediate Raise,0x1
0367 0f0d | | Execute_Immediate Equal,0xd
0368 6812 |h | Jump_Zero 0x37b
0369 e5ff | | Load 0x2,-0x1
036a 01db | | Execute Vector,Length
036b 0c02 | | Execute_Immediate Greater_Equal,0x2
036c 680d |h | Jump_Zero 0x37a
036d e5ff | | Load 0x2,-0x1
036e 01dd | | Execute Vector,First
036f 0a01 | | Execute_Immediate Plus,0x1
0370 e5ff | | Load 0x2,-0x1
0371 01d7 | | Execute Vector,Field_Read
0372 00d8 | | Load_Top At_Offset_0
0373 00e8 | | Load_Encached Character_Cache
0374 0260 | ` | Execute Discrete,In_Type
0375 7001 |p | Jump_Nonzero 0x377
0376 0801 | | Execute_Immediate Raise,0x1
0377 0f0a | | Execute_Immediate Equal,0xa
0378 6801 |h | Jump_Zero 0x37a
0379 8407 | | Call 0x2,0x7
037a 4504 |E | Exit_Suprogram New_Top_Offset 0x4
037b e5fd | | Load 0x2,-0x3
037c 683c |h< | Jump_Zero 0x3b9
037d e5ff | | Load 0x2,-0x1
037e e007 | | Load 0x0,0x7
037f 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0380 8406 | | Call 0x2,0x6
0381 e403 | | Load 0x2,0x3
0382 e21a | | Load 0x1,0x1a
0383 01d5 | | Execute Vector,Field_Reference
0384 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
0385 6832 |h2 | Jump_Zero 0x3b8
0386 00db | | Load_Top At_Offset_3
0387 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0388 e404 | | Load 0x2,0x4
0389 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
038a e403 | | Load 0x2,0x3
038b e21a | | Load 0x1,0x1a
038c 01d5 | | Execute Vector,Field_Reference
038d 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
038e e5ff | | Load 0x2,-0x1
038f e007 | | Load 0x0,0x7
0390 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0391 e002 | | Load 0x0,0x2
0392 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0393 a402 | | Store_Unchecked 0x2,0x2
0394 e402 | | Load 0x2,0x2
0395 4603 |F | Jump_Case 0x4
0396 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x0
0397 7814 |x | Jump 0x3ac ; case 0x1
0398 7801 |x | Jump 0x39a ; case 0x2
0399 7800 |x | Jump 0x39a ; case 0x3
039a 4801 |H | Short_Literal 0x1
039b e403 | | Load 0x2,0x3
039c e21a | | Load 0x1,0x1a
039d 01d5 | | Execute Vector,Field_Reference
039e 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
039f e5ff | | Load 0x2,-0x1
03a0 8405 | | Call 0x2,0x5
03a1 4802 |H | Short_Literal 0x2
03a2 e403 | | Load 0x2,0x3
03a3 e21a | | Load 0x1,0x1a
03a4 01d5 | | Execute Vector,Field_Reference
03a5 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
03a6 4800 |H | Short_Literal 0x0
03a7 e403 | | Load 0x2,0x3
03a8 e21a | | Load 0x1,0x1a
03a9 01d5 | | Execute Vector,Field_Reference
03aa 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
03ab 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03ac 4801 |H | Short_Literal 0x1
03ad e403 | | Load 0x2,0x3
03ae e21a | | Load 0x1,0x1a
03af 01d5 | | Execute Vector,Field_Reference
03b0 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
03b1 e5ff | | Load 0x2,-0x1
03b2 8405 | | Call 0x2,0x5
03b3 4801 |H | Short_Literal 0x1
03b4 e403 | | Load 0x2,0x3
03b5 e21a | | Load 0x1,0x1a
03b6 01d5 | | Execute Vector,Field_Reference
03b7 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
03b8 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03b9 e5fd | | Load 0x2,-0x3
03ba 7008 |p | Jump_Nonzero 0x3c3
03bb e5fe | | Load 0x2,-0x2
03bc 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
03bd 6805 |h | Jump_Zero 0x3c3
03be e5ff | | Load 0x2,-0x1
03bf e007 | | Load 0x0,0x7
03c0 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
03c1 8406 | | Call 0x2,0x6
03c2 8407 | | Call 0x2,0x7
03c3 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03c4 0000 0000 | | .BLANK 0000[0x4]
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03d9 | | .CONST 0x03d9 ; Address of begin
03c9 0004 | | .CONST 0x0004 ; Address of exception handler
03ca 0003 | | .CONST 0x0003 ; Number of locals
03cb INIT_03c8:
03cb e011 | | Load 0x0,0x11
03cc 180e | | Execute Package,Field_Execute,Field_Number 0xe
03cd e012 | | Load 0x0,0x12
03ce 1b15 | | Execute Package,Field_Read,Field_Number 0x15
03cf 03f1 | | Declare_Variable Discrete,With_Value
03d0 e004 | | Load 0x0,0x4
03d1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03d2 02c7 | | Declare_Variable Any
03d3 00d9 | | Load_Top At_Offset_1
03d4 e21a | | Load 0x1,0x1a
03d5 01d5 | | Execute Vector,Field_Reference
03d6 340a |4 | Execute Record,Field_Reference,Field_Number 0xa
03d7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03d8 a403 | | Store_Unchecked 0x2,0x3
03d9 BODY_03c8:
03d9 e5ff | | Load 0x2,-0x1
03da 4606 |F | Jump_Case 0x7
03db 7812 |x | Jump 0x3ee ; case 0x0
03dc 7814 |x | Jump 0x3f1 ; case 0x1
03dd 781c |x | Jump 0x3fa ; case 0x2
03de 7824 |x$ | Jump 0x403 ; case 0x3
03df 782c |x, | Jump 0x40c ; case 0x4
03e0 782f |x/ | Jump 0x410 ; case 0x5
03e1 7800 |x | Jump 0x3e2 ; case 0x6
03e2 603d |`= | Indirect_Literal Discrete,0x420,{0x00000000, 0x00004000}
03e3 e21c | | Load 0x1,0x1c
03e4 1820 | | Execute Package,Field_Execute,Field_Number 0x20
03e5 00da | | Load_Top At_Offset_2
03e6 e21a | | Load 0x1,0x1a
03e7 01d5 | | Execute Vector,Field_Reference
03e8 340a |4 | Execute Record,Field_Reference,Field_Number 0xa
03e9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03ea 8221 | ! | Call 0x1,0x21
03eb e21c | | Load 0x1,0x1c
03ec 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
03ed 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03ee e21c | | Load 0x1,0x1c
03ef 181f | | Execute Package,Field_Execute,Field_Number 0x1f
03f0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03f1 602e |`. | Indirect_Literal Discrete,0x420,{0x00000000, 0x00004000}
03f2 e21c | | Load 0x1,0x1c
03f3 1820 | | Execute Package,Field_Execute,Field_Number 0x20
03f4 00d9 | | Load_Top At_Offset_1
03f5 e004 | | Load 0x0,0x4
03f6 1818 | | Execute Package,Field_Execute,Field_Number 0x18
03f7 e21c | | Load 0x1,0x1c
03f8 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
03f9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03fa 6025 |`% | Indirect_Literal Discrete,0x420,{0x00000000, 0x00004000}
03fb e21c | | Load 0x1,0x1c
03fc 1820 | | Execute Package,Field_Execute,Field_Number 0x20
03fd 00d9 | | Load_Top At_Offset_1
03fe e004 | | Load 0x0,0x4
03ff 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0400 e21c | | Load 0x1,0x1c
0401 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0402 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0403 601c |` | Indirect_Literal Discrete,0x420,{0x00000000, 0x00004000}
0404 e21c | | Load 0x1,0x1c
0405 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0406 00d9 | | Load_Top At_Offset_1
0407 e004 | | Load 0x0,0x4
0408 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0409 e21c | | Load 0x1,0x1c
040a 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
040b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
040c 600f |` | Indirect_Literal Discrete,0x41c,{0x00000000, 0x00014000}
040d e21c | | Load 0x1,0x1c
040e 1820 | | Execute Package,Field_Execute,Field_Number 0x20
040f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0410 600f |` | Indirect_Literal Discrete,0x420,{0x00000000, 0x00004000}
0411 e21c | | Load 0x1,0x1c
0412 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0413 00d9 | | Load_Top At_Offset_1
0414 e004 | | Load 0x0,0x4
0415 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0416 e21c | | Load 0x1,0x1c
0417 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0418 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0419 0000 0000 | | .XXX[0x3]
041b 0000 | |
041c 0000 0000 | | .LITERAL {0x00000000, 0x00014000}
0420 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0424 0000 0000 | | .BLANK 0000[0x4]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 042b | + | .CONST 0x042b ; Address of begin
0429 0004 | | .CONST 0x0004 ; Address of exception handler
042a 0001 | | .CONST 0x0001 ; Number of locals
042b BODY_0428:
042b INIT_0428:
042b 00da | | Load_Top At_Offset_2
042c 0f04 | | Execute_Immediate Equal,0x4
042d 6803 |h | Jump_Zero 0x431
042e 0092 0607 | | Action Push_String_Extended,0x607 ; "TERMINAL IDENTIFICATION NUMBER\x0d\x0a\x0d\x0a"
0430 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0431 00ea | | Load_Encached Null_String_Cache
0432 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0433 0000 0000 | | .BLANK 0000[0x5]
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 043b | ; | .CONST 0x043b ; Address of begin
0439 0004 | | .CONST 0x0004 ; Address of exception handler
043a 0001 | | .CONST 0x0001 ; Number of locals
043b BODY_0438:
043b INIT_0438:
043b e5fd | | Load 0x2,-0x3
043c 00db | | Load_Top At_Offset_3
043d e5fe | | Load 0x2,-0x2
043e 00ea | | Load_Encached Null_String_Cache
043f e003 | | Load 0x0,0x3
0440 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0441 e003 | | Load 0x0,0x3
0442 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0443 c5fd | | Store 0x2,-0x3
0444 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0445 0000 0000 | | .XXX[0x3]
0447 0000 | |
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 044b | K | .CONST 0x044b ; Address of begin
0449 0458 | X | .CONST 0x0458 ; Address of exception handler
044a 0001 | | .CONST 0x0001 ; Number of locals
044b BODY_0448:
044b INIT_0448:
044b 00da | | Load_Top At_Offset_2
044c 680a |h | Jump_Zero 0x457
044d 00db | | Load_Top At_Offset_3
044e 4802 |H | Short_Literal 0x2
044f 0092 0608 | | Action Push_String_Extended,0x608 ; "Transport Error = "
0451 e5ff | | Load 0x2,-0x1
0452 e010 | | Load 0x0,0x10
0453 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0454 01cc | | Execute Vector,Catenate
0455 8222 | " | Call 0x1,0x22
0456 c5fe | | Store 0x2,-0x2
0457 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0458 TRAP_0448:
0458 010e | | Execute Exception,Is_Constraint_Error
0459 680b |h | Jump_Zero 0x465
045a e5fe | | Load 0x2,-0x2
045b 4802 |H | Short_Literal 0x2
045c 0092 0609 | | Action Push_String_Extended,0x609 ; "Unknown Transport Status = "
045e e5ff | | Load 0x2,-0x1
045f 00e0 | | Load_Encached Standard_Cache
0460 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0461 01cc | | Execute Vector,Catenate
0462 8222 | " | Call 0x1,0x22
0463 c5fe | | Store 0x2,-0x2
0464 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0465 0100 | | Execute Exception,Raise
0466 0000 0000 | | .XXX[0x2]
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 0470 | p | .CONST 0x0470 ; Address of begin
0469 0004 | | .CONST 0x0004 ; Address of exception handler
046a 0002 | | .CONST 0x0002 ; Number of locals
046b INIT_0468:
046b e011 | | Load 0x0,0x11
046c 180e | | Execute Package,Field_Execute,Field_Number 0xe
046d e012 | | Load 0x0,0x12
046e 1b15 | | Execute Package,Field_Read,Field_Number 0x15
046f 03f1 | | Declare_Variable Discrete,With_Value
0470 BODY_0468:
0470 00d8 | | Load_Top At_Offset_0
0471 e21a | | Load 0x1,0x1a
0472 01d5 | | Execute Vector,Field_Reference
0473 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0474 480d |H | Short_Literal 0xd
0475 e5ff | | Load 0x2,-0x1
0476 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0477 e001 | | Load 0x0,0x1
0478 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0479 01cb | | Execute Vector,Append
047a e21c | | Load 0x1,0x1c
047b 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
047c 4801 |H | Short_Literal 0x1
047d 00d9 | | Load_Top At_Offset_1
047e e21a | | Load 0x1,0x1a
047f 01d5 | | Execute Vector,Field_Reference
0480 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0481 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0482 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0483 6048 |`H | Indirect_Literal Discrete,0x4cc,{0x00000000, 0x07080000}
0484 00d9 | | Load_Top At_Offset_1
0485 e21a | | Load 0x1,0x1a
0486 01d5 | | Execute Vector,Field_Reference
0487 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0488 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0489 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
048a 00cf | | Action Mark_Auxiliary
048b 00d9 | | Load_Top At_Offset_1
048c e21a | | Load 0x1,0x1a
048d 01d5 | | Execute Vector,Field_Reference
048e 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
048f 4801 |H | Short_Literal 0x1
0490 4802 |H | Short_Literal 0x2
0491 e21e | | Load 0x1,0x1e
0492 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0493 0334 | 4 | Declare_Variable Array,With_Constraint
0494 4803 |H | Short_Literal 0x3
0495 4801 |H | Short_Literal 0x1
0496 00da | | Load_Top At_Offset_2
0497 01d6 | | Execute Vector,Field_Write
0498 4804 |H | Short_Literal 0x4
0499 4802 |H | Short_Literal 0x2
049a 00da | | Load_Top At_Offset_2
049b 01d6 | | Execute Vector,Field_Write
049c e21e | | Load 0x1,0x1e
049d 181a | | Execute Package,Field_Execute,Field_Number 0x1a
049e 0f03 | | Execute_Immediate Equal,0x3
049f 7001 |p | Jump_Nonzero 0x4a1
04a0 781f |x | Jump 0x4c0
04a1 00d9 | | Load_Top At_Offset_1
04a2 e21a | | Load 0x1,0x1a
04a3 01d5 | | Execute Vector,Field_Reference
04a4 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
04a5 6819 |h | Jump_Zero 0x4bf
04a6 e5ff | | Load 0x2,-0x1
04a7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04a8 00da | | Load_Top At_Offset_2
04a9 e21a | | Load 0x1,0x1a
04aa 01d5 | | Execute Vector,Field_Reference
04ab 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
04ac 4801 |H | Short_Literal 0x1
04ad e402 | | Load 0x2,0x2
04ae e21a | | Load 0x1,0x1a
04af 01d5 | | Execute Vector,Field_Reference
04b0 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
04b1 0aff | | Execute_Immediate Plus,-0x1
04b2 e402 | | Load 0x2,0x2
04b3 e21a | | Load 0x1,0x1a
04b4 01d5 | | Execute Vector,Field_Reference
04b5 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
04b6 01cf | | Execute Vector,Slice_Read
04b7 8222 | " | Call 0x1,0x22
04b8 e5ff | | Load 0x2,-0x1
04b9 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
04ba 4800 |H | Short_Literal 0x0
04bb 00da | | Load_Top At_Offset_2
04bc e21a | | Load 0x1,0x1a
04bd 01d5 | | Execute Vector,Field_Reference
04be 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
04bf 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04c0 4800 |H | Short_Literal 0x0
04c1 00da | | Load_Top At_Offset_2
04c2 e21a | | Load 0x1,0x1a
04c3 01d5 | | Execute Vector,Field_Reference
04c4 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
04c5 4801 |H | Short_Literal 0x1
04c6 00da | | Load_Top At_Offset_2
04c7 e21a | | Load 0x1,0x1a
04c8 01d5 | | Execute Vector,Field_Reference
04c9 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
04ca 00c9 | | Action Pop_Auxiliary_Loop
04cb 7fbf | | Jump 0x48b
04cc 0000 0000 | | .LITERAL {0x00000000, 0x07080000}
04d0 ; --------------------------------------------------------------------------------------
04d0 ; SUBPROGRAM
04d0 ; --------------------------------------------------------------------------------------
04d0 04d8 | | .CONST 0x04d8 ; Address of begin
04d1 0004 | | .CONST 0x0004 ; Address of exception handler
04d2 0002 | | .CONST 0x0002 ; Number of locals
04d3 INIT_04d0:
04d3 e011 | | Load 0x0,0x11
04d4 180e | | Execute Package,Field_Execute,Field_Number 0xe
04d5 e012 | | Load 0x0,0x12
04d6 1b15 | | Execute Package,Field_Read,Field_Number 0x15
04d7 03f1 | | Declare_Variable Discrete,With_Value
04d8 BODY_04d0:
04d8 00d8 | | Load_Top At_Offset_0
04d9 e21a | | Load 0x1,0x1a
04da 01d5 | | Execute Vector,Field_Reference
04db 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
04dc e5ff | | Load 0x2,-0x1
04dd e21c | | Load 0x1,0x1c
04de 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
04df 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04e0 ; --------------------------------------------------------------------------------------
04e0 ; SUBPROGRAM
04e0 ; --------------------------------------------------------------------------------------
04e0 04e5 | | .CONST 0x04e5 ; Address of begin
04e1 0004 | | .CONST 0x0004 ; Address of exception handler
04e2 0002 | | .CONST 0x0002 ; Number of locals
04e3 INIT_04e0:
04e3 029f 0523 | #| Declare_Subprogram INIT_0520,For_Call
04e5 BODY_04e0:
04e5 e403 | | Load 0x2,0x3
04e6 e21a | | Load 0x1,0x1a
04e7 01d5 | | Execute Vector,Field_Reference
04e8 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
04e9 6801 |h | Jump_Zero 0x4eb
04ea 8602 | | Call 0x3,0x2
04eb 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04ec 0000 0000 | | .BLANK 0000[0x4]
04f0 ; --------------------------------------------------------------------------------------
04f0 ; SUBPROGRAM
04f0 ; --------------------------------------------------------------------------------------
04f0 04f3 | | .CONST 0x04f3 ; Address of begin
04f1 0004 | | .CONST 0x0004 ; Address of exception handler
04f2 0001 | | .CONST 0x0001 ; Number of locals
04f3 BODY_04f0:
04f3 INIT_04f0:
04f3 e403 | | Load 0x2,0x3
04f4 e21a | | Load 0x1,0x1a
04f5 01d5 | | Execute Vector,Field_Reference
04f6 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
04f7 6809 |h | Jump_Zero 0x501
04f8 e403 | | Load 0x2,0x3
04f9 e21a | | Load 0x1,0x1a
04fa 01d5 | | Execute Vector,Field_Reference
04fb 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04fc 4800 |H | Short_Literal 0x0
04fd e7ff | | Load 0x3,-0x1
04fe e21f | | Load 0x1,0x1f
04ff 180e | | Execute Package,Field_Execute,Field_Number 0xe
0500 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0501 e00e | | Load 0x0,0xe
0502 180e | | Execute Package,Field_Execute,Field_Number 0xe
0503 4801 |H | Short_Literal 0x1
0504 e7ff | | Load 0x3,-0x1
0505 e00f | | Load 0x0,0xf
0506 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0507 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0508 ; --------------------------------------------------------------------------------------
0508 ; SUBPROGRAM
0508 ; --------------------------------------------------------------------------------------
0508 050b | | .CONST 0x050b ; Address of begin
0509 0004 | | .CONST 0x0004 ; Address of exception handler
050a 0001 | | .CONST 0x0001 ; Number of locals
050b BODY_0508:
050b INIT_0508:
050b e403 | | Load 0x2,0x3
050c e21a | | Load 0x1,0x1a
050d 01d5 | | Execute Vector,Field_Reference
050e 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
050f 6808 |h | Jump_Zero 0x518
0510 e403 | | Load 0x2,0x3
0511 e21a | | Load 0x1,0x1a
0512 01d5 | | Execute Vector,Field_Reference
0513 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0514 4801 |H | Short_Literal 0x1
0515 00ea | | Load_Encached Null_String_Cache
0516 e21f | | Load 0x1,0x1f
0517 180e | | Execute Package,Field_Execute,Field_Number 0xe
0518 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0519 0000 0000 | | .BLANK 0000[0x7]
0520 ; --------------------------------------------------------------------------------------
0520 ; SUBPROGRAM
0520 ; --------------------------------------------------------------------------------------
0520 0529 | ) | .CONST 0x0529 ; Address of begin
0521 0004 | | .CONST 0x0004 ; Address of exception handler
0522 0002 | | .CONST 0x0002 ; Number of locals
0523 INIT_0520:
0523 480d |H | Short_Literal 0xd
0524 e7ff | | Load 0x3,-0x1
0525 e007 | | Load 0x0,0x7
0526 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0527 e019 | | Load 0x0,0x19
0528 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0529 BODY_0520:
0529 e403 | | Load 0x2,0x3
052a e21a | | Load 0x1,0x1a
052b 01d5 | | Execute Vector,Field_Reference
052c 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
052d 00d9 | | Load_Top At_Offset_1
052e 01db | | Execute Vector,Length
052f 0273 | s | Execute Discrete,Plus
0530 e403 | | Load 0x2,0x3
0531 e21a | | Load 0x1,0x1a
0532 01d5 | | Execute Vector,Field_Reference
0533 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0534 01db | | Execute Vector,Length
0535 027d | } | Execute Discrete,Greater
0536 6806 |h | Jump_Zero 0x53d
0537 4800 |H | Short_Literal 0x0
0538 e403 | | Load 0x2,0x3
0539 e21a | | Load 0x1,0x1a
053a 01d5 | | Execute Vector,Field_Reference
053b 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
053c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
053d 00d8 | | Load_Top At_Offset_0
053e 01db | | Execute Vector,Length
053f 6822 |h" | Jump_Zero 0x562
0540 00d8 | | Load_Top At_Offset_0
0541 e403 | | Load 0x2,0x3
0542 e21a | | Load 0x1,0x1a
0543 01d5 | | Execute Vector,Field_Reference
0544 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0545 e403 | | Load 0x2,0x3
0546 e21a | | Load 0x1,0x1a
0547 01d5 | | Execute Vector,Field_Reference
0548 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0549 00db | | Load_Top At_Offset_3
054a 01db | | Execute Vector,Length
054b 0273 | s | Execute Discrete,Plus
054c 0aff | | Execute_Immediate Plus,-0x1
054d 00d8 | | Load_Top At_Offset_0
054e 00e2 | | Load_Encached Integer_Cache
054f 0260 | ` | Execute Discrete,In_Type
0550 7001 |p | Jump_Nonzero 0x552
0551 0801 | | Execute_Immediate Raise,0x1
0552 e403 | | Load 0x2,0x3
0553 e21a | | Load 0x1,0x1a
0554 01d5 | | Execute Vector,Field_Reference
0555 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0556 01ce | | Execute Vector,Slice_Write
0557 e403 | | Load 0x2,0x3
0558 e21a | | Load 0x1,0x1a
0559 01d5 | | Execute Vector,Field_Reference
055a 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
055b 00d9 | | Load_Top At_Offset_1
055c 01db | | Execute Vector,Length
055d 0273 | s | Execute Discrete,Plus
055e e403 | | Load 0x2,0x3
055f e21a | | Load 0x1,0x1a
0560 01d5 | | Execute Vector,Field_Reference
0561 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0562 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0563 0000 0000 | | .BLANK 0000[0x5]
0568 ; --------------------------------------------------------------------------------------
0568 ; SUBPROGRAM
0568 ; --------------------------------------------------------------------------------------
0568 056b | k | .CONST 0x056b ; Address of begin
0569 0004 | | .CONST 0x0004 ; Address of exception handler
056a 0001 | | .CONST 0x0001 ; Number of locals
056b BODY_0568:
056b INIT_0568:
056b 4608 |F | Jump_Case 0x9
056c 7808 |x | Jump 0x575 ; case 0x0
056d 7814 |x | Jump 0x582 ; case 0x1
056e 7817 |x | Jump 0x586 ; case 0x2
056f 7816 |x | Jump 0x586 ; case 0x3
0570 7815 |x | Jump 0x586 ; case 0x4
0571 7814 |x | Jump 0x586 ; case 0x5
0572 7813 |x | Jump 0x586 ; case 0x6
0573 7812 |x | Jump 0x586 ; case 0x7
0574 7811 |x | Jump 0x586 ; case 0x8
0575 00da | | Load_Top At_Offset_2
0576 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0577 0125 | % | Execute Any,Set_Constraint
0578 00da | | Load_Top At_Offset_2
0579 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
057a 1c00 | | Execute_Immediate Run_Utility,0x0
057b 00da | | Load_Top At_Offset_2
057c 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
057d 0125 | % | Execute Any,Set_Constraint
057e 00da | | Load_Top At_Offset_2
057f 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0580 1c00 | | Execute_Immediate Run_Utility,0x0
0581 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0582 00da | | Load_Top At_Offset_2
0583 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0584 0125 | % | Execute Any,Set_Constraint
0585 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0586 0869 | i | Execute_Immediate Raise,0x69
0587 0000 | | .XXX[0x1]
0588 ; --------------------------------------------------------------------------------------
0588 ; SUBPROGRAM
0588 ; --------------------------------------------------------------------------------------
0588 058b | | .CONST 0x058b ; Address of begin
0589 0004 | | .CONST 0x0004 ; Address of exception handler
058a 0001 | | .CONST 0x0001 ; Number of locals
058b BODY_0588:
058b INIT_0588:
058b 4608 |F | Jump_Case 0x9
058c 7808 |x | Jump 0x595 ; case 0x0
058d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
058e 780d |x | Jump 0x59c ; case 0x2
058f 780c |x | Jump 0x59c ; case 0x3
0590 780b |x | Jump 0x59c ; case 0x4
0591 780a |x | Jump 0x59c ; case 0x5
0592 7809 |x | Jump 0x59c ; case 0x6
0593 7808 |x | Jump 0x59c ; case 0x7
0594 7807 |x | Jump 0x59c ; case 0x8
0595 00da | | Load_Top At_Offset_2
0596 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0597 0125 | % | Execute Any,Set_Constraint
0598 00da | | Load_Top At_Offset_2
0599 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
059a 1c00 | | Execute_Immediate Run_Utility,0x0
059b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
059c 0869 | i | Execute_Immediate Raise,0x69
059d 0000 0000 | | .XXX[0x3]
059f 0000 | |
05a0 ; --------------------------------------------------------------------------------------
05a0 ; SUBPROGRAM
05a0 ; --------------------------------------------------------------------------------------
05a0 05b0 | | .CONST 0x05b0 ; Address of begin
05a1 0004 | | .CONST 0x0004 ; Address of exception handler
05a2 000f | | .CONST 0x000f ; Number of locals
05a3 INIT_05a0:
05a3 4803 |H | Short_Literal 0x3
05a4 02cb | | Declare_Variable Entry
05a5 00bf | | Action Accept_Activation
05a6 029d 05bb | | Declare_Subprogram INIT_05b8,For_Outer_Call
05a8 480d 48bd |H H | Declare_Variable Select 0x000, 0x001,
05aa 4800 4801 |H H | [0x000]: 0x001 = 0x0008,
05ac 4800 4801 |H H | [0x00d]: 0x0bd = 0x05e8
05ae 02cf | |
05af 00bc | | Action Signal_Activated
05b0 BODY_05a0:
05b0 00cf | | Action Mark_Auxiliary
05b1 00d9 | | Load_Top At_Offset_1
05b2 013f | ? | Execute Select,Rendezvous
05b3 00d1 | | Pop_Control Pop_Count_1
05b4 00c9 | | Action Pop_Auxiliary_Loop
05b5 7ffb | | Jump 0x5b1
05b6 0000 0000 | | .XXX[0x2]
05b8 ; --------------------------------------------------------------------------------------
05b8 ; SUBPROGRAM
05b8 ; --------------------------------------------------------------------------------------
05b8 05bb | | .CONST 0x05bb ; Address of begin
05b9 05cf | | .CONST 0x05cf ; Address of exception handler
05ba 0001 | | .CONST 0x0001 ; Number of locals
05bb BODY_05b8:
05bb INIT_05b8:
05bb 4801 |H | Short_Literal 0x1
05bc a5fd | | Store_Unchecked 0x2,-0x3
05bd e001 | | Load 0x0,0x1
05be 180e | | Execute Package,Field_Execute,Field_Number 0xe
05bf 4802 |H | Short_Literal 0x2
05c0 0092 060a | | Action Push_String_Extended,0x60a ; "Trying to Open Port Number "
05c2 e5fe | | Load 0x2,-0x2
05c3 00e0 | | Load_Encached Standard_Cache
05c4 1818 | | Execute Package,Field_Execute,Field_Number 0x18
05c5 01cc | | Execute Vector,Catenate
05c6 e002 | | Load 0x0,0x2
05c7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05c8 00da | | Load_Top At_Offset_2
05c9 e003 | | Load 0x0,0x3
05ca 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
05cb e5fe | | Load 0x2,-0x2
05cc e003 | | Load 0x0,0x3
05cd 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
05ce 4501 |E | Exit_Suprogram New_Top_Offset 0x1
05cf TRAP_05b8:
05cf 0007 | | Action Break_Optional
05d0 e5fe | | Load 0x2,-0x2
05d1 0cff | | Execute_Immediate Greater_Equal,-0x1
05d2 6803 |h | Jump_Zero 0x5d6
05d3 4800 |H | Short_Literal 0x0
05d4 a5fd | | Store_Unchecked 0x2,-0x3
05d5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
05d6 e5fe | | Load 0x2,-0x2
05d7 0a01 | | Execute_Immediate Plus,0x1
05d8 c5fe | | Store 0x2,-0x2
05d9 00e1 | | Load_Encached Boolean_Cache
05da e5fe | | Load 0x2,-0x2
05db e5ff | | Load 0x2,-0x1
05dc 820e | | Call 0x1,0xe
05dd 00d1 | | Pop_Control Pop_Count_1
05de c5fe | | Store 0x2,-0x2
05df c5fd | | Store 0x2,-0x3
05e0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
05e1 0000 0000 | | .BLANK 0000[0x7]
05e8 ; --------------------------------------------------------------------------------------
05e8 ; SUBPROGRAM
05e8 ; See instruction 0x02cf at 0x5a8, index=0xd
05e8 ; --------------------------------------------------------------------------------------
05e8 05eb | | .CONST 0x05eb ; Address of begin
05e9 0004 | | .CONST 0x0004 ; Address of exception handler
05ea 0001 | | .CONST 0x0001 ; Number of locals
05eb BODY_05e8:
05eb INIT_05e8:
05eb 00e1 | | Load_Encached Boolean_Cache
05ec e5fd | | Load 0x2,-0x3
05ed e5fe | | Load 0x2,-0x2
05ee 820e | | Call 0x1,0xe
05ef 00d1 | | Pop_Control Pop_Count_1
05f0 c5fd | | Store 0x2,-0x3
05f1 c5fc | | Store 0x2,-0x4
05f2 4103 |A | End_Rendezvous 0x3
05f3 ; --------------------------------------------------------------------------------------
05f3 ; STRING TABLE
05f3 ; --------------------------------------------------------------------------------------
05f3 0032 | 2 | .STRTAB 0x0032->0x060c ; "DISC"
05f4 0034 | 4 | .STRTAB 0x0034->0x060e ; "USERNAME_PROMPT"
05f5 0041 | A | .STRTAB 0x0041->0x0615 ; "PASSWORD_PROMPT"
05f6 004e | N | .STRTAB 0x004e->0x061d ; "COMMAND_PROMPT"
05f7 005a | Z | .STRTAB 0x005a->0x0624 ; "TIMEOUT"
05f8 005f | _ | .STRTAB 0x005f->0x0627 ; "PASSWORD_FAILURE"
05f9 006d | m | .STRTAB 0x006d->0x062f ; "PRE_USERNAME_PROMPT"
05fa 007e | ~ | .STRTAB 0x007e->0x0639 ; " "
05fb 007d | } | .STRTAB 0x007d->0x0639 ; "Session"
05fc 0082 | | .STRTAB 0x0082->0x063d ; "Connecting to target via Telnet Port "
05fd 00a5 | | .STRTAB 0x00a5->0x064f ; "Disconnected from "
05fe 00b5 | | .STRTAB 0x00b5->0x0658 ; "Unable to login to remote machine "
05ff 00d5 | | .STRTAB 0x00d5->0x0669 ; ". User Authorization Failure"
0600 00f0 | | .STRTAB 0x00f0->0x0678 ; "Unable to login to remote machine. Unknown Failure"
0601 0121 | ! | .STRTAB 0x0121->0x0691 ; "Unable to find a free telnet port. Try again later."
0602 0153 | S | .STRTAB 0x0153->0x06ab ; "Undefined Remote Machine Name = "
0603 0171 | q | .STRTAB 0x0171->0x06bb ; " caught in Open_Connection."
0604 018a | | .STRTAB 0x018a->0x06c9 ; "Unimplemented Command Type = "
0605 01a5 | | .STRTAB 0x01a5->0x06d7 ; "Command timed out"
0606 01b4 | | .STRTAB 0x01b4->0x06e0 ; "logout"
0607 01b8 | | .STRTAB 0x01b8->0x06e3 ; "TERMINAL IDENTIFICATION NUMBER\x0d\x0a\x0d\x0a"
0608 01d8 | | .STRTAB 0x01d8->0x06f4 ; "Transport Error = "
0609 01e9 | | .STRTAB 0x01e9->0x06fd ; "Unknown Transport Status = "
060a 0202 | | .STRTAB 0x0202->0x070b ; "Trying to Open Port Number "
060b 021b | | .STREND 0x021b->0x0718
060c 4449 5343 |DISC| .STRTAB_STRINGS
0719 0000 0000 | | .BLANK 0000[0x7]
0720 ; --------------------------------------------------------------------------------------
0720 ; Debug Table
0720 ; --------------------------------------------------------------------------------------
0720 0004 000c | | .DEBUG4 0x0004,0x000c,0x330f,0x0000,0x0001,0x0000
0726 0000 0000 | | .BLANK 0000[0x8]
072e 0010 | | .XXX[0x1]
072f 0000 0000 | | .BLANK 0000[0xb]
073a 0004 0000 | | .XXX[0x30]
073c 0048 0000 | H |
073e 0000 0000 | |
0740 001c 7e00 | ~ |
0742 0000 2400 | $ |
0744 0000 0000 | |
0746 0000 0c00 | |
0748 0000 4800 | H |
074a 0000 1000 | |
074c 0000 1000 | |
074e 0000 2012 | |
0750 0100 0000 | |
0752 1200 0000 | |
0754 0400 0000 | |
0756 0400 0400 | |
0758 0000 f000 | |
075a 0000 1000 | |
075c 0000 1000 | |
075e 0000 e000 | |
0760 0000 3c00 | < |
0762 0000 2400 | $ |
0764 0000 0000 | |
0766 0000 0800 | |
0768 6031 8022 |`1 "|
076a 0000 0000 | | .BLANK 0000[0x4]
076e 0825 a008 | % | .XXX[0xb]
0770 8000 0000 | |
0772 0000 0000 | |
0774 0888 8880 | |
0776 aaaa 68aa | h |
0778 4a64 |Jd |
0779 0404 0404 | | .BLANK 0404[0x7e]
07f7 0400 | | .XXX[0x1]
07f8 0202 0202 | | .BLANK 0202[0x8]