|
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_0a7cf5
└─⟦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 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 0000 0000 | | .BLANK 0000[0x9]
047f 0200 0311 | | .XXX[0x3]
0481 d800 | |
0482 0000 0000 | | .BLANK 0000[0xd]
048f 0801 4000 | @ | .XXX[0xc]
0491 0000 0000 | |
0493 0010 0000 | |
0495 0088 0000 | |
0497 0000 4000 | @ |
0499 0002 8000 | |
049b 0000 0000 | | .BLANK 0000[0x2d]
04c8 0100 2800 | ( | .XXX[0xc]
04ca 0000 0000 | |
04cc 0002 0000 | |
04ce 0011 0000 | |
04d0 0000 0800 | |
04d2 0000 5000 | P |
04d4 0000 0000 | | .BLANK 0000[0x2d]
0501 0020 0500 | | .XXX[0xc]
0503 0000 0000 | |
0505 0000 4000 | @ |
0507 0002 2000 | |
0509 0000 0100 | |
050b 0000 0a00 | |
050d 0000 0000 | | .BLANK 0000[0x2d]
053a 0004 00a0 | | .XXX[0xc]
053c 0000 0000 | |
053e 0000 0800 | |
0540 0000 4400 | D |
0542 0000 0020 | |
0544 0000 0140 | @|
0546 0000 0000 | | .BLANK 0000[0x2e]
0574 8014 0000 | | .XXX[0xb]
0576 0000 0000 | |
0578 0100 0000 | |
057a 0880 0000 | |
057c 0004 0000 | |
057e 0028 | ( |
057f 0000 0000 | | .BLANK 0000[0x2e]
05ad 1002 8000 | | .XXX[0xb]
05af 0000 0000 | |
05b1 0020 0000 | |
05b3 0110 0000 | |
05b5 0000 8000 | |
05b7 0005 | |
05b8 0000 0000 | | .BLANK 0000[0x48]