|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Notes: 00_class, 5811_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0ea8df
└─⟦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 5811 |X | .CONST 0x5811 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0368 | h | .CONST 0x0368 ; 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 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0021 | ! | .CONST 0x0021 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0011 | | .CONST 0x0011 ; Number of locals 000b INIT_0008: 000b 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x03b2,0x8000,0x0000,0x0037,0xb0b4,0x0000,0x0007 ; Debug Table 0x0.0x0 = 0xb,0xffff 000d 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xd,0xfffe 000f 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xf,0xfffd 0011 00bf | | Action Accept_Activation 0012 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x0012,0x03ba,0x8000,0x0000,0x0037,0xb4e4,0x0000,0x000d ; Debug Table 0x1.0x0 = 0x12,0xffff 0013 0007 | | Action Break_Optional ; Debug Table 0x1.0x1 = 0x13,0xfffe 0014 0007 | | Action Break_Optional ; Debug Table 0x1.0x2 = 0x14,0xfffd 0015 0007 | | Action Break_Optional ; Debug Table 0x1.0x3 = 0x15,0xfffc 0016 0007 | | Action Break_Optional ; Debug Table 0x1.0x4 = 0x16,0xfffb 0017 029d 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call ; Debug Table 0x1.0x5 = 0x17,0xfffa 0019 029d 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call ; Debug Table 0x1.0x6 = 0x19,0xfff9 001b 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0x7 = 0x1b,0xfff8 001c 00c7 | | Action Elaborate_Subprogram 001d 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x8 = 0x1d,0xfff7 001e 00c7 | | Action Elaborate_Subprogram 001f 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x9 = 0x1f,0xfff6 0020 00c7 | | Action Elaborate_Subprogram 0021 BODY_0008: 0021 00bc | | Action Signal_Activated 0022 00bb | | Action Signal_Completion 0023 0000 0000 | | .BLANK 0000[0x5] 0028 ; -------------------------------------------------------------------------------------- 0028 ; SUBPROGRAM 0028 ; -------------------------------------------------------------------------------------- 0028 002b | + | .CONST 0x002b ; Address of begin 0029 0004 | | .CONST 0x0004 ; Address of exception handler 002a 0001 | | .CONST 0x0001 ; Number of locals 002b BODY_0028: 002b INIT_0028: 002b 00da | | Load_Top At_Offset_2 ; Debug Table 0x2 = .DEBUG 0x002b,0x03d0,0x0002,0x0000,0x0037,0xb0b4,0x0000,0x0008 ; Debug Table 0x2.0x0 = 0x2b,0x1 002c 8211 | | Call 0x1,0x11 002d e001 | | Load 0x0,0x1 002e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 002f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0030 ; -------------------------------------------------------------------------------------- 0030 ; SUBPROGRAM 0030 ; -------------------------------------------------------------------------------------- 0030 003c | < | .CONST 0x003c ; Address of begin 0031 0057 | W | .CONST 0x0057 ; Address of exception handler 0032 0004 | | .CONST 0x0004 ; Number of locals 0033 INIT_0030: 0033 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x3 = .DEBUG 0x0033,0x03d4,0x2801,0x0002,0x0037,0xb0b4,0x0000,0x0011 ; Debug Table 0x3.0x0 = 0x33,0xffff 0034 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0035 e002 | | Load 0x0,0x2 ; Debug Table 0x3.0x1 = 0x35,0xfffe 0036 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0037 02c7 | | Declare_Variable Any 0038 00d8 | | Load_Top At_Offset_0 0039 1c00 | | Execute_Immediate Run_Utility,0x0 003a 029f 01e3 | | Declare_Subprogram INIT_01e0,For_Call 003c BODY_0030: 003c e5fa | | Load 0x2,-0x6 ; Debug Table 0x3.0x2 = 0x3c,0x1 003d e003 | | Load 0x0,0x3 003e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 003f c5fa | | Store 0x2,-0x6 0040 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x3 = 0x40,0x2 0041 e5fc | | Load 0x2,-0x4 0042 8210 | | Call 0x1,0x10 0043 c403 | | Store 0x2,0x3 0044 00cf | | Action Mark_Auxiliary 0045 7805 |x | Jump 0x4b 0046 8404 | | Call 0x2,0x4 ; Debug Table 0x3.0x4 = 0x46,0x4 0047 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x5 = 0x47,0x5 0048 e002 | | Load 0x0,0x2 0049 1812 | | Execute Package,Field_Execute,Field_Number 0x12 004a 00c9 | | Action Pop_Auxiliary_Loop 004b 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x6 = 0x4b,0x3 004c 6804 |h | Jump_Zero 0x51 004d 00da | | Load_Top At_Offset_2 004e e002 | | Load 0x0,0x2 004f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0050 6ff5 |o | Jump_Zero 0x46 0051 00ce | | Action Pop_Auxiliary 0052 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x7 = 0x52,0x6 0053 e002 | | Load 0x0,0x2 0054 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0055 c403 | | Store 0x2,0x3 0056 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0057 TRAP_0030: 0057 4922 |I" | Short_Literal 0x122 0058 010f | | Execute Exception,Equal 0059 7006 |p | Jump_Nonzero 0x60 005a 4923 |I# | Short_Literal 0x123 005b 010f | | Execute Exception,Equal 005c 7003 |p | Jump_Nonzero 0x60 005d 4924 |I$ | Short_Literal 0x124 005e 010f | | Execute Exception,Equal 005f 680a |h | Jump_Zero 0x6a 0060 e5fa | | Load 0x2,-0x6 ; Debug Table 0x3.0x8 = 0x60,0x7 0061 4802 |H | Short_Literal 0x2 0062 0092 020a | | Action Push_String_Extended,0x20a ; "Remote_Passwords object does not exist; check your Profile.Remote_Passwords session switch" 0064 0092 020b | | Action Push_String_Extended,0x20b ; "NONEXISTENT_OBJECT" 0066 e003 | | Load 0x0,0x3 0067 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0068 c5fa | | Store 0x2,-0x6 0069 4505 |E | Exit_Suprogram New_Top_Offset 0x5 006a 4931 |I1 | Short_Literal 0x131 006b 010f | | Execute Exception,Equal 006c 6812 |h | Jump_Zero 0x7f 006d e5fa | | Load 0x2,-0x6 ; Debug Table 0x3.0x9 = 0x6d,0x8 006e 4802 |H | Short_Literal 0x2 006f 0092 020c | | Action Push_String_Extended,0x20c ; "Insufficient privilege to access " 0071 e5fc | | Load 0x2,-0x4 0072 e004 | | Load 0x0,0x4 0073 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0074 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0075 01cc | | Execute Vector,Catenate 0076 0092 020d | | Action Push_String_Extended,0x20d ; "; check the ACLs on your Remote_Passwords file" 0078 01cc | | Execute Vector,Catenate 0079 0092 020e | | Action Push_String_Extended,0x20e ; "ACCESS_ERROR" 007b e003 | | Load 0x0,0x3 007c 181a | | Execute Package,Field_Execute,Field_Number 0x1a 007d c5fa | | Store 0x2,-0x6 007e 4505 |E | Exit_Suprogram New_Top_Offset 0x5 007f 4932 |I2 | Short_Literal 0x132 0080 010f | | Execute Exception,Equal 0081 6815 |h | Jump_Zero 0x97 0082 e5fa | | Load 0x2,-0x6 ; Debug Table 0x3.0xa = 0x82,0x9 0083 4802 |H | Short_Literal 0x2 0084 0092 020f | | Action Push_String_Extended,0x20f ; "Remote_Passwords file " 0086 e5fc | | Load 0x2,-0x4 0087 e004 | | Load 0x0,0x4 0088 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0089 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 008a 01cc | | Execute Vector,Catenate 008b 0092 0210 | | Action Push_String_Extended,0x210 ; " is not checked out; use Cmvc.Check_Out" 008d 01cc | | Execute Vector,Catenate 008e 0092 0211 | | Action Push_String_Extended,0x211 ; " before attempting this operation again" 0090 01cc | | Execute Vector,Catenate 0091 0092 0212 | | Action Push_String_Extended,0x212 ; "POLICY_ERROR" 0093 e003 | | Load 0x0,0x3 0094 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0095 c5fa | | Store 0x2,-0x6 0096 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0097 4934 |I4 | Short_Literal 0x134 0098 010f | | Execute Exception,Equal 0099 6815 |h | Jump_Zero 0xaf 009a e5fa | | Load 0x2,-0x6 ; Debug Table 0x3.0xb = 0x9a,0xa 009b 4802 |H | Short_Literal 0x2 009c 0092 020f | | Action Push_String_Extended,0x20f ; "Remote_Passwords file " 009e e5fc | | Load 0x2,-0x4 009f e004 | | Load 0x0,0x4 00a0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00a1 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 00a2 01cc | | Execute Vector,Catenate 00a3 0092 0213 | | Action Push_String_Extended,0x213 ; " is frozen; use Library.Unfreeze before attempting" 00a5 01cc | | Execute Vector,Catenate 00a6 0092 0214 | | Action Push_String_Extended,0x214 ; " this operation again" 00a8 01cc | | Execute Vector,Catenate 00a9 0092 0212 | | Action Push_String_Extended,0x212 ; "POLICY_ERROR" 00ab e003 | | Load 0x0,0x3 00ac 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00ad c5fa | | Store 0x2,-0x6 00ae 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00af 4935 |I5 | Short_Literal 0x135 00b0 010f | | Execute Exception,Equal 00b1 6815 |h | Jump_Zero 0xc7 00b2 e5fa | | Load 0x2,-0x6 ; Debug Table 0x3.0xc = 0xb2,0xb 00b3 4802 |H | Short_Literal 0x2 00b4 0092 020f | | Action Push_String_Extended,0x20f ; "Remote_Passwords file " 00b6 e5fc | | Load 0x2,-0x4 00b7 e004 | | Load 0x0,0x4 00b8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00b9 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 00ba 01cc | | Execute Vector,Catenate 00bb 0092 0215 | | Action Push_String_Extended,0x215 ; " is locked; use What.Locks to determine who is" 00bd 01cc | | Execute Vector,Catenate 00be 0092 0216 | | Action Push_String_Extended,0x216 ; " holding the locks on this object" 00c0 01cc | | Execute Vector,Catenate 00c1 0092 0217 | | Action Push_String_Extended,0x217 ; "LOCK_ERROR" 00c3 e003 | | Load 0x0,0x3 00c4 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00c5 c5fa | | Store 0x2,-0x6 00c6 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00c7 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0xd = 0xc7,0xc 00c8 e005 | | Load 0x0,0x5 00c9 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00ca 6804 |h | Jump_Zero 0xcf 00cb 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0xe = 0xcb,0xd 00cc e002 | | Load 0x0,0x2 00cd 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00ce c403 | | Store 0x2,0x3 00cf e5fa | | Load 0x2,-0x6 ; Debug Table 0x3.0xf = 0xcf,0xe 00d0 e006 | | Load 0x0,0x6 00d1 180d | | Execute Package,Field_Execute,Field_Number 0xd 00d2 4802 |H | Short_Literal 0x2 00d3 0092 0218 | | Action Push_String_Extended,0x218 ; "UNHANDLED_EXCEPTION" 00d5 e003 | | Load 0x0,0x3 00d6 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00d7 e003 | | Load 0x0,0x3 00d8 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00d9 c5fa | | Store 0x2,-0x6 00da 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00db 0000 0000 | | .BLANK 0000[0x5] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00ec | | .CONST 0x00ec ; Address of begin 00e1 0105 | | .CONST 0x0105 ; Address of exception handler 00e2 0004 | | .CONST 0x0004 ; Number of locals 00e3 INIT_00e0: 00e3 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x4 = .DEBUG 0x00e3,0x03f6,0x2801,0x0002,0x0037,0xb0b4,0x0000,0x0043 ; Debug Table 0x4.0x0 = 0xe3,0xffff 00e4 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 00e5 e002 | | Load 0x0,0x2 ; Debug Table 0x4.0x1 = 0xe5,0xfffe 00e6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00e7 02c7 | | Declare_Variable Any 00e8 00d8 | | Load_Top At_Offset_0 00e9 1c00 | | Execute_Immediate Run_Utility,0x0 00ea 029f 01fb | | Declare_Subprogram INIT_01f8,For_Call 00ec BODY_00e0: 00ec e5fa | | Load 0x2,-0x6 ; Debug Table 0x4.0x2 = 0xec,0x1 00ed e003 | | Load 0x0,0x3 00ee 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00ef c5fa | | Store 0x2,-0x6 00f0 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0x3 = 0xf0,0x2 00f1 e5fc | | Load 0x2,-0x4 00f2 8210 | | Call 0x1,0x10 00f3 c403 | | Store 0x2,0x3 00f4 00cf | | Action Mark_Auxiliary 00f5 7805 |x | Jump 0xfb 00f6 8404 | | Call 0x2,0x4 ; Debug Table 0x4.0x4 = 0xf6,0x4 00f7 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0x5 = 0xf7,0x5 00f8 e002 | | Load 0x0,0x2 00f9 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00fa 00c9 | | Action Pop_Auxiliary_Loop 00fb 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0x6 = 0xfb,0x3 00fc e002 | | Load 0x0,0x2 00fd 180e | | Execute Package,Field_Execute,Field_Number 0xe 00fe 6ff7 |o | Jump_Zero 0xf6 00ff 00ce | | Action Pop_Auxiliary 0100 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0x7 = 0x100,0x6 0101 e002 | | Load 0x0,0x2 0102 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0103 c403 | | Store 0x2,0x3 0104 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0105 TRAP_00e0: 0105 4922 |I" | Short_Literal 0x122 0106 010f | | Execute Exception,Equal 0107 7006 |p | Jump_Nonzero 0x10e 0108 4923 |I# | Short_Literal 0x123 0109 010f | | Execute Exception,Equal 010a 7003 |p | Jump_Nonzero 0x10e 010b 4924 |I$ | Short_Literal 0x124 010c 010f | | Execute Exception,Equal 010d 680a |h | Jump_Zero 0x118 010e e5fa | | Load 0x2,-0x6 ; Debug Table 0x4.0x8 = 0x10e,0x7 010f 4802 |H | Short_Literal 0x2 0110 0092 0219 | | Action Push_String_Extended,0x219 ; "Remote_Sessions object does not exist; check your Profile.Remote_Sessions session switch" 0112 0092 020b | | Action Push_String_Extended,0x20b ; "NONEXISTENT_OBJECT" 0114 e003 | | Load 0x0,0x3 0115 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0116 c5fa | | Store 0x2,-0x6 0117 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0118 4931 |I1 | Short_Literal 0x131 0119 010f | | Execute Exception,Equal 011a 6812 |h | Jump_Zero 0x12d 011b e5fa | | Load 0x2,-0x6 ; Debug Table 0x4.0x9 = 0x11b,0x8 011c 4802 |H | Short_Literal 0x2 011d 0092 020c | | Action Push_String_Extended,0x20c ; "Insufficient privilege to access " 011f e5fc | | Load 0x2,-0x4 0120 e004 | | Load 0x0,0x4 0121 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0122 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0123 01cc | | Execute Vector,Catenate 0124 0092 021a | | Action Push_String_Extended,0x21a ; "; check the ACLs on your Remote_Sessions file" 0126 01cc | | Execute Vector,Catenate 0127 0092 020e | | Action Push_String_Extended,0x20e ; "ACCESS_ERROR" 0129 e003 | | Load 0x0,0x3 012a 181a | | Execute Package,Field_Execute,Field_Number 0x1a 012b c5fa | | Store 0x2,-0x6 012c 4505 |E | Exit_Suprogram New_Top_Offset 0x5 012d 4932 |I2 | Short_Literal 0x132 012e 010f | | Execute Exception,Equal 012f 6815 |h | Jump_Zero 0x145 0130 e5fa | | Load 0x2,-0x6 ; Debug Table 0x4.0xa = 0x130,0x9 0131 4802 |H | Short_Literal 0x2 0132 0092 021b | | Action Push_String_Extended,0x21b ; "Remote_Sessions file " 0134 e5fc | | Load 0x2,-0x4 0135 e004 | | Load 0x0,0x4 0136 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0137 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0138 01cc | | Execute Vector,Catenate 0139 0092 0210 | | Action Push_String_Extended,0x210 ; " is not checked out; use Cmvc.Check_Out" 013b 01cc | | Execute Vector,Catenate 013c 0092 0211 | | Action Push_String_Extended,0x211 ; " before attempting this operation again" 013e 01cc | | Execute Vector,Catenate 013f 0092 0212 | | Action Push_String_Extended,0x212 ; "POLICY_ERROR" 0141 e003 | | Load 0x0,0x3 0142 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0143 c5fa | | Store 0x2,-0x6 0144 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0145 4934 |I4 | Short_Literal 0x134 0146 010f | | Execute Exception,Equal 0147 6815 |h | Jump_Zero 0x15d 0148 e5fa | | Load 0x2,-0x6 ; Debug Table 0x4.0xb = 0x148,0xa 0149 4802 |H | Short_Literal 0x2 014a 0092 021b | | Action Push_String_Extended,0x21b ; "Remote_Sessions file " 014c e5fc | | Load 0x2,-0x4 014d e004 | | Load 0x0,0x4 014e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 014f 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0150 01cc | | Execute Vector,Catenate 0151 0092 0213 | | Action Push_String_Extended,0x213 ; " is frozen; use Library.Unfreeze before attempting" 0153 01cc | | Execute Vector,Catenate 0154 0092 0214 | | Action Push_String_Extended,0x214 ; " this operation again" 0156 01cc | | Execute Vector,Catenate 0157 0092 0212 | | Action Push_String_Extended,0x212 ; "POLICY_ERROR" 0159 e003 | | Load 0x0,0x3 015a 181a | | Execute Package,Field_Execute,Field_Number 0x1a 015b c5fa | | Store 0x2,-0x6 015c 4505 |E | Exit_Suprogram New_Top_Offset 0x5 015d 4935 |I5 | Short_Literal 0x135 015e 010f | | Execute Exception,Equal 015f 6815 |h | Jump_Zero 0x175 0160 e5fa | | Load 0x2,-0x6 ; Debug Table 0x4.0xc = 0x160,0xb 0161 4802 |H | Short_Literal 0x2 0162 0092 021b | | Action Push_String_Extended,0x21b ; "Remote_Sessions file " 0164 e5fc | | Load 0x2,-0x4 0165 e004 | | Load 0x0,0x4 0166 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0167 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0168 01cc | | Execute Vector,Catenate 0169 0092 0215 | | Action Push_String_Extended,0x215 ; " is locked; use What.Locks to determine who is" 016b 01cc | | Execute Vector,Catenate 016c 0092 0216 | | Action Push_String_Extended,0x216 ; " holding the locks on this object" 016e 01cc | | Execute Vector,Catenate 016f 0092 0217 | | Action Push_String_Extended,0x217 ; "LOCK_ERROR" 0171 e003 | | Load 0x0,0x3 0172 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0173 c5fa | | Store 0x2,-0x6 0174 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0175 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0xd = 0x175,0xc 0176 e005 | | Load 0x0,0x5 0177 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0178 6804 |h | Jump_Zero 0x17d 0179 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0xe = 0x179,0xd 017a e002 | | Load 0x0,0x2 017b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 017c c403 | | Store 0x2,0x3 017d e5fa | | Load 0x2,-0x6 ; Debug Table 0x4.0xf = 0x17d,0xe 017e e006 | | Load 0x0,0x6 017f 180d | | Execute Package,Field_Execute,Field_Number 0xd 0180 4802 |H | Short_Literal 0x2 0181 0092 0218 | | Action Push_String_Extended,0x218 ; "UNHANDLED_EXCEPTION" 0183 e003 | | Load 0x0,0x3 0184 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0185 e003 | | Load 0x0,0x3 0186 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0187 c5fa | | Store 0x2,-0x6 0188 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0189 0000 0000 | | .BLANK 0000[0x7] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 0193 | | .CONST 0x0193 ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0001 | | .CONST 0x0001 ; Number of locals 0193 BODY_0190: 0193 INIT_0190: 0193 00da | | Load_Top At_Offset_2 ; Debug Table 0x5 = .DEBUG 0x0193,0x0418,0x0001,0x0000,0x0037,0xb4e4,0x0000,0x0024 ; Debug Table 0x5.0x0 = 0x193,0x1 0194 e004 | | Load 0x0,0x4 0195 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0196 6802 |h | Jump_Zero 0x199 0197 4923 |I# | Short_Literal 0x123 ; Debug Table 0x5.0x1 = 0x197,0x2 0198 0257 | W | Execute Discrete,Raise 0199 00db | | Load_Top At_Offset_3 ; Debug Table 0x5.0x2 = 0x199,0x3 019a 0092 021c | | Action Push_String_Extended,0x21c ; "SYNCHRONIZED" 019c e5ff | | Load 0x2,-0x1 019d e004 | | Load 0x0,0x4 019e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 019f 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 01a0 4800 |H | Short_Literal 0x0 01a1 e005 | | Load 0x0,0x5 01a2 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01a3 c5fe | | Store 0x2,-0x2 01a4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01a5 0000 0000 | | .XXX[0x3] 01a7 0000 | | 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01b3 | | .CONST 0x01b3 ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0003 | | .CONST 0x0003 ; Number of locals 01ab INIT_01a8: 01ab 00da | | Load_Top At_Offset_2 ; Debug Table 0x6 = .DEBUG 0x01ab,0x0420,0x0002,0x0000,0x0037,0xb4e4,0x0000,0x0059 ; Debug Table 0x6.0x0 = 0x1ab,0xffff 01ac 01dd | | Execute Vector,First 01ad 00e4 | | Load_Encached Positive_Cache 01ae 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 01af 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0x1 = 0x1af,0xfffe 01b0 01dc | | Execute Vector,Last 01b1 00e3 | | Load_Encached Natural_Cache 01b2 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 01b3 BODY_01a8: 01b3 00cf | | Action Mark_Auxiliary 01b4 7804 |x | Jump 0x1b9 01b5 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x2 = 0x1b5,0x2 01b6 0a01 | | Execute_Immediate Plus,0x1 01b7 005b | [ | Store_Top Discrete,At_Offset_3 01b8 00c9 | | Action Pop_Auxiliary_Loop 01b9 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x3 = 0x1b9,0x1 01ba 00da | | Load_Top At_Offset_2 01bb 027a | z | Execute Discrete,Less_Equal 01bc 6806 |h | Jump_Zero 0x1c3 01bd 00da | | Load_Top At_Offset_2 01be e5ff | | Load 0x2,-0x1 01bf 01d7 | | Execute Vector,Field_Read 01c0 e002 | | Load 0x0,0x2 01c1 180f | | Execute Package,Field_Execute,Field_Number 0xf 01c2 77f2 |w | Jump_Nonzero 0x1b5 01c3 00c9 | | Action Pop_Auxiliary_Loop 01c4 7804 |x | Jump 0x1c9 01c5 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x6.0x4 = 0x1c5,0x4 01c6 0aff | | Execute_Immediate Plus,-0x1 01c7 005a | Z | Store_Top Discrete,At_Offset_2 01c8 00c9 | | Action Pop_Auxiliary_Loop 01c9 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x5 = 0x1c9,0x3 01ca 00da | | Load_Top At_Offset_2 01cb 027a | z | Execute Discrete,Less_Equal 01cc 6806 |h | Jump_Zero 0x1d3 01cd 00d9 | | Load_Top At_Offset_1 01ce e5ff | | Load 0x2,-0x1 01cf 01d7 | | Execute Vector,Field_Read 01d0 e002 | | Load 0x0,0x2 01d1 180f | | Execute Package,Field_Execute,Field_Number 0xf 01d2 77f2 |w | Jump_Nonzero 0x1c5 01d3 00ce | | Action Pop_Auxiliary 01d4 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x6.0x6 = 0x1d4,0x5 01d5 00d9 | | Load_Top At_Offset_1 01d6 e5ff | | Load 0x2,-0x1 01d7 01cf | | Execute Vector,Slice_Read 01d8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01d9 0000 0000 | | .BLANK 0000[0x7] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01ec | | .CONST 0x01ec ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0004 | | .CONST 0x0004 ; Number of locals 01e3 INIT_01e0: 01e3 e403 | | Load 0x2,0x3 ; Debug Table 0x7 = .DEBUG 0x01e3,0x0430,0x0804,0x0002,0x0037,0xb4e4,0x0000,0x012c ; Debug Table 0x7.0x0 = 0x1e3,0xffff 01e4 e002 | | Load 0x0,0x2 01e5 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01e6 e403 | | Load 0x2,0x3 ; Debug Table 0x7.0x1 = 0x1e6,0xfffe 01e7 e002 | | Load 0x0,0x2 01e8 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01e9 e403 | | Load 0x2,0x3 ; Debug Table 0x7.0x2 = 0x1e9,0xfffd 01ea e002 | | Load 0x0,0x2 01eb 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01ec BODY_01e0: 01ec e402 | | Load 0x2,0x2 ; Debug Table 0x7.0x3 = 0x1ec,0x1 01ed e5fb | | Load 0x2,-0x5 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 ; Debug Table 0x8 = .DEBUG 0x01fb,0x043a,0x0804,0x0002,0x0037,0xb4e4,0x0000,0x025c ; Debug Table 0x8.0x0 = 0x1fb,0xffff 01fc e002 | | Load 0x0,0x2 01fd 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01fe 820d | | Call 0x1,0xd 01ff e403 | | Load 0x2,0x3 ; Debug Table 0x8.0x1 = 0x1ff,0xfffe 0200 e002 | | Load 0x0,0x2 0201 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0202 BODY_01f8: 0202 e402 | | Load 0x2,0x2 ; Debug Table 0x8.0x2 = 0x202,0x1 0203 e5fb | | Load 0x2,-0x5 0204 00da | | Load_Top At_Offset_2 0205 e602 | | Load 0x3,0x2 0206 85fe | | Call 0x2,-0x2 0207 c5fb | | Store 0x2,-0x5 0208 c402 | | Store 0x2,0x2 0209 4501 |E | Exit_Suprogram New_Top_Offset 0x1 020a ; -------------------------------------------------------------------------------------- 020a ; STRING TABLE 020a ; -------------------------------------------------------------------------------------- 020a 0028 | ( | .STRTAB 0x0028->0x021e ; "Remote_Passwords object does not exist; check your Profile.Remote_Passwords session switch" 020b 0080 | | .STRTAB 0x0080->0x024b ; "NONEXISTENT_OBJECT" 020c 0090 | | .STRTAB 0x0090->0x0254 ; "Insufficient privilege to access " 020d 00af | | .STRTAB 0x00af->0x0264 ; "; check the ACLs on your Remote_Passwords file" 020e 00db | | .STRTAB 0x00db->0x027b ; "ACCESS_ERROR" 020f 00e5 | | .STRTAB 0x00e5->0x0281 ; "Remote_Passwords file " 0210 00f9 | | .STRTAB 0x00f9->0x028c ; " is not checked out; use Cmvc.Check_Out" 0211 011e | | .STRTAB 0x011e->0x02a0 ; " before attempting this operation again" 0212 0143 | C | .STRTAB 0x0143->0x02b3 ; "POLICY_ERROR" 0213 014d | M | .STRTAB 0x014d->0x02b9 ; " is frozen; use Library.Unfreeze before attempting" 0214 017d | } | .STRTAB 0x017d->0x02d2 ; " this operation again" 0215 0190 | | .STRTAB 0x0190->0x02dd ; " is locked; use What.Locks to determine who is" 0216 01bc | | .STRTAB 0x01bc->0x02f4 ; " holding the locks on this object" 0217 01db | | .STRTAB 0x01db->0x0304 ; "LOCK_ERROR" 0218 01e3 | | .STRTAB 0x01e3->0x0309 ; "UNHANDLED_EXCEPTION" 0219 01f4 | | .STRTAB 0x01f4->0x0313 ; "Remote_Sessions object does not exist; check your Profile.Remote_Sessions session switch" 021a 024a | J | .STRTAB 0x024a->0x033f ; "; check the ACLs on your Remote_Sessions file" 021b 0275 | u | .STRTAB 0x0275->0x0355 ; "Remote_Sessions file " 021c 0288 | | .STRTAB 0x0288->0x0360 ; "SYNCHRONIZED" 021d 0292 | | .STREND 0x0292->0x0366 021e 5265 6d6f |Remo| .STRTAB_STRINGS 0366 0000 0000 | | .XXX[0x2] 0368 ; -------------------------------------------------------------------------------------- 0368 ; Debug Table 0368 ; -------------------------------------------------------------------------------------- 0368 0003 0009 | | .CONST 0x0003,0x0009 036a 000b 03b2 | | .DEBUG 0x000b,0x03b2,0x8000,0x0000,0x0037,0xb0b4,0x0000,0x0007 0372 0012 03ba | | .DEBUG 0x0012,0x03ba,0x8000,0x0000,0x0037,0xb4e4,0x0000,0x000d 037a 002b 03d0 | + | .DEBUG 0x002b,0x03d0,0x0002,0x0000,0x0037,0xb0b4,0x0000,0x0008 0382 0033 03d4 | 3 | .DEBUG 0x0033,0x03d4,0x2801,0x0002,0x0037,0xb0b4,0x0000,0x0011 038a 00e3 03f6 | | .DEBUG 0x00e3,0x03f6,0x2801,0x0002,0x0037,0xb0b4,0x0000,0x0043 0392 0193 0418 | | .DEBUG 0x0193,0x0418,0x0001,0x0000,0x0037,0xb4e4,0x0000,0x0024 039a 01ab 0420 | | .DEBUG 0x01ab,0x0420,0x0002,0x0000,0x0037,0xb4e4,0x0000,0x0059 03a2 01e3 0430 | 0| .DEBUG 0x01e3,0x0430,0x0804,0x0002,0x0037,0xb4e4,0x0000,0x012c 03aa 01fb 043a | :| .DEBUG 0x01fb,0x043a,0x0804,0x0002,0x0037,0xb4e4,0x0000,0x025c 03b2 ; -------------------------------------------------------------------------------------- 03b2 ; Debug3 Subtable 0x0 03b2 ; -------------------------------------------------------------------------------------- 03b2 0003 0000 | | .DBG3TAB 0x0003,0x0000 03b4 000b ffff | | .CONST 0x000b,0xffff 03b6 000d fffe | | .CONST 0x000d,0xfffe 03b8 000f fffd | | .CONST 0x000f,0xfffd 03ba ; -------------------------------------------------------------------------------------- 03ba ; Debug3 Subtable 0x1 03ba ; -------------------------------------------------------------------------------------- 03ba 000a 0000 | | .DBG3TAB 0x000a,0x0000 03bc 0012 ffff | | .CONST 0x0012,0xffff 03be 0013 fffe | | .CONST 0x0013,0xfffe 03c0 0014 fffd | | .CONST 0x0014,0xfffd 03c2 0015 fffc | | .CONST 0x0015,0xfffc 03c4 0016 fffb | | .CONST 0x0016,0xfffb 03c6 0017 fffa | | .CONST 0x0017,0xfffa 03c8 0019 fff9 | | .CONST 0x0019,0xfff9 03ca 001b fff8 | | .CONST 0x001b,0xfff8 03cc 001d fff7 | | .CONST 0x001d,0xfff7 03ce 001f fff6 | | .CONST 0x001f,0xfff6 03d0 ; -------------------------------------------------------------------------------------- 03d0 ; Debug3 Subtable 0x2 03d0 ; -------------------------------------------------------------------------------------- 03d0 0000 0001 | | .DBG3TAB 0x0000,0x0001 03d2 002b 0001 | + | .CONST 0x002b,0x0001 03d4 ; -------------------------------------------------------------------------------------- 03d4 ; Debug3 Subtable 0x3 03d4 ; -------------------------------------------------------------------------------------- 03d4 0002 000e | | .DBG3TAB 0x0002,0x000e 03d6 0033 ffff | 3 | .CONST 0x0033,0xffff 03d8 0035 fffe | 5 | .CONST 0x0035,0xfffe 03da 003c 0001 | < | .CONST 0x003c,0x0001 03dc 0040 0002 | @ | .CONST 0x0040,0x0002 03de 0046 0004 | F | .CONST 0x0046,0x0004 03e0 0047 0005 | G | .CONST 0x0047,0x0005 03e2 004b 0003 | K | .CONST 0x004b,0x0003 03e4 0052 0006 | R | .CONST 0x0052,0x0006 03e6 0060 0007 | ` | .CONST 0x0060,0x0007 03e8 006d 0008 | m | .CONST 0x006d,0x0008 03ea 0082 0009 | | .CONST 0x0082,0x0009 03ec 009a 000a | | .CONST 0x009a,0x000a 03ee 00b2 000b | | .CONST 0x00b2,0x000b 03f0 00c7 000c | | .CONST 0x00c7,0x000c 03f2 00cb 000d | | .CONST 0x00cb,0x000d 03f4 00cf 000e | | .CONST 0x00cf,0x000e 03f6 ; -------------------------------------------------------------------------------------- 03f6 ; Debug3 Subtable 0x4 03f6 ; -------------------------------------------------------------------------------------- 03f6 0002 000e | | .DBG3TAB 0x0002,0x000e 03f8 00e3 ffff | | .CONST 0x00e3,0xffff 03fa 00e5 fffe | | .CONST 0x00e5,0xfffe 03fc 00ec 0001 | | .CONST 0x00ec,0x0001 03fe 00f0 0002 | | .CONST 0x00f0,0x0002 0400 00f6 0004 | | .CONST 0x00f6,0x0004 0402 00f7 0005 | | .CONST 0x00f7,0x0005 0404 00fb 0003 | | .CONST 0x00fb,0x0003 0406 0100 0006 | | .CONST 0x0100,0x0006 0408 010e 0007 | | .CONST 0x010e,0x0007 040a 011b 0008 | | .CONST 0x011b,0x0008 040c 0130 0009 | 0 | .CONST 0x0130,0x0009 040e 0148 000a | H | .CONST 0x0148,0x000a 0410 0160 000b | ` | .CONST 0x0160,0x000b 0412 0175 000c | u | .CONST 0x0175,0x000c 0414 0179 000d | y | .CONST 0x0179,0x000d 0416 017d 000e | } | .CONST 0x017d,0x000e 0418 ; -------------------------------------------------------------------------------------- 0418 ; Debug3 Subtable 0x5 0418 ; -------------------------------------------------------------------------------------- 0418 0000 0003 | | .DBG3TAB 0x0000,0x0003 041a 0193 0001 | | .CONST 0x0193,0x0001 041c 0197 0002 | | .CONST 0x0197,0x0002 041e 0199 0003 | | .CONST 0x0199,0x0003 0420 ; -------------------------------------------------------------------------------------- 0420 ; Debug3 Subtable 0x6 0420 ; -------------------------------------------------------------------------------------- 0420 0002 0005 | | .DBG3TAB 0x0002,0x0005 0422 01ab ffff | | .CONST 0x01ab,0xffff 0424 01af fffe | | .CONST 0x01af,0xfffe 0426 01b5 0002 | | .CONST 0x01b5,0x0002 0428 01b9 0001 | | .CONST 0x01b9,0x0001 042a 01c5 0004 | | .CONST 0x01c5,0x0004 042c 01c9 0003 | | .CONST 0x01c9,0x0003 042e 01d4 0005 | | .CONST 0x01d4,0x0005 0430 ; -------------------------------------------------------------------------------------- 0430 ; Debug3 Subtable 0x7 0430 ; -------------------------------------------------------------------------------------- 0430 0003 0001 | | .DBG3TAB 0x0003,0x0001 0432 01e3 ffff | | .CONST 0x01e3,0xffff 0434 01e6 fffe | | .CONST 0x01e6,0xfffe 0436 01e9 fffd | | .CONST 0x01e9,0xfffd 0438 01ec 0001 | | .CONST 0x01ec,0x0001 043a ; -------------------------------------------------------------------------------------- 043a ; Debug3 Subtable 0x8 043a ; -------------------------------------------------------------------------------------- 043a 0002 0001 | | .DBG3TAB 0x0002,0x0001 043c 01fb ffff | | .CONST 0x01fb,0xffff 043e 01ff fffe | | .CONST 0x01ff,0xfffe 0440 0202 0001 | | .CONST 0x0202,0x0001 0442 0000 0000 | | .BLANK 0000[0x1be]