|
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_11cacfe
└─⟦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 0460 | ` | .CONST 0x0460 ; 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 0263 | c| Declare_Subprogram INIT_0260,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 0273 | s| Declare_Subprogram INIT_0270,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 03b6 | | Action Push_String_Extended,0x3b6 ; "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 03b7 | | Action Push_String_Extended,0x3b7 ; "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 03b6 | | Action Push_String_Extended,0x3b6 ; "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 0303 | | Declare_Subprogram INIT_0300,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 03b8 | | Action Push_String_Extended,0x3b8 ; "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 03b7 | | Action Push_String_Extended,0x3b7 ; "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 03b8 | | Action Push_String_Extended,0x3b8 ; "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 033b | ;| Declare_Subprogram INIT_0338,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 03b9 | | Action Push_String_Extended,0x3b9 ; "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 03b7 | | Action Push_String_Extended,0x3b7 ; "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 03b9 | | Action Push_String_Extended,0x3b9 ; "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 03a3 | | Declare_Subprogram INIT_03a0,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 03b7 | | Action Push_String_Extended,0x3b7 ; "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 03ba | | Action Push_String_Extended,0x3ba ; "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 03bb | | Action Push_String_Extended,0x3bb ; "$"
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 7012 |p | Jump_Nonzero 0x1fc
01ea 00d9 | | Load_Top At_Offset_1
01eb 00d9 | | Load_Top At_Offset_1
01ec 4800 |H | Short_Literal 0x0
01ed e5fd | | Load 0x2,-0x3
01ee e5ff | | Load 0x2,-0x1
01ef e00a | | Load 0x0,0xa
01f0 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
01f1 003a | : | Store_Top Access,At_Offset_2
01f2 c404 | | Store 0x2,0x4
01f3 00d8 | | Load_Top At_Offset_0
01f4 6805 |h | Jump_Zero 0x1fa
01f5 e5fb | | Load 0x2,-0x5
01f6 00d9 | | Load_Top At_Offset_1
01f7 0227 | ' | Execute Access,All_Reference
01f8 8227 | ' | Call 0x1,0x27
01f9 7802 |x | Jump 0x1fc
01fa 00d9 | | Load_Top At_Offset_1
01fb 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
01fc e5ff | | Load 0x2,-0x1
01fd 01db | | Execute Vector,Length
01fe 705e |p^ | Jump_Nonzero 0x25d
01ff e5fd | | Load 0x2,-0x3
0200 01db | | Execute Vector,Length
0201 680e |h | Jump_Zero 0x210
0202 4801 |H | Short_Literal 0x1
0203 0092 03bc | | Action Push_String_Extended,0x3bc ; "<NONE>"
0205 e5fd | | Load 0x2,-0x3
0206 e012 | | Load 0x0,0x12
0207 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0208 7007 |p | Jump_Nonzero 0x210
0209 4801 |H | Short_Literal 0x1
020a 0092 03bd | | Action Push_String_Extended,0x3bd ; "<DEFAULT>"
020c e5fd | | Load 0x2,-0x3
020d e012 | | Load 0x0,0x12
020e 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
020f 6802 |h | Jump_Zero 0x212
0210 00d9 | | Load_Top At_Offset_1
0211 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0212 4801 |H | Short_Literal 0x1
0213 e00f | | Load 0x0,0xf
0214 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0215 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0216 e5fe | | Load 0x2,-0x2
0217 e00f | | Load 0x0,0xf
0218 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0219 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
021a c402 | | Store 0x2,0x2
021b 4801 |H | Short_Literal 0x1
021c e00f | | Load 0x0,0xf
021d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
021e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
021f e5fd | | Load 0x2,-0x3
0220 e00f | | Load 0x0,0xf
0221 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0222 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0223 c403 | | Store 0x2,0x3
0224 00da | | Load_Top At_Offset_2
0225 e402 | | Load 0x2,0x2
0226 e00f | | Load 0x0,0xf
0227 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0228 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0229 6802 |h | Jump_Zero 0x22c
022a e5fc | | Load 0x2,-0x4
022b 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
022c 00da | | Load_Top At_Offset_2
022d e00f | | Load 0x0,0xf
022e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
022f 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0230 6810 |h | Jump_Zero 0x241
0231 00d9 | | Load_Top At_Offset_1
0232 e011 | | Load 0x0,0x11
0233 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0234 e010 | | Load 0x0,0x10
0235 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0236 00ea | | Load_Encached Null_String_Cache
0237 e403 | | Load 0x2,0x3
0238 e00f | | Load 0x0,0xf
0239 1b0e | | Execute Package,Field_Read,Field_Number 0xe
023a 1820 | | Execute Package,Field_Execute,Field_Number 0x20
023b 4801 |H | Short_Literal 0x1
023c e001 | | Load 0x0,0x1
023d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
023e c404 | | Store 0x2,0x4
023f 00d9 | | Load_Top At_Offset_1
0240 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0241 e5fd | | Load 0x2,-0x3
0242 e00f | | Load 0x0,0xf
0243 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0244 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0245 680f |h | Jump_Zero 0x255
0246 00d9 | | Load_Top At_Offset_1
0247 e011 | | Load 0x0,0x11
0248 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0249 e010 | | Load 0x0,0x10
024a 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
024b e010 | | Load 0x0,0x10
024c 181e | | Execute Package,Field_Execute,Field_Number 0x1e
024d 00ea | | Load_Encached Null_String_Cache
024e e5fd | | Load 0x2,-0x3
024f 4801 |H | Short_Literal 0x1
0250 e001 | | Load 0x0,0x1
0251 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0252 c404 | | Store 0x2,0x4
0253 00d9 | | Load_Top At_Offset_1
0254 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0255 e5fb | | Load 0x2,-0x5
0256 0092 03be | | Action Push_String_Extended,0x3be ; "Ill formed name: "
0258 e5fd | | Load 0x2,-0x3
0259 01cc | | Execute Vector,Catenate
025a 8227 | ' | Call 0x1,0x27
025b e009 | | Load 0x0,0x9
025c 0257 | W | Execute Discrete,Raise
025d 00d9 | | Load_Top At_Offset_1
025e 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
025f 0000 | | .XXX[0x1]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263 | c | .CONST 0x0263 ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0001 | | .CONST 0x0001 ; Number of locals
0263 BODY_0260:
0263 INIT_0260:
0263 00da | | Load_Top At_Offset_2
0264 6805 |h | Jump_Zero 0x26a
0265 0092 03bf | | Action Push_String_Extended,0x3bf ; "/bin/cat >> "
0267 e5fe | | Load 0x2,-0x2
0268 01cc | | Execute Vector,Catenate
0269 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
026a 0092 03c0 | | Action Push_String_Extended,0x3c0 ; "/bin/cat > "
026c e5fe | | Load 0x2,-0x2
026d 01cc | | Execute Vector,Catenate
026e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
026f 0000 | | .XXX[0x1]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 02b2 | | .CONST 0x02b2 ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 000e | | .CONST 0x000e ; Number of locals
0273 INIT_0270:
0273 e402 | | Load 0x2,0x2
0274 822a | * | Call 0x1,0x2a
0275 00e1 | | Load_Encached Boolean_Cache
0276 03f1 | | Declare_Variable Discrete,With_Value
0277 e010 | | Load 0x0,0x10
0278 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0279 4801 |H | Short_Literal 0x1
027a e5fe | | Load 0x2,-0x2
027b e221 | ! | Load 0x1,0x21
027c 181a | | Execute Package,Field_Execute,Field_Number 0x1a
027d e010 | | Load 0x0,0x10
027e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
027f 4801 |H | Short_Literal 0x1
0280 00da | | Load_Top At_Offset_2
0281 e5fd | | Load 0x2,-0x3
0282 e221 | ! | Load 0x1,0x21
0283 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0284 e010 | | Load 0x0,0x10
0285 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0286 4801 |H | Short_Literal 0x1
0287 e5fc | | Load 0x2,-0x4
0288 e221 | ! | Load 0x1,0x21
0289 181d | | Execute Package,Field_Execute,Field_Number 0x1d
028a e5f8 | | Load 0x2,-0x8
028b e5fa | | Load 0x2,-0x6
028c e5f9 | | Load 0x2,-0x7
028d 00d8 | | Load_Top At_Offset_0
028e e00a | | Load 0x0,0xa
028f 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0290 e5f8 | | Load 0x2,-0x8
0291 e5fa | | Load 0x2,-0x6
0292 e5f9 | | Load 0x2,-0x7
0293 e5fa | | Load 0x2,-0x6
0294 e00a | | Load 0x0,0xa
0295 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0296 e5f8 | | Load 0x2,-0x8
0297 e5fa | | Load 0x2,-0x6
0298 e5f9 | | Load 0x2,-0x7
0299 e5f8 | | Load 0x2,-0x8
029a e00a | | Load 0x0,0xa
029b 181d | | Execute Package,Field_Execute,Field_Number 0x1d
029c 00db | | Load_Top At_Offset_3
029d e5ff | | Load 0x2,-0x1
029e e00a | | Load 0x0,0xa
029f 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
02a0 e001 | | Load 0x0,0x1
02a1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02a2 02c7 | | Declare_Variable Any
02a3 00d8 | | Load_Top At_Offset_0
02a4 1c00 | | Execute_Immediate Run_Utility,0x0
02a5 e001 | | Load 0x0,0x1
02a6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02a7 02c7 | | Declare_Variable Any
02a8 00d8 | | Load_Top At_Offset_0
02a9 1c00 | | Execute_Immediate Run_Utility,0x0
02aa e001 | | Load 0x0,0x1
02ab 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02ac 02c7 | | Declare_Variable Any
02ad 00d8 | | Load_Top At_Offset_0
02ae 1c00 | | Execute_Immediate Run_Utility,0x0
02af e00a | | Load 0x0,0xa
02b0 1b20 | | Execute Package,Field_Read,Field_Number 0x20
02b1 00e1 | | Load_Encached Boolean_Cache
02b2 BODY_0270:
02b2 e221 | ! | Load 0x1,0x21
02b3 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02b4 e60a | | Load 0x3,0xa
02b5 00da | | Load_Top At_Offset_2
02b6 e011 | | Load 0x0,0x11
02b7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02b8 e5f9 | | Load 0x2,-0x7
02b9 e606 | | Load 0x3,0x6
02ba e00a | | Load 0x0,0xa
02bb 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
02bc 003b | ; | Store_Top Access,At_Offset_3
02bd c60a | | Store 0x3,0xa
02be 00d9 | | Load_Top At_Offset_1
02bf 6806 |h | Jump_Zero 0x2c6
02c0 e402 | | Load 0x2,0x2
02c1 00da | | Load_Top At_Offset_2
02c2 0227 | ' | Execute Access,All_Reference
02c3 8227 | ' | Call 0x1,0x27
02c4 e009 | | Load 0x0,0x9
02c5 0257 | W | Execute Discrete,Raise
02c6 00db | | Load_Top At_Offset_3
02c7 00da | | Load_Top At_Offset_2
02c8 4800 |H | Short_Literal 0x0
02c9 e5fa | | Load 0x2,-0x6
02ca e607 | | Load 0x3,0x7
02cb e00a | | Load 0x0,0xa
02cc 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
02cd 003b | ; | Store_Top Access,At_Offset_3
02ce c60b | | Store 0x3,0xb
02cf 00d9 | | Load_Top At_Offset_1
02d0 6806 |h | Jump_Zero 0x2d7
02d1 e402 | | Load 0x2,0x2
02d2 00da | | Load_Top At_Offset_2
02d3 0227 | ' | Execute Access,All_Reference
02d4 8227 | ' | Call 0x1,0x27
02d5 e009 | | Load 0x0,0x9
02d6 0257 | W | Execute Discrete,Raise
02d7 e402 | | Load 0x2,0x2
02d8 e60b | | Load 0x3,0xb
02d9 e5f8 | | Load 0x2,-0x8
02da e5fa | | Load 0x2,-0x6
02db e608 | | Load 0x3,0x8
02dc 822b | + | Call 0x1,0x2b
02dd c60c | | Store 0x3,0xc
02de 00e1 | | Load_Encached Boolean_Cache
02df e402 | | Load 0x2,0x2
02e0 4884 |H | Short_Literal 0x84
02e1 4818 |H | Short_Literal 0x18
02e2 4800 |H | Short_Literal 0x0
02e3 4800 |H | Short_Literal 0x0
02e4 e608 | | Load 0x3,0x8
02e5 e60c | | Load 0x3,0xc
02e6 e606 | | Load 0x3,0x6
02e7 e60a | | Load 0x3,0xa
02e8 e607 | | Load 0x3,0x7
02e9 e60b | | Load 0x3,0xb
02ea e604 | | Load 0x3,0x4
02eb e603 | | Load 0x3,0x3
02ec e609 | | Load 0x3,0x9
02ed 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
02ee 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
02ef 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
02f0 8005 | | Call 0x0,0x5
02f1 0059 | Y | Store_Top Discrete,At_Offset_1
02f2 00d8 | | Load_Top At_Offset_0
02f3 6807 |h | Jump_Zero 0x2fb
02f4 e402 | | Load 0x2,0x2
02f5 4803 |H | Short_Literal 0x3
02f6 0092 03c1 | | Action Push_String_Extended,0x3c1 ; "Command execution completed successfully"
02f8 e00c | | Load 0x0,0xc
02f9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02fa 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02fb e402 | | Load 0x2,0x2
02fc 0092 03c2 | | Action Push_String_Extended,0x3c2 ; "Error messages generated while executing command."
02fe 8227 | ' | Call 0x1,0x27
02ff 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0314 | | .CONST 0x0314 ; Address of begin
0301 0004 | | .CONST 0x0004 ; Address of exception handler
0302 0004 | | .CONST 0x0004 ; Number of locals
0303 INIT_0300:
0303 e402 | | Load 0x2,0x2
0304 822a | * | Call 0x1,0x2a
0305 00e1 | | Load_Encached Boolean_Cache
0306 03f1 | | Declare_Variable Discrete,With_Value
0307 e010 | | Load 0x0,0x10
0308 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0309 4801 |H | Short_Literal 0x1
030a e5ff | | Load 0x2,-0x1
030b e221 | ! | Load 0x1,0x21
030c 181a | | Execute Package,Field_Execute,Field_Number 0x1a
030d e010 | | Load 0x0,0x10
030e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
030f 4801 |H | Short_Literal 0x1
0310 00da | | Load_Top At_Offset_2
0311 e5fe | | Load 0x2,-0x2
0312 e221 | ! | Load 0x1,0x21
0313 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0314 BODY_0300:
0314 e221 | ! | Load 0x1,0x21
0315 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0316 00e1 | | Load_Encached Boolean_Cache
0317 e402 | | Load 0x2,0x2
0318 e5fc | | Load 0x2,-0x4
0319 e5fd | | Load 0x2,-0x3
031a 4800 |H | Short_Literal 0x0
031b 4801 |H | Short_Literal 0x1
031c e603 | | Load 0x3,0x3
031d 0092 03c3 | | Action Push_String_Extended,0x3c3 ; " login"
031f 01cc | | Execute Vector,Catenate
0320 e21d | | Load 0x1,0x1d
0321 e603 | | Load 0x3,0x3
0322 0092 03c3 | | Action Push_String_Extended,0x3c3 ; " login"
0324 01cc | | Execute Vector,Catenate
0325 e21d | | Load 0x1,0x1d
0326 e603 | | Load 0x3,0x3
0327 0092 03c3 | | Action Push_String_Extended,0x3c3 ; " login"
0329 01cc | | Execute Vector,Catenate
032a e21d | | Load 0x1,0x1d
032b e604 | | Load 0x3,0x4
032c e603 | | Load 0x3,0x3
032d 00ea | | Load_Encached Null_String_Cache
032e 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
032f 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0330 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0331 8005 | | Call 0x0,0x5
0332 c403 | | Store 0x2,0x3
0333 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0334 0000 0000 | | .BLANK 0000[0x4]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 0366 | f | .CONST 0x0366 ; Address of begin
0339 0004 | | .CONST 0x0004 ; Address of exception handler
033a 000b | | .CONST 0x000b ; Number of locals
033b INIT_0338:
033b e402 | | Load 0x2,0x2
033c 822a | * | Call 0x1,0x2a
033d 00e1 | | Load_Encached Boolean_Cache
033e 03f1 | | Declare_Variable Discrete,With_Value
033f e010 | | Load 0x0,0x10
0340 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0341 4801 |H | Short_Literal 0x1
0342 e5fd | | Load 0x2,-0x3
0343 e221 | ! | Load 0x1,0x21
0344 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0345 e010 | | Load 0x0,0x10
0346 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0347 4801 |H | Short_Literal 0x1
0348 00da | | Load_Top At_Offset_2
0349 e5fc | | Load 0x2,-0x4
034a e221 | ! | Load 0x1,0x21
034b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
034c e010 | | Load 0x0,0x10
034d 1815 | | Execute Package,Field_Execute,Field_Number 0x15
034e 4801 |H | Short_Literal 0x1
034f e5fb | | Load 0x2,-0x5
0350 e221 | ! | Load 0x1,0x21
0351 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0352 00ea | | Load_Encached Null_String_Cache
0353 e5ff | | Load 0x2,-0x1
0354 e5fe | | Load 0x2,-0x2
0355 e00a | | Load 0x0,0xa
0356 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0357 00da | | Load_Top At_Offset_2
0358 0092 03c4 | | Action Push_String_Extended,0x3c4 ; "/bin/cat < "
035a 00da | | Load_Top At_Offset_2
035b 01cc | | Execute Vector,Catenate
035c e00a | | Load 0x0,0xa
035d 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
035e e001 | | Load 0x0,0x1
035f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0360 02c7 | | Declare_Variable Any
0361 00d8 | | Load_Top At_Offset_0
0362 1c00 | | Execute_Immediate Run_Utility,0x0
0363 e00a | | Load 0x0,0xa
0364 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0365 00e1 | | Load_Encached Boolean_Cache
0366 BODY_0338:
0366 e221 | ! | Load 0x1,0x21
0367 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0368 00da | | Load_Top At_Offset_2
0369 00da | | Load_Top At_Offset_2
036a e5f9 | | Load 0x2,-0x7
036b e5fe | | Load 0x2,-0x2
036c e606 | | Load 0x3,0x6
036d e00a | | Load 0x0,0xa
036e 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
036f 003b | ; | Store_Top Access,At_Offset_3
0370 c609 | | Store 0x3,0x9
0371 00d9 | | Load_Top At_Offset_1
0372 6806 |h | Jump_Zero 0x379
0373 e402 | | Load 0x2,0x2
0374 00da | | Load_Top At_Offset_2
0375 0227 | ' | Execute Access,All_Reference
0376 8227 | ' | Call 0x1,0x27
0377 e009 | | Load 0x0,0x9
0378 0257 | W | Execute Discrete,Raise
0379 00e1 | | Load_Encached Boolean_Cache
037a e402 | | Load 0x2,0x2
037b 4884 |H | Short_Literal 0x84
037c 4818 |H | Short_Literal 0x18
037d 4800 |H | Short_Literal 0x0
037e 4800 |H | Short_Literal 0x0
037f e606 | | Load 0x3,0x6
0380 e21d | | Load 0x1,0x1d
0381 e606 | | Load 0x3,0x6
0382 e21d | | Load 0x1,0x1d
0383 e606 | | Load 0x3,0x6
0384 e609 | | Load 0x3,0x9
0385 e604 | | Load 0x3,0x4
0386 e603 | | Load 0x3,0x3
0387 e608 | | Load 0x3,0x8
0388 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0389 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
038a 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
038b 8005 | | Call 0x0,0x5
038c 0059 | Y | Store_Top Discrete,At_Offset_1
038d 00d8 | | Load_Top At_Offset_0
038e 6807 |h | Jump_Zero 0x396
038f e402 | | Load 0x2,0x2
0390 4803 |H | Short_Literal 0x3
0391 0092 03c1 | | Action Push_String_Extended,0x3c1 ; "Command execution completed successfully"
0393 e00c | | Load 0x0,0xc
0394 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0395 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0396 e402 | | Load 0x2,0x2
0397 0092 03c2 | | Action Push_String_Extended,0x3c2 ; "Error messages generated while executing command."
0399 8227 | ' | Call 0x1,0x27
039a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
039b 0000 0000 | | .BLANK 0000[0x5]
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03aa | | .CONST 0x03aa ; Address of begin
03a1 0004 | | .CONST 0x0004 ; Address of exception handler
03a2 0003 | | .CONST 0x0003 ; Number of locals
03a3 INIT_03a0:
03a3 e5fe | | Load 0x2,-0x2
03a4 e5ff | | Load 0x2,-0x1
03a5 e00a | | Load 0x0,0xa
03a6 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
03a7 00d8 | | Load_Top At_Offset_0
03a8 e5f9 | | Load 0x2,-0x7
03a9 822c | , | Call 0x1,0x2c
03aa BODY_03a0:
03aa e5f8 | | Load 0x2,-0x8
03ab 00ea | | Load_Encached Null_String_Cache
03ac e5ff | | Load 0x2,-0x1
03ad 00ea | | Load_Encached Null_String_Cache
03ae 0092 03bd | | Action Push_String_Extended,0x3bd ; "<DEFAULT>"
03b0 e5fb | | Load 0x2,-0x5
03b1 e5fc | | Load 0x2,-0x4
03b2 e5fd | | Load 0x2,-0x3
03b3 e603 | | Load 0x3,0x3
03b4 821a | | Call 0x1,0x1a
03b5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03b6 ; --------------------------------------------------------------------------------------
03b6 ; STRING TABLE
03b6 ; --------------------------------------------------------------------------------------
03b6 0020 | | .STRTAB 0x0020->0x03c6 ; "Run quitting after errors"
03b7 0037 | 7 | .STRTAB 0x0037->0x03d2 ; "Unexpected exception "
03b8 004a | J | .STRTAB 0x004a->0x03dd ; "Rlogin quitting after errors"
03b9 0064 | d | .STRTAB 0x0064->0x03eb ; "Get_Text_File quitting after errors"
03ba 0085 | | .STRTAB 0x0085->0x03fc ; "Put_Text_File quitting after errors"
03bb 00a6 | | .STRTAB 0x00a6->0x040e ; "$"
03bc 00a5 | | .STRTAB 0x00a5->0x040e ; "<NONE>"
03bd 00a9 | | .STRTAB 0x00a9->0x0411 ; "<DEFAULT>"
03be 00b0 | | .STRTAB 0x00b0->0x0416 ; "Ill formed name: "
03bf 00bf | | .STRTAB 0x00bf->0x041e ; "/bin/cat >> "
03c0 00c9 | | .STRTAB 0x00c9->0x0424 ; "/bin/cat > "
03c1 00d2 | | .STRTAB 0x00d2->0x042a ; "Command execution completed successfully"
03c2 00f8 | | .STRTAB 0x00f8->0x043e ; "Error messages generated while executing command."
03c3 0127 | ' | .STRTAB 0x0127->0x0456 ; " login"
03c4 012b | + | .STRTAB 0x012b->0x0459 ; "/bin/cat < "
03c5 0134 | 4 | .STREND 0x0134->0x045f
03c6 5275 6e20 |Run | .STRTAB_STRINGS
045f 0000 | | .XXX[0x1]
0460 ; --------------------------------------------------------------------------------------
0460 ; Debug Table
0460 ; --------------------------------------------------------------------------------------
0460 0004 000b | | .DEBUG4 0x0004,0x000b,0xc7ed,0x0000,0x0001,0x0000
0466 157d 0d49 | } I| .XXX[0x19a]
0468 3d4d 4d7d |=MM}|
046a 0549 493d | II=|
046c 5d21 1505 |]! |
046e 117d 7d05 | }} |
0470 c9c9 bddd | |
0472 a195 8591 | |
0474 7d2d a5b9 |}- |
0476 90e8 d4b1 | |
0478 5149 2541 |QI%A|
047a 3115 7d0d |1 } |
047c 493d 4d4d |I=MM|
047e 7d05 4949 |} II|
0480 3d5d 2115 |=]! |
0482 0511 7d7d | }}|
0484 05c9 c9bd | |
0486 dda1 9585 | |
0488 917d 2da5 | }- |
048a b990 e8d8 | |
048c b161 7d05 | a} |
048e 4949 3d5d |II=]|
0490 2115 0511 |! |
0492 7d7d 05c9 |}} |
0494 c9bd dda1 | |
0496 9585 917d | }|
0498 2da5 b990 |- |
049a e8dc b0ec | |
049c 011d c985 | |
049e c1a1 a58d | |
04a0 cd7d 41c9 | }A |
04a2 a5b5 a5d1 | |
04a4 a5d9 94e9 | |
04a6 50a0 c0b0 |P |
04a8 d0c0 e0a4 | |
04aa f5cc c4e4 | |
04ac c97d 7d5c | }}\|
04ae c4cd 7d7c | }||
04b0 c4c1 55b9 | U |
04b2 8dbd c1e5 | |
04b4 8589 b194 | |
04b6 e8a0 c0b0 | |
04b8 c8a4 b0c0 | |
04ba b0e0 edb5 | |
04bc e57d d9a5 | } |
04be 95dd 7d7c | }||
04c0 c4e1 1dc9 | |
04c2 85c1 a1a5 | |
04c4 8dcd 7d41 | }A|
04c6 c9a5 b5a5 | |
04c8 d1a5 d994 | |
04ca e8a0 c0b0 | |
04cc cce4 e0a4 | |
04ce b0cc c8b0 | |
04d0 ccc8 edb5 | |
04d2 e57d cdd1 | } |
04d4 85d1 957d | }|
04d6 7cc4 e11d || |
04d8 c985 c1a1 | |
04da a58d cd7d | }|
04dc 41c9 a5b5 |A |
04de a5d1 a5d9 | |
04e0 94e8 a0c0 | |
04e2 b0c4 a4b0 | |
04e4 d8d0 b0cc | |
04e6 c8ed b5e5 | |
04e8 7d89 bdd5 |} |
04ea b991 cd7d | }|
04ec 7cc4 e11d || |
04ee c985 c1a1 | |
04f0 a58d cd7d | }|
04f2 41c9 a5b5 |A |
04f4 a5d1 a5d9 | |
04f6 94e8 a0c0 | |
04f8 b0c4 c4d4 | |
04fa a4b0 e4d8 | |
04fc b0cc d4c8 | |
04fe edb5 e57d | }|
0500 99bd b9d1 | |
0502 cd7d 7cc4 | }| |
0504 e11d c985 | |
0506 c1a1 a58d | |
0508 cd7d 41c9 | }A |
050a a5b5 a5d1 | |
050c a5d9 94e8 | |
050e a0c0 b0c4 | |
0510 d8a4 b0d0 | |
0512 d0e0 b0cc | |
0514 c8ed b5e5 | |
0516 7db1 a5b9 |} |
0518 957d dda5 | } |
051a 91d1 a17d | }|
051c 7cc4 e11d || |
051e c985 c1a1 | |
0520 a58d cd7d | }|
0522 41c9 a5b5 |A |
0524 a5d1 a5d9 | |
0526 94e8 a0c0 | |
0528 b0e0 a4b0 | |
052a d0e0 c0b0 | |
052c ccc8 edb5 | |
052e e57d 9185 | } |
0530 cda1 a5b9 | |
0532 9d7d 7cc4 | }| |
0534 e11d c985 | |
0536 c1a1 a58d | |
0538 cd7d 41c9 | }A |
053a a5b5 a5d1 | |
053c a5d9 94e8 | |
053e a0c0 b0c8 | |
0540 a4b0 d4c4 | |
0542 c8b0 e0ed | |
0544 b5e5 7dc1 | } |
0546 a5e1 b585 | |
0548 c1cd 7d7c | }||
054a c4e1 1dc9 | |
054c 85c1 a1a5 | |
054e 8dcd 7d41 | }A|
0550 c9a5 b5a5 | |
0552 d1a5 d994 | |
0554 e8a0 c0b0 | |
0556 d4d0 a4b0 | |
0558 d4d0 d0b0 | |
055a c4d8 c0ed | |
055c 7001 b5e5 |p |
055e 7d99 bdc9 |} |
0560 959d c9bd | |
0562 d5b9 917d | }|
0564 7cc4 e11d || |
0566 c985 c1a1 | |
0568 a58d cd7d | }|
056a 41c9 a5b5 |A |
056c a5d1 a5d9 | |
056e 94e8 a0c0 | |
0570 b0e0 a4b0 | |
0572 dcc0 d0b0 | |
0574 ccc8 edb5 | |
0576 e57d 8985 | } |
0578 8dad 9dc9 | |
057a bdd5 b991 | |
057c 7d7c c4e1 |}| |
057e 1dc9 85c1 | |
0580 a1a5 8dcd | |
0582 7d41 c9a5 |}A |
0584 b5a5 d1a5 | |
0586 d994 e8a0 | |
0588 c0b0 e0a4 | |
058a b0dc ccd8 | |
058c b0cc c8ed | |
058e b5e5 7dcd | } |
0590 d1a5 c1c1 | |
0592 b195 7d7c | }||
0594 c4e1 1dc9 | |
0596 85c1 a1a5 | |
0598 8dcd 7d41 | }A|
059a c9a5 b5a5 | |
059c d1a5 d994 | |
059e e8a0 c0b0 | |
05a0 e0a4 b0dc | |
05a2 d8e0 b0cc | |
05a4 c8ed b5e5 | |
05a6 7d8d b1a5 |} |
05a8 c1c1 a5b9 | |
05aa 9d7d 7cc4 | }| |
05ac e11d c985 | |
05ae c1a1 a58d | |
05b0 cd7d 41c9 | }A |
05b2 a5b5 a5d1 | |
05b4 a5d9 94e8 | |
05b6 a0c0 b0c8 | |
05b8 c4d0 a4b0 | |
05ba e0c0 c0b0 | |
05bc ccc8 edb5 | |
05be e57d 9d8d | } |
05c0 cd7d 7cc4 | }| |
05c2 e11d c985 | |
05c4 c1a1 a58d | |
05c6 cd7d 41c9 | }A |
05c8 a5b5 a5d1 | |
05ca a5d9 94e8 | |
05cc a0c0 b0d0 | |
05ce c0e4 a4f5 | |
05d0 85c8 a0c0 | |
05d2 b0c4 a4ec | |
05d4 c0ec c4ec | |
05d6 a0c0 b0d0 | |
05d8 c0c4 a4b0 | |
05da e0cc c8b0 | |
05dc c4c8 e0ed | |
05de b5e5 7dcd | } |
05e0 85d9 9591 | |
05e2 7dcd d185 |} |
05e4 d195 7d7c | }||
05e6 c4e1 1dc9 | |
05e8 85c1 a1a5 | |
05ea 8dcd 7d41 | }A|
05ec c9a5 b5a5 | |
05ee d1a5 d994 | |
05f0 e8a0 c0b0 | |
05f2 d0c4 c0a4 | |
05f4 f585 c8a0 | |
05f6 c0b0 c4a4 | |
05f8 ecc0 ecc0 | |
05fa eca0 c0b0 | |
05fc d0c0 cca4 | |
05fe b0e4 d8c0 | |