|
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_03bcfe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦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 1060 | ` | .CONST 0x1060 ; 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 09ed | | Action Push_String_Extended,0x9ed ; "Login" 0038 0092 09ee | | Action Push_String_Extended,0x9ee ; "Full Session" 003a 0092 09ef | | Action Push_String_Extended,0x9ef ; "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 0603 | | Declare_Subprogram INIT_0600,For_Outer_Call,Unelaborated 0082 029b 0613 | | Declare_Subprogram INIT_0610,For_Outer_Call,Unelaborated 0084 029b 065b | [| Declare_Subprogram INIT_0658,For_Outer_Call,Unelaborated 0086 029b 069b | | Declare_Subprogram INIT_0698,For_Outer_Call,Unelaborated 0088 029b 06d3 | | Declare_Subprogram INIT_06d0,For_Outer_Call,Unelaborated 008a 029b 070b | | Declare_Subprogram INIT_0708,For_Outer_Call,Unelaborated 008c 029b 0743 | C| Declare_Subprogram INIT_0740,For_Outer_Call,Unelaborated 008e 029b 0773 | s| Declare_Subprogram INIT_0770,For_Outer_Call,Unelaborated 0090 029b 07d3 | | Declare_Subprogram INIT_07d0,For_Outer_Call,Unelaborated 0092 029b 07eb | | Declare_Subprogram INIT_07e8,For_Outer_Call,Unelaborated 0094 029b 086b | k| Declare_Subprogram INIT_0868,For_Outer_Call,Unelaborated 0096 029b 087b | {| Declare_Subprogram INIT_0878,For_Outer_Call,Unelaborated 0098 029b 088b | | Declare_Subprogram INIT_0888,For_Outer_Call,Unelaborated 009a 029d 089b | | Declare_Subprogram INIT_0898,For_Outer_Call 009c 029d 0953 | S| Declare_Subprogram INIT_0950,For_Outer_Call 009e 029d 096b | k| Declare_Subprogram INIT_0968,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 09f0 | | Action Push_String_Extended,0x9f0 ; "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 09f1 | | Action Push_String_Extended,0x9f1 ; "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 09f2 | | Action Push_String_Extended,0x9f2 ; "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 09f3 | | Action Push_String_Extended,0x9f3 ; "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 09f4 | | Action Push_String_Extended,0x9f4 ; "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 09f5 | | Action Push_String_Extended,0x9f5 ; "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 09f6 | | Action Push_String_Extended,0x9f6 ; "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 09f7 | | Action Push_String_Extended,0x9f7 ; ") 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 09f8 | | Action Push_String_Extended,0x9f8 ; ")." 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 09f9 | | Action Push_String_Extended,0x9f9 ; "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 09fa | | Action Push_String_Extended,0x9fa ; "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 0993 | | Declare_Subprogram INIT_0990,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 09fb | | Action Push_String_Extended,0x9fb ; "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 09fc | | Action Push_String_Extended,0x9fc ; ") 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 09fd | | Action Push_String_Extended,0x9fd ; "); 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 09fe | | Action Push_String_Extended,0x9fe ; "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 09ff | | Action Push_String_Extended,0x9ff ; "), a delay in posting the request (code only valid for one day), " 02a7 01cc | | Execute Vector,Catenate 02a8 0092 0a00 | | Action Push_String_Extended,0xa00 ; "or some other combination of parameter problems. " 02aa 01cc | | Execute Vector,Catenate 02ab 0092 0a01 | | Action Push_String_Extended,0xa01 ; "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 0a02 | | Action Push_String_Extended,0xa02 ; "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 0a03 | | Action Push_String_Extended,0xa03 ; " 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 0a04 | | Action Push_String_Extended,0xa04 ; " 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 0a05 | | Action Push_String_Extended,0xa05 ; "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 0a06 | | Action Push_String_Extended,0xa06 ; "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 09f2 | | Action Push_String_Extended,0x9f2 ; "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 0a07 | | Action Push_String_Extended,0xa07 ; "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 0a06 | | Action Push_String_Extended,0xa06 ; "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 09f2 | | Action Push_String_Extended,0x9f2 ; "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 0a06 | | Action Push_String_Extended,0xa06 ; "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 09f2 | | Action Push_String_Extended,0x9f2 ; "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 0a08 | | Action Push_String_Extended,0xa08 ; "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 0a09 | | Action Push_String_Extended,0xa09 ; "Run the following on the remote machine:" 047b e014 | | Load 0x0,0x14 047c 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 047d 0092 09f5 | | Action Push_String_Extended,0x9f5 ; "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 0a0a | | Action Push_String_Extended,0xa0a ; "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 0a0b | | Action Push_String_Extended,0xa0b ; "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 0a0c | | Action Push_String_Extended,0xa0c ; "Training" 04e5 0092 0a0d | | Action Push_String_Extended,0xa0d ; "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 0a0e | | Action Push_String_Extended,0xa0e ; "Product and Token authorization checking has been reinstated." 0506 0092 0a0f | | Action Push_String_Extended,0xa0f ; "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 0a10 | | Action Push_String_Extended,0xa10 ; "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 0a11 | | Action Push_String_Extended,0xa11 ; "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 0a12 | | Action Push_String_Extended,0xa12 ; "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 0a13 | | Action Push_String_Extended,0xa13 ; "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 0a14 | | Action Push_String_Extended,0xa14 ; "/" 05a1 01cc | | Execute Vector,Catenate 05a2 e5fb | | Load 0x2,-0x5 05a3 01cc | | Execute Vector,Catenate 05a4 0092 0a15 | | Action Push_String_Extended,0xa15 ; "=" 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 0a16 | | Action Push_String_Extended,0xa16 ; "|" 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 05fb | | .CONST 0x05fb ; Address of begin 05f9 0004 | | .CONST 0x0004 ; Address of exception handler 05fa 0001 | | .CONST 0x0001 ; Number of locals 05fb BODY_05f8: 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 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0600 ; -------------------------------------------------------------------------------------- 0600 ; SUBPROGRAM 0600 ; -------------------------------------------------------------------------------------- 0600 0605 | | .CONST 0x0605 ; Address of begin 0601 0004 | | .CONST 0x0004 ; Address of exception handler 0602 0002 | | .CONST 0x0002 ; Number of locals 0603 INIT_0600: 0603 029f 09a3 | | Declare_Subprogram INIT_09a0,For_Call 0605 BODY_0600: 0605 e5ff | | Load 0x2,-0x1 0606 8402 | | Call 0x2,0x2 0607 e5fe | | Load 0x2,-0x2 0608 8402 | | Call 0x2,0x2 0609 017f | | Execute Record,Equal 060a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 060b 0000 0000 | | .BLANK 0000[0x5] 0610 ; -------------------------------------------------------------------------------------- 0610 ; SUBPROGRAM 0610 ; -------------------------------------------------------------------------------------- 0610 0613 | | .CONST 0x0613 ; Address of begin 0611 0004 | | .CONST 0x0004 ; Address of exception handler 0612 0001 | | .CONST 0x0001 ; Number of locals 0613 BODY_0610: 0613 INIT_0610: 0613 0092 0a09 | | Action Push_String_Extended,0xa09 ; "Run the following on the remote machine:" 0615 e014 | | Load 0x0,0x14 0616 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0617 0092 09f0 | | Action Push_String_Extended,0x9f0 ; "Accept_Tokens" 0619 e225 | % | Load 0x1,0x25 061a 180d | | Execute Package,Field_Execute,Field_Number 0xd 061b e5ff | | Load 0x2,-0x1 061c e224 | $ | Load 0x1,0x24 061d 181e | | Execute Package,Field_Execute,Field_Number 0x1e 061e 0092 0a17 | | Action Push_String_Extended,0xa17 ; "Product" 0620 e225 | % | Load 0x1,0x25 0621 180e | | Execute Package,Field_Execute,Field_Number 0xe 0622 4820 |H | Short_Literal 0x20 0623 4800 |H | Short_Literal 0x0 0624 480a |H | Short_Literal 0xa 0625 e5fe | | Load 0x2,-0x2 0626 e008 | | Load 0x0,0x8 0627 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0628 0092 0a18 | | Action Push_String_Extended,0xa18 ; "Donation" 062a e225 | % | Load 0x1,0x25 062b 180e | | Execute Package,Field_Execute,Field_Number 0xe 062c 4820 |H | Short_Literal 0x20 062d 4800 |H | Short_Literal 0x0 062e 480a |H | Short_Literal 0xa 062f e5fd | | Load 0x2,-0x3 0630 e008 | | Load 0x0,0x8 0631 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0632 0092 0a19 | | Action Push_String_Extended,0xa19 ; "Resulting_Count" 0634 e225 | % | Load 0x1,0x25 0635 180e | | Execute Package,Field_Execute,Field_Number 0xe 0636 e5f9 | | Load 0x2,-0x7 0637 e5fa | | Load 0x2,-0x6 0638 e5fb | | Load 0x2,-0x5 0639 e5fc | | Load 0x2,-0x4 063a e5fd | | Load 0x2,-0x3 063b e5fe | | Load 0x2,-0x2 063c e5ff | | Load 0x2,-0x1 063d 822b | + | Call 0x1,0x2b 063e e224 | $ | Load 0x1,0x24 063f 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0640 0092 0a0b | | Action Push_String_Extended,0xa0b ; "Code" 0642 e225 | % | Load 0x1,0x25 0643 180e | | Execute Package,Field_Execute,Field_Number 0xe 0644 e5fa | | Load 0x2,-0x6 0645 01db | | Execute Vector,Length 0646 6807 |h | Jump_Zero 0x64e 0647 e5fa | | Load 0x2,-0x6 0648 e224 | $ | Load 0x1,0x24 0649 181e | | Execute Package,Field_Execute,Field_Number 0x1e 064a 0092 0a1a | | Action Push_String_Extended,0xa1a ; "Authorization" 064c e225 | % | Load 0x1,0x25 064d 180e | | Execute Package,Field_Execute,Field_Number 0xe 064e e225 | % | Load 0x1,0x25 064f 180f | | Execute Package,Field_Execute,Field_Number 0xf 0650 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0651 0000 0000 | | .BLANK 0000[0x7] 0658 ; -------------------------------------------------------------------------------------- 0658 ; SUBPROGRAM 0658 ; -------------------------------------------------------------------------------------- 0658 065b | [ | .CONST 0x065b ; Address of begin 0659 0004 | | .CONST 0x0004 ; Address of exception handler 065a 0001 | | .CONST 0x0001 ; Number of locals 065b BODY_0658: 065b INIT_0658: 065b 0092 0a09 | | Action Push_String_Extended,0xa09 ; "Run the following on the remote machine:" 065d e014 | | Load 0x0,0x14 065e 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 065f 0092 09fa | | Action Push_String_Extended,0x9fa ; "Convert_Tokens" 0661 e225 | % | Load 0x1,0x25 0662 180d | | Execute Package,Field_Execute,Field_Number 0xd 0663 e5ff | | Load 0x2,-0x1 0664 e224 | $ | Load 0x1,0x24 0665 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0666 0092 0a1b | | Action Push_String_Extended,0xa1b ; "Current_Product" 0668 e225 | % | Load 0x1,0x25 0669 180e | | Execute Package,Field_Execute,Field_Number 0xe 066a e5fe | | Load 0x2,-0x2 066b e224 | $ | Load 0x1,0x24 066c 181e | | Execute Package,Field_Execute,Field_Number 0x1e 066d 0092 0a1c | | Action Push_String_Extended,0xa1c ; "New_Product" 066f e225 | % | Load 0x1,0x25 0670 180e | | Execute Package,Field_Execute,Field_Number 0xe 0671 4820 |H | Short_Literal 0x20 0672 4800 |H | Short_Literal 0x0 0673 480a |H | Short_Literal 0xa 0674 e5fd | | Load 0x2,-0x3 0675 e008 | | Load 0x0,0x8 0676 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0677 0092 0a1d | | Action Push_String_Extended,0xa1d ; "Token_Count" 0679 e225 | % | Load 0x1,0x25 067a 180e | | Execute Package,Field_Execute,Field_Number 0xe 067b e5fa | | Load 0x2,-0x6 067c e5fb | | Load 0x2,-0x5 067d e5fc | | Load 0x2,-0x4 067e e5fd | | Load 0x2,-0x3 067f e5fe | | Load 0x2,-0x2 0680 e5ff | | Load 0x2,-0x1 0681 822c | , | Call 0x1,0x2c 0682 e224 | $ | Load 0x1,0x24 0683 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0684 0092 0a0b | | Action Push_String_Extended,0xa0b ; "Code" 0686 e225 | % | Load 0x1,0x25 0687 180e | | Execute Package,Field_Execute,Field_Number 0xe 0688 e5fb | | Load 0x2,-0x5 0689 01db | | Execute Vector,Length 068a 6807 |h | Jump_Zero 0x692 068b e5fb | | Load 0x2,-0x5 068c e224 | $ | Load 0x1,0x24 068d 181e | | Execute Package,Field_Execute,Field_Number 0x1e 068e 0092 0a1a | | Action Push_String_Extended,0xa1a ; "Authorization" 0690 e225 | % | Load 0x1,0x25 0691 180e | | Execute Package,Field_Execute,Field_Number 0xe 0692 e225 | % | Load 0x1,0x25 0693 180f | | Execute Package,Field_Execute,Field_Number 0xf 0694 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0695 0000 0000 | | .XXX[0x3] 0697 0000 | | 0698 ; -------------------------------------------------------------------------------------- 0698 ; SUBPROGRAM 0698 ; -------------------------------------------------------------------------------------- 0698 069b | | .CONST 0x069b ; Address of begin 0699 0004 | | .CONST 0x0004 ; Address of exception handler 069a 0001 | | .CONST 0x0001 ; Number of locals 069b BODY_0698: 069b INIT_0698: 069b e5ff | | Load 0x2,-0x1 069c e21f | | Load 0x1,0x1f 069d 025f | _ | Execute Discrete,Not_In_Type 069e 682d |h- | Jump_Zero 0x6cc 069f e5fc | | Load 0x2,-0x4 06a0 0092 0a1e | | Action Push_String_Extended,0xa1e ; "The legal range of " 06a2 e5fe | | Load 0x2,-0x2 06a3 01cc | | Execute Vector,Catenate 06a4 0092 0a1f | | Action Push_String_Extended,0xa1f ; " for " 06a6 01cc | | Execute Vector,Catenate 06a7 e5fd | | Load 0x2,-0x3 06a8 01cc | | Execute Vector,Catenate 06a9 0092 0a20 | | Action Push_String_Extended,0xa20 ; " is " 06ab 01cc | | Execute Vector,Catenate 06ac 4820 |H | Short_Literal 0x20 06ad 4800 |H | Short_Literal 0x0 06ae 480a |H | Short_Literal 0xa 06af 4800 |H | Short_Literal 0x0 06b0 e008 | | Load 0x0,0x8 06b1 1816 | | Execute Package,Field_Execute,Field_Number 0x16 06b2 01cc | | Execute Vector,Catenate 06b3 0092 0a21 | !| Action Push_String_Extended,0xa21 ; ".." 06b5 01cc | | Execute Vector,Catenate 06b6 4820 |H | Short_Literal 0x20 06b7 4800 |H | Short_Literal 0x0 06b8 480a |H | Short_Literal 0xa 06b9 4840 |H@ | Short_Literal 0x40 06ba e008 | | Load 0x0,0x8 06bb 1816 | | Execute Package,Field_Execute,Field_Number 0x16 06bc 01cc | | Execute Vector,Catenate 06bd 0092 0a22 | "| Action Push_String_Extended,0xa22 ; ", but the value specified (" 06bf 01cc | | Execute Vector,Catenate 06c0 4820 |H | Short_Literal 0x20 06c1 4800 |H | Short_Literal 0x0 06c2 480a |H | Short_Literal 0xa 06c3 e5ff | | Load 0x2,-0x1 06c4 e008 | | Load 0x0,0x8 06c5 1816 | | Execute Package,Field_Execute,Field_Number 0x16 06c6 01cc | | Execute Vector,Catenate 06c7 0092 0a23 | #| Action Push_String_Extended,0xa23 ; ") is outside that range" 06c9 01cc | | Execute Vector,Catenate 06ca e224 | $ | Load 0x1,0x24 06cb 180d | | Execute Package,Field_Execute,Field_Number 0xd 06cc 4505 |E | Exit_Suprogram New_Top_Offset 0x5 06cd 0000 0000 | | .XXX[0x3] 06cf 0000 | | 06d0 ; -------------------------------------------------------------------------------------- 06d0 ; SUBPROGRAM 06d0 ; -------------------------------------------------------------------------------------- 06d0 06d3 | | .CONST 0x06d3 ; Address of begin 06d1 0004 | | .CONST 0x0004 ; Address of exception handler 06d2 0001 | | .CONST 0x0001 ; Number of locals 06d3 BODY_06d0: 06d3 INIT_06d0: 06d3 e5ff | | Load 0x2,-0x1 06d4 01db | | Execute Vector,Length 06d5 7005 |p | Jump_Nonzero 0x6db 06d6 e5fe | | Load 0x2,-0x2 06d7 0092 0a24 | $| Action Push_String_Extended,0xa24 ; "Product name not specified." 06d9 e224 | $ | Load 0x1,0x24 06da 180d | | Execute Package,Field_Execute,Field_Number 0xd 06db 00cf | | Action Mark_Auxiliary 06dc e5ff | | Load 0x2,-0x1 06dd 01d9 | | Execute Vector,Reverse_Bounds 06de 0263 | c | Execute Discrete,Above_Bound 06df 7018 |p | Jump_Nonzero 0x6f8 06e0 00d8 | | Load_Top At_Offset_0 06e1 e5ff | | Load 0x2,-0x1 06e2 01d7 | | Execute Vector,Field_Read 06e3 4820 |H | Short_Literal 0x20 06e4 487e |H~ | Short_Literal 0x7e 06e5 0261 | a | Execute Discrete,Not_In_Range 06e6 680f |h | Jump_Zero 0x6f6 06e7 e5fe | | Load 0x2,-0x2 06e8 0092 0a25 | %| Action Push_String_Extended,0xa25 ; "Product name contains an illegal character (" 06ea e404 | | Load 0x2,0x4 06eb e5ff | | Load 0x2,-0x1 06ec 01d7 | | Execute Vector,Field_Read 06ed 00e8 | | Load_Encached Character_Cache 06ee 011c | | Execute Any,Convert_Unchecked 06ef 1c01 | | Execute_Immediate Run_Utility,0x1 06f0 01cc | | Execute Vector,Catenate 06f1 0092 09f8 | | Action Push_String_Extended,0x9f8 ; ")." 06f3 01cc | | Execute Vector,Catenate 06f4 e224 | $ | Load 0x1,0x24 06f5 180d | | Execute Package,Field_Execute,Field_Number 0xd 06f6 00c8 | | Action Pop_Auxiliary_Range 06f7 3fe8 |? | Loop_Increasing 0x6e0 06f8 00ce | | Action Pop_Auxiliary 06f9 e5ff | | Load 0x2,-0x1 06fa 4820 |H | Short_Literal 0x20 06fb e5ff | | Load 0x2,-0x1 06fc e008 | | Load 0x0,0x8 06fd 181c | | Execute Package,Field_Execute,Field_Number 0x1c 06fe 01de | | Execute Vector,Not_Equal 06ff 6805 |h | Jump_Zero 0x705 0700 e5fe | | Load 0x2,-0x2 0701 0092 0a26 | &| Action Push_String_Extended,0xa26 ; "Product name includes leading or trailing blanks." 0703 e224 | $ | Load 0x1,0x24 0704 180d | | Execute Package,Field_Execute,Field_Number 0xd 0705 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0706 0000 0000 | | .XXX[0x2] 0708 ; -------------------------------------------------------------------------------------- 0708 ; SUBPROGRAM 0708 ; -------------------------------------------------------------------------------------- 0708 070b | | .CONST 0x070b ; Address of begin 0709 0004 | | .CONST 0x0004 ; Address of exception handler 070a 0001 | | .CONST 0x0001 ; Number of locals 070b BODY_0708: 070b INIT_0708: 070b e5ff | | Load 0x2,-0x1 070c 01db | | Execute Vector,Length 070d 7005 |p | Jump_Nonzero 0x713 070e e5fe | | Load 0x2,-0x2 070f 0092 0a27 | '| Action Push_String_Extended,0xa27 ; "Site name not specified." 0711 e224 | $ | Load 0x1,0x24 0712 180d | | Execute Package,Field_Execute,Field_Number 0xd 0713 00cf | | Action Mark_Auxiliary 0714 e5ff | | Load 0x2,-0x1 0715 01d9 | | Execute Vector,Reverse_Bounds 0716 0263 | c | Execute Discrete,Above_Bound 0717 7018 |p | Jump_Nonzero 0x730 0718 00d8 | | Load_Top At_Offset_0 0719 e5ff | | Load 0x2,-0x1 071a 01d7 | | Execute Vector,Field_Read 071b 4820 |H | Short_Literal 0x20 071c 487e |H~ | Short_Literal 0x7e 071d 0261 | a | Execute Discrete,Not_In_Range 071e 680f |h | Jump_Zero 0x72e 071f e5fe | | Load 0x2,-0x2 0720 0092 0a28 | (| Action Push_String_Extended,0xa28 ; "Site name contains an illegal character (" 0722 e404 | | Load 0x2,0x4 0723 e5ff | | Load 0x2,-0x1 0724 01d7 | | Execute Vector,Field_Read 0725 00e8 | | Load_Encached Character_Cache 0726 011c | | Execute Any,Convert_Unchecked 0727 1c01 | | Execute_Immediate Run_Utility,0x1 0728 01cc | | Execute Vector,Catenate 0729 0092 09f8 | | Action Push_String_Extended,0x9f8 ; ")." 072b 01cc | | Execute Vector,Catenate 072c e224 | $ | Load 0x1,0x24 072d 180d | | Execute Package,Field_Execute,Field_Number 0xd 072e 00c8 | | Action Pop_Auxiliary_Range 072f 3fe8 |? | Loop_Increasing 0x718 0730 00ce | | Action Pop_Auxiliary 0731 e5ff | | Load 0x2,-0x1 0732 4820 |H | Short_Literal 0x20 0733 e5ff | | Load 0x2,-0x1 0734 e008 | | Load 0x0,0x8 0735 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0736 01de | | Execute Vector,Not_Equal 0737 6805 |h | Jump_Zero 0x73d 0738 e5fe | | Load 0x2,-0x2 0739 0092 0a29 | )| Action Push_String_Extended,0xa29 ; "Site name includes leading or trailing blanks." 073b e224 | $ | Load 0x1,0x24 073c 180d | | Execute Package,Field_Execute,Field_Number 0xd 073d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 073e 0000 0000 | | .XXX[0x2] 0740 ; -------------------------------------------------------------------------------------- 0740 ; SUBPROGRAM 0740 ; -------------------------------------------------------------------------------------- 0740 0745 | E | .CONST 0x0745 ; Address of begin 0741 0004 | | .CONST 0x0004 ; Address of exception handler 0742 0002 | | .CONST 0x0002 ; Number of locals 0743 INIT_0740: 0743 029f 09c3 | | Declare_Subprogram INIT_09c0,For_Call 0745 BODY_0740: 0745 4820 |H | Short_Literal 0x20 0746 e5ff | | Load 0x2,-0x1 0747 e008 | | Load 0x0,0x8 0748 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0749 01db | | Execute Vector,Length 074a 7001 |p | Jump_Nonzero 0x74c 074b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 074c 00cf | | Action Mark_Auxiliary 074d e5ff | | Load 0x2,-0x1 074e 01d9 | | Execute Vector,Reverse_Bounds 074f 0263 | c | Execute Discrete,Above_Bound 0750 7018 |p | Jump_Nonzero 0x769 0751 00d8 | | Load_Top At_Offset_0 0752 e5ff | | Load 0x2,-0x1 0753 01d7 | | Execute Vector,Field_Read 0754 4820 |H | Short_Literal 0x20 0755 487e |H~ | Short_Literal 0x7e 0756 0261 | a | Execute Discrete,Not_In_Range 0757 680f |h | Jump_Zero 0x767 0758 e5fe | | Load 0x2,-0x2 0759 0092 0a2a | *| Action Push_String_Extended,0xa2a ; "Date contains an illegal character (" 075b e405 | | Load 0x2,0x5 075c e5ff | | Load 0x2,-0x1 075d 01d7 | | Execute Vector,Field_Read 075e 00e8 | | Load_Encached Character_Cache 075f 011c | | Execute Any,Convert_Unchecked 0760 1c01 | | Execute_Immediate Run_Utility,0x1 0761 01cc | | Execute Vector,Catenate 0762 0092 09f8 | | Action Push_String_Extended,0x9f8 ; ")." 0764 01cc | | Execute Vector,Catenate 0765 e224 | $ | Load 0x1,0x24 0766 180d | | Execute Package,Field_Execute,Field_Number 0xd 0767 00c8 | | Action Pop_Auxiliary_Range 0768 3fe8 |? | Loop_Increasing 0x751 0769 00ce | | Action Pop_Auxiliary 076a 8402 | | Call 0x2,0x2 076b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 076c 0000 0000 | | .BLANK 0000[0x4] 0770 ; -------------------------------------------------------------------------------------- 0770 ; SUBPROGRAM 0770 ; -------------------------------------------------------------------------------------- 0770 0779 | y | .CONST 0x0779 ; Address of begin 0771 0004 | | .CONST 0x0004 ; Address of exception handler 0772 0003 | | .CONST 0x0003 ; Number of locals 0773 INIT_0770: 0773 e5ff | | Load 0x2,-0x1 0774 823a | : | Call 0x1,0x3a 0775 00e3 | | Load_Encached Natural_Cache 0776 03f1 | | Declare_Variable Discrete,With_Value 0777 029f 09db | | Declare_Subprogram INIT_09d8,For_Call 0779 BODY_0770: 0779 e5fc | | Load 0x2,-0x4 077a e5ff | | Load 0x2,-0x1 077b 0092 0a18 | | Action Push_String_Extended,0xa18 ; "Donation" 077d e5fe | | Load 0x2,-0x2 077e 8233 | 3 | Call 0x1,0x33 077f e5fc | | Load 0x2,-0x4 0780 e5ff | | Load 0x2,-0x1 0781 0092 0a19 | | Action Push_String_Extended,0xa19 ; "Resulting_Count" 0783 e5fd | | Load 0x2,-0x3 0784 8233 | 3 | Call 0x1,0x33 0785 e5fe | | Load 0x2,-0x2 0786 e5fd | | Load 0x2,-0x3 0787 027d | } | Execute Discrete,Greater 0788 681e |h | Jump_Zero 0x7a7 0789 e5fc | | Load 0x2,-0x4 078a 0092 0a2b | +| Action Push_String_Extended,0xa2b ; "The number of tokens (" 078c 4820 |H | Short_Literal 0x20 078d 4800 |H | Short_Literal 0x0 078e 480a |H | Short_Literal 0xa 078f e5fe | | Load 0x2,-0x2 0790 e008 | | Load 0x0,0x8 0791 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0792 01cc | | Execute Vector,Catenate 0793 0092 0a2c | ,| Action Push_String_Extended,0xa2c ; ") for " 0795 01cc | | Execute Vector,Catenate 0796 e5ff | | Load 0x2,-0x1 0797 01cc | | Execute Vector,Catenate 0798 0092 0a2d | -| Action Push_String_Extended,0xa2d ; " exceeds the target authorization (" 079a 01cc | | Execute Vector,Catenate 079b 4820 |H | Short_Literal 0x20 079c 4800 |H | Short_Literal 0x0 079d 480a |H | Short_Literal 0xa 079e e5fd | | Load 0x2,-0x3 079f e008 | | Load 0x0,0x8 07a0 1816 | | Execute Package,Field_Execute,Field_Number 0x16 07a1 01cc | | Execute Vector,Catenate 07a2 0092 09f8 | | Action Push_String_Extended,0x9f8 ; ")." 07a4 01cc | | Execute Vector,Catenate 07a5 e224 | $ | Load 0x1,0x24 07a6 180d | | Execute Package,Field_Execute,Field_Number 0xd 07a7 e5fe | | Load 0x2,-0x2 07a8 e5fd | | Load 0x2,-0x3 07a9 027f | | Execute Discrete,Equal 07aa 6820 |h | Jump_Zero 0x7cb 07ab 4801 |H | Short_Literal 0x1 07ac e220 | | Load 0x1,0x20 07ad e5ff | | Load 0x2,-0x1 07ae e008 | | Load 0x0,0x8 07af 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 07b0 6805 |h | Jump_Zero 0x7b6 07b1 e221 | ! | Load 0x1,0x21 07b2 8403 | | Call 0x2,0x3 07b3 e222 | " | Load 0x1,0x22 07b4 8403 | | Call 0x2,0x3 07b5 4505 |E | Exit_Suprogram New_Top_Offset 0x5 07b6 4801 |H | Short_Literal 0x1 07b7 e221 | ! | Load 0x1,0x21 07b8 e5ff | | Load 0x2,-0x1 07b9 e008 | | Load 0x0,0x8 07ba 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 07bb 6805 |h | Jump_Zero 0x7c1 07bc e220 | | Load 0x1,0x20 07bd 8403 | | Call 0x2,0x3 07be e222 | " | Load 0x1,0x22 07bf 8403 | | Call 0x2,0x3 07c0 4505 |E | Exit_Suprogram New_Top_Offset 0x5 07c1 4801 |H | Short_Literal 0x1 07c2 e222 | " | Load 0x1,0x22 07c3 e5ff | | Load 0x2,-0x1 07c4 e008 | | Load 0x0,0x8 07c5 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 07c6 6804 |h | Jump_Zero 0x7cb 07c7 e221 | ! | Load 0x1,0x21 07c8 8403 | | Call 0x2,0x3 07c9 e220 | | Load 0x1,0x20 07ca 8403 | | Call 0x2,0x3 07cb 4505 |E | Exit_Suprogram New_Top_Offset 0x5 07cc 0000 0000 | | .BLANK 0000[0x4] 07d0 ; -------------------------------------------------------------------------------------- 07d0 ; SUBPROGRAM 07d0 ; -------------------------------------------------------------------------------------- 07d0 07d3 | | .CONST 0x07d3 ; Address of begin 07d1 0004 | | .CONST 0x0004 ; Address of exception handler 07d2 0001 | | .CONST 0x0001 ; Number of locals 07d3 BODY_07d0: 07d3 INIT_07d0: 07d3 e5fe | | Load 0x2,-0x2 07d4 01db | | Execute Vector,Length 07d5 680a |h | Jump_Zero 0x7e0 07d6 e5fd | | Load 0x2,-0x3 07d7 01db | | Execute Vector,Length 07d8 6807 |h | Jump_Zero 0x7e0 07d9 e5fc | | Load 0x2,-0x4 07da 0092 0a2e | .| Action Push_String_Extended,0xa2e ; "Cannot specify both authorization and date for " 07dc e5ff | | Load 0x2,-0x1 07dd 01cc | | Execute Vector,Catenate 07de e224 | $ | Load 0x1,0x24 07df 180d | | Execute Package,Field_Execute,Field_Number 0xd 07e0 4505 |E | Exit_Suprogram New_Top_Offset 0x5 07e1 0000 0000 | | .BLANK 0000[0x7] 07e8 ; -------------------------------------------------------------------------------------- 07e8 ; SUBPROGRAM 07e8 ; -------------------------------------------------------------------------------------- 07e8 07f3 | | .CONST 0x07f3 ; Address of begin 07e9 0004 | | .CONST 0x0004 ; Address of exception handler 07ea 0003 | | .CONST 0x0003 ; Number of locals 07eb INIT_07e8: 07eb e5ff | | Load 0x2,-0x1 07ec 823a | : | Call 0x1,0x3a 07ed 00e3 | | Load_Encached Natural_Cache 07ee 03f1 | | Declare_Variable Discrete,With_Value 07ef e5ff | | Load 0x2,-0x1 07f0 823c | < | Call 0x1,0x3c 07f1 00e3 | | Load_Encached Natural_Cache 07f2 03f1 | | Declare_Variable Discrete,With_Value 07f3 BODY_07e8: 07f3 e402 | | Load 0x2,0x2 07f4 700a |p | Jump_Nonzero 0x7ff 07f5 e5fd | | Load 0x2,-0x3 07f6 0092 0a2f | /| Action Push_String_Extended,0xa2f ; "There are currently no tokens for " 07f8 e5ff | | Load 0x2,-0x1 07f9 01cc | | Execute Vector,Catenate 07fa 0092 0a30 | 0| Action Push_String_Extended,0xa30 ; ", so they can't be donated." 07fc 01cc | | Execute Vector,Catenate 07fd e224 | $ | Load 0x1,0x24 07fe 180d | | Execute Package,Field_Execute,Field_Number 0xd 07ff e5fe | | Load 0x2,-0x2 0800 e402 | | Load 0x2,0x2 0801 027d | } | Execute Discrete,Greater 0802 681e |h | Jump_Zero 0x821 0803 e5fd | | Load 0x2,-0x3 0804 0092 0a31 | 1| Action Push_String_Extended,0xa31 ; "The requested donation (" 0806 4820 |H | Short_Literal 0x20 0807 4800 |H | Short_Literal 0x0 0808 480a |H | Short_Literal 0xa 0809 e5fe | | Load 0x2,-0x2 080a e008 | | Load 0x0,0x8 080b 1816 | | Execute Package,Field_Execute,Field_Number 0x16 080c 01cc | | Execute Vector,Catenate 080d 0092 0a2c | ,| Action Push_String_Extended,0xa2c ; ") for " 080f 01cc | | Execute Vector,Catenate 0810 e5ff | | Load 0x2,-0x1 0811 01cc | | Execute Vector,Catenate 0812 0092 0a32 | 2| Action Push_String_Extended,0xa32 ; "exceeds the current limit (" 0814 01cc | | Execute Vector,Catenate 0815 4820 |H | Short_Literal 0x20 0816 4800 |H | Short_Literal 0x0 0817 480a |H | Short_Literal 0xa 0818 e402 | | Load 0x2,0x2 0819 e008 | | Load 0x0,0x8 081a 1816 | | Execute Package,Field_Execute,Field_Number 0x16 081b 01cc | | Execute Vector,Catenate 081c 0092 09f8 | | Action Push_String_Extended,0x9f8 ; ")." 081e 01cc | | Execute Vector,Catenate 081f e224 | $ | Load 0x1,0x24 0820 180d | | Execute Package,Field_Execute,Field_Number 0xd 0821 e402 | | Load 0x2,0x2 0822 e5fe | | Load 0x2,-0x2 0823 0272 | r | Execute Discrete,Minus 0824 e403 | | Load 0x2,0x3 0825 027c | | | Execute Discrete,Less 0826 6814 |h | Jump_Zero 0x83b 0827 e5fd | | Load 0x2,-0x3 0828 0092 0a33 | 3| Action Push_String_Extended,0xa33 ; "Donation of " 082a 4820 |H | Short_Literal 0x20 082b 4800 |H | Short_Literal 0x0 082c 480a |H | Short_Literal 0xa 082d e5fe | | Load 0x2,-0x2 082e e008 | | Load 0x0,0x8 082f 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0830 01cc | | Execute Vector,Catenate 0831 0092 0a34 | 4| Action Push_String_Extended,0xa34 ; " tokens for " 0833 01cc | | Execute Vector,Catenate 0834 e5ff | | Load 0x2,-0x1 0835 01cc | | Execute Vector,Catenate 0836 0092 0a35 | 5| Action Push_String_Extended,0xa35 ; " would transfer tokens currently in use." 0838 01cc | | Execute Vector,Catenate 0839 e224 | $ | Load 0x1,0x24 083a 180d | | Execute Package,Field_Execute,Field_Number 0xd 083b e402 | | Load 0x2,0x2 083c e5fe | | Load 0x2,-0x2 083d 0272 | r | Execute Discrete,Minus 083e 00d8 | | Load_Top At_Offset_0 083f 00e3 | | Load_Encached Natural_Cache 0840 0260 | ` | Execute Discrete,In_Type 0841 7001 |p | Jump_Nonzero 0x843 0842 0801 | | Execute_Immediate Raise,0x1 0843 e5ff | | Load 0x2,-0x1 0844 e012 | | Load 0x0,0x12 0845 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0846 e5fd | | Load 0x2,-0x3 0847 0092 0a33 | 3| Action Push_String_Extended,0xa33 ; "Donation of " 0849 4820 |H | Short_Literal 0x20 084a 4800 |H | Short_Literal 0x0 084b 480a |H | Short_Literal 0xa 084c e5fe | | Load 0x2,-0x2 084d e008 | | Load 0x0,0x8 084e 1816 | | Execute Package,Field_Execute,Field_Number 0x16 084f 01cc | | Execute Vector,Catenate 0850 0092 0a34 | 4| Action Push_String_Extended,0xa34 ; " tokens for " 0852 01cc | | Execute Vector,Catenate 0853 e5ff | | Load 0x2,-0x1 0854 01cc | | Execute Vector,Catenate 0855 0092 0a36 | 6| Action Push_String_Extended,0xa36 ; " has resulted in " 0857 01cc | | Execute Vector,Catenate 0858 4820 |H | Short_Literal 0x20 0859 4800 |H | Short_Literal 0x0 085a 480a |H | Short_Literal 0xa 085b e5ff | | Load 0x2,-0x1 085c 823a | : | Call 0x1,0x3a 085d e008 | | Load 0x0,0x8 085e 1816 | | Execute Package,Field_Execute,Field_Number 0x16 085f 01cc | | Execute Vector,Catenate 0860 0092 0a37 | 7| Action Push_String_Extended,0xa37 ; " tokens." 0862 01cc | | Execute Vector,Catenate 0863 e224 | $ | Load 0x1,0x24 0864 180f | | Execute Package,Field_Execute,Field_Number 0xf 0865 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0866 0000 0000 | | .XXX[0x2] 0868 ; -------------------------------------------------------------------------------------- 0868 ; SUBPROGRAM 0868 ; -------------------------------------------------------------------------------------- 0868 086b | k | .CONST 0x086b ; Address of begin 0869 086f | o | .CONST 0x086f ; Address of exception handler 086a 0001 | | .CONST 0x0001 ; Number of locals 086b BODY_0868: 086b INIT_0868: 086b e5ff | | Load 0x2,-0x1 086c e012 | | Load 0x0,0x12 086d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 086e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 086f TRAP_0868: 086f 0007 | | Action Break_Optional 0870 4800 |H | Short_Literal 0x0 0871 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0872 0000 0000 | | .BLANK 0000[0x6] 0878 ; -------------------------------------------------------------------------------------- 0878 ; SUBPROGRAM 0878 ; -------------------------------------------------------------------------------------- 0878 087b | { | .CONST 0x087b ; Address of begin 0879 087f | | .CONST 0x087f ; Address of exception handler 087a 0001 | | .CONST 0x0001 ; Number of locals 087b BODY_0878: 087b INIT_0878: 087b e5ff | | Load 0x2,-0x1 087c e012 | | Load 0x0,0x12 087d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 087e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 087f TRAP_0878: 087f 0007 | | Action Break_Optional 0880 4800 |H | Short_Literal 0x0 0881 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0882 0000 0000 | | .BLANK 0000[0x6] 0888 ; -------------------------------------------------------------------------------------- 0888 ; SUBPROGRAM 0888 ; -------------------------------------------------------------------------------------- 0888 088b | | .CONST 0x088b ; Address of begin 0889 088f | | .CONST 0x088f ; Address of exception handler 088a 0001 | | .CONST 0x0001 ; Number of locals 088b BODY_0888: 088b INIT_0888: 088b e5ff | | Load 0x2,-0x1 088c e012 | | Load 0x0,0x12 088d 1817 | | Execute Package,Field_Execute,Field_Number 0x17 088e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 088f TRAP_0888: 088f 0007 | | Action Break_Optional 0890 4800 |H | Short_Literal 0x0 0891 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0892 0000 0000 | | .BLANK 0000[0x6] 0898 ; -------------------------------------------------------------------------------------- 0898 ; SUBPROGRAM 0898 ; -------------------------------------------------------------------------------------- 0898 08a5 | | .CONST 0x08a5 ; Address of begin 0899 0004 | | .CONST 0x0004 ; Address of exception handler 089a 0005 | | .CONST 0x0005 ; Number of locals 089b INIT_0898: 089b 0092 09f0 | | Action Push_String_Extended,0x9f0 ; "Accept_Tokens" 089d e004 | | Load 0x0,0x4 089e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 089f 02c7 | | Declare_Variable Any 08a0 e004 | | Load 0x0,0x4 08a1 180e | | Execute Package,Field_Execute,Field_Number 0xe 08a2 a403 | | Store_Unchecked 0x2,0x3 08a3 00e3 | | Load_Encached Natural_Cache 08a4 00e3 | | Load_Encached Natural_Cache 08a5 BODY_0898: 08a5 e5fa | | Load 0x2,-0x6 08a6 01db | | Execute Vector,Length 08a7 7009 |p | Jump_Nonzero 0x8b1 08a8 e226 | & | Load 0x1,0x26 08a9 180e | | Execute Package,Field_Execute,Field_Number 0xe 08aa 822f | / | Call 0x1,0x2f 08ab 6805 |h | Jump_Zero 0x8b1 08ac e403 | | Load 0x2,0x3 08ad 0092 0a38 | 8| Action Push_String_Extended,0xa38 ; "This machine has donated tokens today; it may not also accept them" 08af e224 | $ | Load 0x1,0x24 08b0 180d | | Execute Package,Field_Execute,Field_Number 0xd 08b1 e403 | | Load 0x2,0x3 08b2 e5ff | | Load 0x2,-0x1 08b3 8234 | 4 | Call 0x1,0x34 08b4 e403 | | Load 0x2,0x3 08b5 e5fc | | Load 0x2,-0x4 08b6 e5fd | | Load 0x2,-0x3 08b7 e5fe | | Load 0x2,-0x2 08b8 8237 | 7 | Call 0x1,0x37 08b9 e5fe | | Load 0x2,-0x2 08ba 823a | : | Call 0x1,0x3a 08bb a405 | | Store_Unchecked 0x2,0x5 08bc 00d8 | | Load_Top At_Offset_0 08bd e5fd | | Load 0x2,-0x3 08be 0273 | s | Execute Discrete,Plus 08bf c404 | | Store 0x2,0x4 08c0 e404 | | Load 0x2,0x4 08c1 e5fc | | Load 0x2,-0x4 08c2 027e | ~ | Execute Discrete,Not_Equal 08c3 682b |h+ | Jump_Zero 0x8ef 08c4 e403 | | Load 0x2,0x3 08c5 483d |H= | Short_Literal 0x3d 08c6 482b |H+ | Short_Literal 0x2b 08c7 0092 0a39 | 9| Action Push_String_Extended,0xa39 ; "The sum of currently authorized tokens and Donations (" 08c9 4820 |H | Short_Literal 0x20 08ca 4800 |H | Short_Literal 0x0 08cb 480a |H | Short_Literal 0xa 08cc e405 | | Load 0x2,0x5 08cd e008 | | Load 0x0,0x8 08ce 1816 | | Execute Package,Field_Execute,Field_Number 0x16 08cf 01cc | | Execute Vector,Catenate 08d0 01cb | | Execute Vector,Append 08d1 4820 |H | Short_Literal 0x20 08d2 4800 |H | Short_Literal 0x0 08d3 480a |H | Short_Literal 0xa 08d4 e5fd | | Load 0x2,-0x3 08d5 e008 | | Load 0x0,0x8 08d6 1816 | | Execute Package,Field_Execute,Field_Number 0x16 08d7 01cc | | Execute Vector,Catenate 08d8 01cb | | Execute Vector,Append 08d9 4820 |H | Short_Literal 0x20 08da 4800 |H | Short_Literal 0x0 08db 480a |H | Short_Literal 0xa 08dc e404 | | Load 0x2,0x4 08dd e008 | | Load 0x0,0x8 08de 1816 | | Execute Package,Field_Execute,Field_Number 0x16 08df 01cc | | Execute Vector,Catenate 08e0 0092 0a3a | :| Action Push_String_Extended,0xa3a ; ") is NOT equal to Resulting_Count parameter (" 08e2 01cc | | Execute Vector,Catenate 08e3 4820 |H | Short_Literal 0x20 08e4 4800 |H | Short_Literal 0x0 08e5 480a |H | Short_Literal 0xa 08e6 e5fc | | Load 0x2,-0x4 08e7 e008 | | Load 0x0,0x8 08e8 1816 | | Execute Package,Field_Execute,Field_Number 0x16 08e9 01cc | | Execute Vector,Catenate 08ea 0092 09fd | | Action Push_String_Extended,0x9fd ; "); these must be equal in order to proceed." 08ec 01cc | | Execute Vector,Catenate 08ed e224 | $ | Load 0x1,0x24 08ee 180d | | Execute Package,Field_Execute,Field_Number 0xd 08ef e5fa | | Load 0x2,-0x6 08f0 e5fb | | Load 0x2,-0x5 08f1 e5fc | | Load 0x2,-0x4 08f2 e5fd | | Load 0x2,-0x3 08f3 e5ff | | Load 0x2,-0x1 08f4 822d | - | Call 0x1,0x2d 08f5 701a |p | Jump_Nonzero 0x910 08f6 e403 | | Load 0x2,0x3 08f7 0092 0a3b | ;| Action Push_String_Extended,0xa3b ; "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 (" 08f9 8210 | | Call 0x1,0x10 08fa 01cc | | Execute Vector,Catenate 08fb 0092 0a3c | <| Action Push_String_Extended,0xa3c ; "), a transcription error of the Machine ID of this machine (" 08fd 01cc | | Execute Vector,Catenate 08fe 4820 |H | Short_Literal 0x20 08ff 4800 |H | Short_Literal 0x0 0900 480a |H | Short_Literal 0xa 0901 8211 | | Call 0x1,0x11 0902 e008 | | Load 0x0,0x8 0903 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0904 01cc | | Execute Vector,Catenate 0905 0092 09ff | | Action Push_String_Extended,0x9ff ; "), a delay in posting the request (code only valid for one day), " 0907 01cc | | Execute Vector,Catenate 0908 0092 0a00 | | Action Push_String_Extended,0xa00 ; "or some other combination of parameter problems. " 090a 01cc | | Execute Vector,Catenate 090b 0092 0a01 | | Action Push_String_Extended,0xa01 ; "Contact your Rational representative for further assistance." 090d 01cc | | Execute Vector,Catenate 090e e224 | $ | Load 0x1,0x24 090f 180d | | Execute Package,Field_Execute,Field_Number 0xd 0910 e5fa | | Load 0x2,-0x6 0911 01db | | Execute Vector,Length 0912 680a |h | Jump_Zero 0x91d 0913 e5fa | | Load 0x2,-0x6 0914 e5fe | | Load 0x2,-0x2 0915 e226 | & | Load 0x1,0x26 0916 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0917 7005 |p | Jump_Nonzero 0x91d 0918 e403 | | Load 0x2,0x3 0919 0092 0a02 | | Action Push_String_Extended,0xa02 ; "The authorization provided has been used previously for this product. It must be unique for this machine for all time." 091b e224 | $ | Load 0x1,0x24 091c 180d | | Execute Package,Field_Execute,Field_Number 0xd 091d e5fe | | Load 0x2,-0x2 091e e013 | | Load 0x0,0x13 091f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0920 7009 |p | Jump_Nonzero 0x92a 0921 00ea | | Load_Encached Null_String_Cache 0922 00ea | | Load_Encached Null_String_Cache 0923 8211 | | Call 0x1,0x11 0924 e5fe | | Load 0x2,-0x2 0925 e013 | | Load 0x0,0x13 0926 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0927 e5fe | | Load 0x2,-0x2 0928 e013 | | Load 0x0,0x13 0929 180d | | Execute Package,Field_Execute,Field_Number 0xd 092a e5fc | | Load 0x2,-0x4 092b e5fe | | Load 0x2,-0x2 092c e012 | | Load 0x0,0x12 092d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 092e e5fe | | Load 0x2,-0x2 092f 823b | ; | Call 0x1,0x3b 0930 7004 |p | Jump_Nonzero 0x935 0931 480c |H | Short_Literal 0xc 0932 e5fe | | Load 0x2,-0x2 0933 e012 | | Load 0x0,0x12 0934 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0935 e403 | | Load 0x2,0x3 0936 e5fe | | Load 0x2,-0x2 0937 0092 0a03 | | Action Push_String_Extended,0xa03 ; " tokens set to " 0939 01cc | | Execute Vector,Catenate 093a 4820 |H | Short_Literal 0x20 093b 4800 |H | Short_Literal 0x0 093c 480a |H | Short_Literal 0xa 093d e5fc | | Load 0x2,-0x4 093e e008 | | Load 0x0,0x8 093f 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0940 01cc | | Execute Vector,Catenate 0941 e224 | $ | Load 0x1,0x24 0942 180f | | Execute Package,Field_Execute,Field_Number 0xf 0943 e5fa | | Load 0x2,-0x6 0944 01db | | Execute Vector,Length 0945 7004 |p | Jump_Nonzero 0x94a 0946 e00d | | Load 0x0,0xd 0947 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0948 e226 | & | Load 0x1,0x26 0949 180f | | Execute Package,Field_Execute,Field_Number 0xf 094a e226 | & | Load 0x1,0x26 094b 1815 | | Execute Package,Field_Execute,Field_Number 0x15 094c 4508 |E | Exit_Suprogram New_Top_Offset 0x8 094d 0000 0000 | | .XXX[0x3] 094f 0000 | | 0950 ; -------------------------------------------------------------------------------------- 0950 ; SUBPROGRAM 0950 ; -------------------------------------------------------------------------------------- 0950 0959 | Y | .CONST 0x0959 ; Address of begin 0951 0004 | | .CONST 0x0004 ; Address of exception handler 0952 0002 | | .CONST 0x0002 ; Number of locals 0953 INIT_0950: 0953 e5ff | | Load 0x2,-0x1 0954 e012 | | Load 0x0,0x12 0955 180e | | Execute Package,Field_Execute,Field_Number 0xe 0956 e012 | | Load 0x0,0x12 0957 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0958 03f1 | | Declare_Variable Discrete,With_Value 0959 BODY_0950: 0959 00d8 | | Load_Top At_Offset_0 095a 6804 |h | Jump_Zero 0x95f 095b 00d8 | | Load_Top At_Offset_0 095c e012 | | Load 0x0,0x12 095d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 095e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 095f 4800 |H | Short_Literal 0x0 0960 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0961 0000 0000 | | .BLANK 0000[0x7] 0968 ; -------------------------------------------------------------------------------------- 0968 ; SUBPROGRAM 0968 ; -------------------------------------------------------------------------------------- 0968 096b | k | .CONST 0x096b ; Address of begin 0969 0004 | | .CONST 0x0004 ; Address of exception handler 096a 0001 | | .CONST 0x0001 ; Number of locals 096b BODY_0968: 096b INIT_0968: 096b 4801 |H | Short_Literal 0x1 096c e220 | | Load 0x1,0x20 096d e5ff | | Load 0x2,-0x1 096e e008 | | Load 0x0,0x8 096f 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0970 700c |p | Jump_Nonzero 0x97d 0971 4801 |H | Short_Literal 0x1 0972 e221 | ! | Load 0x1,0x21 0973 e5ff | | Load 0x2,-0x1 0974 e008 | | Load 0x0,0x8 0975 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0976 7006 |p | Jump_Nonzero 0x97d 0977 4801 |H | Short_Literal 0x1 0978 e222 | " | Load 0x1,0x22 0979 e5ff | | Load 0x2,-0x1 097a e008 | | Load 0x0,0x8 097b 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 097c 680c |h | Jump_Zero 0x989 097d e221 | ! | Load 0x1,0x21 097e 823e | > | Call 0x1,0x3e 097f 6802 |h | Jump_Zero 0x982 0980 e221 | ! | Load 0x1,0x21 0981 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0982 e222 | " | Load 0x1,0x22 0983 823e | > | Call 0x1,0x3e 0984 6802 |h | Jump_Zero 0x987 0985 e222 | " | Load 0x1,0x22 0986 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0987 e220 | | Load 0x1,0x20 0988 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0989 e5ff | | Load 0x2,-0x1 098a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 098b 0000 0000 | | .BLANK 0000[0x5] 0990 ; -------------------------------------------------------------------------------------- 0990 ; SUBPROGRAM 0990 ; -------------------------------------------------------------------------------------- 0990 0995 | | .CONST 0x0995 ; Address of begin 0991 0004 | | .CONST 0x0004 ; Address of exception handler 0992 0002 | | .CONST 0x0002 ; Number of locals 0993 INIT_0990: 0993 0092 0a3d | =| Action Push_String_Extended,0xa3d ; "1/1/90" 0995 BODY_0990: 0995 00d8 | | Load_Top At_Offset_0 0996 e602 | | Load 0x3,0x2 0997 8211 | | Call 0x1,0x11 0998 e5ff | | Load 0x2,-0x1 0999 e013 | | Load 0x0,0x13 099a 1815 | | Execute Package,Field_Execute,Field_Number 0x15 099b e5ff | | Load 0x2,-0x1 099c e013 | | Load 0x0,0x13 099d 180d | | Execute Package,Field_Execute,Field_Number 0xd 099e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 099f 0000 | | .XXX[0x1] 09a0 ; -------------------------------------------------------------------------------------- 09a0 ; SUBPROGRAM 09a0 ; -------------------------------------------------------------------------------------- 09a0 09ab | | .CONST 0x09ab ; Address of begin 09a1 0004 | | .CONST 0x0004 ; Address of exception handler 09a2 0002 | | .CONST 0x0002 ; Number of locals 09a3 INIT_09a0: 09a3 e002 | | Load 0x0,0x2 09a4 1b14 | | Execute Package,Field_Read,Field_Number 0x14 09a5 0322 | " | Declare_Variable Record 09a6 e7ff | | Load 0x3,-0x1 09a7 e002 | | Load 0x0,0x2 09a8 1816 | | Execute Package,Field_Execute,Field_Number 0x16 09a9 e602 | | Load 0x3,0x2 09aa 017d | } | Execute Record,Structure_Write 09ab BODY_09a0: 09ab 4800 |H | Short_Literal 0x0 09ac e602 | | Load 0x3,0x2 09ad 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 09ae 4800 |H | Short_Literal 0x0 09af e602 | | Load 0x3,0x2 09b0 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 09b1 4801 |H | Short_Literal 0x1 09b2 e602 | | Load 0x3,0x2 09b3 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 09b4 4800 |H | Short_Literal 0x0 09b5 e602 | | Load 0x3,0x2 09b6 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 09b7 00d8 | | Load_Top At_Offset_0 09b8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 09b9 0000 0000 | | .BLANK 0000[0x7] 09c0 ; -------------------------------------------------------------------------------------- 09c0 ; SUBPROGRAM 09c0 ; -------------------------------------------------------------------------------------- 09c0 09c6 | | .CONST 0x09c6 ; Address of begin 09c1 09cc | | .CONST 0x09cc ; Address of exception handler 09c2 0002 | | .CONST 0x0002 ; Number of locals 09c3 INIT_09c0: 09c3 e002 | | Load 0x0,0x2 09c4 1b14 | | Execute Package,Field_Read,Field_Number 0x14 09c5 0322 | " | Declare_Variable Record 09c6 BODY_09c0: 09c6 e5ff | | Load 0x2,-0x1 09c7 e002 | | Load 0x0,0x2 09c8 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 09c9 e602 | | Load 0x3,0x2 09ca 017d | } | Execute Record,Structure_Write 09cb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 09cc TRAP_09c0: 09cc 0007 | | Action Break_Optional 09cd e5fe | | Load 0x2,-0x2 09ce 0092 0a3e | >| Action Push_String_Extended,0xa3e ; "Date (" 09d0 e5ff | | Load 0x2,-0x1 09d1 01cc | | Execute Vector,Catenate 09d2 0092 0a3f | ?| Action Push_String_Extended,0xa3f ; ") doesn't represent a legal date." 09d4 01cc | | Execute Vector,Catenate 09d5 e224 | $ | Load 0x1,0x24 09d6 180d | | Execute Package,Field_Execute,Field_Number 0xd 09d7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 09d8 ; -------------------------------------------------------------------------------------- 09d8 ; SUBPROGRAM 09d8 ; -------------------------------------------------------------------------------------- 09d8 09db | | .CONST 0x09db ; Address of begin 09d9 0004 | | .CONST 0x0004 ; Address of exception handler 09da 0001 | | .CONST 0x0001 ; Number of locals 09db BODY_09d8: 09db INIT_09d8: 09db e7ff | | Load 0x3,-0x1 09dc 823e | > | Call 0x1,0x3e 09dd 680e |h | Jump_Zero 0x9ec 09de e5fc | | Load 0x2,-0x4 09df 482e |H. | Short_Literal 0x2e 09e0 0092 0a40 | @| Action Push_String_Extended,0xa40 ; "Active tokens for " 09e2 e7ff | | Load 0x3,-0x1 09e3 01cc | | Execute Vector,Catenate 09e4 0092 0a41 | A| Action Push_String_Extended,0xa41 ; " make it impossible to accept tokens for " 09e6 01cc | | Execute Vector,Catenate 09e7 e5ff | | Load 0x2,-0x1 09e8 01cc | | Execute Vector,Catenate 09e9 01cb | | Execute Vector,Append 09ea e224 | $ | Load 0x1,0x24 09eb 180d | | Execute Package,Field_Execute,Field_Number 0xd 09ec 4502 |E | Exit_Suprogram New_Top_Offset 0x2 09ed ; -------------------------------------------------------------------------------------- 09ed ; STRING TABLE 09ed ; -------------------------------------------------------------------------------------- 09ed 00ac | | .STRTAB 0x00ac->0x0a43 ; "Login" 09ee 00af | | .STRTAB 0x00af->0x0a45 ; "Full Session" 09ef 00b9 | | .STRTAB 0x00b9->0x0a4b ; "Fundamental Session" 09f0 00ca | | .STRTAB 0x00ca->0x0a55 ; "Accept_Tokens" 09f1 00d5 | | .STRTAB 0x00d5->0x0a5b ; "Donate_Tokens" 09f2 00e0 | | .STRTAB 0x00e0->0x0a62 ; "Remote_Machine_ID specified is the Machine_ID for this machine." 09f3 011d | | .STRTAB 0x011d->0x0a81 ; "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." 09f4 0202 | | .STRTAB 0x0202->0x0af5 ; "This machine has accepted tokens today; it may not also give them up" 09f5 0244 | D | .STRTAB 0x0244->0x0b17 ; "Set_Site" 09f6 024a | J | .STRTAB 0x024a->0x0b1b ; "Code (" 09f7 024e | N | .STRTAB 0x024e->0x0b1e ; ") does not correspond to Site (" 09f8 026b | k | .STRTAB 0x026b->0x0b2d ; ")." 09f9 026b | k | .STRTAB 0x026b->0x0b2e ; "Site set to " 09fa 0275 | u | .STRTAB 0x0275->0x0b34 ; "Convert_Tokens" 09fb 0281 | | .STRTAB 0x0281->0x0b3b ; "The token count for the current product (" 09fc 02a8 | | .STRTAB 0x02a8->0x0b50 ; ") is NOT equal to Token_Count parameter (" 09fd 02cf | | .STRTAB 0x02cf->0x0b64 ; "); these must be equal in order to proceed." 09fe 02f8 | | .STRTAB 0x02f8->0x0b7a ; "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 (" 09ff 03ac | | .STRTAB 0x03ac->0x0bd5 ; "), a delay in posting the request (code only valid for one day), " 0a00 03eb | | .STRTAB 0x03eb->0x0bf5 ; "or some other combination of parameter problems. " 0a01 041b | | .STRTAB 0x041b->0x0c0e ; "Contact your Rational representative for further assistance." 0a02 0455 | U | .STRTAB 0x0455->0x0c2c ; "The authorization provided has been used previously for this product. It must be unique for this machine for all time." 0a03 04ca | | .STRTAB 0x04ca->0x0c68 ; " tokens set to " 0a04 04d7 | | .STRTAB 0x04d7->0x0c6f ; " has no more tokens." 0a05 04e9 | | .STRTAB 0x04e9->0x0c79 ; "Allow_Token_Conversion" 0a06 04fd | | .STRTAB 0x04fd->0x0c84 ; "Must be run from a Rational site." 0a07 051c | | .STRTAB 0x051c->0x0c95 ; "Assign_Tokens" 0a08 0527 | ' | .STRTAB 0x0527->0x0c9b ; "Assign_Site" 0a09 0530 | 0 | .STRTAB 0x0530->0x0ca1 ; "Run the following on the remote machine:" 0a0a 0556 | V | .STRTAB 0x0556->0x0cb5 ; "Site" 0a0b 0558 | X | .STRTAB 0x0558->0x0cb7 ; "Code" 0a0c 055a | Z | .STRTAB 0x055a->0x0cb9 ; "Training" 0a0d 0560 | ` | .STRTAB 0x0560->0x0cbd ; "Training_Authorization" 0a0e 0574 | t | .STRTAB 0x0574->0x0cc8 ; "Product and Token authorization checking has been reinstated." 0a0f 05af | | .STRTAB 0x05af->0x0ce6 ; "Authorization_Checking_Reinstated" 0a10 05ce | | .STRTAB 0x05ce->0x0cf7 ; "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." 0a11 0699 | | .STRTAB 0x0699->0x0d5d ; "Authorization_Checking_Suspended" 0a12 06b7 | | .STRTAB 0x06b7->0x0d6d ; "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." 0a13 075e | ^ | .STRTAB 0x075e->0x0dc2 ; "Authorization_Code_Error" 0a14 0774 | t | .STRTAB 0x0774->0x0dce ; "/" 0a15 0773 | s | .STRTAB 0x0773->0x0dce ; "=" 0a16 0772 | r | .STRTAB 0x0772->0x0dcf ; "|" 0a17 0771 | q | .STRTAB 0x0771->0x0dcf ; "Product" 0a18 0776 | v | .STRTAB 0x0776->0x0dd3 ; "Donation" 0a19 077c | | | .STRTAB 0x077c->0x0dd7 ; "Resulting_Count" 0a1a 0789 | | .STRTAB 0x0789->0x0dde ; "Authorization" 0a1b 0794 | | .STRTAB 0x0794->0x0de5 ; "Current_Product" 0a1c 07a1 | | .STRTAB 0x07a1->0x0dec ; "New_Product" 0a1d 07aa | | .STRTAB 0x07aa->0x0df2 ; "Token_Count" 0a1e 07b3 | | .STRTAB 0x07b3->0x0df7 ; "The legal range of " 0a1f 07c4 | | .STRTAB 0x07c4->0x0e01 ; " for " 0a20 07c7 | | .STRTAB 0x07c7->0x0e03 ; " is " 0a21 07c9 | | .STRTAB 0x07c9->0x0e05 ; ".." 0a22 07c9 | | .STRTAB 0x07c9->0x0e06 ; ", but the value specified (" 0a23 07e2 | | .STRTAB 0x07e2->0x0e14 ; ") is outside that range" 0a24 07f7 | | .STRTAB 0x07f7->0x0e1f ; "Product name not specified." 0a25 0810 | | .STRTAB 0x0810->0x0e2d ; "Product name contains an illegal character (" 0a26 083a | : | .STRTAB 0x083a->0x0e43 ; "Product name includes leading or trailing blanks." 0a27 0869 | i | .STRTAB 0x0869->0x0e5b ; "Site name not specified." 0a28 087f | | .STRTAB 0x087f->0x0e67 ; "Site name contains an illegal character (" 0a29 08a6 | | .STRTAB 0x08a6->0x0e7c ; "Site name includes leading or trailing blanks." 0a2a 08d2 | | .STRTAB 0x08d2->0x0e93 ; "Date contains an illegal character (" 0a2b 08f4 | | .STRTAB 0x08f4->0x0ea5 ; "The number of tokens (" 0a2c 0908 | | .STRTAB 0x0908->0x0eb0 ; ") for " 0a2d 090c | | .STRTAB 0x090c->0x0eb3 ; " exceeds the target authorization (" 0a2e 092d | - | .STRTAB 0x092d->0x0ec4 ; "Cannot specify both authorization and date for " 0a2f 095a | Z | .STRTAB 0x095a->0x0edc ; "There are currently no tokens for " 0a30 097a | z | .STRTAB 0x097a->0x0eed ; ", so they can't be donated." 0a31 0993 | | .STRTAB 0x0993->0x0efa ; "The requested donation (" 0a32 09a9 | | .STRTAB 0x09a9->0x0f06 ; "exceeds the current limit (" 0a33 09c2 | | .STRTAB 0x09c2->0x0f14 ; "Donation of " 0a34 09cc | | .STRTAB 0x09cc->0x0f1a ; " tokens for " 0a35 09d6 | | .STRTAB 0x09d6->0x0f20 ; " would transfer tokens currently in use." 0a36 09fc | | .STRTAB 0x09fc->0x0f34 ; " has resulted in " 0a37 0a0b | | .STRTAB 0x0a0b->0x0f3c ; " tokens." 0a38 0a11 | | .STRTAB 0x0a11->0x0f40 ; "This machine has donated tokens today; it may not also accept them" 0a39 0a51 | Q | .STRTAB 0x0a51->0x0f61 ; "The sum of currently authorized tokens and Donations (" 0a3a 0a85 | | .STRTAB 0x0a85->0x0f7c ; ") is NOT equal to Resulting_Count parameter (" 0a3b 0ab0 | | .STRTAB 0x0ab0->0x0f93 ; "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 (" 0a3c 0b98 | | .STRTAB 0x0b98->0x1008 ; "), a transcription error of the Machine ID of this machine (" 0a3d 0bd2 | | .STRTAB 0x0bd2->0x1026 ; "1/1/90" 0a3e 0bd6 | | .STRTAB 0x0bd6->0x1029 ; "Date (" 0a3f 0bda | | .STRTAB 0x0bda->0x102c ; ") doesn't represent a legal date." 0a40 0bf9 | | .STRTAB 0x0bf9->0x103c ; "Active tokens for " 0a41 0c09 | | .STRTAB 0x0c09->0x1045 ; " make it impossible to accept tokens for " 0a42 0c30 | 0 | .STREND 0x0c30->0x105a 0a43 4c6f 6769 |Logi| .STRTAB_STRINGS 105a 0000 0000 | | .BLANK 0000[0x6] 1060 ; -------------------------------------------------------------------------------------- 1060 ; Debug Table 1060 ; -------------------------------------------------------------------------------------- 1060 0004 0010 | | .DEBUG4 0x0004,0x0010,0xd50d,0x0000,0x0001,0x0000 1066 e5fe 01db | | .XXX[0x11] 1068 680d e5fe |h | 106a e009 1b0d | | 106c 1817 a407 | | 106e e407 e2da | | 1070 1842 e407 | B | 1072 e009 1b0d | | 1074 1812 c407 | | 1076 4504 |E | 1077 0000 0000 | | .BLANK 0000[0x4] 107b 4000 0000 |@ | .XXX[0x41] 107d 0000 0000 | | 107f 5460 0000 |T` | 1081 0000 0008 | | 1083 ca00 0000 | | 1085 0000 0006 | | 1087 9780 0000 | | 1089 0000 0002 | | 108b 3280 ffff |2 | 108d ffff ffff | | 108f 7360 0000 |s` | 1091 0000 7fff | | 1093 ffff 0000 | | 1095 0000 0000 | | 1097 1770 0000 | p | 1099 0000 0000 | | 109b d2f0 0000 | | 109d 0000 0000 | | 109f 0bb8 0000 | | 10a1 0000 0000 | | 10a3 2ee0 0000 |. | 10a5 0000 0003 | | 10a7 4bc0 0000 |K | 10a9 0000 0000 | | 10ab 4650 0000 |FP | 10ad 0000 0000 | | 10af 5dc0 0000 |] | 10b1 0000 0000 | | 10b3 8ca0 0000 | | 10b5 0000 0001 | | 10b7 1940 0000 | @ | 10b9 0000 0007 | | 10bb 2420 |$ | 10bc 0000 0000 | | .BLANK 0000[0x4] 10c0 04db 0533 | 3| .XXX[0x140] 10c2 0004 e267 | g| 10c4 0322 e26e | " n| 10c6 02ff 00d8 | | 10c8 1c00 e5ff | | 10ca e073 1b35 | s 5| 10cc 1839 e066 | 9 f| 10ce 1b12 e067 | g| 10d0 183e 00d8 | > | 10d2 e067 183d | g =| 10d4 7003 e068 |p h| 10d6 1b27 0257 | ' W| 10d8 1811 01cc | | 10da 0007 e270 | p| 10dc 00ea e604 | | 10de 4800 e26f |H o| 10e0 1813 c270 | p| 10e2 e603 e270 | p| 10e4 e26f 181c | o | 10e6 00d1 4801 | H | 10e8 e603 2c02 | , | 10ea e603 2704 | ' | 10ec 01cf e26b | k| 10ee 01de 6801 | h | 10f0 08e2 e603 | | 10f2 2e03 e292 |. | 10f4 821f 6803 | h | 10f6 e603 2e03 | . | 10f8 c292 4800 | H | 10fa e602 3806 | 8 | 10fc 4800 e602 |H | 10fe 3807 4801 |8 H | 1100 e602 3808 | 8 | 1102 00cf e603 | | 1104 e270 e26f | p o| 1106 181c 00d1 | | 1108 e603 2605 | & | 110a e602 3800 | 8 | 110c e603 2e06 | . | 110e e602 3801 | 8 | 1110 e603 2e07 | . | 1112 e602 3802 | 8 | 1114 e603 2608 | & | 1116 e602 3803 | 8 | 1118 e603 2e09 | . | 111a e602 3804 | 8 | 111c e603 2e0a | . | 111e e602 3805 | 8 | 1120 e009 1b0d | | 1122 182b e602 | + | 1124 3809 e269 |8 i| 1126 4800 e602 |H | 1128 4801 e603 |H | 112a 2c02 e603 |, | 112c 270b 01cf |' | 112e e268 1815 | h | 1130 c269 00c9 | i | 1132 7fd0 00d8 | | 1134 0107 4920 | I | 1136 492f 0262 |I/ b| 1138 6801 4501 |h E | 113a 00d8 0107 | | 113c 4950 495f |IPI_| 113e 0262 6805 | bh | 1140 e270 e26f | p o| 1142 1814 c270 | p| 1144 4501 e270 |E p| 1146 e26f 181b | o | 1148 6810 e270 |h p| 114a e26f 1814 | o | 114c c270 e268 | p h| 114e 1b12 e268 | h| 1150 1817 c269 | i| 1152 e604 0092 | | 1154 0581 01cc | | 1156 e069 180f | i | 1158 4501 0092 |E | 115a 0582 e604 | | 115c 01cc 0092 | | 115e 057d 01cc | } | 1160 4800 4801 |H H | 1162 e070 1815 | p | 1164 01cc 0092 | | 1166 0583 01cc | | 1168 e069 180e | i | 116a 4501 0034 |E 4| 116c 003a 005d | : ]| 116e 0065 006b | e k| 1170 006e 0070 | n p| 1172 007f 008d | | 1174 0090 0097 | | 1176 009e 009e | | 1178 009e 00fe | | 117a 011a 0134 | 4| 117c 019f 01c8 | | 117e 01c8 023f | ?| 1180 0262 0285 | b | 1182 02b3 02cc | | 1184 02e0 7374 | st| 1186 616e 6461 |anda| 1188 7264 2253 |rd"S| 118a 7461 6e64 |tand| 118c 6172 6422 |ard"| 118e 2066 6f6e | fon| 1190 7420 6661 |t fa| 1192 6d69 6c79 |mily| 1194 2069 7320 | is | 1196 6e6f 7420 |not | 1198 6465 6669 |defi| 119a 6e65 6441 |nedA| 119c 7070 656e |ppen| 119e 6469 787e |dix~| 11a0 2046 6967 | Fig| 11a2 7572 657e |ure~| 11a4 207e 202d | ~ -| 11a6 7e20 626f |~ bo| 11a8 6c64 5461 |ldTa| 11aa 626c 6520 |ble | 11ac 4f66 2043 |Of C| 11ae 6f6e 7465 |onte| 11b0 6e74 7354 |ntsT| 11b2 6162 6c65 |able| 11b4 204f 6620 | Of | 11b6 4669 6775 |Figu| 11b8 7265 7349 |resI| 11ba 6e64 6578 |ndex| 11bc 7e31 7e2b |~1~+| 11be 2e7e 7c7e |.~|~| 11c0 317e 417e |1~A~| 11c2 2b2e 7e7c |+.~|| 11c4 7e31 7e31 |~1~1| 11c6 7e69 7e31 |~i~1| 11c8 2e7e 7c7e |.~|~| 11ca 312e 7e7c |1.~|| 11cc 7e31 2e7e |~1.~| 11ce 7c7e 312e ||~1.| 11d0 7e7c 7e31 |~|~1| 11d2 2e7e 7c7e |.~|~| 11d4 312e 7e7c |1.~|| 11d6 7e31 2e7e |~1.~| 11d8 7c7e 312e ||~1.| 11da 7e7c 7e31 |~|~1| 11dc 2e7e 7c7e |.~|~| 11de 312e 7e7c |1.~|| 11e0 7e31 2e7e |~1.~| 11e2 7c7e 312e ||~1.| 11e4 7e7c 7e31 |~|~1| 11e6 2e7e 7c7e |.~|~| 11e8 312e 7e7c |1.~|| 11ea 7e31 2e7e |~1.~| 11ec 7c7e 312e ||~1.| 11ee 7e7c 7e31 |~|~1| 11f0 2e7e 7c7e |.~|~| 11f2 312e 7e7c |1.~|| 11f4 7e31 2e7e |~1.~| 11f6 7c7e 312e ||~1.| 11f8 7e41 7e2b |~A~+| 11fa 2e7e 7c7e |.~|~| 11fc 312e 7e7c |1.~|| 11fe 7e31 2e7e |~1.~|