|
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 - metrics - download
Length: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0698fd
└─⟦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 0430 | 0 | .CONST 0x0430 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 005b | [ | .CONST 0x005b ; Address of begin
0009 0093 | | .CONST 0x0093 ; Address of exception handler
000a 0022 | " | .CONST 0x0022 ; Number of locals
000b INIT_0008:
000b 4805 |H | Short_Literal 0x5
000c 02cb | | Declare_Variable Entry
000d 4801 |H | Short_Literal 0x1
000e 02cb | | Declare_Variable Entry
000f 4802 |H | Short_Literal 0x2
0010 02cb | | Declare_Variable Entry
0011 4800 |H | Short_Literal 0x0
0012 02cb | | Declare_Variable Entry
0013 00bf | | Action Accept_Activation
0014 e001 | | Load 0x0,0x1
0015 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0016 02c7 | | Declare_Variable Any
0017 00d8 | | Load_Top At_Offset_0
0018 1c00 | | Execute_Immediate Run_Utility,0x0
0019 e001 | | Load 0x0,0x1
001a 1b10 | | Execute Package,Field_Read,Field_Number 0x10
001b 02c7 | | Declare_Variable Any
001c 00d8 | | Load_Top At_Offset_0
001d 1c00 | | Execute_Immediate Run_Utility,0x0
001e e002 | | Load 0x0,0x2
001f 0322 | " | Declare_Variable Record
0020 00d8 | | Load_Top At_Offset_0
0021 1c00 | | Execute_Immediate Run_Utility,0x0
0022 00e1 | | Load_Encached Boolean_Cache
0023 e003 | | Load 0x0,0x3
0024 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0025 02c7 | | Declare_Variable Any
0026 00d8 | | Load_Top At_Offset_0
0027 1c00 | | Execute_Immediate Run_Utility,0x0
0028 e003 | | Load 0x0,0x3
0029 1b0d | | Execute Package,Field_Read,Field_Number 0xd
002a 02c7 | | Declare_Variable Any
002b 00d8 | | Load_Top At_Offset_0
002c 1c00 | | Execute_Immediate Run_Utility,0x0
002d e004 | | Load 0x0,0x4
002e 1b19 | | Execute Package,Field_Read,Field_Number 0x19
002f 00e1 | | Load_Encached Boolean_Cache
0030 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0031 00e1 | | Load_Encached Boolean_Cache
0032 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0033 4801 |H | Short_Literal 0x1
0034 60bb |` | Indirect_Literal Discrete,0xf0,{0x00000000, 0x00000400}
0035 e005 | | Load 0x0,0x5
0036 035b | [ | Declare_Type Array,Constrained
0037 0337 | 7 | Declare_Variable Array
0038 4850 |HP | Short_Literal 0x50
0039 e006 | | Load 0x0,0x6
003a 1b13 | | Execute Package,Field_Read,Field_Number 0x13
003b 1c08 | | Execute_Immediate Run_Utility,0x8
003c 00d8 | | Load_Top At_Offset_0
003d 1c00 | | Execute_Immediate Run_Utility,0x0
003e 00e9 | | Load_Encached String_Cache
003f 02a0 | | Declare_Subprogram Null_Subprogram
0040 4818 |H | Short_Literal 0x18
0041 03d3 | | Declare_Type Access,Defined,Accesses_Protected
0042 00d8 | | Load_Top At_Offset_0
0043 0007 | | Action Break_Optional
0044 e007 | | Load 0x0,0x7
0045 191c | | Execute Package,Field_Reference,Field_Number 0x1c
0046 0007 | | Action Break_Optional
0047 e001 | | Load 0x0,0x1
0048 1914 | | Execute Package,Field_Reference,Field_Number 0x14
0049 0007 | | Action Break_Optional
004a e008 | | Load 0x0,0x8
004b 02a5 | | Declare_Subprogram For_Outer_Call,With_Address
004c 480d |H | Short_Literal 0xd
004d 0299 00bb | | Declare_Subprogram For_Accept,INIT_00b8
004f 4810 481f |H H | Declare_Variable Select 0x000, 0x003,
0051 480f 4820 |H H | [0x000]: 0x000 = 0x0000,
0053 480e 4821 |H H!| [0x00e]: 0x021 = 0x0108,
0055 4800 4800 |H H | [0x00f]: 0x020 = 0x0100,
0057 4800 4803 |H H | [0x010]: 0x01f = 0x00f8
0059 02cf | |
005a 00bc | | Action Signal_Activated
005b BODY_0008:
005b e21b | | Load 0x1,0x1b
005c e009 | | Load 0x0,0x9
005d 1b13 | | Execute Package,Field_Read,Field_Number 0x13
005e 4802 |H | Short_Literal 0x2
005f e006 | | Load 0x0,0x6
0060 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0061 00d1 | | Pop_Control Pop_Count_1
0062 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
0063 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0064 0137 | 7 | Execute Entry,Rendezvous
0065 e218 | | Load 0x1,0x18
0066 6803 |h | Jump_Zero 0x6a
0067 e009 | | Load 0x0,0x9
0068 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0069 0257 | W | Execute Discrete,Raise
006a 00cf | | Action Mark_Auxiliary
006b 00d9 | | Load_Top At_Offset_1
006c 013f | ? | Execute Select,Rendezvous
006d 4603 |F | Jump_Case 0x3
006e 7805 |x | Jump 0x74 ; case 0x0
006f 7802 |x | Jump 0x72 ; case 0x1
0070 7801 |x | Jump 0x72 ; case 0x2
0071 7802 |x | Jump 0x74 ; case 0x3
0072 00c9 | | Action Pop_Auxiliary_Loop
0073 7ff7 | | Jump 0x6b
0074 00ce | | Action Pop_Auxiliary
0075 e219 | | Load 0x1,0x19
0076 e218 | | Load 0x1,0x18
0077 0278 | x | Execute Discrete,Or
0078 7008 |p | Jump_Nonzero 0x81
0079 e213 | | Load 0x1,0x13
007a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
007b 4800 |H | Short_Literal 0x0
007c 0092 031c | | Action Push_String_Extended,0x31c ; "[Remote login complete]"
007e e00a | | Load 0x0,0xa
007f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0080 7811 |x | Jump 0x92
0081 e218 | | Load 0x1,0x18
0082 6808 |h | Jump_Zero 0x8b
0083 e213 | | Load 0x1,0x13
0084 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0085 4805 |H | Short_Literal 0x5
0086 0092 031d | | Action Push_String_Extended,0x31d ; "[Remote login error occurred]"
0088 e00a | | Load 0x0,0xa
0089 1813 | | Execute Package,Field_Execute,Field_Number 0x13
008a 7807 |x | Jump 0x92
008b e213 | | Load 0x1,0x13
008c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
008d 4800 |H | Short_Literal 0x0
008e 0092 031e | | Action Push_String_Extended,0x31e ; "[Remote login received output on standard error]"
0090 e00a | | Load 0x0,0xa
0091 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0092 00bb | | Action Signal_Completion
0093 TRAP_0008:
0093 e009 | | Load 0x0,0x9
0094 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0095 010f | | Execute Exception,Equal
0096 7004 |p | Jump_Nonzero 0x9b
0097 e00b | | Load 0x0,0xb
0098 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
0099 010f | | Execute Exception,Equal
009a 6805 |h | Jump_Zero 0xa0
009b e213 | | Load 0x1,0x13
009c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
009d 0229 | ) | Execute Access,All_Read
009e 0209 | | Execute Task,Abort
009f 00bb | | Action Signal_Completion
00a0 4801 |H | Short_Literal 0x1
00a1 e211 | | Load 0x1,0x11
00a2 e001 | | Load 0x0,0x1
00a3 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00a4 0119 | | Execute Any,Check_In_Formal_Type
00a5 4808 |H | Short_Literal 0x8
00a6 0092 031f | | Action Push_String_Extended,0x31f ; "Unexpected exception in remote login: "
00a8 4800 |H | Short_Literal 0x0
00a9 4801 |H | Short_Literal 0x1
00aa e00c | | Load 0x0,0xc
00ab 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00ac 01cc | | Execute Vector,Catenate
00ad e001 | | Load 0x0,0x1
00ae 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00af e213 | | Load 0x1,0x13
00b0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00b1 0229 | ) | Execute Access,All_Read
00b2 0209 | | Execute Task,Abort
00b3 00bb | | Action Signal_Completion
00b4 0000 0000 | | .BLANK 0000[0x4]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb | | .CONST 0x00bb ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0001 | | .CONST 0x0001 ; Number of locals
00bb BODY_00b8:
00bb INIT_00b8:
00bb 029f 0113 | | Declare_Subprogram For_Call,INIT_0110
00bd e5fe | | Load 0x2,-0x2
00be 0227 | ' | Execute Access,All_Reference
00bf e213 | | Load 0x1,0x13
00c0 017d | } | Execute Record,Structure_Write
00c1 e213 | | Load 0x1,0x13
00c2 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
00c3 a214 | | Store_Unchecked 0x1,0x14
00c4 e211 | | Load 0x1,0x11
00c5 00d8 | | Load_Top At_Offset_0
00c6 0120 | | Execute Any,Is_Value
00c7 6804 |h | Jump_Zero 0xcc
00c8 e001 | | Load 0x0,0x1
00c9 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00ca 011e | | Execute Any,Convert
00cb 7803 |x | Jump 0xcf
00cc e001 | | Load 0x0,0x1
00cd 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00ce 0119 | | Execute Any,Check_In_Formal_Type
00cf e009 | | Load 0x0,0x9
00d0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00d1 e5fb | | Load 0x2,-0x5
00d2 e001 | | Load 0x0,0x1
00d3 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00d4 0119 | | Execute Any,Check_In_Formal_Type
00d5 e001 | | Load 0x0,0x1
00d6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00d7 c211 | | Store 0x1,0x11
00d8 e212 | | Load 0x1,0x12
00d9 00d8 | | Load_Top At_Offset_0
00da 0120 | | Execute Any,Is_Value
00db 6804 |h | Jump_Zero 0xe0
00dc e001 | | Load 0x0,0x1
00dd 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00de 011e | | Execute Any,Convert
00df 7803 |x | Jump 0xe3
00e0 e001 | | Load 0x0,0x1
00e1 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00e2 0119 | | Execute Any,Check_In_Formal_Type
00e3 e009 | | Load 0x0,0x9
00e4 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00e5 e5fb | | Load 0x2,-0x5
00e6 e001 | | Load 0x0,0x1
00e7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00e8 0119 | | Execute Any,Check_In_Formal_Type
00e9 e001 | | Load 0x0,0x1
00ea 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00eb c212 | | Store 0x1,0x12
00ec 8402 | | Call 0x2,0x2
00ed 4101 |A | End_Rendezvous 0x1
00ee 0000 0000 | | .XXX[0x2]
00f0 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
00f4 0000 0000 | | .BLANK 0000[0x4]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; See instruction 0x02cf at 0x4f, index=0x10
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb 029f 016b | k| Declare_Subprogram For_Call,INIT_0168
00fd 8402 | | Call 0x2,0x2
00fe 4100 |A | End_Rendezvous 0x0
00ff 0000 | | .XXX[0x1]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; See instruction 0x02cf at 0x4f, index=0xf
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 029f 019b | | Declare_Subprogram For_Call,INIT_0198
0105 8402 | | Call 0x2,0x2
0106 4100 |A | End_Rendezvous 0x0
0107 0000 | | .XXX[0x1]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; See instruction 0x02cf at 0x4f, index=0xe
0108 ; --------------------------------------------------------------------------------------
0108 010b | | .CONST 0x010b ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0001 | | .CONST 0x0001 ; Number of locals
010b BODY_0108:
010b INIT_0108:
010b 029f 01e3 | | Declare_Subprogram For_Call,INIT_01e0
010d 8402 | | Call 0x2,0x2
010e 4100 |A | End_Rendezvous 0x0
010f 0000 | | .XXX[0x1]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0124 | $ | .CONST 0x0124 ; Address of begin
0111 0137 | 7 | .CONST 0x0137 ; Address of exception handler
0112 0007 | | .CONST 0x0007 ; Number of locals
0113 INIT_0110:
0113 e213 | | Load 0x1,0x13
0114 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0115 0007 | | Action Break_Optional
0116 e213 | | Load 0x1,0x13
0117 e5fd | | Load 0x2,-0x3
0118 e007 | | Load 0x0,0x7
0119 1814 | | Execute Package,Field_Execute,Field_Number 0x14
011a e213 | | Load 0x1,0x13
011b e5fd | | Load 0x2,-0x3
011c e007 | | Load 0x0,0x7
011d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
011e 029f 021b | | Declare_Subprogram For_Call,INIT_0218
0120 029f 027b | {| Declare_Subprogram For_Call,INIT_0278
0122 029f 02a3 | | Declare_Subprogram For_Call,INIT_02a0
0124 BODY_0110:
0124 8605 | | Call 0x3,0x5
0125 e213 | | Load 0x1,0x13
0126 e216 | | Load 0x1,0x16
0127 e003 | | Load 0x0,0x3
0128 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0129 e00d | | Load 0x0,0xd
012a 1812 | | Execute Package,Field_Execute,Field_Number 0x12
012b e215 | | Load 0x1,0x15
012c 821e | | Call 0x1,0x1e
012d 4800 |H | Short_Literal 0x0
012e e213 | | Load 0x1,0x13
012f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0130 0229 | ) | Execute Access,All_Read
0131 170f | | Execute Task,Entry_Call,Field_Number 0xf
0132 8606 | | Call 0x3,0x6
0133 8607 | | Call 0x3,0x7
0134 4801 |H | Short_Literal 0x1
0135 a5fa | | Store_Unchecked 0x2,-0x6
0136 4501 |E | Exit_Subprogram 0x1
0137 TRAP_0110:
0137 e007 | | Load 0x0,0x7
0138 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0139 010f | | Execute Exception,Equal
013a 680f |h | Jump_Zero 0x14a
013b 4801 |H | Short_Literal 0x1
013c e211 | | Load 0x1,0x11
013d e001 | | Load 0x0,0x1
013e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
013f 0119 | | Execute Any,Check_In_Formal_Type
0140 4805 |H | Short_Literal 0x5
0141 0092 0320 | | Action Push_String_Extended,0x320 ; "Aborting remote login: Remote machine unknown"
0143 e001 | | Load 0x0,0x1
0144 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0145 4801 |H | Short_Literal 0x1
0146 a218 | | Store_Unchecked 0x1,0x18
0147 4800 |H | Short_Literal 0x0
0148 a5fa | | Store_Unchecked 0x2,-0x6
0149 4501 |E | Exit_Subprogram 0x1
014a e009 | | Load 0x0,0x9
014b 1b14 | | Execute Package,Field_Read,Field_Number 0x14
014c 010f | | Execute Exception,Equal
014d 6805 |h | Jump_Zero 0x153
014e 4801 |H | Short_Literal 0x1
014f a218 | | Store_Unchecked 0x1,0x18
0150 4800 |H | Short_Literal 0x0
0151 a5fa | | Store_Unchecked 0x2,-0x6
0152 4501 |E | Exit_Subprogram 0x1
0153 4801 |H | Short_Literal 0x1
0154 e211 | | Load 0x1,0x11
0155 e001 | | Load 0x0,0x1
0156 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0157 0119 | | Execute Any,Check_In_Formal_Type
0158 4808 |H | Short_Literal 0x8
0159 0092 031f | | Action Push_String_Extended,0x31f ; "Unexpected exception in remote login: "
015b 4800 |H | Short_Literal 0x0
015c 4801 |H | Short_Literal 0x1
015d e00c | | Load 0x0,0xc
015e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
015f 01cc | | Execute Vector,Catenate
0160 e001 | | Load 0x0,0x1
0161 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0162 4801 |H | Short_Literal 0x1
0163 a218 | | Store_Unchecked 0x1,0x18
0164 4800 |H | Short_Literal 0x0
0165 a5fa | | Store_Unchecked 0x2,-0x6
0166 4501 |E | Exit_Subprogram 0x1
0167 0000 | | .XXX[0x1]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b | k | .CONST 0x016b ; Address of begin
0169 0180 | | .CONST 0x0180 ; Address of exception handler
016a 0001 | | .CONST 0x0001 ; Number of locals
016b BODY_0168:
016b INIT_0168:
016b e213 | | Load 0x1,0x13
016c 0092 0321 | !| Action Push_String_Extended,0x321 ; "exit\x0a"
016e e00d | | Load 0x0,0xd
016f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0170 e215 | | Load 0x1,0x15
0171 821e | | Call 0x1,0x1e
0172 00e1 | | Load_Encached Boolean_Cache
0173 4801 |H | Short_Literal 0x1
0174 e213 | | Load 0x1,0x13
0175 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0176 0229 | ) | Execute Access,All_Read
0177 1710 | | Execute Task,Entry_Call,Field_Number 0x10
0178 c219 | | Store 0x1,0x19
0179 e215 | | Load 0x1,0x15
017a e003 | | Load 0x0,0x3
017b 181e | | Execute Package,Field_Execute,Field_Number 0x1e
017c e215 | | Load 0x1,0x15
017d e003 | | Load 0x0,0x3
017e 181b | | Execute Package,Field_Execute,Field_Number 0x1b
017f 4501 |E | Exit_Subprogram 0x1
0180 TRAP_0168:
0180 0007 | | Action Break_Optional
0181 4801 |H | Short_Literal 0x1
0182 e211 | | Load 0x1,0x11
0183 e001 | | Load 0x0,0x1
0184 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0185 0119 | | Execute Any,Check_In_Formal_Type
0186 4808 |H | Short_Literal 0x8
0187 0092 0322 | "| Action Push_String_Extended,0x322 ; "Unexpected exception finishing remote login:"
0189 4800 |H | Short_Literal 0x0
018a 4801 |H | Short_Literal 0x1
018b e00c | | Load 0x0,0xc
018c 1815 | | Execute Package,Field_Execute,Field_Number 0x15
018d 01cc | | Execute Vector,Catenate
018e e001 | | Load 0x0,0x1
018f 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0190 e213 | | Load 0x1,0x13
0191 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0192 0229 | ) | Execute Access,All_Read
0193 0209 | | Execute Task,Abort
0194 4501 |E | Exit_Subprogram 0x1
0195 0000 0000 | | .XXX[0x3]
0197 0000 | |
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 01a1 | | .CONST 0x01a1 ; Address of begin
0199 01bf | | .CONST 0x01bf ; Address of exception handler
019a 0002 | | .CONST 0x0002 ; Number of locals
019b INIT_0198:
019b 603c |`< | Indirect_Literal Discrete,0x1d8,{0x00000000, 0x00000400}
019c e006 | | Load 0x0,0x6
019d 1b13 | | Execute Package,Field_Read,Field_Number 0x13
019e 1c08 | | Execute_Immediate Run_Utility,0x8
019f 00d8 | | Load_Top At_Offset_0
01a0 1c00 | | Execute_Immediate Run_Utility,0x0
01a1 BODY_0198:
01a1 e213 | | Load 0x1,0x13
01a2 480a |H | Short_Literal 0xa
01a3 e5fe | | Load 0x2,-0x2
01a4 01cb | | Execute Vector,Append
01a5 e00d | | Load 0x0,0xd
01a6 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01a7 e215 | | Load 0x1,0x15
01a8 821e | | Call 0x1,0x1e
01a9 e5fd | | Load 0x2,-0x3
01aa e00e | | Load 0x0,0xe
01ab 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
01ac 6806 |h | Jump_Zero 0x1b3
01ad 00d8 | | Load_Top At_Offset_0
01ae e5fd | | Load 0x2,-0x3
01af e006 | | Load 0x0,0x6
01b0 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01b1 00d1 | | Pop_Control Pop_Count_1
01b2 7807 |x | Jump 0x1ba
01b3 00d8 | | Load_Top At_Offset_0
01b4 e213 | | Load 0x1,0x13
01b5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01b6 4802 |H | Short_Literal 0x2
01b7 e006 | | Load 0x0,0x6
01b8 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01b9 00d1 | | Pop_Control Pop_Count_1
01ba 00d8 | | Load_Top At_Offset_0
01bb 4801 |H | Short_Literal 0x1
01bc 6017 |` | Indirect_Literal Discrete,0x1d4,{0x00000000, 0x00960000}
01bd 8220 | | Call 0x1,0x20
01be 4501 |E | Exit_Subprogram 0x1
01bf TRAP_0198:
01bf 0007 | | Action Break_Optional
01c0 4800 |H | Short_Literal 0x0
01c1 e211 | | Load 0x1,0x11
01c2 e001 | | Load 0x0,0x1
01c3 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01c4 0119 | | Execute Any,Check_In_Formal_Type
01c5 4808 |H | Short_Literal 0x8
01c6 0092 0323 | #| Action Push_String_Extended,0x323 ; "Unexpected exception in remote execution: "
01c8 4800 |H | Short_Literal 0x0
01c9 4801 |H | Short_Literal 0x1
01ca e00c | | Load 0x0,0xc
01cb 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01cc 01cc | | Execute Vector,Catenate
01cd e001 | | Load 0x0,0x1
01ce 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01cf 4801 |H | Short_Literal 0x1
01d0 a218 | | Store_Unchecked 0x1,0x18
01d1 4501 |E | Exit_Subprogram 0x1
01d2 0000 0000 | | .XXX[0x2]
01d4 0000 0000 | | .LITERAL {0x00000000, 0x00960000}
01d8 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
01dc 0000 0000 | | .BLANK 0000[0x4]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01ec | | .CONST 0x01ec ; Address of begin
01e1 0200 | | .CONST 0x0200 ; Address of exception handler
01e2 0002 | | .CONST 0x0002 ; Number of locals
01e3 INIT_01e0:
01e3 e213 | | Load 0x1,0x13
01e4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01e5 e00b | | Load 0x0,0xb
01e6 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
01e7 e006 | | Load 0x0,0x6
01e8 1b13 | | Execute Package,Field_Read,Field_Number 0x13
01e9 1c08 | | Execute_Immediate Run_Utility,0x8
01ea 00d8 | | Load_Top At_Offset_0
01eb 1c00 | | Execute_Immediate Run_Utility,0x0
01ec BODY_01e0:
01ec e213 | | Load 0x1,0x13
01ed 480a |H | Short_Literal 0xa
01ee e5fe | | Load 0x2,-0x2
01ef 01cb | | Execute Vector,Append
01f0 e00d | | Load 0x0,0xd
01f1 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01f2 e215 | | Load 0x1,0x15
01f3 821e | | Call 0x1,0x1e
01f4 00d8 | | Load_Top At_Offset_0
01f5 e213 | | Load 0x1,0x13
01f6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01f7 4802 |H | Short_Literal 0x2
01f8 e006 | | Load 0x0,0x6
01f9 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01fa 00d1 | | Pop_Control Pop_Count_1
01fb 00d8 | | Load_Top At_Offset_0
01fc 4801 |H | Short_Literal 0x1
01fd 67d6 |g | Indirect_Literal Discrete,0x1d4,{0x00000000, 0x00960000}
01fe 8220 | | Call 0x1,0x20
01ff 4501 |E | Exit_Subprogram 0x1
0200 TRAP_01e0:
0200 0007 | | Action Break_Optional
0201 4800 |H | Short_Literal 0x0
0202 e211 | | Load 0x1,0x11
0203 e001 | | Load 0x0,0x1
0204 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0205 0119 | | Execute Any,Check_In_Formal_Type
0206 4808 |H | Short_Literal 0x8
0207 0092 0323 | #| Action Push_String_Extended,0x323 ; "Unexpected exception in remote execution: "
0209 4800 |H | Short_Literal 0x0
020a 4801 |H | Short_Literal 0x1
020b e00c | | Load 0x0,0xc
020c 1815 | | Execute Package,Field_Execute,Field_Number 0x15
020d 01cc | | Execute Vector,Catenate
020e e001 | | Load 0x0,0x1
020f 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0210 4801 |H | Short_Literal 0x1
0211 a218 | | Store_Unchecked 0x1,0x18
0212 4501 |E | Exit_Subprogram 0x1
0213 0000 0000 | | .BLANK 0000[0x5]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b | | .CONST 0x021b ; Address of begin
0219 024b | K | .CONST 0x024b ; Address of exception handler
021a 0001 | | .CONST 0x0001 ; Number of locals
021b BODY_0218:
021b INIT_0218:
021b e215 | | Load 0x1,0x15
021c e213 | | Load 0x1,0x13
021d e603 | | Load 0x3,0x3
021e e00f | | Load 0x0,0xf
021f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0220 e007 | | Load 0x0,0x7
0221 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0222 c215 | | Store 0x1,0x15
0223 e214 | | Load 0x1,0x14
0224 6807 |h | Jump_Zero 0x22c
0225 e211 | | Load 0x1,0x11
0226 e001 | | Load 0x0,0x1
0227 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0228 0119 | | Execute Any,Check_In_Formal_Type
0229 0092 0324 | $| Action Push_String_Extended,0x324 ; "Opened primary connection"
022b 821f | | Call 0x1,0x1f
022c e213 | | Load 0x1,0x13
022d e00f | | Load 0x0,0xf
022e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
022f e604 | | Load 0x3,0x4
0230 e215 | | Load 0x1,0x15
0231 e007 | | Load 0x0,0x7
0232 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0233 e216 | | Load 0x1,0x16
0234 0120 | | Execute Any,Is_Value
0235 6803 |h | Jump_Zero 0x239
0236 e003 | | Load 0x0,0x3
0237 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0238 7801 |x | Jump 0x23a
0239 e216 | | Load 0x1,0x16
023a e603 | | Load 0x3,0x3
023b 4802 |H | Short_Literal 0x2
023c e213 | | Load 0x1,0x13
023d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
023e 0229 | ) | Execute Access,All_Read
023f 170e | | Execute Task,Entry_Call,Field_Number 0xe
0240 c216 | | Store 0x1,0x16
0241 00cf | | Action Mark_Auxiliary
0242 7803 |x | Jump 0x246
0243 602c |`, | Indirect_Literal Discrete,0x270,{0x00000000, 0x00004000}
0244 00ba | | Action Initiate_Delay
0245 00c9 | | Action Pop_Auxiliary_Loop
0246 e216 | | Load 0x1,0x16
0247 e003 | | Load 0x0,0x3
0248 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0249 6ff9 |o | Jump_Zero 0x243
024a 4501 |E | Exit_Subprogram 0x1
024b TRAP_0218:
024b e007 | | Load 0x0,0x7
024c 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
024d 010f | | Execute Exception,Equal
024e 680d |h | Jump_Zero 0x25c
024f 4801 |H | Short_Literal 0x1
0250 e211 | | Load 0x1,0x11
0251 e001 | | Load 0x0,0x1
0252 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0253 0119 | | Execute Any,Check_In_Formal_Type
0254 4807 |H | Short_Literal 0x7
0255 0092 0325 | %| Action Push_String_Extended,0x325 ; "Aborting remote login due to Open or Connect failure."
0257 e001 | | Load 0x0,0x1
0258 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0259 e009 | | Load 0x0,0x9
025a 1b14 | | Execute Package,Field_Read,Field_Number 0x14
025b 0257 | W | Execute Discrete,Raise
025c 4801 |H | Short_Literal 0x1
025d e211 | | Load 0x1,0x11
025e e001 | | Load 0x0,0x1
025f 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0260 0119 | | Execute Any,Check_In_Formal_Type
0261 4808 |H | Short_Literal 0x8
0262 0092 0326 | &| Action Push_String_Extended,0x326 ; "Unexpected exception initializing remote login: "
0264 4800 |H | Short_Literal 0x0
0265 4801 |H | Short_Literal 0x1
0266 e00c | | Load 0x0,0xc
0267 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0268 01cc | | Execute Vector,Catenate
0269 e001 | | Load 0x0,0x1
026a 1812 | | Execute Package,Field_Execute,Field_Number 0x12
026b e009 | | Load 0x0,0x9
026c 1b14 | | Execute Package,Field_Read,Field_Number 0x14
026d 0257 | W | Execute Discrete,Raise
026e 0000 0000 | | .XXX[0x2]
0270 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0274 0000 0000 | | .BLANK 0000[0x4]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 028a | | .CONST 0x028a ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0003 | | .CONST 0x0003 ; Number of locals
027b INIT_0278:
027b 4800 |H | Short_Literal 0x0
027c e5fc | | Load 0x2,-0x4
027d e010 | | Load 0x0,0x10
027e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
027f 01cb | | Execute Vector,Append
0280 0007 | | Action Break_Optional
0281 4800 |H | Short_Literal 0x0
0282 00d9 | | Load_Top At_Offset_1
0283 00da | | Load_Top At_Offset_2
0284 01cc | | Execute Vector,Catenate
0285 e009 | | Load 0x0,0x9
0286 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0287 01cc | | Execute Vector,Catenate
0288 01cb | | Execute Vector,Append
0289 0007 | | Action Break_Optional
028a BODY_0278:
028a e214 | | Load 0x1,0x14
028b 6809 |h | Jump_Zero 0x295
028c e211 | | Load 0x1,0x11
028d e001 | | Load 0x0,0x1
028e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
028f 0119 | | Execute Any,Check_In_Formal_Type
0290 0092 0327 | '| Action Push_String_Extended,0x327 ; "Sending "
0292 00da | | Load_Top At_Offset_2
0293 01cc | | Execute Vector,Catenate
0294 821f | | Call 0x1,0x1f
0295 e213 | | Load 0x1,0x13
0296 00d9 | | Load_Top At_Offset_1
0297 e00d | | Load 0x0,0xd
0298 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0299 e215 | | Load 0x1,0x15
029a 821e | | Call 0x1,0x1e
029b 4501 |E | Exit_Subprogram 0x1
029c 0000 0000 | | .BLANK 0000[0x4]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a6 | | .CONST 0x02a6 ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0003 | | .CONST 0x0003 ; Number of locals
02a3 INIT_02a0:
02a3 e011 | | Load 0x0,0x11
02a4 0007 | | Action Break_Optional
02a5 00e3 | | Load_Encached Natural_Cache
02a6 BODY_02a0:
02a6 00e3 | | Load_Encached Natural_Cache
02a7 e21a | | Load 0x1,0x1a
02a8 e004 | | Load 0x0,0x4
02a9 1b19 | | Execute Package,Field_Read,Field_Number 0x19
02aa 606d |`m | Indirect_Literal Discrete,0x318,{0x00000000, 0x00960000}
02ab e215 | | Load 0x1,0x15
02ac e003 | | Load 0x0,0x3
02ad 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
02ae c217 | | Store 0x1,0x17
02af 00d1 | | Pop_Control Pop_Count_1
02b0 0059 | Y | Store_Top Discrete,At_Offset_1
02b1 00d8 | | Load_Top At_Offset_0
02b2 0c01 | | Execute_Immediate Greater_Equal,0x1
02b3 6840 |h@ | Jump_Zero 0x2f4
02b4 e213 | | Load 0x1,0x13
02b5 e217 | | Load 0x1,0x17
02b6 e007 | | Load 0x0,0x7
02b7 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02b8 4801 |H | Short_Literal 0x1
02b9 e21a | | Load 0x1,0x1a
02ba 01d7 | | Execute Vector,Field_Read
02bb 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
02bc 00d9 | | Load_Top At_Offset_1
02bd 0b00 | | Execute_Immediate Case_Compare,0x0
02be 7016 |p | Jump_Nonzero 0x2d5
02bf 0f01 | | Execute_Immediate Equal,0x1
02c0 701f |p | Jump_Nonzero 0x2e0
02c1 4801 |H | Short_Literal 0x1
02c2 e212 | | Load 0x1,0x12
02c3 e001 | | Load 0x0,0x1
02c4 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02c5 0119 | | Execute Any,Check_In_Formal_Type
02c6 4807 |H | Short_Literal 0x7
02c7 0092 0328 | (| Action Push_String_Extended,0x328 ; "Remote login error: "
02c9 4801 |H | Short_Literal 0x1
02ca e803 | | Load 0x4,0x3
02cb e21a | | Load 0x1,0x1a
02cc 01cf | | Execute Vector,Slice_Read
02cd e00d | | Load 0x0,0xd
02ce 180f | | Execute Package,Field_Execute,Field_Number 0xf
02cf 01cc | | Execute Vector,Catenate
02d0 e001 | | Load 0x0,0x1
02d1 1812 | | Execute Package,Field_Execute,Field_Number 0x12
02d2 e009 | | Load 0x0,0x9
02d3 1b14 | | Execute Package,Field_Read,Field_Number 0x14
02d4 0257 | W | Execute Discrete,Raise
02d5 00d1 | | Pop_Control Pop_Count_1
02d6 e214 | | Load 0x1,0x14
02d7 681c |h | Jump_Zero 0x2f4
02d8 e211 | | Load 0x1,0x11
02d9 e001 | | Load 0x0,0x1
02da 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02db 0119 | | Execute Any,Check_In_Formal_Type
02dc 0092 0329 | )| Action Push_String_Extended,0x329 ; "Remote login invocation OK."
02de 821f | | Call 0x1,0x1f
02df 7814 |x | Jump 0x2f4
02e0 4801 |H | Short_Literal 0x1
02e1 e212 | | Load 0x1,0x12
02e2 e001 | | Load 0x0,0x1
02e3 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02e4 0119 | | Execute Any,Check_In_Formal_Type
02e5 4807 |H | Short_Literal 0x7
02e6 0092 032a | *| Action Push_String_Extended,0x32a ; "Unable to start remote login: "
02e8 4802 |H | Short_Literal 0x2
02e9 e803 | | Load 0x4,0x3
02ea e21a | | Load 0x1,0x1a
02eb 01cf | | Execute Vector,Slice_Read
02ec e00d | | Load 0x0,0xd
02ed 180f | | Execute Package,Field_Execute,Field_Number 0xf
02ee 01cc | | Execute Vector,Catenate
02ef e001 | | Load 0x0,0x1
02f0 1812 | | Execute Package,Field_Execute,Field_Number 0x12
02f1 e009 | | Load 0x0,0x9
02f2 1b14 | | Execute Package,Field_Read,Field_Number 0x14
02f3 0257 | W | Execute Discrete,Raise
02f4 0092 032b | +| Action Push_String_Extended,0x32b ; "<[{"
02f6 e5fd | | Load 0x2,-0x3
02f7 01cc | | Execute Vector,Catenate
02f8 0092 032c | ,| Action Push_String_Extended,0x32c ; "}]>"
02fa 01cc | | Execute Vector,Catenate
02fb e21c | | Load 0x1,0x1c
02fc 03b6 | | Declare_Variable Access,By_Allocation,With_Value
02fd a21d | | Store_Unchecked 0x1,0x1d
02fe e213 | | Load 0x1,0x13
02ff 480a |H | Short_Literal 0xa
0300 4822 |H" | Short_Literal 0x22
0301 0092 032d | -| Action Push_String_Extended,0x32d ; "set prompt=\x22"
0303 e21d | | Load 0x1,0x1d
0304 0227 | ' | Execute Access,All_Reference
0305 01cc | | Execute Vector,Catenate
0306 01cb | | Execute Vector,Append
0307 01cb | | Execute Vector,Append
0308 e00d | | Load 0x0,0xd
0309 1810 | | Execute Package,Field_Execute,Field_Number 0x10
030a e215 | | Load 0x1,0x15
030b 821e | | Call 0x1,0x1e
030c e21b | | Load 0x1,0x1b
030d 4801 |H | Short_Literal 0x1
030e 6005 |` | Indirect_Literal Discrete,0x314,{0x00000000, 0x00050000}
030f 8220 | | Call 0x1,0x20
0310 4501 |E | Exit_Subprogram 0x1
0311 0000 0000 | | .XXX[0x3]
0313 0000 | |
0314 0000 0000 | | .LITERAL {0x00000000, 0x00050000}
0318 0000 0000 | | .LITERAL {0x00000000, 0x00960000}
031c ; --------------------------------------------------------------------------------------
031c ; STRING TABLE
031c ; --------------------------------------------------------------------------------------
031c 0026 | & | .STRTAB 0x0026->0x032f ; "[Remote login complete]"
031d 003b | ; | .STRTAB 0x003b->0x033a ; "[Remote login error occurred]"
031e 0056 | V | .STRTAB 0x0056->0x0349 ; "[Remote login received output on standard error]"
031f 0084 | | .STRTAB 0x0084->0x0361 ; "Unexpected exception in remote login: "
; "Unexpected exception in remote login: "
0320 00a8 | | .STRTAB 0x00a8->0x0374 ; "Aborting remote login: Remote machine unknown"
0321 00d3 | | .STRTAB 0x00d3->0x038a ; "exit\x0a"
0322 00d6 | | .STRTAB 0x00d6->0x038d ; "Unexpected exception finishing remote login:"
0323 0100 | | .STRTAB 0x0100->0x03a3 ; "Unexpected exception in remote execution: "
; "Unexpected exception in remote execution: "
0324 0128 | ( | .STRTAB 0x0128->0x03b8 ; "Opened primary connection"
0325 013f | ? | .STRTAB 0x013f->0x03c4 ; "Aborting remote login due to Open or Connect failure."
0326 0172 | r | .STRTAB 0x0172->0x03df ; "Unexpected exception initializing remote login: "
0327 01a0 | | .STRTAB 0x01a0->0x03f7 ; "Sending "
0328 01a7 | | .STRTAB 0x01a7->0x03fb ; "Remote login error: "
0329 01b9 | | .STRTAB 0x01b9->0x0405 ; "Remote login invocation OK."
032a 01d2 | | .STRTAB 0x01d2->0x0413 ; "Unable to start remote login: "
032b 01ee | | .STRTAB 0x01ee->0x0422 ; "<[{"
032c 01ef | | .STRTAB 0x01ef->0x0423 ; "}]>"
032d 01f0 | | .STRTAB 0x01f0->0x0425 ; "set prompt=\x22"
032e 01fa | | .STREND 0x01fa->0x042b
032f 5b52 656d |[Rem| .STRTAB_STRINGS
042b 0000 0000 | | .BLANK 0000[0x5]
0430 ; --------------------------------------------------------------------------------------
0430 ; Debug Table
0430 ; --------------------------------------------------------------------------------------
0430 0004 0001 | | .DEBUG4 0x0004,0x0001,0xc86b,0x0000,0x0001,0x0000
0436 0000 0000 | | .BLANK 0000[0x1ca]