|
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: 5120 (0x1400)
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 0960 | ` | .CONST 0x0960 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 8005 | | .CONST 0x8005 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00c1 | | .CONST 0x00c1 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 003b | ; | .CONST 0x003b ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 4801 |H | Short_Literal 0x1
000d 029f 00cb | | Declare_Subprogram INIT_00c8,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 00c4 | | Action Make_Default
0011 00c4 | | Action Make_Default
0012 00c4 | | Action Make_Default
0013 00c4 | | Action Make_Default
0014 00c4 | | Action Make_Default
0015 00c4 | | Action Make_Default
0016 00c4 | | Action Make_Default
0017 00c4 | | Action Make_Default
0018 00c4 | | Action Make_Default
0019 00c4 | | Action Make_Default
001a 00c4 | | Action Make_Default
001b 00c4 | | Action Make_Default
001c 00c4 | | Action Make_Default
001d 00c4 | | Action Make_Default
001e 00c4 | | Action Make_Default
001f 00c4 | | Action Make_Default
0020 00c4 | | Action Make_Default
0021 00c4 | | Action Make_Default
0022 00c4 | | Action Make_Default
0023 00c4 | | Action Make_Default
0024 00c4 | | Action Make_Default
0025 00c4 | | Action Make_Default
0026 00c4 | | Action Make_Default
0027 00c4 | | Action Make_Default
0028 00c4 | | Action Make_Default
0029 00c4 | | Action Make_Default
002a 00c4 | | Action Make_Default
002b 00c4 | | Action Make_Default
002c 00c4 | | Action Make_Default
002d 00c4 | | Action Make_Default
002e 00c4 | | Action Make_Default
002f 00c4 | | Action Make_Default
0030 e001 | | Load 0x0,0x1
0031 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
0032 e002 | | Load 0x0,0x2
0033 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0034 029f 070b | | Declare_Subprogram INIT_0708,For_Call
0036 4802 |H | Short_Literal 0x2
0037 032e | . | Declare_Type Record,Defined,Visible
0038 c22d | - | Store 0x1,0x2d
0039 e003 | | Load 0x0,0x3
003a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
003b 0129 | ) | Execute Any,Make_Visible
003c c21d | | Store 0x1,0x1d
003d 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
003f c21e | | Store 0x1,0x1e
0040 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated
0042 c21f | | Store 0x1,0x1f
0043 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated
0045 c220 | | Store 0x1,0x20
0046 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated
0048 c226 | & | Store 0x1,0x26
0049 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated
004b c221 | ! | Store 0x1,0x21
004c 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated
004e c22b | + | Store 0x1,0x2b
004f 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated
0051 c22c | , | Store 0x1,0x2c
0052 029a 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call,Visible,Unelaborated
0054 c224 | $ | Store 0x1,0x24
0055 029a 0403 | | Declare_Subprogram INIT_0400,For_Outer_Call,Visible,Unelaborated
0057 c225 | % | Store 0x1,0x25
0058 029a 042b | +| Declare_Subprogram INIT_0428,For_Outer_Call,Visible,Unelaborated
005a c22a | * | Store 0x1,0x2a
005b 00bf | | Action Accept_Activation
005c e004 | | Load 0x0,0x4
005d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
005e 02c7 | | Declare_Variable Any
005f 4800 |H | Short_Literal 0x0
0060 4801 |H | Short_Literal 0x1
0061 4801 |H | Short_Literal 0x1
0062 608d |` | Indirect_Literal Discrete,0xf0,{0x00000000, 0x0000076d}
0063 e004 | | Load 0x0,0x4
0064 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0065 a22e | . | Store_Unchecked 0x1,0x2e
0066 e005 | | Load 0x0,0x5
0067 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0068 02c7 | | Declare_Variable Any
0069 0092 0723 | #| Action Push_String_Extended,0x723 ; "<PROFILE>"
006b e005 | | Load 0x0,0x5
006c 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
006d a22f | / | Store_Unchecked 0x1,0x2f
006e e005 | | Load 0x0,0x5
006f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0070 02c7 | | Declare_Variable Any
0071 0092 0724 | $| Action Push_String_Extended,0x724 ; "<PROFILE>,~+++,~---,~:::"
0073 e005 | | Load 0x0,0x5
0074 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0075 a230 | 0 | Store_Unchecked 0x1,0x30
0076 e006 | | Load 0x0,0x6
0077 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0078 e007 | | Load 0x0,0x7
0079 1b0f | | Execute Package,Field_Read,Field_Number 0xf
007a 00e1 | | Load_Encached Boolean_Cache
007b e007 | | Load 0x0,0x7
007c 1b14 | | Execute Package,Field_Read,Field_Number 0x14
007d 4900 |I | Short_Literal 0x100
007e e008 | | Load 0x0,0x8
007f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0080 1c07 | | Execute_Immediate Run_Utility,0x7
0081 4900 |I | Short_Literal 0x100
0082 e008 | | Load 0x0,0x8
0083 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0084 1c07 | | Execute_Immediate Run_Utility,0x7
0085 4900 |I | Short_Literal 0x100
0086 e008 | | Load 0x0,0x8
0087 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0088 1c07 | | Execute_Immediate Run_Utility,0x7
0089 4900 |I | Short_Literal 0x100
008a e008 | | Load 0x0,0x8
008b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
008c 1c07 | | Execute_Immediate Run_Utility,0x7
008d e22d | - | Load 0x1,0x2d
008e 029f 0483 | | Declare_Subprogram INIT_0480,For_Call
0090 4809 |H | Short_Literal 0x9
0091 032d | - | Declare_Type Record,Defined
0092 029d 04bb | | Declare_Subprogram INIT_04b8,For_Outer_Call
0094 029d 04f3 | | Declare_Subprogram INIT_04f0,For_Outer_Call
0096 e009 | | Load 0x0,0x9
0097 e00a | | Load 0x0,0xa
0098 e231 | 1 | Load 0x1,0x31
0099 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
009a 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33
009b e00b | | Load 0x0,0xb
009c 0387 | | Declare_Variable Package
009d 00d8 | | Load_Top At_Offset_0
009e 020f | | Execute Module,Activate
009f 029d 0523 | #| Declare_Subprogram INIT_0520,For_Outer_Call
00a1 029d 0533 | 3| Declare_Subprogram INIT_0530,For_Outer_Call
00a3 029d 0543 | C| Declare_Subprogram INIT_0540,For_Outer_Call
00a5 029d 0553 | S| Declare_Subprogram INIT_0550,For_Outer_Call
00a7 029d 05db | | Declare_Subprogram INIT_05d8,For_Outer_Call
00a9 029d 05fb | | Declare_Subprogram INIT_05f8,For_Outer_Call
00ab 029d 060b | | Declare_Subprogram INIT_0608,For_Outer_Call
00ad 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
00ae 00c7 | | Action Elaborate_Subprogram
00af 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00b0 00c7 | | Action Elaborate_Subprogram
00b1 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00b2 00c7 | | Action Elaborate_Subprogram
00b3 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
00b4 00c7 | | Action Elaborate_Subprogram
00b5 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
00b6 00c7 | | Action Elaborate_Subprogram
00b7 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
00b8 00c7 | | Action Elaborate_Subprogram
00b9 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
00ba 00c7 | | Action Elaborate_Subprogram
00bb 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
00bc 00c7 | | Action Elaborate_Subprogram
00bd 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
00be 00c7 | | Action Elaborate_Subprogram
00bf 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
00c0 00c7 | | Action Elaborate_Subprogram
00c1 BODY_0008:
00c1 00bc | | Action Signal_Activated
00c2 00bb | | Action Signal_Completion
00c3 0000 0000 | | .BLANK 0000[0x5]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb 4607 |F | Jump_Case 0x8
00cc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00cd 7806 |x | Jump 0xd4 ; case 0x1
00ce 7809 |x | Jump 0xd8 ; case 0x2
00cf 780d |x | Jump 0xdd ; case 0x3
00d0 7810 |x | Jump 0xe1 ; case 0x4
00d1 7811 |x | Jump 0xe3 ; case 0x5
00d2 7812 |x | Jump 0xe5 ; case 0x6
00d3 7815 |x | Jump 0xe9 ; case 0x7
00d4 00da | | Load_Top At_Offset_2
00d5 0091 0721 | !| Action Push_String_Extended_Indexed,0x721 ; "TEXT"
00d7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00d8 00db | | Load_Top At_Offset_3
00d9 00db | | Load_Top At_Offset_3
00da 00e0 | | Load_Encached Standard_Cache
00db 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00dc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00dd 00da | | Load_Top At_Offset_2
00de 00e0 | | Load_Encached Standard_Cache
00df 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00e0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00e1 00db | | Load_Top At_Offset_3
00e2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00e3 00db | | Load_Top At_Offset_3
00e4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00e5 e20d | | Load 0x1,0xd
00e6 00dc | | Load_Top At_Offset_4
00e7 0267 | g | Execute Discrete,Predecessor
00e8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00e9 e20d | | Load 0x1,0xd
00ea 00dc | | Load_Top At_Offset_4
00eb 0268 | h | Execute Discrete,Successor
00ec 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00ed 0000 0000 | | .XXX[0x3]
00ef 0000 | |
00f0 0000 0000 | | .LITERAL {0x00000000, 0x0000076d}
00f4 0000 0000 | | .BLANK 0000[0x4]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 0110 | | .CONST 0x0110 ; Address of begin
00f9 0180 | | .CONST 0x0180 ; Address of exception handler
00fa 0007 | | .CONST 0x0007 ; Number of locals
00fb INIT_00f8:
00fb 4820 |H | Short_Literal 0x20
00fc 00db | | Load_Top At_Offset_3
00fd e00c | | Load 0x0,0xc
00fe 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00ff e006 | | Load 0x0,0x6
0100 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0101 e006 | | Load 0x0,0x6
0102 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0103 03f1 | | Declare_Variable Discrete,With_Value
0104 e231 | 1 | Load 0x1,0x31
0105 0322 | " | Declare_Variable Record
0106 00d8 | | Load_Top At_Offset_0
0107 1c00 | | Execute_Immediate Run_Utility,0x0
0108 00e1 | | Load_Encached Boolean_Cache
0109 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
010a e21d | | Load 0x1,0x1d
010b 02c7 | | Declare_Variable Any
010c 00d8 | | Load_Top At_Offset_0
010d 1c00 | | Execute_Immediate Run_Utility,0x0
010e 029f 0623 | #| Declare_Subprogram INIT_0620,For_Call
0110 BODY_00f8:
0110 00d9 | | Load_Top At_Offset_1
0111 c5fa | | Store 0x2,-0x6
0112 e403 | | Load 0x2,0x3
0113 e234 | 4 | Load 0x1,0x34
0114 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0115 7006 |p | Jump_Nonzero 0x11c
0116 e403 | | Load 0x2,0x3
0117 e234 | 4 | Load 0x1,0x34
0118 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0119 e404 | | Load 0x2,0x4
011a 017d | } | Execute Record,Structure_Write
011b 784b |xK | Jump 0x167
011c e403 | | Load 0x2,0x3
011d e234 | 4 | Load 0x1,0x34
011e 1817 | | Execute Package,Field_Execute,Field_Number 0x17
011f 700f |p | Jump_Nonzero 0x12f
0120 00d9 | | Load_Top At_Offset_1
0121 e5fc | | Load 0x2,-0x4
0122 e404 | | Load 0x2,0x4
0123 3408 |4 | Execute Record,Field_Reference,Field_Number 0x8
0124 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0125 e002 | | Load 0x0,0x2
0126 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0127 c406 | | Store 0x2,0x6
0128 8239 | 9 | Call 0x1,0x39
0129 e403 | | Load 0x2,0x3
012a e234 | 4 | Load 0x1,0x34
012b 1815 | | Execute Package,Field_Execute,Field_Number 0x15
012c e404 | | Load 0x2,0x4
012d 017d | } | Execute Record,Structure_Write
012e 7838 |x8 | Jump 0x167
012f e403 | | Load 0x2,0x3
0130 e234 | 4 | Load 0x1,0x34
0131 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0132 e404 | | Load 0x2,0x4
0133 017d | } | Execute Record,Structure_Write
0134 00db | | Load_Top At_Offset_3
0135 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0136 6825 |h% | Jump_Zero 0x15c
0137 00db | | Load_Top At_Offset_3
0138 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0139 e006 | | Load 0x0,0x6
013a 180f | | Execute Package,Field_Execute,Field_Number 0xf
013b 027f | | Execute Discrete,Equal
013c 681f |h | Jump_Zero 0x15c
013d 4800 |H | Short_Literal 0x0
013e e5fe | | Load 0x2,-0x2
013f e404 | | Load 0x2,0x4
0140 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0141 e008 | | Load 0x0,0x8
0142 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0143 e00c | | Load 0x0,0xc
0144 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0145 680b |h | Jump_Zero 0x151
0146 4800 |H | Short_Literal 0x0
0147 e5fd | | Load 0x2,-0x3
0148 e404 | | Load 0x2,0x4
0149 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
014a e008 | | Load 0x0,0x8
014b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
014c e00c | | Load 0x0,0xc
014d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
014e 6802 |h | Jump_Zero 0x151
014f 4800 |H | Short_Literal 0x0
0150 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0151 00db | | Load_Top At_Offset_3
0152 3408 |4 | Execute Record,Field_Reference,Field_Number 0x8
0153 e5fb | | Load 0x2,-0x5
0154 017d | } | Execute Record,Structure_Write
0155 e5fb | | Load 0x2,-0x5
0156 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0157 e00d | | Load 0x0,0xd
0158 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0159 7002 |p | Jump_Nonzero 0x15c
015a 4801 |H | Short_Literal 0x1
015b 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
015c 00da | | Load_Top At_Offset_2
015d 6809 |h | Jump_Zero 0x167
015e 00d9 | | Load_Top At_Offset_1
015f e5fc | | Load 0x2,-0x4
0160 e404 | | Load 0x2,0x4
0161 3408 |4 | Execute Record,Field_Reference,Field_Number 0x8
0162 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0163 e002 | | Load 0x0,0x2
0164 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0165 c406 | | Store 0x2,0x6
0166 8239 | 9 | Call 0x1,0x39
0167 00da | | Load_Top At_Offset_2
0168 680d |h | Jump_Zero 0x176
0169 e5fd | | Load 0x2,-0x3
016a e5fe | | Load 0x2,-0x2
016b 8407 | | Call 0x2,0x7
016c 4801 |H | Short_Literal 0x1
016d e5fa | | Load 0x2,-0x6
016e e003 | | Load 0x0,0x3
016f 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0170 6804 |h | Jump_Zero 0x175
0171 e006 | | Load 0x0,0x6
0172 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0173 e234 | 4 | Load 0x1,0x34
0174 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0175 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0176 e005 | | Load 0x0,0x5
0177 180e | | Execute Package,Field_Execute,Field_Number 0xe
0178 480a |H | Short_Literal 0xa
0179 0092 0725 | %| Action Push_String_Extended,0x725 ; "Reusing the existing connection to "
017b e5ff | | Load 0x2,-0x1
017c 01cc | | Execute Vector,Catenate
017d e00e | | Load 0x0,0xe
017e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
017f 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0180 TRAP_00f8:
0180 0007 | | Action Break_Optional
0181 e5fa | | Load 0x2,-0x6
0182 0092 0726 | &| Action Push_String_Extended,0x726 ; "Acquire"
0184 823b | ; | Call 0x1,0x3b
0185 c5fa | | Store 0x2,-0x6
0186 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0187 0000 | | .XXX[0x1]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018f | | .CONST 0x018f ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0002 | | .CONST 0x0002 ; Number of locals
018b INIT_0188:
018b e21d | | Load 0x1,0x1d
018c 02c7 | | Declare_Variable Any
018d 00d8 | | Load_Top At_Offset_0
018e 1c00 | | Execute_Immediate Run_Utility,0x0
018f BODY_0188:
018f 00d8 | | Load_Top At_Offset_0
0190 e5f9 | | Load 0x2,-0x7
0191 e5fa | | Load 0x2,-0x6
0192 e5fb | | Load 0x2,-0x5
0193 e5fc | | Load 0x2,-0x4
0194 e5fd | | Load 0x2,-0x3
0195 821e | | Call 0x1,0x1e
0196 00d1 | | Pop_Control Pop_Count_1
0197 c402 | | Store 0x2,0x2
0198 4802 |H | Short_Literal 0x2
0199 00d9 | | Load_Top At_Offset_1
019a e003 | | Load 0x0,0x3
019b 1817 | | Execute Package,Field_Execute,Field_Number 0x17
019c 7008 |p | Jump_Nonzero 0x1a5
019d e5f8 | | Load 0x2,-0x8
019e e5fa | | Load 0x2,-0x6
019f e5fe | | Load 0x2,-0x2
01a0 e5f9 | | Load 0x2,-0x7
01a1 e5ff | | Load 0x2,-0x1
01a2 8221 | ! | Call 0x1,0x21
01a3 c5f8 | | Store 0x2,-0x8
01a4 4507 |E | Exit_Suprogram New_Top_Offset 0x7
01a5 00d8 | | Load_Top At_Offset_0
01a6 c5f8 | | Store 0x2,-0x8
01a7 4507 |E | Exit_Suprogram New_Top_Offset 0x7
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01c1 | | .CONST 0x01c1 ; Address of begin
01a9 01db | | .CONST 0x01db ; Address of exception handler
01aa 0005 | | .CONST 0x0005 ; Number of locals
01ab INIT_01a8:
01ab e006 | | Load 0x0,0x6
01ac 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01ad e006 | | Load 0x0,0x6
01ae 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01af 03f1 | | Declare_Variable Discrete,With_Value
01b0 e231 | 1 | Load 0x1,0x31
01b1 0322 | " | Declare_Variable Record
01b2 00d8 | | Load_Top At_Offset_0
01b3 1c01 | | Execute_Immediate Run_Utility,0x1
01b4 00d9 | | Load_Top At_Offset_1
01b5 e234 | 4 | Load 0x1,0x34
01b6 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01b7 00d9 | | Load_Top At_Offset_1
01b8 017d | } | Execute Record,Structure_Write
01b9 00d8 | | Load_Top At_Offset_0
01ba 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
01bb e008 | | Load 0x0,0x8
01bc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01bd e21d | | Load 0x1,0x1d
01be 02c7 | | Declare_Variable Any
01bf 00d8 | | Load_Top At_Offset_0
01c0 1c00 | | Execute_Immediate Run_Utility,0x0
01c1 BODY_01a8:
01c1 e006 | | Load 0x0,0x6
01c2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01c3 e234 | 4 | Load 0x1,0x34
01c4 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01c5 00d8 | | Load_Top At_Offset_0
01c6 e5ff | | Load 0x2,-0x1
01c7 e5fe | | Load 0x2,-0x2
01c8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01c9 e002 | | Load 0x0,0x2
01ca 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01cb c405 | | Store 0x2,0x5
01cc 8239 | 9 | Call 0x1,0x39
01cd 00d8 | | Load_Top At_Offset_0
01ce c5fd | | Store 0x2,-0x3
01cf e5ff | | Load 0x2,-0x1
01d0 6809 |h | Jump_Zero 0x1da
01d1 e005 | | Load 0x0,0x5
01d2 180e | | Execute Package,Field_Execute,Field_Number 0xe
01d3 4802 |H | Short_Literal 0x2
01d4 0092 0727 | '| Action Push_String_Extended,0x727 ; "Released the connection to "
01d6 e404 | | Load 0x2,0x4
01d7 01cc | | Execute Vector,Catenate
01d8 e00e | | Load 0x0,0xe
01d9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01da 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01db TRAP_01a8:
01db 0007 | | Action Break_Optional
01dc e5fd | | Load 0x2,-0x3
01dd 0092 0728 | (| Action Push_String_Extended,0x728 ; "Release"
01df 823b | ; | Call 0x1,0x3b
01e0 c5fd | | Store 0x2,-0x3
01e1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01e2 0000 0000 | | .BLANK 0000[0x6]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 0201 | | .CONST 0x0201 ; Address of begin
01e9 021b | | .CONST 0x021b ; Address of exception handler
01ea 0005 | | .CONST 0x0005 ; Number of locals
01eb INIT_01e8:
01eb e006 | | Load 0x0,0x6
01ec 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01ed e006 | | Load 0x0,0x6
01ee 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01ef 03f1 | | Declare_Variable Discrete,With_Value
01f0 e231 | 1 | Load 0x1,0x31
01f1 0322 | " | Declare_Variable Record
01f2 00d8 | | Load_Top At_Offset_0
01f3 1c01 | | Execute_Immediate Run_Utility,0x1
01f4 00d9 | | Load_Top At_Offset_1
01f5 e234 | 4 | Load 0x1,0x34
01f6 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01f7 00d9 | | Load_Top At_Offset_1
01f8 017d | } | Execute Record,Structure_Write
01f9 00d8 | | Load_Top At_Offset_0
01fa 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
01fb e008 | | Load 0x0,0x8
01fc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01fd e21d | | Load 0x1,0x1d
01fe 02c7 | | Declare_Variable Any
01ff 00d8 | | Load_Top At_Offset_0
0200 1c00 | | Execute_Immediate Run_Utility,0x0
0201 BODY_01e8:
0201 e006 | | Load 0x0,0x6
0202 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0203 e234 | 4 | Load 0x1,0x34
0204 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0205 00d8 | | Load_Top At_Offset_0
0206 e5ff | | Load 0x2,-0x1
0207 e5fe | | Load 0x2,-0x2
0208 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0209 e002 | | Load 0x0,0x2
020a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
020b c405 | | Store 0x2,0x5
020c 8239 | 9 | Call 0x1,0x39
020d 00d8 | | Load_Top At_Offset_0
020e c5fd | | Store 0x2,-0x3
020f e5ff | | Load 0x2,-0x1
0210 6809 |h | Jump_Zero 0x21a
0211 e005 | | Load 0x0,0x5
0212 180e | | Execute Package,Field_Execute,Field_Number 0xe
0213 4802 |H | Short_Literal 0x2
0214 0092 0729 | )| Action Push_String_Extended,0x729 ; "Destroyed the connection to "
0216 e404 | | Load 0x2,0x4
0217 01cc | | Execute Vector,Catenate
0218 e00e | | Load 0x0,0xe
0219 1813 | | Execute Package,Field_Execute,Field_Number 0x13
021a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
021b TRAP_01e8:
021b 0007 | | Action Break_Optional
021c e5fd | | Load 0x2,-0x3
021d 0092 072a | *| Action Push_String_Extended,0x72a ; "Destroy"
021f 823b | ; | Call 0x1,0x3b
0220 c5fd | | Store 0x2,-0x3
0221 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0222 0000 0000 | | .BLANK 0000[0x6]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 023d | = | .CONST 0x023d ; Address of begin
0229 0291 | | .CONST 0x0291 ; Address of exception handler
022a 0004 | | .CONST 0x0004 ; Number of locals
022b INIT_0228:
022b e21d | | Load 0x1,0x1d
022c 02c7 | | Declare_Variable Any
022d 00d8 | | Load_Top At_Offset_0
022e 1c00 | | Execute_Immediate Run_Utility,0x0
022f e006 | | Load 0x0,0x6
0230 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0231 e006 | | Load 0x0,0x6
0232 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0233 03f1 | | Declare_Variable Discrete,With_Value
0234 e231 | 1 | Load 0x1,0x31
0235 0322 | " | Declare_Variable Record
0236 00d8 | | Load_Top At_Offset_0
0237 1c01 | | Execute_Immediate Run_Utility,0x1
0238 00d9 | | Load_Top At_Offset_1
0239 e234 | 4 | Load 0x1,0x34
023a 1815 | | Execute Package,Field_Execute,Field_Number 0x15
023b 00d9 | | Load_Top At_Offset_1
023c 017d | } | Execute Record,Structure_Write
023d BODY_0228:
023d 00da | | Load_Top At_Offset_2
023e c5fb | | Store 0x2,-0x5
023f e5fe | | Load 0x2,-0x2
0240 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0241 e00d | | Load 0x0,0xd
0242 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0243 6803 |h | Jump_Zero 0x247
0244 e00f | | Load 0x0,0xf
0245 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0246 7006 |p | Jump_Nonzero 0x24d
0247 e5fb | | Load 0x2,-0x5
0248 0092 072b | +| Action Push_String_Extended,0x72b ; "Set_Remote_Directory"
024a 823a | : | Call 0x1,0x3a
024b c5fb | | Store 0x2,-0x5
024c 4505 |E | Exit_Suprogram New_Top_Offset 0x5
024d 4800 |H | Short_Literal 0x0
024e e5ff | | Load 0x2,-0x1
024f 00da | | Load_Top At_Offset_2
0250 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
0251 e008 | | Load 0x0,0x8
0252 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0253 e00c | | Load 0x0,0xc
0254 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0255 680b |h | Jump_Zero 0x261
0256 e5fd | | Load 0x2,-0x3
0257 01db | | Execute Vector,Length
0258 7008 |p | Jump_Nonzero 0x261
0259 e005 | | Load 0x0,0x5
025a 180e | | Execute Package,Field_Execute,Field_Number 0xe
025b 4801 |H | Short_Literal 0x1
025c 0092 072c | ,| Action Push_String_Extended,0x72c ; "Reusing the existing directory."
025e e00e | | Load 0x0,0xe
025f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0260 7822 |x" | Jump 0x283
0261 00da | | Load_Top At_Offset_2
0262 e5fc | | Load 0x2,-0x4
0263 4801 |H | Short_Literal 0x1
0264 4800 |H | Short_Literal 0x0
0265 4800 |H | Short_Literal 0x0
0266 00ea | | Load_Encached Null_String_Cache
0267 e5fe | | Load 0x2,-0x2
0268 e5ff | | Load 0x2,-0x1
0269 8224 | $ | Call 0x1,0x24
026a c402 | | Store 0x2,0x2
026b 4802 |H | Short_Literal 0x2
026c 00db | | Load_Top At_Offset_3
026d e003 | | Load 0x0,0x3
026e 1817 | | Execute Package,Field_Execute,Field_Number 0x17
026f 6803 |h | Jump_Zero 0x273
0270 00da | | Load_Top At_Offset_2
0271 c5fb | | Store 0x2,-0x5
0272 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0273 00d9 | | Load_Top At_Offset_1
0274 e234 | 4 | Load 0x1,0x34
0275 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0276 00d9 | | Load_Top At_Offset_1
0277 017d | } | Execute Record,Structure_Write
0278 00d8 | | Load_Top At_Offset_0
0279 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
027a e5ff | | Load 0x2,-0x1
027b e008 | | Load 0x0,0x8
027c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
027d 00d1 | | Pop_Control Pop_Count_1
027e 4800 |H | Short_Literal 0x0
027f 00da | | Load_Top At_Offset_2
0280 00da | | Load_Top At_Offset_2
0281 e234 | 4 | Load 0x1,0x34
0282 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0283 e5fd | | Load 0x2,-0x3
0284 01db | | Execute Vector,Length
0285 680a |h | Jump_Zero 0x290
0286 e5fb | | Load 0x2,-0x5
0287 e5fc | | Load 0x2,-0x4
0288 4801 |H | Short_Literal 0x1
0289 4800 |H | Short_Literal 0x0
028a 4800 |H | Short_Literal 0x0
028b 00ea | | Load_Encached Null_String_Cache
028c e5fe | | Load 0x2,-0x2
028d e5fd | | Load 0x2,-0x3
028e 8224 | $ | Call 0x1,0x24
028f c5fb | | Store 0x2,-0x5
0290 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0291 TRAP_0228:
0291 0007 | | Action Break_Optional
0292 e5fb | | Load 0x2,-0x5
0293 0092 072b | +| Action Push_String_Extended,0x72b ; "Set_Remote_Directory"
0295 823b | ; | Call 0x1,0x3b
0296 c5fb | | Store 0x2,-0x5
0297 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029f | | .CONST 0x029f ; Address of begin
0299 02c6 | | .CONST 0x02c6 ; Address of exception handler
029a 0002 | | .CONST 0x0002 ; Number of locals
029b INIT_0298:
029b e21d | | Load 0x1,0x1d
029c 02c7 | | Declare_Variable Any
029d 00d8 | | Load_Top At_Offset_0
029e 1c00 | | Execute_Immediate Run_Utility,0x0
029f BODY_0298:
029f 00d8 | | Load_Top At_Offset_0
02a0 c5fa | | Store 0x2,-0x6
02a1 e5fd | | Load 0x2,-0x3
02a2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02a3 e00d | | Load 0x0,0xd
02a4 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
02a5 7006 |p | Jump_Nonzero 0x2ac
02a6 e5fa | | Load 0x2,-0x6
02a7 0092 072d | -| Action Push_String_Extended,0x72d ; "Put"
02a9 823a | : | Call 0x1,0x3a
02aa c5fa | | Store 0x2,-0x6
02ab 4506 |E | Exit_Suprogram New_Top_Offset 0x6
02ac e5fc | | Load 0x2,-0x4
02ad 700b |p | Jump_Nonzero 0x2b9
02ae 00d8 | | Load_Top At_Offset_0
02af e5fb | | Load 0x2,-0x5
02b0 4800 |H | Short_Literal 0x0
02b1 e5fd | | Load 0x2,-0x3
02b2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02b3 e5fe | | Load 0x2,-0x2
02b4 e5ff | | Load 0x2,-0x1
02b5 e002 | | Load 0x0,0x2
02b6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02b7 c402 | | Store 0x2,0x2
02b8 780a |x | Jump 0x2c3
02b9 00d8 | | Load_Top At_Offset_0
02ba e5fb | | Load 0x2,-0x5
02bb 4803 |H | Short_Literal 0x3
02bc e5fd | | Load 0x2,-0x3
02bd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02be e5fe | | Load 0x2,-0x2
02bf e5ff | | Load 0x2,-0x1
02c0 e002 | | Load 0x0,0x2
02c1 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02c2 c402 | | Store 0x2,0x2
02c3 00d8 | | Load_Top At_Offset_0
02c4 c5fa | | Store 0x2,-0x6
02c5 4506 |E | Exit_Suprogram New_Top_Offset 0x6
02c6 TRAP_0298:
02c6 0007 | | Action Break_Optional
02c7 e5fa | | Load 0x2,-0x6
02c8 0092 072d | -| Action Push_String_Extended,0x72d ; "Put"
02ca 823b | ; | Call 0x1,0x3b
02cb c5fa | | Store 0x2,-0x6
02cc 4506 |E | Exit_Suprogram New_Top_Offset 0x6
02cd 0000 0000 | | .XXX[0x3]
02cf 0000 | |
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02e0 | | .CONST 0x02e0 ; Address of begin
02d1 0355 | U | .CONST 0x0355 ; Address of exception handler
02d2 0005 | | .CONST 0x0005 ; Number of locals
02d3 INIT_02d0:
02d3 e21d | | Load 0x1,0x1d
02d4 02c7 | | Declare_Variable Any
02d5 00d8 | | Load_Top At_Offset_0
02d6 1c00 | | Execute_Immediate Run_Utility,0x0
02d7 00e1 | | Load_Encached Boolean_Cache
02d8 e001 | | Load 0x0,0x1
02d9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02da 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02db e001 | | Load 0x0,0x1
02dc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02dd 02c7 | | Declare_Variable Any
02de 00d8 | | Load_Top At_Offset_0
02df 1c00 | | Execute_Immediate Run_Utility,0x0
02e0 BODY_02d0:
02e0 00db | | Load_Top At_Offset_3
02e1 c5fa | | Store 0x2,-0x6
02e2 e5fd | | Load 0x2,-0x3
02e3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02e4 e00d | | Load 0x0,0xd
02e5 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
02e6 7006 |p | Jump_Nonzero 0x2ed
02e7 e5fa | | Load 0x2,-0x6
02e8 0092 072e | .| Action Push_String_Extended,0x72e ; "Get"
02ea 823a | : | Call 0x1,0x3a
02eb c5fa | | Store 0x2,-0x6
02ec 4506 |E | Exit_Suprogram New_Top_Offset 0x6
02ed e001 | | Load 0x0,0x1
02ee 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02ef 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02f0 00d9 | | Load_Top At_Offset_1
02f1 0120 | | Execute Any,Is_Value
02f2 6803 |h | Jump_Zero 0x2f6
02f3 e001 | | Load 0x0,0x1
02f4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02f5 7801 |x | Jump 0x2f7
02f6 00d9 | | Load_Top At_Offset_1
02f7 6064 |`d | Indirect_Literal Discrete,0x35c,{0x00000000, 0x00004000}
02f8 e010 | | Load 0x0,0x10
02f9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02fa e006 | | Load 0x0,0x6
02fb 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02fc e001 | | Load 0x0,0x1
02fd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02fe 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02ff e5ff | | Load 0x2,-0x1
0300 e001 | | Load 0x0,0x1
0301 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0302 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0303 c405 | | Store 0x2,0x5
0304 005a | Z | Store_Top Discrete,At_Offset_2
0305 00d9 | | Load_Top At_Offset_1
0306 0f00 | | Execute_Immediate Equal,0x0
0307 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0308 e5fc | | Load 0x2,-0x4
0309 680b |h | Jump_Zero 0x315
030a 00db | | Load_Top At_Offset_3
030b e5fb | | Load 0x2,-0x5
030c 4802 |H | Short_Literal 0x2
030d e5fd | | Load 0x2,-0x3
030e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
030f e5fe | | Load 0x2,-0x2
0310 e5ff | | Load 0x2,-0x1
0311 e002 | | Load 0x0,0x2
0312 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0313 c402 | | Store 0x2,0x2
0314 780a |x | Jump 0x31f
0315 00db | | Load_Top At_Offset_3
0316 e5fb | | Load 0x2,-0x5
0317 4800 |H | Short_Literal 0x0
0318 e5fd | | Load 0x2,-0x3
0319 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
031a e5fe | | Load 0x2,-0x2
031b e5ff | | Load 0x2,-0x1
031c e002 | | Load 0x0,0x2
031d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
031e c402 | | Store 0x2,0x2
031f 00db | | Load_Top At_Offset_3
0320 c5fa | | Store 0x2,-0x6
0321 4801 |H | Short_Literal 0x1
0322 e402 | | Load 0x2,0x2
0323 e003 | | Load 0x0,0x3
0324 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0325 7014 |p | Jump_Nonzero 0x33a
0326 e5fb | | Load 0x2,-0x5
0327 6811 |h | Jump_Zero 0x339
0328 e005 | | Load 0x0,0x5
0329 180e | | Execute Package,Field_Execute,Field_Number 0xe
032a 4802 |H | Short_Literal 0x2
032b 0092 072f | /| Action Push_String_Extended,0x72f ; "Uploaded host unit \x22"
032d e5ff | | Load 0x2,-0x1
032e 01cc | | Execute Vector,Catenate
032f 0092 0730 | 0| Action Push_String_Extended,0x730 ; "\x22 from remote unit \x22"
0331 01cc | | Execute Vector,Catenate
0332 e5fe | | Load 0x2,-0x2
0333 01cc | | Execute Vector,Catenate
0334 0092 0731 | 1| Action Push_String_Extended,0x731 ; "\x22."
0336 01cc | | Execute Vector,Catenate
0337 e00e | | Load 0x0,0xe
0338 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0339 4506 |E | Exit_Suprogram New_Top_Offset 0x6
033a e5fa | | Load 0x2,-0x6
033b 4802 |H | Short_Literal 0x2
033c 0092 0732 | 2| Action Push_String_Extended,0x732 ; "Can't get unit \x22"
033e e5ff | | Load 0x2,-0x1
033f 01cc | | Execute Vector,Catenate
0340 0092 0733 | 3| Action Push_String_Extended,0x733 ; "\x22 from remote file \x22"
0342 01cc | | Execute Vector,Catenate
0343 e5fe | | Load 0x2,-0x2
0344 01cc | | Execute Vector,Catenate
0345 0092 0731 | 1| Action Push_String_Extended,0x731 ; "\x22."
0347 01cc | | Execute Vector,Catenate
0348 8235 | 5 | Call 0x1,0x35
0349 c5fa | | Store 0x2,-0x6
034a 00da | | Load_Top At_Offset_2
034b 7008 |p | Jump_Nonzero 0x354
034c 0092 0723 | #| Action Push_String_Extended,0x723 ; "<PROFILE>"
034e 0092 0734 | 4| Action Push_String_Extended,0x734 ; "<WORLDS>"
0350 4801 |H | Short_Literal 0x1
0351 e5ff | | Load 0x2,-0x1
0352 e011 | | Load 0x0,0x11
0353 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0354 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0355 TRAP_02d0:
0355 0007 | | Action Break_Optional
0356 e5fa | | Load 0x2,-0x6
0357 0092 072e | .| Action Push_String_Extended,0x72e ; "Get"
0359 823b | ; | Call 0x1,0x3b
035a c5fa | | Store 0x2,-0x6
035b 4506 |E | Exit_Suprogram New_Top_Offset 0x6
035c 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0373 | s | .CONST 0x0373 ; Address of begin
0361 03f8 | | .CONST 0x03f8 ; Address of exception handler
0362 0005 | | .CONST 0x0005 ; Number of locals
0363 INIT_0360:
0363 e21d | | Load 0x1,0x1d
0364 02c7 | | Declare_Variable Any
0365 00d8 | | Load_Top At_Offset_0
0366 1c00 | | Execute_Immediate Run_Utility,0x0
0367 e00f | | Load 0x0,0xf
0368 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0369 0322 | " | Declare_Variable Record
036a 00d8 | | Load_Top At_Offset_0
036b 1c00 | | Execute_Immediate Run_Utility,0x0
036c e012 | | Load 0x0,0x12
036d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
036e 02c7 | | Declare_Variable Any
036f 00d8 | | Load_Top At_Offset_0
0370 1c00 | | Execute_Immediate Run_Utility,0x0
0371 029f 0683 | | Declare_Subprogram INIT_0680,For_Call
0373 BODY_0360:
0373 00db | | Load_Top At_Offset_3
0374 c5f8 | | Store 0x2,-0x8
0375 e5fe | | Load 0x2,-0x2
0376 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0377 e013 | | Load 0x0,0x13
0378 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0379 c404 | | Store 0x2,0x4
037a e5ff | | Load 0x2,-0x1
037b 8405 | | Call 0x2,0x5
037c 00db | | Load_Top At_Offset_3
037d 017d | } | Execute Record,Structure_Write
037e 00da | | Load_Top At_Offset_2
037f 4801 |H | Short_Literal 0x1
0380 e5f9 | | Load 0x2,-0x7
0381 e00f | | Load 0x0,0xf
0382 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0383 00d1 | | Pop_Control Pop_Count_1
0384 4802 |H | Short_Literal 0x2
0385 00db | | Load_Top At_Offset_3
0386 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0387 e003 | | Load 0x0,0x3
0388 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0389 6818 |h | Jump_Zero 0x3a2
038a e005 | | Load 0x0,0x5
038b 180e | | Execute Package,Field_Execute,Field_Number 0xe
038c 4805 |H | Short_Literal 0x5
038d e403 | | Load 0x2,0x3
038e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
038f e003 | | Load 0x0,0x3
0390 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0391 e00e | | Load 0x0,0xe
0392 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0393 e5f8 | | Load 0x2,-0x8
0394 00db | | Load_Top At_Offset_3
0395 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0396 e003 | | Load 0x0,0x3
0397 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0398 0092 0735 | 5| Action Push_String_Extended,0x735 ; "Remote command \x22"
039a e5ff | | Load 0x2,-0x1
039b 01cc | | Execute Vector,Catenate
039c 0092 0736 | 6| Action Push_String_Extended,0x736 ; "\x22 failed."
039e 01cc | | Execute Vector,Catenate
039f 8235 | 5 | Call 0x1,0x35
03a0 c5f8 | | Store 0x2,-0x8
03a1 4508 |E | Exit_Suprogram New_Top_Offset 0x8
03a2 00d9 | | Load_Top At_Offset_1
03a3 e012 | | Load 0x0,0x12
03a4 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
03a5 6851 |hQ | Jump_Zero 0x3f7
03a6 4800 |H | Short_Literal 0x0
03a7 00db | | Load_Top At_Offset_3
03a8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
03a9 00da | | Load_Top At_Offset_2
03aa 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03ab 00da | | Load_Top At_Offset_2
03ac e012 | | Load 0x0,0x12
03ad 1820 | | Execute Package,Field_Execute,Field_Number 0x20
03ae e008 | | Load 0x0,0x8
03af 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03b0 00d1 | | Pop_Control Pop_Count_1
03b1 00da | | Load_Top At_Offset_2
03b2 4801 |H | Short_Literal 0x1
03b3 e5f9 | | Load 0x2,-0x7
03b4 e00f | | Load 0x0,0xf
03b5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03b6 00d1 | | Pop_Control Pop_Count_1
03b7 4802 |H | Short_Literal 0x2
03b8 00db | | Load_Top At_Offset_3
03b9 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
03ba e003 | | Load 0x0,0x3
03bb 1817 | | Execute Package,Field_Execute,Field_Number 0x17
03bc 680f |h | Jump_Zero 0x3cc
03bd e5f8 | | Load 0x2,-0x8
03be 00db | | Load_Top At_Offset_3
03bf 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
03c0 e003 | | Load 0x0,0x3
03c1 1814 | | Execute Package,Field_Execute,Field_Number 0x14
03c2 0092 0735 | 5| Action Push_String_Extended,0x735 ; "Remote command \x22"
03c4 e5ff | | Load 0x2,-0x1
03c5 01cc | | Execute Vector,Catenate
03c6 0092 0736 | 6| Action Push_String_Extended,0x736 ; "\x22 failed."
03c8 01cc | | Execute Vector,Catenate
03c9 8235 | 5 | Call 0x1,0x35
03ca c5f8 | | Store 0x2,-0x8
03cb 4508 |E | Exit_Suprogram New_Top_Offset 0x8
03cc 4801 |H | Short_Literal 0x1
03cd 00db | | Load_Top At_Offset_3
03ce 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
03cf e003 | | Load 0x0,0x3
03d0 1817 | | Execute Package,Field_Execute,Field_Number 0x17
03d1 6817 |h | Jump_Zero 0x3e9
03d2 e5f8 | | Load 0x2,-0x8
03d3 00db | | Load_Top At_Offset_3
03d4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
03d5 e003 | | Load 0x0,0x3
03d6 1814 | | Execute Package,Field_Execute,Field_Number 0x14
03d7 00ea | | Load_Encached Null_String_Cache
03d8 8235 | 5 | Call 0x1,0x35
03d9 c5f8 | | Store 0x2,-0x8
03da e5f9 | | Load 0x2,-0x7
03db 680c |h | Jump_Zero 0x3e8
03dc e005 | | Load 0x0,0x5
03dd 180e | | Execute Package,Field_Execute,Field_Number 0xe
03de 4806 |H | Short_Literal 0x6
03df 0092 0735 | 5| Action Push_String_Extended,0x735 ; "Remote command \x22"
03e1 e5ff | | Load 0x2,-0x1
03e2 01cc | | Execute Vector,Catenate
03e3 0092 0737 | 7| Action Push_String_Extended,0x737 ; "\x22 executed with warnings."
03e5 01cc | | Execute Vector,Catenate
03e6 e00e | | Load 0x0,0xe
03e7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03e8 4508 |E | Exit_Suprogram New_Top_Offset 0x8
03e9 e5f9 | | Load 0x2,-0x7
03ea 680c |h | Jump_Zero 0x3f7
03eb e005 | | Load 0x0,0x5
03ec 180e | | Execute Package,Field_Execute,Field_Number 0xe
03ed 4802 |H | Short_Literal 0x2
03ee 0092 0735 | 5| Action Push_String_Extended,0x735 ; "Remote command \x22"
03f0 e5ff | | Load 0x2,-0x1
03f1 01cc | | Execute Vector,Catenate
03f2 0092 0738 | 8| Action Push_String_Extended,0x738 ; "\x22 executed successfuly."
03f4 01cc | | Execute Vector,Catenate
03f5 e00e | | Load 0x0,0xe
03f6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03f7 4508 |E | Exit_Suprogram New_Top_Offset 0x8
03f8 TRAP_0360:
03f8 0007 | | Action Break_Optional
03f9 e5f8 | | Load 0x2,-0x8
03fa 0092 0739 | 9| Action Push_String_Extended,0x739 ; "Execute_Command"
03fc 823b | ; | Call 0x1,0x3b
03fd c5f8 | | Store 0x2,-0x8
03fe 4508 |E | Exit_Suprogram New_Top_Offset 0x8
03ff 0000 | | .XXX[0x1]
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0407 | | .CONST 0x0407 ; Address of begin
0401 041a | | .CONST 0x041a ; Address of exception handler
0402 0002 | | .CONST 0x0002 ; Number of locals
0403 INIT_0400:
0403 e21d | | Load 0x1,0x1d
0404 02c7 | | Declare_Variable Any
0405 00d8 | | Load_Top At_Offset_0
0406 1c00 | | Execute_Immediate Run_Utility,0x0
0407 BODY_0400:
0407 00d8 | | Load_Top At_Offset_0
0408 c5fc | | Store 0x2,-0x4
0409 e22e | . | Load 0x1,0x2e
040a c5fb | | Store 0x2,-0x5
040b e5fd | | Load 0x2,-0x3
040c 680c |h | Jump_Zero 0x419
040d e005 | | Load 0x0,0x5
040e 180e | | Execute Package,Field_Execute,Field_Number 0xe
040f 4802 |H | Short_Literal 0x2
0410 0092 073a | :| Action Push_String_Extended,0x73a ; "Executed Unit_Update_Time for remote unit \x22"
0412 e5ff | | Load 0x2,-0x1
0413 01cc | | Execute Vector,Catenate
0414 0092 0731 | 1| Action Push_String_Extended,0x731 ; "\x22."
0416 01cc | | Execute Vector,Catenate
0417 e00e | | Load 0x0,0xe
0418 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0419 4504 |E | Exit_Suprogram New_Top_Offset 0x4
041a TRAP_0400:
041a 0007 | | Action Break_Optional
041b e5fc | | Load 0x2,-0x4
041c 0092 073b | ;| Action Push_String_Extended,0x73b ; "Unit_Update_Time"
041e 823b | ; | Call 0x1,0x3b
041f c5fc | | Store 0x2,-0x4
0420 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0421 0000 0000 | | .BLANK 0000[0x7]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 0446 | F | .CONST 0x0446 ; Address of begin
0429 0479 | y | .CONST 0x0479 ; Address of exception handler
042a 0006 | | .CONST 0x0006 ; Number of locals
042b INIT_0428:
042b e006 | | Load 0x0,0x6
042c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
042d e006 | | Load 0x0,0x6
042e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
042f 03f1 | | Declare_Variable Discrete,With_Value
0430 e231 | 1 | Load 0x1,0x31
0431 0322 | " | Declare_Variable Record
0432 00d8 | | Load_Top At_Offset_0
0433 1c01 | | Execute_Immediate Run_Utility,0x1
0434 00d9 | | Load_Top At_Offset_1
0435 e234 | 4 | Load 0x1,0x34
0436 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0437 00d9 | | Load_Top At_Offset_1
0438 017d | } | Execute Record,Structure_Write
0439 00d8 | | Load_Top At_Offset_0
043a 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
043b e008 | | Load 0x0,0x8
043c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
043d e21d | | Load 0x1,0x1d
043e 02c7 | | Declare_Variable Any
043f 00d8 | | Load_Top At_Offset_0
0440 1c00 | | Execute_Immediate Run_Utility,0x0
0441 e012 | | Load 0x0,0x12
0442 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0443 02c7 | | Declare_Variable Any
0444 00d8 | | Load_Top At_Offset_0
0445 1c00 | | Execute_Immediate Run_Utility,0x0
0446 BODY_0428:
0446 00d9 | | Load_Top At_Offset_1
0447 c5fc | | Store 0x2,-0x4
0448 4800 |H | Short_Literal 0x0
0449 a5fb | | Store_Unchecked 0x2,-0x5
044a e5fe | | Load 0x2,-0x2
044b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
044c e013 | | Load 0x0,0x13
044d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
044e c406 | | Store 0x2,0x6
044f 00d9 | | Load_Top At_Offset_1
0450 e5fd | | Load 0x2,-0x3
0451 4801 |H | Short_Literal 0x1
0452 4800 |H | Short_Literal 0x0
0453 4800 |H | Short_Literal 0x0
0454 00ea | | Load_Encached Null_String_Cache
0455 e5fe | | Load 0x2,-0x2
0456 e406 | | Load 0x2,0x6
0457 e012 | | Load 0x0,0x12
0458 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0459 0092 073c | <| Action Push_String_Extended,0x73c ; " "
045b 01cc | | Execute Vector,Catenate
045c e5ff | | Load 0x2,-0x1
045d 01cc | | Execute Vector,Catenate
045e 8224 | $ | Call 0x1,0x24
045f c405 | | Store 0x2,0x5
0460 4802 |H | Short_Literal 0x2
0461 00da | | Load_Top At_Offset_2
0462 e003 | | Load 0x0,0x3
0463 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0464 6801 |h | Jump_Zero 0x466
0465 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0466 4801 |H | Short_Literal 0x1
0467 a5fb | | Store_Unchecked 0x2,-0x5
0468 e5fd | | Load 0x2,-0x3
0469 680e |h | Jump_Zero 0x478
046a e005 | | Load 0x0,0x5
046b 180e | | Execute Package,Field_Execute,Field_Number 0xe
046c 4802 |H | Short_Literal 0x2
046d 0092 073d | =| Action Push_String_Extended,0x73d ; "Executed File_Exists for remote file \x22"
046f e5ff | | Load 0x2,-0x1
0470 01cc | | Execute Vector,Catenate
0471 0092 073e | >| Action Push_String_Extended,0x73e ; "\x22 on "
0473 01cc | | Execute Vector,Catenate
0474 e404 | | Load 0x2,0x4
0475 01cc | | Execute Vector,Catenate
0476 e00e | | Load 0x0,0xe
0477 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0478 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0479 TRAP_0428:
0479 0007 | | Action Break_Optional
047a e5fc | | Load 0x2,-0x4
047b 0092 073f | ?| Action Push_String_Extended,0x73f ; "File_Exists"
047d 823b | ; | Call 0x1,0x3b
047e c5fc | | Store 0x2,-0x4
047f 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0480 ; --------------------------------------------------------------------------------------
0480 ; SUBPROGRAM
0480 ; --------------------------------------------------------------------------------------
0480 0483 | | .CONST 0x0483 ; Address of begin
0481 0004 | | .CONST 0x0004 ; Address of exception handler
0482 0001 | | .CONST 0x0001 ; Number of locals
0483 BODY_0480:
0483 INIT_0480:
0483 4608 |F | Jump_Case 0x9
0484 7808 |x | Jump 0x48d ; case 0x0
0485 7823 |x# | Jump 0x4a9 ; case 0x1
0486 782f |x/ | Jump 0x4b6 ; case 0x2
0487 782e |x. | Jump 0x4b6 ; case 0x3
0488 782d |x- | Jump 0x4b6 ; case 0x4
0489 782c |x, | Jump 0x4b6 ; case 0x5
048a 782b |x+ | Jump 0x4b6 ; case 0x6
048b 782a |x* | Jump 0x4b6 ; case 0x7
048c 7829 |x) | Jump 0x4b6 ; case 0x8
048d 00da | | Load_Top At_Offset_2
048e 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
048f 0125 | % | Execute Any,Set_Constraint
0490 00da | | Load_Top At_Offset_2
0491 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0492 1c00 | | Execute_Immediate Run_Utility,0x0
0493 00da | | Load_Top At_Offset_2
0494 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0495 0125 | % | Execute Any,Set_Constraint
0496 00da | | Load_Top At_Offset_2
0497 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0498 1c00 | | Execute_Immediate Run_Utility,0x0
0499 00da | | Load_Top At_Offset_2
049a 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
049b 0125 | % | Execute Any,Set_Constraint
049c 00da | | Load_Top At_Offset_2
049d 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
049e 1c00 | | Execute_Immediate Run_Utility,0x0
049f 00da | | Load_Top At_Offset_2
04a0 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
04a1 0125 | % | Execute Any,Set_Constraint
04a2 00da | | Load_Top At_Offset_2
04a3 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
04a4 1c00 | | Execute_Immediate Run_Utility,0x0
04a5 00da | | Load_Top At_Offset_2
04a6 3408 |4 | Execute Record,Field_Reference,Field_Number 0x8
04a7 1c00 | | Execute_Immediate Run_Utility,0x0
04a8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
04a9 00da | | Load_Top At_Offset_2
04aa 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
04ab 0125 | % | Execute Any,Set_Constraint
04ac 00da | | Load_Top At_Offset_2
04ad 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
04ae 0125 | % | Execute Any,Set_Constraint
04af 00da | | Load_Top At_Offset_2
04b0 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
04b1 0125 | % | Execute Any,Set_Constraint
04b2 00da | | Load_Top At_Offset_2
04b3 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
04b4 0125 | % | Execute Any,Set_Constraint
04b5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
04b6 0869 | i | Execute_Immediate Raise,0x69
04b7 0000 | | .XXX[0x1]
04b8 ; --------------------------------------------------------------------------------------
04b8 ; SUBPROGRAM
04b8 ; --------------------------------------------------------------------------------------
04b8 04c7 | | .CONST 0x04c7 ; Address of begin
04b9 0004 | | .CONST 0x0004 ; Address of exception handler
04ba 0003 | | .CONST 0x0003 ; Number of locals
04bb INIT_04b8:
04bb e006 | | Load 0x0,0x6
04bc 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04bd e006 | | Load 0x0,0x6
04be 1b10 | | Execute Package,Field_Read,Field_Number 0x10
04bf 03f1 | | Declare_Variable Discrete,With_Value
04c0 e006 | | Load 0x0,0x6
04c1 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04c2 e014 | | Load 0x0,0x14
04c3 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
04c4 e007 | | Load 0x0,0x7
04c5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04c6 03f1 | | Declare_Variable Discrete,With_Value
04c7 BODY_04b8:
04c7 00d9 | | Load_Top At_Offset_1
04c8 e5ff | | Load 0x2,-0x1
04c9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
04ca 00d8 | | Load_Top At_Offset_0
04cb e5ff | | Load 0x2,-0x1
04cc 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
04cd 4800 |H | Short_Literal 0x0
04ce e5ff | | Load 0x2,-0x1
04cf 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
04d0 4800 |H | Short_Literal 0x0
04d1 e5ff | | Load 0x2,-0x1
04d2 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
04d3 e005 | | Load 0x0,0x5
04d4 180e | | Execute Package,Field_Execute,Field_Number 0xe
04d5 4801 |H | Short_Literal 0x1
04d6 0092 0740 | @| Action Push_String_Extended,0x740 ; "Initialized Job_Record for job"
04d8 e402 | | Load 0x2,0x2
04d9 00e0 | | Load_Encached Standard_Cache
04da 1818 | | Execute Package,Field_Execute,Field_Number 0x18
04db 01cc | | Execute Vector,Catenate
04dc 0092 0741 | A| Action Push_String_Extended,0x741 ; ", task"
04de 01cc | | Execute Vector,Catenate
04df 00db | | Load_Top At_Offset_3
04e0 00d8 | | Load_Top At_Offset_0
04e1 00e2 | | Load_Encached Integer_Cache
04e2 0260 | ` | Execute Discrete,In_Type
04e3 7001 |p | Jump_Nonzero 0x4e5
04e4 0801 | | Execute_Immediate Raise,0x1
04e5 00e0 | | Load_Encached Standard_Cache
04e6 1818 | | Execute Package,Field_Execute,Field_Number 0x18
04e7 01cc | | Execute Vector,Catenate
04e8 e00e | | Load 0x0,0xe
04e9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04ea 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04eb 0000 0000 | | .BLANK 0000[0x5]
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 e005 | | Load 0x0,0x5
04f4 180e | | Execute Package,Field_Execute,Field_Number 0xe
04f5 4801 |H | Short_Literal 0x1
04f6 0092 0742 | B| Action Push_String_Extended,0x742 ; "Finalizing Job_Record"
04f8 e00e | | Load 0x0,0xe
04f9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04fa 4800 |H | Short_Literal 0x0
04fb 00db | | Load_Top At_Offset_3
04fc 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
04fd 4800 |H | Short_Literal 0x0
04fe 00db | | Load_Top At_Offset_3
04ff 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0500 4800 |H | Short_Literal 0x0
0501 00db | | Load_Top At_Offset_3
0502 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0503 4800 |H | Short_Literal 0x0
0504 00db | | Load_Top At_Offset_3
0505 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0506 00da | | Load_Top At_Offset_2
0507 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0508 00ea | | Load_Encached Null_String_Cache
0509 e008 | | Load 0x0,0x8
050a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
050b 00d1 | | Pop_Control Pop_Count_1
050c 00da | | Load_Top At_Offset_2
050d 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
050e 00ea | | Load_Encached Null_String_Cache
050f e008 | | Load 0x0,0x8
0510 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0511 00d1 | | Pop_Control Pop_Count_1
0512 00da | | Load_Top At_Offset_2
0513 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0514 00ea | | Load_Encached Null_String_Cache
0515 e008 | | Load 0x0,0x8
0516 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0517 00d1 | | Pop_Control Pop_Count_1
0518 00da | | Load_Top At_Offset_2
0519 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
051a 00ea | | Load_Encached Null_String_Cache
051b e008 | | Load 0x0,0x8
051c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
051d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
051e 0000 0000 | | .XXX[0x2]
0520 ; --------------------------------------------------------------------------------------
0520 ; SUBPROGRAM
0520 ; --------------------------------------------------------------------------------------
0520 0523 | # | .CONST 0x0523 ; Address of begin
0521 0004 | | .CONST 0x0004 ; Address of exception handler
0522 0001 | | .CONST 0x0001 ; Number of locals
0523 BODY_0520:
0523 INIT_0520:
0523 e5fd | | Load 0x2,-0x3
0524 00db | | Load_Top At_Offset_3
0525 e5fe | | Load 0x2,-0x2
0526 00ea | | Load_Encached Null_String_Cache
0527 e003 | | Load 0x0,0x3
0528 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0529 e003 | | Load 0x0,0x3
052a 181b | | Execute Package,Field_Execute,Field_Number 0x1b
052b c5fd | | Store 0x2,-0x3
052c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
052d 0000 0000 | | .XXX[0x3]
052f 0000 | |
0530 ; --------------------------------------------------------------------------------------
0530 ; SUBPROGRAM
0530 ; --------------------------------------------------------------------------------------
0530 0535 | 5 | .CONST 0x0535 ; Address of begin
0531 0004 | | .CONST 0x0004 ; Address of exception handler
0532 0002 | | .CONST 0x0002 ; Number of locals
0533 INIT_0530:
0533 029f 069b | | Declare_Subprogram INIT_0698,For_Call
0535 BODY_0530:
0535 e5fd | | Load 0x2,-0x3
0536 0f04 | | Execute_Immediate Equal,0x4
0537 6801 |h | Jump_Zero 0x539
0538 8402 | | Call 0x2,0x2
0539 00db | | Load_Top At_Offset_3
053a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
053b 0000 0000 | | .BLANK 0000[0x5]
0540 ; --------------------------------------------------------------------------------------
0540 ; SUBPROGRAM
0540 ; --------------------------------------------------------------------------------------
0540 0545 | E | .CONST 0x0545 ; Address of begin
0541 0004 | | .CONST 0x0004 ; Address of exception handler
0542 0002 | | .CONST 0x0002 ; Number of locals
0543 INIT_0540:
0543 029f 06d3 | | Declare_Subprogram INIT_06d0,For_Call
0545 BODY_0540:
0545 e5fd | | Load 0x2,-0x3
0546 0f04 | | Execute_Immediate Equal,0x4
0547 6801 |h | Jump_Zero 0x549
0548 8402 | | Call 0x2,0x2
0549 00db | | Load_Top At_Offset_3
054a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
054b 0000 0000 | | .BLANK 0000[0x5]
0550 ; --------------------------------------------------------------------------------------
0550 ; SUBPROGRAM
0550 ; --------------------------------------------------------------------------------------
0550 057e | ~ | .CONST 0x057e ; Address of begin
0551 05b0 | | .CONST 0x05b0 ; Address of exception handler
0552 0007 | | .CONST 0x0007 ; Number of locals
0553 INIT_0550:
0553 e012 | | Load 0x0,0x12
0554 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0555 02c7 | | Declare_Variable Any
0556 e5fa | | Load 0x2,-0x6
0557 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0558 e013 | | Load 0x0,0x13
0559 1816 | | Execute Package,Field_Execute,Field_Number 0x16
055a a402 | | Store_Unchecked 0x2,0x2
055b e015 | | Load 0x0,0x15
055c 1b37 | 7 | Execute Package,Field_Read,Field_Number 0x37
055d 02c7 | | Declare_Variable Any
055e e5fa | | Load 0x2,-0x6
055f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0560 e013 | | Load 0x0,0x13
0561 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0562 a403 | | Store_Unchecked 0x2,0x3
0563 00d8 | | Load_Top At_Offset_0
0564 e015 | | Load 0x0,0x15
0565 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e
0566 e015 | | Load 0x0,0x15
0567 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0568 03f1 | | Declare_Variable Discrete,With_Value
0569 e00f | | Load 0x0,0xf
056a 1b15 | | Execute Package,Field_Read,Field_Number 0x15
056b 0322 | " | Declare_Variable Record
056c 00db | | Load_Top At_Offset_3
056d e00f | | Load 0x0,0xf
056e 1b15 | | Execute Package,Field_Read,Field_Number 0x15
056f 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
0570 0119 | | Execute Any,Check_In_Formal_Type
0571 00d9 | | Load_Top At_Offset_1
0572 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0573 00d9 | | Load_Top At_Offset_1
0574 00d9 | | Load_Top At_Offset_1
0575 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0576 00d9 | | Load_Top At_Offset_1
0577 e5ff | | Load 0x2,-0x1
0578 e5fe | | Load 0x2,-0x2
0579 8236 | 6 | Call 0x1,0x36
057a 00da | | Load_Top At_Offset_2
057b e5ff | | Load 0x2,-0x1
057c e5fd | | Load 0x2,-0x3
057d 8237 | 7 | Call 0x1,0x37
057e BODY_0550:
057e e00f | | Load 0x0,0xf
057f 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0580 700a |p | Jump_Nonzero 0x58b
0581 e5f9 | | Load 0x2,-0x7
0582 e5fb | | Load 0x2,-0x5
0583 e405 | | Load 0x2,0x5
0584 00db | | Load_Top At_Offset_3
0585 e406 | | Load 0x2,0x6
0586 e5ff | | Load 0x2,-0x1
0587 e00f | | Load 0x0,0xf
0588 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0589 c5f9 | | Store 0x2,-0x7
058a 780e |x | Jump 0x599
058b e005 | | Load 0x0,0x5
058c 180e | | Execute Package,Field_Execute,Field_Number 0xe
058d 4801 |H | Short_Literal 0x1
058e 0092 0743 | C| Action Push_String_Extended,0x743 ; "Connection to "
0590 e5ff | | Load 0x2,-0x1
0591 01cc | | Execute Vector,Catenate
0592 0092 0744 | D| Action Push_String_Extended,0x744 ; " already exists for "
0594 01cc | | Execute Vector,Catenate
0595 e406 | | Load 0x2,0x6
0596 01cc | | Execute Vector,Catenate
0597 e00e | | Load 0x0,0xe
0598 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0599 4802 |H | Short_Literal 0x2
059a e5f9 | | Load 0x2,-0x7
059b e003 | | Load 0x0,0x3
059c 1817 | | Execute Package,Field_Execute,Field_Number 0x17
059d 6801 |h | Jump_Zero 0x59f
059e 4507 |E | Exit_Suprogram New_Top_Offset 0x7
059f e402 | | Load 0x2,0x2
05a0 e012 | | Load 0x0,0x12
05a1 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
05a2 680c |h | Jump_Zero 0x5af
05a3 e5f9 | | Load 0x2,-0x7
05a4 e5fb | | Load 0x2,-0x5
05a5 4801 |H | Short_Literal 0x1
05a6 4800 |H | Short_Literal 0x0
05a7 4800 |H | Short_Literal 0x0
05a8 00ea | | Load_Encached Null_String_Cache
05a9 e5fa | | Load 0x2,-0x6
05aa e402 | | Load 0x2,0x2
05ab e012 | | Load 0x0,0x12
05ac 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
05ad 8224 | $ | Call 0x1,0x24
05ae c5f9 | | Store 0x2,-0x7
05af 4507 |E | Exit_Suprogram New_Top_Offset 0x7
05b0 TRAP_0550:
05b0 e016 | | Load 0x0,0x16
05b1 010f | | Execute Exception,Equal
05b2 6807 |h | Jump_Zero 0x5ba
05b3 e5f9 | | Load 0x2,-0x7
05b4 4802 |H | Short_Literal 0x2
05b5 0092 0745 | E| Action Push_String_Extended,0x745 ; "Null username specified for TELNET login"
05b7 8235 | 5 | Call 0x1,0x35
05b8 c5f9 | | Store 0x2,-0x7
05b9 4507 |E | Exit_Suprogram New_Top_Offset 0x7
05ba e017 | | Load 0x0,0x17
05bb 010f | | Execute Exception,Equal
05bc 6807 |h | Jump_Zero 0x5c4
05bd e5f9 | | Load 0x2,-0x7
05be 4802 |H | Short_Literal 0x2
05bf 0092 0746 | F| Action Push_String_Extended,0x746 ; "Null password specified for TELNET login"
05c1 8235 | 5 | Call 0x1,0x35
05c2 c5f9 | | Store 0x2,-0x7
05c3 4507 |E | Exit_Suprogram New_Top_Offset 0x7
05c4 e5f9 | | Load 0x2,-0x7
05c5 4802 |H | Short_Literal 0x2
05c6 0092 0747 | G| Action Push_String_Extended,0x747 ; "Exception "
05c8 4800 |H | Short_Literal 0x0
05c9 4801 |H | Short_Literal 0x1
05ca e018 | | Load 0x0,0x18
05cb 1815 | | Execute Package,Field_Execute,Field_Number 0x15
05cc 01cc | | Execute Vector,Catenate
05cd 0092 0748 | H| Action Push_String_Extended,0x748 ; " caught in Remote_Commands.Telnet_Connect"
05cf 01cc | | Execute Vector,Catenate
05d0 8235 | 5 | Call 0x1,0x35
05d1 c5f9 | | Store 0x2,-0x7
05d2 4507 |E | Exit_Suprogram New_Top_Offset 0x7
05d3 0000 0000 | | .BLANK 0000[0x5]
05d8 ; --------------------------------------------------------------------------------------
05d8 ; SUBPROGRAM
05d8 ; --------------------------------------------------------------------------------------
05d8 05db | | .CONST 0x05db ; Address of begin
05d9 05e0 | | .CONST 0x05e0 ; Address of exception handler
05da 0001 | | .CONST 0x0001 ; Number of locals
05db BODY_05d8:
05db INIT_05d8:
05db e006 | | Load 0x0,0x6
05dc 180e | | Execute Package,Field_Execute,Field_Number 0xe
05dd e00f | | Load 0x0,0xf
05de 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05df 4501 |E | Exit_Suprogram New_Top_Offset 0x1
05e0 TRAP_05d8:
05e0 0007 | | Action Break_Optional
05e1 e005 | | Load 0x0,0x5
05e2 180e | | Execute Package,Field_Execute,Field_Number 0xe
05e3 4808 |H | Short_Literal 0x8
05e4 0092 0747 | G| Action Push_String_Extended,0x747 ; "Exception "
05e6 4800 |H | Short_Literal 0x0
05e7 4801 |H | Short_Literal 0x1
05e8 e018 | | Load 0x0,0x18
05e9 1815 | | Execute Package,Field_Execute,Field_Number 0x15
05ea 01cc | | Execute Vector,Catenate
05eb 0092 0749 | I| Action Push_String_Extended,0x749 ; " caught in Remote_Commands.Telnet_Disconnect"
05ed 01cc | | Execute Vector,Catenate
05ee e00e | | Load 0x0,0xe
05ef 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05f0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
05f1 0000 0000 | | .BLANK 0000[0x7]
05f8 ; --------------------------------------------------------------------------------------
05f8 ; SUBPROGRAM
05f8 ; --------------------------------------------------------------------------------------
05f8 05fb | | .CONST 0x05fb ; Address of begin
05f9 0004 | | .CONST 0x0004 ; Address of exception handler
05fa 0001 | | .CONST 0x0001 ; Number of locals
05fb BODY_05f8:
05fb INIT_05f8:
05fb 00db | | Load_Top At_Offset_3
05fc 4802 |H | Short_Literal 0x2
05fd 0092 074a | J| Action Push_String_Extended,0x74a ; "Remote connection has been broken. Can't execute command \x22"
05ff e5ff | | Load 0x2,-0x1
0600 01cc | | Execute Vector,Catenate
0601 0092 0731 | 1| Action Push_String_Extended,0x731 ; "\x22."
0603 01cc | | Execute Vector,Catenate
0604 8235 | 5 | Call 0x1,0x35
0605 c5fe | | Store 0x2,-0x2
0606 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0607 0000 | | .XXX[0x1]
0608 ; --------------------------------------------------------------------------------------
0608 ; SUBPROGRAM
0608 ; --------------------------------------------------------------------------------------
0608 060b | | .CONST 0x060b ; Address of begin
0609 0004 | | .CONST 0x0004 ; Address of exception handler
060a 0001 | | .CONST 0x0001 ; Number of locals
060b BODY_0608:
060b INIT_0608:
060b 00db | | Load_Top At_Offset_3
060c 4802 |H | Short_Literal 0x2
060d 0092 074b | K| Action Push_String_Extended,0x74b ; "Unexpected exception during "
060f e5ff | | Load 0x2,-0x1
0610 01cc | | Execute Vector,Catenate
0611 0092 074c | L| Action Push_String_Extended,0x74c ; " operation -- "
0613 01cc | | Execute Vector,Catenate
0614 4800 |H | Short_Literal 0x0
0615 4801 |H | Short_Literal 0x1
0616 e018 | | Load 0x0,0x18
0617 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0618 01cc | | Execute Vector,Catenate
0619 8235 | 5 | Call 0x1,0x35
061a c5fe | | Store 0x2,-0x2
061b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
061c 0000 0000 | | .BLANK 0000[0x4]
0620 ; --------------------------------------------------------------------------------------
0620 ; SUBPROGRAM
0620 ; --------------------------------------------------------------------------------------
0620 0623 | # | .CONST 0x0623 ; Address of begin
0621 0004 | | .CONST 0x0004 ; Address of exception handler
0622 0001 | | .CONST 0x0001 ; Number of locals
0623 BODY_0620:
0623 INIT_0620:
0623 e406 | | Load 0x2,0x6
0624 e5fb | | Load 0x2,-0x5
0625 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0626 0120 | | Execute Any,Is_Value
0627 6803 |h | Jump_Zero 0x62b
0628 e002 | | Load 0x0,0x2
0629 1b0d | | Execute Package,Field_Read,Field_Number 0xd
062a 7802 |x | Jump 0x62d
062b e5fb | | Load 0x2,-0x5
062c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
062d e5fc | | Load 0x2,-0x4
062e 00ea | | Load_Encached Null_String_Cache
062f e7fe | | Load 0x3,-0x2
0630 e7ff | | Load 0x3,-0x1
0631 e5ff | | Load 0x2,-0x1
0632 e002 | | Load 0x0,0x2
0633 180f | | Execute Package,Field_Execute,Field_Number 0xf
0634 e5fb | | Load 0x2,-0x5
0635 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0636 c406 | | Store 0x2,0x6
0637 4802 |H | Short_Literal 0x2
0638 e406 | | Load 0x2,0x6
0639 e003 | | Load 0x0,0x3
063a 1817 | | Execute Package,Field_Execute,Field_Number 0x17
063b 6803 |h | Jump_Zero 0x63f
063c e406 | | Load 0x2,0x6
063d c5fa | | Store 0x2,-0x6
063e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
063f e406 | | Load 0x2,0x6
0640 e5fb | | Load 0x2,-0x5
0641 e5fc | | Load 0x2,-0x4
0642 00ea | | Load_Encached Null_String_Cache
0643 e7fe | | Load 0x3,-0x2
0644 e7ff | | Load 0x3,-0x1
0645 e5ff | | Load 0x2,-0x1
0646 8238 | 8 | Call 0x1,0x38
0647 c406 | | Store 0x2,0x6
0648 4802 |H | Short_Literal 0x2
0649 e406 | | Load 0x2,0x6
064a e003 | | Load 0x0,0x3
064b 1817 | | Execute Package,Field_Execute,Field_Number 0x17
064c 6803 |h | Jump_Zero 0x650
064d e406 | | Load 0x2,0x6
064e c5fa | | Store 0x2,-0x6
064f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0650 4801 |H | Short_Literal 0x1
0651 e404 | | Load 0x2,0x4
0652 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0653 e006 | | Load 0x0,0x6
0654 180f | | Execute Package,Field_Execute,Field_Number 0xf
0655 e404 | | Load 0x2,0x4
0656 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0657 e5fb | | Load 0x2,-0x5
0658 e404 | | Load 0x2,0x4
0659 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
065a e404 | | Load 0x2,0x4
065b 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
065c e5ff | | Load 0x2,-0x1
065d e008 | | Load 0x0,0x8
065e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
065f 00d1 | | Pop_Control Pop_Count_1
0660 e404 | | Load 0x2,0x4
0661 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0662 00db | | Load_Top At_Offset_3
0663 e008 | | Load 0x0,0x8
0664 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0665 00d1 | | Pop_Control Pop_Count_1
0666 e404 | | Load 0x2,0x4
0667 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0668 e7fe | | Load 0x3,-0x2
0669 e008 | | Load 0x0,0x8
066a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
066b 00d1 | | Pop_Control Pop_Count_1
066c 4800 |H | Short_Literal 0x0
066d e403 | | Load 0x2,0x3
066e e404 | | Load 0x2,0x4
066f e234 | 4 | Load 0x1,0x34
0670 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0671 e5fc | | Load 0x2,-0x4
0672 6809 |h | Jump_Zero 0x67c
0673 e005 | | Load 0x0,0x5
0674 180e | | Execute Package,Field_Execute,Field_Number 0xe
0675 4802 |H | Short_Literal 0x2
0676 0092 074d | M| Action Push_String_Extended,0x74d ; "Built a connection to remote machine "
0678 e5ff | | Load 0x2,-0x1
0679 01cc | | Execute Vector,Catenate
067a e00e | | Load 0x0,0xe
067b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
067c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
067d 0000 0000 | | .XXX[0x3]
067f 0000 | |
0680 ; --------------------------------------------------------------------------------------
0680 ; SUBPROGRAM
0680 ; --------------------------------------------------------------------------------------
0680 0688 | | .CONST 0x0688 ; Address of begin
0681 0004 | | .CONST 0x0004 ; Address of exception handler
0682 0002 | | .CONST 0x0002 ; Number of locals
0683 INIT_0680:
0683 e00f | | Load 0x0,0xf
0684 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0685 0322 | " | Declare_Variable Record
0686 00d8 | | Load_Top At_Offset_0
0687 1c00 | | Execute_Immediate Run_Utility,0x0
0688 BODY_0680:
0688 00d8 | | Load_Top At_Offset_0
0689 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
068a e7ff | | Load 0x3,-0x1
068b e008 | | Load 0x0,0x8
068c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
068d 00d1 | | Pop_Control Pop_Count_1
068e 4801 |H | Short_Literal 0x1
068f 00d9 | | Load_Top At_Offset_1
0690 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0691 00d8 | | Load_Top At_Offset_0
0692 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0693 0000 0000 | | .BLANK 0000[0x5]
0698 ; --------------------------------------------------------------------------------------
0698 ; SUBPROGRAM
0698 ; --------------------------------------------------------------------------------------
0698 06bb | | .CONST 0x06bb ; Address of begin
0699 0004 | | .CONST 0x0004 ; Address of exception handler
069a 0002 | | .CONST 0x0002 ; Number of locals
069b INIT_0698:
069b e005 | | Load 0x0,0x5
069c 180e | | Execute Package,Field_Execute,Field_Number 0xe
069d e005 | | Load 0x0,0x5
069e 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
069f e005 | | Load 0x0,0x5
06a0 180e | | Execute Package,Field_Execute,Field_Number 0xe
06a1 e005 | | Load 0x0,0x5
06a2 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
06a3 e005 | | Load 0x0,0x5
06a4 180e | | Execute Package,Field_Execute,Field_Number 0xe
06a5 e005 | | Load 0x0,0x5
06a6 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
06a7 e005 | | Load 0x0,0x5
06a8 180e | | Execute Package,Field_Execute,Field_Number 0xe
06a9 e005 | | Load 0x0,0x5
06aa 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
06ab e005 | | Load 0x0,0x5
06ac 180e | | Execute Package,Field_Execute,Field_Number 0xe
06ad e005 | | Load 0x0,0x5
06ae 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
06af e005 | | Load 0x0,0x5
06b0 180e | | Execute Package,Field_Execute,Field_Number 0xe
06b1 e005 | | Load 0x0,0x5
06b2 1817 | | Execute Package,Field_Execute,Field_Number 0x17
06b3 e005 | | Load 0x0,0x5
06b4 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
06b5 0092 074e | N| Action Push_String_Extended,0x74e ; "telnet_"
06b7 e5fe | | Load 0x2,-0x2
06b8 01cc | | Execute Vector,Catenate
06b9 e019 | | Load 0x0,0x19
06ba 1810 | | Execute Package,Field_Execute,Field_Number 0x10
06bb BODY_0698:
06bb 00d8 | | Load_Top At_Offset_0
06bc 01db | | Execute Vector,Length
06bd 7009 |p | Jump_Nonzero 0x6c7
06be e005 | | Load 0x0,0x5
06bf 180e | | Execute Package,Field_Execute,Field_Number 0xe
06c0 4807 |H | Short_Literal 0x7
06c1 0092 074f | O| Action Push_String_Extended,0x74f ; "Could not find telnet username specification in remote password file"
06c3 e00e | | Load 0x0,0xe
06c4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06c5 e016 | | Load 0x0,0x16
06c6 0257 | W | Execute Discrete,Raise
06c7 00d8 | | Load_Top At_Offset_0
06c8 00cb | | Action Pop_Block_With_Result
06c9 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
06ca 0000 0000 | | .BLANK 0000[0x6]
06d0 ; --------------------------------------------------------------------------------------
06d0 ; SUBPROGRAM
06d0 ; --------------------------------------------------------------------------------------
06d0 06f3 | | .CONST 0x06f3 ; Address of begin
06d1 0004 | | .CONST 0x0004 ; Address of exception handler
06d2 0002 | | .CONST 0x0002 ; Number of locals
06d3 INIT_06d0:
06d3 e005 | | Load 0x0,0x5
06d4 180e | | Execute Package,Field_Execute,Field_Number 0xe
06d5 e005 | | Load 0x0,0x5
06d6 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
06d7 e005 | | Load 0x0,0x5
06d8 180e | | Execute Package,Field_Execute,Field_Number 0xe
06d9 e005 | | Load 0x0,0x5
06da 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
06db e005 | | Load 0x0,0x5
06dc 180e | | Execute Package,Field_Execute,Field_Number 0xe
06dd e005 | | Load 0x0,0x5
06de 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
06df e005 | | Load 0x0,0x5
06e0 180e | | Execute Package,Field_Execute,Field_Number 0xe
06e1 e005 | | Load 0x0,0x5
06e2 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
06e3 e005 | | Load 0x0,0x5
06e4 180e | | Execute Package,Field_Execute,Field_Number 0xe
06e5 e005 | | Load 0x0,0x5
06e6 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
06e7 e005 | | Load 0x0,0x5
06e8 180e | | Execute Package,Field_Execute,Field_Number 0xe
06e9 e005 | | Load 0x0,0x5
06ea 1817 | | Execute Package,Field_Execute,Field_Number 0x17
06eb e005 | | Load 0x0,0x5
06ec 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
06ed 0092 074e | N| Action Push_String_Extended,0x74e ; "telnet_"
06ef e5fe | | Load 0x2,-0x2
06f0 01cc | | Execute Vector,Catenate
06f1 e019 | | Load 0x0,0x19
06f2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
06f3 BODY_06d0:
06f3 00d8 | | Load_Top At_Offset_0
06f4 01db | | Execute Vector,Length
06f5 7009 |p | Jump_Nonzero 0x6ff
06f6 e005 | | Load 0x0,0x5
06f7 180e | | Execute Package,Field_Execute,Field_Number 0xe
06f8 4807 |H | Short_Literal 0x7
06f9 0092 0750 | P| Action Push_String_Extended,0x750 ; "Could not find telnet password specification in remote password file"
06fb e00e | | Load 0x0,0xe
06fc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06fd e017 | | Load 0x0,0x17
06fe 0257 | W | Execute Discrete,Raise
06ff 00d8 | | Load_Top At_Offset_0
0700 00cb | | Action Pop_Block_With_Result
0701 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0702 0000 0000 | | .BLANK 0000[0x6]
0708 ; --------------------------------------------------------------------------------------
0708 ; SUBPROGRAM
0708 ; --------------------------------------------------------------------------------------
0708 070b | | .CONST 0x070b ; Address of begin
0709 0004 | | .CONST 0x0004 ; Address of exception handler
070a 0001 | | .CONST 0x0001 ; Number of locals
070b BODY_0708:
070b INIT_0708:
070b 4608 |F | Jump_Case 0x9
070c 7808 |x | Jump 0x715 ; case 0x0
070d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
070e 7811 |x | Jump 0x720 ; case 0x2
070f 7810 |x | Jump 0x720 ; case 0x3
0710 780f |x | Jump 0x720 ; case 0x4
0711 780e |x | Jump 0x720 ; case 0x5
0712 780d |x | Jump 0x720 ; case 0x6
0713 780c |x | Jump 0x720 ; case 0x7
0714 780b |x | Jump 0x720 ; case 0x8
0715 e001 | | Load 0x0,0x1
0716 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0717 00db | | Load_Top At_Offset_3
0718 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0719 00da | | Load_Top At_Offset_2
071a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
071b 0125 | % | Execute Any,Set_Constraint
071c 00da | | Load_Top At_Offset_2
071d 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
071e 1c00 | | Execute_Immediate Run_Utility,0x0
071f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0720 0869 | i | Execute_Immediate Raise,0x69
0721 ; --------------------------------------------------------------------------------------
0721 ; STRING TABLE
0721 ; --------------------------------------------------------------------------------------
0721 0062 | b | .STRTAB 0x0062->0x0752 ; "TEXT"
0722 0064 | d | .STRTAB 0x0064->0x0754 ; "BINARY"
0723 0068 | h | .STRTAB 0x0068->0x0757 ; "<PROFILE>"
0724 006f | o | .STRTAB 0x006f->0x075b ; "<PROFILE>,~+++,~---,~:::"
0725 0085 | | .STRTAB 0x0085->0x0767 ; "Reusing the existing connection to "
0726 00a6 | | .STRTAB 0x00a6->0x0779 ; "Acquire"
0727 00ab | | .STRTAB 0x00ab->0x077c ; "Released the connection to "
0728 00c4 | | .STRTAB 0x00c4->0x078a ; "Release"
0729 00c9 | | .STRTAB 0x00c9->0x078d ; "Destroyed the connection to "
072a 00e3 | | .STRTAB 0x00e3->0x079b ; "Destroy"
072b 00e8 | | .STRTAB 0x00e8->0x079f ; "Set_Remote_Directory"
072c 00fa | | .STRTAB 0x00fa->0x07a9 ; "Reusing the existing directory."
072d 0117 | | .STRTAB 0x0117->0x07b8 ; "Put"
072e 0118 | | .STRTAB 0x0118->0x07ba ; "Get"
072f 0119 | | .STRTAB 0x0119->0x07bb ; "Uploaded host unit \x22"
0730 012b | + | .STRTAB 0x012b->0x07c5 ; "\x22 from remote unit \x22"
0731 013d | = | .STRTAB 0x013d->0x07cf ; "\x22."
0732 013d | = | .STRTAB 0x013d->0x07d0 ; "Can't get unit \x22"
0733 014b | K | .STRTAB 0x014b->0x07d8 ; "\x22 from remote file \x22"
0734 015d | ] | .STRTAB 0x015d->0x07e2 ; "<WORLDS>"
0735 0163 | c | .STRTAB 0x0163->0x07e6 ; "Remote command \x22"
0736 0171 | q | .STRTAB 0x0171->0x07ee ; "\x22 failed."
0737 0178 | x | .STRTAB 0x0178->0x07f3 ; "\x22 executed with warnings."
0738 018f | | .STRTAB 0x018f->0x07ff ; "\x22 executed successfuly."
0739 01a4 | | .STRTAB 0x01a4->0x080b ; "Execute_Command"
073a 01b1 | | .STRTAB 0x01b1->0x0812 ; "Executed Unit_Update_Time for remote unit \x22"
073b 01da | | .STRTAB 0x01da->0x0828 ; "Unit_Update_Time"
073c 01e8 | | .STRTAB 0x01e8->0x0830 ; " "
073d 01e7 | | .STRTAB 0x01e7->0x0830 ; "Executed File_Exists for remote file \x22"
073e 020b | | .STRTAB 0x020b->0x0843 ; "\x22 on "
073f 020e | | .STRTAB 0x020e->0x0846 ; "File_Exists"
0740 0217 | | .STRTAB 0x0217->0x084b ; "Initialized Job_Record for job"
0741 0233 | 3 | .STRTAB 0x0233->0x085a ; ", task"
0742 0237 | 7 | .STRTAB 0x0237->0x085d ; "Finalizing Job_Record"
0743 024a | J | .STRTAB 0x024a->0x0868 ; "Connection to "
0744 0256 | V | .STRTAB 0x0256->0x086f ; " already exists for "
0745 0268 | h | .STRTAB 0x0268->0x0879 ; "Null username specified for TELNET login"
0746 028e | | .STRTAB 0x028e->0x088d ; "Null password specified for TELNET login"
0747 02b4 | | .STRTAB 0x02b4->0x08a1 ; "Exception "
0748 02bc | | .STRTAB 0x02bc->0x08a6 ; " caught in Remote_Commands.Telnet_Connect"
0749 02e3 | | .STRTAB 0x02e3->0x08ba ; " caught in Remote_Commands.Telnet_Disconnect"
074a 030d | | .STRTAB 0x030d->0x08d0 ; "Remote connection has been broken. Can't execute command \x22"
074b 0346 | F | .STRTAB 0x0346->0x08ee ; "Unexpected exception during "
074c 0360 | ` | .STRTAB 0x0360->0x08fc ; " operation -- "
074d 036c | l | .STRTAB 0x036c->0x0903 ; "Built a connection to remote machine "
074e 038f | | .STRTAB 0x038f->0x0915 ; "telnet_"
074f 0394 | | .STRTAB 0x0394->0x0919 ; "Could not find telnet username specification in remote password file"
0750 03d6 | | .STRTAB 0x03d6->0x093b ; "Could not find telnet password specification in remote password file"
0751 0418 | | .STREND 0x0418->0x095d
0752 5445 5854 |TEXT| .STRTAB_STRINGS
095d 0000 0000 | | .XXX[0x3]
095f 0000 | |
0960 ; --------------------------------------------------------------------------------------
0960 ; Debug Table
0960 ; --------------------------------------------------------------------------------------
0960 0004 000d | | .DEBUG4 0x0004,0x000d,0x6e17,0x0000,0x0001,0x0000
0966 0000 0000 | | .XXX[0x16]
0968 0006 f804 | |
096a 0000 0032 | 2|
096c 0006 f804 | |
096e 0000 0720 | |
0970 0006 f804 | |
0972 0000 0032 | 2|
0974 0006 f804 | |
0976 0000 06a0 | |
0978 0001 0404 | |
097a 0800 0888 | |
097c 0000 0000 | | .BLANK 0000[0xa]
0986 0057 26c5 | W& | .XXX[0x2]
0988 0000 0000 | | .BLANK 0000[0x7]
098f 0048 | H | .XXX[0x1]
0990 0000 0000 | | .BLANK 0000[0x8]
0998 005b 4cda | [L | .XXX[0x5]
099a 0800 0480 | |
099c 8000 | |
099d 0000 0000 | | .BLANK 0000[0x9]
09a6 0057 26c5 | W& | .XXX[0x2]
09a8 0000 0000 | | .BLANK 0000[0x7]
09af 0054 | T | .XXX[0x1]
09b0 0000 0000 | | .BLANK 0000[0x8]
09b8 005b 4cda | [L | .XXX[0x5]
09ba 0800 0600 | |
09bc 8000 | |
09bd 0000 0000 | | .BLANK 0000[0x9]
09c6 0057 26c5 | W& | .XXX[0x2]
09c8 0000 0000 | | .BLANK 0000[0x7]
09cf 0060 | ` | .XXX[0x1]
09d0 0000 0000 | | .BLANK 0000[0x8]
09d8 0001 0404 | | .XXX[0x5]
09da 0000 0280 | |
09dc 8000 | |
09dd 0000 0000 | | .BLANK 0000[0x9]
09e6 0057 26c5 | W& | .XXX[0x2]
09e8 0000 0000 | | .BLANK 0000[0x7]
09ef 006c | l | .XXX[0x1]
09f0 0000 0000 | | .BLANK 0000[0x8]
09f8 0001 0404 | | .XXX[0x8]
09fa 0000 0700 | |
09fc 8000 0000 | |
09fe 0000 0000 | |