|
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: 2048 (0x800) 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 02b8 | | .CONST 0x02b8 ; 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 8001 | | .CONST 0x8001 ; 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 004b | K | .CONST 0x004b ; Address of begin 0019 00bc | | .CONST 0x00bc ; Address of exception handler 001a 000c | | .CONST 0x000c ; Number of locals 001b INIT_0018: 001b 0007 | | Action Break_Optional 001c 0007 | | Action Break_Optional 001d e001 | | Load 0x0,0x1 001e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 001f 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0020 02c7 | | Declare_Variable Any 0021 00d8 | | Load_Top At_Offset_0 0022 1c00 | | Execute_Immediate Run_Utility,0x0 0023 e001 | | Load 0x0,0x1 0024 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0025 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0026 02c7 | | Declare_Variable Any 0027 00d8 | | Load_Top At_Offset_0 0028 1c00 | | Execute_Immediate Run_Utility,0x0 0029 e001 | | Load 0x0,0x1 002a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 002b 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 002c 02c7 | | Declare_Variable Any 002d 00d8 | | Load_Top At_Offset_0 002e 1c00 | | Execute_Immediate Run_Utility,0x0 002f e002 | | Load 0x0,0x2 0030 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0031 02c7 | | Declare_Variable Any 0032 00d8 | | Load_Top At_Offset_0 0033 1c00 | | Execute_Immediate Run_Utility,0x0 0034 e003 | | Load 0x0,0x3 0035 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0036 e004 | | Load 0x0,0x4 0037 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0038 0007 | | Action Break_Optional 0039 00e2 | | Load_Encached Integer_Cache 003a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 003b 029e 00e3 | | Declare_Subprogram INIT_00e0,For_Call,Unelaborated 003d 4809 |H | Short_Literal 0x9 003e 4802 |H | Short_Literal 0x2 003f 0099 | | Action Reference_Dynamic 0040 00c7 | | Action Elaborate_Subprogram 0041 029e 010b | | Declare_Subprogram INIT_0108,For_Call,Unelaborated 0043 480a |H | Short_Literal 0xa 0044 4802 |H | Short_Literal 0x2 0045 0099 | | Action Reference_Dynamic 0046 00c7 | | Action Elaborate_Subprogram 0047 029f 013b | ;| Declare_Subprogram INIT_0138,For_Call 0049 029f 01ab | | Declare_Subprogram INIT_01a8,For_Call 004b BODY_0018: 004b e001 | | Load 0x0,0x1 004c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 004d 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 004e c403 | | Store 0x2,0x3 004f 4801 |H | Short_Literal 0x1 0050 e001 | | Load 0x0,0x1 0051 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0052 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0053 e5ff | | Load 0x2,-0x1 0054 e001 | | Load 0x0,0x1 0055 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0056 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0057 c402 | | Store 0x2,0x2 0058 e402 | | Load 0x2,0x2 0059 e001 | | Load 0x0,0x1 005a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 005b 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 005c 6801 |h | Jump_Zero 0x5e 005d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 005e e004 | | Load 0x0,0x4 005f 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0060 e405 | | Load 0x2,0x5 0061 0120 | | Execute Any,Is_Value 0062 6803 |h | Jump_Zero 0x66 0063 e002 | | Load 0x0,0x2 0064 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0065 7801 |x | Jump 0x67 0066 e405 | | Load 0x2,0x5 0067 e002 | | Load 0x0,0x2 0068 180f | | Execute Package,Field_Execute,Field_Number 0xf 0069 c405 | | Store 0x2,0x5 006a c407 | | Store 0x2,0x7 006b 0092 01f9 | | Action Push_String_Extended,0x1f9 ; "File_Transfer.Open" 006d e407 | | Load 0x2,0x7 006e 8409 | | Call 0x2,0x9 006f e002 | | Load 0x0,0x2 0070 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0071 0092 01fa | | Action Push_String_Extended,0x1fa ; "ratnet_mv" 0073 e005 | | Load 0x0,0x5 0074 180e | | Execute Package,Field_Execute,Field_Number 0xe 0075 e405 | | Load 0x2,0x5 0076 e002 | | Load 0x0,0x2 0077 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0078 0092 01fb | | Action Push_String_Extended,0x1fb ; "remote_access" 007a e405 | | Load 0x2,0x5 007b e002 | | Load 0x0,0x2 007c 181a | | Execute Package,Field_Execute,Field_Number 0x1a 007d 0092 01fb | | Action Push_String_Extended,0x1fb ; "remote_access" 007f e405 | | Load 0x2,0x5 0080 e002 | | Load 0x0,0x2 0081 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0082 0092 01fc | | Action Push_String_Extended,0x1fc ; "File_Transfer.Send_Password" 0084 840a | | Call 0x2,0xa 0085 00cf | | Action Mark_Auxiliary 0086 7807 |x | Jump 0x8e 0087 840b | | Call 0x2,0xb 0088 e402 | | Load 0x2,0x2 0089 e001 | | Load 0x0,0x1 008a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 008b 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 008c c402 | | Store 0x2,0x2 008d 00c9 | | Action Pop_Auxiliary_Loop 008e e402 | | Load 0x2,0x2 008f e001 | | Load 0x0,0x1 0090 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0091 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0092 6ff4 |o | Jump_Zero 0x87 0093 00ce | | Action Pop_Auxiliary 0094 e405 | | Load 0x2,0x5 0095 e002 | | Load 0x0,0x2 0096 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0097 e408 | | Load 0x2,0x8 0098 0c01 | | Execute_Immediate Greater_Equal,0x1 0099 6815 |h | Jump_Zero 0xaf 009a e006 | | Load 0x0,0x6 009b 180e | | Execute Package,Field_Execute,Field_Number 0xe 009c 4807 |H | Short_Literal 0x7 009d 0092 01fd | | Action Push_String_Extended,0x1fd ; "Failures occurred transfering files." 009f e007 | | Load 0x0,0x7 00a0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00a1 e006 | | Load 0x0,0x6 00a2 180e | | Execute Package,Field_Execute,Field_Number 0xe 00a3 4805 |H | Short_Literal 0x5 00a4 0092 01fe | | Action Push_String_Extended,0x1fe ; "Files => " 00a6 e5ff | | Load 0x2,-0x1 00a7 01cc | | Execute Vector,Catenate 00a8 0092 01ff | | Action Push_String_Extended,0x1ff ; ", To_Directory => " 00aa 01cc | | Execute Vector,Catenate 00ab e5fe | | Load 0x2,-0x2 00ac 01cc | | Execute Vector,Catenate 00ad e007 | | Load 0x0,0x7 00ae 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00af e5fd | | Load 0x2,-0x3 00b0 680a |h | Jump_Zero 0xbb 00b1 00cf | | Action Mark_Auxiliary 00b2 7802 |x | Jump 0xb5 00b3 840c | | Call 0x2,0xc 00b4 00c9 | | Action Pop_Auxiliary_Loop 00b5 e403 | | Load 0x2,0x3 00b6 e001 | | Load 0x0,0x1 00b7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00b8 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 00b9 6ff9 |o | Jump_Zero 0xb3 00ba 00ce | | Action Pop_Auxiliary 00bb 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00bc TRAP_0018: 00bc e008 | | Load 0x0,0x8 00bd 010f | | Execute Exception,Equal 00be 6804 |h | Jump_Zero 0xc3 00bf e405 | | Load 0x2,0x5 00c0 e002 | | Load 0x0,0x2 00c1 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00c2 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00c3 e006 | | Load 0x0,0x6 00c4 180e | | Execute Package,Field_Execute,Field_Number 0xe 00c5 4808 |H | Short_Literal 0x8 00c6 4801 |H | Short_Literal 0x1 00c7 4801 |H | Short_Literal 0x1 00c8 e009 | | Load 0x0,0x9 00c9 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00ca 0092 0200 | | Action Push_String_Extended,0x200 ; " raised transfering " 00cc 01cc | | Execute Vector,Catenate 00cd e5ff | | Load 0x2,-0x1 00ce 01cc | | Execute Vector,Catenate 00cf 0092 0201 | | Action Push_String_Extended,0x201 ; " to " 00d1 01cc | | Execute Vector,Catenate 00d2 e5fe | | Load 0x2,-0x2 00d3 01cc | | Execute Vector,Catenate 00d4 e007 | | Load 0x0,0x7 00d5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00d6 e405 | | Load 0x2,0x5 00d7 e002 | | Load 0x0,0x2 00d8 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00d9 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00da 0000 0000 | | .BLANK 0000[0x6] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e3 | | .CONST 0x00e3 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0001 | | .CONST 0x0001 ; Number of locals 00e3 BODY_00e0: 00e3 INIT_00e0: 00e3 e7ff | | Load 0x3,-0x1 00e4 681b |h | Jump_Zero 0x100 00e5 e7fe | | Load 0x3,-0x2 00e6 0092 0202 | | Action Push_String_Extended,0x202 ; " filed with TRANSPORT_DEFS.STATUS_CODE = " 00e8 01cc | | Execute Vector,Catenate 00e9 e7ff | | Load 0x3,-0x1 00ea e004 | | Load 0x0,0x4 00eb 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00ec 01cc | | Execute Vector,Catenate 00ed e00a | | Load 0x0,0xa 00ee 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 00ef e00a | | Load 0x0,0xa 00f0 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 00f1 e006 | | Load 0x0,0x6 00f2 180e | | Execute Package,Field_Execute,Field_Number 0xe 00f3 4807 |H | Short_Literal 0x7 00f4 e7fe | | Load 0x3,-0x2 00f5 0092 0202 | | Action Push_String_Extended,0x202 ; " filed with TRANSPORT_DEFS.STATUS_CODE = " 00f7 01cc | | Execute Vector,Catenate 00f8 e7ff | | Load 0x3,-0x1 00f9 e004 | | Load 0x0,0x4 00fa 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00fb 01cc | | Execute Vector,Catenate 00fc e007 | | Load 0x0,0x7 00fd 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00fe e008 | | Load 0x0,0x8 00ff 0257 | W | Execute Discrete,Raise 0100 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0101 0000 0000 | | .BLANK 0000[0x7] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 010d | | .CONST 0x010d ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0002 | | .CONST 0x0002 ; Number of locals 010b INIT_0108: 010b e003 | | Load 0x0,0x3 010c 1b17 | | Execute Package,Field_Read,Field_Number 0x17 010d BODY_0108: 010d e003 | | Load 0x0,0x3 010e 1b17 | | Execute Package,Field_Read,Field_Number 0x17 010f e405 | | Load 0x2,0x5 0110 e002 | | Load 0x0,0x2 0111 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0112 c602 | | Store 0x3,0x2 0113 00d8 | | Load_Top At_Offset_0 0114 0e01 | | Execute_Immediate Not_Equal,0x1 0115 681f |h | Jump_Zero 0x135 0116 e7ff | | Load 0x3,-0x1 0117 0092 0203 | | Action Push_String_Extended,0x203 ; " filed with FTP_DEFS.STATUS_CODE = " 0119 01cc | | Execute Vector,Catenate 011a e602 | | Load 0x3,0x2 011b e003 | | Load 0x0,0x3 011c 1b17 | | Execute Package,Field_Read,Field_Number 0x17 011d 025e | ^ | Execute Discrete,Convert 011e 1c01 | | Execute_Immediate Run_Utility,0x1 011f 01cc | | Execute Vector,Catenate 0120 e00a | | Load 0x0,0xa 0121 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0122 e00a | | Load 0x0,0xa 0123 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0124 e006 | | Load 0x0,0x6 0125 180e | | Execute Package,Field_Execute,Field_Number 0xe 0126 4807 |H | Short_Literal 0x7 0127 e7ff | | Load 0x3,-0x1 0128 0092 0203 | | Action Push_String_Extended,0x203 ; " filed with FTP_DEFS.STATUS_CODE = " 012a 01cc | | Execute Vector,Catenate 012b e602 | | Load 0x3,0x2 012c e003 | | Load 0x0,0x3 012d 1b17 | | Execute Package,Field_Read,Field_Number 0x17 012e 025e | ^ | Execute Discrete,Convert 012f 1c01 | | Execute_Immediate Run_Utility,0x1 0130 01cc | | Execute Vector,Catenate 0131 e007 | | Load 0x0,0x7 0132 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0133 e008 | | Load 0x0,0x8 0134 0257 | W | Execute Discrete,Raise 0135 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0136 0000 0000 | | .XXX[0x2] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 014e | N | .CONST 0x014e ; Address of begin 0139 0192 | | .CONST 0x0192 ; Address of exception handler 013a 0004 | | .CONST 0x0004 ; Number of locals 013b INIT_0138: 013b e402 | | Load 0x2,0x2 013c e001 | | Load 0x0,0x1 013d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 013e 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 013f e001 | | Load 0x0,0x1 0140 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0141 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0142 e00b | | Load 0x0,0xb 0143 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32 0144 e5fe | | Load 0x2,-0x2 0145 e602 | | Load 0x3,0x2 0146 e001 | | Load 0x0,0x1 0147 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0148 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0149 e602 | | Load 0x3,0x2 014a e00c | | Load 0x0,0xc 014b 180e | | Execute Package,Field_Execute,Field_Number 0xe 014c 00e1 | | Load_Encached Boolean_Cache 014d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 014e BODY_0138: 014e 4800 |H | Short_Literal 0x0 014f e603 | | Load 0x3,0x3 0150 e602 | | Load 0x3,0x2 0151 e405 | | Load 0x2,0x5 0152 e002 | | Load 0x0,0x2 0153 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0154 e003 | | Load 0x0,0x3 0155 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0156 e405 | | Load 0x2,0x5 0157 e002 | | Load 0x0,0x2 0158 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0159 c406 | | Store 0x2,0x6 015a e406 | | Load 0x2,0x6 015b 0e06 | | Execute_Immediate Not_Equal,0x6 015c 681c |h | Jump_Zero 0x179 015d e408 | | Load 0x2,0x8 015e 0a01 | | Execute_Immediate Plus,0x1 015f 0248 | H | Execute Discrete,Check_In_Integer 0160 a408 | | Store_Unchecked 0x2,0x8 0161 e006 | | Load 0x0,0x6 0162 180e | | Execute Package,Field_Execute,Field_Number 0xe 0163 4807 |H | Short_Literal 0x7 0164 0092 0204 | | Action Push_String_Extended,0x204 ; "FTP_Tools.Transfer failed: " 0166 e406 | | Load 0x2,0x6 0167 e003 | | Load 0x0,0x3 0168 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0169 025e | ^ | Execute Discrete,Convert 016a 1c01 | | Execute_Immediate Run_Utility,0x1 016b 01cc | | Execute Vector,Catenate 016c 0092 0205 | | Action Push_String_Extended,0x205 ; " transfering " 016e 01cc | | Execute Vector,Catenate 016f e602 | | Load 0x3,0x2 0170 01cc | | Execute Vector,Catenate 0171 0092 0201 | | Action Push_String_Extended,0x201 ; " to " 0173 01cc | | Execute Vector,Catenate 0174 e603 | | Load 0x3,0x3 0175 01cc | | Execute Vector,Catenate 0176 e007 | | Load 0x0,0x7 0177 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0178 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0179 e006 | | Load 0x0,0x6 017a 180e | | Execute Package,Field_Execute,Field_Number 0xe 017b 4803 |H | Short_Literal 0x3 017c e602 | | Load 0x3,0x2 017d 0092 0206 | | Action Push_String_Extended,0x206 ; " => " 017f 01cc | | Execute Vector,Catenate 0180 e603 | | Load 0x3,0x3 0181 01cc | | Execute Vector,Catenate 0182 e007 | | Load 0x0,0x7 0183 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0184 00e1 | | Load_Encached Boolean_Cache 0185 e001 | | Load 0x0,0x1 0186 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0187 180e | | Execute Package,Field_Execute,Field_Number 0xe 0188 e402 | | Load 0x2,0x2 0189 e001 | | Load 0x0,0x1 018a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 018b 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 018c e403 | | Load 0x2,0x3 018d e001 | | Load 0x0,0x1 018e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 018f 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0190 c604 | | Store 0x3,0x4 0191 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0192 TRAP_0138: 0192 0007 | | Action Break_Optional 0193 e006 | | Load 0x0,0x6 0194 180e | | Execute Package,Field_Execute,Field_Number 0xe 0195 4808 |H | Short_Literal 0x8 0196 4800 |H | Short_Literal 0x0 0197 4801 |H | Short_Literal 0x1 0198 e009 | | Load 0x0,0x9 0199 1815 | | Execute Package,Field_Execute,Field_Number 0x15 019a 0092 0207 | | Action Push_String_Extended,0x207 ; " raised transferring " 019c 01cc | | Execute Vector,Catenate 019d e602 | | Load 0x3,0x2 019e 01cc | | Execute Vector,Catenate 019f 0092 0201 | | Action Push_String_Extended,0x201 ; " to " 01a1 01cc | | Execute Vector,Catenate 01a2 e603 | | Load 0x3,0x3 01a3 01cc | | Execute Vector,Catenate 01a4 e007 | | Load 0x0,0x7 01a5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01a6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01a7 0000 | | .XXX[0x1] 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01b8 | | .CONST 0x01b8 ; Address of begin 01a9 01e9 | | .CONST 0x01e9 ; Address of exception handler 01aa 0003 | | .CONST 0x0003 ; Number of locals 01ab INIT_01a8: 01ab e001 | | Load 0x0,0x1 01ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01ad 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01ae 02c7 | | Declare_Variable Any 01af e403 | | Load 0x2,0x3 01b0 e001 | | Load 0x0,0x1 01b1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01b2 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 01b3 c602 | | Store 0x3,0x2 01b4 00d8 | | Load_Top At_Offset_0 01b5 e001 | | Load 0x0,0x1 01b6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01b7 1820 | | Execute Package,Field_Execute,Field_Number 0x20 01b8 BODY_01a8: 01b8 e404 | | Load 0x2,0x4 01b9 0120 | | Execute Any,Is_Value 01ba 6804 |h | Jump_Zero 0x1bf 01bb e001 | | Load 0x0,0x1 01bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01bd 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 01be 7801 |x | Jump 0x1c0 01bf e404 | | Load 0x2,0x4 01c0 4800 |H | Short_Literal 0x0 01c1 e602 | | Load 0x3,0x2 01c2 e001 | | Load 0x0,0x1 01c3 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01c4 181f | | Execute Package,Field_Execute,Field_Number 0x1f 01c5 c404 | | Store 0x2,0x4 01c6 e404 | | Load 0x2,0x4 01c7 e001 | | Load 0x0,0x1 01c8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01c9 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 01ca 680f |h | Jump_Zero 0x1da 01cb e006 | | Load 0x0,0x6 01cc 180e | | Execute Package,Field_Execute,Field_Number 0xe 01cd 4805 |H | Short_Literal 0x5 01ce e404 | | Load 0x2,0x4 01cf e001 | | Load 0x0,0x1 01d0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01d1 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 01d2 0092 0208 | | Action Push_String_Extended,0x208 ; ". Deleting " 01d4 01cc | | Execute Vector,Catenate 01d5 e603 | | Load 0x3,0x3 01d6 01cc | | Execute Vector,Catenate 01d7 e007 | | Load 0x0,0x7 01d8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01d9 7809 |x | Jump 0x1e3 01da e006 | | Load 0x0,0x6 01db 180e | | Execute Package,Field_Execute,Field_Number 0xe 01dc 4803 |H | Short_Literal 0x3 01dd 0092 0209 | | Action Push_String_Extended,0x209 ; "Deleted: " 01df e603 | | Load 0x3,0x3 01e0 01cc | | Execute Vector,Catenate 01e1 e007 | | Load 0x0,0x7 01e2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01e3 e403 | | Load 0x2,0x3 01e4 e001 | | Load 0x0,0x1 01e5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01e6 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 01e7 c403 | | Store 0x2,0x3 01e8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01e9 TRAP_01a8: 01e9 0007 | | Action Break_Optional 01ea e006 | | Load 0x0,0x6 01eb 180e | | Execute Package,Field_Execute,Field_Number 0xe 01ec 4808 |H | Short_Literal 0x8 01ed 4800 |H | Short_Literal 0x0 01ee 4801 |H | Short_Literal 0x1 01ef e009 | | Load 0x0,0x9 01f0 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01f1 0092 020a | | Action Push_String_Extended,0x20a ; " raised deleting " 01f3 01cc | | Execute Vector,Catenate 01f4 e603 | | Load 0x3,0x3 01f5 01cc | | Execute Vector,Catenate 01f6 e007 | | Load 0x0,0x7 01f7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01f8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01f9 ; -------------------------------------------------------------------------------------- 01f9 ; STRING TABLE 01f9 ; -------------------------------------------------------------------------------------- 01f9 0026 | & | .STRTAB 0x0026->0x020c ; "File_Transfer.Open" 01fa 0036 | 6 | .STRTAB 0x0036->0x0215 ; "ratnet_mv" 01fb 003d | = | .STRTAB 0x003d->0x0219 ; "remote_access" 01fc 0048 | H | .STRTAB 0x0048->0x0220 ; "File_Transfer.Send_Password" 01fd 0061 | a | .STRTAB 0x0061->0x022d ; "Failures occurred transfering files." 01fe 0083 | | .STRTAB 0x0083->0x023f ; "Files => " 01ff 008a | | .STRTAB 0x008a->0x0244 ; ", To_Directory => " 0200 009a | | .STRTAB 0x009a->0x024d ; " raised transfering " 0201 00ac | | .STRTAB 0x00ac->0x0257 ; " to " 0202 00ae | | .STRTAB 0x00ae->0x0259 ; " filed with TRANSPORT_DEFS.STATUS_CODE = " 0203 00d5 | | .STRTAB 0x00d5->0x026d ; " filed with FTP_DEFS.STATUS_CODE = " 0204 00f6 | | .STRTAB 0x00f6->0x027f ; "FTP_Tools.Transfer failed: " 0205 010f | | .STRTAB 0x010f->0x028c ; " transfering " 0206 011a | | .STRTAB 0x011a->0x0293 ; " => " 0207 011c | | .STRTAB 0x011c->0x0295 ; " raised transferring " 0208 012f | / | .STRTAB 0x012f->0x029f ; ". Deleting " 0209 0138 | 8 | .STRTAB 0x0138->0x02a5 ; "Deleted: " 020a 013f | ? | .STRTAB 0x013f->0x02a9 ; " raised deleting " 020b 014e | N | .STREND 0x014e->0x02b2 020c 4669 6c65 |File| .STRTAB_STRINGS 02b2 0000 0000 | | .BLANK 0000[0x6] 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; Debug Table 02b8 ; -------------------------------------------------------------------------------------- 02b8 0004 0000 | | .DEBUG4 0x0004,0x0000,0x1219,0x0000,0x0001,0x0000 02be 0000 0000 | | .BLANK 0000[0x142]