|
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]