|
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 - metrics - download
Length: 3072 (0xc00) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5850da
└─⟦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 05b0 | | .CONST 0x05b0 ; 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 00ad | | .CONST 0x00ad ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0031 | 1 | .CONST 0x0031 ; Number of locals 000b INIT_0008: 000b 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible 000c 00e3 | | Load_Encached Natural_Cache 000d 0266 | f | Execute Discrete,Bounds 000e 00da | | Load_Top At_Offset_2 000f 02a0 | | Declare_Subprogram Null_Subprogram 0010 4801 |H | Short_Literal 0x1 0011 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 0012 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible 0013 00c4 | | Action Make_Default 0014 e001 | | Load 0x0,0x1 0015 0129 | ) | Execute Any,Make_Visible 0016 e002 | | Load 0x0,0x2 0017 0129 | ) | Execute Any,Make_Visible 0018 e003 | | Load 0x0,0x3 0019 0129 | ) | Execute Any,Make_Visible 001a 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 001c 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 001e 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated 0020 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated 0022 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated 0024 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated 0026 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated 0028 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated 002a 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated 002c 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated 002e 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated 0030 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated 0032 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated 0034 029a 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call,Visible,Unelaborated 0036 029a 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call,Visible,Unelaborated 0038 029a 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call,Visible,Unelaborated 003a 029a 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call,Visible,Unelaborated 003c 029a 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call,Visible,Unelaborated 003e 029a 0383 | | Declare_Subprogram INIT_0380,For_Outer_Call,Visible,Unelaborated 0040 029a 03a3 | | Declare_Subprogram INIT_03a0,For_Outer_Call,Visible,Unelaborated 0042 029a 03c3 | | Declare_Subprogram INIT_03c0,For_Outer_Call,Visible,Unelaborated 0044 029a 03e3 | | Declare_Subprogram INIT_03e0,For_Outer_Call,Visible,Unelaborated 0046 00e9 | | Load_Encached String_Cache 0047 02a0 | | Declare_Subprogram Null_Subprogram 0048 03ad | | Declare_Type Heap_Access,Defined 0049 00e2 | | Load_Encached Integer_Cache 004a 00e9 | | Load_Encached String_Cache 004b 029f 0423 | #| Declare_Subprogram INIT_0420,For_Call 004d 4800 |H | Short_Literal 0x0 004e 4801 |H | Short_Literal 0x1 004f 4800 |H | Short_Literal 0x0 0050 4800 |H | Short_Literal 0x0 0051 4801 |H | Short_Literal 0x1 0052 4801 |H | Short_Literal 0x1 0053 031d | | Declare_Type Variant_Record,Defined 0054 00d8 | | Load_Top At_Offset_0 0055 02a0 | | Declare_Subprogram Null_Subprogram 0056 e20d | | Load 0x1,0xd 0057 03a3 | | Complete_Type Heap_Access,By_Defining 0058 e20d | | Load 0x1,0xd 0059 0007 | | Action Break_Optional 005a e20e | | Load 0x1,0xe 005b 02a0 | | Declare_Subprogram Null_Subprogram 005c 03ad | | Declare_Type Heap_Access,Defined 005d 00d8 | | Load_Top At_Offset_0 005e 0007 | | Action Break_Optional 005f e22a | * | Load 0x1,0x2a 0060 00d8 | | Load_Top At_Offset_0 0061 e22a | * | Load 0x1,0x2a 0062 00d8 | | Load_Top At_Offset_0 0063 e22a | * | Load 0x1,0x2a 0064 00d8 | | Load_Top At_Offset_0 0065 e22a | * | Load 0x1,0x2a 0066 00d8 | | Load_Top At_Offset_0 0067 e22a | * | Load 0x1,0x2a 0068 00e1 | | Load_Encached Boolean_Cache 0069 e22a | * | Load 0x1,0x2a 006a 00e2 | | Load_Encached Integer_Cache 006b 00e2 | | Load_Encached Integer_Cache 006c e22a | * | Load 0x1,0x2a 006d 00d8 | | Load_Top At_Offset_0 006e e22a | * | Load 0x1,0x2a 006f 00d8 | | Load_Top At_Offset_0 0070 e22d | - | Load 0x1,0x2d 0071 00d8 | | Load_Top At_Offset_0 0072 02a0 | | Declare_Subprogram Null_Subprogram 0073 4813 |H | Short_Literal 0x13 0074 032d | - | Declare_Type Record,Defined 0075 00d8 | | Load_Top At_Offset_0 0076 02a0 | | Declare_Subprogram Null_Subprogram 0077 e20f | | Load 0x1,0xf 0078 03a3 | | Complete_Type Heap_Access,By_Defining 0079 e20f | | Load 0x1,0xf 007a 0129 | ) | Execute Any,Make_Visible 007b c210 | | Store 0x1,0x10 007c 00bf | | Action Accept_Activation 007d 029d 03fb | | Declare_Subprogram INIT_03f8,For_Outer_Call 007f 029d 041b | | Declare_Subprogram INIT_0418,For_Outer_Call 0081 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0082 00c7 | | Action Elaborate_Subprogram 0083 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0084 00c7 | | Action Elaborate_Subprogram 0085 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0086 00c7 | | Action Elaborate_Subprogram 0087 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0088 00c7 | | Action Elaborate_Subprogram 0089 1d18 | | Execute_Immediate Reference_Lex_1,0x18 008a 00c7 | | Action Elaborate_Subprogram 008b 1d19 | | Execute_Immediate Reference_Lex_1,0x19 008c 00c7 | | Action Elaborate_Subprogram 008d 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 008e 00c7 | | Action Elaborate_Subprogram 008f 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0090 00c7 | | Action Elaborate_Subprogram 0091 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0092 00c7 | | Action Elaborate_Subprogram 0093 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 0094 00c7 | | Action Elaborate_Subprogram 0095 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0096 00c7 | | Action Elaborate_Subprogram 0097 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0098 00c7 | | Action Elaborate_Subprogram 0099 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 009a 00c7 | | Action Elaborate_Subprogram 009b 1d20 | | Execute_Immediate Reference_Lex_1,0x20 009c 00c7 | | Action Elaborate_Subprogram 009d 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 009e 00c7 | | Action Elaborate_Subprogram 009f 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 00a0 00c7 | | Action Elaborate_Subprogram 00a1 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 00a2 00c7 | | Action Elaborate_Subprogram 00a3 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 00a4 00c7 | | Action Elaborate_Subprogram 00a5 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 00a6 00c7 | | Action Elaborate_Subprogram 00a7 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 00a8 00c7 | | Action Elaborate_Subprogram 00a9 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 00aa 00c7 | | Action Elaborate_Subprogram 00ab 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 00ac 00c7 | | Action Elaborate_Subprogram 00ad BODY_0008: 00ad 00bc | | Action Signal_Activated 00ae 00bb | | Action Signal_Completion 00af 0000 | | .XXX[0x1] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b7 | | .CONST 0x00b7 ; Address of begin 00b1 00ce | | .CONST 0x00ce ; Address of exception handler 00b2 0003 | | .CONST 0x0003 ; Number of locals 00b3 INIT_00b0: 00b3 e004 | | Load 0x0,0x4 00b4 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 00b5 e20d | | Load 0x1,0xd 00b6 0007 | | Action Break_Optional 00b7 BODY_00b0: 00b7 e5ff | | Load 0x2,-0x1 00b8 01db | | Execute Vector,Length 00b9 7002 |p | Jump_Nonzero 0xbc 00ba e20d | | Load 0x1,0xd 00bb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00bc e5fe | | Load 0x2,-0x2 00bd e005 | | Load 0x0,0x5 00be 180f | | Execute Package,Field_Execute,Field_Number 0xf 00bf 0032 | 2 | Store_Top Heap_Access,At_Offset_2 00c0 e5ff | | Load 0x2,-0x1 00c1 01db | | Execute Vector,Length 00c2 e22b | + | Load 0x1,0x2b 00c3 1c08 | | Execute_Immediate Run_Utility,0x8 00c4 e20d | | Load 0x1,0xd 00c5 00db | | Load_Top At_Offset_3 00c6 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 00c7 0031 | 1 | Store_Top Heap_Access,At_Offset_1 00c8 e5ff | | Load 0x2,-0x1 00c9 00d9 | | Load_Top At_Offset_1 00ca 0217 | | Execute Heap_Access,All_Reference 00cb 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2 00cc 00d8 | | Load_Top At_Offset_0 00cd 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00ce TRAP_00b0: 00ce e005 | | Load 0x0,0x5 00cf 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00d0 010f | | Execute Exception,Equal 00d1 6802 |h | Jump_Zero 0xd4 00d2 e212 | | Load 0x1,0x12 00d3 0257 | W | Execute Discrete,Raise 00d4 e005 | | Load 0x0,0x5 00d5 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00d6 010f | | Execute Exception,Equal 00d7 6802 |h | Jump_Zero 0xda 00d8 e211 | | Load 0x1,0x11 00d9 0257 | W | Execute Discrete,Raise 00da e006 | | Load 0x0,0x6 00db 180e | | Execute Package,Field_Execute,Field_Number 0xe 00dc 4802 |H | Short_Literal 0x2 00dd 0092 0441 | A| Action Push_String_Extended,0x441 ; "Exception in Build1 " 00df 4800 |H | Short_Literal 0x0 00e0 4801 |H | Short_Literal 0x1 00e1 e007 | | Load 0x0,0x7 00e2 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00e3 01cc | | Execute Vector,Catenate 00e4 e008 | | Load 0x0,0x8 00e5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00e6 00d8 | | Load_Top At_Offset_0 00e7 0101 | | Execute Exception,Reraise 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00f3 | | .CONST 0x00f3 ; Address of begin 00e9 017f | | .CONST 0x017f ; Address of exception handler 00ea 0005 | | .CONST 0x0005 ; Number of locals 00eb INIT_00e8: 00eb e22d | - | Load 0x1,0x2d 00ec 0007 | | Action Break_Optional 00ed 00d8 | | Load_Top At_Offset_0 00ee 0007 | | Action Break_Optional 00ef e20f | | Load 0x1,0xf 00f0 0007 | | Action Break_Optional 00f1 e004 | | Load 0x0,0x4 00f2 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 00f3 BODY_00e8: 00f3 e5ee | | Load 0x2,-0x12 00f4 01db | | Execute Vector,Length 00f5 7003 |p | Jump_Nonzero 0xf9 00f6 e22d | - | Load 0x1,0x2d 00f7 a402 | | Store_Unchecked 0x2,0x2 00f8 7809 |x | Jump 0x102 00f9 e5ec | | Load 0x2,-0x14 00fa e005 | | Load 0x0,0x5 00fb 180f | | Execute Package,Field_Execute,Field_Number 0xf 00fc 0031 | 1 | Store_Top Heap_Access,At_Offset_1 00fd e5ee | | Load 0x2,-0x12 00fe e22d | - | Load 0x1,0x2d 00ff 00da | | Load_Top At_Offset_2 0100 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 0101 a402 | | Store_Unchecked 0x2,0x2 0102 e5ed | | Load 0x2,-0x13 0103 01db | | Execute Vector,Length 0104 7003 |p | Jump_Nonzero 0x108 0105 e22d | - | Load 0x1,0x2d 0106 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0107 7809 |x | Jump 0x111 0108 e5ec | | Load 0x2,-0x14 0109 e005 | | Load 0x0,0x5 010a 180f | | Execute Package,Field_Execute,Field_Number 0xf 010b 0031 | 1 | Store_Top Heap_Access,At_Offset_1 010c e5ed | | Load 0x2,-0x13 010d e22d | - | Load 0x1,0x2d 010e 00da | | Load_Top At_Offset_2 010f 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 0110 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0111 e20f | | Load 0x1,0xf 0112 00d9 | | Load_Top At_Offset_1 0113 039c | | Declare_Variable Heap_Access,By_Allocation 0114 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0115 00d8 | | Load_Top At_Offset_0 0116 e5ff | | Load 0x2,-0x1 0117 8230 | 0 | Call 0x1,0x30 0118 00da | | Load_Top At_Offset_2 0119 0217 | | Execute Heap_Access,All_Reference 011a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 011b 00d8 | | Load_Top At_Offset_0 011c e5fe | | Load 0x2,-0x2 011d 8230 | 0 | Call 0x1,0x30 011e 00da | | Load_Top At_Offset_2 011f 0217 | | Execute Heap_Access,All_Reference 0120 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0121 00d8 | | Load_Top At_Offset_0 0122 e5fd | | Load 0x2,-0x3 0123 8230 | 0 | Call 0x1,0x30 0124 00da | | Load_Top At_Offset_2 0125 0217 | | Execute Heap_Access,All_Reference 0126 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0127 00d8 | | Load_Top At_Offset_0 0128 e5fc | | Load 0x2,-0x4 0129 8230 | 0 | Call 0x1,0x30 012a 00da | | Load_Top At_Offset_2 012b 0217 | | Execute Heap_Access,All_Reference 012c 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 012d 00d8 | | Load_Top At_Offset_0 012e e5fb | | Load 0x2,-0x5 012f 8230 | 0 | Call 0x1,0x30 0130 00da | | Load_Top At_Offset_2 0131 0217 | | Execute Heap_Access,All_Reference 0132 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0133 00d8 | | Load_Top At_Offset_0 0134 e5fa | | Load 0x2,-0x6 0135 8230 | 0 | Call 0x1,0x30 0136 00da | | Load_Top At_Offset_2 0137 0217 | | Execute Heap_Access,All_Reference 0138 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0139 00d8 | | Load_Top At_Offset_0 013a e5f9 | | Load 0x2,-0x7 013b 8230 | 0 | Call 0x1,0x30 013c 00da | | Load_Top At_Offset_2 013d 0217 | | Execute Heap_Access,All_Reference 013e 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 013f 00d8 | | Load_Top At_Offset_0 0140 e5f8 | | Load 0x2,-0x8 0141 8230 | 0 | Call 0x1,0x30 0142 00da | | Load_Top At_Offset_2 0143 0217 | | Execute Heap_Access,All_Reference 0144 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0145 00d8 | | Load_Top At_Offset_0 0146 e5f7 | | Load 0x2,-0x9 0147 8230 | 0 | Call 0x1,0x30 0148 00da | | Load_Top At_Offset_2 0149 0217 | | Execute Heap_Access,All_Reference 014a 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 014b e5f6 | | Load 0x2,-0xa 014c 00da | | Load_Top At_Offset_2 014d 0217 | | Execute Heap_Access,All_Reference 014e 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 014f 00d8 | | Load_Top At_Offset_0 0150 e5f5 | | Load 0x2,-0xb 0151 8230 | 0 | Call 0x1,0x30 0152 00da | | Load_Top At_Offset_2 0153 0217 | | Execute Heap_Access,All_Reference 0154 380a |8 | Execute Record,Field_Write,Field_Number 0xa 0155 e5f4 | | Load 0x2,-0xc 0156 00da | | Load_Top At_Offset_2 0157 0217 | | Execute Heap_Access,All_Reference 0158 380b |8 | Execute Record,Field_Write,Field_Number 0xb 0159 e5f3 | | Load 0x2,-0xd 015a 00da | | Load_Top At_Offset_2 015b 0217 | | Execute Heap_Access,All_Reference 015c 380c |8 | Execute Record,Field_Write,Field_Number 0xc 015d 00d8 | | Load_Top At_Offset_0 015e e5f2 | | Load 0x2,-0xe 015f 8230 | 0 | Call 0x1,0x30 0160 00da | | Load_Top At_Offset_2 0161 0217 | | Execute Heap_Access,All_Reference 0162 380d |8 | Execute Record,Field_Write,Field_Number 0xd 0163 00d8 | | Load_Top At_Offset_0 0164 e5f1 | | Load 0x2,-0xf 0165 8230 | 0 | Call 0x1,0x30 0166 00da | | Load_Top At_Offset_2 0167 0217 | | Execute Heap_Access,All_Reference 0168 380e |8 | Execute Record,Field_Write,Field_Number 0xe 0169 00d8 | | Load_Top At_Offset_0 016a e5f0 | | Load 0x2,-0x10 016b 8230 | 0 | Call 0x1,0x30 016c 00da | | Load_Top At_Offset_2 016d 0217 | | Execute Heap_Access,All_Reference 016e 380f |8 | Execute Record,Field_Write,Field_Number 0xf 016f 00d8 | | Load_Top At_Offset_0 0170 e5ef | | Load 0x2,-0x11 0171 8230 | 0 | Call 0x1,0x30 0172 00da | | Load_Top At_Offset_2 0173 0217 | | Execute Heap_Access,All_Reference 0174 3810 |8 | Execute Record,Field_Write,Field_Number 0x10 0175 00db | | Load_Top At_Offset_3 0176 00da | | Load_Top At_Offset_2 0177 0217 | | Execute Heap_Access,All_Reference 0178 3811 |8 | Execute Record,Field_Write,Field_Number 0x11 0179 00da | | Load_Top At_Offset_2 017a 00da | | Load_Top At_Offset_2 017b 0217 | | Execute Heap_Access,All_Reference 017c 3812 |8 | Execute Record,Field_Write,Field_Number 0x12 017d 00d9 | | Load_Top At_Offset_1 017e 4414 |D | Exit_Subprogram With_Value,New_Top_Offset 0x14 017f TRAP_00e8: 017f e005 | | Load 0x0,0x5 0180 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0181 010f | | Execute Exception,Equal 0182 6802 |h | Jump_Zero 0x185 0183 e212 | | Load 0x1,0x12 0184 0257 | W | Execute Discrete,Raise 0185 e005 | | Load 0x0,0x5 0186 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0187 010f | | Execute Exception,Equal 0188 6802 |h | Jump_Zero 0x18b 0189 e211 | | Load 0x1,0x11 018a 0257 | W | Execute Discrete,Raise 018b e006 | | Load 0x0,0x6 018c 180e | | Execute Package,Field_Execute,Field_Number 0xe 018d 4802 |H | Short_Literal 0x2 018e 0092 0442 | B| Action Push_String_Extended,0x442 ; "Exception in build2 " 0190 4800 |H | Short_Literal 0x0 0191 4801 |H | Short_Literal 0x1 0192 e007 | | Load 0x0,0x7 0193 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0194 01cc | | Execute Vector,Catenate 0195 e008 | | Load 0x0,0x8 0196 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0197 00d8 | | Load_Top At_Offset_0 0198 0101 | | Execute Exception,Reraise 0199 0000 0000 | | .BLANK 0000[0x7] 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a3 | | .CONST 0x01a3 ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0001 | | .CONST 0x0001 ; Number of locals 01a3 BODY_01a0: 01a3 INIT_01a0: 01a3 00db | | Load_Top At_Offset_3 01a4 e009 | | Load 0x0,0x9 01a5 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01a6 c5fe | | Store 0x2,-0x2 01a7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01ab | | .CONST 0x01ab ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0001 | | .CONST 0x0001 ; Number of locals 01ab BODY_01a8: 01ab INIT_01a8: 01ab 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01ac 0000 0000 | | .BLANK 0000[0x4] 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01b3 | | .CONST 0x01b3 ; Address of begin 01b1 01bf | | .CONST 0x01bf ; Address of exception handler 01b2 0001 | | .CONST 0x0001 ; Number of locals 01b3 BODY_01b0: 01b3 INIT_01b0: 01b3 00da | | Load_Top At_Offset_2 01b4 8231 | 1 | Call 0x1,0x31 01b5 6802 |h | Jump_Zero 0x1b8 01b6 e213 | | Load 0x1,0x13 01b7 0257 | W | Execute Discrete,Raise 01b8 00da | | Load_Top At_Offset_2 01b9 0217 | | Execute Heap_Access,All_Reference 01ba 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01bb 0217 | | Execute Heap_Access,All_Reference 01bc 0335 | 5 | Declare_Variable Array,Duplicate 01bd 00cd | | Action Spare6_Action 01be 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01bf TRAP_01b0: 01bf 0007 | | Action Break_Optional 01c0 e006 | | Load 0x0,0x6 01c1 180e | | Execute Package,Field_Execute,Field_Number 0xe 01c2 4802 |H | Short_Literal 0x2 01c3 0092 0443 | C| Action Push_String_Extended,0x443 ; "Exception in get_user_name_prompt " 01c5 4800 |H | Short_Literal 0x0 01c6 4801 |H | Short_Literal 0x1 01c7 e007 | | Load 0x0,0x7 01c8 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01c9 01cc | | Execute Vector,Catenate 01ca e008 | | Load 0x0,0x8 01cb 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01cc 00d8 | | Load_Top At_Offset_0 01cd 0101 | | Execute Exception,Reraise 01ce 0000 0000 | | .XXX[0x2] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d3 | | .CONST 0x01d3 ; Address of begin 01d1 01df | | .CONST 0x01df ; Address of exception handler 01d2 0001 | | .CONST 0x0001 ; Number of locals 01d3 BODY_01d0: 01d3 INIT_01d0: 01d3 00da | | Load_Top At_Offset_2 01d4 8231 | 1 | Call 0x1,0x31 01d5 6802 |h | Jump_Zero 0x1d8 01d6 e213 | | Load 0x1,0x13 01d7 0257 | W | Execute Discrete,Raise 01d8 00da | | Load_Top At_Offset_2 01d9 0217 | | Execute Heap_Access,All_Reference 01da 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01db 0217 | | Execute Heap_Access,All_Reference 01dc 0335 | 5 | Declare_Variable Array,Duplicate 01dd 00cd | | Action Spare6_Action 01de 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01df TRAP_01d0: 01df 0007 | | Action Break_Optional 01e0 e006 | | Load 0x0,0x6 01e1 180e | | Execute Package,Field_Execute,Field_Number 0xe 01e2 4802 |H | Short_Literal 0x2 01e3 0092 0444 | D| Action Push_String_Extended,0x444 ; "Exception in get_password_prompt " 01e5 4800 |H | Short_Literal 0x0 01e6 4801 |H | Short_Literal 0x1 01e7 e007 | | Load 0x0,0x7 01e8 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01e9 01cc | | Execute Vector,Catenate 01ea e008 | | Load 0x0,0x8 01eb 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01ec 00d8 | | Load_Top At_Offset_0 01ed 0101 | | Execute Exception,Reraise 01ee 0000 0000 | | .XXX[0x2] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01f3 | | .CONST 0x01f3 ; Address of begin 01f1 01ff | | .CONST 0x01ff ; Address of exception handler 01f2 0001 | | .CONST 0x0001 ; Number of locals 01f3 BODY_01f0: 01f3 INIT_01f0: 01f3 00da | | Load_Top At_Offset_2 01f4 8231 | 1 | Call 0x1,0x31 01f5 6802 |h | Jump_Zero 0x1f8 01f6 e213 | | Load 0x1,0x13 01f7 0257 | W | Execute Discrete,Raise 01f8 00da | | Load_Top At_Offset_2 01f9 0217 | | Execute Heap_Access,All_Reference 01fa 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 01fb 0217 | | Execute Heap_Access,All_Reference 01fc 0335 | 5 | Declare_Variable Array,Duplicate 01fd 00cd | | Action Spare6_Action 01fe 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ff TRAP_01f0: 01ff 0007 | | Action Break_Optional 0200 e006 | | Load 0x0,0x6 0201 180e | | Execute Package,Field_Execute,Field_Number 0xe 0202 4802 |H | Short_Literal 0x2 0203 0092 0445 | E| Action Push_String_Extended,0x445 ; "Exception in get_command_prompt " 0205 4800 |H | Short_Literal 0x0 0206 4801 |H | Short_Literal 0x1 0207 e007 | | Load 0x0,0x7 0208 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0209 01cc | | Execute Vector,Catenate 020a e008 | | Load 0x0,0x8 020b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 020c 00d8 | | Load_Top At_Offset_0 020d 0101 | | Execute Exception,Reraise 020e 0000 0000 | | .XXX[0x2] 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0213 | | .CONST 0x0213 ; Address of begin 0211 021f | | .CONST 0x021f ; Address of exception handler 0212 0001 | | .CONST 0x0001 ; Number of locals 0213 BODY_0210: 0213 INIT_0210: 0213 00da | | Load_Top At_Offset_2 0214 8231 | 1 | Call 0x1,0x31 0215 6802 |h | Jump_Zero 0x218 0216 e213 | | Load 0x1,0x13 0217 0257 | W | Execute Discrete,Raise 0218 00da | | Load_Top At_Offset_2 0219 0217 | | Execute Heap_Access,All_Reference 021a 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 021b 0217 | | Execute Heap_Access,All_Reference 021c 0335 | 5 | Declare_Variable Array,Duplicate 021d 00cd | | Action Spare6_Action 021e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 021f TRAP_0210: 021f 0007 | | Action Break_Optional 0220 e006 | | Load 0x0,0x6 0221 180e | | Execute Package,Field_Execute,Field_Number 0xe 0222 4802 |H | Short_Literal 0x2 0223 0092 0446 | F| Action Push_String_Extended,0x446 ; "Exception in get_password_failure " 0225 4800 |H | Short_Literal 0x0 0226 4801 |H | Short_Literal 0x1 0227 e007 | | Load 0x0,0x7 0228 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0229 01cc | | Execute Vector,Catenate 022a e008 | | Load 0x0,0x8 022b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 022c 00d8 | | Load_Top At_Offset_0 022d 0101 | | Execute Exception,Reraise 022e 0000 0000 | | .XXX[0x2] 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 0233 | 3 | .CONST 0x0233 ; Address of begin 0231 023f | ? | .CONST 0x023f ; Address of exception handler 0232 0001 | | .CONST 0x0001 ; Number of locals 0233 BODY_0230: 0233 INIT_0230: 0233 00da | | Load_Top At_Offset_2 0234 8231 | 1 | Call 0x1,0x31 0235 6802 |h | Jump_Zero 0x238 0236 e213 | | Load 0x1,0x13 0237 0257 | W | Execute Discrete,Raise 0238 00da | | Load_Top At_Offset_2 0239 0217 | | Execute Heap_Access,All_Reference 023a 3c11 |< | Execute Record,Field_Read,Field_Number 0x11 023b 0217 | | Execute Heap_Access,All_Reference 023c 0335 | 5 | Declare_Variable Array,Duplicate 023d 00cd | | Action Spare6_Action 023e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 023f TRAP_0230: 023f 0007 | | Action Break_Optional 0240 e006 | | Load 0x0,0x6 0241 180e | | Execute Package,Field_Execute,Field_Number 0xe 0242 4802 |H | Short_Literal 0x2 0243 0092 0447 | G| Action Push_String_Extended,0x447 ; "Exception in get_error_patterns " 0245 4800 |H | Short_Literal 0x0 0246 4801 |H | Short_Literal 0x1 0247 e007 | | Load 0x0,0x7 0248 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0249 01cc | | Execute Vector,Catenate 024a e008 | | Load 0x0,0x8 024b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 024c 00d8 | | Load_Top At_Offset_0 024d 0101 | | Execute Exception,Reraise 024e 0000 0000 | | .XXX[0x2] 0250 ; -------------------------------------------------------------------------------------- 0250 ; SUBPROGRAM 0250 ; -------------------------------------------------------------------------------------- 0250 0253 | S | .CONST 0x0253 ; Address of begin 0251 0269 | i | .CONST 0x0269 ; Address of exception handler 0252 0001 | | .CONST 0x0001 ; Number of locals 0253 BODY_0250: 0253 INIT_0250: 0253 00da | | Load_Top At_Offset_2 0254 8231 | 1 | Call 0x1,0x31 0255 6802 |h | Jump_Zero 0x258 0256 e213 | | Load 0x1,0x13 0257 0257 | W | Execute Discrete,Raise 0258 00da | | Load_Top At_Offset_2 0259 0217 | | Execute Heap_Access,All_Reference 025a 3c11 |< | Execute Record,Field_Read,Field_Number 0x11 025b 7002 |p | Jump_Nonzero 0x25e 025c 4800 |H | Short_Literal 0x0 025d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 025e 00da | | Load_Top At_Offset_2 025f 0217 | | Execute Heap_Access,All_Reference 0260 3c11 |< | Execute Record,Field_Read,Field_Number 0x11 0261 0217 | | Execute Heap_Access,All_Reference 0262 01db | | Execute Vector,Length 0263 00d8 | | Load_Top At_Offset_0 0264 00e2 | | Load_Encached Integer_Cache 0265 0260 | ` | Execute Discrete,In_Type 0266 7001 |p | Jump_Nonzero 0x268 0267 0801 | | Execute_Immediate Raise,0x1 0268 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0269 TRAP_0250: 0269 0007 | | Action Break_Optional 026a e006 | | Load 0x0,0x6 026b 180e | | Execute Package,Field_Execute,Field_Number 0xe 026c 4802 |H | Short_Literal 0x2 026d 0092 0448 | H| Action Push_String_Extended,0x448 ; "Exception in get_error_patterns_count " 026f 4800 |H | Short_Literal 0x0 0270 4801 |H | Short_Literal 0x1 0271 e007 | | Load 0x0,0x7 0272 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0273 01cc | | Execute Vector,Catenate 0274 e008 | | Load 0x0,0x8 0275 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0276 00d8 | | Load_Top At_Offset_0 0277 0101 | | Execute Exception,Reraise 0278 ; -------------------------------------------------------------------------------------- 0278 ; SUBPROGRAM 0278 ; -------------------------------------------------------------------------------------- 0278 027b | { | .CONST 0x027b ; Address of begin 0279 0287 | | .CONST 0x0287 ; Address of exception handler 027a 0001 | | .CONST 0x0001 ; Number of locals 027b BODY_0278: 027b INIT_0278: 027b 00da | | Load_Top At_Offset_2 027c 8231 | 1 | Call 0x1,0x31 027d 6802 |h | Jump_Zero 0x280 027e e213 | | Load 0x1,0x13 027f 0257 | W | Execute Discrete,Raise 0280 00da | | Load_Top At_Offset_2 0281 0217 | | Execute Heap_Access,All_Reference 0282 3c12 |< | Execute Record,Field_Read,Field_Number 0x12 0283 0217 | | Execute Heap_Access,All_Reference 0284 0335 | 5 | Declare_Variable Array,Duplicate 0285 00cd | | Action Spare6_Action 0286 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0287 TRAP_0278: 0287 0007 | | Action Break_Optional 0288 e006 | | Load 0x0,0x6 0289 180e | | Execute Package,Field_Execute,Field_Number 0xe 028a 4802 |H | Short_Literal 0x2 028b 0092 0449 | I| Action Push_String_Extended,0x449 ; "Exception in get_warning_patterns " 028d 4800 |H | Short_Literal 0x0 028e 4801 |H | Short_Literal 0x1 028f e007 | | Load 0x0,0x7 0290 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0291 01cc | | Execute Vector,Catenate 0292 e008 | | Load 0x0,0x8 0293 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0294 00d8 | | Load_Top At_Offset_0 0295 0101 | | Execute Exception,Reraise 0296 0000 0000 | | .XXX[0x2] 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 029b | | .CONST 0x029b ; Address of begin 0299 02b1 | | .CONST 0x02b1 ; Address of exception handler 029a 0001 | | .CONST 0x0001 ; Number of locals 029b BODY_0298: 029b INIT_0298: 029b 00da | | Load_Top At_Offset_2 029c 8231 | 1 | Call 0x1,0x31 029d 6802 |h | Jump_Zero 0x2a0 029e e213 | | Load 0x1,0x13 029f 0257 | W | Execute Discrete,Raise 02a0 00da | | Load_Top At_Offset_2 02a1 0217 | | Execute Heap_Access,All_Reference 02a2 3c12 |< | Execute Record,Field_Read,Field_Number 0x12 02a3 7002 |p | Jump_Nonzero 0x2a6 02a4 4800 |H | Short_Literal 0x0 02a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02a6 00da | | Load_Top At_Offset_2 02a7 0217 | | Execute Heap_Access,All_Reference 02a8 3c12 |< | Execute Record,Field_Read,Field_Number 0x12 02a9 0217 | | Execute Heap_Access,All_Reference 02aa 01db | | Execute Vector,Length 02ab 00d8 | | Load_Top At_Offset_0 02ac 00e2 | | Load_Encached Integer_Cache 02ad 0260 | ` | Execute Discrete,In_Type 02ae 7001 |p | Jump_Nonzero 0x2b0 02af 0801 | | Execute_Immediate Raise,0x1 02b0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02b1 TRAP_0298: 02b1 0007 | | Action Break_Optional 02b2 e006 | | Load 0x0,0x6 02b3 180e | | Execute Package,Field_Execute,Field_Number 0xe 02b4 4802 |H | Short_Literal 0x2 02b5 0092 044a | J| Action Push_String_Extended,0x44a ; "Exception in get_warning_patterns_count " 02b7 4800 |H | Short_Literal 0x0 02b8 4801 |H | Short_Literal 0x1 02b9 e007 | | Load 0x0,0x7 02ba 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02bb 01cc | | Execute Vector,Catenate 02bc e008 | | Load 0x0,0x8 02bd 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02be 00d8 | | Load_Top At_Offset_0 02bf 0101 | | Execute Exception,Reraise 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; SUBPROGRAM 02c0 ; -------------------------------------------------------------------------------------- 02c0 02c3 | | .CONST 0x02c3 ; Address of begin 02c1 02cf | | .CONST 0x02cf ; Address of exception handler 02c2 0001 | | .CONST 0x0001 ; Number of locals 02c3 BODY_02c0: 02c3 INIT_02c0: 02c3 00da | | Load_Top At_Offset_2 02c4 8231 | 1 | Call 0x1,0x31 02c5 6802 |h | Jump_Zero 0x2c8 02c6 e213 | | Load 0x1,0x13 02c7 0257 | W | Execute Discrete,Raise 02c8 00da | | Load_Top At_Offset_2 02c9 0217 | | Execute Heap_Access,All_Reference 02ca 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 02cb 0217 | | Execute Heap_Access,All_Reference 02cc 0335 | 5 | Declare_Variable Array,Duplicate 02cd 00cd | | Action Spare6_Action 02ce 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02cf TRAP_02c0: 02cf 0007 | | Action Break_Optional 02d0 e006 | | Load 0x0,0x6 02d1 180e | | Execute Package,Field_Execute,Field_Number 0xe 02d2 4802 |H | Short_Literal 0x2 02d3 0092 044b | K| Action Push_String_Extended,0x44b ; "Exception in get_status_command " 02d5 4800 |H | Short_Literal 0x0 02d6 4801 |H | Short_Literal 0x1 02d7 e007 | | Load 0x0,0x7 02d8 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02d9 01cc | | Execute Vector,Catenate 02da e008 | | Load 0x0,0x8 02db 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02dc 00d8 | | Load_Top At_Offset_0 02dd 0101 | | Execute Exception,Reraise 02de 0000 0000 | | .XXX[0x2] 02e0 ; -------------------------------------------------------------------------------------- 02e0 ; SUBPROGRAM 02e0 ; -------------------------------------------------------------------------------------- 02e0 02e3 | | .CONST 0x02e3 ; Address of begin 02e1 02ec | | .CONST 0x02ec ; Address of exception handler 02e2 0001 | | .CONST 0x0001 ; Number of locals 02e3 BODY_02e0: 02e3 INIT_02e0: 02e3 00da | | Load_Top At_Offset_2 02e4 8231 | 1 | Call 0x1,0x31 02e5 6802 |h | Jump_Zero 0x2e8 02e6 e213 | | Load 0x1,0x13 02e7 0257 | W | Execute Discrete,Raise 02e8 00da | | Load_Top At_Offset_2 02e9 0217 | | Execute Heap_Access,All_Reference 02ea 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 02eb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02ec TRAP_02e0: 02ec 0007 | | Action Break_Optional 02ed e006 | | Load 0x0,0x6 02ee 180e | | Execute Package,Field_Execute,Field_Number 0xe 02ef 4802 |H | Short_Literal 0x2 02f0 0092 044c | L| Action Push_String_Extended,0x44c ; "Exception in get_status_code_start " 02f2 4800 |H | Short_Literal 0x0 02f3 4801 |H | Short_Literal 0x1 02f4 e007 | | Load 0x0,0x7 02f5 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02f6 01cc | | Execute Vector,Catenate 02f7 e008 | | Load 0x0,0x8 02f8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02f9 00d8 | | Load_Top At_Offset_0 02fa 0101 | | Execute Exception,Reraise 02fb 0000 0000 | | .BLANK 0000[0x5] 0300 ; -------------------------------------------------------------------------------------- 0300 ; SUBPROGRAM 0300 ; -------------------------------------------------------------------------------------- 0300 0303 | | .CONST 0x0303 ; Address of begin 0301 030c | | .CONST 0x030c ; Address of exception handler 0302 0001 | | .CONST 0x0001 ; Number of locals 0303 BODY_0300: 0303 INIT_0300: 0303 00da | | Load_Top At_Offset_2 0304 8231 | 1 | Call 0x1,0x31 0305 6802 |h | Jump_Zero 0x308 0306 e213 | | Load 0x1,0x13 0307 0257 | W | Execute Discrete,Raise 0308 00da | | Load_Top At_Offset_2 0309 0217 | | Execute Heap_Access,All_Reference 030a 3c0c |< | Execute Record,Field_Read,Field_Number 0xc 030b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 030c TRAP_0300: 030c 0007 | | Action Break_Optional 030d e006 | | Load 0x0,0x6 030e 180e | | Execute Package,Field_Execute,Field_Number 0xe 030f 4802 |H | Short_Literal 0x2 0310 0092 044d | M| Action Push_String_Extended,0x44d ; "Exception in get_status_code_length " 0312 4800 |H | Short_Literal 0x0 0313 4801 |H | Short_Literal 0x1 0314 e007 | | Load 0x0,0x7 0315 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0316 01cc | | Execute Vector,Catenate 0317 e008 | | Load 0x0,0x8 0318 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0319 00d8 | | Load_Top At_Offset_0 031a 0101 | | Execute Exception,Reraise 031b 0000 0000 | | .BLANK 0000[0x5] 0320 ; -------------------------------------------------------------------------------------- 0320 ; SUBPROGRAM 0320 ; -------------------------------------------------------------------------------------- 0320 0323 | # | .CONST 0x0323 ; Address of begin 0321 032f | / | .CONST 0x032f ; Address of exception handler 0322 0001 | | .CONST 0x0001 ; Number of locals 0323 BODY_0320: 0323 INIT_0320: 0323 00da | | Load_Top At_Offset_2 0324 8231 | 1 | Call 0x1,0x31 0325 6802 |h | Jump_Zero 0x328 0326 e213 | | Load 0x1,0x13 0327 0257 | W | Execute Discrete,Raise 0328 00da | | Load_Top At_Offset_2 0329 0217 | | Execute Heap_Access,All_Reference 032a 3c0d |< | Execute Record,Field_Read,Field_Number 0xd 032b 0217 | | Execute Heap_Access,All_Reference 032c 0335 | 5 | Declare_Variable Array,Duplicate 032d 00cd | | Action Spare6_Action 032e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 032f TRAP_0320: 032f 0007 | | Action Break_Optional 0330 e006 | | Load 0x0,0x6 0331 180e | | Execute Package,Field_Execute,Field_Number 0xe 0332 4802 |H | Short_Literal 0x2 0333 0092 044e | N| Action Push_String_Extended,0x44e ; "Exception in get_dir_command " 0335 4800 |H | Short_Literal 0x0 0336 4801 |H | Short_Literal 0x1 0337 e007 | | Load 0x0,0x7 0338 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0339 01cc | | Execute Vector,Catenate 033a e008 | | Load 0x0,0x8 033b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 033c 00d8 | | Load_Top At_Offset_0 033d 0101 | | Execute Exception,Reraise 033e 0000 0000 | | .XXX[0x2] 0340 ; -------------------------------------------------------------------------------------- 0340 ; SUBPROGRAM 0340 ; -------------------------------------------------------------------------------------- 0340 0343 | C | .CONST 0x0343 ; Address of begin 0341 034f | O | .CONST 0x034f ; Address of exception handler 0342 0001 | | .CONST 0x0001 ; Number of locals 0343 BODY_0340: 0343 INIT_0340: 0343 00da | | Load_Top At_Offset_2 0344 8231 | 1 | Call 0x1,0x31 0345 6802 |h | Jump_Zero 0x348 0346 e213 | | Load 0x1,0x13 0347 0257 | W | Execute Discrete,Raise 0348 00da | | Load_Top At_Offset_2 0349 0217 | | Execute Heap_Access,All_Reference 034a 3c0e |< | Execute Record,Field_Read,Field_Number 0xe 034b 0217 | | Execute Heap_Access,All_Reference 034c 01db | | Execute Vector,Length 034d 0e00 | | Execute_Immediate Not_Equal,0x0 034e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 034f TRAP_0340: 034f 0007 | | Action Break_Optional 0350 e006 | | Load 0x0,0x6 0351 180e | | Execute Package,Field_Execute,Field_Number 0xe 0352 4802 |H | Short_Literal 0x2 0353 0092 044f | O| Action Push_String_Extended,0x44f ; "Exception in initial_comamnd_specified " 0355 4800 |H | Short_Literal 0x0 0356 4801 |H | Short_Literal 0x1 0357 e007 | | Load 0x0,0x7 0358 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0359 01cc | | Execute Vector,Catenate 035a e008 | | Load 0x0,0x8 035b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 035c 00d8 | | Load_Top At_Offset_0 035d 0101 | | Execute Exception,Reraise 035e 0000 0000 | | .XXX[0x2] 0360 ; -------------------------------------------------------------------------------------- 0360 ; SUBPROGRAM 0360 ; -------------------------------------------------------------------------------------- 0360 0363 | c | .CONST 0x0363 ; Address of begin 0361 036f | o | .CONST 0x036f ; Address of exception handler 0362 0001 | | .CONST 0x0001 ; Number of locals 0363 BODY_0360: 0363 INIT_0360: 0363 00da | | Load_Top At_Offset_2 0364 8231 | 1 | Call 0x1,0x31 0365 6802 |h | Jump_Zero 0x368 0366 e213 | | Load 0x1,0x13 0367 0257 | W | Execute Discrete,Raise 0368 00da | | Load_Top At_Offset_2 0369 0217 | | Execute Heap_Access,All_Reference 036a 3c0e |< | Execute Record,Field_Read,Field_Number 0xe 036b 0217 | | Execute Heap_Access,All_Reference 036c 0335 | 5 | Declare_Variable Array,Duplicate 036d 00cd | | Action Spare6_Action 036e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 036f TRAP_0360: 036f 0007 | | Action Break_Optional 0370 e006 | | Load 0x0,0x6 0371 180e | | Execute Package,Field_Execute,Field_Number 0xe 0372 4802 |H | Short_Literal 0x2 0373 0092 0450 | P| Action Push_String_Extended,0x450 ; "Exception in get_initial_command " 0375 4800 |H | Short_Literal 0x0 0376 4801 |H | Short_Literal 0x1 0377 e007 | | Load 0x0,0x7 0378 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0379 01cc | | Execute Vector,Catenate 037a e008 | | Load 0x0,0x8 037b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 037c 00d8 | | Load_Top At_Offset_0 037d 0101 | | Execute Exception,Reraise 037e 0000 0000 | | .XXX[0x2] 0380 ; -------------------------------------------------------------------------------------- 0380 ; SUBPROGRAM 0380 ; -------------------------------------------------------------------------------------- 0380 0383 | | .CONST 0x0383 ; Address of begin 0381 038c | | .CONST 0x038c ; Address of exception handler 0382 0001 | | .CONST 0x0001 ; Number of locals 0383 BODY_0380: 0383 INIT_0380: 0383 00da | | Load_Top At_Offset_2 0384 8231 | 1 | Call 0x1,0x31 0385 6802 |h | Jump_Zero 0x388 0386 e213 | | Load 0x1,0x13 0387 0257 | W | Execute Discrete,Raise 0388 00da | | Load_Top At_Offset_2 0389 0217 | | Execute Heap_Access,All_Reference 038a 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 038b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 038c TRAP_0380: 038c 0007 | | Action Break_Optional 038d e006 | | Load 0x0,0x6 038e 180e | | Execute Package,Field_Execute,Field_Number 0xe 038f 4802 |H | Short_Literal 0x2 0390 0092 0451 | Q| Action Push_String_Extended,0x451 ; "Exception in check_command_status " 0392 4800 |H | Short_Literal 0x0 0393 4801 |H | Short_Literal 0x1 0394 e007 | | Load 0x0,0x7 0395 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0396 01cc | | Execute Vector,Catenate 0397 e008 | | Load 0x0,0x8 0398 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0399 00d8 | | Load_Top At_Offset_0 039a 0101 | | Execute Exception,Reraise 039b 0000 0000 | | .BLANK 0000[0x5] 03a0 ; -------------------------------------------------------------------------------------- 03a0 ; SUBPROGRAM 03a0 ; -------------------------------------------------------------------------------------- 03a0 03a3 | | .CONST 0x03a3 ; Address of begin 03a1 03af | | .CONST 0x03af ; Address of exception handler 03a2 0001 | | .CONST 0x0001 ; Number of locals 03a3 BODY_03a0: 03a3 INIT_03a0: 03a3 00da | | Load_Top At_Offset_2 03a4 8231 | 1 | Call 0x1,0x31 03a5 6802 |h | Jump_Zero 0x3a8 03a6 e213 | | Load 0x1,0x13 03a7 0257 | W | Execute Discrete,Raise 03a8 00da | | Load_Top At_Offset_2 03a9 0217 | | Execute Heap_Access,All_Reference 03aa 3c0f |< | Execute Record,Field_Read,Field_Number 0xf 03ab 0217 | | Execute Heap_Access,All_Reference 03ac 0335 | 5 | Declare_Variable Array,Duplicate 03ad 00cd | | Action Spare6_Action 03ae 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03af TRAP_03a0: 03af 0007 | | Action Break_Optional 03b0 e006 | | Load 0x0,0x6 03b1 180e | | Execute Package,Field_Execute,Field_Number 0xe 03b2 4802 |H | Short_Literal 0x2 03b3 0092 0452 | R| Action Push_String_Extended,0x452 ; "Exception in get_transmit_before_login " 03b5 4800 |H | Short_Literal 0x0 03b6 4801 |H | Short_Literal 0x1 03b7 e007 | | Load 0x0,0x7 03b8 1815 | | Execute Package,Field_Execute,Field_Number 0x15 03b9 01cc | | Execute Vector,Catenate 03ba e008 | | Load 0x0,0x8 03bb 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03bc 00d8 | | Load_Top At_Offset_0 03bd 0101 | | Execute Exception,Reraise 03be 0000 0000 | | .XXX[0x2] 03c0 ; -------------------------------------------------------------------------------------- 03c0 ; SUBPROGRAM 03c0 ; -------------------------------------------------------------------------------------- 03c0 03c3 | | .CONST 0x03c3 ; Address of begin 03c1 03cf | | .CONST 0x03cf ; Address of exception handler 03c2 0001 | | .CONST 0x0001 ; Number of locals 03c3 BODY_03c0: 03c3 INIT_03c0: 03c3 00da | | Load_Top At_Offset_2 03c4 8231 | 1 | Call 0x1,0x31 03c5 6802 |h | Jump_Zero 0x3c8 03c6 e213 | | Load 0x1,0x13 03c7 0257 | W | Execute Discrete,Raise 03c8 00da | | Load_Top At_Offset_2 03c9 0217 | | Execute Heap_Access,All_Reference 03ca 3c10 |< | Execute Record,Field_Read,Field_Number 0x10 03cb 0217 | | Execute Heap_Access,All_Reference 03cc 0335 | 5 | Declare_Variable Array,Duplicate 03cd 00cd | | Action Spare6_Action 03ce 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03cf TRAP_03c0: 03cf 0007 | | Action Break_Optional 03d0 e006 | | Load 0x0,0x6 03d1 180e | | Execute Package,Field_Execute,Field_Number 0xe 03d2 4802 |H | Short_Literal 0x2 03d3 0092 0453 | S| Action Push_String_Extended,0x453 ; "Exception in get_transmit_after_login " 03d5 4800 |H | Short_Literal 0x0 03d6 4801 |H | Short_Literal 0x1 03d7 e007 | | Load 0x0,0x7 03d8 1815 | | Execute Package,Field_Execute,Field_Number 0x15 03d9 01cc | | Execute Vector,Catenate 03da e008 | | Load 0x0,0x8 03db 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03dc 00d8 | | Load_Top At_Offset_0 03dd 0101 | | Execute Exception,Reraise 03de 0000 0000 | | .XXX[0x2] 03e0 ; -------------------------------------------------------------------------------------- 03e0 ; SUBPROGRAM 03e0 ; -------------------------------------------------------------------------------------- 03e0 03e3 | | .CONST 0x03e3 ; Address of begin 03e1 03e9 | | .CONST 0x03e9 ; Address of exception handler 03e2 0001 | | .CONST 0x0001 ; Number of locals 03e3 BODY_03e0: 03e3 INIT_03e0: 03e3 00da | | Load_Top At_Offset_2 03e4 0217 | | Execute Heap_Access,All_Reference 03e5 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 03e6 0335 | 5 | Declare_Variable Array,Duplicate 03e7 00cd | | Action Spare6_Action 03e8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03e9 TRAP_03e0: 03e9 0007 | | Action Break_Optional 03ea e006 | | Load 0x0,0x6 03eb 180e | | Execute Package,Field_Execute,Field_Number 0xe 03ec 4802 |H | Short_Literal 0x2 03ed 0092 0454 | T| Action Push_String_Extended,0x454 ; "Exception in get_patterns " 03ef 4800 |H | Short_Literal 0x0 03f0 4801 |H | Short_Literal 0x1 03f1 e007 | | Load 0x0,0x7 03f2 1815 | | Execute Package,Field_Execute,Field_Number 0x15 03f3 01cc | | Execute Vector,Catenate 03f4 e008 | | Load 0x0,0x8 03f5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03f6 00d8 | | Load_Top At_Offset_0 03f7 0101 | | Execute Exception,Reraise 03f8 ; -------------------------------------------------------------------------------------- 03f8 ; SUBPROGRAM 03f8 ; -------------------------------------------------------------------------------------- 03f8 03fd | | .CONST 0x03fd ; Address of begin 03f9 0404 | | .CONST 0x0404 ; Address of exception handler 03fa 0002 | | .CONST 0x0002 ; Number of locals 03fb INIT_03f8: 03fb e22a | * | Load 0x1,0x2a 03fc 0007 | | Action Break_Optional 03fd BODY_03f8: 03fd 00db | | Load_Top At_Offset_3 03fe e22a | * | Load 0x1,0x2a 03ff e5fe | | Load 0x2,-0x2 0400 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 0401 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0402 00d8 | | Load_Top At_Offset_0 0403 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0404 TRAP_03f8: 0404 0007 | | Action Break_Optional 0405 e006 | | Load 0x0,0x6 0406 180e | | Execute Package,Field_Execute,Field_Number 0xe 0407 4802 |H | Short_Literal 0x2 0408 0092 0455 | U| Action Push_String_Extended,0x455 ; "Exception in new_string " 040a 4800 |H | Short_Literal 0x0 040b 4801 |H | Short_Literal 0x1 040c e007 | | Load 0x0,0x7 040d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 040e 01cc | | Execute Vector,Catenate 040f e008 | | Load 0x0,0x8 0410 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0411 00d8 | | Load_Top At_Offset_0 0412 0101 | | Execute Exception,Reraise 0413 0000 0000 | | .BLANK 0000[0x5] 0418 ; -------------------------------------------------------------------------------------- 0418 ; SUBPROGRAM 0418 ; -------------------------------------------------------------------------------------- 0418 041b | | .CONST 0x041b ; Address of begin 0419 0004 | | .CONST 0x0004 ; Address of exception handler 041a 0001 | | .CONST 0x0001 ; Number of locals 041b BODY_0418: 041b INIT_0418: 041b 00da | | Load_Top At_Offset_2 041c 021d | | Execute Heap_Access,Is_Null 041d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 041e 0000 0000 | | .XXX[0x2] 0420 ; -------------------------------------------------------------------------------------- 0420 ; SUBPROGRAM 0420 ; -------------------------------------------------------------------------------------- 0420 0423 | # | .CONST 0x0423 ; Address of begin 0421 0004 | | .CONST 0x0004 ; Address of exception handler 0422 0001 | | .CONST 0x0001 ; Number of locals 0423 BODY_0420: 0423 INIT_0420: 0423 4608 |F | Jump_Case 0x9 0424 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0425 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0426 7819 |x | Jump 0x440 ; case 0x2 0427 7818 |x | Jump 0x440 ; case 0x3 0428 7817 |x | Jump 0x440 ; case 0x4 0429 7816 |x | Jump 0x440 ; case 0x5 042a 7815 |x | Jump 0x440 ; case 0x6 042b 7801 |x | Jump 0x42d ; case 0x7 042c 7809 |x | Jump 0x436 ; case 0x8 042d 00db | | Load_Top At_Offset_3 042e 4801 |H | Short_Literal 0x1 042f e5fe | | Load 0x2,-0x2 0430 00e9 | | Load_Encached String_Cache 0431 035b | [ | Declare_Type Array,Constrained 0432 4801 |H | Short_Literal 0x1 0433 e5ff | | Load 0x2,-0x1 0434 031b | | Declare_Type Variant_Record,Constrained 0435 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0436 00db | | Load_Top At_Offset_3 0437 00db | | Load_Top At_Offset_3 0438 02fc | | Declare_Variable Variant_Record,With_Constraint 0439 4801 |H | Short_Literal 0x1 043a e5fe | | Load 0x2,-0x2 043b 00e9 | | Load_Encached String_Cache 043c 0334 | 4 | Declare_Variable Array,With_Constraint 043d 2d02 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x2 043e 016a | j | QQ_execute Variant_Record,XXX 043f 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0440 0869 | i | Execute_Immediate Raise,0x69 0441 ; -------------------------------------------------------------------------------------- 0441 ; STRING TABLE 0441 ; -------------------------------------------------------------------------------------- 0441 002c | , | .STRTAB 0x002c->0x0457 ; "Exception in Build1 " 0442 003e | > | .STRTAB 0x003e->0x0461 ; "Exception in build2 " 0443 0050 | P | .STRTAB 0x0050->0x046b ; "Exception in get_user_name_prompt " 0444 0070 | p | .STRTAB 0x0070->0x047c ; "Exception in get_password_prompt " 0445 008f | | .STRTAB 0x008f->0x048c ; "Exception in get_command_prompt " 0446 00ad | | .STRTAB 0x00ad->0x049c ; "Exception in get_password_failure " 0447 00cd | | .STRTAB 0x00cd->0x04ad ; "Exception in get_error_patterns " 0448 00eb | | .STRTAB 0x00eb->0x04bd ; "Exception in get_error_patterns_count " 0449 010f | | .STRTAB 0x010f->0x04d0 ; "Exception in get_warning_patterns " 044a 012f | / | .STRTAB 0x012f->0x04e1 ; "Exception in get_warning_patterns_count " 044b 0155 | U | .STRTAB 0x0155->0x04f5 ; "Exception in get_status_command " 044c 0173 | s | .STRTAB 0x0173->0x0505 ; "Exception in get_status_code_start " 044d 0194 | | .STRTAB 0x0194->0x0517 ; "Exception in get_status_code_length " 044e 01b6 | | .STRTAB 0x01b6->0x0529 ; "Exception in get_dir_command " 044f 01d1 | | .STRTAB 0x01d1->0x0537 ; "Exception in initial_comamnd_specified " 0450 01f6 | | .STRTAB 0x01f6->0x054b ; "Exception in get_initial_command " 0451 0215 | | .STRTAB 0x0215->0x055b ; "Exception in check_command_status " 0452 0235 | 5 | .STRTAB 0x0235->0x056c ; "Exception in get_transmit_before_login " 0453 025a | Z | .STRTAB 0x025a->0x0580 ; "Exception in get_transmit_after_login " 0454 027e | ~ | .STRTAB 0x027e->0x0593 ; "Exception in get_patterns " 0455 0296 | | .STRTAB 0x0296->0x05a0 ; "Exception in new_string " 0456 02ad | | .STREND 0x02ad->0x05ac 0457 4578 6365 |Exce| .STRTAB_STRINGS 05ad 0000 0000 | | .XXX[0x3] 05af 0000 | | 05b0 ; -------------------------------------------------------------------------------------- 05b0 ; Debug Table 05b0 ; -------------------------------------------------------------------------------------- 05b0 0004 000d | | .DEBUG4 0x0004,0x000d,0x50b3,0x0000,0x0001,0x0000 05b6 0000 0000 | | .XXX[0x3] 05b8 0000 | | 05b9 2436 8000 |$6 | .XXX[0x2] 05bb 0000 0000 | | .BLANK 0000[0x4] 05bf 24cb |$ | .XXX[0x1] 05c0 0000 0000 | | .BLANK 0000[0x19] 05d9 23a2 0000 |# | .XXX[0x6] 05db 2499 8000 |$ | 05dd 24fc 8000 |$ | 05df 0000 0000 | | .BLANK 0000[0x8] 05e7 1fc7 0000 | | .XXX[0xf] 05e9 0000 0000 | | 05eb 1c80 8000 | | 05ed 0000 4007 | @ | 05ef e820 0000 | | 05f1 0000 0801 | | 05f3 ab56 0000 | V | 05f5 0004 | | 05f6 0000 0000 | | .BLANK 0000[0xa]