|
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: 3072 (0xc00) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0fe0f5
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0470 | p | .CONST 0x0470 ; 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 005c | \ | .CONST 0x005c ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 002c | , | .CONST 0x002c ; Number of locals 000b INIT_0008: 000b 00c4 | | Action Make_Default 000c 00c4 | | Action Make_Default 000d 00c4 | | Action Make_Default 000e 00c4 | | Action Make_Default 000f 00c4 | | Action Make_Default 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 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated 001d c21a | | Store 0x1,0x1a 001e 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 0020 c217 | | Store 0x1,0x17 0021 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 0023 c21b | | Store 0x1,0x1b 0024 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 0026 c21c | | Store 0x1,0x1c 0027 00bf | | Action Accept_Activation 0028 e001 | | Load 0x0,0x1 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 029b 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Unelaborated 002f 029b 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Unelaborated 0031 029b 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Unelaborated 0033 e002 | | Load 0x0,0x2 0034 e003 | | Load 0x0,0x3 0035 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0036 e004 | | Load 0x0,0x4 0037 0387 | | Declare_Variable Package 0038 00d8 | | Load_Top At_Offset_0 0039 020f | | Execute Module,Activate 003a a005 | | Store_Unchecked 0x0,0x5 003b 00c6 | | Action Check_Subprogram_Elaborated 003c 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 003d 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 003e e006 | | Load 0x0,0x6 003f e007 | | Load 0x0,0x7 0040 4800 |H | Short_Literal 0x0 0041 0007 | | Action Break_Optional 0042 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0043 00c7 | | Action Elaborate_Subprogram 0044 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0045 00c7 | | Action Elaborate_Subprogram 0046 029d 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call 0048 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0049 00c7 | | Action Elaborate_Subprogram 004a 029d 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call 004c 029d 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call 004e 029d 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call 0050 029d 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call 0052 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0053 00c7 | | Action Elaborate_Subprogram 0054 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0055 00c7 | | Action Elaborate_Subprogram 0056 029d 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call 0058 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0059 00c7 | | Action Elaborate_Subprogram 005a 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 005b 00c7 | | Action Elaborate_Subprogram 005c BODY_0008: 005c 00bc | | Action Signal_Activated 005d 00bb | | Action Signal_Completion 005e 0000 0000 | | .XXX[0x2] 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 006d | m | .CONST 0x006d ; Address of begin 0061 006f | o | .CONST 0x006f ; Address of exception handler 0062 0003 | | .CONST 0x0003 ; Number of locals 0063 INIT_0060: 0063 e008 | | Load 0x0,0x8 0064 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0065 02c7 | | Declare_Variable Any 0066 e008 | | Load 0x0,0x8 0067 180e | | Execute Package,Field_Execute,Field_Number 0xe 0068 e5f7 | | Load 0x2,-0x9 0069 8228 | ( | Call 0x1,0x28 006a a402 | | Store_Unchecked 0x2,0x2 006b 029f 027b | {| Declare_Subprogram INIT_0278,For_Call 006d BODY_0060: 006d 8403 | | Call 0x2,0x3 006e 450a |E | Exit_Suprogram New_Top_Offset 0xa 006f TRAP_0060: 006f e009 | | Load 0x0,0x9 0070 010f | | Execute Exception,Equal 0071 6808 |h | Jump_Zero 0x7a 0072 00da | | Load_Top At_Offset_2 0073 0092 03c6 | | Action Push_String_Extended,0x3c6 ; "Run quitting after errors" 0075 8227 | ' | Call 0x1,0x27 0076 00da | | Load_Top At_Offset_2 0077 e00a | | Load 0x0,0xa 0078 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0079 450a |E | Exit_Suprogram New_Top_Offset 0xa 007a 00da | | Load_Top At_Offset_2 007b 4808 |H | Short_Literal 0x8 007c 0092 03c7 | | Action Push_String_Extended,0x3c7 ; "Unexpected exception " 007e 4800 |H | Short_Literal 0x0 007f 4801 |H | Short_Literal 0x1 0080 e00b | | Load 0x0,0xb 0081 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0082 01cc | | Execute Vector,Catenate 0083 e00c | | Load 0x0,0xc 0084 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0085 00da | | Load_Top At_Offset_2 0086 0092 03c6 | | Action Push_String_Extended,0x3c6 ; "Run quitting after errors" 0088 8227 | ' | Call 0x1,0x27 0089 00da | | Load_Top At_Offset_2 008a e00a | | Load 0x0,0xa 008b 1818 | | Execute Package,Field_Execute,Field_Number 0x18 008c 450a |E | Exit_Suprogram New_Top_Offset 0xa 008d 0000 0000 | | .XXX[0x3] 008f 0000 | | 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 009e | | .CONST 0x009e ; Address of begin 0091 00a0 | | .CONST 0x00a0 ; Address of exception handler 0092 0004 | | .CONST 0x0004 ; Number of locals 0093 INIT_0090: 0093 e008 | | Load 0x0,0x8 0094 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0095 02c7 | | Declare_Variable Any 0096 e008 | | Load 0x0,0x8 0097 180e | | Execute Package,Field_Execute,Field_Number 0xe 0098 e5fb | | Load 0x2,-0x5 0099 8228 | ( | Call 0x1,0x28 009a a402 | | Store_Unchecked 0x2,0x2 009b 00e1 | | Load_Encached Boolean_Cache 009c 029f 0313 | | Declare_Subprogram INIT_0310,For_Call 009e BODY_0090: 009e 8404 | | Call 0x2,0x4 009f 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00a0 TRAP_0090: 00a0 e009 | | Load 0x0,0x9 00a1 010f | | Execute Exception,Equal 00a2 6808 |h | Jump_Zero 0xab 00a3 00db | | Load_Top At_Offset_3 00a4 0092 03c8 | | Action Push_String_Extended,0x3c8 ; "Rlogin quitting after errors" 00a6 8227 | ' | Call 0x1,0x27 00a7 00db | | Load_Top At_Offset_3 00a8 e00a | | Load 0x0,0xa 00a9 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00aa 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00ab 00db | | Load_Top At_Offset_3 00ac 4808 |H | Short_Literal 0x8 00ad 0092 03c7 | | Action Push_String_Extended,0x3c7 ; "Unexpected exception " 00af 4800 |H | Short_Literal 0x0 00b0 4801 |H | Short_Literal 0x1 00b1 e00b | | Load 0x0,0xb 00b2 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00b3 01cc | | Execute Vector,Catenate 00b4 e00c | | Load 0x0,0xc 00b5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00b6 00db | | Load_Top At_Offset_3 00b7 0092 03c8 | | Action Push_String_Extended,0x3c8 ; "Rlogin quitting after errors" 00b9 8227 | ' | Call 0x1,0x27 00ba 00db | | Load_Top At_Offset_3 00bb e00a | | Load 0x0,0xa 00bc 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00bd 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00be 0000 0000 | | .XXX[0x2] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00cd | | .CONST 0x00cd ; Address of begin 00c1 00cf | | .CONST 0x00cf ; Address of exception handler 00c2 0003 | | .CONST 0x0003 ; Number of locals 00c3 INIT_00c0: 00c3 e008 | | Load 0x0,0x8 00c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00c5 02c7 | | Declare_Variable Any 00c6 e008 | | Load 0x0,0x8 00c7 180e | | Execute Package,Field_Execute,Field_Number 0xe 00c8 e5f8 | | Load 0x2,-0x8 00c9 8228 | ( | Call 0x1,0x28 00ca a402 | | Store_Unchecked 0x2,0x2 00cb 029f 034b | K| Declare_Subprogram INIT_0348,For_Call 00cd BODY_00c0: 00cd 8403 | | Call 0x2,0x3 00ce 4509 |E | Exit_Suprogram New_Top_Offset 0x9 00cf TRAP_00c0: 00cf e009 | | Load 0x0,0x9 00d0 010f | | Execute Exception,Equal 00d1 6808 |h | Jump_Zero 0xda 00d2 00da | | Load_Top At_Offset_2 00d3 0092 03c9 | | Action Push_String_Extended,0x3c9 ; "Get_Text_File quitting after errors" 00d5 8227 | ' | Call 0x1,0x27 00d6 00da | | Load_Top At_Offset_2 00d7 e00a | | Load 0x0,0xa 00d8 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00d9 4509 |E | Exit_Suprogram New_Top_Offset 0x9 00da 00da | | Load_Top At_Offset_2 00db 4808 |H | Short_Literal 0x8 00dc 0092 03c7 | | Action Push_String_Extended,0x3c7 ; "Unexpected exception " 00de 4800 |H | Short_Literal 0x0 00df 4801 |H | Short_Literal 0x1 00e0 e00b | | Load 0x0,0xb 00e1 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00e2 01cc | | Execute Vector,Catenate 00e3 e00c | | Load 0x0,0xc 00e4 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00e5 00da | | Load_Top At_Offset_2 00e6 0092 03c9 | | Action Push_String_Extended,0x3c9 ; "Get_Text_File quitting after errors" 00e8 8227 | ' | Call 0x1,0x27 00e9 00da | | Load_Top At_Offset_2 00ea e00a | | Load 0x0,0xa 00eb 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00ec 4509 |E | Exit_Suprogram New_Top_Offset 0x9 00ed 0000 0000 | | .XXX[0x3] 00ef 0000 | | 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00fd | | .CONST 0x00fd ; Address of begin 00f1 00ff | | .CONST 0x00ff ; Address of exception handler 00f2 0003 | | .CONST 0x0003 ; Number of locals 00f3 INIT_00f0: 00f3 e008 | | Load 0x0,0x8 00f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00f5 02c7 | | Declare_Variable Any 00f6 e008 | | Load 0x0,0x8 00f7 180e | | Execute Package,Field_Execute,Field_Number 0xe 00f8 e5f8 | | Load 0x2,-0x8 00f9 8228 | ( | Call 0x1,0x28 00fa a402 | | Store_Unchecked 0x2,0x2 00fb 029f 03b3 | | Declare_Subprogram INIT_03b0,For_Call 00fd BODY_00f0: 00fd 8403 | | Call 0x2,0x3 00fe 4509 |E | Exit_Suprogram New_Top_Offset 0x9 00ff TRAP_00f0: 00ff 0007 | | Action Break_Optional 0100 00da | | Load_Top At_Offset_2 0101 4808 |H | Short_Literal 0x8 0102 0092 03c7 | | Action Push_String_Extended,0x3c7 ; "Unexpected exception " 0104 4800 |H | Short_Literal 0x0 0105 4801 |H | Short_Literal 0x1 0106 e00b | | Load 0x0,0xb 0107 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0108 01cc | | Execute Vector,Catenate 0109 e00c | | Load 0x0,0xc 010a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 010b 00da | | Load_Top At_Offset_2 010c 0092 03ca | | Action Push_String_Extended,0x3ca ; "Put_Text_File quitting after errors" 010e 8227 | ' | Call 0x1,0x27 010f 00da | | Load_Top At_Offset_2 0110 e00a | | Load 0x0,0xa 0111 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0112 4509 |E | Exit_Suprogram New_Top_Offset 0x9 0113 0000 0000 | | .BLANK 0000[0x5] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011b | | .CONST 0x011b ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0001 | | .CONST 0x0001 ; Number of locals 011b BODY_0118: 011b INIT_0118: 011b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 011c 0000 0000 | | .BLANK 0000[0x4] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0123 | # | .CONST 0x0123 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0001 | | .CONST 0x0001 ; Number of locals 0123 BODY_0120: 0123 INIT_0120: 0123 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0124 0000 0000 | | .BLANK 0000[0x4] 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 012b | + | .CONST 0x012b ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0001 | | .CONST 0x0001 ; Number of locals 012b BODY_0128: 012b INIT_0128: 012b 00db | | Load_Top At_Offset_3 012c 4802 |H | Short_Literal 0x2 012d e5ff | | Load 0x2,-0x1 012e e00c | | Load 0x0,0xc 012f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0130 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0131 0000 0000 | | .BLANK 0000[0x7] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 013b | ; | .CONST 0x013b ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0001 | | .CONST 0x0001 ; Number of locals 013b BODY_0138: 013b INIT_0138: 013b 00db | | Load_Top At_Offset_3 013c 4807 |H | Short_Literal 0x7 013d e5ff | | Load 0x2,-0x1 013e e00c | | Load 0x0,0xc 013f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0140 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0141 0000 0000 | | .BLANK 0000[0x7] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 0155 | U | .CONST 0x0155 ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0003 | | .CONST 0x0003 ; Number of locals 014b INIT_0148: 014b e00d | | Load 0x0,0xd 014c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 014d 02c7 | | Declare_Variable Any 014e 00d8 | | Load_Top At_Offset_0 014f 1c00 | | Execute_Immediate Run_Utility,0x0 0150 e008 | | Load 0x0,0x8 0151 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0152 02c7 | | Declare_Variable Any 0153 00d8 | | Load_Top At_Offset_0 0154 1c00 | | Execute_Immediate Run_Utility,0x0 0155 BODY_0148: 0155 00d9 | | Load_Top At_Offset_1 0156 00d9 | | Load_Top At_Offset_1 0157 0120 | | Execute Any,Is_Value 0158 6803 |h | Jump_Zero 0x15c 0159 e008 | | Load 0x0,0x8 015a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 015b 7801 |x | Jump 0x15d 015c 00d9 | | Load_Top At_Offset_1 015d e5ff | | Load 0x2,-0x1 015e e008 | | Load 0x0,0x8 015f 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 0160 c403 | | Store 0x2,0x3 0161 c402 | | Store 0x2,0x2 0162 4801 |H | Short_Literal 0x1 0163 00da | | Load_Top At_Offset_2 0164 e00d | | Load 0x0,0xd 0165 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0166 6806 |h | Jump_Zero 0x16d 0167 e5fe | | Load 0x2,-0x2 0168 00da | | Load_Top At_Offset_2 0169 e00c | | Load 0x0,0xc 016a 1812 | | Execute Package,Field_Execute,Field_Number 0x12 016b e009 | | Load 0x0,0x9 016c 0257 | W | Execute Discrete,Raise 016d 00d8 | | Load_Top At_Offset_0 016e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 016f 0000 | | .XXX[0x1] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0186 | | .CONST 0x0186 ; Address of begin 0171 01aa | | .CONST 0x01aa ; Address of exception handler 0172 0005 | | .CONST 0x0005 ; Number of locals 0173 INIT_0170: 0173 e00e | | Load 0x0,0xe 0174 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0175 02c7 | | Declare_Variable Any 0176 00d8 | | Load_Top At_Offset_0 0177 1c00 | | Execute_Immediate Run_Utility,0x0 0178 e00f | | Load 0x0,0xf 0179 1b0d | | Execute Package,Field_Read,Field_Number 0xd 017a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 017b 02c7 | | Declare_Variable Any 017c 00d8 | | Load_Top At_Offset_0 017d 1c00 | | Execute_Immediate Run_Utility,0x0 017e e00f | | Load 0x0,0xf 017f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0180 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0181 02c7 | | Declare_Variable Any 0182 00d8 | | Load_Top At_Offset_0 0183 1c00 | | Execute_Immediate Run_Utility,0x0 0184 e010 | | Load 0x0,0x10 0185 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0186 BODY_0170: 0186 4801 |H | Short_Literal 0x1 0187 e00f | | Load 0x0,0xf 0188 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0189 1813 | | Execute Package,Field_Execute,Field_Number 0x13 018a 0092 03cb | | Action Push_String_Extended,0x3cb ; "$" 018c e00f | | Load 0x0,0xf 018d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 018e 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 018f c404 | | Store 0x2,0x4 0190 00d9 | | Load_Top At_Offset_1 0191 e00f | | Load 0x0,0xf 0192 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0193 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0194 c403 | | Store 0x2,0x3 0195 e010 | | Load 0x0,0x10 0196 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0197 e402 | | Load 0x2,0x2 0198 0120 | | Execute Any,Is_Value 0199 6803 |h | Jump_Zero 0x19d 019a e010 | | Load 0x0,0x10 019b 1b14 | | Execute Package,Field_Read,Field_Number 0x14 019c 7801 |x | Jump 0x19e 019d e402 | | Load 0x2,0x2 019e 6011 |` | Indirect_Literal Discrete,0x1b0,{0x00000000, 0x00028000} 019f e011 | | Load 0x0,0x11 01a0 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01a1 e403 | | Load 0x2,0x3 01a2 e00f | | Load 0x0,0xf 01a3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01a4 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 01a5 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01a6 c402 | | Store 0x2,0x2 01a7 0059 | Y | Store_Top Discrete,At_Offset_1 01a8 00db | | Load_Top At_Offset_3 01a9 00ca | | Action Exit_Nullary_Function 01aa TRAP_0170: 01aa 0007 | | Action Break_Optional 01ab e402 | | Load 0x2,0x2 01ac 00ca | | Action Exit_Nullary_Function 01ad 0000 0000 | | .XXX[0x3] 01af 0000 | | 01b0 0000 0000 | | .LITERAL {0x00000000, 0x00028000} 01b4 0000 0000 | | .BLANK 0000[0x4] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01c0 | | .CONST 0x01c0 ; Address of begin 01b9 01c7 | | .CONST 0x01c7 ; Address of exception handler 01ba 0002 | | .CONST 0x0002 ; Number of locals 01bb INIT_01b8: 01bb e00e | | Load 0x0,0xe 01bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01bd 02c7 | | Declare_Variable Any 01be 8229 | ) | Call 0x1,0x29 01bf a402 | | Store_Unchecked 0x2,0x2 01c0 BODY_01b8: 01c0 00d8 | | Load_Top At_Offset_0 01c1 e5ff | | Load 0x2,-0x1 01c2 e221 | ! | Load 0x1,0x21 01c3 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01c4 c402 | | Store 0x2,0x2 01c5 4801 |H | Short_Literal 0x1 01c6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01c7 TRAP_01b8: 01c7 0007 | | Action Break_Optional 01c8 4801 |H | Short_Literal 0x1 01c9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ca 0000 0000 | | .BLANK 0000[0x6] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01e6 | | .CONST 0x01e6 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0005 | | .CONST 0x0005 ; Number of locals 01d3 INIT_01d0: 01d3 e00f | | Load 0x0,0xf 01d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01d5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01d6 02c7 | | Declare_Variable Any 01d7 00d8 | | Load_Top At_Offset_0 01d8 1c00 | | Execute_Immediate Run_Utility,0x0 01d9 e00f | | Load 0x0,0xf 01da 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01db 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01dc 02c7 | | Declare_Variable Any 01dd 00d8 | | Load_Top At_Offset_0 01de 1c00 | | Execute_Immediate Run_Utility,0x0 01df e001 | | Load 0x0,0x1 01e0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01e1 02c7 | | Declare_Variable Any 01e2 00d8 | | Load_Top At_Offset_0 01e3 1c00 | | Execute_Immediate Run_Utility,0x0 01e4 e00a | | Load 0x0,0xa 01e5 1b20 | | Execute Package,Field_Read,Field_Number 0x20 01e6 BODY_01d0: 01e6 e5fc | | Load 0x2,-0x4 01e7 e001 | | Load 0x0,0x1 01e8 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 01e9 7014 |p | Jump_Nonzero 0x1fe 01ea 00d9 | | Load_Top At_Offset_1 01eb 00d9 | | Load_Top At_Offset_1 01ec e011 | | Load 0x0,0x11 01ed 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01ee 4800 |H | Short_Literal 0x0 01ef e5fd | | Load 0x2,-0x3 01f0 e5ff | | Load 0x2,-0x1 01f1 e00a | | Load 0x0,0xa 01f2 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 01f3 003a | : | Store_Top Access,At_Offset_2 01f4 c404 | | Store 0x2,0x4 01f5 00d8 | | Load_Top At_Offset_0 01f6 6805 |h | Jump_Zero 0x1fc 01f7 e5fb | | Load 0x2,-0x5 01f8 00d9 | | Load_Top At_Offset_1 01f9 0227 | ' | Execute Access,All_Reference 01fa 8227 | ' | Call 0x1,0x27 01fb 7802 |x | Jump 0x1fe 01fc 00d9 | | Load_Top At_Offset_1 01fd 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 01fe e5ff | | Load 0x2,-0x1 01ff 01db | | Execute Vector,Length 0200 705e |p^ | Jump_Nonzero 0x25f 0201 e5fd | | Load 0x2,-0x3 0202 01db | | Execute Vector,Length 0203 680e |h | Jump_Zero 0x212 0204 4801 |H | Short_Literal 0x1 0205 0092 03cc | | Action Push_String_Extended,0x3cc ; "<NONE>" 0207 e5fd | | Load 0x2,-0x3 0208 e012 | | Load 0x0,0x12 0209 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 020a 7007 |p | Jump_Nonzero 0x212 020b 4801 |H | Short_Literal 0x1 020c 0092 03cd | | Action Push_String_Extended,0x3cd ; "<DEFAULT>" 020e e5fd | | Load 0x2,-0x3 020f e012 | | Load 0x0,0x12 0210 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0211 6802 |h | Jump_Zero 0x214 0212 00d9 | | Load_Top At_Offset_1 0213 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 0214 4801 |H | Short_Literal 0x1 0215 e00f | | Load 0x0,0xf 0216 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0217 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0218 e5fe | | Load 0x2,-0x2 0219 e00f | | Load 0x0,0xf 021a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 021b 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 021c c402 | | Store 0x2,0x2 021d 4801 |H | Short_Literal 0x1 021e e00f | | Load 0x0,0xf 021f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0220 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0221 e5fd | | Load 0x2,-0x3 0222 e00f | | Load 0x0,0xf 0223 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0224 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0225 c403 | | Store 0x2,0x3 0226 00da | | Load_Top At_Offset_2 0227 e402 | | Load 0x2,0x2 0228 e00f | | Load 0x0,0xf 0229 1b0d | | Execute Package,Field_Read,Field_Number 0xd 022a 1814 | | Execute Package,Field_Execute,Field_Number 0x14 022b 6802 |h | Jump_Zero 0x22e 022c e5fc | | Load 0x2,-0x4 022d 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 022e 00da | | Load_Top At_Offset_2 022f e00f | | Load 0x0,0xf 0230 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0231 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 0232 6810 |h | Jump_Zero 0x243 0233 00d9 | | Load_Top At_Offset_1 0234 e011 | | Load 0x0,0x11 0235 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0236 e010 | | Load 0x0,0x10 0237 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0238 00ea | | Load_Encached Null_String_Cache 0239 e403 | | Load 0x2,0x3 023a e00f | | Load 0x0,0xf 023b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 023c 1820 | | Execute Package,Field_Execute,Field_Number 0x20 023d 4801 |H | Short_Literal 0x1 023e e001 | | Load 0x0,0x1 023f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0240 c404 | | Store 0x2,0x4 0241 00d9 | | Load_Top At_Offset_1 0242 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 0243 e5fd | | Load 0x2,-0x3 0244 e00f | | Load 0x0,0xf 0245 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0246 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0247 680f |h | Jump_Zero 0x257 0248 00d9 | | Load_Top At_Offset_1 0249 e011 | | Load 0x0,0x11 024a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 024b e010 | | Load 0x0,0x10 024c 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 024d e010 | | Load 0x0,0x10 024e 181e | | Execute Package,Field_Execute,Field_Number 0x1e 024f 00ea | | Load_Encached Null_String_Cache 0250 e5fd | | Load 0x2,-0x3 0251 4801 |H | Short_Literal 0x1 0252 e001 | | Load 0x0,0x1 0253 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0254 c404 | | Store 0x2,0x4 0255 00d9 | | Load_Top At_Offset_1 0256 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 0257 e5fb | | Load 0x2,-0x5 0258 0092 03ce | | Action Push_String_Extended,0x3ce ; "Ill formed name: " 025a e5fd | | Load 0x2,-0x3 025b 01cc | | Execute Vector,Catenate 025c 8227 | ' | Call 0x1,0x27 025d e009 | | Load 0x0,0x9 025e 0257 | W | Execute Discrete,Raise 025f 00d9 | | Load_Top At_Offset_1 0260 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 0261 0000 0000 | | .BLANK 0000[0x7] 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 026b | k | .CONST 0x026b ; Address of begin 0269 0004 | | .CONST 0x0004 ; Address of exception handler 026a 0001 | | .CONST 0x0001 ; Number of locals 026b BODY_0268: 026b INIT_0268: 026b 00da | | Load_Top At_Offset_2 026c 6805 |h | Jump_Zero 0x272 026d 0092 03cf | | Action Push_String_Extended,0x3cf ; "/bin/cat >> " 026f e5fe | | Load 0x2,-0x2 0270 01cc | | Execute Vector,Catenate 0271 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0272 0092 03d0 | | Action Push_String_Extended,0x3d0 ; "/bin/cat > " 0274 e5fe | | Load 0x2,-0x2 0275 01cc | | Execute Vector,Catenate 0276 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0277 0000 | | .XXX[0x1] 0278 ; -------------------------------------------------------------------------------------- 0278 ; SUBPROGRAM 0278 ; -------------------------------------------------------------------------------------- 0278 02ba | | .CONST 0x02ba ; Address of begin 0279 0004 | | .CONST 0x0004 ; Address of exception handler 027a 000e | | .CONST 0x000e ; Number of locals 027b INIT_0278: 027b e402 | | Load 0x2,0x2 027c 822a | * | Call 0x1,0x2a 027d 00e1 | | Load_Encached Boolean_Cache 027e 03f1 | | Declare_Variable Discrete,With_Value 027f e010 | | Load 0x0,0x10 0280 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0281 4801 |H | Short_Literal 0x1 0282 e5fe | | Load 0x2,-0x2 0283 e221 | ! | Load 0x1,0x21 0284 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0285 e010 | | Load 0x0,0x10 0286 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0287 4801 |H | Short_Literal 0x1 0288 00da | | Load_Top At_Offset_2 0289 e5fd | | Load 0x2,-0x3 028a e221 | ! | Load 0x1,0x21 028b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 028c e010 | | Load 0x0,0x10 028d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 028e 4801 |H | Short_Literal 0x1 028f e5fc | | Load 0x2,-0x4 0290 e221 | ! | Load 0x1,0x21 0291 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0292 e5f8 | | Load 0x2,-0x8 0293 e5fa | | Load 0x2,-0x6 0294 e5f9 | | Load 0x2,-0x7 0295 00d8 | | Load_Top At_Offset_0 0296 e00a | | Load 0x0,0xa 0297 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0298 e5f8 | | Load 0x2,-0x8 0299 e5fa | | Load 0x2,-0x6 029a e5f9 | | Load 0x2,-0x7 029b e5fa | | Load 0x2,-0x6 029c e00a | | Load 0x0,0xa 029d 181d | | Execute Package,Field_Execute,Field_Number 0x1d 029e e5f8 | | Load 0x2,-0x8 029f e5fa | | Load 0x2,-0x6 02a0 e5f9 | | Load 0x2,-0x7 02a1 e5f8 | | Load 0x2,-0x8 02a2 e00a | | Load 0x0,0xa 02a3 181d | | Execute Package,Field_Execute,Field_Number 0x1d 02a4 00db | | Load_Top At_Offset_3 02a5 e5ff | | Load 0x2,-0x1 02a6 e00a | | Load 0x0,0xa 02a7 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 02a8 e001 | | Load 0x0,0x1 02a9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02aa 02c7 | | Declare_Variable Any 02ab 00d8 | | Load_Top At_Offset_0 02ac 1c00 | | Execute_Immediate Run_Utility,0x0 02ad e001 | | Load 0x0,0x1 02ae 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02af 02c7 | | Declare_Variable Any 02b0 00d8 | | Load_Top At_Offset_0 02b1 1c00 | | Execute_Immediate Run_Utility,0x0 02b2 e001 | | Load 0x0,0x1 02b3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02b4 02c7 | | Declare_Variable Any 02b5 00d8 | | Load_Top At_Offset_0 02b6 1c00 | | Execute_Immediate Run_Utility,0x0 02b7 e00a | | Load 0x0,0xa 02b8 1b20 | | Execute Package,Field_Read,Field_Number 0x20 02b9 00e1 | | Load_Encached Boolean_Cache 02ba BODY_0278: 02ba e221 | ! | Load 0x1,0x21 02bb 1814 | | Execute Package,Field_Execute,Field_Number 0x14 02bc e60a | | Load 0x3,0xa 02bd 00da | | Load_Top At_Offset_2 02be e011 | | Load 0x0,0x11 02bf 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02c0 e5f9 | | Load 0x2,-0x7 02c1 e606 | | Load 0x3,0x6 02c2 e00a | | Load 0x0,0xa 02c3 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 02c4 003b | ; | Store_Top Access,At_Offset_3 02c5 c60a | | Store 0x3,0xa 02c6 00d9 | | Load_Top At_Offset_1 02c7 6806 |h | Jump_Zero 0x2ce 02c8 e402 | | Load 0x2,0x2 02c9 00da | | Load_Top At_Offset_2 02ca 0227 | ' | Execute Access,All_Reference 02cb 8227 | ' | Call 0x1,0x27 02cc e009 | | Load 0x0,0x9 02cd 0257 | W | Execute Discrete,Raise 02ce 00db | | Load_Top At_Offset_3 02cf 00da | | Load_Top At_Offset_2 02d0 e011 | | Load 0x0,0x11 02d1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02d2 4800 |H | Short_Literal 0x0 02d3 e5fa | | Load 0x2,-0x6 02d4 e607 | | Load 0x3,0x7 02d5 e00a | | Load 0x0,0xa 02d6 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 02d7 003b | ; | Store_Top Access,At_Offset_3 02d8 c60b | | Store 0x3,0xb 02d9 00d9 | | Load_Top At_Offset_1 02da 6806 |h | Jump_Zero 0x2e1 02db e402 | | Load 0x2,0x2 02dc 00da | | Load_Top At_Offset_2 02dd 0227 | ' | Execute Access,All_Reference 02de 8227 | ' | Call 0x1,0x27 02df e009 | | Load 0x0,0x9 02e0 0257 | W | Execute Discrete,Raise 02e1 e402 | | Load 0x2,0x2 02e2 e60b | | Load 0x3,0xb 02e3 e5f8 | | Load 0x2,-0x8 02e4 e5fa | | Load 0x2,-0x6 02e5 e608 | | Load 0x3,0x8 02e6 822b | + | Call 0x1,0x2b 02e7 c60c | | Store 0x3,0xc 02e8 00e1 | | Load_Encached Boolean_Cache 02e9 e402 | | Load 0x2,0x2 02ea 4884 |H | Short_Literal 0x84 02eb 4818 |H | Short_Literal 0x18 02ec 4800 |H | Short_Literal 0x0 02ed 4800 |H | Short_Literal 0x0 02ee e608 | | Load 0x3,0x8 02ef e60c | | Load 0x3,0xc 02f0 e606 | | Load 0x3,0x6 02f1 e60a | | Load 0x3,0xa 02f2 e607 | | Load 0x3,0x7 02f3 e60b | | Load 0x3,0xb 02f4 e604 | | Load 0x3,0x4 02f5 e603 | | Load 0x3,0x3 02f6 e609 | | Load 0x3,0x9 02f7 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 02f8 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 02f9 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 02fa 8005 | | Call 0x0,0x5 02fb 0059 | Y | Store_Top Discrete,At_Offset_1 02fc 00d8 | | Load_Top At_Offset_0 02fd 6807 |h | Jump_Zero 0x305 02fe e402 | | Load 0x2,0x2 02ff 4803 |H | Short_Literal 0x3 0300 0092 03d1 | | Action Push_String_Extended,0x3d1 ; "Command execution completed successfully" 0302 e00c | | Load 0x0,0xc 0303 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0304 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0305 e402 | | Load 0x2,0x2 0306 0092 03d2 | | Action Push_String_Extended,0x3d2 ; "Error messages generated while executing command." 0308 8227 | ' | Call 0x1,0x27 0309 4501 |E | Exit_Suprogram New_Top_Offset 0x1 030a 0000 0000 | | .BLANK 0000[0x6] 0310 ; -------------------------------------------------------------------------------------- 0310 ; SUBPROGRAM 0310 ; -------------------------------------------------------------------------------------- 0310 0324 | $ | .CONST 0x0324 ; Address of begin 0311 0004 | | .CONST 0x0004 ; Address of exception handler 0312 0004 | | .CONST 0x0004 ; Number of locals 0313 INIT_0310: 0313 e402 | | Load 0x2,0x2 0314 822a | * | Call 0x1,0x2a 0315 00e1 | | Load_Encached Boolean_Cache 0316 03f1 | | Declare_Variable Discrete,With_Value 0317 e010 | | Load 0x0,0x10 0318 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0319 4801 |H | Short_Literal 0x1 031a e5ff | | Load 0x2,-0x1 031b e221 | ! | Load 0x1,0x21 031c 181a | | Execute Package,Field_Execute,Field_Number 0x1a 031d e010 | | Load 0x0,0x10 031e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 031f 4801 |H | Short_Literal 0x1 0320 00da | | Load_Top At_Offset_2 0321 e5fe | | Load 0x2,-0x2 0322 e221 | ! | Load 0x1,0x21 0323 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0324 BODY_0310: 0324 e221 | ! | Load 0x1,0x21 0325 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0326 00e1 | | Load_Encached Boolean_Cache 0327 e402 | | Load 0x2,0x2 0328 e5fc | | Load 0x2,-0x4 0329 e5fd | | Load 0x2,-0x3 032a 4800 |H | Short_Literal 0x0 032b 4801 |H | Short_Literal 0x1 032c e603 | | Load 0x3,0x3 032d 0092 03d3 | | Action Push_String_Extended,0x3d3 ; " login" 032f 01cc | | Execute Vector,Catenate 0330 e21d | | Load 0x1,0x1d 0331 e603 | | Load 0x3,0x3 0332 0092 03d3 | | Action Push_String_Extended,0x3d3 ; " login" 0334 01cc | | Execute Vector,Catenate 0335 e21d | | Load 0x1,0x1d 0336 e603 | | Load 0x3,0x3 0337 0092 03d3 | | Action Push_String_Extended,0x3d3 ; " login" 0339 01cc | | Execute Vector,Catenate 033a e21d | | Load 0x1,0x1d 033b e604 | | Load 0x3,0x4 033c e603 | | Load 0x3,0x3 033d 00ea | | Load_Encached Null_String_Cache 033e 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 033f 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 0340 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 0341 8005 | | Call 0x0,0x5 0342 c403 | | Store 0x2,0x3 0343 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0344 0000 0000 | | .BLANK 0000[0x4] 0348 ; -------------------------------------------------------------------------------------- 0348 ; SUBPROGRAM 0348 ; -------------------------------------------------------------------------------------- 0348 0376 | v | .CONST 0x0376 ; Address of begin 0349 0004 | | .CONST 0x0004 ; Address of exception handler 034a 000b | | .CONST 0x000b ; Number of locals 034b INIT_0348: 034b e402 | | Load 0x2,0x2 034c 822a | * | Call 0x1,0x2a 034d 00e1 | | Load_Encached Boolean_Cache 034e 03f1 | | Declare_Variable Discrete,With_Value 034f e010 | | Load 0x0,0x10 0350 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0351 4801 |H | Short_Literal 0x1 0352 e5fd | | Load 0x2,-0x3 0353 e221 | ! | Load 0x1,0x21 0354 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0355 e010 | | Load 0x0,0x10 0356 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0357 4801 |H | Short_Literal 0x1 0358 00da | | Load_Top At_Offset_2 0359 e5fc | | Load 0x2,-0x4 035a e221 | ! | Load 0x1,0x21 035b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 035c e010 | | Load 0x0,0x10 035d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 035e 4801 |H | Short_Literal 0x1 035f e5fb | | Load 0x2,-0x5 0360 e221 | ! | Load 0x1,0x21 0361 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0362 00ea | | Load_Encached Null_String_Cache 0363 e5ff | | Load 0x2,-0x1 0364 e5fe | | Load 0x2,-0x2 0365 e00a | | Load 0x0,0xa 0366 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0367 00da | | Load_Top At_Offset_2 0368 0092 03d4 | | Action Push_String_Extended,0x3d4 ; "/bin/cat < " 036a 00da | | Load_Top At_Offset_2 036b 01cc | | Execute Vector,Catenate 036c e00a | | Load 0x0,0xa 036d 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 036e e001 | | Load 0x0,0x1 036f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0370 02c7 | | Declare_Variable Any 0371 00d8 | | Load_Top At_Offset_0 0372 1c00 | | Execute_Immediate Run_Utility,0x0 0373 e00a | | Load 0x0,0xa 0374 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0375 00e1 | | Load_Encached Boolean_Cache 0376 BODY_0348: 0376 e221 | ! | Load 0x1,0x21 0377 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0378 00da | | Load_Top At_Offset_2 0379 00da | | Load_Top At_Offset_2 037a e011 | | Load 0x0,0x11 037b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 037c e5f9 | | Load 0x2,-0x7 037d e5fe | | Load 0x2,-0x2 037e e606 | | Load 0x3,0x6 037f e00a | | Load 0x0,0xa 0380 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0381 003b | ; | Store_Top Access,At_Offset_3 0382 c609 | | Store 0x3,0x9 0383 00d9 | | Load_Top At_Offset_1 0384 6806 |h | Jump_Zero 0x38b 0385 e402 | | Load 0x2,0x2 0386 00da | | Load_Top At_Offset_2 0387 0227 | ' | Execute Access,All_Reference 0388 8227 | ' | Call 0x1,0x27 0389 e009 | | Load 0x0,0x9 038a 0257 | W | Execute Discrete,Raise 038b 00e1 | | Load_Encached Boolean_Cache 038c e402 | | Load 0x2,0x2 038d 4884 |H | Short_Literal 0x84 038e 4818 |H | Short_Literal 0x18 038f 4800 |H | Short_Literal 0x0 0390 4800 |H | Short_Literal 0x0 0391 e606 | | Load 0x3,0x6 0392 e21d | | Load 0x1,0x1d 0393 e606 | | Load 0x3,0x6 0394 e21d | | Load 0x1,0x1d 0395 e606 | | Load 0x3,0x6 0396 e609 | | Load 0x3,0x9 0397 e604 | | Load 0x3,0x4 0398 e603 | | Load 0x3,0x3 0399 e608 | | Load 0x3,0x8 039a 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 039b 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 039c 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 039d 8005 | | Call 0x0,0x5 039e 0059 | Y | Store_Top Discrete,At_Offset_1 039f 00d8 | | Load_Top At_Offset_0 03a0 6807 |h | Jump_Zero 0x3a8 03a1 e402 | | Load 0x2,0x2 03a2 4803 |H | Short_Literal 0x3 03a3 0092 03d1 | | Action Push_String_Extended,0x3d1 ; "Command execution completed successfully" 03a5 e00c | | Load 0x0,0xc 03a6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03a7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03a8 e402 | | Load 0x2,0x2 03a9 0092 03d2 | | Action Push_String_Extended,0x3d2 ; "Error messages generated while executing command." 03ab 8227 | ' | Call 0x1,0x27 03ac 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03ad 0000 0000 | | .XXX[0x3] 03af 0000 | | 03b0 ; -------------------------------------------------------------------------------------- 03b0 ; SUBPROGRAM 03b0 ; -------------------------------------------------------------------------------------- 03b0 03ba | | .CONST 0x03ba ; Address of begin 03b1 0004 | | .CONST 0x0004 ; Address of exception handler 03b2 0003 | | .CONST 0x0003 ; Number of locals 03b3 INIT_03b0: 03b3 e5fe | | Load 0x2,-0x2 03b4 e5ff | | Load 0x2,-0x1 03b5 e00a | | Load 0x0,0xa 03b6 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 03b7 00d8 | | Load_Top At_Offset_0 03b8 e5f9 | | Load 0x2,-0x7 03b9 822c | , | Call 0x1,0x2c 03ba BODY_03b0: 03ba e5f8 | | Load 0x2,-0x8 03bb 00ea | | Load_Encached Null_String_Cache 03bc e5ff | | Load 0x2,-0x1 03bd 00ea | | Load_Encached Null_String_Cache 03be 0092 03cd | | Action Push_String_Extended,0x3cd ; "<DEFAULT>" 03c0 e5fb | | Load 0x2,-0x5 03c1 e5fc | | Load 0x2,-0x4 03c2 e5fd | | Load 0x2,-0x3 03c3 e603 | | Load 0x3,0x3 03c4 821a | | Call 0x1,0x1a 03c5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03c6 ; -------------------------------------------------------------------------------------- 03c6 ; STRING TABLE 03c6 ; -------------------------------------------------------------------------------------- 03c6 0020 | | .STRTAB 0x0020->0x03d6 ; "Run quitting after errors" 03c7 0037 | 7 | .STRTAB 0x0037->0x03e2 ; "Unexpected exception " 03c8 004a | J | .STRTAB 0x004a->0x03ed ; "Rlogin quitting after errors" 03c9 0064 | d | .STRTAB 0x0064->0x03fb ; "Get_Text_File quitting after errors" 03ca 0085 | | .STRTAB 0x0085->0x040c ; "Put_Text_File quitting after errors" 03cb 00a6 | | .STRTAB 0x00a6->0x041e ; "$" 03cc 00a5 | | .STRTAB 0x00a5->0x041e ; "<NONE>" 03cd 00a9 | | .STRTAB 0x00a9->0x0421 ; "<DEFAULT>" 03ce 00b0 | | .STRTAB 0x00b0->0x0426 ; "Ill formed name: " 03cf 00bf | | .STRTAB 0x00bf->0x042e ; "/bin/cat >> " 03d0 00c9 | | .STRTAB 0x00c9->0x0434 ; "/bin/cat > " 03d1 00d2 | | .STRTAB 0x00d2->0x043a ; "Command execution completed successfully" 03d2 00f8 | | .STRTAB 0x00f8->0x044e ; "Error messages generated while executing command." 03d3 0127 | ' | .STRTAB 0x0127->0x0466 ; " login" 03d4 012b | + | .STRTAB 0x012b->0x0469 ; "/bin/cat < " 03d5 0134 | 4 | .STREND 0x0134->0x046f 03d6 5275 6e20 |Run | .STRTAB_STRINGS 046f 0000 | | .XXX[0x1] 0470 ; -------------------------------------------------------------------------------------- 0470 ; Debug Table 0470 ; -------------------------------------------------------------------------------------- 0470 0004 000f | | .DEBUG4 0x0004,0x000f,0xa4e8,0x0000,0x0001,0x0000 0476 3425 f434 |4% 4| .XXX[0x18a] 0478 25ec 3425 |% 4%| 047a d5cd 95c9 | | 047c 91a5 8dd0 | | 047e 80bd 0591 | | 0480 bd89 957d | }| 0482 8dcd a1bd | | 0484 dd7d d985 | } | 0486 c9cc 80c4 | | 0488 8191 a58d | | 048a d081 91d5 | | 048c c081 8995 | | 048e 9da5 b881 | | 0490 c1d5 d034 | 4| 0492 24bd 7d8d |$ } | 0494 cda1 bddc | | 0496 2424 9480 |$$ | 0498 b481 7d8d | } | 049a cda1 bddc | | 049c 81c1 c9bd | | 049e 8c34 2425 | 4$%| 04a0 edf4 8191 | | 04a2 9598 3425 | 4%| 04a4 0591 bd89 | | 04a6 957d 8dcd | } | 04a8 a1bd dc81 | | 04aa 8995 9da5 | | 04ac b834 2505 | 4% | 04ae 91bd 8995 | | 04b0 7d8d cda1 |} | 04b2 bddc 3424 | 4$| 04b4 25ec 3424 |% 4$| 04b6 2591 d5c0 |% | 04b8 81e1 8da1 | | 04ba 958d ac34 | 4| 04bc 2424 25ec |$$% | 04be 3424 2425 |4$$%| 04c0 89a5 b990 | | 04c2 3424 2425 |4$$%| 04c4 f481 a598 | | 04c6 3424 25d5 |4$% | 04c8 cd95 c991 | | 04ca a58d d080 | | 04cc cc80 c481 | | 04ce c9bd b1b0 | | 04d0 81c1 d5d0 | | 04d2 3424 25f4 |4$% | 04d4 8199 bdc9 | | 04d6 85b1 b034 | 4| 04d8 2595 b990 |% | 04da 3425 95b9 |4% | 04dc 9034 25f4 | 4% | 04de 81a5 9995 | | 04e0 b1cd 9435 | 5| 04e2 f481 9195 | | 04e4 9834 bdd1 | 4 | 04e6 95c9 b5a5 | | 04e8 b985 d194 | | 04ea 2424 2494 |$$$ | 04ec 80b4 81d1 | | 04ee 95c9 b5a5 | | 04f0 b985 d194 | | 04f2 80b4 35ec | 5 | 04f4 35f4 8191 |5 | 04f6 9598 34bd | 4 | 04f8 8dcd a1bd | | 04fa dc24 2424 | $$$| 04fc 2494 81c1 |$ | 04fe c9bd 8c81 | | 0500 cdd1 c9a5 | | 0502 b99c 818d | | 0504 cda1 bddc | | 0506 80b4 35ec | 5 | 0508 3595 e18d |5 | 050a a035 0591 | 5 | 050c bd89 957d | }| 050e 8dcd a1bd | | 0510 dd7d d985 | } | 0512 c9cc 3425 | 4%| 0514 95e1 8da0 | | 0516 80bd 7d8d | } | 0518 cda1 bddc | | 051a 3425 95e1 |4% | 051c 8da0 81c1 | | 051e d5d0 3425 | 4%| 0520 ec34 24c0 | 4$ | 0522 80c0 8105 | | 0524 91bd 8995 | | 0526 7d8d cda1 |} | 0528 bddd 7dd9 | } | 052a 85c9 cc80 | | 052c bd7d 8dcd | } | 052e a1bd dc81 | | 0530 9d95 d081 | | 0532 95e1 958c | | 0534 3425 f481 |4% | 0536 99bd c985 | | 0538 b1b0 35f4 | 5 | 053a 8191 9598 | | 053c 358d d5c9 |5 | 053e c995 b9d1 | | 0540 91a5 8dd0 | | 0542 81c9 9585 | | 0544 91bd b9b1 | | 0546 e481 c1bd | | 0548 c081 95b9 | | 054a 9035 cd95 | 5 | 054c d1c1 858d | | 054e ada5 b99c | | 0550 3494 9515 |4 | 0552 b991 4995 | I | 0554 cdbd d5c9 | | 0556 8d94 3494 | 4 | 0558 9509 959d | | 055a a5b9 4995 | I | 055c cdbd d5c9 | | 055e 8d94 e881 | | 0560 c1c9 bd8d | | 0562 cd95 d081 | | 0564 0591 bd89 | | 0566 957d 8dd5 | } | 0568 cdd1 bdb5 | | 056a 8dbd b1bd | | 056c c880 c4b8 | | 056e c080 c034 | 4| 0570 9495 51a5 | Q | 0572 d1b1 94e8 | | 0574 80a1 0dd5 | | 0576 cdd1 bdb4 | | 0578 810d bdb1 | | 057a bdc8 813d | =| 057c c195 c985 | | 057e d1bd c9cc | | 0580 a434 9495 | 4 | 0582 5995 c9cd |Y | 0584 a5bd b8e8 | | 0586 80c4 b8c0 | | 0588 8034 9495 | 4 | 058a 0dc9 9585 | | 058c d1a5 bdb9 | | 058e 1185 d194 | | 0590 e880 a0d4 | | 0592 bce4 bce0 | | 0594 e0a4 80a0 | | 0596 a434 9495 | 4 | 0598 0dbd c1e5 | | 059a c9a5 9da1 | | 059c d0e8 80a0 | | 059e a10c a480 | | 05a0 c4e4 e0dc | | 05a2 b4c4 e4e4 | | 05a4 c081 0591 | | 05a6 bd89 9481 | | 05a8 4de5 cdd1 |M | 05aa 95b5 cc81 | | 05ac 25b9 8dbd |% | 05ae c9c1 bdc9 | | 05b0 85d1 9590 | | 05b2 8105 b1b0 | | 05b4 8149 a59d | I | 05b6 a1d1 cc81 | | 05b8 4995 cd95 |I | 05ba c9d9 9590 | | 05bc a435 8dd5 | 5 | 05be c9c9 95b9 | | 05c0 d1c1 858d | | 05c2 ada5 b99c | | 05c4 81d1 c9d5 | | 05c6 9481 cd95 | | 05c8 d1c1 858d | | 05ca ada5 b99c | | 05cc 35d5 cd95 |5 | 05ce c991 a58d | | 05d0 d080 bd05 | | 05d2 91bd 8995 | | 05d4 7d8d d5cd |} | 05d6 d1bd b58d | | 05d8 bdb1 bdc8 | | 05da 80d4 8191 | | 05dc a58d d081 | | 05de 91d5 c081 | | 05e0 8995 9da5 | | 05e2 b881 c1d5 | | 05e4 d034 bda5 | 4 | 05e6 b9a5 d1a5 | | 05e8 85b1 a5e9 | | 05ea 9424 2424 | $$$| 05ec 9480 b481 | | 05ee a5b9 a5d1 | | 05f0 a585 b1a5 | | 05f2 e994 80b4 | | 05f4 35ec 34bd |5 4 | 05f6 cd95 d18d | | 05f8 d5cd d1bd | | 05fa b58d bdb1 | | 05fc bdc8 81dd | | 05fe a195 c994 | |