|
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: 4096 (0x1000)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_02f8e7
└─⟦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 0618 | | .CONST 0x0618 ; 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 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0010 | | .CONST 0x0010 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0001 | | .CONST 0x0001 ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
000f 00c7 | | Action Elaborate_Subprogram
0010 BODY_0008:
0010 00bc | | Action Signal_Activated
0011 00bb | | Action Signal_Completion
0012 0000 0000 | | .BLANK 0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 0031 | 1 | .CONST 0x0031 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0008 | | .CONST 0x0008 ; Number of locals
001b INIT_0018:
001b 0007 | | Action Break_Optional
001c 0007 | | Action Break_Optional
001d 0092 0450 | P| Action Push_String_Extended,0x450 ; "rev1_0_1"
001f 0092 0451 | Q| Action Push_String_Extended,0x451 ; "!tools.support_tools.sims."
0021 e402 | | Load 0x2,0x2
0022 01cc | | Execute Vector,Catenate
0023 0092 0452 | R| Action Push_String_Extended,0x452 ; ".units."
0025 01cc | | Execute Vector,Catenate
0026 0007 | | Action Break_Optional
0027 0092 0453 | S| Action Push_String_Extended,0x453 ; "database."
0029 0092 0454 | T| Action Push_String_Extended,0x454 ; ":net:curly_joe:udd:csc:sims_r1000:sims_r1000_backup:"
002b 00e2 | | Load_Encached Integer_Cache
002c 061f | | Execute_Immediate Set_Value_Unchecked,0x1f
002d 029f 0053 | S| Declare_Subprogram INIT_0050,For_Call
002f 029f 0083 | | Declare_Subprogram INIT_0080,For_Call
0031 BODY_0018:
0031 4800 |H | Short_Literal 0x0
0032 4801 |H | Short_Literal 0x1
0033 e405 | | Load 0x2,0x5
0034 e403 | | Load 0x2,0x3
0035 e404 | | Load 0x2,0x4
0036 01cc | | Execute Vector,Catenate
0037 0092 0455 | U| Action Push_String_Extended,0x455 ; "@"
0039 01cc | | Execute Vector,Catenate
003a 8407 | | Call 0x2,0x7
003b 4800 |H | Short_Literal 0x0
003c 4801 |H | Short_Literal 0x1
003d e405 | | Load 0x2,0x5
003e e403 | | Load 0x2,0x3
003f 0092 0456 | V| Action Push_String_Extended,0x456 ; "server.sims_backup@"
0041 01cc | | Execute Vector,Catenate
0042 8407 | | Call 0x2,0x7
0043 4800 |H | Short_Literal 0x0
0044 4801 |H | Short_Literal 0x1
0045 e405 | | Load 0x2,0x5
0046 0092 0457 | W| Action Push_String_Extended,0x457 ; "!users.sjf.sims.sims_doc?"
0048 8407 | | Call 0x2,0x7
0049 4501 |E | Exit_Suprogram New_Top_Offset 0x1
004a 0000 0000 | | .BLANK 0000[0x6]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 005b | [ | .CONST 0x005b ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0003 | | .CONST 0x0003 ; Number of locals
0053 INIT_0050:
0053 e001 | | Load 0x0,0x1
0054 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0055 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0056 02c7 | | Declare_Variable Any
0057 00d8 | | Load_Top At_Offset_0
0058 1c00 | | Execute_Immediate Run_Utility,0x0
0059 029f 014b | K| Declare_Subprogram INIT_0148,For_Call
005b BODY_0050:
005b 4801 |H | Short_Literal 0x1
005c e001 | | Load 0x0,0x1
005d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
005e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
005f e7ff | | Load 0x3,-0x1
0060 e001 | | Load 0x0,0x1
0061 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0062 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0063 c602 | | Store 0x3,0x2
0064 e602 | | Load 0x3,0x2
0065 e001 | | Load 0x0,0x1
0066 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0067 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0068 6801 |h | Jump_Zero 0x6a
0069 4505 |E | Exit_Suprogram New_Top_Offset 0x5
006a 00cf | | Action Mark_Auxiliary
006b 7802 |x | Jump 0x6e
006c 8603 | | Call 0x3,0x3
006d 00c9 | | Action Pop_Auxiliary_Loop
006e e602 | | Load 0x3,0x2
006f e001 | | Load 0x0,0x1
0070 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0071 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0072 6ff9 |o | Jump_Zero 0x6c
0073 00ce | | Action Pop_Auxiliary
0074 0092 0458 | X| Action Push_String_Extended,0x458 ; " Done with send process."
0076 e002 | | Load 0x0,0x2
0077 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0078 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0079 0000 0000 | | .BLANK 0000[0x7]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 00b4 | | .CONST 0x00b4 ; Address of begin
0081 0125 | % | .CONST 0x0125 ; Address of exception handler
0082 000d | | .CONST 0x000d ; Number of locals
0083 INIT_0080:
0083 00e1 | | Load_Encached Boolean_Cache
0084 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0085 0007 | | Action Break_Optional
0086 e001 | | Load 0x0,0x1
0087 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0088 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0089 02c7 | | Declare_Variable Any
008a 00d8 | | Load_Top At_Offset_0
008b 1c00 | | Execute_Immediate Run_Utility,0x0
008c e001 | | Load 0x0,0x1
008d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
008e 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
008f 02c7 | | Declare_Variable Any
0090 00d8 | | Load_Top At_Offset_0
0091 1c00 | | Execute_Immediate Run_Utility,0x0
0092 e001 | | Load 0x0,0x1
0093 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0094 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
0095 02c7 | | Declare_Variable Any
0096 00d8 | | Load_Top At_Offset_0
0097 1c00 | | Execute_Immediate Run_Utility,0x0
0098 e003 | | Load 0x0,0x3
0099 1b0d | | Execute Package,Field_Read,Field_Number 0xd
009a 02c7 | | Declare_Variable Any
009b 00d8 | | Load_Top At_Offset_0
009c 1c00 | | Execute_Immediate Run_Utility,0x0
009d e004 | | Load 0x0,0x4
009e 1b17 | | Execute Package,Field_Read,Field_Number 0x17
009f e005 | | Load 0x0,0x5
00a0 1b19 | | Execute Package,Field_Read,Field_Number 0x19
00a1 0007 | | Action Break_Optional
00a2 00e2 | | Load_Encached Integer_Cache
00a3 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00a4 029e 0333 | 3| Declare_Subprogram INIT_0330,For_Call,Unelaborated
00a6 480a |H | Short_Literal 0xa
00a7 4803 |H | Short_Literal 0x3
00a8 0099 | | Action Reference_Dynamic
00a9 00c7 | | Action Elaborate_Subprogram
00aa 029e 035b | [| Declare_Subprogram INIT_0358,For_Call,Unelaborated
00ac 480b |H | Short_Literal 0xb
00ad 4803 |H | Short_Literal 0x3
00ae 0099 | | Action Reference_Dynamic
00af 00c7 | | Action Elaborate_Subprogram
00b0 029f 038b | | Declare_Subprogram INIT_0388,For_Call
00b2 029f 03fb | | Declare_Subprogram INIT_03f8,For_Call
00b4 BODY_0080:
00b4 e001 | | Load 0x0,0x1
00b5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00b6 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
00b7 c604 | | Store 0x3,0x4
00b8 4801 |H | Short_Literal 0x1
00b9 e001 | | Load 0x0,0x1
00ba 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00bb 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00bc e7ff | | Load 0x3,-0x1
00bd e001 | | Load 0x0,0x1
00be 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00bf 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
00c0 c603 | | Store 0x3,0x3
00c1 e603 | | Load 0x3,0x3
00c2 e001 | | Load 0x0,0x1
00c3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00c4 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
00c5 6801 |h | Jump_Zero 0xc7
00c6 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00c7 e005 | | Load 0x0,0x5
00c8 1b19 | | Execute Package,Field_Read,Field_Number 0x19
00c9 e606 | | Load 0x3,0x6
00ca 0120 | | Execute Any,Is_Value
00cb 6803 |h | Jump_Zero 0xcf
00cc e003 | | Load 0x0,0x3
00cd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ce 7801 |x | Jump 0xd0
00cf e606 | | Load 0x3,0x6
00d0 e003 | | Load 0x0,0x3
00d1 180f | | Execute Package,Field_Execute,Field_Number 0xf
00d2 c606 | | Store 0x3,0x6
00d3 c608 | | Store 0x3,0x8
00d4 0092 0459 | Y| Action Push_String_Extended,0x459 ; "File_Transfer.Open"
00d6 e608 | | Load 0x3,0x8
00d7 860a | | Call 0x3,0xa
00d8 e003 | | Load 0x0,0x3
00d9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00da 0092 045a | Z| Action Push_String_Extended,0x45a ; "ratnet_mv"
00dc e006 | | Load 0x0,0x6
00dd 180e | | Execute Package,Field_Execute,Field_Number 0xe
00de e606 | | Load 0x3,0x6
00df e003 | | Load 0x0,0x3
00e0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00e1 0092 045b | [| Action Push_String_Extended,0x45b ; "remote_access"
00e3 e606 | | Load 0x3,0x6
00e4 e003 | | Load 0x0,0x3
00e5 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00e6 0092 045b | [| Action Push_String_Extended,0x45b ; "remote_access"
00e8 e606 | | Load 0x3,0x6
00e9 e003 | | Load 0x0,0x3
00ea 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00eb 0092 045c | \| Action Push_String_Extended,0x45c ; "File_Transfer.Send_Password"
00ed 860b | | Call 0x3,0xb
00ee 00cf | | Action Mark_Auxiliary
00ef 7807 |x | Jump 0xf7
00f0 860c | | Call 0x3,0xc
00f1 e603 | | Load 0x3,0x3
00f2 e001 | | Load 0x0,0x1
00f3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f4 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
00f5 c603 | | Store 0x3,0x3
00f6 00c9 | | Action Pop_Auxiliary_Loop
00f7 e603 | | Load 0x3,0x3
00f8 e001 | | Load 0x0,0x1
00f9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00fa 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
00fb 6ff4 |o | Jump_Zero 0xf0
00fc 00ce | | Action Pop_Auxiliary
00fd e606 | | Load 0x3,0x6
00fe e003 | | Load 0x0,0x3
00ff 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0100 e609 | | Load 0x3,0x9
0101 0c01 | | Execute_Immediate Greater_Equal,0x1
0102 6815 |h | Jump_Zero 0x118
0103 e007 | | Load 0x0,0x7
0104 180e | | Execute Package,Field_Execute,Field_Number 0xe
0105 4807 |H | Short_Literal 0x7
0106 0092 045d | ]| Action Push_String_Extended,0x45d ; "Failures occurred transfering files."
0108 e008 | | Load 0x0,0x8
0109 1813 | | Execute Package,Field_Execute,Field_Number 0x13
010a e007 | | Load 0x0,0x7
010b 180e | | Execute Package,Field_Execute,Field_Number 0xe
010c 4805 |H | Short_Literal 0x5
010d 0092 045e | ^| Action Push_String_Extended,0x45e ; "Files => "
010f e7ff | | Load 0x3,-0x1
0110 01cc | | Execute Vector,Catenate
0111 0092 045f | _| Action Push_String_Extended,0x45f ; ", To_Directory => "
0113 01cc | | Execute Vector,Catenate
0114 e7fe | | Load 0x3,-0x2
0115 01cc | | Execute Vector,Catenate
0116 e008 | | Load 0x0,0x8
0117 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0118 e602 | | Load 0x3,0x2
0119 680a |h | Jump_Zero 0x124
011a 00cf | | Action Mark_Auxiliary
011b 7802 |x | Jump 0x11e
011c 860d | | Call 0x3,0xd
011d 00c9 | | Action Pop_Auxiliary_Loop
011e e604 | | Load 0x3,0x4
011f e001 | | Load 0x0,0x1
0120 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0121 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0122 6ff9 |o | Jump_Zero 0x11c
0123 00ce | | Action Pop_Auxiliary
0124 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0125 TRAP_0080:
0125 e009 | | Load 0x0,0x9
0126 010f | | Execute Exception,Equal
0127 6804 |h | Jump_Zero 0x12c
0128 e606 | | Load 0x3,0x6
0129 e003 | | Load 0x0,0x3
012a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
012b 4504 |E | Exit_Suprogram New_Top_Offset 0x4
012c e007 | | Load 0x0,0x7
012d 180e | | Execute Package,Field_Execute,Field_Number 0xe
012e 4808 |H | Short_Literal 0x8
012f 4801 |H | Short_Literal 0x1
0130 4801 |H | Short_Literal 0x1
0131 e00a | | Load 0x0,0xa
0132 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0133 0092 0460 | `| Action Push_String_Extended,0x460 ; " raised transfering "
0135 01cc | | Execute Vector,Catenate
0136 e7ff | | Load 0x3,-0x1
0137 01cc | | Execute Vector,Catenate
0138 0092 0461 | a| Action Push_String_Extended,0x461 ; " to "
013a 01cc | | Execute Vector,Catenate
013b e7fe | | Load 0x3,-0x2
013c 01cc | | Execute Vector,Catenate
013d e008 | | Load 0x0,0x8
013e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
013f e606 | | Load 0x3,0x6
0140 e003 | | Load 0x0,0x3
0141 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0142 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0143 0000 0000 | | .BLANK 0000[0x5]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 01b1 | | .CONST 0x01b1 ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 000e | | .CONST 0x000e ; Number of locals
014b INIT_0148:
014b e602 | | Load 0x3,0x2
014c e001 | | Load 0x0,0x1
014d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
014e 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
014f e001 | | Load 0x0,0x1
0150 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0151 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0152 e7fe | | Load 0x3,-0x2
0153 e802 | | Load 0x4,0x2
0154 e001 | | Load 0x0,0x1
0155 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0156 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0157 01cc | | Execute Vector,Catenate
0158 0007 | | Action Break_Optional
0159 00d8 | | Load_Top At_Offset_0
015a 01db | | Execute Vector,Length
015b 00e2 | | Load_Encached Integer_Cache
015c 03f1 | | Declare_Variable Discrete,With_Value
015d 4801 |H | Short_Literal 0x1
015e 4832 |H2 | Short_Literal 0x32
015f 00e9 | | Load_Encached String_Cache
0160 0334 | 4 | Declare_Variable Array,With_Constraint
0161 4801 |H | Short_Literal 0x1
0162 4832 |H2 | Short_Literal 0x32
0163 00e9 | | Load_Encached String_Cache
0164 0334 | 4 | Declare_Variable Array,With_Constraint
0165 4832 |H2 | Short_Literal 0x32
0166 4801 |H | Short_Literal 0x1
0167 4820 |H | Short_Literal 0x20
0168 e808 | | Load 0x4,0x8
0169 e806 | | Load 0x4,0x6
016a 01d6 | | Execute Vector,Field_Write
016b 3ffb |? | Loop_Increasing 0x167
016c e805 | | Load 0x4,0x5
016d 01d4 | | Execute Vector,Structure_Write
016e 00e2 | | Load_Encached Integer_Cache
016f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0170 4801 |H | Short_Literal 0x1
0171 480a |H | Short_Literal 0xa
0172 00e9 | | Load_Encached String_Cache
0173 0334 | 4 | Declare_Variable Array,With_Constraint
0174 4801 |H | Short_Literal 0x1
0175 480a |H | Short_Literal 0xa
0176 00e9 | | Load_Encached String_Cache
0177 0334 | 4 | Declare_Variable Array,With_Constraint
0178 480a |H | Short_Literal 0xa
0179 4801 |H | Short_Literal 0x1
017a 4820 |H | Short_Literal 0x20
017b e80a | | Load 0x4,0xa
017c e808 | | Load 0x4,0x8
017d 01d6 | | Execute Vector,Field_Write
017e 3ffb |? | Loop_Increasing 0x17a
017f e807 | | Load 0x4,0x7
0180 01d4 | | Execute Vector,Structure_Write
0181 00e2 | | Load_Encached Integer_Cache
0182 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0183 e00b | | Load 0x0,0xb
0184 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0185 02c7 | | Declare_Variable Any
0186 00d8 | | Load_Top At_Offset_0
0187 1c00 | | Execute_Immediate Run_Utility,0x0
0188 e00b | | Load 0x0,0xb
0189 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
018a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
018b 4801 |H | Short_Literal 0x1
018c 481e |H | Short_Literal 0x1e
018d 00e9 | | Load_Encached String_Cache
018e 0334 | 4 | Declare_Variable Array,With_Constraint
018f 4801 |H | Short_Literal 0x1
0190 481e |H | Short_Literal 0x1e
0191 00e9 | | Load_Encached String_Cache
0192 0334 | 4 | Declare_Variable Array,With_Constraint
0193 481e |H | Short_Literal 0x1e
0194 4801 |H | Short_Literal 0x1
0195 4820 |H | Short_Literal 0x20
0196 e80e | | Load 0x4,0xe
0197 e80c | | Load 0x4,0xc
0198 01d6 | | Execute Vector,Field_Write
0199 3ffb |? | Loop_Increasing 0x195
019a e80b | | Load 0x4,0xb
019b 01d4 | | Execute Vector,Structure_Write
019c 00e2 | | Load_Encached Integer_Cache
019d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
019e 4801 |H | Short_Literal 0x1
019f 480a |H | Short_Literal 0xa
01a0 00e9 | | Load_Encached String_Cache
01a1 0334 | 4 | Declare_Variable Array,With_Constraint
01a2 4801 |H | Short_Literal 0x1
01a3 480a |H | Short_Literal 0xa
01a4 00e9 | | Load_Encached String_Cache
01a5 0334 | 4 | Declare_Variable Array,With_Constraint
01a6 480a |H | Short_Literal 0xa
01a7 4801 |H | Short_Literal 0x1
01a8 4820 |H | Short_Literal 0x20
01a9 e810 | | Load 0x4,0x10
01aa e80e | | Load 0x4,0xe
01ab 01d6 | | Execute Vector,Field_Write
01ac 3ffb |? | Loop_Increasing 0x1a8
01ad e80d | | Load 0x4,0xd
01ae 01d4 | | Execute Vector,Structure_Write
01af 00e2 | | Load_Encached Integer_Cache
01b0 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
01b1 BODY_0148:
01b1 e602 | | Load 0x3,0x2
01b2 e001 | | Load 0x0,0x1
01b3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01b4 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
01b5 e001 | | Load 0x0,0x1
01b6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01b7 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
01b8 e001 | | Load 0x0,0x1
01b9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01ba 181e | | Execute Package,Field_Execute,Field_Number 0x1e
01bb 01db | | Execute Vector,Length
01bc a806 | | Store_Unchecked 0x4,0x6
01bd e602 | | Load 0x3,0x2
01be e001 | | Load 0x0,0x1
01bf 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01c0 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
01c1 e001 | | Load 0x0,0x1
01c2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01c3 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
01c4 e001 | | Load 0x0,0x1
01c5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01c6 181e | | Execute Package,Field_Execute,Field_Number 0x1e
01c7 4801 |H | Short_Literal 0x1
01c8 e806 | | Load 0x4,0x6
01c9 e805 | | Load 0x4,0x5
01ca 01ce | | Execute Vector,Slice_Write
01cb 4800 |H | Short_Literal 0x0
01cc a808 | | Store_Unchecked 0x4,0x8
01cd 4801 |H | Short_Literal 0x1
01ce 4805 |H | Short_Literal 0x5
01cf e805 | | Load 0x4,0x5
01d0 01cf | | Execute Vector,Slice_Read
01d1 0092 0462 | b| Action Push_String_Extended,0x462 ; "'body"
01d3 01df | | Execute Vector,Equal
01d4 4801 |H | Short_Literal 0x1
01d5 4805 |H | Short_Literal 0x5
01d6 e805 | | Load 0x4,0x5
01d7 01cf | | Execute Vector,Slice_Read
01d8 0092 0463 | c| Action Push_String_Extended,0x463 ; "'BODY"
01da 01df | | Execute Vector,Equal
01db 0278 | x | Execute Discrete,Or
01dc 6808 |h | Jump_Zero 0x1e5
01dd 0092 0464 | d| Action Push_String_Extended,0x464 ; "_b"
01df 4801 |H | Short_Literal 0x1
01e0 4802 |H | Short_Literal 0x2
01e1 e807 | | Load 0x4,0x7
01e2 01ce | | Execute Vector,Slice_Write
01e3 4802 |H | Short_Literal 0x2
01e4 a808 | | Store_Unchecked 0x4,0x8
01e5 e602 | | Load 0x3,0x2
01e6 e001 | | Load 0x0,0x1
01e7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01e8 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
01e9 e001 | | Load 0x0,0x1
01ea 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01eb 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01ec e001 | | Load 0x0,0x1
01ed 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01ee 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01ef 01db | | Execute Vector,Length
01f0 a80c | | Store_Unchecked 0x4,0xc
01f1 e602 | | Load 0x3,0x2
01f2 e001 | | Load 0x0,0x1
01f3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01f4 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
01f5 e001 | | Load 0x0,0x1
01f6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01f7 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01f8 e001 | | Load 0x0,0x1
01f9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01fa 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01fb 4801 |H | Short_Literal 0x1
01fc e80c | | Load 0x4,0xc
01fd e80b | | Load 0x4,0xb
01fe 01ce | | Execute Vector,Slice_Write
01ff 4800 |H | Short_Literal 0x0
0200 a80e | | Store_Unchecked 0x4,0xe
0201 4801 |H | Short_Literal 0x1
0202 4803 |H | Short_Literal 0x3
0203 e80b | | Load 0x4,0xb
0204 01cf | | Execute Vector,Slice_Read
0205 0092 0465 | e| Action Push_String_Extended,0x465 ; "Ada"
0207 01df | | Execute Vector,Equal
0208 6809 |h | Jump_Zero 0x212
0209 0092 0466 | f| Action Push_String_Extended,0x466 ; ".ada"
020b 4801 |H | Short_Literal 0x1
020c 4804 |H | Short_Literal 0x4
020d e80d | | Load 0x4,0xd
020e 01ce | | Execute Vector,Slice_Write
020f 4804 |H | Short_Literal 0x4
0210 a80e | | Store_Unchecked 0x4,0xe
0211 7808 |x | Jump 0x21a
0212 0092 0467 | g| Action Push_String_Extended,0x467 ; ".txt"
0214 4801 |H | Short_Literal 0x1
0215 4804 |H | Short_Literal 0x4
0216 e80d | | Load 0x4,0xd
0217 01ce | | Execute Vector,Slice_Write
0218 4804 |H | Short_Literal 0x4
0219 a80e | | Store_Unchecked 0x4,0xe
021a e803 | | Load 0x4,0x3
021b 01db | | Execute Vector,Length
021c a804 | | Store_Unchecked 0x4,0x4
021d e804 | | Load 0x4,0x4
021e e808 | | Load 0x4,0x8
021f 0273 | s | Execute Discrete,Plus
0220 e80e | | Load 0x4,0xe
0221 0273 | s | Execute Discrete,Plus
0222 0248 | H | Execute Discrete,Check_In_Integer
0223 e7fe | | Load 0x3,-0x2
0224 01db | | Execute Vector,Length
0225 0272 | r | Execute Discrete,Minus
0226 e406 | | Load 0x2,0x6
0227 027d | } | Execute Discrete,Greater
0228 680b |h | Jump_Zero 0x234
0229 e406 | | Load 0x2,0x6
022a e808 | | Load 0x4,0x8
022b 0272 | r | Execute Discrete,Minus
022c 0248 | H | Execute Discrete,Check_In_Integer
022d e80e | | Load 0x4,0xe
022e 0272 | r | Execute Discrete,Minus
022f e7fe | | Load 0x3,-0x2
0230 01db | | Execute Vector,Length
0231 0273 | s | Execute Discrete,Plus
0232 0248 | H | Execute Discrete,Check_In_Integer
0233 a804 | | Store_Unchecked 0x4,0x4
0234 e7fd | | Load 0x3,-0x3
0235 0f01 | | Execute_Immediate Equal,0x1
0236 685a |hZ | Jump_Zero 0x291
0237 4801 |H | Short_Literal 0x1
0238 4804 |H | Short_Literal 0x4
0239 e80b | | Load 0x4,0xb
023a 01cf | | Execute Vector,Slice_Read
023b 0092 0468 | h| Action Push_String_Extended,0x468 ; "Sess"
023d 01df | | Execute Vector,Equal
023e 4801 |H | Short_Literal 0x1
023f 4804 |H | Short_Literal 0x4
0240 e80b | | Load 0x4,0xb
0241 01cf | | Execute Vector,Slice_Read
0242 0092 0469 | i| Action Push_String_Extended,0x469 ; "Libr"
0244 01df | | Execute Vector,Equal
0245 4801 |H | Short_Literal 0x1
0246 4804 |H | Short_Literal 0x4
0247 e80b | | Load 0x4,0xb
0248 01cf | | Execute Vector,Slice_Read
0249 0092 046a | j| Action Push_String_Extended,0x46a ; "Pipe"
024b 01df | | Execute Vector,Equal
024c 4801 |H | Short_Literal 0x1
024d 4804 |H | Short_Literal 0x4
024e e80b | | Load 0x4,0xb
024f 01cf | | Execute Vector,Slice_Read
0250 0092 046b | k| Action Push_String_Extended,0x46b ; "Term"
0252 01df | | Execute Vector,Equal
0253 4801 |H | Short_Literal 0x1
0254 4804 |H | Short_Literal 0x4
0255 e80b | | Load 0x4,0xb
0256 01cf | | Execute Vector,Slice_Read
0257 0092 046c | l| Action Push_String_Extended,0x46c ; "Tape"
0259 01df | | Execute Vector,Equal
025a 0278 | x | Execute Discrete,Or
025b 0278 | x | Execute Discrete,Or
025c 0278 | x | Execute Discrete,Or
025d 0278 | x | Execute Discrete,Or
025e 6807 |h | Jump_Zero 0x266
025f 0092 046d | m| Action Push_String_Extended,0x46d ; "Bypassing session, directory, pipe, term, or tape => "
0261 e802 | | Load 0x4,0x2
0262 01cc | | Execute Vector,Catenate
0263 e002 | | Load 0x0,0x2
0264 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0265 782b |x+ | Jump 0x291
0266 e007 | | Load 0x0,0x7
0267 180e | | Execute Package,Field_Execute,Field_Number 0xe
0268 e00c | | Load 0x0,0xc
0269 1818 | | Execute Package,Field_Execute,Field_Number 0x18
026a 4800 |H | Short_Literal 0x0
026b e00c | | Load 0x0,0xc
026c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
026d 4800 |H | Short_Literal 0x0
026e 4800 |H | Short_Literal 0x0
026f e00c | | Load 0x0,0xc
0270 180e | | Execute Package,Field_Execute,Field_Number 0xe
0271 00ea | | Load_Encached Null_String_Cache
0272 0092 045b | [| Action Push_String_Extended,0x45b ; "remote_access"
0274 0092 045b | [| Action Push_String_Extended,0x45b ; "remote_access"
0276 0092 045b | [| Action Push_String_Extended,0x45b ; "remote_access"
0278 0092 046e | n| Action Push_String_Extended,0x46e ; "csc_mv"
027a e803 | | Load 0x4,0x3
027b 01dd | | Execute Vector,First
027c e803 | | Load 0x4,0x3
027d 01dd | | Execute Vector,First
027e 0aff | | Execute_Immediate Plus,-0x1
027f e804 | | Load 0x4,0x4
0280 0273 | s | Execute Discrete,Plus
0281 0248 | H | Execute Discrete,Check_In_Integer
0282 e803 | | Load 0x4,0x3
0283 01cf | | Execute Vector,Slice_Read
0284 4801 |H | Short_Literal 0x1
0285 e808 | | Load 0x4,0x8
0286 e807 | | Load 0x4,0x7
0287 01cf | | Execute Vector,Slice_Read
0288 01cc | | Execute Vector,Catenate
0289 4801 |H | Short_Literal 0x1
028a e80e | | Load 0x4,0xe
028b e80d | | Load 0x4,0xd
028c 01cf | | Execute Vector,Slice_Read
028d 01cc | | Execute Vector,Catenate
028e e802 | | Load 0x4,0x2
028f e00d | | Load 0x0,0xd
0290 180e | | Execute Package,Field_Execute,Field_Number 0xe
0291 e7fc | | Load 0x3,-0x4
0292 0f01 | | Execute_Immediate Equal,0x1
0293 688f |h | Jump_Zero 0x323
0294 0092 046f | o| Action Push_String_Extended,0x46f ; "From => "
0296 e802 | | Load 0x4,0x2
0297 01cc | | Execute Vector,Catenate
0298 e002 | | Load 0x0,0x2
0299 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
029a 0092 0470 | p| Action Push_String_Extended,0x470 ; " To => "
029c e803 | | Load 0x4,0x3
029d 01dd | | Execute Vector,First
029e e803 | | Load 0x4,0x3
029f 01dd | | Execute Vector,First
02a0 0aff | | Execute_Immediate Plus,-0x1
02a1 e804 | | Load 0x4,0x4
02a2 0273 | s | Execute Discrete,Plus
02a3 0248 | H | Execute Discrete,Check_In_Integer
02a4 e803 | | Load 0x4,0x3
02a5 01cf | | Execute Vector,Slice_Read
02a6 01cc | | Execute Vector,Catenate
02a7 4801 |H | Short_Literal 0x1
02a8 e808 | | Load 0x4,0x8
02a9 e807 | | Load 0x4,0x7
02aa 01cf | | Execute Vector,Slice_Read
02ab 01cc | | Execute Vector,Catenate
02ac 4801 |H | Short_Literal 0x1
02ad e80e | | Load 0x4,0xe
02ae e80d | | Load 0x4,0xd
02af 01cf | | Execute Vector,Slice_Read
02b0 01cc | | Execute Vector,Catenate
02b1 e002 | | Load 0x0,0x2
02b2 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
02b3 0092 0471 | q| Action Push_String_Extended,0x471 ; " Naming.unique_full_name => "
02b5 e602 | | Load 0x3,0x2
02b6 e001 | | Load 0x0,0x1
02b7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02b8 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
02b9 e001 | | Load 0x0,0x1
02ba 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02bb 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
02bc 01cc | | Execute Vector,Catenate
02bd e002 | | Load 0x0,0x2
02be 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
02bf 0092 0472 | r| Action Push_String_Extended,0x472 ; " Naming.unique_simple_name => "
02c1 e602 | | Load 0x3,0x2
02c2 e001 | | Load 0x0,0x1
02c3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02c4 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
02c5 e001 | | Load 0x0,0x1
02c6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02c7 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
02c8 01cc | | Execute Vector,Catenate
02c9 e002 | | Load 0x0,0x2
02ca 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
02cb 0092 0473 | s| Action Push_String_Extended,0x473 ; " Naming.part_attribute => "
02cd e602 | | Load 0x3,0x2
02ce e001 | | Load 0x0,0x1
02cf 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02d0 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
02d1 e001 | | Load 0x0,0x1
02d2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02d3 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
02d4 e001 | | Load 0x0,0x1
02d5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02d6 181e | | Execute Package,Field_Execute,Field_Number 0x1e
02d7 01cc | | Execute Vector,Catenate
02d8 e002 | | Load 0x0,0x2
02d9 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
02da 0092 0474 | t| Action Push_String_Extended,0x474 ; " Naming.attributes => "
02dc e602 | | Load 0x3,0x2
02dd e001 | | Load 0x0,0x1
02de 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02df 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
02e0 e001 | | Load 0x0,0x1
02e1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02e2 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
02e3 e001 | | Load 0x0,0x1
02e4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02e5 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02e6 01cc | | Execute Vector,Catenate
02e7 e002 | | Load 0x0,0x2
02e8 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
02e9 0092 0475 | u| Action Push_String_Extended,0x475 ; " Object.Class image => "
02eb e602 | | Load 0x3,0x2
02ec e001 | | Load 0x0,0x1
02ed 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02ee 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
02ef e001 | | Load 0x0,0x1
02f0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02f1 1817 | | Execute Package,Field_Execute,Field_Number 0x17
02f2 e001 | | Load 0x0,0x1
02f3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02f4 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02f5 01cc | | Execute Vector,Catenate
02f6 e002 | | Load 0x0,0x2
02f7 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
02f8 e00b | | Load 0x0,0xb
02f9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02fa 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02fb e809 | | Load 0x4,0x9
02fc 0120 | | Execute Any,Is_Value
02fd 6803 |h | Jump_Zero 0x301
02fe e00b | | Load 0x0,0xb
02ff 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0300 7801 |x | Jump 0x302
0301 e809 | | Load 0x4,0x9
0302 6149 |aI | Indirect_Literal Discrete,0x44c,{0x00000000, 0x00004000}
0303 e00e | | Load 0x0,0xe
0304 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0305 e00f | | Load 0x0,0xf
0306 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0307 e00b | | Load 0x0,0xb
0308 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0309 1816 | | Execute Package,Field_Execute,Field_Number 0x16
030a e602 | | Load 0x3,0x2
030b e001 | | Load 0x0,0x1
030c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
030d 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
030e e001 | | Load 0x0,0x1
030f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0310 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0311 e00b | | Load 0x0,0xb
0312 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0313 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0314 c809 | | Store 0x4,0x9
0315 c80a | | Store 0x4,0xa
0316 0092 0476 | v| Action Push_String_Extended,0x476 ; " Directory_imp.get_class => "
0318 e809 | | Load 0x4,0x9
0319 e00b | | Load 0x0,0xb
031a 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
031b e00b | | Load 0x0,0xb
031c 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
031d 01cc | | Execute Vector,Catenate
031e e002 | | Load 0x0,0x2
031f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0320 4801 |H | Short_Literal 0x1
0321 e002 | | Load 0x0,0x2
0322 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0323 e602 | | Load 0x3,0x2
0324 e001 | | Load 0x0,0x1
0325 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0326 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0327 c602 | | Store 0x3,0x2
0328 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0329 0000 0000 | | .BLANK 0000[0x7]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0333 | 3 | .CONST 0x0333 ; Address of begin
0331 0004 | | .CONST 0x0004 ; Address of exception handler
0332 0001 | | .CONST 0x0001 ; Number of locals
0333 BODY_0330:
0333 INIT_0330:
0333 e9ff | | Load 0x4,-0x1
0334 681b |h | Jump_Zero 0x350
0335 e9fe | | Load 0x4,-0x2
0336 0092 0477 | w| Action Push_String_Extended,0x477 ; " filed with TRANSPORT_DEFS.STATUS_CODE = "
0338 01cc | | Execute Vector,Catenate
0339 e9ff | | Load 0x4,-0x1
033a e005 | | Load 0x0,0x5
033b 181a | | Execute Package,Field_Execute,Field_Number 0x1a
033c 01cc | | Execute Vector,Catenate
033d e010 | | Load 0x0,0x10
033e 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
033f e010 | | Load 0x0,0x10
0340 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
0341 e007 | | Load 0x0,0x7
0342 180e | | Execute Package,Field_Execute,Field_Number 0xe
0343 4807 |H | Short_Literal 0x7
0344 e9fe | | Load 0x4,-0x2
0345 0092 0477 | w| Action Push_String_Extended,0x477 ; " filed with TRANSPORT_DEFS.STATUS_CODE = "
0347 01cc | | Execute Vector,Catenate
0348 e9ff | | Load 0x4,-0x1
0349 e005 | | Load 0x0,0x5
034a 181a | | Execute Package,Field_Execute,Field_Number 0x1a
034b 01cc | | Execute Vector,Catenate
034c e008 | | Load 0x0,0x8
034d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
034e e009 | | Load 0x0,0x9
034f 0257 | W | Execute Discrete,Raise
0350 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0351 0000 0000 | | .BLANK 0000[0x7]
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 035d | ] | .CONST 0x035d ; Address of begin
0359 0004 | | .CONST 0x0004 ; Address of exception handler
035a 0002 | | .CONST 0x0002 ; Number of locals
035b INIT_0358:
035b e004 | | Load 0x0,0x4
035c 1b17 | | Execute Package,Field_Read,Field_Number 0x17
035d BODY_0358:
035d e004 | | Load 0x0,0x4
035e 1b17 | | Execute Package,Field_Read,Field_Number 0x17
035f e606 | | Load 0x3,0x6
0360 e003 | | Load 0x0,0x3
0361 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0362 c802 | | Store 0x4,0x2
0363 00d8 | | Load_Top At_Offset_0
0364 0e01 | | Execute_Immediate Not_Equal,0x1
0365 681f |h | Jump_Zero 0x385
0366 e9ff | | Load 0x4,-0x1
0367 0092 0478 | x| Action Push_String_Extended,0x478 ; " filed with FTP_DEFS.STATUS_CODE = "
0369 01cc | | Execute Vector,Catenate
036a e802 | | Load 0x4,0x2
036b e004 | | Load 0x0,0x4
036c 1b17 | | Execute Package,Field_Read,Field_Number 0x17
036d 025e | ^ | Execute Discrete,Convert
036e 1c01 | | Execute_Immediate Run_Utility,0x1
036f 01cc | | Execute Vector,Catenate
0370 e010 | | Load 0x0,0x10
0371 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0372 e010 | | Load 0x0,0x10
0373 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
0374 e007 | | Load 0x0,0x7
0375 180e | | Execute Package,Field_Execute,Field_Number 0xe
0376 4807 |H | Short_Literal 0x7
0377 e9ff | | Load 0x4,-0x1
0378 0092 0478 | x| Action Push_String_Extended,0x478 ; " filed with FTP_DEFS.STATUS_CODE = "
037a 01cc | | Execute Vector,Catenate
037b e802 | | Load 0x4,0x2
037c e004 | | Load 0x0,0x4
037d 1b17 | | Execute Package,Field_Read,Field_Number 0x17
037e 025e | ^ | Execute Discrete,Convert
037f 1c01 | | Execute_Immediate Run_Utility,0x1
0380 01cc | | Execute Vector,Catenate
0381 e008 | | Load 0x0,0x8
0382 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0383 e009 | | Load 0x0,0x9
0384 0257 | W | Execute Discrete,Raise
0385 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0386 0000 0000 | | .XXX[0x2]
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 039e | | .CONST 0x039e ; Address of begin
0389 03e2 | | .CONST 0x03e2 ; Address of exception handler
038a 0004 | | .CONST 0x0004 ; Number of locals
038b INIT_0388:
038b e603 | | Load 0x3,0x3
038c e001 | | Load 0x0,0x1
038d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
038e 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
038f e001 | | Load 0x0,0x1
0390 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0391 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0392 e00d | | Load 0x0,0xd
0393 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
0394 e7fe | | Load 0x3,-0x2
0395 e802 | | Load 0x4,0x2
0396 e001 | | Load 0x0,0x1
0397 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0398 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0399 e802 | | Load 0x4,0x2
039a e011 | | Load 0x0,0x11
039b 180e | | Execute Package,Field_Execute,Field_Number 0xe
039c 00e1 | | Load_Encached Boolean_Cache
039d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
039e BODY_0388:
039e 4800 |H | Short_Literal 0x0
039f e803 | | Load 0x4,0x3
03a0 e802 | | Load 0x4,0x2
03a1 e606 | | Load 0x3,0x6
03a2 e003 | | Load 0x0,0x3
03a3 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
03a4 e004 | | Load 0x0,0x4
03a5 1b17 | | Execute Package,Field_Read,Field_Number 0x17
03a6 e606 | | Load 0x3,0x6
03a7 e003 | | Load 0x0,0x3
03a8 1818 | | Execute Package,Field_Execute,Field_Number 0x18
03a9 c607 | | Store 0x3,0x7
03aa e607 | | Load 0x3,0x7
03ab 0e06 | | Execute_Immediate Not_Equal,0x6
03ac 681c |h | Jump_Zero 0x3c9
03ad e609 | | Load 0x3,0x9
03ae 0a01 | | Execute_Immediate Plus,0x1
03af 0248 | H | Execute Discrete,Check_In_Integer
03b0 a609 | | Store_Unchecked 0x3,0x9
03b1 e007 | | Load 0x0,0x7
03b2 180e | | Execute Package,Field_Execute,Field_Number 0xe
03b3 4807 |H | Short_Literal 0x7
03b4 0092 0479 | y| Action Push_String_Extended,0x479 ; "FTP_Tools.Transfer failed: "
03b6 e607 | | Load 0x3,0x7
03b7 e004 | | Load 0x0,0x4
03b8 1b17 | | Execute Package,Field_Read,Field_Number 0x17
03b9 025e | ^ | Execute Discrete,Convert
03ba 1c01 | | Execute_Immediate Run_Utility,0x1
03bb 01cc | | Execute Vector,Catenate
03bc 0092 047a | z| Action Push_String_Extended,0x47a ; " transfering "
03be 01cc | | Execute Vector,Catenate
03bf e802 | | Load 0x4,0x2
03c0 01cc | | Execute Vector,Catenate
03c1 0092 0461 | a| Action Push_String_Extended,0x461 ; " to "
03c3 01cc | | Execute Vector,Catenate
03c4 e803 | | Load 0x4,0x3
03c5 01cc | | Execute Vector,Catenate
03c6 e008 | | Load 0x0,0x8
03c7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03c8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03c9 e007 | | Load 0x0,0x7
03ca 180e | | Execute Package,Field_Execute,Field_Number 0xe
03cb 4803 |H | Short_Literal 0x3
03cc e802 | | Load 0x4,0x2
03cd 0092 047b | {| Action Push_String_Extended,0x47b ; " => "
03cf 01cc | | Execute Vector,Catenate
03d0 e803 | | Load 0x4,0x3
03d1 01cc | | Execute Vector,Catenate
03d2 e008 | | Load 0x0,0x8
03d3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03d4 00e1 | | Load_Encached Boolean_Cache
03d5 e001 | | Load 0x0,0x1
03d6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03d7 180e | | Execute Package,Field_Execute,Field_Number 0xe
03d8 e603 | | Load 0x3,0x3
03d9 e001 | | Load 0x0,0x1
03da 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03db 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
03dc e604 | | Load 0x3,0x4
03dd e001 | | Load 0x0,0x1
03de 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03df 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
03e0 c804 | | Store 0x4,0x4
03e1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03e2 TRAP_0388:
03e2 0007 | | Action Break_Optional
03e3 e007 | | Load 0x0,0x7
03e4 180e | | Execute Package,Field_Execute,Field_Number 0xe
03e5 4808 |H | Short_Literal 0x8
03e6 4800 |H | Short_Literal 0x0
03e7 4801 |H | Short_Literal 0x1
03e8 e00a | | Load 0x0,0xa
03e9 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03ea 0092 047c | || Action Push_String_Extended,0x47c ; " raised transferring "
03ec 01cc | | Execute Vector,Catenate
03ed e802 | | Load 0x4,0x2
03ee 01cc | | Execute Vector,Catenate
03ef 0092 0461 | a| Action Push_String_Extended,0x461 ; " to "
03f1 01cc | | Execute Vector,Catenate
03f2 e803 | | Load 0x4,0x3
03f3 01cc | | Execute Vector,Catenate
03f4 e008 | | Load 0x0,0x8
03f5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03f6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03f7 0000 | | .XXX[0x1]
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 0408 | | .CONST 0x0408 ; Address of begin
03f9 0439 | 9 | .CONST 0x0439 ; Address of exception handler
03fa 0003 | | .CONST 0x0003 ; Number of locals
03fb INIT_03f8:
03fb e001 | | Load 0x0,0x1
03fc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03fd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03fe 02c7 | | Declare_Variable Any
03ff e604 | | Load 0x3,0x4
0400 e001 | | Load 0x0,0x1
0401 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0402 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0403 c802 | | Store 0x4,0x2
0404 00d8 | | Load_Top At_Offset_0
0405 e001 | | Load 0x0,0x1
0406 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0407 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0408 BODY_03f8:
0408 e605 | | Load 0x3,0x5
0409 0120 | | Execute Any,Is_Value
040a 6804 |h | Jump_Zero 0x40f
040b e001 | | Load 0x0,0x1
040c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
040d 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
040e 7801 |x | Jump 0x410
040f e605 | | Load 0x3,0x5
0410 4800 |H | Short_Literal 0x0
0411 e802 | | Load 0x4,0x2
0412 e001 | | Load 0x0,0x1
0413 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0414 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0415 c605 | | Store 0x3,0x5
0416 e605 | | Load 0x3,0x5
0417 e001 | | Load 0x0,0x1
0418 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0419 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
041a 680f |h | Jump_Zero 0x42a
041b e007 | | Load 0x0,0x7
041c 180e | | Execute Package,Field_Execute,Field_Number 0xe
041d 4805 |H | Short_Literal 0x5
041e e605 | | Load 0x3,0x5
041f e001 | | Load 0x0,0x1
0420 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0421 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0422 0092 047d | }| Action Push_String_Extended,0x47d ; ". Deleting "
0424 01cc | | Execute Vector,Catenate
0425 e803 | | Load 0x4,0x3
0426 01cc | | Execute Vector,Catenate
0427 e008 | | Load 0x0,0x8
0428 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0429 7809 |x | Jump 0x433
042a e007 | | Load 0x0,0x7
042b 180e | | Execute Package,Field_Execute,Field_Number 0xe
042c 4803 |H | Short_Literal 0x3
042d 0092 047e | ~| Action Push_String_Extended,0x47e ; "Deleted: "
042f e803 | | Load 0x4,0x3
0430 01cc | | Execute Vector,Catenate
0431 e008 | | Load 0x0,0x8
0432 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0433 e604 | | Load 0x3,0x4
0434 e001 | | Load 0x0,0x1
0435 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0436 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0437 c604 | | Store 0x3,0x4
0438 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0439 TRAP_03f8:
0439 0007 | | Action Break_Optional
043a e007 | | Load 0x0,0x7
043b 180e | | Execute Package,Field_Execute,Field_Number 0xe
043c 4808 |H | Short_Literal 0x8
043d 4800 |H | Short_Literal 0x0
043e 4801 |H | Short_Literal 0x1
043f e00a | | Load 0x0,0xa
0440 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0441 0092 047f | | Action Push_String_Extended,0x47f ; " raised deleting "
0443 01cc | | Execute Vector,Catenate
0444 e803 | | Load 0x4,0x3
0445 01cc | | Execute Vector,Catenate
0446 e008 | | Load 0x0,0x8
0447 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0448 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0449 0000 0000 | | .XXX[0x3]
044b 0000 | |
044c 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0450 ; --------------------------------------------------------------------------------------
0450 ; STRING TABLE
0450 ; --------------------------------------------------------------------------------------
0450 0062 | b | .STRTAB 0x0062->0x0481 ; "rev1_0_1"
0451 0068 | h | .STRTAB 0x0068->0x0485 ; "!tools.support_tools.sims."
0452 0080 | | .STRTAB 0x0080->0x0492 ; ".units."
0453 0085 | | .STRTAB 0x0085->0x0495 ; "database."
0454 008c | | .STRTAB 0x008c->0x049a ; ":net:curly_joe:udd:csc:sims_r1000:sims_r1000_backup:"
0455 00be | | .STRTAB 0x00be->0x04b4 ; "@"
0456 00bd | | .STRTAB 0x00bd->0x04b4 ; "server.sims_backup@"
0457 00ce | | .STRTAB 0x00ce->0x04be ; "!users.sjf.sims.sims_doc?"
0458 00e5 | | .STRTAB 0x00e5->0x04ca ; " Done with send process."
0459 00fb | | .STRTAB 0x00fb->0x04d6 ; "File_Transfer.Open"
045a 010b | | .STRTAB 0x010b->0x04df ; "ratnet_mv"
045b 0112 | | .STRTAB 0x0112->0x04e4 ; "remote_access"
045c 011d | | .STRTAB 0x011d->0x04ea ; "File_Transfer.Send_Password"
045d 0136 | 6 | .STRTAB 0x0136->0x04f8 ; "Failures occurred transfering files."
045e 0158 | X | .STRTAB 0x0158->0x050a ; "Files => "
045f 015f | _ | .STRTAB 0x015f->0x050e ; ", To_Directory => "
0460 016f | o | .STRTAB 0x016f->0x0517 ; " raised transfering "
0461 0181 | | .STRTAB 0x0181->0x0521 ; " to "
0462 0183 | | .STRTAB 0x0183->0x0523 ; "'body"
0463 0186 | | .STRTAB 0x0186->0x0526 ; "'BODY"
0464 0189 | | .STRTAB 0x0189->0x0528 ; "_b"
0465 0189 | | .STRTAB 0x0189->0x0529 ; "Ada"
0466 018a | | .STRTAB 0x018a->0x052b ; ".ada"
0467 018c | | .STRTAB 0x018c->0x052d ; ".txt"
0468 018e | | .STRTAB 0x018e->0x052f ; "Sess"
0469 0190 | | .STRTAB 0x0190->0x0531 ; "Libr"
046a 0192 | | .STRTAB 0x0192->0x0533 ; "Pipe"
046b 0194 | | .STRTAB 0x0194->0x0535 ; "Term"
046c 0196 | | .STRTAB 0x0196->0x0537 ; "Tape"
046d 0198 | | .STRTAB 0x0198->0x0539 ; "Bypassing session, directory, pipe, term, or tape => "
046e 01cc | | .STRTAB 0x01cc->0x0554 ; "csc_mv"
046f 01d0 | | .STRTAB 0x01d0->0x0557 ; "From => "
0470 01d6 | | .STRTAB 0x01d6->0x055b ; " To => "
0471 01dc | | .STRTAB 0x01dc->0x055f ; " Naming.unique_full_name => "
0472 01f9 | | .STRTAB 0x01f9->0x056e ; " Naming.unique_simple_name => "
0473 0216 | | .STRTAB 0x0216->0x057e ; " Naming.part_attribute => "
0474 0233 | 3 | .STRTAB 0x0233->0x058d ; " Naming.attributes => "
0475 0250 | P | .STRTAB 0x0250->0x059d ; " Object.Class image => "
0476 026d | m | .STRTAB 0x026d->0x05ac ; " Directory_imp.get_class => "
0477 028a | | .STRTAB 0x028a->0x05bc ; " filed with TRANSPORT_DEFS.STATUS_CODE = "
0478 02b1 | | .STRTAB 0x02b1->0x05d0 ; " filed with FTP_DEFS.STATUS_CODE = "
0479 02d2 | | .STRTAB 0x02d2->0x05e2 ; "FTP_Tools.Transfer failed: "
047a 02eb | | .STRTAB 0x02eb->0x05ef ; " transfering "
047b 02f6 | | .STRTAB 0x02f6->0x05f6 ; " => "
047c 02f8 | | .STRTAB 0x02f8->0x05f8 ; " raised transferring "
047d 030b | | .STRTAB 0x030b->0x0602 ; ". Deleting "
047e 0314 | | .STRTAB 0x0314->0x0608 ; "Deleted: "
047f 031b | | .STRTAB 0x031b->0x060c ; " raised deleting "
0480 032a | * | .STREND 0x032a->0x0615
0481 7265 7631 |rev1| .STRTAB_STRINGS
0615 0000 0000 | | .XXX[0x3]
0617 0000 | |
0618 ; --------------------------------------------------------------------------------------
0618 ; Debug Table
0618 ; --------------------------------------------------------------------------------------
0618 0004 0000 | | .DEBUG4 0x0004,0x0000,0x1212,0x0000,0x0001,0x0000
061e 0000 0000 | | .XXX[0x7]
0620 0200 0000 | |
0622 0000 b597 | |
0624 4200 |B |
0625 0000 0000 | | .BLANK 0000[0x9]
062e 1200 0000 | | .XXX[0x7]
0630 0000 41e2 | A |
0632 0400 015e | ^|
0634 9e00 | |
0635 0000 0000 | | .BLANK 0000[0x4]
0639 20f1 0200 | | .XXX[0x8]
063b 00af 4f00 | O |
063d 0000 0000 | |
063f 5ac1 a700 |Z |
0641 0000 0000 | | .BLANK 0000[0x4]
0645 d980 | | .XXX[0x1]
0646 0000 0000 | | .BLANK 0000[0xd]
0653 02d5 ff10 | | .XXX[0x6]
0655 02d6 2b68 | +h|
0657 0d98 0010 | |
0659 0000 0000 | | .BLANK 0000[0xc]
0665 002d 6224 | -b$| .XXX[0x8]
0667 802d 6348 | -cH|
0669 8080 0290 | |
066b 0200 2000 | |
066d 0000 0000 | | .BLANK 0000[0xa]
0677 0002 d62b | +| .XXX[0x8]
0679 6802 d63d |h =|
067b a808 0029 | )|
067d 0020 0100 | |
067f 0000 0000 | | .BLANK 0000[0xb]
068a 2d63 4880 |-cH | .XXX[0xd]
068c 2d64 6c80 |-dl |
068e 8004 2c02 | , |
0690 4810 0000 |H |
0692 0400 0000 | |
0694 01e8 0920 | |
0696 4d40 |M@ |
0697 0000 0000 | | .BLANK 0000[0x5]
069c 02d6 3da8 | = | .XXX[0xd]
069e 02d6 4fe8 | O |
06a0 0800 42c0 | B |
06a2 2481 0000 |$ |
06a4 0040 0000 | @ |
06a6 001e 8092 | |
06a8 0434 | 4 |
06a9 0000 0000 | | .BLANK 0000[0x5]
06ae 002d 646c | -dl| .XXX[0x9]
06b0 802d 7c85 | -| |
06b2 8000 0000 | |
06b4 002d 60d3 | -` |
06b6 8000 | |
06b7 0000 0000 | | .BLANK 0000[0x5]
06bc 002d 60d3 | -` | .XXX[0x7]
06be 8000 0000 | |
06c0 002d 60d3 | -` |
06c2 8000 | |
06c3 0000 0000 | | .BLANK 0000[0x5]
06c8 002d 697e | -i~| .XXX[0xb]
06ca a416 0001 | |
06cc 4c80 c000 |L |
06ce 0005 8000 | |
06d0 0000 0000 | |
06d2 0001 | |
06d3 0000 0000 | | .BLANK 0000[0xe]
06e1 005a cf56 | Z V| .XXX[0x7]
06e3 4000 0000 |@ |
06e5 0000 0000 | |
06e7 2000 | |
06e8 0000 0000 | | .BLANK 0000[0x7]
06ef 7e00 |~ | .XXX[0x1]
06f0 0000 0000 | | .BLANK 0000[0x7]
06f7 0001 6b3f | k?| .XXX[0x3]
06f9 5800 |X |
06fa 0000 0000 | | .BLANK 0000[0x6]
0700 0b5a 0b60 | Z `| .XXX[0x10]
0702 0000 0000 | |
0704 0000 0008 | |
0706 0000 0090 | |
0708 0000 1980 | |
070a 0000 0020 | |
070c 0000 0000 | |
070e 0b5a 8ea0 | Z |
0710 0000 0000 | | .BLANK 0000[0x9]
0719 0120 0000 | | .XXX[0x2b]
071b 1980 1035 | 5|
071d 2000 0019 | |
071f ed40 0b5d | @ ]|
0721 20e0 0b5b | [|
0723 2940 081a |)@ |
0725 9000 000c | |
0727 f6a0 0000 | |
0729 0000 05ad | |
072b 05b0 05af | |
072d 00c0 05ae | |
072f 3840 0000 |8@ |
0731 0008 0000 | |
0733 00ba 1a92 | |
0735 2a0a a22a |* *|
0737 22fa 327a |" 2z|
0739 92fa 8292 | |
073b 7a3a 920a |z: |
073d 6afa 92aa |j |
073f 7000 0000 |p |
0741 0002 d682 | |
0743 d800 | |
0744 0000 0000 | | .BLANK 0000[0x5]
0749 0002 d682 | | .XXX[0x7]
074b d800 0000 | |
074d 0002 d6c1 | |
074f 5000 |P |
0750 0000 0000 | | .BLANK 0000[0x5]
0755 0002 d7bf | | .XXX[0xc]
0757 d9e9 6000 | ` |
0759 0000 0400 | |
075b 0000 5800 | X |
075d 0000 0000 | |
075f 0000 1000 | |
0761 0000 0000 | | .BLANK 0000[0xf]
0770 0400 | | .XXX[0x1]
0771 0000 0000 | | .BLANK 0000[0xb]
077c 07e0 | | .XXX[0x1]
077d 0000 0000 | | .BLANK 0000[0x5]
0782 0010 0000 | | .XXX[0xb]
0784 0120 0000 | |
0786 3340 0000 |3@ |
0788 0040 0000 | @ |
078a 0000 16b6 | |
078c b300 | |
078d 0000 0000 | | .BLANK 0000[0x9]
0796 0240 0000 | @ | .XXX[0x13]
0798 3340 2b07 |3@+ |
079a 4000 0035 |@ 5|
079c bdc0 0000 | |
079e 0000 16b8 | |
07a0 b0e0 1583 | |
07a2 a000 001a | |
07a4 dee0 0000 | |
07a6 0000 0b5b | [|
07a8 0540 | @ |
07a9 0000 0000 | | .BLANK 0000[0x6]
07af 05ad 05b0 | | .XXX[0x6]
07b1 0000 0000 | |
07b3 05ad 82a0 | |
07b5 0000 0000 | | .BLANK 0000[0x6]
07bb 05af 76b4 | v | .XXX[0xb]
07bd 82c0 0010 | |
07bf d008 0000 | |
07c1 00b0 0000 | |
07c3 0a00 0000 | |
07c5 0020 | |
07c6 0000 0000 | | .BLANK 0000[0x6]
07cc 0b5e 19a0 | ^ | .XXX[0x2]
07ce 0000 0000 | | .BLANK 0000[0x6]
07d4 0b5e 29a8 | ^) | .XXX[0x2]
07d6 0000 0000 | | .BLANK 0000[0xb]
07e1 000f c000 | | .XXX[0x2]
07e3 0000 0000 | | .BLANK 0000[0x5]
07e8 2000 0002 | | .XXX[0xb]
07ea 4000 0029 |@ )|
07ec 8000 0000 | |
07ee 8000 0000 | |
07f0 002d 8470 | - p|
07f2 8000 | |
07f3 0000 0000 | | .BLANK 0000[0x8]
07fb 0004 8000 | | .XXX[0x5]
07fd 0029 8037 | ) 7|
07ff f880 | |