|
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_0698fd
└─⟦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 0370 | p | .CONST 0x0370 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 001c | | .CONST 0x001c ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0011 | | .CONST 0x0011 ; Number of locals 000b INIT_0008: 000b 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated 000d 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated 000f 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated 0011 00bf | | Action Accept_Activation 0012 029d 018b | | Declare_Subprogram INIT_0188,For_Outer_Call 0014 029d 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call 0016 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0017 00c7 | | Action Elaborate_Subprogram 0018 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0019 00c7 | | Action Elaborate_Subprogram 001a 1d0f | | Execute_Immediate Reference_Lex_1,0xf 001b 00c7 | | Action Elaborate_Subprogram 001c BODY_0008: 001c 00bc | | Action Signal_Activated 001d 00bb | | Action Signal_Completion 001e 0000 0000 | | .XXX[0x2] 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 0023 | # | .CONST 0x0023 ; Address of begin 0021 0004 | | .CONST 0x0004 ; Address of exception handler 0022 0001 | | .CONST 0x0001 ; Number of locals 0023 BODY_0020: 0023 INIT_0020: 0023 00da | | Load_Top At_Offset_2 0024 8211 | | Call 0x1,0x11 0025 e001 | | Load 0x0,0x1 0026 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0027 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0028 ; -------------------------------------------------------------------------------------- 0028 ; SUBPROGRAM 0028 ; -------------------------------------------------------------------------------------- 0028 0034 | 4 | .CONST 0x0034 ; Address of begin 0029 004f | O | .CONST 0x004f ; Address of exception handler 002a 0004 | | .CONST 0x0004 ; Number of locals 002b INIT_0028: 002b 00e1 | | Load_Encached Boolean_Cache 002c 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 002d e002 | | Load 0x0,0x2 002e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 002f 02c7 | | Declare_Variable Any 0030 00d8 | | Load_Top At_Offset_0 0031 1c00 | | Execute_Immediate Run_Utility,0x0 0032 029f 01db | | Declare_Subprogram INIT_01d8,For_Call 0034 BODY_0028: 0034 e5fa | | Load 0x2,-0x6 0035 e003 | | Load 0x0,0x3 0036 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0037 c5fa | | Store 0x2,-0x6 0038 00d9 | | Load_Top At_Offset_1 0039 e5fc | | Load 0x2,-0x4 003a 8210 | | Call 0x1,0x10 003b c403 | | Store 0x2,0x3 003c 00cf | | Action Mark_Auxiliary 003d 7805 |x | Jump 0x43 003e 8404 | | Call 0x2,0x4 003f 00da | | Load_Top At_Offset_2 0040 e002 | | Load 0x0,0x2 0041 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0042 00c9 | | Action Pop_Auxiliary_Loop 0043 00db | | Load_Top At_Offset_3 0044 6804 |h | Jump_Zero 0x49 0045 00da | | Load_Top At_Offset_2 0046 e002 | | Load 0x0,0x2 0047 180e | | Execute Package,Field_Execute,Field_Number 0xe 0048 6ff5 |o | Jump_Zero 0x3e 0049 00ce | | Action Pop_Auxiliary 004a 00d9 | | Load_Top At_Offset_1 004b e002 | | Load 0x0,0x2 004c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 004d c403 | | Store 0x2,0x3 004e 4505 |E | Exit_Suprogram New_Top_Offset 0x5 004f TRAP_0028: 004f 4922 |I" | Short_Literal 0x122 0050 010f | | Execute Exception,Equal 0051 7006 |p | Jump_Nonzero 0x58 0052 4923 |I# | Short_Literal 0x123 0053 010f | | Execute Exception,Equal 0054 7003 |p | Jump_Nonzero 0x58 0055 4924 |I$ | Short_Literal 0x124 0056 010f | | Execute Exception,Equal 0057 680a |h | Jump_Zero 0x62 0058 e5fa | | Load 0x2,-0x6 0059 4802 |H | Short_Literal 0x2 005a 0092 0212 | | Action Push_String_Extended,0x212 ; "Remote_Passwords object does not exist; check your Profile.Remote_Passwords session switch" 005c 0092 0213 | | Action Push_String_Extended,0x213 ; "NONEXISTENT_OBJECT" 005e e003 | | Load 0x0,0x3 005f 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0060 c5fa | | Store 0x2,-0x6 0061 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0062 4931 |I1 | Short_Literal 0x131 0063 010f | | Execute Exception,Equal 0064 6812 |h | Jump_Zero 0x77 0065 e5fa | | Load 0x2,-0x6 0066 4802 |H | Short_Literal 0x2 0067 0092 0214 | | Action Push_String_Extended,0x214 ; "Insufficient privilege to access " 0069 e5fc | | Load 0x2,-0x4 006a e004 | | Load 0x0,0x4 006b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 006c 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 006d 01cc | | Execute Vector,Catenate 006e 0092 0215 | | Action Push_String_Extended,0x215 ; "; check the ACLs on your Remote_Passwords file" 0070 01cc | | Execute Vector,Catenate 0071 0092 0216 | | Action Push_String_Extended,0x216 ; "ACCESS_ERROR" 0073 e003 | | Load 0x0,0x3 0074 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0075 c5fa | | Store 0x2,-0x6 0076 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0077 4932 |I2 | Short_Literal 0x132 0078 010f | | Execute Exception,Equal 0079 6815 |h | Jump_Zero 0x8f 007a e5fa | | Load 0x2,-0x6 007b 4802 |H | Short_Literal 0x2 007c 0092 0217 | | Action Push_String_Extended,0x217 ; "Remote_Passwords file " 007e e5fc | | Load 0x2,-0x4 007f e004 | | Load 0x0,0x4 0080 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0081 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0082 01cc | | Execute Vector,Catenate 0083 0092 0218 | | Action Push_String_Extended,0x218 ; " is not checked out; use Cmvc.Check_Out" 0085 01cc | | Execute Vector,Catenate 0086 0092 0219 | | Action Push_String_Extended,0x219 ; " before attempting this operation again" 0088 01cc | | Execute Vector,Catenate 0089 0092 021a | | Action Push_String_Extended,0x21a ; "POLICY_ERROR" 008b e003 | | Load 0x0,0x3 008c 181a | | Execute Package,Field_Execute,Field_Number 0x1a 008d c5fa | | Store 0x2,-0x6 008e 4505 |E | Exit_Suprogram New_Top_Offset 0x5 008f 4934 |I4 | Short_Literal 0x134 0090 010f | | Execute Exception,Equal 0091 6815 |h | Jump_Zero 0xa7 0092 e5fa | | Load 0x2,-0x6 0093 4802 |H | Short_Literal 0x2 0094 0092 0217 | | Action Push_String_Extended,0x217 ; "Remote_Passwords file " 0096 e5fc | | Load 0x2,-0x4 0097 e004 | | Load 0x0,0x4 0098 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0099 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 009a 01cc | | Execute Vector,Catenate 009b 0092 021b | | Action Push_String_Extended,0x21b ; " is frozen; use Library.Unfreeze before attempting" 009d 01cc | | Execute Vector,Catenate 009e 0092 021c | | Action Push_String_Extended,0x21c ; " this operation again" 00a0 01cc | | Execute Vector,Catenate 00a1 0092 021a | | Action Push_String_Extended,0x21a ; "POLICY_ERROR" 00a3 e003 | | Load 0x0,0x3 00a4 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00a5 c5fa | | Store 0x2,-0x6 00a6 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00a7 4935 |I5 | Short_Literal 0x135 00a8 010f | | Execute Exception,Equal 00a9 6815 |h | Jump_Zero 0xbf 00aa e5fa | | Load 0x2,-0x6 00ab 4802 |H | Short_Literal 0x2 00ac 0092 0217 | | Action Push_String_Extended,0x217 ; "Remote_Passwords file " 00ae e5fc | | Load 0x2,-0x4 00af e004 | | Load 0x0,0x4 00b0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00b1 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 00b2 01cc | | Execute Vector,Catenate 00b3 0092 021d | | Action Push_String_Extended,0x21d ; " is locked; use What.Locks to determine who is" 00b5 01cc | | Execute Vector,Catenate 00b6 0092 021e | | Action Push_String_Extended,0x21e ; " holding the locks on this object" 00b8 01cc | | Execute Vector,Catenate 00b9 0092 021f | | Action Push_String_Extended,0x21f ; "LOCK_ERROR" 00bb e003 | | Load 0x0,0x3 00bc 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00bd c5fa | | Store 0x2,-0x6 00be 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00bf 00da | | Load_Top At_Offset_2 00c0 e005 | | Load 0x0,0x5 00c1 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00c2 6804 |h | Jump_Zero 0xc7 00c3 00da | | Load_Top At_Offset_2 00c4 e002 | | Load 0x0,0x2 00c5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00c6 c403 | | Store 0x2,0x3 00c7 e5fa | | Load 0x2,-0x6 00c8 e006 | | Load 0x0,0x6 00c9 180d | | Execute Package,Field_Execute,Field_Number 0xd 00ca 4802 |H | Short_Literal 0x2 00cb 0092 0220 | | Action Push_String_Extended,0x220 ; "UNHANDLED_EXCEPTION" 00cd e003 | | Load 0x0,0x3 00ce 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00cf e003 | | Load 0x0,0x3 00d0 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00d1 c5fa | | Store 0x2,-0x6 00d2 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00d3 0000 0000 | | .BLANK 0000[0x5] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00e4 | | .CONST 0x00e4 ; Address of begin 00d9 00fd | | .CONST 0x00fd ; Address of exception handler 00da 0004 | | .CONST 0x0004 ; Number of locals 00db INIT_00d8: 00db 00e1 | | Load_Encached Boolean_Cache 00dc 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 00dd e002 | | Load 0x0,0x2 00de 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00df 02c7 | | Declare_Variable Any 00e0 00d8 | | Load_Top At_Offset_0 00e1 1c00 | | Execute_Immediate Run_Utility,0x0 00e2 029f 01fb | | Declare_Subprogram INIT_01f8,For_Call 00e4 BODY_00d8: 00e4 e5fa | | Load 0x2,-0x6 00e5 e003 | | Load 0x0,0x3 00e6 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00e7 c5fa | | Store 0x2,-0x6 00e8 00d9 | | Load_Top At_Offset_1 00e9 e5fc | | Load 0x2,-0x4 00ea 8210 | | Call 0x1,0x10 00eb c403 | | Store 0x2,0x3 00ec 00cf | | Action Mark_Auxiliary 00ed 7805 |x | Jump 0xf3 00ee 8404 | | Call 0x2,0x4 00ef 00da | | Load_Top At_Offset_2 00f0 e002 | | Load 0x0,0x2 00f1 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00f2 00c9 | | Action Pop_Auxiliary_Loop 00f3 00da | | Load_Top At_Offset_2 00f4 e002 | | Load 0x0,0x2 00f5 180e | | Execute Package,Field_Execute,Field_Number 0xe 00f6 6ff7 |o | Jump_Zero 0xee 00f7 00ce | | Action Pop_Auxiliary 00f8 00d9 | | Load_Top At_Offset_1 00f9 e002 | | Load 0x0,0x2 00fa 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00fb c403 | | Store 0x2,0x3 00fc 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00fd TRAP_00d8: 00fd 4922 |I" | Short_Literal 0x122 00fe 010f | | Execute Exception,Equal 00ff 7006 |p | Jump_Nonzero 0x106 0100 4923 |I# | Short_Literal 0x123 0101 010f | | Execute Exception,Equal 0102 7003 |p | Jump_Nonzero 0x106 0103 4924 |I$ | Short_Literal 0x124 0104 010f | | Execute Exception,Equal 0105 680a |h | Jump_Zero 0x110 0106 e5fa | | Load 0x2,-0x6 0107 4802 |H | Short_Literal 0x2 0108 0092 0221 | !| Action Push_String_Extended,0x221 ; "Remote_Sessions object does not exist; check your Profile.Remote_Sessions session switch" 010a 0092 0213 | | Action Push_String_Extended,0x213 ; "NONEXISTENT_OBJECT" 010c e003 | | Load 0x0,0x3 010d 181a | | Execute Package,Field_Execute,Field_Number 0x1a 010e c5fa | | Store 0x2,-0x6 010f 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0110 4931 |I1 | Short_Literal 0x131 0111 010f | | Execute Exception,Equal 0112 6812 |h | Jump_Zero 0x125 0113 e5fa | | Load 0x2,-0x6 0114 4802 |H | Short_Literal 0x2 0115 0092 0214 | | Action Push_String_Extended,0x214 ; "Insufficient privilege to access " 0117 e5fc | | Load 0x2,-0x4 0118 e004 | | Load 0x0,0x4 0119 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 011a 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 011b 01cc | | Execute Vector,Catenate 011c 0092 0222 | "| Action Push_String_Extended,0x222 ; "; check the ACLs on your Remote_Sessions file" 011e 01cc | | Execute Vector,Catenate 011f 0092 0216 | | Action Push_String_Extended,0x216 ; "ACCESS_ERROR" 0121 e003 | | Load 0x0,0x3 0122 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0123 c5fa | | Store 0x2,-0x6 0124 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0125 4932 |I2 | Short_Literal 0x132 0126 010f | | Execute Exception,Equal 0127 6815 |h | Jump_Zero 0x13d 0128 e5fa | | Load 0x2,-0x6 0129 4802 |H | Short_Literal 0x2 012a 0092 0223 | #| Action Push_String_Extended,0x223 ; "Remote_Sessions file " 012c e5fc | | Load 0x2,-0x4 012d e004 | | Load 0x0,0x4 012e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 012f 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0130 01cc | | Execute Vector,Catenate 0131 0092 0218 | | Action Push_String_Extended,0x218 ; " is not checked out; use Cmvc.Check_Out" 0133 01cc | | Execute Vector,Catenate 0134 0092 0219 | | Action Push_String_Extended,0x219 ; " before attempting this operation again" 0136 01cc | | Execute Vector,Catenate 0137 0092 021a | | Action Push_String_Extended,0x21a ; "POLICY_ERROR" 0139 e003 | | Load 0x0,0x3 013a 181a | | Execute Package,Field_Execute,Field_Number 0x1a 013b c5fa | | Store 0x2,-0x6 013c 4505 |E | Exit_Suprogram New_Top_Offset 0x5 013d 4934 |I4 | Short_Literal 0x134 013e 010f | | Execute Exception,Equal 013f 6815 |h | Jump_Zero 0x155 0140 e5fa | | Load 0x2,-0x6 0141 4802 |H | Short_Literal 0x2 0142 0092 0223 | #| Action Push_String_Extended,0x223 ; "Remote_Sessions file " 0144 e5fc | | Load 0x2,-0x4 0145 e004 | | Load 0x0,0x4 0146 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0147 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0148 01cc | | Execute Vector,Catenate 0149 0092 021b | | Action Push_String_Extended,0x21b ; " is frozen; use Library.Unfreeze before attempting" 014b 01cc | | Execute Vector,Catenate 014c 0092 021c | | Action Push_String_Extended,0x21c ; " this operation again" 014e 01cc | | Execute Vector,Catenate 014f 0092 021a | | Action Push_String_Extended,0x21a ; "POLICY_ERROR" 0151 e003 | | Load 0x0,0x3 0152 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0153 c5fa | | Store 0x2,-0x6 0154 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0155 4935 |I5 | Short_Literal 0x135 0156 010f | | Execute Exception,Equal 0157 6815 |h | Jump_Zero 0x16d 0158 e5fa | | Load 0x2,-0x6 0159 4802 |H | Short_Literal 0x2 015a 0092 0223 | #| Action Push_String_Extended,0x223 ; "Remote_Sessions file " 015c e5fc | | Load 0x2,-0x4 015d e004 | | Load 0x0,0x4 015e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 015f 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0160 01cc | | Execute Vector,Catenate 0161 0092 021d | | Action Push_String_Extended,0x21d ; " is locked; use What.Locks to determine who is" 0163 01cc | | Execute Vector,Catenate 0164 0092 021e | | Action Push_String_Extended,0x21e ; " holding the locks on this object" 0166 01cc | | Execute Vector,Catenate 0167 0092 021f | | Action Push_String_Extended,0x21f ; "LOCK_ERROR" 0169 e003 | | Load 0x0,0x3 016a 181a | | Execute Package,Field_Execute,Field_Number 0x1a 016b c5fa | | Store 0x2,-0x6 016c 4505 |E | Exit_Suprogram New_Top_Offset 0x5 016d 00da | | Load_Top At_Offset_2 016e e005 | | Load 0x0,0x5 016f 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0170 6804 |h | Jump_Zero 0x175 0171 00da | | Load_Top At_Offset_2 0172 e002 | | Load 0x0,0x2 0173 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0174 c403 | | Store 0x2,0x3 0175 e5fa | | Load 0x2,-0x6 0176 e006 | | Load 0x0,0x6 0177 180d | | Execute Package,Field_Execute,Field_Number 0xd 0178 4802 |H | Short_Literal 0x2 0179 0092 0220 | | Action Push_String_Extended,0x220 ; "UNHANDLED_EXCEPTION" 017b e003 | | Load 0x0,0x3 017c 181c | | Execute Package,Field_Execute,Field_Number 0x1c 017d e003 | | Load 0x0,0x3 017e 181b | | Execute Package,Field_Execute,Field_Number 0x1b 017f c5fa | | Store 0x2,-0x6 0180 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0181 0000 0000 | | .BLANK 0000[0x7] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 018b | | .CONST 0x018b ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0001 | | .CONST 0x0001 ; Number of locals 018b BODY_0188: 018b INIT_0188: 018b 00da | | Load_Top At_Offset_2 018c e004 | | Load 0x0,0x4 018d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 018e 6802 |h | Jump_Zero 0x191 018f 4923 |I# | Short_Literal 0x123 0190 0257 | W | Execute Discrete,Raise 0191 00db | | Load_Top At_Offset_3 0192 0092 0224 | $| Action Push_String_Extended,0x224 ; "SYNCHRONIZED" 0194 e5ff | | Load 0x2,-0x1 0195 e004 | | Load 0x0,0x4 0196 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0197 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0198 4800 |H | Short_Literal 0x0 0199 e005 | | Load 0x0,0x5 019a 1815 | | Execute Package,Field_Execute,Field_Number 0x15 019b c5fe | | Store 0x2,-0x2 019c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 019d 0000 0000 | | .XXX[0x3] 019f 0000 | | 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01ab | | .CONST 0x01ab ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0003 | | .CONST 0x0003 ; Number of locals 01a3 INIT_01a0: 01a3 00da | | Load_Top At_Offset_2 01a4 01dd | | Execute Vector,First 01a5 00e4 | | Load_Encached Positive_Cache 01a6 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 01a7 00db | | Load_Top At_Offset_3 01a8 01dc | | Execute Vector,Last 01a9 00e3 | | Load_Encached Natural_Cache 01aa 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 01ab BODY_01a0: 01ab 00cf | | Action Mark_Auxiliary 01ac 7804 |x | Jump 0x1b1 01ad 00da | | Load_Top At_Offset_2 01ae 0a01 | | Execute_Immediate Plus,0x1 01af 005b | [ | Store_Top Discrete,At_Offset_3 01b0 00c9 | | Action Pop_Auxiliary_Loop 01b1 00da | | Load_Top At_Offset_2 01b2 00da | | Load_Top At_Offset_2 01b3 027a | z | Execute Discrete,Less_Equal 01b4 6806 |h | Jump_Zero 0x1bb 01b5 00da | | Load_Top At_Offset_2 01b6 e5ff | | Load 0x2,-0x1 01b7 01d7 | | Execute Vector,Field_Read 01b8 e002 | | Load 0x0,0x2 01b9 180f | | Execute Package,Field_Execute,Field_Number 0xf 01ba 77f2 |w | Jump_Nonzero 0x1ad 01bb 00c9 | | Action Pop_Auxiliary_Loop 01bc 7804 |x | Jump 0x1c1 01bd 00d9 | | Load_Top At_Offset_1 01be 0aff | | Execute_Immediate Plus,-0x1 01bf 005a | Z | Store_Top Discrete,At_Offset_2 01c0 00c9 | | Action Pop_Auxiliary_Loop 01c1 00da | | Load_Top At_Offset_2 01c2 00da | | Load_Top At_Offset_2 01c3 027a | z | Execute Discrete,Less_Equal 01c4 6806 |h | Jump_Zero 0x1cb 01c5 00d9 | | Load_Top At_Offset_1 01c6 e5ff | | Load 0x2,-0x1 01c7 01d7 | | Execute Vector,Field_Read 01c8 e002 | | Load 0x0,0x2 01c9 180f | | Execute Package,Field_Execute,Field_Number 0xf 01ca 77f2 |w | Jump_Nonzero 0x1bd 01cb 00ce | | Action Pop_Auxiliary 01cc 00d9 | | Load_Top At_Offset_1 01cd 00d9 | | Load_Top At_Offset_1 01ce e5ff | | Load 0x2,-0x1 01cf 01cf | | Execute Vector,Slice_Read 01d0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01d1 0000 0000 | | .BLANK 0000[0x7] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01e4 | | .CONST 0x01e4 ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0004 | | .CONST 0x0004 ; Number of locals 01db INIT_01d8: 01db e403 | | Load 0x2,0x3 01dc e002 | | Load 0x0,0x2 01dd 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01de e403 | | Load 0x2,0x3 01df e002 | | Load 0x0,0x2 01e0 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01e1 e403 | | Load 0x2,0x3 01e2 e002 | | Load 0x0,0x2 01e3 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01e4 BODY_01d8: 01e4 e402 | | Load 0x2,0x2 01e5 e5fb | | Load 0x2,-0x5 01e6 00d8 | | Load_Top At_Offset_0 01e7 0120 | | Execute Any,Is_Value 01e8 6803 |h | Jump_Zero 0x1ec 01e9 e5fd | | Load 0x2,-0x3 01ea 011e | | Execute Any,Convert 01eb 7802 |x | Jump 0x1ee 01ec e5fd | | Load 0x2,-0x3 01ed 0119 | | Execute Any,Check_In_Formal_Type 01ee 00da | | Load_Top At_Offset_2 01ef e603 | | Load 0x3,0x3 01f0 e602 | | Load 0x3,0x2 01f1 85fe | | Call 0x2,-0x2 01f2 c5fb | | Store 0x2,-0x5 01f3 c402 | | Store 0x2,0x2 01f4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01f5 0000 0000 | | .XXX[0x3] 01f7 0000 | | 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 0202 | | .CONST 0x0202 ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0003 | | .CONST 0x0003 ; Number of locals 01fb INIT_01f8: 01fb e403 | | Load 0x2,0x3 01fc e002 | | Load 0x0,0x2 01fd 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01fe 820d | | Call 0x1,0xd 01ff e403 | | Load 0x2,0x3 0200 e002 | | Load 0x0,0x2 0201 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0202 BODY_01f8: 0202 e402 | | Load 0x2,0x2 0203 e5fb | | Load 0x2,-0x5 0204 00d8 | | Load_Top At_Offset_0 0205 0120 | | Execute Any,Is_Value 0206 6803 |h | Jump_Zero 0x20a 0207 e5fd | | Load 0x2,-0x3 0208 011e | | Execute Any,Convert 0209 7802 |x | Jump 0x20c 020a e5fd | | Load 0x2,-0x3 020b 0119 | | Execute Any,Check_In_Formal_Type 020c 00da | | Load_Top At_Offset_2 020d e602 | | Load 0x3,0x2 020e 85fe | | Call 0x2,-0x2 020f c5fb | | Store 0x2,-0x5 0210 c402 | | Store 0x2,0x2 0211 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0212 ; -------------------------------------------------------------------------------------- 0212 ; STRING TABLE 0212 ; -------------------------------------------------------------------------------------- 0212 0028 | ( | .STRTAB 0x0028->0x0226 ; "Remote_Passwords object does not exist; check your Profile.Remote_Passwords session switch" 0213 0080 | | .STRTAB 0x0080->0x0253 ; "NONEXISTENT_OBJECT" 0214 0090 | | .STRTAB 0x0090->0x025c ; "Insufficient privilege to access " 0215 00af | | .STRTAB 0x00af->0x026c ; "; check the ACLs on your Remote_Passwords file" 0216 00db | | .STRTAB 0x00db->0x0283 ; "ACCESS_ERROR" 0217 00e5 | | .STRTAB 0x00e5->0x0289 ; "Remote_Passwords file " 0218 00f9 | | .STRTAB 0x00f9->0x0294 ; " is not checked out; use Cmvc.Check_Out" 0219 011e | | .STRTAB 0x011e->0x02a8 ; " before attempting this operation again" 021a 0143 | C | .STRTAB 0x0143->0x02bb ; "POLICY_ERROR" 021b 014d | M | .STRTAB 0x014d->0x02c1 ; " is frozen; use Library.Unfreeze before attempting" 021c 017d | } | .STRTAB 0x017d->0x02da ; " this operation again" 021d 0190 | | .STRTAB 0x0190->0x02e5 ; " is locked; use What.Locks to determine who is" 021e 01bc | | .STRTAB 0x01bc->0x02fc ; " holding the locks on this object" 021f 01db | | .STRTAB 0x01db->0x030c ; "LOCK_ERROR" 0220 01e3 | | .STRTAB 0x01e3->0x0311 ; "UNHANDLED_EXCEPTION" 0221 01f4 | | .STRTAB 0x01f4->0x031b ; "Remote_Sessions object does not exist; check your Profile.Remote_Sessions session switch" 0222 024a | J | .STRTAB 0x024a->0x0347 ; "; check the ACLs on your Remote_Sessions file" 0223 0275 | u | .STRTAB 0x0275->0x035d ; "Remote_Sessions file " 0224 0288 | | .STRTAB 0x0288->0x0368 ; "SYNCHRONIZED" 0225 0292 | | .STREND 0x0292->0x036e 0226 5265 6d6f |Remo| .STRTAB_STRINGS 036e 0000 0000 | | .XXX[0x2] 0370 ; -------------------------------------------------------------------------------------- 0370 ; Debug Table 0370 ; -------------------------------------------------------------------------------------- 0370 0004 0001 | | .DEBUG4 0x0004,0x0001,0xc858,0x0000,0x0001,0x0000 0376 4000 4000 |@ @ | .XXX[0x8a] 0378 0000 0006 | | 037a 0000 0007 | | 037c 0000 0001 | | 037e 0001 0000 | | 0380 0000 0019 | | 0382 0000 001e | | 0384 0000 0004 | | 0386 0004 0000 | | 0388 0000 0068 | h| 038a 0000 0080 | | 038c 0000 0010 | | 038e 0010 0000 | | 0390 0000 01b0 | | 0392 0000 0220 | | 0394 0000 0040 | @| 0396 0040 0000 | @ | 0398 0000 0700 | | 039a 0000 0900 | | 039c 0000 0100 | | 039e 0100 0000 | | 03a0 0000 1d00 | | 03a2 0000 2600 | & | 03a4 0000 0400 | | 03a6 0400 0000 | | 03a8 0000 7800 | x | 03aa 0000 a000 | | 03ac 0000 1000 | | 03ae 1000 0000 | | 03b0 0001 f000 | | 03b2 0002 a000 | | 03b4 0000 4000 | @ | 03b6 4000 0000 |@ | 03b8 0008 0000 | | 03ba 000b 0000 | | 03bc 0001 0001 | | 03be 0000 0000 | | 03c0 0021 0000 | ! | 03c2 002e 0000 | . | 03c4 0004 0004 | | 03c6 0000 0000 | | 03c8 0088 0000 | | 03ca 00c0 0000 | | 03cc 0010 0010 | | 03ce 0000 0000 | | 03d0 0230 0000 | 0 | 03d2 0320 0000 | | 03d4 0040 0040 | @ @| 03d6 0000 0000 | | 03d8 0900 0000 | | 03da 0d00 0000 | | 03dc 0100 0100 | | 03de 0000 0000 | | 03e0 2500 0000 |% | 03e2 3600 0000 |6 | 03e4 0400 0400 | | 03e6 0000 0000 | | 03e8 9800 0000 | | 03ea e000 0000 | | 03ec 1000 1000 | | 03ee 0000 0002 | | 03f0 7000 0003 |p | 03f2 a000 0000 | | 03f4 4000 4000 |@ @ | 03f6 0000 000a | | 03f8 0000 000f | | 03fa 0000 0001 | | 03fc 0001 0000 | | 03fe 0000 0029 | )|