|
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: 8192 (0x2000) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_06e8fd
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0ec0 | | .CONST 0x0ec0 ; 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 8008 | | .CONST 0x8008 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 011f | | .CONST 0x011f ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 004b | K | .CONST 0x004b ; Number of locals 000b INIT_0008: 000b 00c4 | | Action Make_Default 000c 00c4 | | Action Make_Default 000d 00c4 | | Action Make_Default 000e 00c4 | | Action Make_Default 000f 00c4 | | Action Make_Default 0010 00c4 | | Action Make_Default 0011 00c4 | | Action Make_Default 0012 00c4 | | Action Make_Default 0013 00c4 | | Action Make_Default 0014 00c4 | | Action Make_Default 0015 00c4 | | Action Make_Default 0016 00c4 | | Action Make_Default 0017 00c4 | | Action Make_Default 0018 00c4 | | Action Make_Default 0019 00c4 | | Action Make_Default 001a 00c4 | | Action Make_Default 001b 00c4 | | Action Make_Default 001c 00c4 | | Action Make_Default 001d 00c4 | | Action Make_Default 001e 00c4 | | Action Make_Default 001f 00c4 | | Action Make_Default 0020 00c4 | | Action Make_Default 0021 00c4 | | Action Make_Default 0022 00c4 | | Action Make_Default 0023 00c4 | | Action Make_Default 0024 00c4 | | Action Make_Default 0025 00c4 | | Action Make_Default 0026 00c4 | | Action Make_Default 0027 00c4 | | Action Make_Default 0028 00c4 | | Action Make_Default 0029 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated 002b c218 | | Store 0x1,0x18 002c 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated 002e c219 | | Store 0x1,0x19 002f 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated 0031 c21a | | Store 0x1,0x1a 0032 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated 0034 c21b | | Store 0x1,0x1b 0035 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated 0037 c21c | | Store 0x1,0x1c 0038 e001 | | Load 0x0,0x1 0039 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address 003a c21d | | Store 0x1,0x1d 003b 029a 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call,Visible,Unelaborated 003d c229 | ) | Store 0x1,0x29 003e 029a 038b | | Declare_Subprogram INIT_0388,For_Outer_Call,Visible,Unelaborated 0040 c22a | * | Store 0x1,0x2a 0041 029a 03f3 | | Declare_Subprogram INIT_03f0,For_Outer_Call,Visible,Unelaborated 0043 c21e | | Store 0x1,0x1e 0044 029a 046b | k| Declare_Subprogram INIT_0468,For_Outer_Call,Visible,Unelaborated 0046 c223 | # | Store 0x1,0x23 0047 029a 04c3 | | Declare_Subprogram INIT_04c0,For_Outer_Call,Visible,Unelaborated 0049 c21f | | Store 0x1,0x1f 004a 029a 051b | | Declare_Subprogram INIT_0518,For_Outer_Call,Visible,Unelaborated 004c c224 | $ | Store 0x1,0x24 004d 029a 0543 | C| Declare_Subprogram INIT_0540,For_Outer_Call,Visible,Unelaborated 004f c228 | ( | Store 0x1,0x28 0050 029a 05bb | | Declare_Subprogram INIT_05b8,For_Outer_Call,Visible,Unelaborated 0052 c212 | | Store 0x1,0x12 0053 029a 05c3 | | Declare_Subprogram INIT_05c0,For_Outer_Call,Visible,Unelaborated 0055 c220 | | Store 0x1,0x20 0056 029a 05cb | | Declare_Subprogram INIT_05c8,For_Outer_Call,Visible,Unelaborated 0058 c214 | | Store 0x1,0x14 0059 029a 05d3 | | Declare_Subprogram INIT_05d0,For_Outer_Call,Visible,Unelaborated 005b c221 | ! | Store 0x1,0x21 005c 029a 05db | | Declare_Subprogram INIT_05d8,For_Outer_Call,Visible,Unelaborated 005e c222 | " | Store 0x1,0x22 005f 00bf | | Action Accept_Activation 0060 4800 |H | Short_Literal 0x0 0061 4840 |H@ | Short_Literal 0x40 0062 00e2 | | Load_Encached Integer_Cache 0063 03f8 | | Declare_Type Discrete,Constrained 0064 e002 | | Load 0x0,0x2 0065 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0066 0092 091d | | Action Push_String_Extended,0x91d ; "Login" 0068 0092 091e | | Action Push_String_Extended,0x91e ; "Full Session" 006a 0092 091f | | Action Push_String_Extended,0x91f ; "Fundamental Session" 006c 4800 |H | Short_Literal 0x0 006d e003 | | Load 0x0,0x3 006e 02a0 | | Declare_Subprogram Null_Subprogram 006f 038e | | Declare_Type Package,Defined 0070 0387 | | Declare_Variable Package 0071 4800 |H | Short_Literal 0x0 0072 e004 | | Load 0x0,0x4 0073 02a0 | | Declare_Subprogram Null_Subprogram 0074 038e | | Declare_Type Package,Defined 0075 0387 | | Declare_Variable Package 0076 4800 |H | Short_Literal 0x0 0077 e005 | | Load 0x0,0x5 0078 02a0 | | Declare_Subprogram Null_Subprogram 0079 038e | | Declare_Type Package,Defined 007a 0387 | | Declare_Variable Package 007b e006 | | Load 0x0,0x6 007c 1916 | | Execute Package,Field_Reference,Field_Number 0x16 007d 0007 | | Action Break_Optional 007e e006 | | Load 0x0,0x6 007f 1917 | | Execute Package,Field_Reference,Field_Number 0x17 0080 0007 | | Action Break_Optional 0081 e007 | | Load 0x0,0x7 0082 191b | | Execute Package,Field_Reference,Field_Number 0x1b 0083 0007 | | Action Break_Optional 0084 00ea | | Load_Encached Null_String_Cache 0085 4800 |H | Short_Literal 0x0 0086 4800 |H | Short_Literal 0x0 0087 4800 |H | Short_Literal 0x0 0088 e007 | | Load 0x0,0x7 0089 1815 | | Execute Package,Field_Execute,Field_Number 0x15 008a 8235 | 5 | Call 0x1,0x35 008b e008 | | Load 0x0,0x8 008c 1915 | | Execute Package,Field_Reference,Field_Number 0x15 008d 0007 | | Action Break_Optional 008e 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38 008f 029b 05e3 | | Declare_Subprogram INIT_05e0,For_Outer_Call,Unelaborated 0091 029b 0603 | | Declare_Subprogram INIT_0600,For_Outer_Call,Unelaborated 0093 029b 061b | | Declare_Subprogram INIT_0618,For_Outer_Call,Unelaborated 0095 029b 062b | +| Declare_Subprogram INIT_0628,For_Outer_Call,Unelaborated 0097 029b 063b | ;| Declare_Subprogram INIT_0638,For_Outer_Call,Unelaborated 0099 029b 0643 | C| Declare_Subprogram INIT_0640,For_Outer_Call,Unelaborated 009b 029b 0653 | S| Declare_Subprogram INIT_0650,For_Outer_Call,Unelaborated 009d 029b 068b | | Declare_Subprogram INIT_0688,For_Outer_Call,Unelaborated 009f 029b 06c3 | | Declare_Subprogram INIT_06c0,For_Outer_Call,Unelaborated 00a1 029b 06fb | | Declare_Subprogram INIT_06f8,For_Outer_Call,Unelaborated 00a3 029b 0733 | 3| Declare_Subprogram INIT_0730,For_Outer_Call,Unelaborated 00a5 029b 076b | k| Declare_Subprogram INIT_0768,For_Outer_Call,Unelaborated 00a7 029b 079b | | Declare_Subprogram INIT_0798,For_Outer_Call,Unelaborated 00a9 029b 07fb | | Declare_Subprogram INIT_07f8,For_Outer_Call,Unelaborated 00ab 029b 087b | {| Declare_Subprogram INIT_0878,For_Outer_Call,Unelaborated 00ad 029b 088b | | Declare_Subprogram INIT_0888,For_Outer_Call,Unelaborated 00af 029b 089b | | Declare_Subprogram INIT_0898,For_Outer_Call,Unelaborated 00b1 1d18 | | Execute_Immediate Reference_Lex_1,0x18 00b2 00c7 | | Action Elaborate_Subprogram 00b3 1d19 | | Execute_Immediate Reference_Lex_1,0x19 00b4 00c7 | | Action Elaborate_Subprogram 00b5 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 00b6 00c7 | | Action Elaborate_Subprogram 00b7 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 00b8 00c7 | | Action Elaborate_Subprogram 00b9 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 00ba 00c7 | | Action Elaborate_Subprogram 00bb 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 00bc 00c7 | | Action Elaborate_Subprogram 00bd 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 00be 00c7 | | Action Elaborate_Subprogram 00bf 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 00c0 00c7 | | Action Elaborate_Subprogram 00c1 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 00c2 00c7 | | Action Elaborate_Subprogram 00c3 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 00c4 00c7 | | Action Elaborate_Subprogram 00c5 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 00c6 00c7 | | Action Elaborate_Subprogram 00c7 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 00c8 00c7 | | Action Elaborate_Subprogram 00c9 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 00ca 00c7 | | Action Elaborate_Subprogram 00cb 1d14 | | Execute_Immediate Reference_Lex_1,0x14 00cc 00c7 | | Action Elaborate_Subprogram 00cd 1d12 | | Execute_Immediate Reference_Lex_1,0x12 00ce 00c7 | | Action Elaborate_Subprogram 00cf 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 00d0 00c7 | | Action Elaborate_Subprogram 00d1 1d20 | | Execute_Immediate Reference_Lex_1,0x20 00d2 00c7 | | Action Elaborate_Subprogram 00d3 e009 | | Load 0x0,0x9 00d4 e002 | | Load 0x0,0x2 00d5 e00a | | Load 0x0,0xa 00d6 e00b | | Load 0x0,0xb 00d7 e00c | | Load 0x0,0xc 00d8 e00d | | Load 0x0,0xd 00d9 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33 00da 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34 00db e00e | | Load 0x0,0xe 00dc e00f | | Load 0x0,0xf 00dd 480a |H | Short_Literal 0xa 00de e230 | 0 | Load 0x1,0x30 00df 020e | | Execute Module,Augment_Imports 00e0 e230 | 0 | Load 0x1,0x30 00e1 020f | | Execute Module,Activate 00e2 e010 | | Load 0x0,0x10 00e3 e011 | | Load 0x0,0x11 00e4 e012 | | Load 0x0,0x12 00e5 e013 | | Load 0x0,0x13 00e6 e014 | | Load 0x0,0x14 00e7 e015 | | Load 0x0,0x15 00e8 e007 | | Load 0x0,0x7 00e9 e006 | | Load 0x0,0x6 00ea e016 | | Load 0x0,0x16 00eb e017 | | Load 0x0,0x17 00ec 00b6 | | Action Make_Scope 00ed 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39 00ee 480c |H | Short_Literal 0xc 00ef e232 | 2 | Load 0x1,0x32 00f0 020e | | Execute Module,Augment_Imports 00f1 e232 | 2 | Load 0x1,0x32 00f2 020f | | Execute Module,Activate 00f3 e018 | | Load 0x0,0x18 00f4 4801 |H | Short_Literal 0x1 00f5 e231 | 1 | Load 0x1,0x31 00f6 020e | | Execute Module,Augment_Imports 00f7 e231 | 1 | Load 0x1,0x31 00f8 020f | | Execute Module,Activate 00f9 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f 00fa 00c7 | | Action Elaborate_Subprogram 00fb 1d3e | > | Execute_Immediate Reference_Lex_1,0x3e 00fc 00c7 | | Action Elaborate_Subprogram 00fd 1d40 | @ | Execute_Immediate Reference_Lex_1,0x40 00fe 00c7 | | Action Elaborate_Subprogram 00ff 1d41 | A | Execute_Immediate Reference_Lex_1,0x41 0100 00c7 | | Action Elaborate_Subprogram 0101 1d42 | B | Execute_Immediate Reference_Lex_1,0x42 0102 00c7 | | Action Elaborate_Subprogram 0103 029d 08ab | | Declare_Subprogram INIT_08a8,For_Outer_Call 0105 1d46 | F | Execute_Immediate Reference_Lex_1,0x46 0106 00c7 | | Action Elaborate_Subprogram 0107 1d43 | C | Execute_Immediate Reference_Lex_1,0x43 0108 00c7 | | Action Elaborate_Subprogram 0109 1d45 | E | Execute_Immediate Reference_Lex_1,0x45 010a 00c7 | | Action Elaborate_Subprogram 010b 1d44 | D | Execute_Immediate Reference_Lex_1,0x44 010c 00c7 | | Action Elaborate_Subprogram 010d 1d47 | G | Execute_Immediate Reference_Lex_1,0x47 010e 00c7 | | Action Elaborate_Subprogram 010f 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a 0110 00c7 | | Action Elaborate_Subprogram 0111 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b 0112 00c7 | | Action Elaborate_Subprogram 0113 1d48 | H | Execute_Immediate Reference_Lex_1,0x48 0114 00c7 | | Action Elaborate_Subprogram 0115 1d4a | J | Execute_Immediate Reference_Lex_1,0x4a 0116 00c7 | | Action Elaborate_Subprogram 0117 1d49 | I | Execute_Immediate Reference_Lex_1,0x49 0118 00c7 | | Action Elaborate_Subprogram 0119 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c 011a 00c7 | | Action Elaborate_Subprogram 011b 1d3d | = | Execute_Immediate Reference_Lex_1,0x3d 011c 00c7 | | Action Elaborate_Subprogram 011d 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 011e 00c7 | | Action Elaborate_Subprogram 011f BODY_0008: 011f 00bc | | Action Signal_Activated 0120 00bb | | Action Signal_Completion 0121 0000 0000 | | .BLANK 0000[0x7] 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 0134 | 4 | .CONST 0x0134 ; Address of begin 0129 01d8 | | .CONST 0x01d8 ; Address of exception handler 012a 0005 | | .CONST 0x0005 ; Number of locals 012b INIT_0128: 012b 0092 0920 | | Action Push_String_Extended,0x920 ; "Accept_Tokens" 012d e22c | , | Load 0x1,0x2c 012e 02c7 | | Declare_Variable Any 012f e002 | | Load 0x0,0x2 0130 180e | | Execute Package,Field_Execute,Field_Number 0xe 0131 a403 | | Store_Unchecked 0x2,0x3 0132 00e3 | | Load_Encached Natural_Cache 0133 00e3 | | Load_Encached Natural_Cache 0134 BODY_0128: 0134 e403 | | Load 0x2,0x3 0135 e5fb | | Load 0x2,-0x5 0136 e5fc | | Load 0x2,-0x4 0137 e5fd | | Load 0x2,-0x3 0138 e230 | 0 | Load 0x1,0x30 0139 181b | | Execute Package,Field_Execute,Field_Number 0x1b 013a e5fe | | Load 0x2,-0x2 013b e230 | 0 | Load 0x1,0x30 013c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 013d e5ff | | Load 0x2,-0x1 013e e402 | | Load 0x2,0x2 013f e230 | 0 | Load 0x1,0x30 0140 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0141 c403 | | Store 0x2,0x3 0142 e403 | | Load 0x2,0x3 0143 e230 | 0 | Load 0x1,0x30 0144 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0145 e232 | 2 | Load 0x1,0x32 0146 180e | | Execute Package,Field_Execute,Field_Number 0xe 0147 823e | > | Call 0x1,0x3e 0148 6805 |h | Jump_Zero 0x14e 0149 e403 | | Load 0x2,0x3 014a 0092 0921 | !| Action Push_String_Extended,0x921 ; "This machine has donated tokens today; it may not also accept them" 014c e230 | 0 | Load 0x1,0x30 014d 180d | | Execute Package,Field_Execute,Field_Number 0xd 014e e403 | | Load 0x2,0x3 014f e5ff | | Load 0x2,-0x1 0150 8243 | C | Call 0x1,0x43 0151 e403 | | Load 0x2,0x3 0152 e5fd | | Load 0x2,-0x3 0153 e5fe | | Load 0x2,-0x2 0154 e5ff | | Load 0x2,-0x1 0155 8246 | F | Call 0x1,0x46 0156 e5ff | | Load 0x2,-0x1 0157 8248 | H | Call 0x1,0x48 0158 a405 | | Store_Unchecked 0x2,0x5 0159 00d8 | | Load_Top At_Offset_0 015a e5fe | | Load 0x2,-0x2 015b 0273 | s | Execute Discrete,Plus 015c c404 | | Store 0x2,0x4 015d e404 | | Load 0x2,0x4 015e e5fd | | Load 0x2,-0x3 015f 027e | ~ | Execute Discrete,Not_Equal 0160 6827 |h' | Jump_Zero 0x188 0161 e403 | | Load 0x2,0x3 0162 483d |H= | Short_Literal 0x3d 0163 482b |H+ | Short_Literal 0x2b 0164 0092 0922 | "| Action Push_String_Extended,0x922 ; "The sum of currently authorized tokens and Donations (" 0166 4820 |H | Short_Literal 0x20 0167 4800 |H | Short_Literal 0x0 0168 480a |H | Short_Literal 0xa 0169 e405 | | Load 0x2,0x5 016a 8233 | 3 | Call 0x1,0x33 016b 01cc | | Execute Vector,Catenate 016c 01cb | | Execute Vector,Append 016d 4820 |H | Short_Literal 0x20 016e 4800 |H | Short_Literal 0x0 016f 480a |H | Short_Literal 0xa 0170 e5fe | | Load 0x2,-0x2 0171 8233 | 3 | Call 0x1,0x33 0172 01cc | | Execute Vector,Catenate 0173 01cb | | Execute Vector,Append 0174 4820 |H | Short_Literal 0x20 0175 4800 |H | Short_Literal 0x0 0176 480a |H | Short_Literal 0xa 0177 e404 | | Load 0x2,0x4 0178 8233 | 3 | Call 0x1,0x33 0179 01cc | | Execute Vector,Catenate 017a 0092 0923 | #| Action Push_String_Extended,0x923 ; ") is NOT equal to Resulting_Count parameter (" 017c 01cc | | Execute Vector,Catenate 017d 4820 |H | Short_Literal 0x20 017e 4800 |H | Short_Literal 0x0 017f 480a |H | Short_Literal 0xa 0180 e5fd | | Load 0x2,-0x3 0181 8233 | 3 | Call 0x1,0x33 0182 01cc | | Execute Vector,Catenate 0183 0092 0924 | $| Action Push_String_Extended,0x924 ; "); these must be equal in order to proceed." 0185 01cc | | Execute Vector,Catenate 0186 e230 | 0 | Load 0x1,0x30 0187 180d | | Execute Package,Field_Execute,Field_Number 0xd 0188 e5fc | | Load 0x2,-0x4 0189 e5fd | | Load 0x2,-0x3 018a e5fe | | Load 0x2,-0x2 018b e5ff | | Load 0x2,-0x1 018c 823c | < | Call 0x1,0x3c 018d 7019 |p | Jump_Nonzero 0x1a7 018e e403 | | Load 0x2,0x3 018f 0092 0925 | %| Action Push_String_Extended,0x925 ; "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 (" 0191 821b | | Call 0x1,0x1b 0192 01cc | | Execute Vector,Catenate 0193 0092 0926 | &| Action Push_String_Extended,0x926 ; "), a transcription error of the Machine ID of this machine (" 0195 01cc | | Execute Vector,Catenate 0196 4820 |H | Short_Literal 0x20 0197 4800 |H | Short_Literal 0x0 0198 480a |H | Short_Literal 0xa 0199 821c | | Call 0x1,0x1c 019a 8234 | 4 | Call 0x1,0x34 019b 01cc | | Execute Vector,Catenate 019c 0092 0927 | '| Action Push_String_Extended,0x927 ; "), a delay in posting the request (code only valid for one day), " 019e 01cc | | Execute Vector,Catenate 019f 0092 0928 | (| Action Push_String_Extended,0x928 ; "or some other combination of parameter problems. " 01a1 01cc | | Execute Vector,Catenate 01a2 0092 0929 | )| Action Push_String_Extended,0x929 ; "Contact your Rational representative for further assistance." 01a4 01cc | | Execute Vector,Catenate 01a5 e230 | 0 | Load 0x1,0x30 01a6 180d | | Execute Package,Field_Execute,Field_Number 0xd 01a7 e5ff | | Load 0x2,-0x1 01a8 e008 | | Load 0x0,0x8 01a9 180e | | Execute Package,Field_Execute,Field_Number 0xe 01aa 7009 |p | Jump_Nonzero 0x1b4 01ab 00ea | | Load_Encached Null_String_Cache 01ac 00ea | | Load_Encached Null_String_Cache 01ad 821c | | Call 0x1,0x1c 01ae e5ff | | Load 0x2,-0x1 01af e008 | | Load 0x0,0x8 01b0 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01b1 e5ff | | Load 0x2,-0x1 01b2 e008 | | Load 0x0,0x8 01b3 180d | | Execute Package,Field_Execute,Field_Number 0xd 01b4 e5fd | | Load 0x2,-0x3 01b5 e5ff | | Load 0x2,-0x1 01b6 e017 | | Load 0x0,0x17 01b7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01b8 e5ff | | Load 0x2,-0x1 01b9 8249 | I | Call 0x1,0x49 01ba 7004 |p | Jump_Nonzero 0x1bf 01bb 480c |H | Short_Literal 0xc 01bc e5ff | | Load 0x2,-0x1 01bd e017 | | Load 0x0,0x17 01be 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01bf e403 | | Load 0x2,0x3 01c0 e5ff | | Load 0x2,-0x1 01c1 0092 092a | *| Action Push_String_Extended,0x92a ; " tokens set to " 01c3 01cc | | Execute Vector,Catenate 01c4 4820 |H | Short_Literal 0x20 01c5 4800 |H | Short_Literal 0x0 01c6 480a |H | Short_Literal 0xa 01c7 e5fd | | Load 0x2,-0x3 01c8 8233 | 3 | Call 0x1,0x33 01c9 01cc | | Execute Vector,Catenate 01ca e230 | 0 | Load 0x1,0x30 01cb 180f | | Execute Package,Field_Execute,Field_Number 0xf 01cc e012 | | Load 0x0,0x12 01cd 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01ce e232 | 2 | Load 0x1,0x32 01cf 180f | | Execute Package,Field_Execute,Field_Number 0xf 01d0 e232 | 2 | Load 0x1,0x32 01d1 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01d2 e403 | | Load 0x2,0x3 01d3 00ea | | Load_Encached Null_String_Cache 01d4 e402 | | Load 0x2,0x2 01d5 e230 | 0 | Load 0x1,0x30 01d6 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01d7 4506 |E | Exit_Suprogram New_Top_Offset 0x6 01d8 TRAP_0128: 01d8 e002 | | Load 0x0,0x2 01d9 1b47 | G | Execute Package,Field_Read,Field_Number 0x47 01da 010f | | Execute Exception,Equal 01db 6806 |h | Jump_Zero 0x1e2 01dc e403 | | Load 0x2,0x3 01dd e402 | | Load 0x2,0x2 01de e230 | 0 | Load 0x1,0x30 01df 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01e0 00d8 | | Load_Top At_Offset_0 01e1 0101 | | Execute Exception,Reraise 01e2 e00a | | Load 0x0,0xa 01e3 010f | | Execute Exception,Equal 01e4 6805 |h | Jump_Zero 0x1ea 01e5 e403 | | Load 0x2,0x3 01e6 e402 | | Load 0x2,0x2 01e7 e230 | 0 | Load 0x1,0x30 01e8 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01e9 4506 |E | Exit_Suprogram New_Top_Offset 0x6 01ea e403 | | Load 0x2,0x3 01eb 4800 |H | Short_Literal 0x0 01ec 4801 |H | Short_Literal 0x1 01ed e019 | | Load 0x0,0x19 01ee 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01ef e402 | | Load 0x2,0x2 01f0 e230 | 0 | Load 0x1,0x30 01f1 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01f2 4506 |E | Exit_Suprogram New_Top_Offset 0x6 01f3 0000 0000 | | .BLANK 0000[0x5] 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 0202 | | .CONST 0x0202 ; Address of begin 01f9 024a | J | .CONST 0x024a ; Address of exception handler 01fa 0003 | | .CONST 0x0003 ; Number of locals 01fb INIT_01f8: 01fb 0092 092b | +| Action Push_String_Extended,0x92b ; "Donate_Tokens" 01fd e22c | , | Load 0x1,0x2c 01fe 02c7 | | Declare_Variable Any 01ff e002 | | Load 0x0,0x2 0200 180e | | Execute Package,Field_Execute,Field_Number 0xe 0201 a403 | | Store_Unchecked 0x2,0x3 0202 BODY_01f8: 0202 00d8 | | Load_Top At_Offset_0 0203 e5fa | | Load 0x2,-0x6 0204 e5fb | | Load 0x2,-0x5 0205 e5fc | | Load 0x2,-0x4 0206 e230 | 0 | Load 0x1,0x30 0207 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0208 e5fd | | Load 0x2,-0x3 0209 e230 | 0 | Load 0x1,0x30 020a 181b | | Execute Package,Field_Execute,Field_Number 0x1b 020b e5fe | | Load 0x2,-0x2 020c e230 | 0 | Load 0x1,0x30 020d 181b | | Execute Package,Field_Execute,Field_Number 0x1b 020e e5ff | | Load 0x2,-0x1 020f e402 | | Load 0x2,0x2 0210 e230 | 0 | Load 0x1,0x30 0211 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0212 c403 | | Store 0x2,0x3 0213 00d8 | | Load_Top At_Offset_0 0214 e230 | 0 | Load 0x1,0x30 0215 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0216 00d8 | | Load_Top At_Offset_0 0217 e5fb | | Load 0x2,-0x5 0218 8244 | D | Call 0x1,0x44 0219 00d8 | | Load_Top At_Offset_0 021a e5ff | | Load 0x2,-0x1 021b 8243 | C | Call 0x1,0x43 021c e5fc | | Load 0x2,-0x4 021d 821c | | Call 0x1,0x1c 021e 027f | | Execute Discrete,Equal 021f 6805 |h | Jump_Zero 0x225 0220 00d8 | | Load_Top At_Offset_0 0221 0092 092c | ,| Action Push_String_Extended,0x92c ; "Remote_Machine_ID specified is the Machine_ID for this machine." 0223 e230 | 0 | Load 0x1,0x30 0224 180d | | Execute Package,Field_Execute,Field_Number 0xd 0225 e232 | 2 | Load 0x1,0x32 0226 180d | | Execute Package,Field_Execute,Field_Number 0xd 0227 823e | > | Call 0x1,0x3e 0228 6805 |h | Jump_Zero 0x22e 0229 00d8 | | Load_Top At_Offset_0 022a 0092 092d | -| Action Push_String_Extended,0x92d ; "This machine has accepted tokens today; it may not also give them up" 022c e230 | 0 | Load 0x1,0x30 022d 180d | | Execute Package,Field_Execute,Field_Number 0xd 022e 00d8 | | Load_Top At_Offset_0 022f e5fd | | Load 0x2,-0x3 0230 e5fe | | Load 0x2,-0x2 0231 e5ff | | Load 0x2,-0x1 0232 8246 | F | Call 0x1,0x46 0233 00d8 | | Load_Top At_Offset_0 0234 e5fe | | Load 0x2,-0x2 0235 e5ff | | Load 0x2,-0x1 0236 8247 | G | Call 0x1,0x47 0237 e012 | | Load 0x0,0x12 0238 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0239 e232 | 2 | Load 0x1,0x32 023a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 023b e232 | 2 | Load 0x1,0x32 023c 1814 | | Execute Package,Field_Execute,Field_Number 0x14 023d e237 | 7 | Load 0x1,0x37 023e e5fb | | Load 0x2,-0x5 023f e5fc | | Load 0x2,-0x4 0240 e5fd | | Load 0x2,-0x3 0241 e5fe | | Load 0x2,-0x2 0242 e5ff | | Load 0x2,-0x1 0243 8240 | @ | Call 0x1,0x40 0244 00d8 | | Load_Top At_Offset_0 0245 00ea | | Load_Encached Null_String_Cache 0246 e402 | | Load 0x2,0x2 0247 e230 | 0 | Load 0x1,0x30 0248 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0249 4507 |E | Exit_Suprogram New_Top_Offset 0x7 024a TRAP_01f8: 024a e002 | | Load 0x0,0x2 024b 1b47 | G | Execute Package,Field_Read,Field_Number 0x47 024c 010f | | Execute Exception,Equal 024d 6806 |h | Jump_Zero 0x254 024e e403 | | Load 0x2,0x3 024f e402 | | Load 0x2,0x2 0250 e230 | 0 | Load 0x1,0x30 0251 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0252 00d8 | | Load_Top At_Offset_0 0253 0101 | | Execute Exception,Reraise 0254 e00a | | Load 0x0,0xa 0255 010f | | Execute Exception,Equal 0256 6805 |h | Jump_Zero 0x25c 0257 e403 | | Load 0x2,0x3 0258 e402 | | Load 0x2,0x2 0259 e230 | 0 | Load 0x1,0x30 025a 1819 | | Execute Package,Field_Execute,Field_Number 0x19 025b 4507 |E | Exit_Suprogram New_Top_Offset 0x7 025c e403 | | Load 0x2,0x3 025d 4800 |H | Short_Literal 0x0 025e 4801 |H | Short_Literal 0x1 025f e019 | | Load 0x0,0x19 0260 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0261 e402 | | Load 0x2,0x2 0262 e230 | 0 | Load 0x1,0x30 0263 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0264 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0265 0000 0000 | | .XXX[0x3] 0267 0000 | | 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 0272 | r | .CONST 0x0272 ; Address of begin 0269 02ab | | .CONST 0x02ab ; Address of exception handler 026a 0003 | | .CONST 0x0003 ; Number of locals 026b INIT_0268: 026b 0092 092e | .| Action Push_String_Extended,0x92e ; "Set_Site" 026d e22c | , | Load 0x1,0x2c 026e 02c7 | | Declare_Variable Any 026f e002 | | Load 0x0,0x2 0270 180e | | Execute Package,Field_Execute,Field_Number 0xe 0271 a403 | | Store_Unchecked 0x2,0x3 0272 BODY_0268: 0272 00d8 | | Load_Top At_Offset_0 0273 e5fd | | Load 0x2,-0x3 0274 e5fe | | Load 0x2,-0x2 0275 e5ff | | Load 0x2,-0x1 0276 e402 | | Load 0x2,0x2 0277 e230 | 0 | Load 0x1,0x30 0278 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0279 c403 | | Store 0x2,0x3 027a 00d8 | | Load_Top At_Offset_0 027b e230 | 0 | Load 0x1,0x30 027c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 027d e5fe | | Load 0x2,-0x2 027e e236 | 6 | Load 0x1,0x36 027f 821c | | Call 0x1,0x1c 0280 e5ff | | Load 0x2,-0x1 0281 8239 | 9 | Call 0x1,0x39 0282 01de | | Execute Vector,Not_Equal 0283 6814 |h | Jump_Zero 0x298 0284 00d8 | | Load_Top At_Offset_0 0285 0092 092f | /| Action Push_String_Extended,0x92f ; "Code (" 0287 e5fe | | Load 0x2,-0x2 0288 e230 | 0 | Load 0x1,0x30 0289 181d | | Execute Package,Field_Execute,Field_Number 0x1d 028a 01cc | | Execute Vector,Catenate 028b 0092 0930 | 0| Action Push_String_Extended,0x930 ; ") does not correspond to Site (" 028d 01cc | | Execute Vector,Catenate 028e e5ff | | Load 0x2,-0x1 028f e230 | 0 | Load 0x1,0x30 0290 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0291 01cc | | Execute Vector,Catenate 0292 0092 0931 | 1| Action Push_String_Extended,0x931 ; ")." 0294 01cc | | Execute Vector,Catenate 0295 e230 | 0 | Load 0x1,0x30 0296 180d | | Execute Package,Field_Execute,Field_Number 0xd 0297 780b |x | Jump 0x2a3 0298 e5fe | | Load 0x2,-0x2 0299 e5ff | | Load 0x2,-0x1 029a e232 | 2 | Load 0x1,0x32 029b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 029c 00d8 | | Load_Top At_Offset_0 029d 0092 0932 | 2| Action Push_String_Extended,0x932 ; "Site set to " 029f e5ff | | Load 0x2,-0x1 02a0 01cc | | Execute Vector,Catenate 02a1 e230 | 0 | Load 0x1,0x30 02a2 180f | | Execute Package,Field_Execute,Field_Number 0xf 02a3 e232 | 2 | Load 0x1,0x32 02a4 1814 | | Execute Package,Field_Execute,Field_Number 0x14 02a5 00d8 | | Load_Top At_Offset_0 02a6 00ea | | Load_Encached Null_String_Cache 02a7 e402 | | Load 0x2,0x2 02a8 e230 | 0 | Load 0x1,0x30 02a9 1818 | | Execute Package,Field_Execute,Field_Number 0x18 02aa 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02ab TRAP_0268: 02ab e002 | | Load 0x0,0x2 02ac 1b47 | G | Execute Package,Field_Read,Field_Number 0x47 02ad 010f | | Execute Exception,Equal 02ae 6806 |h | Jump_Zero 0x2b5 02af e403 | | Load 0x2,0x3 02b0 e402 | | Load 0x2,0x2 02b1 e230 | 0 | Load 0x1,0x30 02b2 1819 | | Execute Package,Field_Execute,Field_Number 0x19 02b3 00d8 | | Load_Top At_Offset_0 02b4 0101 | | Execute Exception,Reraise 02b5 e00a | | Load 0x0,0xa 02b6 010f | | Execute Exception,Equal 02b7 6805 |h | Jump_Zero 0x2bd 02b8 e403 | | Load 0x2,0x3 02b9 e402 | | Load 0x2,0x2 02ba e230 | 0 | Load 0x1,0x30 02bb 1819 | | Execute Package,Field_Execute,Field_Number 0x19 02bc 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02bd e403 | | Load 0x2,0x3 02be 4800 |H | Short_Literal 0x0 02bf 4801 |H | Short_Literal 0x1 02c0 e019 | | Load 0x0,0x19 02c1 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02c2 e402 | | Load 0x2,0x2 02c3 e230 | 0 | Load 0x1,0x30 02c4 181a | | Execute Package,Field_Execute,Field_Number 0x1a 02c5 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02c6 0000 0000 | | .XXX[0x2] 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; SUBPROGRAM 02c8 ; -------------------------------------------------------------------------------------- 02c8 02cb | | .CONST 0x02cb ; Address of begin 02c9 0004 | | .CONST 0x0004 ; Address of exception handler 02ca 0001 | | .CONST 0x0001 ; Number of locals 02cb BODY_02c8: 02cb INIT_02c8: 02cb e232 | 2 | Load 0x1,0x32 02cc 1812 | | Execute Package,Field_Execute,Field_Number 0x12 02cd 00ca | | Action Exit_Nullary_Function 02ce 0000 0000 | | .XXX[0x2] 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; SUBPROGRAM 02d0 ; -------------------------------------------------------------------------------------- 02d0 02d3 | | .CONST 0x02d3 ; Address of begin 02d1 0004 | | .CONST 0x0004 ; Address of exception handler 02d2 0001 | | .CONST 0x0001 ; Number of locals 02d3 BODY_02d0: 02d3 INIT_02d0: 02d3 e01a | | Load 0x0,0x1a 02d4 180e | | Execute Package,Field_Execute,Field_Number 0xe 02d5 00ca | | Action Exit_Nullary_Function 02d6 0000 0000 | | .XXX[0x2] 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; SUBPROGRAM 02d8 ; -------------------------------------------------------------------------------------- 02d8 02e5 | | .CONST 0x02e5 ; Address of begin 02d9 036d | m | .CONST 0x036d ; Address of exception handler 02da 0005 | | .CONST 0x0005 ; Number of locals 02db INIT_02d8: 02db 0092 0933 | 3| Action Push_String_Extended,0x933 ; "Convert_Tokens" 02dd e22c | , | Load 0x1,0x2c 02de 02c7 | | Declare_Variable Any 02df e002 | | Load 0x0,0x2 02e0 180e | | Execute Package,Field_Execute,Field_Number 0xe 02e1 a403 | | Store_Unchecked 0x2,0x3 02e2 00e3 | | Load_Encached Natural_Cache 02e3 029f 08c3 | | Declare_Subprogram INIT_08c0,For_Call 02e5 BODY_02d8: 02e5 e403 | | Load 0x2,0x3 02e6 e5fb | | Load 0x2,-0x5 02e7 e5fc | | Load 0x2,-0x4 02e8 e5fd | | Load 0x2,-0x3 02e9 e230 | 0 | Load 0x1,0x30 02ea 181b | | Execute Package,Field_Execute,Field_Number 0x1b 02eb e5fe | | Load 0x2,-0x2 02ec e5ff | | Load 0x2,-0x1 02ed e402 | | Load 0x2,0x2 02ee e230 | 0 | Load 0x1,0x30 02ef 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02f0 c403 | | Store 0x2,0x3 02f1 e403 | | Load 0x2,0x3 02f2 e230 | 0 | Load 0x1,0x30 02f3 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02f4 e403 | | Load 0x2,0x3 02f5 e5ff | | Load 0x2,-0x1 02f6 8243 | C | Call 0x1,0x43 02f7 e403 | | Load 0x2,0x3 02f8 e5fe | | Load 0x2,-0x2 02f9 8243 | C | Call 0x1,0x43 02fa e5ff | | Load 0x2,-0x1 02fb 8248 | H | Call 0x1,0x48 02fc a404 | | Store_Unchecked 0x2,0x4 02fd e5fd | | Load 0x2,-0x3 02fe e404 | | Load 0x2,0x4 02ff 027e | ~ | Execute Discrete,Not_Equal 0300 6817 |h | Jump_Zero 0x318 0301 e403 | | Load 0x2,0x3 0302 0092 0934 | 4| Action Push_String_Extended,0x934 ; "The token count for the current product (" 0304 4820 |H | Short_Literal 0x20 0305 4800 |H | Short_Literal 0x0 0306 480a |H | Short_Literal 0xa 0307 e404 | | Load 0x2,0x4 0308 8233 | 3 | Call 0x1,0x33 0309 01cc | | Execute Vector,Catenate 030a 0092 0935 | 5| Action Push_String_Extended,0x935 ; ") is NOT equal to Token_Count parameter (" 030c 01cc | | Execute Vector,Catenate 030d 4820 |H | Short_Literal 0x20 030e 4800 |H | Short_Literal 0x0 030f 480a |H | Short_Literal 0xa 0310 e5fd | | Load 0x2,-0x3 0311 8233 | 3 | Call 0x1,0x33 0312 01cc | | Execute Vector,Catenate 0313 0092 0924 | $| Action Push_String_Extended,0x924 ; "); these must be equal in order to proceed." 0315 01cc | | Execute Vector,Catenate 0316 e230 | 0 | Load 0x1,0x30 0317 180d | | Execute Package,Field_Execute,Field_Number 0xd 0318 e5fc | | Load 0x2,-0x4 0319 e5fd | | Load 0x2,-0x3 031a e5fe | | Load 0x2,-0x2 031b e5ff | | Load 0x2,-0x1 031c 823d | = | Call 0x1,0x3d 031d 7014 |p | Jump_Nonzero 0x332 031e e403 | | Load 0x2,0x3 031f 0092 0936 | 6| Action Push_String_Extended,0x936 ; "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 (" 0321 4820 |H | Short_Literal 0x20 0322 4800 |H | Short_Literal 0x0 0323 480a |H | Short_Literal 0xa 0324 821c | | Call 0x1,0x1c 0325 8234 | 4 | Call 0x1,0x34 0326 01cc | | Execute Vector,Catenate 0327 0092 0927 | '| Action Push_String_Extended,0x927 ; "), a delay in posting the request (code only valid for one day), " 0329 01cc | | Execute Vector,Catenate 032a 0092 0928 | (| Action Push_String_Extended,0x928 ; "or some other combination of parameter problems. " 032c 01cc | | Execute Vector,Catenate 032d 0092 0929 | )| Action Push_String_Extended,0x929 ; "Contact your Rational representative for further assistance." 032f 01cc | | Execute Vector,Catenate 0330 e230 | 0 | Load 0x1,0x30 0331 180d | | Execute Package,Field_Execute,Field_Number 0xd 0332 e5fe | | Load 0x2,-0x2 0333 e008 | | Load 0x0,0x8 0334 180e | | Execute Package,Field_Execute,Field_Number 0xe 0335 7009 |p | Jump_Nonzero 0x33f 0336 00ea | | Load_Encached Null_String_Cache 0337 00ea | | Load_Encached Null_String_Cache 0338 821c | | Call 0x1,0x1c 0339 e5fe | | Load 0x2,-0x2 033a e008 | | Load 0x0,0x8 033b 1815 | | Execute Package,Field_Execute,Field_Number 0x15 033c e5fe | | Load 0x2,-0x2 033d e008 | | Load 0x0,0x8 033e 180d | | Execute Package,Field_Execute,Field_Number 0xd 033f e5fd | | Load 0x2,-0x3 0340 e5fe | | Load 0x2,-0x2 0341 e017 | | Load 0x0,0x17 0342 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0343 4800 |H | Short_Literal 0x0 0344 e5ff | | Load 0x2,-0x1 0345 e017 | | Load 0x0,0x17 0346 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0347 8405 | | Call 0x2,0x5 0348 e5fe | | Load 0x2,-0x2 0349 8249 | I | Call 0x1,0x49 034a 7004 |p | Jump_Nonzero 0x34f 034b 480c |H | Short_Literal 0xc 034c e5fe | | Load 0x2,-0x2 034d e017 | | Load 0x0,0x17 034e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 034f e403 | | Load 0x2,0x3 0350 482e |H. | Short_Literal 0x2e 0351 e5fe | | Load 0x2,-0x2 0352 0092 092a | *| Action Push_String_Extended,0x92a ; " tokens set to " 0354 01cc | | Execute Vector,Catenate 0355 4820 |H | Short_Literal 0x20 0356 4800 |H | Short_Literal 0x0 0357 480a |H | Short_Literal 0xa 0358 e5fd | | Load 0x2,-0x3 0359 8233 | 3 | Call 0x1,0x33 035a 01cc | | Execute Vector,Catenate 035b 01cb | | Execute Vector,Append 035c e230 | 0 | Load 0x1,0x30 035d 180f | | Execute Package,Field_Execute,Field_Number 0xf 035e e403 | | Load 0x2,0x3 035f e5ff | | Load 0x2,-0x1 0360 0092 0937 | 7| Action Push_String_Extended,0x937 ; " has no more tokens." 0362 01cc | | Execute Vector,Catenate 0363 e230 | 0 | Load 0x1,0x30 0364 180f | | Execute Package,Field_Execute,Field_Number 0xf 0365 e232 | 2 | Load 0x1,0x32 0366 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0367 e403 | | Load 0x2,0x3 0368 00ea | | Load_Encached Null_String_Cache 0369 e402 | | Load 0x2,0x2 036a e230 | 0 | Load 0x1,0x30 036b 1818 | | Execute Package,Field_Execute,Field_Number 0x18 036c 4506 |E | Exit_Suprogram New_Top_Offset 0x6 036d TRAP_02d8: 036d e002 | | Load 0x0,0x2 036e 1b47 | G | Execute Package,Field_Read,Field_Number 0x47 036f 010f | | Execute Exception,Equal 0370 6806 |h | Jump_Zero 0x377 0371 e403 | | Load 0x2,0x3 0372 e402 | | Load 0x2,0x2 0373 e230 | 0 | Load 0x1,0x30 0374 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0375 00d8 | | Load_Top At_Offset_0 0376 0101 | | Execute Exception,Reraise 0377 e00a | | Load 0x0,0xa 0378 010f | | Execute Exception,Equal 0379 6805 |h | Jump_Zero 0x37f 037a e403 | | Load 0x2,0x3 037b e402 | | Load 0x2,0x2 037c e230 | 0 | Load 0x1,0x30 037d 1819 | | Execute Package,Field_Execute,Field_Number 0x19 037e 4506 |E | Exit_Suprogram New_Top_Offset 0x6 037f e403 | | Load 0x2,0x3 0380 4800 |H | Short_Literal 0x0 0381 4801 |H | Short_Literal 0x1 0382 e019 | | Load 0x0,0x19 0383 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0384 e402 | | Load 0x2,0x2 0385 e230 | 0 | Load 0x1,0x30 0386 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0387 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0388 ; -------------------------------------------------------------------------------------- 0388 ; SUBPROGRAM 0388 ; -------------------------------------------------------------------------------------- 0388 0392 | | .CONST 0x0392 ; Address of begin 0389 03d5 | | .CONST 0x03d5 ; Address of exception handler 038a 0003 | | .CONST 0x0003 ; Number of locals 038b INIT_0388: 038b 0092 0938 | 8| Action Push_String_Extended,0x938 ; "Allow_Token_Conversion" 038d e22c | , | Load 0x1,0x2c 038e 02c7 | | Declare_Variable Any 038f e002 | | Load 0x0,0x2 0390 180e | | Execute Package,Field_Execute,Field_Number 0xe 0391 a403 | | Store_Unchecked 0x2,0x3 0392 BODY_0388: 0392 00d8 | | Load_Top At_Offset_0 0393 e5fa | | Load 0x2,-0x6 0394 e5fb | | Load 0x2,-0x5 0395 e5fc | | Load 0x2,-0x4 0396 e230 | 0 | Load 0x1,0x30 0397 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0398 e5fd | | Load 0x2,-0x3 0399 e230 | 0 | Load 0x1,0x30 039a 181b | | Execute Package,Field_Execute,Field_Number 0x1b 039b e5fe | | Load 0x2,-0x2 039c e5ff | | Load 0x2,-0x1 039d e402 | | Load 0x2,0x2 039e e230 | 0 | Load 0x1,0x30 039f 1816 | | Execute Package,Field_Execute,Field_Number 0x16 03a0 c403 | | Store 0x2,0x3 03a1 00d8 | | Load_Top At_Offset_0 03a2 e230 | 0 | Load 0x1,0x30 03a3 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03a4 00d8 | | Load_Top At_Offset_0 03a5 e5fb | | Load 0x2,-0x5 03a6 8245 | E | Call 0x1,0x45 03a7 00d8 | | Load_Top At_Offset_0 03a8 e5ff | | Load 0x2,-0x1 03a9 8243 | C | Call 0x1,0x43 03aa 00d8 | | Load_Top At_Offset_0 03ab e5fe | | Load 0x2,-0x2 03ac 8243 | C | Call 0x1,0x43 03ad e232 | 2 | Load 0x1,0x32 03ae 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03af 7005 |p | Jump_Nonzero 0x3b5 03b0 00d8 | | Load_Top At_Offset_0 03b1 0092 0939 | 9| Action Push_String_Extended,0x939 ; "Must be run from a Rational site." 03b3 e230 | 0 | Load 0x1,0x30 03b4 180d | | Execute Package,Field_Execute,Field_Number 0xd 03b5 e5fc | | Load 0x2,-0x4 03b6 821c | | Call 0x1,0x1c 03b7 027f | | Execute Discrete,Equal 03b8 6805 |h | Jump_Zero 0x3be 03b9 00d8 | | Load_Top At_Offset_0 03ba 0092 092c | ,| Action Push_String_Extended,0x92c ; "Remote_Machine_ID specified is the Machine_ID for this machine." 03bc e230 | 0 | Load 0x1,0x30 03bd 1810 | | Execute Package,Field_Execute,Field_Number 0x10 03be e5fb | | Load 0x2,-0x5 03bf e236 | 6 | Load 0x1,0x36 03c0 01df | | Execute Vector,Equal 03c1 6807 |h | Jump_Zero 0x3c9 03c2 e237 | 7 | Load 0x1,0x37 03c3 e5fc | | Load 0x2,-0x4 03c4 e5fd | | Load 0x2,-0x3 03c5 e5fe | | Load 0x2,-0x2 03c6 e5ff | | Load 0x2,-0x1 03c7 8241 | A | Call 0x1,0x41 03c8 7806 |x | Jump 0x3cf 03c9 e5fb | | Load 0x2,-0x5 03ca e5fc | | Load 0x2,-0x4 03cb e5fd | | Load 0x2,-0x3 03cc e5fe | | Load 0x2,-0x2 03cd e5ff | | Load 0x2,-0x1 03ce 8241 | A | Call 0x1,0x41 03cf 00d8 | | Load_Top At_Offset_0 03d0 00ea | | Load_Encached Null_String_Cache 03d1 e402 | | Load 0x2,0x2 03d2 e230 | 0 | Load 0x1,0x30 03d3 1818 | | Execute Package,Field_Execute,Field_Number 0x18 03d4 4507 |E | Exit_Suprogram New_Top_Offset 0x7 03d5 TRAP_0388: 03d5 e002 | | Load 0x0,0x2 03d6 1b47 | G | Execute Package,Field_Read,Field_Number 0x47 03d7 010f | | Execute Exception,Equal 03d8 6806 |h | Jump_Zero 0x3df 03d9 e403 | | Load 0x2,0x3 03da e402 | | Load 0x2,0x2 03db e230 | 0 | Load 0x1,0x30 03dc 1819 | | Execute Package,Field_Execute,Field_Number 0x19 03dd 00d8 | | Load_Top At_Offset_0 03de 0101 | | Execute Exception,Reraise 03df e00a | | Load 0x0,0xa 03e0 010f | | Execute Exception,Equal 03e1 6805 |h | Jump_Zero 0x3e7 03e2 e403 | | Load 0x2,0x3 03e3 e402 | | Load 0x2,0x2 03e4 e230 | 0 | Load 0x1,0x30 03e5 1819 | | Execute Package,Field_Execute,Field_Number 0x19 03e6 4507 |E | Exit_Suprogram New_Top_Offset 0x7 03e7 e403 | | Load 0x2,0x3 03e8 4800 |H | Short_Literal 0x0 03e9 4801 |H | Short_Literal 0x1 03ea e019 | | Load 0x0,0x19 03eb 1815 | | Execute Package,Field_Execute,Field_Number 0x15 03ec e402 | | Load 0x2,0x2 03ed e230 | 0 | Load 0x1,0x30 03ee 181a | | Execute Package,Field_Execute,Field_Number 0x1a 03ef 4507 |E | Exit_Suprogram New_Top_Offset 0x7 03f0 ; -------------------------------------------------------------------------------------- 03f0 ; SUBPROGRAM 03f0 ; -------------------------------------------------------------------------------------- 03f0 03fa | | .CONST 0x03fa ; Address of begin 03f1 0447 | G | .CONST 0x0447 ; Address of exception handler 03f2 0003 | | .CONST 0x0003 ; Number of locals 03f3 INIT_03f0: 03f3 0092 093a | :| Action Push_String_Extended,0x93a ; "Assign_Tokens" 03f5 e22c | , | Load 0x1,0x2c 03f6 02c7 | | Declare_Variable Any 03f7 e002 | | Load 0x0,0x2 03f8 180e | | Execute Package,Field_Execute,Field_Number 0xe 03f9 a403 | | Store_Unchecked 0x2,0x3 03fa BODY_03f0: 03fa 00d8 | | Load_Top At_Offset_0 03fb e5f9 | | Load 0x2,-0x7 03fc e5fa | | Load 0x2,-0x6 03fd e5fb | | Load 0x2,-0x5 03fe e5fc | | Load 0x2,-0x4 03ff e230 | 0 | Load 0x1,0x30 0400 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0401 e5fd | | Load 0x2,-0x3 0402 e230 | 0 | Load 0x1,0x30 0403 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0404 e5fe | | Load 0x2,-0x2 0405 e230 | 0 | Load 0x1,0x30 0406 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0407 e5ff | | Load 0x2,-0x1 0408 e402 | | Load 0x2,0x2 0409 e230 | 0 | Load 0x1,0x30 040a 1817 | | Execute Package,Field_Execute,Field_Number 0x17 040b c403 | | Store 0x2,0x3 040c 00d8 | | Load_Top At_Offset_0 040d e230 | 0 | Load 0x1,0x30 040e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 040f 00d8 | | Load_Top At_Offset_0 0410 e5fb | | Load 0x2,-0x5 0411 8244 | D | Call 0x1,0x44 0412 00d8 | | Load_Top At_Offset_0 0413 e5fa | | Load 0x2,-0x6 0414 8245 | E | Call 0x1,0x45 0415 00d8 | | Load_Top At_Offset_0 0416 e5ff | | Load 0x2,-0x1 0417 8243 | C | Call 0x1,0x43 0418 e232 | 2 | Load 0x1,0x32 0419 1813 | | Execute Package,Field_Execute,Field_Number 0x13 041a 7005 |p | Jump_Nonzero 0x420 041b 00d8 | | Load_Top At_Offset_0 041c 0092 0939 | 9| Action Push_String_Extended,0x939 ; "Must be run from a Rational site." 041e e230 | 0 | Load 0x1,0x30 041f 180d | | Execute Package,Field_Execute,Field_Number 0xd 0420 e5fc | | Load 0x2,-0x4 0421 821c | | Call 0x1,0x1c 0422 027f | | Execute Discrete,Equal 0423 6805 |h | Jump_Zero 0x429 0424 00d8 | | Load_Top At_Offset_0 0425 0092 092c | ,| Action Push_String_Extended,0x92c ; "Remote_Machine_ID specified is the Machine_ID for this machine." 0427 e230 | 0 | Load 0x1,0x30 0428 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0429 00d8 | | Load_Top At_Offset_0 042a e5fd | | Load 0x2,-0x3 042b e5fe | | Load 0x2,-0x2 042c e5ff | | Load 0x2,-0x1 042d 8246 | F | Call 0x1,0x46 042e e5fa | | Load 0x2,-0x6 042f e236 | 6 | Load 0x1,0x36 0430 01df | | Execute Vector,Equal 0431 6808 |h | Jump_Zero 0x43a 0432 e237 | 7 | Load 0x1,0x37 0433 e5fb | | Load 0x2,-0x5 0434 e5fc | | Load 0x2,-0x4 0435 e5fd | | Load 0x2,-0x3 0436 e5fe | | Load 0x2,-0x2 0437 e5ff | | Load 0x2,-0x1 0438 8240 | @ | Call 0x1,0x40 0439 7807 |x | Jump 0x441 043a e5fa | | Load 0x2,-0x6 043b e5fb | | Load 0x2,-0x5 043c e5fc | | Load 0x2,-0x4 043d e5fd | | Load 0x2,-0x3 043e e5fe | | Load 0x2,-0x2 043f e5ff | | Load 0x2,-0x1 0440 8240 | @ | Call 0x1,0x40 0441 00d8 | | Load_Top At_Offset_0 0442 00ea | | Load_Encached Null_String_Cache 0443 e402 | | Load 0x2,0x2 0444 e230 | 0 | Load 0x1,0x30 0445 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0446 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0447 TRAP_03f0: 0447 e002 | | Load 0x0,0x2 0448 1b47 | G | Execute Package,Field_Read,Field_Number 0x47 0449 010f | | Execute Exception,Equal 044a 6806 |h | Jump_Zero 0x451 044b e403 | | Load 0x2,0x3 044c e402 | | Load 0x2,0x2 044d e230 | 0 | Load 0x1,0x30 044e 1819 | | Execute Package,Field_Execute,Field_Number 0x19 044f 00d8 | | Load_Top At_Offset_0 0450 0101 | | Execute Exception,Reraise 0451 e00a | | Load 0x0,0xa 0452 010f | | Execute Exception,Equal 0453 6805 |h | Jump_Zero 0x459 0454 e403 | | Load 0x2,0x3 0455 e402 | | Load 0x2,0x2 0456 e230 | 0 | Load 0x1,0x30 0457 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0458 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0459 e403 | | Load 0x2,0x3 045a 4800 |H | Short_Literal 0x0 045b 4801 |H | Short_Literal 0x1 045c e019 | | Load 0x0,0x19 045d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 045e e402 | | Load 0x2,0x2 045f e230 | 0 | Load 0x1,0x30 0460 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0461 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0462 0000 0000 | | .BLANK 0000[0x6] 0468 ; -------------------------------------------------------------------------------------- 0468 ; SUBPROGRAM 0468 ; -------------------------------------------------------------------------------------- 0468 047e | ~ | .CONST 0x047e ; Address of begin 0469 04b4 | | .CONST 0x04b4 ; Address of exception handler 046a 0002 | | .CONST 0x0002 ; Number of locals 046b INIT_0468: 046b e22c | , | Load 0x1,0x2c 046c 02c7 | | Declare_Variable Any 046d e002 | | Load 0x0,0x2 046e 180e | | Execute Package,Field_Execute,Field_Number 0xe 046f e002 | | Load 0x0,0x2 0470 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 0471 e002 | | Load 0x0,0x2 0472 180e | | Execute Package,Field_Execute,Field_Number 0xe 0473 e002 | | Load 0x0,0x2 0474 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 0475 484d |HM | Short_Literal 0x4d 0476 e002 | | Load 0x0,0x2 0477 1b45 | E | Execute Package,Field_Read,Field_Number 0x45 0478 e002 | | Load 0x0,0x2 0479 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 047a 4800 |H | Short_Literal 0x0 047b e002 | | Load 0x0,0x2 047c 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 047d a402 | | Store_Unchecked 0x2,0x2 047e BODY_0468: 047e 00d8 | | Load_Top At_Offset_0 047f e230 | 0 | Load 0x1,0x30 0480 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0481 00d8 | | Load_Top At_Offset_0 0482 e5fb | | Load 0x2,-0x5 0483 8244 | D | Call 0x1,0x44 0484 00d8 | | Load_Top At_Offset_0 0485 e5fa | | Load 0x2,-0x6 0486 8245 | E | Call 0x1,0x45 0487 00d8 | | Load_Top At_Offset_0 0488 e5ff | | Load 0x2,-0x1 0489 8243 | C | Call 0x1,0x43 048a e232 | 2 | Load 0x1,0x32 048b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 048c 7005 |p | Jump_Nonzero 0x492 048d 00d8 | | Load_Top At_Offset_0 048e 0092 0939 | 9| Action Push_String_Extended,0x939 ; "Must be run from a Rational site." 0490 e230 | 0 | Load 0x1,0x30 0491 180d | | Execute Package,Field_Execute,Field_Number 0xd 0492 e5fc | | Load 0x2,-0x4 0493 821c | | Call 0x1,0x1c 0494 027f | | Execute Discrete,Equal 0495 6805 |h | Jump_Zero 0x49b 0496 00d8 | | Load_Top At_Offset_0 0497 0092 092c | ,| Action Push_String_Extended,0x92c ; "Remote_Machine_ID specified is the Machine_ID for this machine." 0499 e230 | 0 | Load 0x1,0x30 049a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 049b 00d8 | | Load_Top At_Offset_0 049c e5fd | | Load 0x2,-0x3 049d e5fe | | Load 0x2,-0x2 049e e5ff | | Load 0x2,-0x1 049f 8246 | F | Call 0x1,0x46 04a0 e5fa | | Load 0x2,-0x6 04a1 e236 | 6 | Load 0x1,0x36 04a2 01df | | Execute Vector,Equal 04a3 6808 |h | Jump_Zero 0x4ac 04a4 e237 | 7 | Load 0x1,0x37 04a5 e5fb | | Load 0x2,-0x5 04a6 e5fc | | Load 0x2,-0x4 04a7 e5fd | | Load 0x2,-0x3 04a8 e5fe | | Load 0x2,-0x2 04a9 e5ff | | Load 0x2,-0x1 04aa 823a | : | Call 0x1,0x3a 04ab 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 04ac e5fa | | Load 0x2,-0x6 04ad e5fb | | Load 0x2,-0x5 04ae e5fc | | Load 0x2,-0x4 04af e5fd | | Load 0x2,-0x3 04b0 e5fe | | Load 0x2,-0x2 04b1 e5ff | | Load 0x2,-0x1 04b2 823a | : | Call 0x1,0x3a 04b3 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 04b4 TRAP_0468: 04b4 e00a | | Load 0x0,0xa 04b5 010f | | Execute Exception,Equal 04b6 6803 |h | Jump_Zero 0x4ba 04b7 e002 | | Load 0x0,0x2 04b8 1b47 | G | Execute Package,Field_Read,Field_Number 0x47 04b9 0257 | W | Execute Discrete,Raise 04ba 0100 | | Execute Exception,Raise 04bb 0000 0000 | | .BLANK 0000[0x5] 04c0 ; -------------------------------------------------------------------------------------- 04c0 ; SUBPROGRAM 04c0 ; -------------------------------------------------------------------------------------- 04c0 04ca | | .CONST 0x04ca ; Address of begin 04c1 04f8 | | .CONST 0x04f8 ; Address of exception handler 04c2 0003 | | .CONST 0x0003 ; Number of locals 04c3 INIT_04c0: 04c3 0092 093b | ;| Action Push_String_Extended,0x93b ; "Assign_Site" 04c5 e22c | , | Load 0x1,0x2c 04c6 02c7 | | Declare_Variable Any 04c7 e002 | | Load 0x0,0x2 04c8 180e | | Execute Package,Field_Execute,Field_Number 0xe 04c9 a403 | | Store_Unchecked 0x2,0x3 04ca BODY_04c0: 04ca 00d8 | | Load_Top At_Offset_0 04cb e5fd | | Load 0x2,-0x3 04cc e5fe | | Load 0x2,-0x2 04cd e230 | 0 | Load 0x1,0x30 04ce 181c | | Execute Package,Field_Execute,Field_Number 0x1c 04cf e5ff | | Load 0x2,-0x1 04d0 e402 | | Load 0x2,0x2 04d1 e230 | 0 | Load 0x1,0x30 04d2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 04d3 c403 | | Store 0x2,0x3 04d4 00d8 | | Load_Top At_Offset_0 04d5 e5ff | | Load 0x2,-0x1 04d6 8244 | D | Call 0x1,0x44 04d7 0092 093c | <| Action Push_String_Extended,0x93c ; "Run the following on the remote machine:" 04d9 e018 | | Load 0x0,0x18 04da 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 04db 0092 092e | .| Action Push_String_Extended,0x92e ; "Set_Site" 04dd e231 | 1 | Load 0x1,0x31 04de 180d | | Execute Package,Field_Execute,Field_Number 0xd 04df e5ff | | Load 0x2,-0x1 04e0 e230 | 0 | Load 0x1,0x30 04e1 181d | | Execute Package,Field_Execute,Field_Number 0x1d 04e2 0092 093d | =| Action Push_String_Extended,0x93d ; "Site" 04e4 e231 | 1 | Load 0x1,0x31 04e5 180e | | Execute Package,Field_Execute,Field_Number 0xe 04e6 e236 | 6 | Load 0x1,0x36 04e7 e5fe | | Load 0x2,-0x2 04e8 e5ff | | Load 0x2,-0x1 04e9 8239 | 9 | Call 0x1,0x39 04ea e230 | 0 | Load 0x1,0x30 04eb 181d | | Execute Package,Field_Execute,Field_Number 0x1d 04ec 0092 093e | >| Action Push_String_Extended,0x93e ; "Code" 04ee e231 | 1 | Load 0x1,0x31 04ef 180e | | Execute Package,Field_Execute,Field_Number 0xe 04f0 e231 | 1 | Load 0x1,0x31 04f1 180f | | Execute Package,Field_Execute,Field_Number 0xf 04f2 00d8 | | Load_Top At_Offset_0 04f3 00ea | | Load_Encached Null_String_Cache 04f4 e402 | | Load 0x2,0x2 04f5 e230 | 0 | Load 0x1,0x30 04f6 1818 | | Execute Package,Field_Execute,Field_Number 0x18 04f7 4504 |E | Exit_Suprogram New_Top_Offset 0x4 04f8 TRAP_04c0: 04f8 e002 | | Load 0x0,0x2 04f9 1b47 | G | Execute Package,Field_Read,Field_Number 0x47 04fa 010f | | Execute Exception,Equal 04fb 6806 |h | Jump_Zero 0x502 04fc e403 | | Load 0x2,0x3 04fd e402 | | Load 0x2,0x2 04fe e230 | 0 | Load 0x1,0x30 04ff 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0500 00d8 | | Load_Top At_Offset_0 0501 0101 | | Execute Exception,Reraise 0502 e00a | | Load 0x0,0xa 0503 010f | | Execute Exception,Equal 0504 6805 |h | Jump_Zero 0x50a 0505 e403 | | Load 0x2,0x3 0506 e402 | | Load 0x2,0x2 0507 e230 | 0 | Load 0x1,0x30 0508 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0509 4504 |E | Exit_Suprogram New_Top_Offset 0x4 050a e403 | | Load 0x2,0x3 050b 4800 |H | Short_Literal 0x0 050c 4801 |H | Short_Literal 0x1 050d e019 | | Load 0x0,0x19 050e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 050f e402 | | Load 0x2,0x2 0510 e230 | 0 | Load 0x1,0x30 0511 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0512 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0513 0000 0000 | | .BLANK 0000[0x5] 0518 ; -------------------------------------------------------------------------------------- 0518 ; SUBPROGRAM 0518 ; -------------------------------------------------------------------------------------- 0518 052e | . | .CONST 0x052e ; Address of begin 0519 0536 | 6 | .CONST 0x0536 ; Address of exception handler 051a 0002 | | .CONST 0x0002 ; Number of locals 051b INIT_0518: 051b e22c | , | Load 0x1,0x2c 051c 02c7 | | Declare_Variable Any 051d e002 | | Load 0x0,0x2 051e 180e | | Execute Package,Field_Execute,Field_Number 0xe 051f e002 | | Load 0x0,0x2 0520 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 0521 e002 | | Load 0x0,0x2 0522 180e | | Execute Package,Field_Execute,Field_Number 0xe 0523 e002 | | Load 0x0,0x2 0524 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 0525 484d |HM | Short_Literal 0x4d 0526 e002 | | Load 0x0,0x2 0527 1b45 | E | Execute Package,Field_Read,Field_Number 0x45 0528 e002 | | Load 0x0,0x2 0529 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 052a 4800 |H | Short_Literal 0x0 052b e002 | | Load 0x0,0x2 052c 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 052d a402 | | Store_Unchecked 0x2,0x2 052e BODY_0518: 052e 00d8 | | Load_Top At_Offset_0 052f e5ff | | Load 0x2,-0x1 0530 8244 | D | Call 0x1,0x44 0531 e236 | 6 | Load 0x1,0x36 0532 e5fe | | Load 0x2,-0x2 0533 e5ff | | Load 0x2,-0x1 0534 8239 | 9 | Call 0x1,0x39 0535 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0536 TRAP_0518: 0536 e00a | | Load 0x0,0xa 0537 010f | | Execute Exception,Equal 0538 6803 |h | Jump_Zero 0x53c 0539 e002 | | Load 0x0,0x2 053a 1b47 | G | Execute Package,Field_Read,Field_Number 0x47 053b 0257 | W | Execute Discrete,Raise 053c 0100 | | Execute Exception,Raise 053d 0000 0000 | | .XXX[0x3] 053f 0000 | | 0540 ; -------------------------------------------------------------------------------------- 0540 ; SUBPROGRAM 0540 ; -------------------------------------------------------------------------------------- 0540 054d | M | .CONST 0x054d ; Address of begin 0541 0597 | | .CONST 0x0597 ; Address of exception handler 0542 0004 | | .CONST 0x0004 ; Number of locals 0543 INIT_0540: 0543 0092 093f | ?| Action Push_String_Extended,0x93f ; "Training" 0545 0092 0940 | @| Action Push_String_Extended,0x940 ; "Training_Authorization" 0547 e002 | | Load 0x0,0x2 0548 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0549 02c7 | | Declare_Variable Any 054a e002 | | Load 0x0,0x2 054b 180e | | Execute Package,Field_Execute,Field_Number 0xe 054c a404 | | Store_Unchecked 0x2,0x4 054d BODY_0540: 054d 00d8 | | Load_Top At_Offset_0 054e e5fd | | Load 0x2,-0x3 054f 482b |H+ | Short_Literal 0x2b 0550 e5fe | | Load 0x2,-0x2 0551 00e1 | | Load_Encached Boolean_Cache 0552 011c | | Execute Any,Convert_Unchecked 0553 1c01 | | Execute_Immediate Run_Utility,0x1 0554 01ca | | Execute Vector,Prepend 0555 e5ff | | Load 0x2,-0x1 0556 e403 | | Load 0x2,0x3 0557 e230 | 0 | Load 0x1,0x30 0558 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0559 c404 | | Store 0x2,0x4 055a e5fe | | Load 0x2,-0x2 055b 700f |p | Jump_Nonzero 0x56b 055c 4801 |H | Short_Literal 0x1 055d e008 | | Load 0x0,0x8 055e 1816 | | Execute Package,Field_Execute,Field_Number 0x16 055f 4801 |H | Short_Literal 0x1 0560 e017 | | Load 0x0,0x17 0561 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0562 4803 |H | Short_Literal 0x3 0563 0092 0941 | A| Action Push_String_Extended,0x941 ; "Product and Token authorization checking has been reinstated." 0565 0092 0942 | B| Action Push_String_Extended,0x942 ; "Authorization_Checking_Reinstated" 0567 e403 | | Load 0x2,0x3 0568 e230 | 0 | Load 0x1,0x30 0569 181e | | Execute Package,Field_Execute,Field_Number 0x1e 056a 7826 |x& | Jump 0x591 056b e5ff | | Load 0x2,-0x1 056c 4800 |H | Short_Literal 0x0 056d 4800 |H | Short_Literal 0x0 056e 4800 |H | Short_Literal 0x0 056f e007 | | Load 0x0,0x7 0570 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0571 e007 | | Load 0x0,0x7 0572 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0573 e01a | | Load 0x0,0x1a 0574 180e | | Execute Package,Field_Execute,Field_Number 0xe 0575 e402 | | Load 0x2,0x2 0576 e008 | | Load 0x0,0x8 0577 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0578 01df | | Execute Vector,Equal 0579 680f |h | Jump_Zero 0x589 057a 4800 |H | Short_Literal 0x0 057b e008 | | Load 0x0,0x8 057c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 057d 4800 |H | Short_Literal 0x0 057e e017 | | Load 0x0,0x17 057f 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0580 4803 |H | Short_Literal 0x3 0581 0092 0943 | C| Action Push_String_Extended,0x943 ; "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." 0583 0092 0944 | D| Action Push_String_Extended,0x944 ; "Authorization_Checking_Suspended" 0585 e403 | | Load 0x2,0x3 0586 e230 | 0 | Load 0x1,0x30 0587 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0588 7808 |x | Jump 0x591 0589 4807 |H | Short_Literal 0x7 058a 0092 0945 | E| Action Push_String_Extended,0x945 ; "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." 058c 0092 0946 | F| Action Push_String_Extended,0x946 ; "Authorization_Code_Error" 058e e403 | | Load 0x2,0x3 058f e230 | 0 | Load 0x1,0x30 0590 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0591 00d8 | | Load_Top At_Offset_0 0592 00ea | | Load_Encached Null_String_Cache 0593 e403 | | Load 0x2,0x3 0594 e230 | 0 | Load 0x1,0x30 0595 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0596 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0597 TRAP_0540: 0597 e002 | | Load 0x0,0x2 0598 1b47 | G | Execute Package,Field_Read,Field_Number 0x47 0599 010f | | Execute Exception,Equal 059a 6806 |h | Jump_Zero 0x5a1 059b e404 | | Load 0x2,0x4 059c e403 | | Load 0x2,0x3 059d e230 | 0 | Load 0x1,0x30 059e 1819 | | Execute Package,Field_Execute,Field_Number 0x19 059f 00d8 | | Load_Top At_Offset_0 05a0 0101 | | Execute Exception,Reraise 05a1 e00a | | Load 0x0,0xa 05a2 010f | | Execute Exception,Equal 05a3 6805 |h | Jump_Zero 0x5a9 05a4 e404 | | Load 0x2,0x4 05a5 e403 | | Load 0x2,0x3 05a6 e230 | 0 | Load 0x1,0x30 05a7 1819 | | Execute Package,Field_Execute,Field_Number 0x19 05a8 4504 |E | Exit_Suprogram New_Top_Offset 0x4 05a9 e404 | | Load 0x2,0x4 05aa 4800 |H | Short_Literal 0x0 05ab 4801 |H | Short_Literal 0x1 05ac e019 | | Load 0x0,0x19 05ad 1815 | | Execute Package,Field_Execute,Field_Number 0x15 05ae e403 | | Load 0x2,0x3 05af e230 | 0 | Load 0x1,0x30 05b0 181a | | Execute Package,Field_Execute,Field_Number 0x1a 05b1 4504 |E | Exit_Suprogram New_Top_Offset 0x4 05b2 0000 0000 | | .BLANK 0000[0x6] 05b8 ; -------------------------------------------------------------------------------------- 05b8 ; SUBPROGRAM 05b8 ; -------------------------------------------------------------------------------------- 05b8 05bb | | .CONST 0x05bb ; Address of begin 05b9 0004 | | .CONST 0x0004 ; Address of exception handler 05ba 0001 | | .CONST 0x0001 ; Number of locals 05bb BODY_05b8: 05bb INIT_05b8: 05bb e012 | | Load 0x0,0x12 05bc 1812 | | Execute Package,Field_Execute,Field_Number 0x12 05bd e232 | 2 | Load 0x1,0x32 05be 180f | | Execute Package,Field_Execute,Field_Number 0xf 05bf 4501 |E | Exit_Suprogram New_Top_Offset 0x1 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 e012 | | Load 0x0,0x12 05c4 1812 | | Execute Package,Field_Execute,Field_Number 0x12 05c5 e232 | 2 | Load 0x1,0x32 05c6 1810 | | Execute Package,Field_Execute,Field_Number 0x10 05c7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05c8 ; -------------------------------------------------------------------------------------- 05c8 ; SUBPROGRAM 05c8 ; -------------------------------------------------------------------------------------- 05c8 05cb | | .CONST 0x05cb ; Address of begin 05c9 0004 | | .CONST 0x0004 ; Address of exception handler 05ca 0001 | | .CONST 0x0001 ; Number of locals 05cb BODY_05c8: 05cb INIT_05c8: 05cb e007 | | Load 0x0,0x7 05cc 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 05cd e232 | 2 | Load 0x1,0x32 05ce 180f | | Execute Package,Field_Execute,Field_Number 0xf 05cf 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05d0 ; -------------------------------------------------------------------------------------- 05d0 ; SUBPROGRAM 05d0 ; -------------------------------------------------------------------------------------- 05d0 05d3 | | .CONST 0x05d3 ; Address of begin 05d1 0004 | | .CONST 0x0004 ; Address of exception handler 05d2 0001 | | .CONST 0x0001 ; Number of locals 05d3 BODY_05d0: 05d3 INIT_05d0: 05d3 e007 | | Load 0x0,0x7 05d4 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 05d5 e232 | 2 | Load 0x1,0x32 05d6 1810 | | Execute Package,Field_Execute,Field_Number 0x10 05d7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 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 e232 | 2 | Load 0x1,0x32 05dc 1815 | | Execute Package,Field_Execute,Field_Number 0x15 05dd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05de 0000 0000 | | .XXX[0x2] 05e0 ; -------------------------------------------------------------------------------------- 05e0 ; SUBPROGRAM 05e0 ; -------------------------------------------------------------------------------------- 05e0 05e3 | | .CONST 0x05e3 ; Address of begin 05e1 0004 | | .CONST 0x0004 ; Address of exception handler 05e2 0001 | | .CONST 0x0001 ; Number of locals 05e3 BODY_05e0: 05e3 INIT_05e0: 05e3 e5fa | | Load 0x2,-0x6 05e4 e5fc | | Load 0x2,-0x4 05e5 e5ff | | Load 0x2,-0x1 05e6 0092 0947 | G| Action Push_String_Extended,0x947 ; "/" 05e8 01cc | | Execute Vector,Catenate 05e9 e5fb | | Load 0x2,-0x5 05ea 01cc | | Execute Vector,Catenate 05eb 0092 0948 | H| Action Push_String_Extended,0x948 ; "=" 05ed 01cc | | Execute Vector,Catenate 05ee 4820 |H | Short_Literal 0x20 05ef 4800 |H | Short_Literal 0x0 05f0 480a |H | Short_Literal 0xa 05f1 e5fe | | Load 0x2,-0x2 05f2 8233 | 3 | Call 0x1,0x33 05f3 01cc | | Execute Vector,Catenate 05f4 0092 0949 | I| Action Push_String_Extended,0x949 ; "|" 05f6 01cc | | Execute Vector,Catenate 05f7 4820 |H | Short_Literal 0x20 05f8 4800 |H | Short_Literal 0x0 05f9 480a |H | Short_Literal 0xa 05fa e5fd | | Load 0x2,-0x3 05fb 8233 | 3 | Call 0x1,0x33 05fc 01cc | | Execute Vector,Catenate 05fd 8238 | 8 | Call 0x1,0x38 05fe 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 05ff 0000 | | .XXX[0x1] 0600 ; -------------------------------------------------------------------------------------- 0600 ; SUBPROGRAM 0600 ; -------------------------------------------------------------------------------------- 0600 0603 | | .CONST 0x0603 ; Address of begin 0601 0004 | | .CONST 0x0004 ; Address of exception handler 0602 0001 | | .CONST 0x0001 ; Number of locals 0603 BODY_0600: 0603 INIT_0600: 0603 e5fb | | Load 0x2,-0x5 0604 e5fc | | Load 0x2,-0x4 0605 482d |H- | Short_Literal 0x2d 0606 e5ff | | Load 0x2,-0x1 0607 01cb | | Execute Vector,Append 0608 e5fe | | Load 0x2,-0x2 0609 01cc | | Execute Vector,Catenate 060a 4820 |H | Short_Literal 0x20 060b 4800 |H | Short_Literal 0x0 060c 480a |H | Short_Literal 0xa 060d e5fd | | Load 0x2,-0x3 060e 8233 | 3 | Call 0x1,0x33 060f 01cc | | Execute Vector,Catenate 0610 8238 | 8 | Call 0x1,0x38 0611 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 0612 0000 0000 | | .BLANK 0000[0x6] 0618 ; -------------------------------------------------------------------------------------- 0618 ; SUBPROGRAM 0618 ; -------------------------------------------------------------------------------------- 0618 061b | | .CONST 0x061b ; Address of begin 0619 0004 | | .CONST 0x0004 ; Address of exception handler 061a 0001 | | .CONST 0x0001 ; Number of locals 061b BODY_0618: 061b INIT_0618: 061b 4801 |H | Short_Literal 0x1 061c e5fc | | Load 0x2,-0x4 061d e237 | 7 | Load 0x1,0x37 061e 821b | | Call 0x1,0x1b 061f 821c | | Call 0x1,0x1c 0620 e5fd | | Load 0x2,-0x3 0621 e5fe | | Load 0x2,-0x2 0622 e5ff | | Load 0x2,-0x1 0623 823a | : | Call 0x1,0x3a 0624 e006 | | Load 0x0,0x6 0625 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0626 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0627 0000 | | .XXX[0x1] 0628 ; -------------------------------------------------------------------------------------- 0628 ; SUBPROGRAM 0628 ; -------------------------------------------------------------------------------------- 0628 062b | + | .CONST 0x062b ; Address of begin 0629 0004 | | .CONST 0x0004 ; Address of exception handler 062a 0001 | | .CONST 0x0001 ; Number of locals 062b BODY_0628: 062b INIT_0628: 062b 4801 |H | Short_Literal 0x1 062c e5fc | | Load 0x2,-0x4 062d e237 | 7 | Load 0x1,0x37 062e 821c | | Call 0x1,0x1c 062f e5fd | | Load 0x2,-0x3 0630 e5fe | | Load 0x2,-0x2 0631 e5ff | | Load 0x2,-0x1 0632 823b | ; | Call 0x1,0x3b 0633 e006 | | Load 0x0,0x6 0634 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0635 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0636 0000 0000 | | .XXX[0x2] 0638 ; -------------------------------------------------------------------------------------- 0638 ; SUBPROGRAM 0638 ; -------------------------------------------------------------------------------------- 0638 063b | ; | .CONST 0x063b ; Address of begin 0639 0004 | | .CONST 0x0004 ; Address of exception handler 063a 0001 | | .CONST 0x0001 ; Number of locals 063b BODY_0638: 063b INIT_0638: 063b e5ff | | Load 0x2,-0x1 063c e012 | | Load 0x0,0x12 063d 1812 | | Execute Package,Field_Execute,Field_Number 0x12 063e 823f | ? | Call 0x1,0x3f 063f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0640 ; -------------------------------------------------------------------------------------- 0640 ; SUBPROGRAM 0640 ; -------------------------------------------------------------------------------------- 0640 0645 | E | .CONST 0x0645 ; Address of begin 0641 0004 | | .CONST 0x0004 ; Address of exception handler 0642 0002 | | .CONST 0x0002 ; Number of locals 0643 INIT_0640: 0643 029f 08d3 | | Declare_Subprogram INIT_08d0,For_Call 0645 BODY_0640: 0645 e5ff | | Load 0x2,-0x1 0646 8402 | | Call 0x2,0x2 0647 e5fe | | Load 0x2,-0x2 0648 8402 | | Call 0x2,0x2 0649 017f | | Execute Record,Equal 064a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 064b 0000 0000 | | .BLANK 0000[0x5] 0650 ; -------------------------------------------------------------------------------------- 0650 ; SUBPROGRAM 0650 ; -------------------------------------------------------------------------------------- 0650 0653 | S | .CONST 0x0653 ; Address of begin 0651 0004 | | .CONST 0x0004 ; Address of exception handler 0652 0001 | | .CONST 0x0001 ; Number of locals 0653 BODY_0650: 0653 INIT_0650: 0653 0092 093c | <| Action Push_String_Extended,0x93c ; "Run the following on the remote machine:" 0655 e018 | | Load 0x0,0x18 0656 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0657 0092 0920 | | Action Push_String_Extended,0x920 ; "Accept_Tokens" 0659 e231 | 1 | Load 0x1,0x31 065a 180d | | Execute Package,Field_Execute,Field_Number 0xd 065b e5ff | | Load 0x2,-0x1 065c e230 | 0 | Load 0x1,0x30 065d 181d | | Execute Package,Field_Execute,Field_Number 0x1d 065e 0092 094a | J| Action Push_String_Extended,0x94a ; "Product" 0660 e231 | 1 | Load 0x1,0x31 0661 180e | | Execute Package,Field_Execute,Field_Number 0xe 0662 4820 |H | Short_Literal 0x20 0663 4800 |H | Short_Literal 0x0 0664 480a |H | Short_Literal 0xa 0665 e5fe | | Load 0x2,-0x2 0666 8233 | 3 | Call 0x1,0x33 0667 0092 094b | K| Action Push_String_Extended,0x94b ; "Donation" 0669 e231 | 1 | Load 0x1,0x31 066a 180e | | Execute Package,Field_Execute,Field_Number 0xe 066b 4820 |H | Short_Literal 0x20 066c 4800 |H | Short_Literal 0x0 066d 480a |H | Short_Literal 0xa 066e e5fd | | Load 0x2,-0x3 066f 8233 | 3 | Call 0x1,0x33 0670 0092 094c | L| Action Push_String_Extended,0x94c ; "Resulting_Count" 0672 e231 | 1 | Load 0x1,0x31 0673 180e | | Execute Package,Field_Execute,Field_Number 0xe 0674 e5fa | | Load 0x2,-0x6 0675 e5fb | | Load 0x2,-0x5 0676 e5fc | | Load 0x2,-0x4 0677 e5fd | | Load 0x2,-0x3 0678 e5fe | | Load 0x2,-0x2 0679 e5ff | | Load 0x2,-0x1 067a 823a | : | Call 0x1,0x3a 067b e230 | 0 | Load 0x1,0x30 067c 181d | | Execute Package,Field_Execute,Field_Number 0x1d 067d 0092 093e | >| Action Push_String_Extended,0x93e ; "Code" 067f e231 | 1 | Load 0x1,0x31 0680 180e | | Execute Package,Field_Execute,Field_Number 0xe 0681 e231 | 1 | Load 0x1,0x31 0682 180f | | Execute Package,Field_Execute,Field_Number 0xf 0683 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0684 0000 0000 | | .BLANK 0000[0x4] 0688 ; -------------------------------------------------------------------------------------- 0688 ; SUBPROGRAM 0688 ; -------------------------------------------------------------------------------------- 0688 068b | | .CONST 0x068b ; Address of begin 0689 0004 | | .CONST 0x0004 ; Address of exception handler 068a 0001 | | .CONST 0x0001 ; Number of locals 068b BODY_0688: 068b INIT_0688: 068b 0092 093c | <| Action Push_String_Extended,0x93c ; "Run the following on the remote machine:" 068d e018 | | Load 0x0,0x18 068e 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 068f 0092 0933 | 3| Action Push_String_Extended,0x933 ; "Convert_Tokens" 0691 e231 | 1 | Load 0x1,0x31 0692 180d | | Execute Package,Field_Execute,Field_Number 0xd 0693 e5ff | | Load 0x2,-0x1 0694 e230 | 0 | Load 0x1,0x30 0695 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0696 0092 094d | M| Action Push_String_Extended,0x94d ; "Current_Product" 0698 e231 | 1 | Load 0x1,0x31 0699 180e | | Execute Package,Field_Execute,Field_Number 0xe 069a e5fe | | Load 0x2,-0x2 069b e230 | 0 | Load 0x1,0x30 069c 181d | | Execute Package,Field_Execute,Field_Number 0x1d 069d 0092 094e | N| Action Push_String_Extended,0x94e ; "New_Product" 069f e231 | 1 | Load 0x1,0x31 06a0 180e | | Execute Package,Field_Execute,Field_Number 0xe 06a1 4820 |H | Short_Literal 0x20 06a2 4800 |H | Short_Literal 0x0 06a3 480a |H | Short_Literal 0xa 06a4 e5fd | | Load 0x2,-0x3 06a5 8233 | 3 | Call 0x1,0x33 06a6 0092 094f | O| Action Push_String_Extended,0x94f ; "Token_Count" 06a8 e231 | 1 | Load 0x1,0x31 06a9 180e | | Execute Package,Field_Execute,Field_Number 0xe 06aa e5fb | | Load 0x2,-0x5 06ab e5fc | | Load 0x2,-0x4 06ac e5fd | | Load 0x2,-0x3 06ad e5fe | | Load 0x2,-0x2 06ae e5ff | | Load 0x2,-0x1 06af 823b | ; | Call 0x1,0x3b 06b0 e230 | 0 | Load 0x1,0x30 06b1 181d | | Execute Package,Field_Execute,Field_Number 0x1d 06b2 0092 093e | >| Action Push_String_Extended,0x93e ; "Code" 06b4 e231 | 1 | Load 0x1,0x31 06b5 180e | | Execute Package,Field_Execute,Field_Number 0xe 06b6 e231 | 1 | Load 0x1,0x31 06b7 180f | | Execute Package,Field_Execute,Field_Number 0xf 06b8 4506 |E | Exit_Suprogram New_Top_Offset 0x6 06b9 0000 0000 | | .BLANK 0000[0x7] 06c0 ; -------------------------------------------------------------------------------------- 06c0 ; SUBPROGRAM 06c0 ; -------------------------------------------------------------------------------------- 06c0 06c3 | | .CONST 0x06c3 ; Address of begin 06c1 0004 | | .CONST 0x0004 ; Address of exception handler 06c2 0001 | | .CONST 0x0001 ; Number of locals 06c3 BODY_06c0: 06c3 INIT_06c0: 06c3 e5ff | | Load 0x2,-0x1 06c4 e22b | + | Load 0x1,0x2b 06c5 025f | _ | Execute Discrete,Not_In_Type 06c6 682a |h* | Jump_Zero 0x6f1 06c7 e5fc | | Load 0x2,-0x4 06c8 0092 0950 | P| Action Push_String_Extended,0x950 ; "The legal range of " 06ca e5fe | | Load 0x2,-0x2 06cb 01cc | | Execute Vector,Catenate 06cc 0092 0951 | Q| Action Push_String_Extended,0x951 ; " for " 06ce 01cc | | Execute Vector,Catenate 06cf e5fd | | Load 0x2,-0x3 06d0 01cc | | Execute Vector,Catenate 06d1 0092 0952 | R| Action Push_String_Extended,0x952 ; " is " 06d3 01cc | | Execute Vector,Catenate 06d4 4820 |H | Short_Literal 0x20 06d5 4800 |H | Short_Literal 0x0 06d6 480a |H | Short_Literal 0xa 06d7 4800 |H | Short_Literal 0x0 06d8 8233 | 3 | Call 0x1,0x33 06d9 01cc | | Execute Vector,Catenate 06da 0092 0953 | S| Action Push_String_Extended,0x953 ; ".." 06dc 01cc | | Execute Vector,Catenate 06dd 4820 |H | Short_Literal 0x20 06de 4800 |H | Short_Literal 0x0 06df 480a |H | Short_Literal 0xa 06e0 4840 |H@ | Short_Literal 0x40 06e1 8233 | 3 | Call 0x1,0x33 06e2 01cc | | Execute Vector,Catenate 06e3 0092 0954 | T| Action Push_String_Extended,0x954 ; ", but the value specified (" 06e5 01cc | | Execute Vector,Catenate 06e6 4820 |H | Short_Literal 0x20 06e7 4800 |H | Short_Literal 0x0 06e8 480a |H | Short_Literal 0xa 06e9 e5ff | | Load 0x2,-0x1 06ea 8233 | 3 | Call 0x1,0x33 06eb 01cc | | Execute Vector,Catenate 06ec 0092 0955 | U| Action Push_String_Extended,0x955 ; ") is outside that range" 06ee 01cc | | Execute Vector,Catenate 06ef e230 | 0 | Load 0x1,0x30 06f0 180d | | Execute Package,Field_Execute,Field_Number 0xd 06f1 4505 |E | Exit_Suprogram New_Top_Offset 0x5 06f2 0000 0000 | | .BLANK 0000[0x6] 06f8 ; -------------------------------------------------------------------------------------- 06f8 ; SUBPROGRAM 06f8 ; -------------------------------------------------------------------------------------- 06f8 06fb | | .CONST 0x06fb ; Address of begin 06f9 0004 | | .CONST 0x0004 ; Address of exception handler 06fa 0001 | | .CONST 0x0001 ; Number of locals 06fb BODY_06f8: 06fb INIT_06f8: 06fb e5ff | | Load 0x2,-0x1 06fc 01db | | Execute Vector,Length 06fd 7005 |p | Jump_Nonzero 0x703 06fe e5fe | | Load 0x2,-0x2 06ff 0092 0956 | V| Action Push_String_Extended,0x956 ; "Product name not specified." 0701 e230 | 0 | Load 0x1,0x30 0702 180d | | Execute Package,Field_Execute,Field_Number 0xd 0703 00cf | | Action Mark_Auxiliary 0704 e5ff | | Load 0x2,-0x1 0705 01d9 | | Execute Vector,Reverse_Bounds 0706 0263 | c | Execute Discrete,Above_Bound 0707 7018 |p | Jump_Nonzero 0x720 0708 00d8 | | Load_Top At_Offset_0 0709 e5ff | | Load 0x2,-0x1 070a 01d7 | | Execute Vector,Field_Read 070b 4820 |H | Short_Literal 0x20 070c 487e |H~ | Short_Literal 0x7e 070d 0261 | a | Execute Discrete,Not_In_Range 070e 680f |h | Jump_Zero 0x71e 070f e5fe | | Load 0x2,-0x2 0710 0092 0957 | W| Action Push_String_Extended,0x957 ; "Product name contains an illegal character (" 0712 e404 | | Load 0x2,0x4 0713 e5ff | | Load 0x2,-0x1 0714 01d7 | | Execute Vector,Field_Read 0715 00e8 | | Load_Encached Character_Cache 0716 011c | | Execute Any,Convert_Unchecked 0717 1c01 | | Execute_Immediate Run_Utility,0x1 0718 01cc | | Execute Vector,Catenate 0719 0092 0931 | 1| Action Push_String_Extended,0x931 ; ")." 071b 01cc | | Execute Vector,Catenate 071c e230 | 0 | Load 0x1,0x30 071d 180d | | Execute Package,Field_Execute,Field_Number 0xd 071e 00c8 | | Action Pop_Auxiliary_Range 071f 3fe8 |? | Loop_Increasing 0x708 0720 00ce | | Action Pop_Auxiliary 0721 e5ff | | Load 0x2,-0x1 0722 4820 |H | Short_Literal 0x20 0723 e5ff | | Load 0x2,-0x1 0724 e006 | | Load 0x0,0x6 0725 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0726 01de | | Execute Vector,Not_Equal 0727 6805 |h | Jump_Zero 0x72d 0728 e5fe | | Load 0x2,-0x2 0729 0092 0958 | X| Action Push_String_Extended,0x958 ; "Product name includes leading or trailing blanks." 072b e230 | 0 | Load 0x1,0x30 072c 180d | | Execute Package,Field_Execute,Field_Number 0xd 072d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 072e 0000 0000 | | .XXX[0x2] 0730 ; -------------------------------------------------------------------------------------- 0730 ; SUBPROGRAM 0730 ; -------------------------------------------------------------------------------------- 0730 0733 | 3 | .CONST 0x0733 ; Address of begin 0731 0004 | | .CONST 0x0004 ; Address of exception handler 0732 0001 | | .CONST 0x0001 ; Number of locals 0733 BODY_0730: 0733 INIT_0730: 0733 e5ff | | Load 0x2,-0x1 0734 01db | | Execute Vector,Length 0735 7005 |p | Jump_Nonzero 0x73b 0736 e5fe | | Load 0x2,-0x2 0737 0092 0959 | Y| Action Push_String_Extended,0x959 ; "Site name not specified." 0739 e230 | 0 | Load 0x1,0x30 073a 180d | | Execute Package,Field_Execute,Field_Number 0xd 073b 00cf | | Action Mark_Auxiliary 073c e5ff | | Load 0x2,-0x1 073d 01d9 | | Execute Vector,Reverse_Bounds 073e 0263 | c | Execute Discrete,Above_Bound 073f 7018 |p | Jump_Nonzero 0x758 0740 00d8 | | Load_Top At_Offset_0 0741 e5ff | | Load 0x2,-0x1 0742 01d7 | | Execute Vector,Field_Read 0743 4820 |H | Short_Literal 0x20 0744 487e |H~ | Short_Literal 0x7e 0745 0261 | a | Execute Discrete,Not_In_Range 0746 680f |h | Jump_Zero 0x756 0747 e5fe | | Load 0x2,-0x2 0748 0092 095a | Z| Action Push_String_Extended,0x95a ; "Site name contains an illegal character (" 074a e404 | | Load 0x2,0x4 074b e5ff | | Load 0x2,-0x1 074c 01d7 | | Execute Vector,Field_Read 074d 00e8 | | Load_Encached Character_Cache 074e 011c | | Execute Any,Convert_Unchecked 074f 1c01 | | Execute_Immediate Run_Utility,0x1 0750 01cc | | Execute Vector,Catenate 0751 0092 0931 | 1| Action Push_String_Extended,0x931 ; ")." 0753 01cc | | Execute Vector,Catenate 0754 e230 | 0 | Load 0x1,0x30 0755 180d | | Execute Package,Field_Execute,Field_Number 0xd 0756 00c8 | | Action Pop_Auxiliary_Range 0757 3fe8 |? | Loop_Increasing 0x740 0758 00ce | | Action Pop_Auxiliary 0759 e5ff | | Load 0x2,-0x1 075a 4820 |H | Short_Literal 0x20 075b e5ff | | Load 0x2,-0x1 075c e006 | | Load 0x0,0x6 075d 181c | | Execute Package,Field_Execute,Field_Number 0x1c 075e 01de | | Execute Vector,Not_Equal 075f 6805 |h | Jump_Zero 0x765 0760 e5fe | | Load 0x2,-0x2 0761 0092 095b | [| Action Push_String_Extended,0x95b ; "Site name includes leading or trailing blanks." 0763 e230 | 0 | Load 0x1,0x30 0764 180d | | Execute Package,Field_Execute,Field_Number 0xd 0765 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0766 0000 0000 | | .XXX[0x2] 0768 ; -------------------------------------------------------------------------------------- 0768 ; SUBPROGRAM 0768 ; -------------------------------------------------------------------------------------- 0768 076d | m | .CONST 0x076d ; Address of begin 0769 0004 | | .CONST 0x0004 ; Address of exception handler 076a 0002 | | .CONST 0x0002 ; Number of locals 076b INIT_0768: 076b 029f 08f3 | | Declare_Subprogram INIT_08f0,For_Call 076d BODY_0768: 076d 4820 |H | Short_Literal 0x20 076e e5ff | | Load 0x2,-0x1 076f e006 | | Load 0x0,0x6 0770 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0771 01db | | Execute Vector,Length 0772 7001 |p | Jump_Nonzero 0x774 0773 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0774 00cf | | Action Mark_Auxiliary 0775 e5ff | | Load 0x2,-0x1 0776 01d9 | | Execute Vector,Reverse_Bounds 0777 0263 | c | Execute Discrete,Above_Bound 0778 7018 |p | Jump_Nonzero 0x791 0779 00d8 | | Load_Top At_Offset_0 077a e5ff | | Load 0x2,-0x1 077b 01d7 | | Execute Vector,Field_Read 077c 4820 |H | Short_Literal 0x20 077d 487e |H~ | Short_Literal 0x7e 077e 0261 | a | Execute Discrete,Not_In_Range 077f 680f |h | Jump_Zero 0x78f 0780 e5fe | | Load 0x2,-0x2 0781 0092 095c | \| Action Push_String_Extended,0x95c ; "Date contains an illegal character (" 0783 e405 | | Load 0x2,0x5 0784 e5ff | | Load 0x2,-0x1 0785 01d7 | | Execute Vector,Field_Read 0786 00e8 | | Load_Encached Character_Cache 0787 011c | | Execute Any,Convert_Unchecked 0788 1c01 | | Execute_Immediate Run_Utility,0x1 0789 01cc | | Execute Vector,Catenate 078a 0092 0931 | 1| Action Push_String_Extended,0x931 ; ")." 078c 01cc | | Execute Vector,Catenate 078d e230 | 0 | Load 0x1,0x30 078e 180d | | Execute Package,Field_Execute,Field_Number 0xd 078f 00c8 | | Action Pop_Auxiliary_Range 0790 3fe8 |? | Loop_Increasing 0x779 0791 00ce | | Action Pop_Auxiliary 0792 8402 | | Call 0x2,0x2 0793 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0794 0000 0000 | | .BLANK 0000[0x4] 0798 ; -------------------------------------------------------------------------------------- 0798 ; SUBPROGRAM 0798 ; -------------------------------------------------------------------------------------- 0798 07a1 | | .CONST 0x07a1 ; Address of begin 0799 0004 | | .CONST 0x0004 ; Address of exception handler 079a 0003 | | .CONST 0x0003 ; Number of locals 079b INIT_0798: 079b e5ff | | Load 0x2,-0x1 079c 8248 | H | Call 0x1,0x48 079d 00e3 | | Load_Encached Natural_Cache 079e 03f1 | | Declare_Variable Discrete,With_Value 079f 029f 090b | | Declare_Subprogram INIT_0908,For_Call 07a1 BODY_0798: 07a1 e5fc | | Load 0x2,-0x4 07a2 e5ff | | Load 0x2,-0x1 07a3 0092 094b | K| Action Push_String_Extended,0x94b ; "Donation" 07a5 e5fe | | Load 0x2,-0x2 07a6 8242 | B | Call 0x1,0x42 07a7 e5fc | | Load 0x2,-0x4 07a8 e5ff | | Load 0x2,-0x1 07a9 0092 094c | L| Action Push_String_Extended,0x94c ; "Resulting_Count" 07ab e5fd | | Load 0x2,-0x3 07ac 8242 | B | Call 0x1,0x42 07ad e5fe | | Load 0x2,-0x2 07ae e5fd | | Load 0x2,-0x3 07af 027d | } | Execute Discrete,Greater 07b0 681c |h | Jump_Zero 0x7cd 07b1 e5fc | | Load 0x2,-0x4 07b2 0092 095d | ]| Action Push_String_Extended,0x95d ; "The number of tokens (" 07b4 4820 |H | Short_Literal 0x20 07b5 4800 |H | Short_Literal 0x0 07b6 480a |H | Short_Literal 0xa 07b7 e5fe | | Load 0x2,-0x2 07b8 8233 | 3 | Call 0x1,0x33 07b9 01cc | | Execute Vector,Catenate 07ba 0092 095e | ^| Action Push_String_Extended,0x95e ; ") for " 07bc 01cc | | Execute Vector,Catenate 07bd e5ff | | Load 0x2,-0x1 07be 01cc | | Execute Vector,Catenate 07bf 0092 095f | _| Action Push_String_Extended,0x95f ; " exceeds the target authorization (" 07c1 01cc | | Execute Vector,Catenate 07c2 4820 |H | Short_Literal 0x20 07c3 4800 |H | Short_Literal 0x0 07c4 480a |H | Short_Literal 0xa 07c5 e5fd | | Load 0x2,-0x3 07c6 8233 | 3 | Call 0x1,0x33 07c7 01cc | | Execute Vector,Catenate 07c8 0092 0931 | 1| Action Push_String_Extended,0x931 ; ")." 07ca 01cc | | Execute Vector,Catenate 07cb e230 | 0 | Load 0x1,0x30 07cc 180d | | Execute Package,Field_Execute,Field_Number 0xd 07cd e5fe | | Load 0x2,-0x2 07ce e5fd | | Load 0x2,-0x3 07cf 027f | | Execute Discrete,Equal 07d0 6820 |h | Jump_Zero 0x7f1 07d1 4801 |H | Short_Literal 0x1 07d2 e22d | - | Load 0x1,0x2d 07d3 e5ff | | Load 0x2,-0x1 07d4 e006 | | Load 0x0,0x6 07d5 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 07d6 6805 |h | Jump_Zero 0x7dc 07d7 e22e | . | Load 0x1,0x2e 07d8 8403 | | Call 0x2,0x3 07d9 e22f | / | Load 0x1,0x2f 07da 8403 | | Call 0x2,0x3 07db 4505 |E | Exit_Suprogram New_Top_Offset 0x5 07dc 4801 |H | Short_Literal 0x1 07dd e22e | . | Load 0x1,0x2e 07de e5ff | | Load 0x2,-0x1 07df e006 | | Load 0x0,0x6 07e0 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 07e1 6805 |h | Jump_Zero 0x7e7 07e2 e22d | - | Load 0x1,0x2d 07e3 8403 | | Call 0x2,0x3 07e4 e22f | / | Load 0x1,0x2f 07e5 8403 | | Call 0x2,0x3 07e6 4505 |E | Exit_Suprogram New_Top_Offset 0x5 07e7 4801 |H | Short_Literal 0x1 07e8 e22f | / | Load 0x1,0x2f 07e9 e5ff | | Load 0x2,-0x1 07ea e006 | | Load 0x0,0x6 07eb 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 07ec 6804 |h | Jump_Zero 0x7f1 07ed e22e | . | Load 0x1,0x2e 07ee 8403 | | Call 0x2,0x3 07ef e22d | - | Load 0x1,0x2d 07f0 8403 | | Call 0x2,0x3 07f1 4505 |E | Exit_Suprogram New_Top_Offset 0x5 07f2 0000 0000 | | .BLANK 0000[0x6] 07f8 ; -------------------------------------------------------------------------------------- 07f8 ; SUBPROGRAM 07f8 ; -------------------------------------------------------------------------------------- 07f8 0803 | | .CONST 0x0803 ; Address of begin 07f9 0004 | | .CONST 0x0004 ; Address of exception handler 07fa 0003 | | .CONST 0x0003 ; Number of locals 07fb INIT_07f8: 07fb e5ff | | Load 0x2,-0x1 07fc 8248 | H | Call 0x1,0x48 07fd 00e3 | | Load_Encached Natural_Cache 07fe 03f1 | | Declare_Variable Discrete,With_Value 07ff e5ff | | Load 0x2,-0x1 0800 824a | J | Call 0x1,0x4a 0801 00e3 | | Load_Encached Natural_Cache 0802 03f1 | | Declare_Variable Discrete,With_Value 0803 BODY_07f8: 0803 e402 | | Load 0x2,0x2 0804 700a |p | Jump_Nonzero 0x80f 0805 e5fd | | Load 0x2,-0x3 0806 0092 0960 | `| Action Push_String_Extended,0x960 ; "There are currently no tokens for " 0808 e5ff | | Load 0x2,-0x1 0809 01cc | | Execute Vector,Catenate 080a 0092 0961 | a| Action Push_String_Extended,0x961 ; ", so they can't be donated." 080c 01cc | | Execute Vector,Catenate 080d e230 | 0 | Load 0x1,0x30 080e 180d | | Execute Package,Field_Execute,Field_Number 0xd 080f e5fe | | Load 0x2,-0x2 0810 e402 | | Load 0x2,0x2 0811 027d | } | Execute Discrete,Greater 0812 681c |h | Jump_Zero 0x82f 0813 e5fd | | Load 0x2,-0x3 0814 0092 0962 | b| Action Push_String_Extended,0x962 ; "The requested donation (" 0816 4820 |H | Short_Literal 0x20 0817 4800 |H | Short_Literal 0x0 0818 480a |H | Short_Literal 0xa 0819 e5fe | | Load 0x2,-0x2 081a 8233 | 3 | Call 0x1,0x33 081b 01cc | | Execute Vector,Catenate 081c 0092 095e | ^| Action Push_String_Extended,0x95e ; ") for " 081e 01cc | | Execute Vector,Catenate 081f e5ff | | Load 0x2,-0x1 0820 01cc | | Execute Vector,Catenate 0821 0092 0963 | c| Action Push_String_Extended,0x963 ; "exceeds the current limit (" 0823 01cc | | Execute Vector,Catenate 0824 4820 |H | Short_Literal 0x20 0825 4800 |H | Short_Literal 0x0 0826 480a |H | Short_Literal 0xa 0827 e402 | | Load 0x2,0x2 0828 8233 | 3 | Call 0x1,0x33 0829 01cc | | Execute Vector,Catenate 082a 0092 0931 | 1| Action Push_String_Extended,0x931 ; ")." 082c 01cc | | Execute Vector,Catenate 082d e230 | 0 | Load 0x1,0x30 082e 180d | | Execute Package,Field_Execute,Field_Number 0xd 082f e402 | | Load 0x2,0x2 0830 e5fe | | Load 0x2,-0x2 0831 0272 | r | Execute Discrete,Minus 0832 e403 | | Load 0x2,0x3 0833 027c | | | Execute Discrete,Less 0834 6813 |h | Jump_Zero 0x848 0835 e5fd | | Load 0x2,-0x3 0836 0092 0964 | d| Action Push_String_Extended,0x964 ; "Donation of " 0838 4820 |H | Short_Literal 0x20 0839 4800 |H | Short_Literal 0x0 083a 480a |H | Short_Literal 0xa 083b e5fe | | Load 0x2,-0x2 083c 8233 | 3 | Call 0x1,0x33 083d 01cc | | Execute Vector,Catenate 083e 0092 0965 | e| Action Push_String_Extended,0x965 ; " tokens for " 0840 01cc | | Execute Vector,Catenate 0841 e5ff | | Load 0x2,-0x1 0842 01cc | | Execute Vector,Catenate 0843 0092 0966 | f| Action Push_String_Extended,0x966 ; " would transfer tokens currently in use." 0845 01cc | | Execute Vector,Catenate 0846 e230 | 0 | Load 0x1,0x30 0847 180d | | Execute Package,Field_Execute,Field_Number 0xd 0848 e402 | | Load 0x2,0x2 0849 e5fe | | Load 0x2,-0x2 084a 0272 | r | Execute Discrete,Minus 084b 00d8 | | Load_Top At_Offset_0 084c 00e3 | | Load_Encached Natural_Cache 084d 0260 | ` | Execute Discrete,In_Type 084e 7001 |p | Jump_Nonzero 0x850 084f 0801 | | Execute_Immediate Raise,0x1 0850 e5ff | | Load 0x2,-0x1 0851 e017 | | Load 0x0,0x17 0852 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0853 e5fd | | Load 0x2,-0x3 0854 0092 0964 | d| Action Push_String_Extended,0x964 ; "Donation of " 0856 4820 |H | Short_Literal 0x20 0857 4800 |H | Short_Literal 0x0 0858 480a |H | Short_Literal 0xa 0859 e5fe | | Load 0x2,-0x2 085a 8233 | 3 | Call 0x1,0x33 085b 01cc | | Execute Vector,Catenate 085c 0092 0965 | e| Action Push_String_Extended,0x965 ; " tokens for " 085e 01cc | | Execute Vector,Catenate 085f e5ff | | Load 0x2,-0x1 0860 01cc | | Execute Vector,Catenate 0861 0092 0967 | g| Action Push_String_Extended,0x967 ; " has resulted in " 0863 01cc | | Execute Vector,Catenate 0864 4820 |H | Short_Literal 0x20 0865 4800 |H | Short_Literal 0x0 0866 480a |H | Short_Literal 0xa 0867 e5ff | | Load 0x2,-0x1 0868 8248 | H | Call 0x1,0x48 0869 8233 | 3 | Call 0x1,0x33 086a 01cc | | Execute Vector,Catenate 086b 0092 0968 | h| Action Push_String_Extended,0x968 ; " tokens." 086d 01cc | | Execute Vector,Catenate 086e e230 | 0 | Load 0x1,0x30 086f 180f | | Execute Package,Field_Execute,Field_Number 0xf 0870 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0871 0000 0000 | | .BLANK 0000[0x7] 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 e017 | | Load 0x0,0x17 087d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 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 e017 | | Load 0x0,0x17 088d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 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 089b | | .CONST 0x089b ; Address of begin 0899 089f | | .CONST 0x089f ; Address of exception handler 089a 0001 | | .CONST 0x0001 ; Number of locals 089b BODY_0898: 089b INIT_0898: 089b e5ff | | Load 0x2,-0x1 089c e017 | | Load 0x0,0x17 089d 1817 | | Execute Package,Field_Execute,Field_Number 0x17 089e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 089f TRAP_0898: 089f 0007 | | Action Break_Optional 08a0 4800 |H | Short_Literal 0x0 08a1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08a2 0000 0000 | | .BLANK 0000[0x6] 08a8 ; -------------------------------------------------------------------------------------- 08a8 ; SUBPROGRAM 08a8 ; -------------------------------------------------------------------------------------- 08a8 08b1 | | .CONST 0x08b1 ; Address of begin 08a9 0004 | | .CONST 0x0004 ; Address of exception handler 08aa 0002 | | .CONST 0x0002 ; Number of locals 08ab INIT_08a8: 08ab e5ff | | Load 0x2,-0x1 08ac e017 | | Load 0x0,0x17 08ad 180e | | Execute Package,Field_Execute,Field_Number 0xe 08ae e017 | | Load 0x0,0x17 08af 1b0d | | Execute Package,Field_Read,Field_Number 0xd 08b0 03f1 | | Declare_Variable Discrete,With_Value 08b1 BODY_08a8: 08b1 00d8 | | Load_Top At_Offset_0 08b2 6804 |h | Jump_Zero 0x8b7 08b3 00d8 | | Load_Top At_Offset_0 08b4 e017 | | Load 0x0,0x17 08b5 1810 | | Execute Package,Field_Execute,Field_Number 0x10 08b6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08b7 4800 |H | Short_Literal 0x0 08b8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08b9 0000 0000 | | .BLANK 0000[0x7] 08c0 ; -------------------------------------------------------------------------------------- 08c0 ; SUBPROGRAM 08c0 ; -------------------------------------------------------------------------------------- 08c0 08c5 | | .CONST 0x08c5 ; Address of begin 08c1 0004 | | .CONST 0x0004 ; Address of exception handler 08c2 0002 | | .CONST 0x0002 ; Number of locals 08c3 INIT_08c0: 08c3 0092 0969 | i| Action Push_String_Extended,0x969 ; "1/1/90" 08c5 BODY_08c0: 08c5 00d8 | | Load_Top At_Offset_0 08c6 e602 | | Load 0x3,0x2 08c7 821c | | Call 0x1,0x1c 08c8 e5ff | | Load 0x2,-0x1 08c9 e008 | | Load 0x0,0x8 08ca 1815 | | Execute Package,Field_Execute,Field_Number 0x15 08cb e5ff | | Load 0x2,-0x1 08cc e008 | | Load 0x0,0x8 08cd 180d | | Execute Package,Field_Execute,Field_Number 0xd 08ce 4501 |E | Exit_Suprogram New_Top_Offset 0x1 08cf 0000 | | .XXX[0x1] 08d0 ; -------------------------------------------------------------------------------------- 08d0 ; SUBPROGRAM 08d0 ; -------------------------------------------------------------------------------------- 08d0 08db | | .CONST 0x08db ; Address of begin 08d1 0004 | | .CONST 0x0004 ; Address of exception handler 08d2 0002 | | .CONST 0x0002 ; Number of locals 08d3 INIT_08d0: 08d3 e007 | | Load 0x0,0x7 08d4 1b14 | | Execute Package,Field_Read,Field_Number 0x14 08d5 0322 | " | Declare_Variable Record 08d6 e7ff | | Load 0x3,-0x1 08d7 e007 | | Load 0x0,0x7 08d8 1816 | | Execute Package,Field_Execute,Field_Number 0x16 08d9 e602 | | Load 0x3,0x2 08da 017d | } | Execute Record,Structure_Write 08db BODY_08d0: 08db 4800 |H | Short_Literal 0x0 08dc e602 | | Load 0x3,0x2 08dd 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 08de 4800 |H | Short_Literal 0x0 08df e602 | | Load 0x3,0x2 08e0 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 08e1 4801 |H | Short_Literal 0x1 08e2 e602 | | Load 0x3,0x2 08e3 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 08e4 4800 |H | Short_Literal 0x0 08e5 e602 | | Load 0x3,0x2 08e6 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 08e7 00d8 | | Load_Top At_Offset_0 08e8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08e9 0000 0000 | | .BLANK 0000[0x7] 08f0 ; -------------------------------------------------------------------------------------- 08f0 ; SUBPROGRAM 08f0 ; -------------------------------------------------------------------------------------- 08f0 08f6 | | .CONST 0x08f6 ; Address of begin 08f1 08fc | | .CONST 0x08fc ; Address of exception handler 08f2 0002 | | .CONST 0x0002 ; Number of locals 08f3 INIT_08f0: 08f3 e007 | | Load 0x0,0x7 08f4 1b14 | | Execute Package,Field_Read,Field_Number 0x14 08f5 0322 | " | Declare_Variable Record 08f6 BODY_08f0: 08f6 e5ff | | Load 0x2,-0x1 08f7 e007 | | Load 0x0,0x7 08f8 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 08f9 e602 | | Load 0x3,0x2 08fa 017d | } | Execute Record,Structure_Write 08fb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 08fc TRAP_08f0: 08fc 0007 | | Action Break_Optional 08fd e5fe | | Load 0x2,-0x2 08fe 0092 096a | j| Action Push_String_Extended,0x96a ; "Date (" 0900 e5ff | | Load 0x2,-0x1 0901 01cc | | Execute Vector,Catenate 0902 0092 096b | k| Action Push_String_Extended,0x96b ; ") doesn't represent a legal date." 0904 01cc | | Execute Vector,Catenate 0905 e230 | 0 | Load 0x1,0x30 0906 180d | | Execute Package,Field_Execute,Field_Number 0xd 0907 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0908 ; -------------------------------------------------------------------------------------- 0908 ; SUBPROGRAM 0908 ; -------------------------------------------------------------------------------------- 0908 090b | | .CONST 0x090b ; Address of begin 0909 0004 | | .CONST 0x0004 ; Address of exception handler 090a 0001 | | .CONST 0x0001 ; Number of locals 090b BODY_0908: 090b INIT_0908: 090b e7ff | | Load 0x3,-0x1 090c 824b | K | Call 0x1,0x4b 090d 680e |h | Jump_Zero 0x91c 090e e5fc | | Load 0x2,-0x4 090f 482e |H. | Short_Literal 0x2e 0910 0092 096c | l| Action Push_String_Extended,0x96c ; "Active tokens for " 0912 e7ff | | Load 0x3,-0x1 0913 01cc | | Execute Vector,Catenate 0914 0092 096d | m| Action Push_String_Extended,0x96d ; " make it impossible to accept tokens for " 0916 01cc | | Execute Vector,Catenate 0917 e5ff | | Load 0x2,-0x1 0918 01cc | | Execute Vector,Catenate 0919 01cb | | Execute Vector,Append 091a e230 | 0 | Load 0x1,0x30 091b 180d | | Execute Package,Field_Execute,Field_Number 0xd 091c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 091d ; -------------------------------------------------------------------------------------- 091d ; STRING TABLE 091d ; -------------------------------------------------------------------------------------- 091d 00a4 | | .STRTAB 0x00a4->0x096f ; "Login" 091e 00a7 | | .STRTAB 0x00a7->0x0971 ; "Full Session" 091f 00b1 | | .STRTAB 0x00b1->0x0977 ; "Fundamental Session" 0920 00c2 | | .STRTAB 0x00c2->0x0981 ; "Accept_Tokens" 0921 00cd | | .STRTAB 0x00cd->0x0987 ; "This machine has donated tokens today; it may not also accept them" 0922 010d | | .STRTAB 0x010d->0x09a8 ; "The sum of currently authorized tokens and Donations (" 0923 0141 | A | .STRTAB 0x0141->0x09c3 ; ") is NOT equal to Resulting_Count parameter (" 0924 016c | l | .STRTAB 0x016c->0x09da ; "); these must be equal in order to proceed." 0925 0195 | | .STRTAB 0x0195->0x09ef ; "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 (" 0926 027d | } | .STRTAB 0x027d->0x0a64 ; "), a transcription error of the Machine ID of this machine (" 0927 02b7 | | .STRTAB 0x02b7->0x0a82 ; "), a delay in posting the request (code only valid for one day), " 0928 02f6 | | .STRTAB 0x02f6->0x0aa3 ; "or some other combination of parameter problems. " 0929 0326 | & | .STRTAB 0x0326->0x0abc ; "Contact your Rational representative for further assistance." 092a 0360 | ` | .STRTAB 0x0360->0x0ada ; " tokens set to " 092b 036d | m | .STRTAB 0x036d->0x0ae1 ; "Donate_Tokens" 092c 0378 | x | .STRTAB 0x0378->0x0ae8 ; "Remote_Machine_ID specified is the Machine_ID for this machine." 092d 03b5 | | .STRTAB 0x03b5->0x0b07 ; "This machine has accepted tokens today; it may not also give them up" 092e 03f7 | | .STRTAB 0x03f7->0x0b29 ; "Set_Site" 092f 03fd | | .STRTAB 0x03fd->0x0b2d ; "Code (" 0930 0401 | | .STRTAB 0x0401->0x0b30 ; ") does not correspond to Site (" 0931 041e | | .STRTAB 0x041e->0x0b40 ; ")." 0932 041e | | .STRTAB 0x041e->0x0b41 ; "Site set to " 0933 0428 | ( | .STRTAB 0x0428->0x0b47 ; "Convert_Tokens" 0934 0434 | 4 | .STRTAB 0x0434->0x0b4e ; "The token count for the current product (" 0935 045b | [ | .STRTAB 0x045b->0x0b62 ; ") is NOT equal to Token_Count parameter (" 0936 0482 | | .STRTAB 0x0482->0x0b77 ; "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 (" 0937 0536 | 6 | .STRTAB 0x0536->0x0bd2 ; " has no more tokens." 0938 0548 | H | .STRTAB 0x0548->0x0bdc ; "Allow_Token_Conversion" 0939 055c | \ | .STRTAB 0x055c->0x0be7 ; "Must be run from a Rational site." 093a 057b | { | .STRTAB 0x057b->0x0bf7 ; "Assign_Tokens" 093b 0586 | | .STRTAB 0x0586->0x0bfe ; "Assign_Site" 093c 058f | | .STRTAB 0x058f->0x0c03 ; "Run the following on the remote machine:" 093d 05b5 | | .STRTAB 0x05b5->0x0c17 ; "Site" 093e 05b7 | | .STRTAB 0x05b7->0x0c19 ; "Code" 093f 05b9 | | .STRTAB 0x05b9->0x0c1b ; "Training" 0940 05bf | | .STRTAB 0x05bf->0x0c1f ; "Training_Authorization" 0941 05d3 | | .STRTAB 0x05d3->0x0c2a ; "Product and Token authorization checking has been reinstated." 0942 060e | | .STRTAB 0x060e->0x0c49 ; "Authorization_Checking_Reinstated" 0943 062d | - | .STRTAB 0x062d->0x0c59 ; "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." 0944 06f8 | | .STRTAB 0x06f8->0x0cc0 ; "Authorization_Checking_Suspended" 0945 0716 | | .STRTAB 0x0716->0x0cd0 ; "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." 0946 07bd | | .STRTAB 0x07bd->0x0d24 ; "Authorization_Code_Error" 0947 07d3 | | .STRTAB 0x07d3->0x0d30 ; "/" 0948 07d2 | | .STRTAB 0x07d2->0x0d31 ; "=" 0949 07d1 | | .STRTAB 0x07d1->0x0d31 ; "|" 094a 07d0 | | .STRTAB 0x07d0->0x0d32 ; "Product" 094b 07d5 | | .STRTAB 0x07d5->0x0d35 ; "Donation" 094c 07db | | .STRTAB 0x07db->0x0d39 ; "Resulting_Count" 094d 07e8 | | .STRTAB 0x07e8->0x0d41 ; "Current_Product" 094e 07f5 | | .STRTAB 0x07f5->0x0d48 ; "New_Product" 094f 07fe | | .STRTAB 0x07fe->0x0d4e ; "Token_Count" 0950 0807 | | .STRTAB 0x0807->0x0d53 ; "The legal range of " 0951 0818 | | .STRTAB 0x0818->0x0d5d ; " for " 0952 081b | | .STRTAB 0x081b->0x0d5f ; " is " 0953 081d | | .STRTAB 0x081d->0x0d61 ; ".." 0954 081d | | .STRTAB 0x081d->0x0d62 ; ", but the value specified (" 0955 0836 | 6 | .STRTAB 0x0836->0x0d70 ; ") is outside that range" 0956 084b | K | .STRTAB 0x084b->0x0d7b ; "Product name not specified." 0957 0864 | d | .STRTAB 0x0864->0x0d89 ; "Product name contains an illegal character (" 0958 088e | | .STRTAB 0x088e->0x0d9f ; "Product name includes leading or trailing blanks." 0959 08bd | | .STRTAB 0x08bd->0x0db7 ; "Site name not specified." 095a 08d3 | | .STRTAB 0x08d3->0x0dc3 ; "Site name contains an illegal character (" 095b 08fa | | .STRTAB 0x08fa->0x0dd8 ; "Site name includes leading or trailing blanks." 095c 0926 | & | .STRTAB 0x0926->0x0def ; "Date contains an illegal character (" 095d 0948 | H | .STRTAB 0x0948->0x0e01 ; "The number of tokens (" 095e 095c | \ | .STRTAB 0x095c->0x0e0c ; ") for " 095f 0960 | ` | .STRTAB 0x0960->0x0e0f ; " exceeds the target authorization (" 0960 0981 | | .STRTAB 0x0981->0x0e20 ; "There are currently no tokens for " 0961 09a1 | | .STRTAB 0x09a1->0x0e31 ; ", so they can't be donated." 0962 09ba | | .STRTAB 0x09ba->0x0e3f ; "The requested donation (" 0963 09d0 | | .STRTAB 0x09d0->0x0e4b ; "exceeds the current limit (" 0964 09e9 | | .STRTAB 0x09e9->0x0e58 ; "Donation of " 0965 09f3 | | .STRTAB 0x09f3->0x0e5e ; " tokens for " 0966 09fd | | .STRTAB 0x09fd->0x0e64 ; " would transfer tokens currently in use." 0967 0a23 | # | .STRTAB 0x0a23->0x0e78 ; " has resulted in " 0968 0a32 | 2 | .STRTAB 0x0a32->0x0e81 ; " tokens." 0969 0a38 | 8 | .STRTAB 0x0a38->0x0e85 ; "1/1/90" 096a 0a3c | < | .STRTAB 0x0a3c->0x0e88 ; "Date (" 096b 0a40 | @ | .STRTAB 0x0a40->0x0e8b ; ") doesn't represent a legal date." 096c 0a5f | _ | .STRTAB 0x0a5f->0x0e9b ; "Active tokens for " 096d 0a6f | o | .STRTAB 0x0a6f->0x0ea4 ; " make it impossible to accept tokens for " 096e 0a96 | | .STREND 0x0a96->0x0eb9 096f 4c6f 6769 |Logi| .STRTAB_STRINGS 0eb9 0000 0000 | | .BLANK 0000[0x7] 0ec0 ; -------------------------------------------------------------------------------------- 0ec0 ; Debug Table 0ec0 ; -------------------------------------------------------------------------------------- 0ec0 0004 000d | | .DEBUG4 0x0004,0x000d,0x00ca,0x0000,0x0001,0x0000 0ec6 0000 0000 | | .BLANK 0000[0x13a]