|
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: 9216 (0x2400) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0694fc
└─⟦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 1080 | | .CONST 0x1080 ; 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 8009 | | .CONST 0x8009 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 010f | | .CONST 0x010f ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 003f | ? | .CONST 0x003f ; Number of locals 000b INIT_0008: 000b 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 000d 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated 000f 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated 0011 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated 0013 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated 0015 4806 |H | Short_Literal 0x6 0016 e001 | | Load 0x0,0x1 0017 01d7 | | Execute Vector,Field_Read 0018 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address 0019 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated 001b 029a 031b | | Declare_Subprogram INIT_0318,For_Outer_Call,Visible,Unelaborated 001d 029a 0393 | | Declare_Subprogram INIT_0390,For_Outer_Call,Visible,Unelaborated 001f 029a 0413 | | Declare_Subprogram INIT_0410,For_Outer_Call,Visible,Unelaborated 0021 029a 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call,Visible,Unelaborated 0023 029a 04bb | | Declare_Subprogram INIT_04b8,For_Outer_Call,Visible,Unelaborated 0025 029a 04e3 | | Declare_Subprogram INIT_04e0,For_Outer_Call,Visible,Unelaborated 0027 029a 0553 | S| Declare_Subprogram INIT_0550,For_Outer_Call,Visible,Unelaborated 0029 029a 055b | [| Declare_Subprogram INIT_0558,For_Outer_Call,Visible,Unelaborated 002b 029a 0563 | c| Declare_Subprogram INIT_0560,For_Outer_Call,Visible,Unelaborated 002d 029a 056b | k| Declare_Subprogram INIT_0568,For_Outer_Call,Visible,Unelaborated 002f 029a 0573 | s| Declare_Subprogram INIT_0570,For_Outer_Call,Visible,Unelaborated 0031 00bf | | Action Accept_Activation 0032 4800 |H | Short_Literal 0x0 0033 4840 |H@ | Short_Literal 0x40 0034 00e2 | | Load_Encached Integer_Cache 0035 03f8 | | Declare_Type Discrete,Constrained 0036 0092 0a05 | | Action Push_String_Extended,0xa05 ; "Login" 0038 0092 0a06 | | Action Push_String_Extended,0xa06 ; "Full Session" 003a 0092 0a07 | | Action Push_String_Extended,0xa07 ; "Fundamental Session" 003c 00ea | | Load_Encached Null_String_Cache 003d 4800 |H | Short_Literal 0x0 003e 4802 |H | Short_Literal 0x2 003f e001 | | Load 0x0,0x1 0040 01d7 | | Execute Vector,Field_Read 0041 02a0 | | Declare_Subprogram Null_Subprogram 0042 038e | | Declare_Type Package,Defined 0043 e001 | | Load 0x0,0x1 0044 4801 |H | Short_Literal 0x1 0045 e001 | | Load 0x0,0x1 0046 01d7 | | Execute Vector,Field_Read 0047 4802 |H | Short_Literal 0x2 0048 e224 | $ | Load 0x1,0x24 0049 020e | | Execute Module,Augment_Imports 004a 0387 | | Declare_Variable Package 004b 4800 |H | Short_Literal 0x0 004c 4804 |H | Short_Literal 0x4 004d e001 | | Load 0x0,0x1 004e 01d7 | | Execute Vector,Field_Read 004f 02a0 | | Declare_Subprogram Null_Subprogram 0050 038e | | Declare_Type Package,Defined 0051 e001 | | Load 0x0,0x1 0052 4803 |H | Short_Literal 0x3 0053 e001 | | Load 0x0,0x1 0054 01d7 | | Execute Vector,Field_Read 0055 4802 |H | Short_Literal 0x2 0056 e225 | % | Load 0x1,0x25 0057 020e | | Execute Module,Augment_Imports 0058 0387 | | Declare_Variable Package 0059 4800 |H | Short_Literal 0x0 005a 4808 |H | Short_Literal 0x8 005b e001 | | Load 0x0,0x1 005c 01d7 | | Execute Vector,Field_Read 005d 02a0 | | Declare_Subprogram Null_Subprogram 005e 038e | | Declare_Type Package,Defined 005f e001 | | Load 0x0,0x1 0060 4807 |H | Short_Literal 0x7 0061 e001 | | Load 0x0,0x1 0062 01d7 | | Execute Vector,Field_Read 0063 4802 |H | Short_Literal 0x2 0064 e226 | & | Load 0x1,0x26 0065 020e | | Execute Module,Augment_Imports 0066 0387 | | Declare_Variable Package 0067 0093 0000 | | push_full_address 0x0 0069 60fa |` | Indirect_Literal Discrete,0x164,{0x80000000, 0x00010000} 006a 0273 | s | Execute Discrete,Plus 006b 0007 | | Action Break_Optional 006c 00ea | | Load_Encached Null_String_Cache 006d 4800 |H | Short_Literal 0x0 006e 4800 |H | Short_Literal 0x0 006f 4800 |H | Short_Literal 0x0 0070 e002 | | Load 0x0,0x2 0071 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0072 e002 | | Load 0x0,0x2 0073 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0074 029b 057b | {| Declare_Subprogram INIT_0578,For_Outer_Call,Unelaborated 0076 029b 059b | | Declare_Subprogram INIT_0598,For_Outer_Call,Unelaborated 0078 029b 05c3 | | Declare_Subprogram INIT_05c0,For_Outer_Call,Unelaborated 007a 029b 05db | | Declare_Subprogram INIT_05d8,For_Outer_Call,Unelaborated 007c 029b 05eb | | Declare_Subprogram INIT_05e8,For_Outer_Call,Unelaborated 007e 029b 05fb | | Declare_Subprogram INIT_05f8,For_Outer_Call,Unelaborated 0080 029b 060b | | Declare_Subprogram INIT_0608,For_Outer_Call,Unelaborated 0082 029b 061b | | Declare_Subprogram INIT_0618,For_Outer_Call,Unelaborated 0084 029b 0663 | c| Declare_Subprogram INIT_0660,For_Outer_Call,Unelaborated 0086 029b 06a3 | | Declare_Subprogram INIT_06a0,For_Outer_Call,Unelaborated 0088 029b 06db | | Declare_Subprogram INIT_06d8,For_Outer_Call,Unelaborated 008a 029b 0713 | | Declare_Subprogram INIT_0710,For_Outer_Call,Unelaborated 008c 029b 074b | K| Declare_Subprogram INIT_0748,For_Outer_Call,Unelaborated 008e 029b 077b | {| Declare_Subprogram INIT_0778,For_Outer_Call,Unelaborated 0090 029b 07db | | Declare_Subprogram INIT_07d8,For_Outer_Call,Unelaborated 0092 029b 07f3 | | Declare_Subprogram INIT_07f0,For_Outer_Call,Unelaborated 0094 029b 0873 | s| Declare_Subprogram INIT_0870,For_Outer_Call,Unelaborated 0096 029b 0883 | | Declare_Subprogram INIT_0880,For_Outer_Call,Unelaborated 0098 029b 0893 | | Declare_Subprogram INIT_0890,For_Outer_Call,Unelaborated 009a 029d 08a3 | | Declare_Subprogram INIT_08a0,For_Outer_Call 009c 029d 096b | k| Declare_Subprogram INIT_0968,For_Outer_Call 009e 029d 0983 | | Declare_Subprogram INIT_0980,For_Outer_Call 00a0 1d0d | | Execute_Immediate Reference_Lex_1,0xd 00a1 00c7 | | Action Elaborate_Subprogram 00a2 1d0e | | Execute_Immediate Reference_Lex_1,0xe 00a3 00c7 | | Action Elaborate_Subprogram 00a4 1d16 | | Execute_Immediate Reference_Lex_1,0x16 00a5 00c7 | | Action Elaborate_Subprogram 00a6 1d15 | | Execute_Immediate Reference_Lex_1,0x15 00a7 00c7 | | Action Elaborate_Subprogram 00a8 1d13 | | Execute_Immediate Reference_Lex_1,0x13 00a9 00c7 | | Action Elaborate_Subprogram 00aa 1d14 | | Execute_Immediate Reference_Lex_1,0x14 00ab 00c7 | | Action Elaborate_Subprogram 00ac 1d10 | | Execute_Immediate Reference_Lex_1,0x10 00ad 00c7 | | Action Elaborate_Subprogram 00ae 1d0f | | Execute_Immediate Reference_Lex_1,0xf 00af 00c7 | | Action Elaborate_Subprogram 00b0 1d18 | | Execute_Immediate Reference_Lex_1,0x18 00b1 00c7 | | Action Elaborate_Subprogram 00b2 1d17 | | Execute_Immediate Reference_Lex_1,0x17 00b3 00c7 | | Action Elaborate_Subprogram 00b4 1d19 | | Execute_Immediate Reference_Lex_1,0x19 00b5 00c7 | | Action Elaborate_Subprogram 00b6 1d12 | | Execute_Immediate Reference_Lex_1,0x12 00b7 00c7 | | Action Elaborate_Subprogram 00b8 1d11 | | Execute_Immediate Reference_Lex_1,0x11 00b9 00c7 | | Action Elaborate_Subprogram 00ba 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 00bb 00c7 | | Action Elaborate_Subprogram 00bc 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 00bd 00c7 | | Action Elaborate_Subprogram 00be 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 00bf 00c7 | | Action Elaborate_Subprogram 00c0 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 00c1 00c7 | | Action Elaborate_Subprogram 00c2 e003 | | Load 0x0,0x3 00c3 e004 | | Load 0x0,0x4 00c4 e227 | ' | Load 0x1,0x27 00c5 e005 | | Load 0x0,0x5 00c6 e006 | | Load 0x0,0x6 00c7 e007 | | Load 0x0,0x7 00c8 e008 | | Load 0x0,0x8 00c9 e009 | | Load 0x0,0x9 00ca e00a | | Load 0x0,0xa 00cb 4809 |H | Short_Literal 0x9 00cc e224 | $ | Load 0x1,0x24 00cd 020e | | Execute Module,Augment_Imports 00ce e224 | $ | Load 0x1,0x24 00cf 020f | | Execute Module,Activate 00d0 e00b | | Load 0x0,0xb 00d1 e00c | | Load 0x0,0xc 00d2 e00d | | Load 0x0,0xd 00d3 e00e | | Load 0x0,0xe 00d4 e00f | | Load 0x0,0xf 00d5 e010 | | Load 0x0,0x10 00d6 e002 | | Load 0x0,0x2 00d7 e008 | | Load 0x0,0x8 00d8 e011 | | Load 0x0,0x11 00d9 e012 | | Load 0x0,0x12 00da 1d11 | | Execute_Immediate Reference_Lex_1,0x11 00db e013 | | Load 0x0,0x13 00dc 480c |H | Short_Literal 0xc 00dd e226 | & | Load 0x1,0x26 00de 020e | | Execute Module,Augment_Imports 00df e226 | & | Load 0x1,0x26 00e0 020f | | Execute Module,Activate 00e1 e014 | | Load 0x0,0x14 00e2 4801 |H | Short_Literal 0x1 00e3 e225 | % | Load 0x1,0x25 00e4 020e | | Execute Module,Augment_Imports 00e5 e225 | % | Load 0x1,0x25 00e6 020f | | Execute Module,Activate 00e7 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 00e8 00c7 | | Action Elaborate_Subprogram 00e9 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 00ea 00c7 | | Action Elaborate_Subprogram 00eb 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31 00ec 00c7 | | Action Elaborate_Subprogram 00ed 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32 00ee 00c7 | | Action Elaborate_Subprogram 00ef 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33 00f0 00c7 | | Action Elaborate_Subprogram 00f1 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37 00f2 00c7 | | Action Elaborate_Subprogram 00f3 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34 00f4 00c7 | | Action Elaborate_Subprogram 00f5 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36 00f6 00c7 | | Action Elaborate_Subprogram 00f7 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35 00f8 00c7 | | Action Elaborate_Subprogram 00f9 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38 00fa 00c7 | | Action Elaborate_Subprogram 00fb 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39 00fc 00c7 | | Action Elaborate_Subprogram 00fd 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b 00fe 00c7 | | Action Elaborate_Subprogram 00ff 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c 0100 00c7 | | Action Elaborate_Subprogram 0101 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a 0102 00c7 | | Action Elaborate_Subprogram 0103 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c 0104 00c7 | | Action Elaborate_Subprogram 0105 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b 0106 00c7 | | Action Elaborate_Subprogram 0107 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d 0108 00c7 | | Action Elaborate_Subprogram 0109 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e 010a 00c7 | | Action Elaborate_Subprogram 010b 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 010c 00c7 | | Action Elaborate_Subprogram 010d 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 010e 00c7 | | Action Elaborate_Subprogram 010f BODY_0008: 010f 00bc | | Action Signal_Activated 0110 00bb | | Action Signal_Completion 0111 0000 0000 | | .BLANK 0000[0x7] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 0125 | % | .CONST 0x0125 ; Address of begin 0119 0146 | F | .CONST 0x0146 ; Address of exception handler 011a 0005 | | .CONST 0x0005 ; Number of locals 011b INIT_0118: 011b 0092 0a08 | | Action Push_String_Extended,0xa08 ; "Accept_Tokens" 011d e004 | | Load 0x0,0x4 011e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 011f 02c7 | | Declare_Variable Any 0120 e004 | | Load 0x0,0x4 0121 180e | | Execute Package,Field_Execute,Field_Number 0xe 0122 a403 | | Store_Unchecked 0x2,0x3 0123 00e3 | | Load_Encached Natural_Cache 0124 00e3 | | Load_Encached Natural_Cache 0125 BODY_0118: 0125 e403 | | Load 0x2,0x3 0126 e5fa | | Load 0x2,-0x6 0127 e5fb | | Load 0x2,-0x5 0128 e5fc | | Load 0x2,-0x4 0129 e5fd | | Load 0x2,-0x3 012a e224 | $ | Load 0x1,0x24 012b 181c | | Execute Package,Field_Execute,Field_Number 0x1c 012c e5fe | | Load 0x2,-0x2 012d e224 | $ | Load 0x1,0x24 012e 181c | | Execute Package,Field_Execute,Field_Number 0x1c 012f e5ff | | Load 0x2,-0x1 0130 e402 | | Load 0x2,0x2 0131 e224 | $ | Load 0x1,0x24 0132 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0133 c403 | | Store 0x2,0x3 0134 e403 | | Load 0x2,0x3 0135 e224 | $ | Load 0x1,0x24 0136 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0137 e5fa | | Load 0x2,-0x6 0138 e5fb | | Load 0x2,-0x5 0139 e5fc | | Load 0x2,-0x4 013a e5fd | | Load 0x2,-0x3 013b e5fe | | Load 0x2,-0x2 013c e5ff | | Load 0x2,-0x1 013d 823f | ? | Call 0x1,0x3f 013e e5ff | | Load 0x2,-0x1 013f 823d | = | Call 0x1,0x3d 0140 e403 | | Load 0x2,0x3 0141 00ea | | Load_Encached Null_String_Cache 0142 e402 | | Load 0x2,0x2 0143 e224 | $ | Load 0x1,0x24 0144 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0145 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0146 TRAP_0118: 0146 e004 | | Load 0x0,0x4 0147 1b47 | G | Execute Package,Field_Read,Field_Number 0x47 0148 010f | | Execute Exception,Equal 0149 6806 |h | Jump_Zero 0x150 014a e403 | | Load 0x2,0x3 014b e402 | | Load 0x2,0x2 014c e224 | $ | Load 0x1,0x24 014d 181a | | Execute Package,Field_Execute,Field_Number 0x1a 014e 00d8 | | Load_Top At_Offset_0 014f 0101 | | Execute Exception,Reraise 0150 e227 | ' | Load 0x1,0x27 0151 010f | | Execute Exception,Equal 0152 6805 |h | Jump_Zero 0x158 0153 e403 | | Load 0x2,0x3 0154 e402 | | Load 0x2,0x2 0155 e224 | $ | Load 0x1,0x24 0156 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0157 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0158 e403 | | Load 0x2,0x3 0159 4800 |H | Short_Literal 0x0 015a 4801 |H | Short_Literal 0x1 015b e015 | | Load 0x0,0x15 015c 1815 | | Execute Package,Field_Execute,Field_Number 0x15 015d e402 | | Load 0x2,0x2 015e e224 | $ | Load 0x1,0x24 015f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0160 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0161 0000 0000 | | .XXX[0x3] 0163 0000 | | 0164 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 0173 | s | .CONST 0x0173 ; Address of begin 0169 01c5 | | .CONST 0x01c5 ; Address of exception handler 016a 0003 | | .CONST 0x0003 ; Number of locals 016b INIT_0168: 016b 0092 0a09 | | Action Push_String_Extended,0xa09 ; "Donate_Tokens" 016d e004 | | Load 0x0,0x4 016e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 016f 02c7 | | Declare_Variable Any 0170 e004 | | Load 0x0,0x4 0171 180e | | Execute Package,Field_Execute,Field_Number 0xe 0172 a403 | | Store_Unchecked 0x2,0x3 0173 BODY_0168: 0173 00d8 | | Load_Top At_Offset_0 0174 e5fa | | Load 0x2,-0x6 0175 e5fb | | Load 0x2,-0x5 0176 e5fc | | Load 0x2,-0x4 0177 e224 | $ | Load 0x1,0x24 0178 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0179 e5fd | | Load 0x2,-0x3 017a e224 | $ | Load 0x1,0x24 017b 181c | | Execute Package,Field_Execute,Field_Number 0x1c 017c e5fe | | Load 0x2,-0x2 017d e224 | $ | Load 0x1,0x24 017e 181c | | Execute Package,Field_Execute,Field_Number 0x1c 017f e5ff | | Load 0x2,-0x1 0180 e402 | | Load 0x2,0x2 0181 e224 | $ | Load 0x1,0x24 0182 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0183 c403 | | Store 0x2,0x3 0184 00d8 | | Load_Top At_Offset_0 0185 e224 | $ | Load 0x1,0x24 0186 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0187 00d8 | | Load_Top At_Offset_0 0188 e5fb | | Load 0x2,-0x5 0189 8235 | 5 | Call 0x1,0x35 018a 00d8 | | Load_Top At_Offset_0 018b e5ff | | Load 0x2,-0x1 018c 8234 | 4 | Call 0x1,0x34 018d e5fc | | Load 0x2,-0x4 018e 8211 | | Call 0x1,0x11 018f 027f | | Execute Discrete,Equal 0190 6805 |h | Jump_Zero 0x196 0191 00d8 | | Load_Top At_Offset_0 0192 0092 0a0a | | Action Push_String_Extended,0xa0a ; "Remote_Machine_ID specified is the Machine_ID for this machine." 0194 e224 | $ | Load 0x1,0x24 0195 180d | | Execute Package,Field_Execute,Field_Number 0xd 0196 e5fb | | Load 0x2,-0x5 0197 8210 | | Call 0x1,0x10 0198 01df | | Execute Vector,Equal 0199 7005 |p | Jump_Nonzero 0x19f 019a 00d8 | | Load_Top At_Offset_0 019b 0092 0a0b | | Action Push_String_Extended,0xa0b ; "The Remote_Site specified does not match the Site_Id of this machine. These need to be the same for tokens to be donated. If necessary, contact your Rational technical representative to change the Site_Id of one or both machines." 019d e224 | $ | Load 0x1,0x24 019e 180d | | Execute Package,Field_Execute,Field_Number 0xd 019f e226 | & | Load 0x1,0x26 01a0 180d | | Execute Package,Field_Execute,Field_Number 0xd 01a1 822f | / | Call 0x1,0x2f 01a2 6805 |h | Jump_Zero 0x1a8 01a3 00d8 | | Load_Top At_Offset_0 01a4 0092 0a0c | | Action Push_String_Extended,0xa0c ; "This machine has accepted tokens today; it may not also give them up" 01a6 e224 | $ | Load 0x1,0x24 01a7 180d | | Execute Package,Field_Execute,Field_Number 0xd 01a8 00d8 | | Load_Top At_Offset_0 01a9 e5fd | | Load 0x2,-0x3 01aa e5fe | | Load 0x2,-0x2 01ab e5ff | | Load 0x2,-0x1 01ac 8237 | 7 | Call 0x1,0x37 01ad 00d8 | | Load_Top At_Offset_0 01ae e5fe | | Load 0x2,-0x2 01af e5ff | | Load 0x2,-0x1 01b0 8239 | 9 | Call 0x1,0x39 01b1 e00d | | Load 0x0,0xd 01b2 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01b3 e226 | & | Load 0x1,0x26 01b4 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01b5 e226 | & | Load 0x1,0x26 01b6 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01b7 e229 | ) | Load 0x1,0x29 01b8 e223 | # | Load 0x1,0x23 01b9 e5fb | | Load 0x2,-0x5 01ba e5fc | | Load 0x2,-0x4 01bb e5fd | | Load 0x2,-0x3 01bc e5fe | | Load 0x2,-0x2 01bd e5ff | | Load 0x2,-0x1 01be 8231 | 1 | Call 0x1,0x31 01bf 00d8 | | Load_Top At_Offset_0 01c0 00ea | | Load_Encached Null_String_Cache 01c1 e402 | | Load 0x2,0x2 01c2 e224 | $ | Load 0x1,0x24 01c3 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01c4 4507 |E | Exit_Suprogram New_Top_Offset 0x7 01c5 TRAP_0168: 01c5 e004 | | Load 0x0,0x4 01c6 1b47 | G | Execute Package,Field_Read,Field_Number 0x47 01c7 010f | | Execute Exception,Equal 01c8 6806 |h | Jump_Zero 0x1cf 01c9 e403 | | Load 0x2,0x3 01ca e402 | | Load 0x2,0x2 01cb e224 | $ | Load 0x1,0x24 01cc 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01cd 00d8 | | Load_Top At_Offset_0 01ce 0101 | | Execute Exception,Reraise 01cf e227 | ' | Load 0x1,0x27 01d0 010f | | Execute Exception,Equal 01d1 6805 |h | Jump_Zero 0x1d7 01d2 e403 | | Load 0x2,0x3 01d3 e402 | | Load 0x2,0x2 01d4 e224 | $ | Load 0x1,0x24 01d5 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01d6 4507 |E | Exit_Suprogram New_Top_Offset 0x7 01d7 e403 | | Load 0x2,0x3 01d8 4800 |H | Short_Literal 0x0 01d9 4801 |H | Short_Literal 0x1 01da e015 | | Load 0x0,0x15 01db 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01dc e402 | | Load 0x2,0x2 01dd e224 | $ | Load 0x1,0x24 01de 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01df 4507 |E | Exit_Suprogram New_Top_Offset 0x7 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01eb | | .CONST 0x01eb ; Address of begin 01e1 0225 | % | .CONST 0x0225 ; Address of exception handler 01e2 0003 | | .CONST 0x0003 ; Number of locals 01e3 INIT_01e0: 01e3 0092 0a0d | | Action Push_String_Extended,0xa0d ; "Set_Site" 01e5 e004 | | Load 0x0,0x4 01e6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01e7 02c7 | | Declare_Variable Any 01e8 e004 | | Load 0x0,0x4 01e9 180e | | Execute Package,Field_Execute,Field_Number 0xe 01ea a403 | | Store_Unchecked 0x2,0x3 01eb BODY_01e0: 01eb 00d8 | | Load_Top At_Offset_0 01ec e5fc | | Load 0x2,-0x4 01ed e5fd | | Load 0x2,-0x3 01ee e5fe | | Load 0x2,-0x2 01ef e5ff | | Load 0x2,-0x1 01f0 e402 | | Load 0x2,0x2 01f1 e224 | $ | Load 0x1,0x24 01f2 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01f3 c403 | | Store 0x2,0x3 01f4 00d8 | | Load_Top At_Offset_0 01f5 e224 | $ | Load 0x1,0x24 01f6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01f7 e5fe | | Load 0x2,-0x2 01f8 e228 | ( | Load 0x1,0x28 01f9 e5fd | | Load 0x2,-0x3 01fa 8211 | | Call 0x1,0x11 01fb e5ff | | Load 0x2,-0x1 01fc 822a | * | Call 0x1,0x2a 01fd 01de | | Execute Vector,Not_Equal 01fe 6814 |h | Jump_Zero 0x213 01ff 00d8 | | Load_Top At_Offset_0 0200 0092 0a0e | | Action Push_String_Extended,0xa0e ; "Code (" 0202 e5fe | | Load 0x2,-0x2 0203 e224 | $ | Load 0x1,0x24 0204 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0205 01cc | | Execute Vector,Catenate 0206 0092 0a0f | | Action Push_String_Extended,0xa0f ; ") does not correspond to Site (" 0208 01cc | | Execute Vector,Catenate 0209 e5ff | | Load 0x2,-0x1 020a e224 | $ | Load 0x1,0x24 020b 181e | | Execute Package,Field_Execute,Field_Number 0x1e 020c 01cc | | Execute Vector,Catenate 020d 0092 0a10 | | Action Push_String_Extended,0xa10 ; ")." 020f 01cc | | Execute Vector,Catenate 0210 e224 | $ | Load 0x1,0x24 0211 180d | | Execute Package,Field_Execute,Field_Number 0xd 0212 780a |x | Jump 0x21d 0213 e5ff | | Load 0x2,-0x1 0214 e226 | & | Load 0x1,0x26 0215 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0216 00d8 | | Load_Top At_Offset_0 0217 0092 0a11 | | Action Push_String_Extended,0xa11 ; "Site set to " 0219 e5ff | | Load 0x2,-0x1 021a 01cc | | Execute Vector,Catenate 021b e224 | $ | Load 0x1,0x24 021c 180f | | Execute Package,Field_Execute,Field_Number 0xf 021d e226 | & | Load 0x1,0x26 021e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 021f 00d8 | | Load_Top At_Offset_0 0220 00ea | | Load_Encached Null_String_Cache 0221 e402 | | Load 0x2,0x2 0222 e224 | $ | Load 0x1,0x24 0223 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0224 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0225 TRAP_01e0: 0225 e004 | | Load 0x0,0x4 0226 1b47 | G | Execute Package,Field_Read,Field_Number 0x47 0227 010f | | Execute Exception,Equal 0228 6806 |h | Jump_Zero 0x22f 0229 e403 | | Load 0x2,0x3 022a e402 | | Load 0x2,0x2 022b e224 | $ | Load 0x1,0x24 022c 181a | | Execute Package,Field_Execute,Field_Number 0x1a 022d 00d8 | | Load_Top At_Offset_0 022e 0101 | | Execute Exception,Reraise 022f e227 | ' | Load 0x1,0x27 0230 010f | | Execute Exception,Equal 0231 6805 |h | Jump_Zero 0x237 0232 e403 | | Load 0x2,0x3 0233 e402 | | Load 0x2,0x2 0234 e224 | $ | Load 0x1,0x24 0235 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0236 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0237 e403 | | Load 0x2,0x3 0238 4800 |H | Short_Literal 0x0 0239 4801 |H | Short_Literal 0x1 023a e015 | | Load 0x0,0x15 023b 1815 | | Execute Package,Field_Execute,Field_Number 0x15 023c e402 | | Load 0x2,0x2 023d e224 | $ | Load 0x1,0x24 023e 181b | | Execute Package,Field_Execute,Field_Number 0x1b 023f 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0243 | C | .CONST 0x0243 ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0001 | | .CONST 0x0001 ; Number of locals 0243 BODY_0240: 0243 INIT_0240: 0243 e226 | & | Load 0x1,0x26 0244 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0245 00ca | | Action Exit_Nullary_Function 0246 0000 0000 | | .XXX[0x2] 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 024b | K | .CONST 0x024b ; Address of begin 0249 0004 | | .CONST 0x0004 ; Address of exception handler 024a 0001 | | .CONST 0x0001 ; Number of locals 024b BODY_0248: 024b INIT_0248: 024b e016 | | Load 0x0,0x16 024c 180e | | Execute Package,Field_Execute,Field_Number 0xe 024d 00ca | | Action Exit_Nullary_Function 024e 0000 0000 | | .XXX[0x2] 0250 ; -------------------------------------------------------------------------------------- 0250 ; SUBPROGRAM 0250 ; -------------------------------------------------------------------------------------- 0250 025e | ^ | .CONST 0x025e ; Address of begin 0251 02f9 | | .CONST 0x02f9 ; Address of exception handler 0252 0005 | | .CONST 0x0005 ; Number of locals 0253 INIT_0250: 0253 0092 0a12 | | Action Push_String_Extended,0xa12 ; "Convert_Tokens" 0255 e004 | | Load 0x0,0x4 0256 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0257 02c7 | | Declare_Variable Any 0258 e004 | | Load 0x0,0x4 0259 180e | | Execute Package,Field_Execute,Field_Number 0xe 025a a403 | | Store_Unchecked 0x2,0x3 025b 00e3 | | Load_Encached Natural_Cache 025c 029f 09ab | | Declare_Subprogram INIT_09a8,For_Call 025e BODY_0250: 025e e403 | | Load 0x2,0x3 025f e5fa | | Load 0x2,-0x6 0260 e5fb | | Load 0x2,-0x5 0261 e5fc | | Load 0x2,-0x4 0262 e5fd | | Load 0x2,-0x3 0263 e224 | $ | Load 0x1,0x24 0264 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0265 e5fe | | Load 0x2,-0x2 0266 e5ff | | Load 0x2,-0x1 0267 e402 | | Load 0x2,0x2 0268 e224 | $ | Load 0x1,0x24 0269 1816 | | Execute Package,Field_Execute,Field_Number 0x16 026a c403 | | Store 0x2,0x3 026b e403 | | Load 0x2,0x3 026c e224 | $ | Load 0x1,0x24 026d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 026e e403 | | Load 0x2,0x3 026f e5ff | | Load 0x2,-0x1 0270 8234 | 4 | Call 0x1,0x34 0271 e403 | | Load 0x2,0x3 0272 e5fe | | Load 0x2,-0x2 0273 8234 | 4 | Call 0x1,0x34 0274 e5ff | | Load 0x2,-0x1 0275 823a | : | Call 0x1,0x3a 0276 a404 | | Store_Unchecked 0x2,0x4 0277 e5fd | | Load 0x2,-0x3 0278 e404 | | Load 0x2,0x4 0279 027e | ~ | Execute Discrete,Not_Equal 027a 6819 |h | Jump_Zero 0x294 027b e403 | | Load 0x2,0x3 027c 0092 0a13 | | Action Push_String_Extended,0xa13 ; "The token count for the current product (" 027e 4820 |H | Short_Literal 0x20 027f 4800 |H | Short_Literal 0x0 0280 480a |H | Short_Literal 0xa 0281 e404 | | Load 0x2,0x4 0282 e008 | | Load 0x0,0x8 0283 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0284 01cc | | Execute Vector,Catenate 0285 0092 0a14 | | Action Push_String_Extended,0xa14 ; ") is NOT equal to Token_Count parameter (" 0287 01cc | | Execute Vector,Catenate 0288 4820 |H | Short_Literal 0x20 0289 4800 |H | Short_Literal 0x0 028a 480a |H | Short_Literal 0xa 028b e5fd | | Load 0x2,-0x3 028c e008 | | Load 0x0,0x8 028d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 028e 01cc | | Execute Vector,Catenate 028f 0092 0a15 | | Action Push_String_Extended,0xa15 ; "); these must be equal in order to proceed." 0291 01cc | | Execute Vector,Catenate 0292 e224 | $ | Load 0x1,0x24 0293 180d | | Execute Package,Field_Execute,Field_Number 0xd 0294 e5fb | | Load 0x2,-0x5 0295 e5fc | | Load 0x2,-0x4 0296 e5fd | | Load 0x2,-0x3 0297 e5fe | | Load 0x2,-0x2 0298 e5ff | | Load 0x2,-0x1 0299 822e | . | Call 0x1,0x2e 029a 7015 |p | Jump_Nonzero 0x2b0 029b e403 | | Load 0x2,0x3 029c 0092 0a16 | | Action Push_String_Extended,0xa16 ; "The code provided does NOT match the request being made. This might be caused by a transcription error of the code, current product, new product, or the Machine ID of this machine (" 029e 4820 |H | Short_Literal 0x20 029f 4800 |H | Short_Literal 0x0 02a0 480a |H | Short_Literal 0xa 02a1 8211 | | Call 0x1,0x11 02a2 e008 | | Load 0x0,0x8 02a3 1817 | | Execute Package,Field_Execute,Field_Number 0x17 02a4 01cc | | Execute Vector,Catenate 02a5 0092 0a17 | | Action Push_String_Extended,0xa17 ; "), a delay in posting the request (code only valid for one day), " 02a7 01cc | | Execute Vector,Catenate 02a8 0092 0a18 | | Action Push_String_Extended,0xa18 ; "or some other combination of parameter problems. " 02aa 01cc | | Execute Vector,Catenate 02ab 0092 0a19 | | Action Push_String_Extended,0xa19 ; "Contact your Rational representative for further assistance." 02ad 01cc | | Execute Vector,Catenate 02ae e224 | $ | Load 0x1,0x24 02af 180d | | Execute Package,Field_Execute,Field_Number 0xd 02b0 e5fb | | Load 0x2,-0x5 02b1 01db | | Execute Vector,Length 02b2 680a |h | Jump_Zero 0x2bd 02b3 e5fb | | Load 0x2,-0x5 02b4 e5ff | | Load 0x2,-0x1 02b5 e226 | & | Load 0x1,0x26 02b6 1814 | | Execute Package,Field_Execute,Field_Number 0x14 02b7 7005 |p | Jump_Nonzero 0x2bd 02b8 e403 | | Load 0x2,0x3 02b9 0092 0a1a | | Action Push_String_Extended,0xa1a ; "The authorization provided has been used previously for this product. It must be unique for this machine for all time." 02bb e224 | $ | Load 0x1,0x24 02bc 180d | | Execute Package,Field_Execute,Field_Number 0xd 02bd e5fe | | Load 0x2,-0x2 02be e013 | | Load 0x0,0x13 02bf 180e | | Execute Package,Field_Execute,Field_Number 0xe 02c0 7009 |p | Jump_Nonzero 0x2ca 02c1 00ea | | Load_Encached Null_String_Cache 02c2 00ea | | Load_Encached Null_String_Cache 02c3 8211 | | Call 0x1,0x11 02c4 e5fe | | Load 0x2,-0x2 02c5 e013 | | Load 0x0,0x13 02c6 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02c7 e5fe | | Load 0x2,-0x2 02c8 e013 | | Load 0x0,0x13 02c9 180d | | Execute Package,Field_Execute,Field_Number 0xd 02ca e5fd | | Load 0x2,-0x3 02cb e5fe | | Load 0x2,-0x2 02cc e012 | | Load 0x0,0x12 02cd 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02ce 4800 |H | Short_Literal 0x0 02cf e5ff | | Load 0x2,-0x1 02d0 e012 | | Load 0x0,0x12 02d1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02d2 8405 | | Call 0x2,0x5 02d3 e5fe | | Load 0x2,-0x2 02d4 823b | ; | Call 0x1,0x3b 02d5 7004 |p | Jump_Nonzero 0x2da 02d6 480c |H | Short_Literal 0xc 02d7 e5fe | | Load 0x2,-0x2 02d8 e012 | | Load 0x0,0x12 02d9 1814 | | Execute Package,Field_Execute,Field_Number 0x14 02da e403 | | Load 0x2,0x3 02db 482e |H. | Short_Literal 0x2e 02dc e5fe | | Load 0x2,-0x2 02dd 0092 0a1b | | Action Push_String_Extended,0xa1b ; " tokens set to " 02df 01cc | | Execute Vector,Catenate 02e0 4820 |H | Short_Literal 0x20 02e1 4800 |H | Short_Literal 0x0 02e2 480a |H | Short_Literal 0xa 02e3 e5fd | | Load 0x2,-0x3 02e4 e008 | | Load 0x0,0x8 02e5 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02e6 01cc | | Execute Vector,Catenate 02e7 01cb | | Execute Vector,Append 02e8 e224 | $ | Load 0x1,0x24 02e9 180f | | Execute Package,Field_Execute,Field_Number 0xf 02ea e403 | | Load 0x2,0x3 02eb e5ff | | Load 0x2,-0x1 02ec 0092 0a1c | | Action Push_String_Extended,0xa1c ; " has no more tokens." 02ee 01cc | | Execute Vector,Catenate 02ef e224 | $ | Load 0x1,0x24 02f0 180f | | Execute Package,Field_Execute,Field_Number 0xf 02f1 e226 | & | Load 0x1,0x26 02f2 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02f3 e403 | | Load 0x2,0x3 02f4 00ea | | Load_Encached Null_String_Cache 02f5 e402 | | Load 0x2,0x2 02f6 e224 | $ | Load 0x1,0x24 02f7 1819 | | Execute Package,Field_Execute,Field_Number 0x19 02f8 4507 |E | Exit_Suprogram New_Top_Offset 0x7 02f9 TRAP_0250: 02f9 e004 | | Load 0x0,0x4 02fa 1b47 | G | Execute Package,Field_Read,Field_Number 0x47 02fb 010f | | Execute Exception,Equal 02fc 6806 |h | Jump_Zero 0x303 02fd e403 | | Load 0x2,0x3 02fe e402 | | Load 0x2,0x2 02ff e224 | $ | Load 0x1,0x24 0300 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0301 00d8 | | Load_Top At_Offset_0 0302 0101 | | Execute Exception,Reraise 0303 e227 | ' | Load 0x1,0x27 0304 010f | | Execute Exception,Equal 0305 6805 |h | Jump_Zero 0x30b 0306 e403 | | Load 0x2,0x3 0307 e402 | | Load 0x2,0x2 0308 e224 | $ | Load 0x1,0x24 0309 181a | | Execute Package,Field_Execute,Field_Number 0x1a 030a 4507 |E | Exit_Suprogram New_Top_Offset 0x7 030b e403 | | Load 0x2,0x3 030c 4800 |H | Short_Literal 0x0 030d 4801 |H | Short_Literal 0x1 030e e015 | | Load 0x0,0x15 030f 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0310 e402 | | Load 0x2,0x2 0311 e224 | $ | Load 0x1,0x24 0312 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0313 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0314 0000 0000 | | .BLANK 0000[0x4] 0318 ; -------------------------------------------------------------------------------------- 0318 ; SUBPROGRAM 0318 ; -------------------------------------------------------------------------------------- 0318 0323 | # | .CONST 0x0323 ; Address of begin 0319 036e | n | .CONST 0x036e ; Address of exception handler 031a 0003 | | .CONST 0x0003 ; Number of locals 031b INIT_0318: 031b 0092 0a1d | | Action Push_String_Extended,0xa1d ; "Allow_Token_Conversion" 031d e004 | | Load 0x0,0x4 031e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 031f 02c7 | | Declare_Variable Any 0320 e004 | | Load 0x0,0x4 0321 180e | | Execute Package,Field_Execute,Field_Number 0xe 0322 a403 | | Store_Unchecked 0x2,0x3 0323 BODY_0318: 0323 00d8 | | Load_Top At_Offset_0 0324 e5f9 | | Load 0x2,-0x7 0325 e5fa | | Load 0x2,-0x6 0326 e5fb | | Load 0x2,-0x5 0327 e5fc | | Load 0x2,-0x4 0328 e224 | $ | Load 0x1,0x24 0329 181d | | Execute Package,Field_Execute,Field_Number 0x1d 032a e5fd | | Load 0x2,-0x3 032b e224 | $ | Load 0x1,0x24 032c 181c | | Execute Package,Field_Execute,Field_Number 0x1c 032d e5fe | | Load 0x2,-0x2 032e e5ff | | Load 0x2,-0x1 032f e402 | | Load 0x2,0x2 0330 e224 | $ | Load 0x1,0x24 0331 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0332 c403 | | Store 0x2,0x3 0333 00d8 | | Load_Top At_Offset_0 0334 e224 | $ | Load 0x1,0x24 0335 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0336 00d8 | | Load_Top At_Offset_0 0337 e5fa | | Load 0x2,-0x6 0338 8236 | 6 | Call 0x1,0x36 0339 00d8 | | Load_Top At_Offset_0 033a e5ff | | Load 0x2,-0x1 033b 8234 | 4 | Call 0x1,0x34 033c 00d8 | | Load_Top At_Offset_0 033d e5fe | | Load 0x2,-0x2 033e 8234 | 4 | Call 0x1,0x34 033f e226 | & | Load 0x1,0x26 0340 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0341 7005 |p | Jump_Nonzero 0x347 0342 00d8 | | Load_Top At_Offset_0 0343 0092 0a1e | | Action Push_String_Extended,0xa1e ; "Must be run from a Rational site." 0345 e224 | $ | Load 0x1,0x24 0346 180d | | Execute Package,Field_Execute,Field_Number 0xd 0347 e5fc | | Load 0x2,-0x4 0348 8211 | | Call 0x1,0x11 0349 027f | | Execute Discrete,Equal 034a 6805 |h | Jump_Zero 0x350 034b 00d8 | | Load_Top At_Offset_0 034c 0092 0a0a | | Action Push_String_Extended,0xa0a ; "Remote_Machine_ID specified is the Machine_ID for this machine." 034e e224 | $ | Load 0x1,0x24 034f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0350 00d8 | | Load_Top At_Offset_0 0351 e5fa | | Load 0x2,-0x6 0352 e5fb | | Load 0x2,-0x5 0353 e5ff | | Load 0x2,-0x1 0354 8238 | 8 | Call 0x1,0x38 0355 e5fa | | Load 0x2,-0x6 0356 e228 | ( | Load 0x1,0x28 0357 01df | | Execute Vector,Equal 0358 6808 |h | Jump_Zero 0x361 0359 e229 | ) | Load 0x1,0x29 035a e5fb | | Load 0x2,-0x5 035b e5fc | | Load 0x2,-0x4 035c e5fd | | Load 0x2,-0x3 035d e5fe | | Load 0x2,-0x2 035e e5ff | | Load 0x2,-0x1 035f 8232 | 2 | Call 0x1,0x32 0360 7807 |x | Jump 0x368 0361 e5fa | | Load 0x2,-0x6 0362 e5fb | | Load 0x2,-0x5 0363 e5fc | | Load 0x2,-0x4 0364 e5fd | | Load 0x2,-0x3 0365 e5fe | | Load 0x2,-0x2 0366 e5ff | | Load 0x2,-0x1 0367 8232 | 2 | Call 0x1,0x32 0368 00d8 | | Load_Top At_Offset_0 0369 00ea | | Load_Encached Null_String_Cache 036a e402 | | Load 0x2,0x2 036b e224 | $ | Load 0x1,0x24 036c 1819 | | Execute Package,Field_Execute,Field_Number 0x19 036d 4508 |E | Exit_Suprogram New_Top_Offset 0x8 036e TRAP_0318: 036e e004 | | Load 0x0,0x4 036f 1b47 | G | Execute Package,Field_Read,Field_Number 0x47 0370 010f | | Execute Exception,Equal 0371 6806 |h | Jump_Zero 0x378 0372 e403 | | Load 0x2,0x3 0373 e402 | | Load 0x2,0x2 0374 e224 | $ | Load 0x1,0x24 0375 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0376 00d8 | | Load_Top At_Offset_0 0377 0101 | | Execute Exception,Reraise 0378 e227 | ' | Load 0x1,0x27 0379 010f | | Execute Exception,Equal 037a 6805 |h | Jump_Zero 0x380 037b e403 | | Load 0x2,0x3 037c e402 | | Load 0x2,0x2 037d e224 | $ | Load 0x1,0x24 037e 181a | | Execute Package,Field_Execute,Field_Number 0x1a 037f 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0380 e403 | | Load 0x2,0x3 0381 4800 |H | Short_Literal 0x0 0382 4801 |H | Short_Literal 0x1 0383 e015 | | Load 0x0,0x15 0384 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0385 e402 | | Load 0x2,0x2 0386 e224 | $ | Load 0x1,0x24 0387 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0388 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0389 0000 0000 | | .BLANK 0000[0x7] 0390 ; -------------------------------------------------------------------------------------- 0390 ; SUBPROGRAM 0390 ; -------------------------------------------------------------------------------------- 0390 039b | | .CONST 0x039b ; Address of begin 0391 03f0 | | .CONST 0x03f0 ; Address of exception handler 0392 0003 | | .CONST 0x0003 ; Number of locals 0393 INIT_0390: 0393 0092 0a1f | | Action Push_String_Extended,0xa1f ; "Assign_Tokens" 0395 e004 | | Load 0x0,0x4 0396 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0397 02c7 | | Declare_Variable Any 0398 e004 | | Load 0x0,0x4 0399 180e | | Execute Package,Field_Execute,Field_Number 0xe 039a a403 | | Store_Unchecked 0x2,0x3 039b BODY_0390: 039b 00d8 | | Load_Top At_Offset_0 039c e5f8 | | Load 0x2,-0x8 039d e5f9 | | Load 0x2,-0x7 039e e5fa | | Load 0x2,-0x6 039f e5fb | | Load 0x2,-0x5 03a0 e5fc | | Load 0x2,-0x4 03a1 e224 | $ | Load 0x1,0x24 03a2 181d | | Execute Package,Field_Execute,Field_Number 0x1d 03a3 e5fd | | Load 0x2,-0x3 03a4 e224 | $ | Load 0x1,0x24 03a5 181c | | Execute Package,Field_Execute,Field_Number 0x1c 03a6 e5fe | | Load 0x2,-0x2 03a7 e224 | $ | Load 0x1,0x24 03a8 181c | | Execute Package,Field_Execute,Field_Number 0x1c 03a9 e5ff | | Load 0x2,-0x1 03aa e402 | | Load 0x2,0x2 03ab e224 | $ | Load 0x1,0x24 03ac 1818 | | Execute Package,Field_Execute,Field_Number 0x18 03ad c403 | | Store 0x2,0x3 03ae 00d8 | | Load_Top At_Offset_0 03af e224 | $ | Load 0x1,0x24 03b0 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03b1 00d8 | | Load_Top At_Offset_0 03b2 e5fb | | Load 0x2,-0x5 03b3 8235 | 5 | Call 0x1,0x35 03b4 00d8 | | Load_Top At_Offset_0 03b5 e5f9 | | Load 0x2,-0x7 03b6 8236 | 6 | Call 0x1,0x36 03b7 00d8 | | Load_Top At_Offset_0 03b8 e5ff | | Load 0x2,-0x1 03b9 8234 | 4 | Call 0x1,0x34 03ba e226 | & | Load 0x1,0x26 03bb 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03bc 7005 |p | Jump_Nonzero 0x3c2 03bd 00d8 | | Load_Top At_Offset_0 03be 0092 0a1e | | Action Push_String_Extended,0xa1e ; "Must be run from a Rational site." 03c0 e224 | $ | Load 0x1,0x24 03c1 180d | | Execute Package,Field_Execute,Field_Number 0xd 03c2 e5fc | | Load 0x2,-0x4 03c3 8211 | | Call 0x1,0x11 03c4 027f | | Execute Discrete,Equal 03c5 6805 |h | Jump_Zero 0x3cb 03c6 00d8 | | Load_Top At_Offset_0 03c7 0092 0a0a | | Action Push_String_Extended,0xa0a ; "Remote_Machine_ID specified is the Machine_ID for this machine." 03c9 e224 | $ | Load 0x1,0x24 03ca 1810 | | Execute Package,Field_Execute,Field_Number 0x10 03cb 00d8 | | Load_Top At_Offset_0 03cc e5fd | | Load 0x2,-0x3 03cd e5fe | | Load 0x2,-0x2 03ce e5ff | | Load 0x2,-0x1 03cf 8237 | 7 | Call 0x1,0x37 03d0 00d8 | | Load_Top At_Offset_0 03d1 e5f9 | | Load 0x2,-0x7 03d2 e5fa | | Load 0x2,-0x6 03d3 e5ff | | Load 0x2,-0x1 03d4 8238 | 8 | Call 0x1,0x38 03d5 e5f9 | | Load 0x2,-0x7 03d6 e228 | ( | Load 0x1,0x28 03d7 01df | | Execute Vector,Equal 03d8 6809 |h | Jump_Zero 0x3e2 03d9 e229 | ) | Load 0x1,0x29 03da e5fa | | Load 0x2,-0x6 03db e5fb | | Load 0x2,-0x5 03dc e5fc | | Load 0x2,-0x4 03dd e5fd | | Load 0x2,-0x3 03de e5fe | | Load 0x2,-0x2 03df e5ff | | Load 0x2,-0x1 03e0 8231 | 1 | Call 0x1,0x31 03e1 7808 |x | Jump 0x3ea 03e2 e5f9 | | Load 0x2,-0x7 03e3 e5fa | | Load 0x2,-0x6 03e4 e5fb | | Load 0x2,-0x5 03e5 e5fc | | Load 0x2,-0x4 03e6 e5fd | | Load 0x2,-0x3 03e7 e5fe | | Load 0x2,-0x2 03e8 e5ff | | Load 0x2,-0x1 03e9 8231 | 1 | Call 0x1,0x31 03ea 00d8 | | Load_Top At_Offset_0 03eb 00ea | | Load_Encached Null_String_Cache 03ec e402 | | Load 0x2,0x2 03ed e224 | $ | Load 0x1,0x24 03ee 1819 | | Execute Package,Field_Execute,Field_Number 0x19 03ef 4509 |E | Exit_Suprogram New_Top_Offset 0x9 03f0 TRAP_0390: 03f0 e004 | | Load 0x0,0x4 03f1 1b47 | G | Execute Package,Field_Read,Field_Number 0x47 03f2 010f | | Execute Exception,Equal 03f3 6806 |h | Jump_Zero 0x3fa 03f4 e403 | | Load 0x2,0x3 03f5 e402 | | Load 0x2,0x2 03f6 e224 | $ | Load 0x1,0x24 03f7 181a | | Execute Package,Field_Execute,Field_Number 0x1a 03f8 00d8 | | Load_Top At_Offset_0 03f9 0101 | | Execute Exception,Reraise 03fa e227 | ' | Load 0x1,0x27 03fb 010f | | Execute Exception,Equal 03fc 6805 |h | Jump_Zero 0x402 03fd e403 | | Load 0x2,0x3 03fe e402 | | Load 0x2,0x2 03ff e224 | $ | Load 0x1,0x24 0400 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0401 4509 |E | Exit_Suprogram New_Top_Offset 0x9 0402 e403 | | Load 0x2,0x3 0403 4800 |H | Short_Literal 0x0 0404 4801 |H | Short_Literal 0x1 0405 e015 | | Load 0x0,0x15 0406 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0407 e402 | | Load 0x2,0x2 0408 e224 | $ | Load 0x1,0x24 0409 181b | | Execute Package,Field_Execute,Field_Number 0x1b 040a 4509 |E | Exit_Suprogram New_Top_Offset 0x9 040b 0000 0000 | | .BLANK 0000[0x5] 0410 ; -------------------------------------------------------------------------------------- 0410 ; SUBPROGRAM 0410 ; -------------------------------------------------------------------------------------- 0410 0427 | ' | .CONST 0x0427 ; Address of begin 0411 0457 | W | .CONST 0x0457 ; Address of exception handler 0412 0002 | | .CONST 0x0002 ; Number of locals 0413 INIT_0410: 0413 e004 | | Load 0x0,0x4 0414 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0415 02c7 | | Declare_Variable Any 0416 e004 | | Load 0x0,0x4 0417 180e | | Execute Package,Field_Execute,Field_Number 0xe 0418 e004 | | Load 0x0,0x4 0419 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 041a e004 | | Load 0x0,0x4 041b 180e | | Execute Package,Field_Execute,Field_Number 0xe 041c e004 | | Load 0x0,0x4 041d 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 041e 484d |HM | Short_Literal 0x4d 041f e004 | | Load 0x0,0x4 0420 1b45 | E | Execute Package,Field_Read,Field_Number 0x45 0421 e004 | | Load 0x0,0x4 0422 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0423 4800 |H | Short_Literal 0x0 0424 e004 | | Load 0x0,0x4 0425 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 0426 a402 | | Store_Unchecked 0x2,0x2 0427 BODY_0410: 0427 00d8 | | Load_Top At_Offset_0 0428 e224 | $ | Load 0x1,0x24 0429 1811 | | Execute Package,Field_Execute,Field_Number 0x11 042a 00d8 | | Load_Top At_Offset_0 042b e5fb | | Load 0x2,-0x5 042c 8235 | 5 | Call 0x1,0x35 042d 00d8 | | Load_Top At_Offset_0 042e e5f9 | | Load 0x2,-0x7 042f 8236 | 6 | Call 0x1,0x36 0430 00d8 | | Load_Top At_Offset_0 0431 e5ff | | Load 0x2,-0x1 0432 8234 | 4 | Call 0x1,0x34 0433 e226 | & | Load 0x1,0x26 0434 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0435 7005 |p | Jump_Nonzero 0x43b 0436 00d8 | | Load_Top At_Offset_0 0437 0092 0a1e | | Action Push_String_Extended,0xa1e ; "Must be run from a Rational site." 0439 e224 | $ | Load 0x1,0x24 043a 180d | | Execute Package,Field_Execute,Field_Number 0xd 043b e5fc | | Load 0x2,-0x4 043c 8211 | | Call 0x1,0x11 043d 027f | | Execute Discrete,Equal 043e 6805 |h | Jump_Zero 0x444 043f 00d8 | | Load_Top At_Offset_0 0440 0092 0a0a | | Action Push_String_Extended,0xa0a ; "Remote_Machine_ID specified is the Machine_ID for this machine." 0442 e224 | $ | Load 0x1,0x24 0443 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0444 00d8 | | Load_Top At_Offset_0 0445 e5fd | | Load 0x2,-0x3 0446 e5fe | | Load 0x2,-0x2 0447 e5ff | | Load 0x2,-0x1 0448 8237 | 7 | Call 0x1,0x37 0449 00d8 | | Load_Top At_Offset_0 044a e5f9 | | Load 0x2,-0x7 044b e5fa | | Load 0x2,-0x6 044c e5ff | | Load 0x2,-0x1 044d 8238 | 8 | Call 0x1,0x38 044e e5f9 | | Load 0x2,-0x7 044f e5fa | | Load 0x2,-0x6 0450 e5fb | | Load 0x2,-0x5 0451 e5fc | | Load 0x2,-0x4 0452 e5fd | | Load 0x2,-0x3 0453 e5fe | | Load 0x2,-0x2 0454 e5ff | | Load 0x2,-0x1 0455 822b | + | Call 0x1,0x2b 0456 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7 0457 TRAP_0410: 0457 e227 | ' | Load 0x1,0x27 0458 010f | | Execute Exception,Equal 0459 6803 |h | Jump_Zero 0x45d 045a e004 | | Load 0x0,0x4 045b 1b47 | G | Execute Package,Field_Read,Field_Number 0x47 045c 0257 | W | Execute Discrete,Raise 045d 0100 | | Execute Exception,Raise 045e 0000 0000 | | .XXX[0x2] 0460 ; -------------------------------------------------------------------------------------- 0460 ; SUBPROGRAM 0460 ; -------------------------------------------------------------------------------------- 0460 046b | k | .CONST 0x046b ; Address of begin 0461 049b | | .CONST 0x049b ; Address of exception handler 0462 0003 | | .CONST 0x0003 ; Number of locals 0463 INIT_0460: 0463 0092 0a20 | | Action Push_String_Extended,0xa20 ; "Assign_Site" 0465 e004 | | Load 0x0,0x4 0466 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0467 02c7 | | Declare_Variable Any 0468 e004 | | Load 0x0,0x4 0469 180e | | Execute Package,Field_Execute,Field_Number 0xe 046a a403 | | Store_Unchecked 0x2,0x3 046b BODY_0460: 046b 00d8 | | Load_Top At_Offset_0 046c e5fc | | Load 0x2,-0x4 046d e5fd | | Load 0x2,-0x3 046e e5fe | | Load 0x2,-0x2 046f e224 | $ | Load 0x1,0x24 0470 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0471 e5ff | | Load 0x2,-0x1 0472 e402 | | Load 0x2,0x2 0473 e224 | $ | Load 0x1,0x24 0474 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0475 c403 | | Store 0x2,0x3 0476 00d8 | | Load_Top At_Offset_0 0477 e5ff | | Load 0x2,-0x1 0478 8235 | 5 | Call 0x1,0x35 0479 0092 0a21 | !| Action Push_String_Extended,0xa21 ; "Run the following on the remote machine:" 047b e014 | | Load 0x0,0x14 047c 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 047d 0092 0a0d | | Action Push_String_Extended,0xa0d ; "Set_Site" 047f e225 | % | Load 0x1,0x25 0480 180d | | Execute Package,Field_Execute,Field_Number 0xd 0481 e5ff | | Load 0x2,-0x1 0482 e224 | $ | Load 0x1,0x24 0483 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0484 0092 0a22 | "| Action Push_String_Extended,0xa22 ; "Site" 0486 e225 | % | Load 0x1,0x25 0487 180e | | Execute Package,Field_Execute,Field_Number 0xe 0488 e228 | ( | Load 0x1,0x28 0489 e5fd | | Load 0x2,-0x3 048a e5fe | | Load 0x2,-0x2 048b e5ff | | Load 0x2,-0x1 048c 822a | * | Call 0x1,0x2a 048d e224 | $ | Load 0x1,0x24 048e 181e | | Execute Package,Field_Execute,Field_Number 0x1e 048f 0092 0a23 | #| Action Push_String_Extended,0xa23 ; "Code" 0491 e225 | % | Load 0x1,0x25 0492 180e | | Execute Package,Field_Execute,Field_Number 0xe 0493 e225 | % | Load 0x1,0x25 0494 180f | | Execute Package,Field_Execute,Field_Number 0xf 0495 00d8 | | Load_Top At_Offset_0 0496 00ea | | Load_Encached Null_String_Cache 0497 e402 | | Load 0x2,0x2 0498 e224 | $ | Load 0x1,0x24 0499 1819 | | Execute Package,Field_Execute,Field_Number 0x19 049a 4505 |E | Exit_Suprogram New_Top_Offset 0x5 049b TRAP_0460: 049b e004 | | Load 0x0,0x4 049c 1b47 | G | Execute Package,Field_Read,Field_Number 0x47 049d 010f | | Execute Exception,Equal 049e 6806 |h | Jump_Zero 0x4a5 049f e403 | | Load 0x2,0x3 04a0 e402 | | Load 0x2,0x2 04a1 e224 | $ | Load 0x1,0x24 04a2 181a | | Execute Package,Field_Execute,Field_Number 0x1a 04a3 00d8 | | Load_Top At_Offset_0 04a4 0101 | | Execute Exception,Reraise 04a5 e227 | ' | Load 0x1,0x27 04a6 010f | | Execute Exception,Equal 04a7 6805 |h | Jump_Zero 0x4ad 04a8 e403 | | Load 0x2,0x3 04a9 e402 | | Load 0x2,0x2 04aa e224 | $ | Load 0x1,0x24 04ab 181a | | Execute Package,Field_Execute,Field_Number 0x1a 04ac 4505 |E | Exit_Suprogram New_Top_Offset 0x5 04ad e403 | | Load 0x2,0x3 04ae 4800 |H | Short_Literal 0x0 04af 4801 |H | Short_Literal 0x1 04b0 e015 | | Load 0x0,0x15 04b1 1815 | | Execute Package,Field_Execute,Field_Number 0x15 04b2 e402 | | Load 0x2,0x2 04b3 e224 | $ | Load 0x1,0x24 04b4 181b | | Execute Package,Field_Execute,Field_Number 0x1b 04b5 4505 |E | Exit_Suprogram New_Top_Offset 0x5 04b6 0000 0000 | | .XXX[0x2] 04b8 ; -------------------------------------------------------------------------------------- 04b8 ; SUBPROGRAM 04b8 ; -------------------------------------------------------------------------------------- 04b8 04cf | | .CONST 0x04cf ; Address of begin 04b9 04d8 | | .CONST 0x04d8 ; Address of exception handler 04ba 0002 | | .CONST 0x0002 ; Number of locals 04bb INIT_04b8: 04bb e004 | | Load 0x0,0x4 04bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04bd 02c7 | | Declare_Variable Any 04be e004 | | Load 0x0,0x4 04bf 180e | | Execute Package,Field_Execute,Field_Number 0xe 04c0 e004 | | Load 0x0,0x4 04c1 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 04c2 e004 | | Load 0x0,0x4 04c3 180e | | Execute Package,Field_Execute,Field_Number 0xe 04c4 e004 | | Load 0x0,0x4 04c5 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 04c6 484d |HM | Short_Literal 0x4d 04c7 e004 | | Load 0x0,0x4 04c8 1b45 | E | Execute Package,Field_Read,Field_Number 0x45 04c9 e004 | | Load 0x0,0x4 04ca 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 04cb 4800 |H | Short_Literal 0x0 04cc e004 | | Load 0x0,0x4 04cd 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 04ce a402 | | Store_Unchecked 0x2,0x2 04cf BODY_04b8: 04cf 00d8 | | Load_Top At_Offset_0 04d0 e5ff | | Load 0x2,-0x1 04d1 8235 | 5 | Call 0x1,0x35 04d2 e228 | ( | Load 0x1,0x28 04d3 e5fd | | Load 0x2,-0x3 04d4 e5fe | | Load 0x2,-0x2 04d5 e5ff | | Load 0x2,-0x1 04d6 822a | * | Call 0x1,0x2a 04d7 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 04d8 TRAP_04b8: 04d8 e227 | ' | Load 0x1,0x27 04d9 010f | | Execute Exception,Equal 04da 6803 |h | Jump_Zero 0x4de 04db e004 | | Load 0x0,0x4 04dc 1b47 | G | Execute Package,Field_Read,Field_Number 0x47 04dd 0257 | W | Execute Discrete,Raise 04de 0100 | | Execute Exception,Raise 04df 0000 | | .XXX[0x1] 04e0 ; -------------------------------------------------------------------------------------- 04e0 ; SUBPROGRAM 04e0 ; -------------------------------------------------------------------------------------- 04e0 04ed | | .CONST 0x04ed ; Address of begin 04e1 0532 | 2 | .CONST 0x0532 ; Address of exception handler 04e2 0004 | | .CONST 0x0004 ; Number of locals 04e3 INIT_04e0: 04e3 0092 0a24 | $| Action Push_String_Extended,0xa24 ; "Training" 04e5 0092 0a25 | %| Action Push_String_Extended,0xa25 ; "Training_Authorization" 04e7 e004 | | Load 0x0,0x4 04e8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04e9 02c7 | | Declare_Variable Any 04ea e004 | | Load 0x0,0x4 04eb 180e | | Execute Package,Field_Execute,Field_Number 0xe 04ec a404 | | Store_Unchecked 0x2,0x4 04ed BODY_04e0: 04ed 00d8 | | Load_Top At_Offset_0 04ee e5fc | | Load 0x2,-0x4 04ef 482b |H+ | Short_Literal 0x2b 04f0 e5fd | | Load 0x2,-0x3 04f1 00e1 | | Load_Encached Boolean_Cache 04f2 011c | | Execute Any,Convert_Unchecked 04f3 1c01 | | Execute_Immediate Run_Utility,0x1 04f4 01ca | | Execute Vector,Prepend 04f5 e5fe | | Load 0x2,-0x2 04f6 e5ff | | Load 0x2,-0x1 04f7 e403 | | Load 0x2,0x3 04f8 e224 | $ | Load 0x1,0x24 04f9 1814 | | Execute Package,Field_Execute,Field_Number 0x14 04fa c404 | | Store 0x2,0x4 04fb e5fd | | Load 0x2,-0x3 04fc 700f |p | Jump_Nonzero 0x50c 04fd 4801 |H | Short_Literal 0x1 04fe e013 | | Load 0x0,0x13 04ff 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0500 4801 |H | Short_Literal 0x1 0501 e012 | | Load 0x0,0x12 0502 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0503 4803 |H | Short_Literal 0x3 0504 0092 0a26 | &| Action Push_String_Extended,0xa26 ; "Product and Token authorization checking has been reinstated." 0506 0092 0a27 | '| Action Push_String_Extended,0xa27 ; "Authorization_Checking_Reinstated" 0508 e403 | | Load 0x2,0x3 0509 e224 | $ | Load 0x1,0x24 050a 181f | | Execute Package,Field_Execute,Field_Number 0x1f 050b 7820 |x | Jump 0x52c 050c e5ff | | Load 0x2,-0x1 050d e229 | ) | Load 0x1,0x29 050e e5fe | | Load 0x2,-0x2 050f e016 | | Load 0x0,0x16 0510 180e | | Execute Package,Field_Execute,Field_Number 0xe 0511 e402 | | Load 0x2,0x2 0512 822a | * | Call 0x1,0x2a 0513 01df | | Execute Vector,Equal 0514 680f |h | Jump_Zero 0x524 0515 4800 |H | Short_Literal 0x0 0516 e013 | | Load 0x0,0x13 0517 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0518 4800 |H | Short_Literal 0x0 0519 e012 | | Load 0x0,0x12 051a 181a | | Execute Package,Field_Execute,Field_Number 0x1a 051b 4803 |H | Short_Literal 0x3 051c 0092 0a28 | (| Action Push_String_Extended,0xa28 ; "Product and Token authorization checking has been suspended to allow training to proceed. Checking will be re-instated the next time the machine boots or by exectuting this procedure with Enable => False." 051e 0092 0a29 | )| Action Push_String_Extended,0xa29 ; "Authorization_Checking_Suspended" 0520 e403 | | Load 0x2,0x3 0521 e224 | $ | Load 0x1,0x24 0522 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0523 7808 |x | Jump 0x52c 0524 4807 |H | Short_Literal 0x7 0525 0092 0a2a | *| Action Push_String_Extended,0xa2a ; "The code provided is NOT correct for this purpose, on this machine, and for today's date. Please check for transcription errors or contact your Rational representative." 0527 0092 0a2b | +| Action Push_String_Extended,0xa2b ; "Authorization_Code_Error" 0529 e403 | | Load 0x2,0x3 052a e224 | $ | Load 0x1,0x24 052b 181f | | Execute Package,Field_Execute,Field_Number 0x1f 052c 00d8 | | Load_Top At_Offset_0 052d 00ea | | Load_Encached Null_String_Cache 052e e403 | | Load 0x2,0x3 052f e224 | $ | Load 0x1,0x24 0530 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0531 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0532 TRAP_04e0: 0532 e004 | | Load 0x0,0x4 0533 1b47 | G | Execute Package,Field_Read,Field_Number 0x47 0534 010f | | Execute Exception,Equal 0535 6806 |h | Jump_Zero 0x53c 0536 e404 | | Load 0x2,0x4 0537 e403 | | Load 0x2,0x3 0538 e224 | $ | Load 0x1,0x24 0539 181a | | Execute Package,Field_Execute,Field_Number 0x1a 053a 00d8 | | Load_Top At_Offset_0 053b 0101 | | Execute Exception,Reraise 053c e227 | ' | Load 0x1,0x27 053d 010f | | Execute Exception,Equal 053e 6805 |h | Jump_Zero 0x544 053f e404 | | Load 0x2,0x4 0540 e403 | | Load 0x2,0x3 0541 e224 | $ | Load 0x1,0x24 0542 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0543 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0544 e404 | | Load 0x2,0x4 0545 4800 |H | Short_Literal 0x0 0546 4801 |H | Short_Literal 0x1 0547 e015 | | Load 0x0,0x15 0548 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0549 e403 | | Load 0x2,0x3 054a e224 | $ | Load 0x1,0x24 054b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 054c 4505 |E | Exit_Suprogram New_Top_Offset 0x5 054d 0000 0000 | | .XXX[0x3] 054f 0000 | | 0550 ; -------------------------------------------------------------------------------------- 0550 ; SUBPROGRAM 0550 ; -------------------------------------------------------------------------------------- 0550 0553 | S | .CONST 0x0553 ; Address of begin 0551 0004 | | .CONST 0x0004 ; Address of exception handler 0552 0001 | | .CONST 0x0001 ; Number of locals 0553 BODY_0550: 0553 INIT_0550: 0553 e00d | | Load 0x0,0xd 0554 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0555 e226 | & | Load 0x1,0x26 0556 180f | | Execute Package,Field_Execute,Field_Number 0xf 0557 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0558 ; -------------------------------------------------------------------------------------- 0558 ; SUBPROGRAM 0558 ; -------------------------------------------------------------------------------------- 0558 055b | [ | .CONST 0x055b ; Address of begin 0559 0004 | | .CONST 0x0004 ; Address of exception handler 055a 0001 | | .CONST 0x0001 ; Number of locals 055b BODY_0558: 055b INIT_0558: 055b e00d | | Load 0x0,0xd 055c 1812 | | Execute Package,Field_Execute,Field_Number 0x12 055d e226 | & | Load 0x1,0x26 055e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 055f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0560 ; -------------------------------------------------------------------------------------- 0560 ; SUBPROGRAM 0560 ; -------------------------------------------------------------------------------------- 0560 0563 | c | .CONST 0x0563 ; Address of begin 0561 0004 | | .CONST 0x0004 ; Address of exception handler 0562 0001 | | .CONST 0x0001 ; Number of locals 0563 BODY_0560: 0563 INIT_0560: 0563 e002 | | Load 0x0,0x2 0564 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0565 e226 | & | Load 0x1,0x26 0566 180f | | Execute Package,Field_Execute,Field_Number 0xf 0567 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0568 ; -------------------------------------------------------------------------------------- 0568 ; SUBPROGRAM 0568 ; -------------------------------------------------------------------------------------- 0568 056b | k | .CONST 0x056b ; Address of begin 0569 0004 | | .CONST 0x0004 ; Address of exception handler 056a 0001 | | .CONST 0x0001 ; Number of locals 056b BODY_0568: 056b INIT_0568: 056b e002 | | Load 0x0,0x2 056c 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 056d e226 | & | Load 0x1,0x26 056e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 056f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0570 ; -------------------------------------------------------------------------------------- 0570 ; SUBPROGRAM 0570 ; -------------------------------------------------------------------------------------- 0570 0573 | s | .CONST 0x0573 ; Address of begin 0571 0004 | | .CONST 0x0004 ; Address of exception handler 0572 0001 | | .CONST 0x0001 ; Number of locals 0573 BODY_0570: 0573 INIT_0570: 0573 e226 | & | Load 0x1,0x26 0574 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0575 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0576 0000 0000 | | .XXX[0x2] 0578 ; -------------------------------------------------------------------------------------- 0578 ; SUBPROGRAM 0578 ; -------------------------------------------------------------------------------------- 0578 057b | { | .CONST 0x057b ; Address of begin 0579 0004 | | .CONST 0x0004 ; Address of exception handler 057a 0001 | | .CONST 0x0001 ; Number of locals 057b BODY_0578: 057b INIT_0578: 057b e5fd | | Load 0x2,-0x3 057c 01db | | Execute Vector,Length 057d 6808 |h | Jump_Zero 0x586 057e e228 | ( | Load 0x1,0x28 057f e5fe | | Load 0x2,-0x2 0580 e5ff | | Load 0x2,-0x1 0581 e5fd | | Load 0x2,-0x3 0582 01cc | | Execute Vector,Catenate 0583 e013 | | Load 0x0,0x13 0584 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0585 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0586 e5fc | | Load 0x2,-0x4 0587 01db | | Execute Vector,Length 0588 7006 |p | Jump_Nonzero 0x58f 0589 e229 | ) | Load 0x1,0x29 058a e5fe | | Load 0x2,-0x2 058b e5ff | | Load 0x2,-0x1 058c e013 | | Load 0x0,0x13 058d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 058e 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 058f e5fc | | Load 0x2,-0x4 0590 e5fe | | Load 0x2,-0x2 0591 e5ff | | Load 0x2,-0x1 0592 e013 | | Load 0x0,0x13 0593 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0594 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0595 0000 0000 | | .XXX[0x3] 0597 0000 | | 0598 ; -------------------------------------------------------------------------------------- 0598 ; SUBPROGRAM 0598 ; -------------------------------------------------------------------------------------- 0598 059b | | .CONST 0x059b ; Address of begin 0599 0004 | | .CONST 0x0004 ; Address of exception handler 059a 0001 | | .CONST 0x0001 ; Number of locals 059b BODY_0598: 059b INIT_0598: 059b e5f9 | | Load 0x2,-0x7 059c e5fa | | Load 0x2,-0x6 059d e5fc | | Load 0x2,-0x4 059e e5ff | | Load 0x2,-0x1 059f 0092 0a2c | ,| Action Push_String_Extended,0xa2c ; "/" 05a1 01cc | | Execute Vector,Catenate 05a2 e5fb | | Load 0x2,-0x5 05a3 01cc | | Execute Vector,Catenate 05a4 0092 0a2d | -| Action Push_String_Extended,0xa2d ; "=" 05a6 01cc | | Execute Vector,Catenate 05a7 4820 |H | Short_Literal 0x20 05a8 4800 |H | Short_Literal 0x0 05a9 480a |H | Short_Literal 0xa 05aa e5fe | | Load 0x2,-0x2 05ab e008 | | Load 0x0,0x8 05ac 1816 | | Execute Package,Field_Execute,Field_Number 0x16 05ad 01cc | | Execute Vector,Catenate 05ae 0092 0a2e | .| Action Push_String_Extended,0xa2e ; "|" 05b0 01cc | | Execute Vector,Catenate 05b1 4820 |H | Short_Literal 0x20 05b2 4800 |H | Short_Literal 0x0 05b3 480a |H | Short_Literal 0xa 05b4 e5fd | | Load 0x2,-0x3 05b5 e008 | | Load 0x0,0x8 05b6 1816 | | Execute Package,Field_Execute,Field_Number 0x16 05b7 01cc | | Execute Vector,Catenate 05b8 822a | * | Call 0x1,0x2a 05b9 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7 05ba 0000 0000 | | .BLANK 0000[0x6] 05c0 ; -------------------------------------------------------------------------------------- 05c0 ; SUBPROGRAM 05c0 ; -------------------------------------------------------------------------------------- 05c0 05c3 | | .CONST 0x05c3 ; Address of begin 05c1 0004 | | .CONST 0x0004 ; Address of exception handler 05c2 0001 | | .CONST 0x0001 ; Number of locals 05c3 BODY_05c0: 05c3 INIT_05c0: 05c3 e5fa | | Load 0x2,-0x6 05c4 e5fb | | Load 0x2,-0x5 05c5 e5fc | | Load 0x2,-0x4 05c6 482d |H- | Short_Literal 0x2d 05c7 e5ff | | Load 0x2,-0x1 05c8 01cb | | Execute Vector,Append 05c9 e5fe | | Load 0x2,-0x2 05ca 01cc | | Execute Vector,Catenate 05cb 4820 |H | Short_Literal 0x20 05cc 4800 |H | Short_Literal 0x0 05cd 480a |H | Short_Literal 0xa 05ce e5fd | | Load 0x2,-0x3 05cf e008 | | Load 0x0,0x8 05d0 1816 | | Execute Package,Field_Execute,Field_Number 0x16 05d1 01cc | | Execute Vector,Catenate 05d2 822a | * | Call 0x1,0x2a 05d3 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 05d4 0000 0000 | | .BLANK 0000[0x4] 05d8 ; -------------------------------------------------------------------------------------- 05d8 ; SUBPROGRAM 05d8 ; -------------------------------------------------------------------------------------- 05d8 05db | | .CONST 0x05db ; Address of begin 05d9 0004 | | .CONST 0x0004 ; Address of exception handler 05da 0001 | | .CONST 0x0001 ; Number of locals 05db BODY_05d8: 05db INIT_05d8: 05db 4801 |H | Short_Literal 0x1 05dc e5fc | | Load 0x2,-0x4 05dd e229 | ) | Load 0x1,0x29 05de e5fb | | Load 0x2,-0x5 05df 8210 | | Call 0x1,0x10 05e0 8211 | | Call 0x1,0x11 05e1 e5fd | | Load 0x2,-0x3 05e2 e5fe | | Load 0x2,-0x2 05e3 e5ff | | Load 0x2,-0x1 05e4 822b | + | Call 0x1,0x2b 05e5 e008 | | Load 0x0,0x8 05e6 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 05e7 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 05e8 ; -------------------------------------------------------------------------------------- 05e8 ; SUBPROGRAM 05e8 ; -------------------------------------------------------------------------------------- 05e8 05eb | | .CONST 0x05eb ; Address of begin 05e9 0004 | | .CONST 0x0004 ; Address of exception handler 05ea 0001 | | .CONST 0x0001 ; Number of locals 05eb BODY_05e8: 05eb INIT_05e8: 05eb 4801 |H | Short_Literal 0x1 05ec e5fc | | Load 0x2,-0x4 05ed e229 | ) | Load 0x1,0x29 05ee e5fb | | Load 0x2,-0x5 05ef 8211 | | Call 0x1,0x11 05f0 e5fd | | Load 0x2,-0x3 05f1 e5fe | | Load 0x2,-0x2 05f2 e5ff | | Load 0x2,-0x1 05f3 822c | , | Call 0x1,0x2c 05f4 e008 | | Load 0x0,0x8 05f5 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 05f6 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 05f7 0000 | | .XXX[0x1] 05f8 ; -------------------------------------------------------------------------------------- 05f8 ; SUBPROGRAM 05f8 ; -------------------------------------------------------------------------------------- 05f8 0601 | | .CONST 0x0601 ; Address of begin 05f9 0004 | | .CONST 0x0004 ; Address of exception handler 05fa 0002 | | .CONST 0x0002 ; Number of locals 05fb INIT_05f8: 05fb e5ff | | Load 0x2,-0x1 05fc e00d | | Load 0x0,0xd 05fd 1812 | | Execute Package,Field_Execute,Field_Number 0x12 05fe 8230 | 0 | Call 0x1,0x30 05ff 00e1 | | Load_Encached Boolean_Cache 0600 03f1 | | Declare_Variable Discrete,With_Value 0601 BODY_05f8: 0601 00d8 | | Load_Top At_Offset_0 0602 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0603 0000 0000 | | .BLANK 0000[0x5] 0608 ; -------------------------------------------------------------------------------------- 0608 ; SUBPROGRAM 0608 ; -------------------------------------------------------------------------------------- 0608 060d | | .CONST 0x060d ; Address of begin 0609 0004 | | .CONST 0x0004 ; Address of exception handler 060a 0002 | | .CONST 0x0002 ; Number of locals 060b INIT_0608: 060b 029f 09bb | | Declare_Subprogram INIT_09b8,For_Call 060d BODY_0608: 060d e5ff | | Load 0x2,-0x1 060e 8402 | | Call 0x2,0x2 060f e5fe | | Load 0x2,-0x2 0610 8402 | | Call 0x2,0x2 0611 017f | | Execute Record,Equal 0612 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0613 0000 0000 | | .BLANK 0000[0x5] 0618 ; -------------------------------------------------------------------------------------- 0618 ; SUBPROGRAM 0618 ; -------------------------------------------------------------------------------------- 0618 061b | | .CONST 0x061b ; Address of begin 0619 0004 | | .CONST 0x0004 ; Address of exception handler 061a 0001 | | .CONST 0x0001 ; Number of locals 061b BODY_0618: 061b INIT_0618: 061b 0092 0a21 | !| Action Push_String_Extended,0xa21 ; "Run the following on the remote machine:" 061d e014 | | Load 0x0,0x14 061e 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 061f 0092 0a08 | | Action Push_String_Extended,0xa08 ; "Accept_Tokens" 0621 e225 | % | Load 0x1,0x25 0622 180d | | Execute Package,Field_Execute,Field_Number 0xd 0623 e5ff | | Load 0x2,-0x1 0624 e224 | $ | Load 0x1,0x24 0625 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0626 0092 0a2f | /| Action Push_String_Extended,0xa2f ; "Product" 0628 e225 | % | Load 0x1,0x25 0629 180e | | Execute Package,Field_Execute,Field_Number 0xe 062a 4820 |H | Short_Literal 0x20 062b 4800 |H | Short_Literal 0x0 062c 480a |H | Short_Literal 0xa 062d e5fe | | Load 0x2,-0x2 062e e008 | | Load 0x0,0x8 062f 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0630 0092 0a30 | 0| Action Push_String_Extended,0xa30 ; "Donation" 0632 e225 | % | Load 0x1,0x25 0633 180e | | Execute Package,Field_Execute,Field_Number 0xe 0634 4820 |H | Short_Literal 0x20 0635 4800 |H | Short_Literal 0x0 0636 480a |H | Short_Literal 0xa 0637 e5fd | | Load 0x2,-0x3 0638 e008 | | Load 0x0,0x8 0639 1816 | | Execute Package,Field_Execute,Field_Number 0x16 063a 0092 0a31 | 1| Action Push_String_Extended,0xa31 ; "Resulting_Count" 063c e225 | % | Load 0x1,0x25 063d 180e | | Execute Package,Field_Execute,Field_Number 0xe 063e e5f9 | | Load 0x2,-0x7 063f e5fa | | Load 0x2,-0x6 0640 e5fb | | Load 0x2,-0x5 0641 e5fc | | Load 0x2,-0x4 0642 e5fd | | Load 0x2,-0x3 0643 e5fe | | Load 0x2,-0x2 0644 e5ff | | Load 0x2,-0x1 0645 822b | + | Call 0x1,0x2b 0646 e224 | $ | Load 0x1,0x24 0647 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0648 0092 0a23 | #| Action Push_String_Extended,0xa23 ; "Code" 064a e225 | % | Load 0x1,0x25 064b 180e | | Execute Package,Field_Execute,Field_Number 0xe 064c e5fa | | Load 0x2,-0x6 064d 01db | | Execute Vector,Length 064e 6807 |h | Jump_Zero 0x656 064f e5fa | | Load 0x2,-0x6 0650 e224 | $ | Load 0x1,0x24 0651 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0652 0092 0a32 | 2| Action Push_String_Extended,0xa32 ; "Authorization" 0654 e225 | % | Load 0x1,0x25 0655 180e | | Execute Package,Field_Execute,Field_Number 0xe 0656 e225 | % | Load 0x1,0x25 0657 180f | | Execute Package,Field_Execute,Field_Number 0xf 0658 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0659 0000 0000 | | .BLANK 0000[0x7] 0660 ; -------------------------------------------------------------------------------------- 0660 ; SUBPROGRAM 0660 ; -------------------------------------------------------------------------------------- 0660 0663 | c | .CONST 0x0663 ; Address of begin 0661 0004 | | .CONST 0x0004 ; Address of exception handler 0662 0001 | | .CONST 0x0001 ; Number of locals 0663 BODY_0660: 0663 INIT_0660: 0663 0092 0a21 | !| Action Push_String_Extended,0xa21 ; "Run the following on the remote machine:" 0665 e014 | | Load 0x0,0x14 0666 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0667 0092 0a12 | | Action Push_String_Extended,0xa12 ; "Convert_Tokens" 0669 e225 | % | Load 0x1,0x25 066a 180d | | Execute Package,Field_Execute,Field_Number 0xd 066b e5ff | | Load 0x2,-0x1 066c e224 | $ | Load 0x1,0x24 066d 181e | | Execute Package,Field_Execute,Field_Number 0x1e 066e 0092 0a33 | 3| Action Push_String_Extended,0xa33 ; "Current_Product" 0670 e225 | % | Load 0x1,0x25 0671 180e | | Execute Package,Field_Execute,Field_Number 0xe 0672 e5fe | | Load 0x2,-0x2 0673 e224 | $ | Load 0x1,0x24 0674 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0675 0092 0a34 | 4| Action Push_String_Extended,0xa34 ; "New_Product" 0677 e225 | % | Load 0x1,0x25 0678 180e | | Execute Package,Field_Execute,Field_Number 0xe 0679 4820 |H | Short_Literal 0x20 067a 4800 |H | Short_Literal 0x0 067b 480a |H | Short_Literal 0xa 067c e5fd | | Load 0x2,-0x3 067d e008 | | Load 0x0,0x8 067e 1816 | | Execute Package,Field_Execute,Field_Number 0x16 067f 0092 0a35 | 5| Action Push_String_Extended,0xa35 ; "Token_Count" 0681 e225 | % | Load 0x1,0x25 0682 180e | | Execute Package,Field_Execute,Field_Number 0xe 0683 e5fa | | Load 0x2,-0x6 0684 e5fb | | Load 0x2,-0x5 0685 e5fc | | Load 0x2,-0x4 0686 e5fd | | Load 0x2,-0x3 0687 e5fe | | Load 0x2,-0x2 0688 e5ff | | Load 0x2,-0x1 0689 822c | , | Call 0x1,0x2c 068a e224 | $ | Load 0x1,0x24 068b 181e | | Execute Package,Field_Execute,Field_Number 0x1e 068c 0092 0a23 | #| Action Push_String_Extended,0xa23 ; "Code" 068e e225 | % | Load 0x1,0x25 068f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0690 e5fb | | Load 0x2,-0x5 0691 01db | | Execute Vector,Length 0692 6807 |h | Jump_Zero 0x69a 0693 e5fb | | Load 0x2,-0x5 0694 e224 | $ | Load 0x1,0x24 0695 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0696 0092 0a32 | 2| Action Push_String_Extended,0xa32 ; "Authorization" 0698 e225 | % | Load 0x1,0x25 0699 180e | | Execute Package,Field_Execute,Field_Number 0xe 069a e225 | % | Load 0x1,0x25 069b 180f | | Execute Package,Field_Execute,Field_Number 0xf 069c 4507 |E | Exit_Suprogram New_Top_Offset 0x7 069d 0000 0000 | | .XXX[0x3] 069f 0000 | | 06a0 ; -------------------------------------------------------------------------------------- 06a0 ; SUBPROGRAM 06a0 ; -------------------------------------------------------------------------------------- 06a0 06a3 | | .CONST 0x06a3 ; Address of begin 06a1 0004 | | .CONST 0x0004 ; Address of exception handler 06a2 0001 | | .CONST 0x0001 ; Number of locals 06a3 BODY_06a0: 06a3 INIT_06a0: 06a3 e5ff | | Load 0x2,-0x1 06a4 e21f | | Load 0x1,0x1f 06a5 025f | _ | Execute Discrete,Not_In_Type 06a6 682d |h- | Jump_Zero 0x6d4 06a7 e5fc | | Load 0x2,-0x4 06a8 0092 0a36 | 6| Action Push_String_Extended,0xa36 ; "The legal range of " 06aa e5fe | | Load 0x2,-0x2 06ab 01cc | | Execute Vector,Catenate 06ac 0092 0a37 | 7| Action Push_String_Extended,0xa37 ; " for " 06ae 01cc | | Execute Vector,Catenate 06af e5fd | | Load 0x2,-0x3 06b0 01cc | | Execute Vector,Catenate 06b1 0092 0a38 | 8| Action Push_String_Extended,0xa38 ; " is " 06b3 01cc | | Execute Vector,Catenate 06b4 4820 |H | Short_Literal 0x20 06b5 4800 |H | Short_Literal 0x0 06b6 480a |H | Short_Literal 0xa 06b7 4800 |H | Short_Literal 0x0 06b8 e008 | | Load 0x0,0x8 06b9 1816 | | Execute Package,Field_Execute,Field_Number 0x16 06ba 01cc | | Execute Vector,Catenate 06bb 0092 0a39 | 9| Action Push_String_Extended,0xa39 ; ".." 06bd 01cc | | Execute Vector,Catenate 06be 4820 |H | Short_Literal 0x20 06bf 4800 |H | Short_Literal 0x0 06c0 480a |H | Short_Literal 0xa 06c1 4840 |H@ | Short_Literal 0x40 06c2 e008 | | Load 0x0,0x8 06c3 1816 | | Execute Package,Field_Execute,Field_Number 0x16 06c4 01cc | | Execute Vector,Catenate 06c5 0092 0a3a | :| Action Push_String_Extended,0xa3a ; ", but the value specified (" 06c7 01cc | | Execute Vector,Catenate 06c8 4820 |H | Short_Literal 0x20 06c9 4800 |H | Short_Literal 0x0 06ca 480a |H | Short_Literal 0xa 06cb e5ff | | Load 0x2,-0x1 06cc e008 | | Load 0x0,0x8 06cd 1816 | | Execute Package,Field_Execute,Field_Number 0x16 06ce 01cc | | Execute Vector,Catenate 06cf 0092 0a3b | ;| Action Push_String_Extended,0xa3b ; ") is outside that range" 06d1 01cc | | Execute Vector,Catenate 06d2 e224 | $ | Load 0x1,0x24 06d3 180d | | Execute Package,Field_Execute,Field_Number 0xd 06d4 4505 |E | Exit_Suprogram New_Top_Offset 0x5 06d5 0000 0000 | | .XXX[0x3] 06d7 0000 | | 06d8 ; -------------------------------------------------------------------------------------- 06d8 ; SUBPROGRAM 06d8 ; -------------------------------------------------------------------------------------- 06d8 06db | | .CONST 0x06db ; Address of begin 06d9 0004 | | .CONST 0x0004 ; Address of exception handler 06da 0001 | | .CONST 0x0001 ; Number of locals 06db BODY_06d8: 06db INIT_06d8: 06db e5ff | | Load 0x2,-0x1 06dc 01db | | Execute Vector,Length 06dd 7005 |p | Jump_Nonzero 0x6e3 06de e5fe | | Load 0x2,-0x2 06df 0092 0a3c | <| Action Push_String_Extended,0xa3c ; "Product name not specified." 06e1 e224 | $ | Load 0x1,0x24 06e2 180d | | Execute Package,Field_Execute,Field_Number 0xd 06e3 00cf | | Action Mark_Auxiliary 06e4 e5ff | | Load 0x2,-0x1 06e5 01d9 | | Execute Vector,Reverse_Bounds 06e6 0263 | c | Execute Discrete,Above_Bound 06e7 7018 |p | Jump_Nonzero 0x700 06e8 00d8 | | Load_Top At_Offset_0 06e9 e5ff | | Load 0x2,-0x1 06ea 01d7 | | Execute Vector,Field_Read 06eb 4820 |H | Short_Literal 0x20 06ec 487e |H~ | Short_Literal 0x7e 06ed 0261 | a | Execute Discrete,Not_In_Range 06ee 680f |h | Jump_Zero 0x6fe 06ef e5fe | | Load 0x2,-0x2 06f0 0092 0a3d | =| Action Push_String_Extended,0xa3d ; "Product name contains an illegal character (" 06f2 e404 | | Load 0x2,0x4 06f3 e5ff | | Load 0x2,-0x1 06f4 01d7 | | Execute Vector,Field_Read 06f5 00e8 | | Load_Encached Character_Cache 06f6 011c | | Execute Any,Convert_Unchecked 06f7 1c01 | | Execute_Immediate Run_Utility,0x1 06f8 01cc | | Execute Vector,Catenate 06f9 0092 0a10 | | Action Push_String_Extended,0xa10 ; ")." 06fb 01cc | | Execute Vector,Catenate 06fc e224 | $ | Load 0x1,0x24 06fd 180d | | Execute Package,Field_Execute,Field_Number 0xd 06fe 00c8 | | Action Pop_Auxiliary_Range 06ff 3fe8 |? | Loop_Increasing 0x6e8 0700 00ce | | Action Pop_Auxiliary 0701 e5ff | | Load 0x2,-0x1 0702 4820 |H | Short_Literal 0x20 0703 e5ff | | Load 0x2,-0x1 0704 e008 | | Load 0x0,0x8 0705 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0706 01de | | Execute Vector,Not_Equal 0707 6805 |h | Jump_Zero 0x70d 0708 e5fe | | Load 0x2,-0x2 0709 0092 0a3e | >| Action Push_String_Extended,0xa3e ; "Product name includes leading or trailing blanks." 070b e224 | $ | Load 0x1,0x24 070c 180d | | Execute Package,Field_Execute,Field_Number 0xd 070d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 070e 0000 0000 | | .XXX[0x2] 0710 ; -------------------------------------------------------------------------------------- 0710 ; SUBPROGRAM 0710 ; -------------------------------------------------------------------------------------- 0710 0713 | | .CONST 0x0713 ; Address of begin 0711 0004 | | .CONST 0x0004 ; Address of exception handler 0712 0001 | | .CONST 0x0001 ; Number of locals 0713 BODY_0710: 0713 INIT_0710: 0713 e5ff | | Load 0x2,-0x1 0714 01db | | Execute Vector,Length 0715 7005 |p | Jump_Nonzero 0x71b 0716 e5fe | | Load 0x2,-0x2 0717 0092 0a3f | ?| Action Push_String_Extended,0xa3f ; "Site name not specified." 0719 e224 | $ | Load 0x1,0x24 071a 180d | | Execute Package,Field_Execute,Field_Number 0xd 071b 00cf | | Action Mark_Auxiliary 071c e5ff | | Load 0x2,-0x1 071d 01d9 | | Execute Vector,Reverse_Bounds 071e 0263 | c | Execute Discrete,Above_Bound 071f 7018 |p | Jump_Nonzero 0x738 0720 00d8 | | Load_Top At_Offset_0 0721 e5ff | | Load 0x2,-0x1 0722 01d7 | | Execute Vector,Field_Read 0723 4820 |H | Short_Literal 0x20 0724 487e |H~ | Short_Literal 0x7e 0725 0261 | a | Execute Discrete,Not_In_Range 0726 680f |h | Jump_Zero 0x736 0727 e5fe | | Load 0x2,-0x2 0728 0092 0a40 | @| Action Push_String_Extended,0xa40 ; "Site name contains an illegal character (" 072a e404 | | Load 0x2,0x4 072b e5ff | | Load 0x2,-0x1 072c 01d7 | | Execute Vector,Field_Read 072d 00e8 | | Load_Encached Character_Cache 072e 011c | | Execute Any,Convert_Unchecked 072f 1c01 | | Execute_Immediate Run_Utility,0x1 0730 01cc | | Execute Vector,Catenate 0731 0092 0a10 | | Action Push_String_Extended,0xa10 ; ")." 0733 01cc | | Execute Vector,Catenate 0734 e224 | $ | Load 0x1,0x24 0735 180d | | Execute Package,Field_Execute,Field_Number 0xd 0736 00c8 | | Action Pop_Auxiliary_Range 0737 3fe8 |? | Loop_Increasing 0x720 0738 00ce | | Action Pop_Auxiliary 0739 e5ff | | Load 0x2,-0x1 073a 4820 |H | Short_Literal 0x20 073b e5ff | | Load 0x2,-0x1 073c e008 | | Load 0x0,0x8 073d 181c | | Execute Package,Field_Execute,Field_Number 0x1c 073e 01de | | Execute Vector,Not_Equal 073f 6805 |h | Jump_Zero 0x745 0740 e5fe | | Load 0x2,-0x2 0741 0092 0a41 | A| Action Push_String_Extended,0xa41 ; "Site name includes leading or trailing blanks." 0743 e224 | $ | Load 0x1,0x24 0744 180d | | Execute Package,Field_Execute,Field_Number 0xd 0745 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0746 0000 0000 | | .XXX[0x2] 0748 ; -------------------------------------------------------------------------------------- 0748 ; SUBPROGRAM 0748 ; -------------------------------------------------------------------------------------- 0748 074d | M | .CONST 0x074d ; Address of begin 0749 0004 | | .CONST 0x0004 ; Address of exception handler 074a 0002 | | .CONST 0x0002 ; Number of locals 074b INIT_0748: 074b 029f 09db | | Declare_Subprogram INIT_09d8,For_Call 074d BODY_0748: 074d 4820 |H | Short_Literal 0x20 074e e5ff | | Load 0x2,-0x1 074f e008 | | Load 0x0,0x8 0750 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0751 01db | | Execute Vector,Length 0752 7001 |p | Jump_Nonzero 0x754 0753 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0754 00cf | | Action Mark_Auxiliary 0755 e5ff | | Load 0x2,-0x1 0756 01d9 | | Execute Vector,Reverse_Bounds 0757 0263 | c | Execute Discrete,Above_Bound 0758 7018 |p | Jump_Nonzero 0x771 0759 00d8 | | Load_Top At_Offset_0 075a e5ff | | Load 0x2,-0x1 075b 01d7 | | Execute Vector,Field_Read 075c 4820 |H | Short_Literal 0x20 075d 487e |H~ | Short_Literal 0x7e 075e 0261 | a | Execute Discrete,Not_In_Range 075f 680f |h | Jump_Zero 0x76f 0760 e5fe | | Load 0x2,-0x2 0761 0092 0a42 | B| Action Push_String_Extended,0xa42 ; "Date contains an illegal character (" 0763 e405 | | Load 0x2,0x5 0764 e5ff | | Load 0x2,-0x1 0765 01d7 | | Execute Vector,Field_Read 0766 00e8 | | Load_Encached Character_Cache 0767 011c | | Execute Any,Convert_Unchecked 0768 1c01 | | Execute_Immediate Run_Utility,0x1 0769 01cc | | Execute Vector,Catenate 076a 0092 0a10 | | Action Push_String_Extended,0xa10 ; ")." 076c 01cc | | Execute Vector,Catenate 076d e224 | $ | Load 0x1,0x24 076e 180d | | Execute Package,Field_Execute,Field_Number 0xd 076f 00c8 | | Action Pop_Auxiliary_Range 0770 3fe8 |? | Loop_Increasing 0x759 0771 00ce | | Action Pop_Auxiliary 0772 8402 | | Call 0x2,0x2 0773 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0774 0000 0000 | | .BLANK 0000[0x4] 0778 ; -------------------------------------------------------------------------------------- 0778 ; SUBPROGRAM 0778 ; -------------------------------------------------------------------------------------- 0778 0781 | | .CONST 0x0781 ; Address of begin 0779 0004 | | .CONST 0x0004 ; Address of exception handler 077a 0003 | | .CONST 0x0003 ; Number of locals 077b INIT_0778: 077b e5ff | | Load 0x2,-0x1 077c 823a | : | Call 0x1,0x3a 077d 00e3 | | Load_Encached Natural_Cache 077e 03f1 | | Declare_Variable Discrete,With_Value 077f 029f 09f3 | | Declare_Subprogram INIT_09f0,For_Call 0781 BODY_0778: 0781 e5fc | | Load 0x2,-0x4 0782 e5ff | | Load 0x2,-0x1 0783 0092 0a30 | 0| Action Push_String_Extended,0xa30 ; "Donation" 0785 e5fe | | Load 0x2,-0x2 0786 8233 | 3 | Call 0x1,0x33 0787 e5fc | | Load 0x2,-0x4 0788 e5ff | | Load 0x2,-0x1 0789 0092 0a31 | 1| Action Push_String_Extended,0xa31 ; "Resulting_Count" 078b e5fd | | Load 0x2,-0x3 078c 8233 | 3 | Call 0x1,0x33 078d e5fe | | Load 0x2,-0x2 078e e5fd | | Load 0x2,-0x3 078f 027d | } | Execute Discrete,Greater 0790 681e |h | Jump_Zero 0x7af 0791 e5fc | | Load 0x2,-0x4 0792 0092 0a43 | C| Action Push_String_Extended,0xa43 ; "The number of tokens (" 0794 4820 |H | Short_Literal 0x20 0795 4800 |H | Short_Literal 0x0 0796 480a |H | Short_Literal 0xa 0797 e5fe | | Load 0x2,-0x2 0798 e008 | | Load 0x0,0x8 0799 1816 | | Execute Package,Field_Execute,Field_Number 0x16 079a 01cc | | Execute Vector,Catenate 079b 0092 0a44 | D| Action Push_String_Extended,0xa44 ; ") for " 079d 01cc | | Execute Vector,Catenate 079e e5ff | | Load 0x2,-0x1 079f 01cc | | Execute Vector,Catenate 07a0 0092 0a45 | E| Action Push_String_Extended,0xa45 ; " exceeds the target authorization (" 07a2 01cc | | Execute Vector,Catenate 07a3 4820 |H | Short_Literal 0x20 07a4 4800 |H | Short_Literal 0x0 07a5 480a |H | Short_Literal 0xa 07a6 e5fd | | Load 0x2,-0x3 07a7 e008 | | Load 0x0,0x8 07a8 1816 | | Execute Package,Field_Execute,Field_Number 0x16 07a9 01cc | | Execute Vector,Catenate 07aa 0092 0a10 | | Action Push_String_Extended,0xa10 ; ")." 07ac 01cc | | Execute Vector,Catenate 07ad e224 | $ | Load 0x1,0x24 07ae 180d | | Execute Package,Field_Execute,Field_Number 0xd 07af e5fe | | Load 0x2,-0x2 07b0 e5fd | | Load 0x2,-0x3 07b1 027f | | Execute Discrete,Equal 07b2 6820 |h | Jump_Zero 0x7d3 07b3 4801 |H | Short_Literal 0x1 07b4 e220 | | Load 0x1,0x20 07b5 e5ff | | Load 0x2,-0x1 07b6 e008 | | Load 0x0,0x8 07b7 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 07b8 6805 |h | Jump_Zero 0x7be 07b9 e221 | ! | Load 0x1,0x21 07ba 8403 | | Call 0x2,0x3 07bb e222 | " | Load 0x1,0x22 07bc 8403 | | Call 0x2,0x3 07bd 4505 |E | Exit_Suprogram New_Top_Offset 0x5 07be 4801 |H | Short_Literal 0x1 07bf e221 | ! | Load 0x1,0x21 07c0 e5ff | | Load 0x2,-0x1 07c1 e008 | | Load 0x0,0x8 07c2 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 07c3 6805 |h | Jump_Zero 0x7c9 07c4 e220 | | Load 0x1,0x20 07c5 8403 | | Call 0x2,0x3 07c6 e222 | " | Load 0x1,0x22 07c7 8403 | | Call 0x2,0x3 07c8 4505 |E | Exit_Suprogram New_Top_Offset 0x5 07c9 4801 |H | Short_Literal 0x1 07ca e222 | " | Load 0x1,0x22 07cb e5ff | | Load 0x2,-0x1 07cc e008 | | Load 0x0,0x8 07cd 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 07ce 6804 |h | Jump_Zero 0x7d3 07cf e221 | ! | Load 0x1,0x21 07d0 8403 | | Call 0x2,0x3 07d1 e220 | | Load 0x1,0x20 07d2 8403 | | Call 0x2,0x3 07d3 4505 |E | Exit_Suprogram New_Top_Offset 0x5 07d4 0000 0000 | | .BLANK 0000[0x4] 07d8 ; -------------------------------------------------------------------------------------- 07d8 ; SUBPROGRAM 07d8 ; -------------------------------------------------------------------------------------- 07d8 07db | | .CONST 0x07db ; Address of begin 07d9 0004 | | .CONST 0x0004 ; Address of exception handler 07da 0001 | | .CONST 0x0001 ; Number of locals 07db BODY_07d8: 07db INIT_07d8: 07db e5fe | | Load 0x2,-0x2 07dc 01db | | Execute Vector,Length 07dd 680a |h | Jump_Zero 0x7e8 07de e5fd | | Load 0x2,-0x3 07df 01db | | Execute Vector,Length 07e0 6807 |h | Jump_Zero 0x7e8 07e1 e5fc | | Load 0x2,-0x4 07e2 0092 0a46 | F| Action Push_String_Extended,0xa46 ; "Cannot specify both authorization and date for " 07e4 e5ff | | Load 0x2,-0x1 07e5 01cc | | Execute Vector,Catenate 07e6 e224 | $ | Load 0x1,0x24 07e7 180d | | Execute Package,Field_Execute,Field_Number 0xd 07e8 4505 |E | Exit_Suprogram New_Top_Offset 0x5 07e9 0000 0000 | | .BLANK 0000[0x7] 07f0 ; -------------------------------------------------------------------------------------- 07f0 ; SUBPROGRAM 07f0 ; -------------------------------------------------------------------------------------- 07f0 07fb | | .CONST 0x07fb ; Address of begin 07f1 0004 | | .CONST 0x0004 ; Address of exception handler 07f2 0003 | | .CONST 0x0003 ; Number of locals 07f3 INIT_07f0: 07f3 e5ff | | Load 0x2,-0x1 07f4 823a | : | Call 0x1,0x3a 07f5 00e3 | | Load_Encached Natural_Cache 07f6 03f1 | | Declare_Variable Discrete,With_Value 07f7 e5ff | | Load 0x2,-0x1 07f8 823c | < | Call 0x1,0x3c 07f9 00e3 | | Load_Encached Natural_Cache 07fa 03f1 | | Declare_Variable Discrete,With_Value 07fb BODY_07f0: 07fb e402 | | Load 0x2,0x2 07fc 700a |p | Jump_Nonzero 0x807 07fd e5fd | | Load 0x2,-0x3 07fe 0092 0a47 | G| Action Push_String_Extended,0xa47 ; "There are currently no tokens for " 0800 e5ff | | Load 0x2,-0x1 0801 01cc | | Execute Vector,Catenate 0802 0092 0a48 | H| Action Push_String_Extended,0xa48 ; ", so they can't be donated." 0804 01cc | | Execute Vector,Catenate 0805 e224 | $ | Load 0x1,0x24 0806 180d | | Execute Package,Field_Execute,Field_Number 0xd 0807 e5fe | | Load 0x2,-0x2 0808 e402 | | Load 0x2,0x2 0809 027d | } | Execute Discrete,Greater 080a 681e |h | Jump_Zero 0x829 080b e5fd | | Load 0x2,-0x3 080c 0092 0a49 | I| Action Push_String_Extended,0xa49 ; "The requested donation (" 080e 4820 |H | Short_Literal 0x20 080f 4800 |H | Short_Literal 0x0 0810 480a |H | Short_Literal 0xa 0811 e5fe | | Load 0x2,-0x2 0812 e008 | | Load 0x0,0x8 0813 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0814 01cc | | Execute Vector,Catenate 0815 0092 0a44 | D| Action Push_String_Extended,0xa44 ; ") for " 0817 01cc | | Execute Vector,Catenate 0818 e5ff | | Load 0x2,-0x1 0819 01cc | | Execute Vector,Catenate 081a 0092 0a4a | J| Action Push_String_Extended,0xa4a ; "exceeds the current limit (" 081c 01cc | | Execute Vector,Catenate 081d 4820 |H | Short_Literal 0x20 081e 4800 |H | Short_Literal 0x0 081f 480a |H | Short_Literal 0xa 0820 e402 | | Load 0x2,0x2 0821 e008 | | Load 0x0,0x8 0822 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0823 01cc | | Execute Vector,Catenate 0824 0092 0a10 | | Action Push_String_Extended,0xa10 ; ")." 0826 01cc | | Execute Vector,Catenate 0827 e224 | $ | Load 0x1,0x24 0828 180d | | Execute Package,Field_Execute,Field_Number 0xd 0829 e402 | | Load 0x2,0x2 082a e5fe | | Load 0x2,-0x2 082b 0272 | r | Execute Discrete,Minus 082c e403 | | Load 0x2,0x3 082d 027c | | | Execute Discrete,Less 082e 6814 |h | Jump_Zero 0x843 082f e5fd | | Load 0x2,-0x3 0830 0092 0a4b | K| Action Push_String_Extended,0xa4b ; "Donation of " 0832 4820 |H | Short_Literal 0x20 0833 4800 |H | Short_Literal 0x0 0834 480a |H | Short_Literal 0xa 0835 e5fe | | Load 0x2,-0x2 0836 e008 | | Load 0x0,0x8 0837 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0838 01cc | | Execute Vector,Catenate 0839 0092 0a4c | L| Action Push_String_Extended,0xa4c ; " tokens for " 083b 01cc | | Execute Vector,Catenate 083c e5ff | | Load 0x2,-0x1 083d 01cc | | Execute Vector,Catenate 083e 0092 0a4d | M| Action Push_String_Extended,0xa4d ; " would transfer tokens currently in use." 0840 01cc | | Execute Vector,Catenate 0841 e224 | $ | Load 0x1,0x24 0842 180d | | Execute Package,Field_Execute,Field_Number 0xd 0843 e402 | | Load 0x2,0x2 0844 e5fe | | Load 0x2,-0x2 0845 0272 | r | Execute Discrete,Minus 0846 00d8 | | Load_Top At_Offset_0 0847 00e3 | | Load_Encached Natural_Cache 0848 0260 | ` | Execute Discrete,In_Type 0849 7001 |p | Jump_Nonzero 0x84b 084a 0801 | | Execute_Immediate Raise,0x1 084b e5ff | | Load 0x2,-0x1 084c e012 | | Load 0x0,0x12 084d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 084e e5fd | | Load 0x2,-0x3 084f 0092 0a4b | K| Action Push_String_Extended,0xa4b ; "Donation of " 0851 4820 |H | Short_Literal 0x20 0852 4800 |H | Short_Literal 0x0 0853 480a |H | Short_Literal 0xa 0854 e5fe | | Load 0x2,-0x2 0855 e008 | | Load 0x0,0x8 0856 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0857 01cc | | Execute Vector,Catenate 0858 0092 0a4c | L| Action Push_String_Extended,0xa4c ; " tokens for " 085a 01cc | | Execute Vector,Catenate 085b e5ff | | Load 0x2,-0x1 085c 01cc | | Execute Vector,Catenate 085d 0092 0a4e | N| Action Push_String_Extended,0xa4e ; " has resulted in " 085f 01cc | | Execute Vector,Catenate 0860 4820 |H | Short_Literal 0x20 0861 4800 |H | Short_Literal 0x0 0862 480a |H | Short_Literal 0xa 0863 e5ff | | Load 0x2,-0x1 0864 823a | : | Call 0x1,0x3a 0865 e008 | | Load 0x0,0x8 0866 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0867 01cc | | Execute Vector,Catenate 0868 0092 0a4f | O| Action Push_String_Extended,0xa4f ; " tokens." 086a 01cc | | Execute Vector,Catenate 086b e224 | $ | Load 0x1,0x24 086c 180f | | Execute Package,Field_Execute,Field_Number 0xf 086d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 086e 0000 0000 | | .XXX[0x2] 0870 ; -------------------------------------------------------------------------------------- 0870 ; SUBPROGRAM 0870 ; -------------------------------------------------------------------------------------- 0870 0873 | s | .CONST 0x0873 ; Address of begin 0871 0877 | w | .CONST 0x0877 ; Address of exception handler 0872 0001 | | .CONST 0x0001 ; Number of locals 0873 BODY_0870: 0873 INIT_0870: 0873 e5ff | | Load 0x2,-0x1 0874 e012 | | Load 0x0,0x12 0875 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0876 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0877 TRAP_0870: 0877 0007 | | Action Break_Optional 0878 4800 |H | Short_Literal 0x0 0879 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 087a 0000 0000 | | .BLANK 0000[0x6] 0880 ; -------------------------------------------------------------------------------------- 0880 ; SUBPROGRAM 0880 ; -------------------------------------------------------------------------------------- 0880 0883 | | .CONST 0x0883 ; Address of begin 0881 0887 | | .CONST 0x0887 ; Address of exception handler 0882 0001 | | .CONST 0x0001 ; Number of locals 0883 BODY_0880: 0883 INIT_0880: 0883 e5ff | | Load 0x2,-0x1 0884 e012 | | Load 0x0,0x12 0885 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0886 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0887 TRAP_0880: 0887 0007 | | Action Break_Optional 0888 4800 |H | Short_Literal 0x0 0889 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 088a 0000 0000 | | .BLANK 0000[0x6] 0890 ; -------------------------------------------------------------------------------------- 0890 ; SUBPROGRAM 0890 ; -------------------------------------------------------------------------------------- 0890 0893 | | .CONST 0x0893 ; Address of begin 0891 0897 | | .CONST 0x0897 ; Address of exception handler 0892 0001 | | .CONST 0x0001 ; Number of locals 0893 BODY_0890: 0893 INIT_0890: 0893 e5ff | | Load 0x2,-0x1 0894 e012 | | Load 0x0,0x12 0895 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0896 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0897 TRAP_0890: 0897 0007 | | Action Break_Optional 0898 4800 |H | Short_Literal 0x0 0899 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 089a 0000 0000 | | .BLANK 0000[0x6] 08a0 ; -------------------------------------------------------------------------------------- 08a0 ; SUBPROGRAM 08a0 ; -------------------------------------------------------------------------------------- 08a0 08ad | | .CONST 0x08ad ; Address of begin 08a1 0004 | | .CONST 0x0004 ; Address of exception handler 08a2 0005 | | .CONST 0x0005 ; Number of locals 08a3 INIT_08a0: 08a3 0092 0a08 | | Action Push_String_Extended,0xa08 ; "Accept_Tokens" 08a5 e004 | | Load 0x0,0x4 08a6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 08a7 02c7 | | Declare_Variable Any 08a8 e004 | | Load 0x0,0x4 08a9 180e | | Execute Package,Field_Execute,Field_Number 0xe 08aa a403 | | Store_Unchecked 0x2,0x3 08ab 00e3 | | Load_Encached Natural_Cache 08ac 00e3 | | Load_Encached Natural_Cache 08ad BODY_08a0: 08ad e5fa | | Load 0x2,-0x6 08ae 01db | | Execute Vector,Length 08af 7009 |p | Jump_Nonzero 0x8b9 08b0 e226 | & | Load 0x1,0x26 08b1 180e | | Execute Package,Field_Execute,Field_Number 0xe 08b2 822f | / | Call 0x1,0x2f 08b3 6805 |h | Jump_Zero 0x8b9 08b4 e403 | | Load 0x2,0x3 08b5 0092 0a50 | P| Action Push_String_Extended,0xa50 ; "This machine has donated tokens today; it may not also accept them" 08b7 e224 | $ | Load 0x1,0x24 08b8 180d | | Execute Package,Field_Execute,Field_Number 0xd 08b9 e403 | | Load 0x2,0x3 08ba e5ff | | Load 0x2,-0x1 08bb 8234 | 4 | Call 0x1,0x34 08bc e403 | | Load 0x2,0x3 08bd e5fc | | Load 0x2,-0x4 08be e5fd | | Load 0x2,-0x3 08bf e5fe | | Load 0x2,-0x2 08c0 8237 | 7 | Call 0x1,0x37 08c1 e5fe | | Load 0x2,-0x2 08c2 823a | : | Call 0x1,0x3a 08c3 a405 | | Store_Unchecked 0x2,0x5 08c4 00d8 | | Load_Top At_Offset_0 08c5 e5fd | | Load 0x2,-0x3 08c6 0273 | s | Execute Discrete,Plus 08c7 c404 | | Store 0x2,0x4 08c8 e404 | | Load 0x2,0x4 08c9 e5fc | | Load 0x2,-0x4 08ca 027e | ~ | Execute Discrete,Not_Equal 08cb 6837 |h7 | Jump_Zero 0x903 08cc e403 | | Load 0x2,0x3 08cd 0092 0a51 | Q| Action Push_String_Extended,0xa51 ; "The sum of currently authorized tokens and Donations (" 08cf 4820 |H | Short_Literal 0x20 08d0 4800 |H | Short_Literal 0x0 08d1 480a |H | Short_Literal 0xa 08d2 e405 | | Load 0x2,0x5 08d3 e008 | | Load 0x0,0x8 08d4 1816 | | Execute Package,Field_Execute,Field_Number 0x16 08d5 01cc | | Execute Vector,Catenate 08d6 0092 0a52 | R| Action Push_String_Extended,0xa52 ; "(" 08d8 01cc | | Execute Vector,Catenate 08d9 e5fe | | Load 0x2,-0x2 08da 01cc | | Execute Vector,Catenate 08db 0092 0a53 | S| Action Push_String_Extended,0xa53 ; ") +" 08dd 01cc | | Execute Vector,Catenate 08de 4820 |H | Short_Literal 0x20 08df 4800 |H | Short_Literal 0x0 08e0 480a |H | Short_Literal 0xa 08e1 e5fd | | Load 0x2,-0x3 08e2 e008 | | Load 0x0,0x8 08e3 1816 | | Execute Package,Field_Execute,Field_Number 0x16 08e4 01cc | | Execute Vector,Catenate 08e5 0092 0a52 | R| Action Push_String_Extended,0xa52 ; "(" 08e7 01cc | | Execute Vector,Catenate 08e8 e5ff | | Load 0x2,-0x1 08e9 01cc | | Execute Vector,Catenate 08ea 0092 0a54 | T| Action Push_String_Extended,0xa54 ; ") =" 08ec 01cc | | Execute Vector,Catenate 08ed 4820 |H | Short_Literal 0x20 08ee 4800 |H | Short_Literal 0x0 08ef 480a |H | Short_Literal 0xa 08f0 e404 | | Load 0x2,0x4 08f1 e008 | | Load 0x0,0x8 08f2 1816 | | Execute Package,Field_Execute,Field_Number 0x16 08f3 01cc | | Execute Vector,Catenate 08f4 0092 0a55 | U| Action Push_String_Extended,0xa55 ; ") is NOT equal to Resulting_Count parameter (" 08f6 01cc | | Execute Vector,Catenate 08f7 4820 |H | Short_Literal 0x20 08f8 4800 |H | Short_Literal 0x0 08f9 480a |H | Short_Literal 0xa 08fa e5fc | | Load 0x2,-0x4 08fb e008 | | Load 0x0,0x8 08fc 1816 | | Execute Package,Field_Execute,Field_Number 0x16 08fd 01cc | | Execute Vector,Catenate 08fe 0092 0a15 | | Action Push_String_Extended,0xa15 ; "); these must be equal in order to proceed." 0900 01cc | | Execute Vector,Catenate 0901 e224 | $ | Load 0x1,0x24 0902 180d | | Execute Package,Field_Execute,Field_Number 0xd 0903 e5fa | | Load 0x2,-0x6 0904 e5fb | | Load 0x2,-0x5 0905 e5fc | | Load 0x2,-0x4 0906 e5fd | | Load 0x2,-0x3 0907 e5ff | | Load 0x2,-0x1 0908 822d | - | Call 0x1,0x2d 0909 701a |p | Jump_Nonzero 0x924 090a e403 | | Load 0x2,0x3 090b 0092 0a56 | V| Action Push_String_Extended,0xa56 ; "The code provided does NOT match the request being made. This might be caused by a transcription error of the code, an attempt to transfer between sites without Rational assistance, a transcription error of the Site of this machine (" 090d 8210 | | Call 0x1,0x10 090e 01cc | | Execute Vector,Catenate 090f 0092 0a57 | W| Action Push_String_Extended,0xa57 ; "), a transcription error of the Machine ID of this machine (" 0911 01cc | | Execute Vector,Catenate 0912 4820 |H | Short_Literal 0x20 0913 4800 |H | Short_Literal 0x0 0914 480a |H | Short_Literal 0xa 0915 8211 | | Call 0x1,0x11 0916 e008 | | Load 0x0,0x8 0917 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0918 01cc | | Execute Vector,Catenate 0919 0092 0a17 | | Action Push_String_Extended,0xa17 ; "), a delay in posting the request (code only valid for one day), " 091b 01cc | | Execute Vector,Catenate 091c 0092 0a18 | | Action Push_String_Extended,0xa18 ; "or some other combination of parameter problems. " 091e 01cc | | Execute Vector,Catenate 091f 0092 0a19 | | Action Push_String_Extended,0xa19 ; "Contact your Rational representative for further assistance." 0921 01cc | | Execute Vector,Catenate 0922 e224 | $ | Load 0x1,0x24 0923 180d | | Execute Package,Field_Execute,Field_Number 0xd 0924 e5fa | | Load 0x2,-0x6 0925 01db | | Execute Vector,Length 0926 680a |h | Jump_Zero 0x931 0927 e5fa | | Load 0x2,-0x6 0928 e5fe | | Load 0x2,-0x2 0929 e226 | & | Load 0x1,0x26 092a 1814 | | Execute Package,Field_Execute,Field_Number 0x14 092b 7005 |p | Jump_Nonzero 0x931 092c e403 | | Load 0x2,0x3 092d 0092 0a1a | | Action Push_String_Extended,0xa1a ; "The authorization provided has been used previously for this product. It must be unique for this machine for all time." 092f e224 | $ | Load 0x1,0x24 0930 180d | | Execute Package,Field_Execute,Field_Number 0xd 0931 e5fe | | Load 0x2,-0x2 0932 e013 | | Load 0x0,0x13 0933 180e | | Execute Package,Field_Execute,Field_Number 0xe 0934 7009 |p | Jump_Nonzero 0x93e 0935 00ea | | Load_Encached Null_String_Cache 0936 00ea | | Load_Encached Null_String_Cache 0937 8211 | | Call 0x1,0x11 0938 e5fe | | Load 0x2,-0x2 0939 e013 | | Load 0x0,0x13 093a 1815 | | Execute Package,Field_Execute,Field_Number 0x15 093b e5fe | | Load 0x2,-0x2 093c e013 | | Load 0x0,0x13 093d 180d | | Execute Package,Field_Execute,Field_Number 0xd 093e e5fc | | Load 0x2,-0x4 093f e5fe | | Load 0x2,-0x2 0940 e012 | | Load 0x0,0x12 0941 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0942 e5fe | | Load 0x2,-0x2 0943 823b | ; | Call 0x1,0x3b 0944 7004 |p | Jump_Nonzero 0x949 0945 480c |H | Short_Literal 0xc 0946 e5fe | | Load 0x2,-0x2 0947 e012 | | Load 0x0,0x12 0948 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0949 e403 | | Load 0x2,0x3 094a e5fe | | Load 0x2,-0x2 094b 0092 0a1b | | Action Push_String_Extended,0xa1b ; " tokens set to " 094d 01cc | | Execute Vector,Catenate 094e 4820 |H | Short_Literal 0x20 094f 4800 |H | Short_Literal 0x0 0950 480a |H | Short_Literal 0xa 0951 e5fc | | Load 0x2,-0x4 0952 e008 | | Load 0x0,0x8 0953 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0954 01cc | | Execute Vector,Catenate 0955 e224 | $ | Load 0x1,0x24 0956 180f | | Execute Package,Field_Execute,Field_Number 0xf 0957 e5fa | | Load 0x2,-0x6 0958 01db | | Execute Vector,Length 0959 7004 |p | Jump_Nonzero 0x95e 095a e00d | | Load 0x0,0xd 095b 1812 | | Execute Package,Field_Execute,Field_Number 0x12 095c e226 | & | Load 0x1,0x26 095d 180f | | Execute Package,Field_Execute,Field_Number 0xf 095e e226 | & | Load 0x1,0x26 095f 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0960 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0961 0000 0000 | | .BLANK 0000[0x7] 0968 ; -------------------------------------------------------------------------------------- 0968 ; SUBPROGRAM 0968 ; -------------------------------------------------------------------------------------- 0968 0971 | q | .CONST 0x0971 ; Address of begin 0969 0004 | | .CONST 0x0004 ; Address of exception handler 096a 0002 | | .CONST 0x0002 ; Number of locals 096b INIT_0968: 096b e5ff | | Load 0x2,-0x1 096c e012 | | Load 0x0,0x12 096d 180e | | Execute Package,Field_Execute,Field_Number 0xe 096e e012 | | Load 0x0,0x12 096f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0970 03f1 | | Declare_Variable Discrete,With_Value 0971 BODY_0968: 0971 00d8 | | Load_Top At_Offset_0 0972 6804 |h | Jump_Zero 0x977 0973 00d8 | | Load_Top At_Offset_0 0974 e012 | | Load 0x0,0x12 0975 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0976 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0977 4800 |H | Short_Literal 0x0 0978 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0979 0000 0000 | | .BLANK 0000[0x7] 0980 ; -------------------------------------------------------------------------------------- 0980 ; SUBPROGRAM 0980 ; -------------------------------------------------------------------------------------- 0980 0983 | | .CONST 0x0983 ; Address of begin 0981 0004 | | .CONST 0x0004 ; Address of exception handler 0982 0001 | | .CONST 0x0001 ; Number of locals 0983 BODY_0980: 0983 INIT_0980: 0983 4801 |H | Short_Literal 0x1 0984 e220 | | Load 0x1,0x20 0985 e5ff | | Load 0x2,-0x1 0986 e008 | | Load 0x0,0x8 0987 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0988 700c |p | Jump_Nonzero 0x995 0989 4801 |H | Short_Literal 0x1 098a e221 | ! | Load 0x1,0x21 098b e5ff | | Load 0x2,-0x1 098c e008 | | Load 0x0,0x8 098d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 098e 7006 |p | Jump_Nonzero 0x995 098f 4801 |H | Short_Literal 0x1 0990 e222 | " | Load 0x1,0x22 0991 e5ff | | Load 0x2,-0x1 0992 e008 | | Load 0x0,0x8 0993 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0994 680c |h | Jump_Zero 0x9a1 0995 e221 | ! | Load 0x1,0x21 0996 823e | > | Call 0x1,0x3e 0997 6802 |h | Jump_Zero 0x99a 0998 e221 | ! | Load 0x1,0x21 0999 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 099a e222 | " | Load 0x1,0x22 099b 823e | > | Call 0x1,0x3e 099c 6802 |h | Jump_Zero 0x99f 099d e222 | " | Load 0x1,0x22 099e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 099f e220 | | Load 0x1,0x20 09a0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 09a1 e5ff | | Load 0x2,-0x1 09a2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 09a3 0000 0000 | | .BLANK 0000[0x5] 09a8 ; -------------------------------------------------------------------------------------- 09a8 ; SUBPROGRAM 09a8 ; -------------------------------------------------------------------------------------- 09a8 09ad | | .CONST 0x09ad ; Address of begin 09a9 0004 | | .CONST 0x0004 ; Address of exception handler 09aa 0002 | | .CONST 0x0002 ; Number of locals 09ab INIT_09a8: 09ab 0092 0a58 | X| Action Push_String_Extended,0xa58 ; "1/1/90" 09ad BODY_09a8: 09ad 00d8 | | Load_Top At_Offset_0 09ae e602 | | Load 0x3,0x2 09af 8211 | | Call 0x1,0x11 09b0 e5ff | | Load 0x2,-0x1 09b1 e013 | | Load 0x0,0x13 09b2 1815 | | Execute Package,Field_Execute,Field_Number 0x15 09b3 e5ff | | Load 0x2,-0x1 09b4 e013 | | Load 0x0,0x13 09b5 180d | | Execute Package,Field_Execute,Field_Number 0xd 09b6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 09b7 0000 | | .XXX[0x1] 09b8 ; -------------------------------------------------------------------------------------- 09b8 ; SUBPROGRAM 09b8 ; -------------------------------------------------------------------------------------- 09b8 09c3 | | .CONST 0x09c3 ; Address of begin 09b9 0004 | | .CONST 0x0004 ; Address of exception handler 09ba 0002 | | .CONST 0x0002 ; Number of locals 09bb INIT_09b8: 09bb e002 | | Load 0x0,0x2 09bc 1b14 | | Execute Package,Field_Read,Field_Number 0x14 09bd 0322 | " | Declare_Variable Record 09be e7ff | | Load 0x3,-0x1 09bf e002 | | Load 0x0,0x2 09c0 1816 | | Execute Package,Field_Execute,Field_Number 0x16 09c1 e602 | | Load 0x3,0x2 09c2 017d | } | Execute Record,Structure_Write 09c3 BODY_09b8: 09c3 4800 |H | Short_Literal 0x0 09c4 e602 | | Load 0x3,0x2 09c5 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 09c6 4800 |H | Short_Literal 0x0 09c7 e602 | | Load 0x3,0x2 09c8 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 09c9 4801 |H | Short_Literal 0x1 09ca e602 | | Load 0x3,0x2 09cb 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 09cc 4800 |H | Short_Literal 0x0 09cd e602 | | Load 0x3,0x2 09ce 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 09cf 00d8 | | Load_Top At_Offset_0 09d0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 09d1 0000 0000 | | .BLANK 0000[0x7] 09d8 ; -------------------------------------------------------------------------------------- 09d8 ; SUBPROGRAM 09d8 ; -------------------------------------------------------------------------------------- 09d8 09de | | .CONST 0x09de ; Address of begin 09d9 09e4 | | .CONST 0x09e4 ; Address of exception handler 09da 0002 | | .CONST 0x0002 ; Number of locals 09db INIT_09d8: 09db e002 | | Load 0x0,0x2 09dc 1b14 | | Execute Package,Field_Read,Field_Number 0x14 09dd 0322 | " | Declare_Variable Record 09de BODY_09d8: 09de e5ff | | Load 0x2,-0x1 09df e002 | | Load 0x0,0x2 09e0 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 09e1 e602 | | Load 0x3,0x2 09e2 017d | } | Execute Record,Structure_Write 09e3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 09e4 TRAP_09d8: 09e4 0007 | | Action Break_Optional 09e5 e5fe | | Load 0x2,-0x2 09e6 0092 0a59 | Y| Action Push_String_Extended,0xa59 ; "Date (" 09e8 e5ff | | Load 0x2,-0x1 09e9 01cc | | Execute Vector,Catenate 09ea 0092 0a5a | Z| Action Push_String_Extended,0xa5a ; ") doesn't represent a legal date." 09ec 01cc | | Execute Vector,Catenate 09ed e224 | $ | Load 0x1,0x24 09ee 180d | | Execute Package,Field_Execute,Field_Number 0xd 09ef 4501 |E | Exit_Suprogram New_Top_Offset 0x1 09f0 ; -------------------------------------------------------------------------------------- 09f0 ; SUBPROGRAM 09f0 ; -------------------------------------------------------------------------------------- 09f0 09f3 | | .CONST 0x09f3 ; Address of begin 09f1 0004 | | .CONST 0x0004 ; Address of exception handler 09f2 0001 | | .CONST 0x0001 ; Number of locals 09f3 BODY_09f0: 09f3 INIT_09f0: 09f3 e7ff | | Load 0x3,-0x1 09f4 823e | > | Call 0x1,0x3e 09f5 680e |h | Jump_Zero 0xa04 09f6 e5fc | | Load 0x2,-0x4 09f7 482e |H. | Short_Literal 0x2e 09f8 0092 0a5b | [| Action Push_String_Extended,0xa5b ; "Active tokens for " 09fa e7ff | | Load 0x3,-0x1 09fb 01cc | | Execute Vector,Catenate 09fc 0092 0a5c | \| Action Push_String_Extended,0xa5c ; " make it impossible to accept tokens for " 09fe 01cc | | Execute Vector,Catenate 09ff e5ff | | Load 0x2,-0x1 0a00 01cc | | Execute Vector,Catenate 0a01 01cb | | Execute Vector,Append 0a02 e224 | $ | Load 0x1,0x24 0a03 180d | | Execute Package,Field_Execute,Field_Number 0xd 0a04 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0a05 ; -------------------------------------------------------------------------------------- 0a05 ; STRING TABLE 0a05 ; -------------------------------------------------------------------------------------- 0a05 00b2 | | .STRTAB 0x00b2->0x0a5e ; "Login" 0a06 00b5 | | .STRTAB 0x00b5->0x0a60 ; "Full Session" 0a07 00bf | | .STRTAB 0x00bf->0x0a66 ; "Fundamental Session" 0a08 00d0 | | .STRTAB 0x00d0->0x0a70 ; "Accept_Tokens" 0a09 00db | | .STRTAB 0x00db->0x0a76 ; "Donate_Tokens" 0a0a 00e6 | | .STRTAB 0x00e6->0x0a7d ; "Remote_Machine_ID specified is the Machine_ID for this machine." 0a0b 0123 | # | .STRTAB 0x0123->0x0a9c ; "The Remote_Site specified does not match the Site_Id of this machine. These need to be the same for tokens to be donated. If necessary, contact your Rational technical representative to change the Site_Id of one or both machines." 0a0c 0208 | | .STRTAB 0x0208->0x0b10 ; "This machine has accepted tokens today; it may not also give them up" 0a0d 024a | J | .STRTAB 0x024a->0x0b32 ; "Set_Site" 0a0e 0250 | P | .STRTAB 0x0250->0x0b36 ; "Code (" 0a0f 0254 | T | .STRTAB 0x0254->0x0b39 ; ") does not correspond to Site (" 0a10 0271 | q | .STRTAB 0x0271->0x0b48 ; ")." 0a11 0271 | q | .STRTAB 0x0271->0x0b49 ; "Site set to " 0a12 027b | { | .STRTAB 0x027b->0x0b4f ; "Convert_Tokens" 0a13 0287 | | .STRTAB 0x0287->0x0b56 ; "The token count for the current product (" 0a14 02ae | | .STRTAB 0x02ae->0x0b6b ; ") is NOT equal to Token_Count parameter (" 0a15 02d5 | | .STRTAB 0x02d5->0x0b7f ; "); these must be equal in order to proceed." 0a16 02fe | | .STRTAB 0x02fe->0x0b95 ; "The code provided does NOT match the request being made. This might be caused by a transcription error of the code, current product, new product, or the Machine ID of this machine (" 0a17 03b2 | | .STRTAB 0x03b2->0x0bf0 ; "), a delay in posting the request (code only valid for one day), " 0a18 03f1 | | .STRTAB 0x03f1->0x0c10 ; "or some other combination of parameter problems. " 0a19 0421 | ! | .STRTAB 0x0421->0x0c29 ; "Contact your Rational representative for further assistance." 0a1a 045b | [ | .STRTAB 0x045b->0x0c47 ; "The authorization provided has been used previously for this product. It must be unique for this machine for all time." 0a1b 04d0 | | .STRTAB 0x04d0->0x0c83 ; " tokens set to " 0a1c 04dd | | .STRTAB 0x04dd->0x0c8a ; " has no more tokens." 0a1d 04ef | | .STRTAB 0x04ef->0x0c94 ; "Allow_Token_Conversion" 0a1e 0503 | | .STRTAB 0x0503->0x0c9f ; "Must be run from a Rational site." 0a1f 0522 | " | .STRTAB 0x0522->0x0cb0 ; "Assign_Tokens" 0a20 052d | - | .STRTAB 0x052d->0x0cb6 ; "Assign_Site" 0a21 0536 | 6 | .STRTAB 0x0536->0x0cbc ; "Run the following on the remote machine:" 0a22 055c | \ | .STRTAB 0x055c->0x0cd0 ; "Site" 0a23 055e | ^ | .STRTAB 0x055e->0x0cd2 ; "Code" 0a24 0560 | ` | .STRTAB 0x0560->0x0cd4 ; "Training" 0a25 0566 | f | .STRTAB 0x0566->0x0cd8 ; "Training_Authorization" 0a26 057a | z | .STRTAB 0x057a->0x0ce3 ; "Product and Token authorization checking has been reinstated." 0a27 05b5 | | .STRTAB 0x05b5->0x0d01 ; "Authorization_Checking_Reinstated" 0a28 05d4 | | .STRTAB 0x05d4->0x0d12 ; "Product and Token authorization checking has been suspended to allow training to proceed. Checking will be re-instated the next time the machine boots or by exectuting this procedure with Enable => False." 0a29 069f | | .STRTAB 0x069f->0x0d78 ; "Authorization_Checking_Suspended" 0a2a 06bd | | .STRTAB 0x06bd->0x0d88 ; "The code provided is NOT correct for this purpose, on this machine, and for today's date. Please check for transcription errors or contact your Rational representative." 0a2b 0764 | d | .STRTAB 0x0764->0x0ddd ; "Authorization_Code_Error" 0a2c 077a | z | .STRTAB 0x077a->0x0de9 ; "/" 0a2d 0779 | y | .STRTAB 0x0779->0x0de9 ; "=" 0a2e 0778 | x | .STRTAB 0x0778->0x0dea ; "|" 0a2f 0777 | w | .STRTAB 0x0777->0x0dea ; "Product" 0a30 077c | | | .STRTAB 0x077c->0x0dee ; "Donation" 0a31 0782 | | .STRTAB 0x0782->0x0df2 ; "Resulting_Count" 0a32 078f | | .STRTAB 0x078f->0x0df9 ; "Authorization" 0a33 079a | | .STRTAB 0x079a->0x0e00 ; "Current_Product" 0a34 07a7 | | .STRTAB 0x07a7->0x0e07 ; "New_Product" 0a35 07b0 | | .STRTAB 0x07b0->0x0e0d ; "Token_Count" 0a36 07b9 | | .STRTAB 0x07b9->0x0e12 ; "The legal range of " 0a37 07ca | | .STRTAB 0x07ca->0x0e1c ; " for " 0a38 07cd | | .STRTAB 0x07cd->0x0e1e ; " is " 0a39 07cf | | .STRTAB 0x07cf->0x0e20 ; ".." 0a3a 07cf | | .STRTAB 0x07cf->0x0e21 ; ", but the value specified (" 0a3b 07e8 | | .STRTAB 0x07e8->0x0e2f ; ") is outside that range" 0a3c 07fd | | .STRTAB 0x07fd->0x0e3a ; "Product name not specified." 0a3d 0816 | | .STRTAB 0x0816->0x0e48 ; "Product name contains an illegal character (" 0a3e 0840 | @ | .STRTAB 0x0840->0x0e5e ; "Product name includes leading or trailing blanks." 0a3f 086f | o | .STRTAB 0x086f->0x0e76 ; "Site name not specified." 0a40 0885 | | .STRTAB 0x0885->0x0e82 ; "Site name contains an illegal character (" 0a41 08ac | | .STRTAB 0x08ac->0x0e97 ; "Site name includes leading or trailing blanks." 0a42 08d8 | | .STRTAB 0x08d8->0x0eae ; "Date contains an illegal character (" 0a43 08fa | | .STRTAB 0x08fa->0x0ec0 ; "The number of tokens (" 0a44 090e | | .STRTAB 0x090e->0x0ecb ; ") for " 0a45 0912 | | .STRTAB 0x0912->0x0ece ; " exceeds the target authorization (" 0a46 0933 | 3 | .STRTAB 0x0933->0x0edf ; "Cannot specify both authorization and date for " 0a47 0960 | ` | .STRTAB 0x0960->0x0ef7 ; "There are currently no tokens for " 0a48 0980 | | .STRTAB 0x0980->0x0f08 ; ", so they can't be donated." 0a49 0999 | | .STRTAB 0x0999->0x0f15 ; "The requested donation (" 0a4a 09af | | .STRTAB 0x09af->0x0f21 ; "exceeds the current limit (" 0a4b 09c8 | | .STRTAB 0x09c8->0x0f2f ; "Donation of " 0a4c 09d2 | | .STRTAB 0x09d2->0x0f35 ; " tokens for " 0a4d 09dc | | .STRTAB 0x09dc->0x0f3b ; " would transfer tokens currently in use." 0a4e 0a02 | | .STRTAB 0x0a02->0x0f4f ; " has resulted in " 0a4f 0a11 | | .STRTAB 0x0a11->0x0f57 ; " tokens." 0a50 0a17 | | .STRTAB 0x0a17->0x0f5b ; "This machine has donated tokens today; it may not also accept them" 0a51 0a57 | W | .STRTAB 0x0a57->0x0f7c ; "The sum of currently authorized tokens and Donations (" 0a52 0a8b | | .STRTAB 0x0a8b->0x0f97 ; "(" 0a53 0a8a | | .STRTAB 0x0a8a->0x0f98 ; ") +" 0a54 0a8b | | .STRTAB 0x0a8b->0x0f99 ; ") =" 0a55 0a8c | | .STRTAB 0x0a8c->0x0f9b ; ") is NOT equal to Resulting_Count parameter (" 0a56 0ab7 | | .STRTAB 0x0ab7->0x0fb1 ; "The code provided does NOT match the request being made. This might be caused by a transcription error of the code, an attempt to transfer between sites without Rational assistance, a transcription error of the Site of this machine (" 0a57 0b9f | | .STRTAB 0x0b9f->0x1026 ; "), a transcription error of the Machine ID of this machine (" 0a58 0bd9 | | .STRTAB 0x0bd9->0x1044 ; "1/1/90" 0a59 0bdd | | .STRTAB 0x0bdd->0x1047 ; "Date (" 0a5a 0be1 | | .STRTAB 0x0be1->0x104a ; ") doesn't represent a legal date." 0a5b 0c00 | | .STRTAB 0x0c00->0x105b ; "Active tokens for " 0a5c 0c10 | | .STRTAB 0x0c10->0x1064 ; " make it impossible to accept tokens for " 0a5d 0c37 | 7 | .STREND 0x0c37->0x1078 0a5e 4c6f 6769 |Logi| .STRTAB_STRINGS 1079 0000 0000 | | .BLANK 0000[0x7] 1080 ; -------------------------------------------------------------------------------------- 1080 ; Debug Table 1080 ; -------------------------------------------------------------------------------------- 1080 0004 0011 | | .DEBUG4 0x0004,0x0011,0x974c,0x0000,0x0001,0x0000 1086 0000 0000 | | .BLANK 0000[0x4] 108a 1053 4700 | SG | .XXX[0x10] 108c 0000 3374 | 3t| 108e 020a 6920 | i | 1090 020a 6a73 | js| 1092 0000 4482 | D | 1094 0006 5658 | VX| 1096 0000 0000 | | 1098 0414 d78c | | 109a 0000 0000 | | .BLANK 0000[0x5] 109f e770 0200 | p | .XXX[0x11] 10a1 0044 6818 | Dh | 10a3 0084 c004 | | 10a5 e000 088d | | 10a7 0000 0890 | | 10a9 4000 cacb |@ | 10ab 0000 0000 | | 10ad 0082 9b31 | 1| 10af 8000 | | 10b0 0000 0000 | | .BLANK 0000[0x4] 10b4 1cee 0040 | @| .XXX[0x25] 10b6 0008 8d03 | | 10b8 0010 9800 | | 10ba 1c00 0111 | | 10bc a008 29b1 | ) | 10be 1c00 0000 | | 10c0 0000 0000 | | 10c2 0800 0000 | | 10c4 0000 0000 | | 10c6 0800 01ce | | 10c8 e000 0000 | | 10ca 0000 0000 | | 10cc 0008 29b5 | ) | 10ce 1c00 0000 | | 10d0 0000 0000 | | 10d2 0800 0000 | | 10d4 0000 0000 | | 10d6 0800 01ce | | 10d8 e000 | | 10d9 0000 0000 | | .BLANK 0000[0x5] 10de 2400 0089 |$ | .XXX[0x57] 10e0 0408 29a2 | ) | 10e2 7400 0000 |t | 10e4 0000 0000 | | 10e6 0004 14dd | | 10e8 5400 0565 |T e| 10ea 2bc0 829b |+ | 10ec ba80 829c | | 10ee 0f40 004b | @ K| 10f0 c301 0538 | 8| 10f2 f800 0000 | | 10f4 0001 0539 | 9| 10f6 4800 0000 |H | 10f8 0001 0539 | 9| 10fa c800 01bc | | 10fc 9301 4000 | @ | 10fe 132f 0201 | / | 1100 a150 0010 | P | 1102 1053 9240 | S @| 1104 0009 7860 | x`| 1106 20a7 1f00 | | 1108 0000 0000 | | 110a 20a7 5590 | U | 110c 0000 0000 | | 110e 20a7 6590 | e | 1110 0037 9260 | 7 `| 1112 2800 0265 |( e| 1114 e040 342a | @4*| 1116 0002 020a | | 1118 7511 0000 |u | 111a 0000 020a | | 111c 71f0 0009 |q | 111e 8484 0000 | | 1120 0001 0000 | | 1122 0003 4153 | AS| 1124 41ff c000 |A | 1126 132f 0000 | / | 1128 7945 020a |yE | 112a 7311 0000 |s | 112c 0000 0000 | | 112e 0002 0000 | | 1130 0000 0000 | | 1132 0001 0003 | | 1134 7926 |y& | 1135 0000 0000 | | .BLANK 0000[0x4] 1139 020a 7411 | t | .XXX[0x14] 113b 0000 0000 | | 113d 0000 0004 | | 113f 0000 0000 | | 1141 0007 bfd1 | | 1143 0000 9787 | | 1145 0000 0000 | | 1147 020a 7491 | t | 1149 801d 957a | z| 114b 8000 9788 | | 114d 0000 0000 | | .BLANK 0000[0x4] 1151 7fe0 0009 | | .XXX[0x21] 1153 9780 003c | <| 1155 a281 053a | :| 1157 ed00 0000 | | 1159 0000 0000 | | 115b 0100 0000 | | 115d 0000 0000 | | 115f 0080 01bc | | 1161 9300 0000 | | 1163 0000 0000 | | 1165 0001 053b | ;| 1167 6d00 0000 |m | 1169 0000 0000 | | 116b 0100 0000 | | 116d 0000 03df | | 116f e880 004b | K| 1171 c380 | | 1172 0000 0000 | | .BLANK 0000[0x5] 1177 0240 0025 | @ %| .XXX[0x19] 1179 e180 829b | | 117b 99c0 829b | | 117d 7180 829f |q | 117f 6100 414f |a AO| 1181 07c0 001b | | 1183 1f68 0829 | h )| 1185 e1f8 0829 | )| 1187 e744 000a | D | 1189 d7c8 1053 | S| 118b dc20 0000 | | 118d 0000 1053 | S| 118f e420 | | 1190 0000 0000 | | .BLANK 0000[0x4] 1194 002b 3160 | +1`| .XXX[0x9] 1196 0800 0000 | | 1198 5860 0200 |X` | 119a 0003 8000 | | 119c 000b | | 119d 0000 0000 | | .BLANK 0000[0xe] 11ab 0100 | | .XXX[0x1] 11ac 0000 0000 | | .BLANK 0000[0x4] 11b0 7000 0000 |p | .XXX[0x25] 11b2 0000 0000 | | 11b4 0020 a7b8 | | 11b6 4006 469a |@ F | 11b8 3000 0000 |0 | 11ba 1000 0001 | | 11bc 84c4 f475 | u| 11be f393 35f3 | 5 | 11c0 0365 f313 | e | 11c2 65f4 1545 |e E| 11c4 f303 55f3 | U | 11c6 0345 f343 | E C| 11c8 0020 a7d0 | | 11ca 5000 0000 |P | 11cc 0000 0000 | | 11ce 2000 0000 | | 11d0 0000 0000 | | 11d2 1000 5662 | Vb| 11d4 c000 | | 11d5 0000 0000 | | .BLANK 0000[0x5] 11da 9000 15af | | .XXX[0x19] 11dc 9020 a77f | | 11de b000 0000 | | 11e0 0000 0000 | | 11e2 0010 53f3 | S | 11e4 4000 0ba1 |@ | 11e6 7602 0a7e |v ~| 11e8 a802 0a7f | | 11ea fb00 0304 | | 11ec 2000 11de | | 11ee 1e00 0000 | | 11f0 0004 1502 | | 11f2 9c00 | | 11f3 0000 0000 | | .BLANK 0000[0x4] 11f7 0323 7002 | #p | .XXX[0x9] 11f9 0002 dcfe | | 11fb 5800 85c0 |X | 11fd 00e0 005b | [| 11ff 9840 | @ |