DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦9bbadec52⟧

    Length: 8192 (0x2000)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0df8e0

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

Disassembly

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 0f90       |    |		.CONST	0x0f90								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 8009       |    |		.CONST	0x8009								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0131       | 1  |		.CONST	0x0131								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0056       | V  |		.CONST	0x0056								; 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 00c4       |    |		Action	Make_Default
002a 00c4       |    |		Action	Make_Default
002b 00c4       |    |		Action	Make_Default
002c 00c4       |    |		Action	Make_Default
002d 00c4       |    |		Action	Make_Default
002e 00c4       |    |		Action	Make_Default
002f 00c4       |    |		Action	Make_Default
0030 00c4       |    |		Action	Make_Default
0031 00c4       |    |		Action	Make_Default
0032 00c4       |    |		Action	Make_Default
0033 029a 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Outer_Call,Visible,Unelaborated
0035 c22b       | +  |		Store	0x1,0x2b
0036 029a 021b  |    |		Declare_Subprogram	INIT_0218,For_Outer_Call,Visible,Unelaborated
0038 c219       |    |		Store	0x1,0x19
0039 029a 028b  |    |		Declare_Subprogram	INIT_0288,For_Outer_Call,Visible,Unelaborated
003b c22c       | ,  |		Store	0x1,0x2c
003c 029a 02eb  |    |		Declare_Subprogram	INIT_02e8,For_Outer_Call,Visible,Unelaborated
003e c21b       |    |		Store	0x1,0x1b
003f 029a 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Outer_Call,Visible,Unelaborated
0041 c21c       |    |		Store	0x1,0x1c
0042 e001       |    |		Load	0x0,0x1
0043 02a8       |    |		Declare_Subprogram	For_Call,Visible,Unelaborated,With_Address
0044 c21d       |    |		Store	0x1,0x1d
0045 029a 02fb  |    |		Declare_Subprogram	INIT_02f8,For_Outer_Call,Visible,Unelaborated
0047 c22d       | -  |		Store	0x1,0x2d
0048 029a 03bb  |    |		Declare_Subprogram	INIT_03b8,For_Outer_Call,Visible,Unelaborated
004a c22e       | .  |		Store	0x1,0x2e
004b 029a 042b  |   +|		Declare_Subprogram	INIT_0428,For_Outer_Call,Visible,Unelaborated
004d c22f       | /  |		Store	0x1,0x2f
004e 029a 04ab  |    |		Declare_Subprogram	INIT_04a8,For_Outer_Call,Visible,Unelaborated
0050 c230       | 0  |		Store	0x1,0x30
0051 029a 04fb  |    |		Declare_Subprogram	INIT_04f8,For_Outer_Call,Visible,Unelaborated
0053 c231       | 1  |		Store	0x1,0x31
0054 029a 0553  |   S|		Declare_Subprogram	INIT_0550,For_Outer_Call,Visible,Unelaborated
0056 c232       | 2  |		Store	0x1,0x32
0057 029a 057b  |   {|		Declare_Subprogram	INIT_0578,For_Outer_Call,Visible,Unelaborated
0059 c233       | 3  |		Store	0x1,0x33
005a 029a 05eb  |    |		Declare_Subprogram	INIT_05e8,For_Outer_Call,Visible,Unelaborated
005c c212       |    |		Store	0x1,0x12
005d 029a 05f3  |    |		Declare_Subprogram	INIT_05f0,For_Outer_Call,Visible,Unelaborated
005f c220       |    |		Store	0x1,0x20
0060 029a 05fb  |    |		Declare_Subprogram	INIT_05f8,For_Outer_Call,Visible,Unelaborated
0062 c214       |    |		Store	0x1,0x14
0063 029a 0603  |    |		Declare_Subprogram	INIT_0600,For_Outer_Call,Visible,Unelaborated
0065 c221       | !  |		Store	0x1,0x21
0066 029a 060b  |    |		Declare_Subprogram	INIT_0608,For_Outer_Call,Visible,Unelaborated
0068 c222       | "  |		Store	0x1,0x22
0069 029a 0613  |    |		Declare_Subprogram	INIT_0610,For_Outer_Call,Visible,Unelaborated
006b c234       | 4  |		Store	0x1,0x34
006c 00bf       |    |		Action	Accept_Activation
006d 4800       |H   |		Short_Literal	0x0
006e 4840       |H@  |		Short_Literal	0x40
006f 00e2       |    |		Load_Encached	Integer_Cache
0070 03f8       |    |		Declare_Type	Discrete,Constrained
0071 e002       |    |		Load	0x0,0x2
0072 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0073 0092 0995  |    |		Action	Push_String_Extended,0x995					; "Login"
0075 0092 0996  |    |		Action	Push_String_Extended,0x996					; "Full Session"
0077 0092 0997  |    |		Action	Push_String_Extended,0x997					; "Fundamental Session"
0079 00ea       |    |		Load_Encached	Null_String_Cache
007a 4800       |H   |		Short_Literal	0x0
007b e003       |    |		Load	0x0,0x3
007c 02a0       |    |		Declare_Subprogram	Null_Subprogram
007d 038e       |    |		Declare_Type	Package,Defined
007e 0387       |    |		Declare_Variable	Package
007f 4800       |H   |		Short_Literal	0x0
0080 e004       |    |		Load	0x0,0x4
0081 02a0       |    |		Declare_Subprogram	Null_Subprogram
0082 038e       |    |		Declare_Type	Package,Defined
0083 0387       |    |		Declare_Variable	Package
0084 4800       |H   |		Short_Literal	0x0
0085 e005       |    |		Load	0x0,0x5
0086 02a0       |    |		Declare_Subprogram	Null_Subprogram
0087 038e       |    |		Declare_Type	Package,Defined
0088 0387       |    |		Declare_Variable	Package
0089 e006       |    |		Load	0x0,0x6
008a 1916       |    |		Execute	Package,Field_Reference,Field_Number 0x16
008b 0007       |    |		Action	Break_Optional
008c e006       |    |		Load	0x0,0x6
008d 1917       |    |		Execute	Package,Field_Reference,Field_Number 0x17
008e 0007       |    |		Action	Break_Optional
008f e007       |    |		Load	0x0,0x7
0090 191b       |    |		Execute	Package,Field_Reference,Field_Number 0x1b
0091 0007       |    |		Action	Break_Optional
0092 00ea       |    |		Load_Encached	Null_String_Cache
0093 4800       |H   |		Short_Literal	0x0
0094 4800       |H   |		Short_Literal	0x0
0095 4800       |H   |		Short_Literal	0x0
0096 e007       |    |		Load	0x0,0x7
0097 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0098 8240       | @  |		Call	0x1,0x40
0099 029b 0633  |   3|		Declare_Subprogram	INIT_0630,For_Outer_Call,Unelaborated
009b 1d43       | C  |		Execute_Immediate	Reference_Lex_1,0x43
009c 029b 0653  |   S|		Declare_Subprogram	INIT_0650,For_Outer_Call,Unelaborated
009e 029b 066b  |   k|		Declare_Subprogram	INIT_0668,For_Outer_Call,Unelaborated
00a0 029b 067b  |   {|		Declare_Subprogram	INIT_0678,For_Outer_Call,Unelaborated
00a2 029b 068b  |    |		Declare_Subprogram	INIT_0688,For_Outer_Call,Unelaborated
00a4 029b 0693  |    |		Declare_Subprogram	INIT_0690,For_Outer_Call,Unelaborated
00a6 029b 06a3  |    |		Declare_Subprogram	INIT_06a0,For_Outer_Call,Unelaborated
00a8 029b 06e3  |    |		Declare_Subprogram	INIT_06e0,For_Outer_Call,Unelaborated
00aa 029b 0723  |   #|		Declare_Subprogram	INIT_0720,For_Outer_Call,Unelaborated
00ac 029b 075b  |   [|		Declare_Subprogram	INIT_0758,For_Outer_Call,Unelaborated
00ae 029b 0793  |    |		Declare_Subprogram	INIT_0790,For_Outer_Call,Unelaborated
00b0 029b 07cb  |    |		Declare_Subprogram	INIT_07c8,For_Outer_Call,Unelaborated
00b2 029b 07fb  |    |		Declare_Subprogram	INIT_07f8,For_Outer_Call,Unelaborated
00b4 029b 085b  |   [|		Declare_Subprogram	INIT_0858,For_Outer_Call,Unelaborated
00b6 029b 0873  |   s|		Declare_Subprogram	INIT_0870,For_Outer_Call,Unelaborated
00b8 029b 08f3  |    |		Declare_Subprogram	INIT_08f0,For_Outer_Call,Unelaborated
00ba 029b 0903  |    |		Declare_Subprogram	INIT_0900,For_Outer_Call,Unelaborated
00bc 029b 0913  |    |		Declare_Subprogram	INIT_0910,For_Outer_Call,Unelaborated
00be 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
00bf 00c7       |    |		Action	Elaborate_Subprogram
00c0 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
00c1 00c7       |    |		Action	Elaborate_Subprogram
00c2 1d30       | 0  |		Execute_Immediate	Reference_Lex_1,0x30
00c3 00c7       |    |		Action	Elaborate_Subprogram
00c4 1d2f       | /  |		Execute_Immediate	Reference_Lex_1,0x2f
00c5 00c7       |    |		Action	Elaborate_Subprogram
00c6 1d2d       | -  |		Execute_Immediate	Reference_Lex_1,0x2d
00c7 00c7       |    |		Action	Elaborate_Subprogram
00c8 1d2e       | .  |		Execute_Immediate	Reference_Lex_1,0x2e
00c9 00c7       |    |		Action	Elaborate_Subprogram
00ca 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
00cb 00c7       |    |		Action	Elaborate_Subprogram
00cc 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
00cd 00c7       |    |		Action	Elaborate_Subprogram
00ce 1d32       | 2  |		Execute_Immediate	Reference_Lex_1,0x32
00cf 00c7       |    |		Action	Elaborate_Subprogram
00d0 1d31       | 1  |		Execute_Immediate	Reference_Lex_1,0x31
00d1 00c7       |    |		Action	Elaborate_Subprogram
00d2 1d33       | 3  |		Execute_Immediate	Reference_Lex_1,0x33
00d3 00c7       |    |		Action	Elaborate_Subprogram
00d4 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
00d5 00c7       |    |		Action	Elaborate_Subprogram
00d6 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
00d7 00c7       |    |		Action	Elaborate_Subprogram
00d8 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
00d9 00c7       |    |		Action	Elaborate_Subprogram
00da 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
00db 00c7       |    |		Action	Elaborate_Subprogram
00dc 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
00dd 00c7       |    |		Action	Elaborate_Subprogram
00de 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
00df 00c7       |    |		Action	Elaborate_Subprogram
00e0 e008       |    |		Load	0x0,0x8
00e1 e002       |    |		Load	0x0,0x2
00e2 e009       |    |		Load	0x0,0x9
00e3 e00a       |    |		Load	0x0,0xa
00e4 e00b       |    |		Load	0x0,0xb
00e5 e00c       |    |		Load	0x0,0xc
00e6 1d3e       | >  |		Execute_Immediate	Reference_Lex_1,0x3e
00e7 1d3f       | ?  |		Execute_Immediate	Reference_Lex_1,0x3f
00e8 e00d       |    |		Load	0x0,0xd
00e9 e00e       |    |		Load	0x0,0xe
00ea 480a       |H   |		Short_Literal	0xa
00eb e23b       | ;  |		Load	0x1,0x3b
00ec 020e       |    |		Execute	Module,Augment_Imports
00ed e23b       | ;  |		Load	0x1,0x3b
00ee 020f       |    |		Execute	Module,Activate
00ef e00f       |    |		Load	0x0,0xf
00f0 e010       |    |		Load	0x0,0x10
00f1 e011       |    |		Load	0x0,0x11
00f2 e012       |    |		Load	0x0,0x12
00f3 e013       |    |		Load	0x0,0x13
00f4 e014       |    |		Load	0x0,0x14
00f5 e007       |    |		Load	0x0,0x7
00f6 e006       |    |		Load	0x0,0x6
00f7 e015       |    |		Load	0x0,0x15
00f8 e016       |    |		Load	0x0,0x16
00f9 00b6       |    |		Action	Make_Scope
00fa e017       |    |		Load	0x0,0x17
00fb e018       |    |		Load	0x0,0x18
00fc 480d       |H   |		Short_Literal	0xd
00fd e23d       | =  |		Load	0x1,0x3d
00fe 020e       |    |		Execute	Module,Augment_Imports
00ff e23d       | =  |		Load	0x1,0x3d
0100 020f       |    |		Execute	Module,Activate
0101 e019       |    |		Load	0x0,0x19
0102 4801       |H   |		Short_Literal	0x1
0103 e23c       | <  |		Load	0x1,0x3c
0104 020e       |    |		Execute	Module,Augment_Imports
0105 e23c       | <  |		Load	0x1,0x3c
0106 020f       |    |		Execute	Module,Activate
0107 1d49       | I  |		Execute_Immediate	Reference_Lex_1,0x49
0108 00c7       |    |		Action	Elaborate_Subprogram
0109 1d48       | H  |		Execute_Immediate	Reference_Lex_1,0x48
010a 00c7       |    |		Action	Elaborate_Subprogram
010b 1d4a       | J  |		Execute_Immediate	Reference_Lex_1,0x4a
010c 00c7       |    |		Action	Elaborate_Subprogram
010d 1d4b       | K  |		Execute_Immediate	Reference_Lex_1,0x4b
010e 00c7       |    |		Action	Elaborate_Subprogram
010f 1d4c       | L  |		Execute_Immediate	Reference_Lex_1,0x4c
0110 00c7       |    |		Action	Elaborate_Subprogram
0111 029d 0923  |   #|		Declare_Subprogram	INIT_0920,For_Outer_Call
0113 1d50       | P  |		Execute_Immediate	Reference_Lex_1,0x50
0114 00c7       |    |		Action	Elaborate_Subprogram
0115 1d4d       | M  |		Execute_Immediate	Reference_Lex_1,0x4d
0116 00c7       |    |		Action	Elaborate_Subprogram
0117 1d4f       | O  |		Execute_Immediate	Reference_Lex_1,0x4f
0118 00c7       |    |		Action	Elaborate_Subprogram
0119 1d4e       | N  |		Execute_Immediate	Reference_Lex_1,0x4e
011a 00c7       |    |		Action	Elaborate_Subprogram
011b 1d51       | Q  |		Execute_Immediate	Reference_Lex_1,0x51
011c 00c7       |    |		Action	Elaborate_Subprogram
011d 1d52       | R  |		Execute_Immediate	Reference_Lex_1,0x52
011e 00c7       |    |		Action	Elaborate_Subprogram
011f 1d34       | 4  |		Execute_Immediate	Reference_Lex_1,0x34
0120 00c7       |    |		Action	Elaborate_Subprogram
0121 1d45       | E  |		Execute_Immediate	Reference_Lex_1,0x45
0122 00c7       |    |		Action	Elaborate_Subprogram
0123 1d53       | S  |		Execute_Immediate	Reference_Lex_1,0x53
0124 00c7       |    |		Action	Elaborate_Subprogram
0125 1d55       | U  |		Execute_Immediate	Reference_Lex_1,0x55
0126 00c7       |    |		Action	Elaborate_Subprogram
0127 1d54       | T  |		Execute_Immediate	Reference_Lex_1,0x54
0128 00c7       |    |		Action	Elaborate_Subprogram
0129 1d46       | F  |		Execute_Immediate	Reference_Lex_1,0x46
012a 00c7       |    |		Action	Elaborate_Subprogram
012b 1d47       | G  |		Execute_Immediate	Reference_Lex_1,0x47
012c 00c7       |    |		Action	Elaborate_Subprogram
012d 1d43       | C  |		Execute_Immediate	Reference_Lex_1,0x43
012e 00c7       |    |		Action	Elaborate_Subprogram
012f 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
0130 00c7       |    |		Action	Elaborate_Subprogram
0131			BODY_0008:
0131 00bc       |    |		Action	Signal_Activated
0132 00bb       |    |		Action	Signal_Completion
0133 0000 0000  |    |		.BLANK	0000[0x5]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 0144       | D  |		.CONST	0x0144								; Address of begin
0139 01fd       |    |		.CONST	0x01fd								; Address of exception handler
013a 0005       |    |		.CONST	0x0005								; Number of locals
013b			INIT_0138:
013b 0092 0998  |    |		Action	Push_String_Extended,0x998					; "Accept_Tokens"
013d e236       | 6  |		Load	0x1,0x36
013e 02c7       |    |		Declare_Variable	Any
013f e002       |    |		Load	0x0,0x2
0140 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0141 a403       |    |		Store_Unchecked	0x2,0x3
0142 00e3       |    |		Load_Encached	Natural_Cache
0143 00e3       |    |		Load_Encached	Natural_Cache
0144			BODY_0138:
0144 e403       |    |		Load	0x2,0x3
0145 e5fa       |    |		Load	0x2,-0x6
0146 e5fb       |    |		Load	0x2,-0x5
0147 e5fc       |    |		Load	0x2,-0x4
0148 e5fd       |    |		Load	0x2,-0x3
0149 e23b       | ;  |		Load	0x1,0x3b
014a 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
014b e5fe       |    |		Load	0x2,-0x2
014c e23b       | ;  |		Load	0x1,0x3b
014d 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
014e e5ff       |    |		Load	0x2,-0x1
014f e402       |    |		Load	0x2,0x2
0150 e23b       | ;  |		Load	0x1,0x3b
0151 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0152 c403       |    |		Store	0x2,0x3
0153 e403       |    |		Load	0x2,0x3
0154 e23b       | ;  |		Load	0x1,0x3b
0155 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0156 e5fb       |    |		Load	0x2,-0x5
0157 01db       |    |		Execute	Vector,Length
0158 7009       |p   |		Jump_Nonzero	0x162
0159 e23d       | =  |		Load	0x1,0x3d
015a 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
015b 8248       | H  |		Call	0x1,0x48
015c 6805       |h   |		Jump_Zero	0x162
015d e403       |    |		Load	0x2,0x3
015e 0092 0999  |    |		Action	Push_String_Extended,0x999					; "This machine has donated tokens today; it may not also accept them"
0160 e23b       | ;  |		Load	0x1,0x3b
0161 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0162 e403       |    |		Load	0x2,0x3
0163 e5ff       |    |		Load	0x2,-0x1
0164 824d       | M  |		Call	0x1,0x4d
0165 e403       |    |		Load	0x2,0x3
0166 e5fd       |    |		Load	0x2,-0x3
0167 e5fe       |    |		Load	0x2,-0x2
0168 e5ff       |    |		Load	0x2,-0x1
0169 8250       | P  |		Call	0x1,0x50
016a e5ff       |    |		Load	0x2,-0x1
016b 8253       | S  |		Call	0x1,0x53
016c a405       |    |		Store_Unchecked	0x2,0x5
016d 00d8       |    |		Load_Top	At_Offset_0
016e e5fe       |    |		Load	0x2,-0x2
016f 0273       | s  |		Execute	Discrete,Plus
0170 c404       |    |		Store	0x2,0x4
0171 e404       |    |		Load	0x2,0x4
0172 e5fd       |    |		Load	0x2,-0x3
0173 027e       | ~  |		Execute	Discrete,Not_Equal
0174 6827       |h'  |		Jump_Zero	0x19c
0175 e403       |    |		Load	0x2,0x3
0176 483d       |H=  |		Short_Literal	0x3d
0177 482b       |H+  |		Short_Literal	0x2b
0178 0092 099a  |    |		Action	Push_String_Extended,0x99a					; "The sum of currently authorized tokens and Donations ("
017a 4820       |H   |		Short_Literal	0x20
017b 4800       |H   |		Short_Literal	0x0
017c 480a       |H   |		Short_Literal	0xa
017d e405       |    |		Load	0x2,0x5
017e 823e       | >  |		Call	0x1,0x3e
017f 01cc       |    |		Execute	Vector,Catenate
0180 01cb       |    |		Execute	Vector,Append
0181 4820       |H   |		Short_Literal	0x20
0182 4800       |H   |		Short_Literal	0x0
0183 480a       |H   |		Short_Literal	0xa
0184 e5fe       |    |		Load	0x2,-0x2
0185 823e       | >  |		Call	0x1,0x3e
0186 01cc       |    |		Execute	Vector,Catenate
0187 01cb       |    |		Execute	Vector,Append
0188 4820       |H   |		Short_Literal	0x20
0189 4800       |H   |		Short_Literal	0x0
018a 480a       |H   |		Short_Literal	0xa
018b e404       |    |		Load	0x2,0x4
018c 823e       | >  |		Call	0x1,0x3e
018d 01cc       |    |		Execute	Vector,Catenate
018e 0092 099b  |    |		Action	Push_String_Extended,0x99b					; ") is NOT equal to Resulting_Count parameter ("
0190 01cc       |    |		Execute	Vector,Catenate
0191 4820       |H   |		Short_Literal	0x20
0192 4800       |H   |		Short_Literal	0x0
0193 480a       |H   |		Short_Literal	0xa
0194 e5fd       |    |		Load	0x2,-0x3
0195 823e       | >  |		Call	0x1,0x3e
0196 01cc       |    |		Execute	Vector,Catenate
0197 0092 099c  |    |		Action	Push_String_Extended,0x99c					; "); these must be equal in order to proceed."
0199 01cc       |    |		Execute	Vector,Catenate
019a e23b       | ;  |		Load	0x1,0x3b
019b 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
019c e5fb       |    |		Load	0x2,-0x5
019d e5fc       |    |		Load	0x2,-0x4
019e e5fd       |    |		Load	0x2,-0x3
019f e5fe       |    |		Load	0x2,-0x2
01a0 e5ff       |    |		Load	0x2,-0x1
01a1 8246       | F  |		Call	0x1,0x46
01a2 7019       |p   |		Jump_Nonzero	0x1bc
01a3 e403       |    |		Load	0x2,0x3
01a4 0092 099d  |    |		Action	Push_String_Extended,0x99d					; "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 ("
01a6 821b       |    |		Call	0x1,0x1b
01a7 01cc       |    |		Execute	Vector,Catenate
01a8 0092 099e  |    |		Action	Push_String_Extended,0x99e					; "), a transcription error of the Machine ID of this machine ("
01aa 01cc       |    |		Execute	Vector,Catenate
01ab 4820       |H   |		Short_Literal	0x20
01ac 4800       |H   |		Short_Literal	0x0
01ad 480a       |H   |		Short_Literal	0xa
01ae 821c       |    |		Call	0x1,0x1c
01af 823f       | ?  |		Call	0x1,0x3f
01b0 01cc       |    |		Execute	Vector,Catenate
01b1 0092 099f  |    |		Action	Push_String_Extended,0x99f					; "), a delay in posting the request (code only valid for one day), "
01b3 01cc       |    |		Execute	Vector,Catenate
01b4 0092 09a0  |    |		Action	Push_String_Extended,0x9a0					; "or some other combination of parameter problems.  "
01b6 01cc       |    |		Execute	Vector,Catenate
01b7 0092 09a1  |    |		Action	Push_String_Extended,0x9a1					; "Contact your Rational representative for further assistance."
01b9 01cc       |    |		Execute	Vector,Catenate
01ba e23b       | ;  |		Load	0x1,0x3b
01bb 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
01bc e5fb       |    |		Load	0x2,-0x5
01bd 01db       |    |		Execute	Vector,Length
01be 680a       |h   |		Jump_Zero	0x1c9
01bf e5fb       |    |		Load	0x2,-0x5
01c0 e5ff       |    |		Load	0x2,-0x1
01c1 e23d       | =  |		Load	0x1,0x3d
01c2 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
01c3 7005       |p   |		Jump_Nonzero	0x1c9
01c4 e403       |    |		Load	0x2,0x3
01c5 0092 09a2  |    |		Action	Push_String_Extended,0x9a2					; "The authorization provided has been used previously for this product.  It must be unique for this machine for all time."
01c7 e23b       | ;  |		Load	0x1,0x3b
01c8 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
01c9 e5ff       |    |		Load	0x2,-0x1
01ca e017       |    |		Load	0x0,0x17
01cb 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01cc 7009       |p   |		Jump_Nonzero	0x1d6
01cd 00ea       |    |		Load_Encached	Null_String_Cache
01ce 00ea       |    |		Load_Encached	Null_String_Cache
01cf 821c       |    |		Call	0x1,0x1c
01d0 e5ff       |    |		Load	0x2,-0x1
01d1 e017       |    |		Load	0x0,0x17
01d2 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01d3 e5ff       |    |		Load	0x2,-0x1
01d4 e017       |    |		Load	0x0,0x17
01d5 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
01d6 e5fd       |    |		Load	0x2,-0x3
01d7 e5ff       |    |		Load	0x2,-0x1
01d8 e016       |    |		Load	0x0,0x16
01d9 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01da e5ff       |    |		Load	0x2,-0x1
01db 8254       | T  |		Call	0x1,0x54
01dc 7004       |p   |		Jump_Nonzero	0x1e1
01dd 480c       |H   |		Short_Literal	0xc
01de e5ff       |    |		Load	0x2,-0x1
01df e016       |    |		Load	0x0,0x16
01e0 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
01e1 e403       |    |		Load	0x2,0x3
01e2 e5ff       |    |		Load	0x2,-0x1
01e3 0092 09a3  |    |		Action	Push_String_Extended,0x9a3					; " tokens set to "
01e5 01cc       |    |		Execute	Vector,Catenate
01e6 4820       |H   |		Short_Literal	0x20
01e7 4800       |H   |		Short_Literal	0x0
01e8 480a       |H   |		Short_Literal	0xa
01e9 e5fd       |    |		Load	0x2,-0x3
01ea 823e       | >  |		Call	0x1,0x3e
01eb 01cc       |    |		Execute	Vector,Catenate
01ec e23b       | ;  |		Load	0x1,0x3b
01ed 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
01ee e5fb       |    |		Load	0x2,-0x5
01ef 01db       |    |		Execute	Vector,Length
01f0 7004       |p   |		Jump_Nonzero	0x1f5
01f1 e011       |    |		Load	0x0,0x11
01f2 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
01f3 e23d       | =  |		Load	0x1,0x3d
01f4 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
01f5 e23d       | =  |		Load	0x1,0x3d
01f6 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01f7 e403       |    |		Load	0x2,0x3
01f8 00ea       |    |		Load_Encached	Null_String_Cache
01f9 e402       |    |		Load	0x2,0x2
01fa e23b       | ;  |		Load	0x1,0x3b
01fb 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
01fc 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
01fd			TRAP_0138:
01fd e002       |    |		Load	0x0,0x2
01fe 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
01ff 010f       |    |		Execute	Exception,Equal
0200 6806       |h   |		Jump_Zero	0x207
0201 e403       |    |		Load	0x2,0x3
0202 e402       |    |		Load	0x2,0x2
0203 e23b       | ;  |		Load	0x1,0x3b
0204 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0205 00d8       |    |		Load_Top	At_Offset_0
0206 0101       |    |		Execute	Exception,Reraise
0207 e009       |    |		Load	0x0,0x9
0208 010f       |    |		Execute	Exception,Equal
0209 6805       |h   |		Jump_Zero	0x20f
020a e403       |    |		Load	0x2,0x3
020b e402       |    |		Load	0x2,0x2
020c e23b       | ;  |		Load	0x1,0x3b
020d 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
020e 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
020f e403       |    |		Load	0x2,0x3
0210 4800       |H   |		Short_Literal	0x0
0211 4801       |H   |		Short_Literal	0x1
0212 e01a       |    |		Load	0x0,0x1a
0213 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0214 e402       |    |		Load	0x2,0x2
0215 e23b       | ;  |		Load	0x1,0x3b
0216 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0217 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 0222       | "  |		.CONST	0x0222								; Address of begin
0219 026b       | k  |		.CONST	0x026b								; Address of exception handler
021a 0003       |    |		.CONST	0x0003								; Number of locals
021b			INIT_0218:
021b 0092 09a4  |    |		Action	Push_String_Extended,0x9a4					; "Donate_Tokens"
021d e236       | 6  |		Load	0x1,0x36
021e 02c7       |    |		Declare_Variable	Any
021f e002       |    |		Load	0x0,0x2
0220 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0221 a403       |    |		Store_Unchecked	0x2,0x3
0222			BODY_0218:
0222 00d8       |    |		Load_Top	At_Offset_0
0223 e5fa       |    |		Load	0x2,-0x6
0224 e5fb       |    |		Load	0x2,-0x5
0225 e5fc       |    |		Load	0x2,-0x4
0226 e23b       | ;  |		Load	0x1,0x3b
0227 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0228 e5fd       |    |		Load	0x2,-0x3
0229 e23b       | ;  |		Load	0x1,0x3b
022a 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
022b e5fe       |    |		Load	0x2,-0x2
022c e23b       | ;  |		Load	0x1,0x3b
022d 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
022e e5ff       |    |		Load	0x2,-0x1
022f e402       |    |		Load	0x2,0x2
0230 e23b       | ;  |		Load	0x1,0x3b
0231 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0232 c403       |    |		Store	0x2,0x3
0233 00d8       |    |		Load_Top	At_Offset_0
0234 e23b       | ;  |		Load	0x1,0x3b
0235 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0236 00d8       |    |		Load_Top	At_Offset_0
0237 e5fb       |    |		Load	0x2,-0x5
0238 824e       | N  |		Call	0x1,0x4e
0239 00d8       |    |		Load_Top	At_Offset_0
023a e5ff       |    |		Load	0x2,-0x1
023b 824d       | M  |		Call	0x1,0x4d
023c e5fc       |    |		Load	0x2,-0x4
023d 821c       |    |		Call	0x1,0x1c
023e 027f       |    |		Execute	Discrete,Equal
023f 6805       |h   |		Jump_Zero	0x245
0240 00d8       |    |		Load_Top	At_Offset_0
0241 0092 09a5  |    |		Action	Push_String_Extended,0x9a5					; "Remote_Machine_ID specified is the Machine_ID for this machine."
0243 e23b       | ;  |		Load	0x1,0x3b
0244 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0245 e23d       | =  |		Load	0x1,0x3d
0246 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0247 8248       | H  |		Call	0x1,0x48
0248 6805       |h   |		Jump_Zero	0x24e
0249 00d8       |    |		Load_Top	At_Offset_0
024a 0092 09a6  |    |		Action	Push_String_Extended,0x9a6					; "This machine has accepted tokens today; it may not also give them up"
024c e23b       | ;  |		Load	0x1,0x3b
024d 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
024e 00d8       |    |		Load_Top	At_Offset_0
024f e5fd       |    |		Load	0x2,-0x3
0250 e5fe       |    |		Load	0x2,-0x2
0251 e5ff       |    |		Load	0x2,-0x1
0252 8250       | P  |		Call	0x1,0x50
0253 00d8       |    |		Load_Top	At_Offset_0
0254 e5fe       |    |		Load	0x2,-0x2
0255 e5ff       |    |		Load	0x2,-0x1
0256 8252       | R  |		Call	0x1,0x52
0257 e011       |    |		Load	0x0,0x11
0258 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0259 e23d       | =  |		Load	0x1,0x3d
025a 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
025b e23d       | =  |		Load	0x1,0x3d
025c 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
025d e242       | B  |		Load	0x1,0x42
025e e23a       | :  |		Load	0x1,0x3a
025f e5fb       |    |		Load	0x2,-0x5
0260 e5fc       |    |		Load	0x2,-0x4
0261 e5fd       |    |		Load	0x2,-0x3
0262 e5fe       |    |		Load	0x2,-0x2
0263 e5ff       |    |		Load	0x2,-0x1
0264 824a       | J  |		Call	0x1,0x4a
0265 00d8       |    |		Load_Top	At_Offset_0
0266 00ea       |    |		Load_Encached	Null_String_Cache
0267 e402       |    |		Load	0x2,0x2
0268 e23b       | ;  |		Load	0x1,0x3b
0269 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
026a 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
026b			TRAP_0218:
026b e002       |    |		Load	0x0,0x2
026c 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
026d 010f       |    |		Execute	Exception,Equal
026e 6806       |h   |		Jump_Zero	0x275
026f e403       |    |		Load	0x2,0x3
0270 e402       |    |		Load	0x2,0x2
0271 e23b       | ;  |		Load	0x1,0x3b
0272 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0273 00d8       |    |		Load_Top	At_Offset_0
0274 0101       |    |		Execute	Exception,Reraise
0275 e009       |    |		Load	0x0,0x9
0276 010f       |    |		Execute	Exception,Equal
0277 6805       |h   |		Jump_Zero	0x27d
0278 e403       |    |		Load	0x2,0x3
0279 e402       |    |		Load	0x2,0x2
027a e23b       | ;  |		Load	0x1,0x3b
027b 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
027c 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
027d e403       |    |		Load	0x2,0x3
027e 4800       |H   |		Short_Literal	0x0
027f 4801       |H   |		Short_Literal	0x1
0280 e01a       |    |		Load	0x0,0x1a
0281 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0282 e402       |    |		Load	0x2,0x2
0283 e23b       | ;  |		Load	0x1,0x3b
0284 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0285 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0286 0000 0000  |    |		.XXX[0x2]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 0292       |    |		.CONST	0x0292								; Address of begin
0289 02cc       |    |		.CONST	0x02cc								; Address of exception handler
028a 0003       |    |		.CONST	0x0003								; Number of locals
028b			INIT_0288:
028b 0092 09a7  |    |		Action	Push_String_Extended,0x9a7					; "Set_Site"
028d e236       | 6  |		Load	0x1,0x36
028e 02c7       |    |		Declare_Variable	Any
028f e002       |    |		Load	0x0,0x2
0290 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0291 a403       |    |		Store_Unchecked	0x2,0x3
0292			BODY_0288:
0292 00d8       |    |		Load_Top	At_Offset_0
0293 e5fc       |    |		Load	0x2,-0x4
0294 e5fd       |    |		Load	0x2,-0x3
0295 e5fe       |    |		Load	0x2,-0x2
0296 e5ff       |    |		Load	0x2,-0x1
0297 e402       |    |		Load	0x2,0x2
0298 e23b       | ;  |		Load	0x1,0x3b
0299 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
029a c403       |    |		Store	0x2,0x3
029b 00d8       |    |		Load_Top	At_Offset_0
029c e23b       | ;  |		Load	0x1,0x3b
029d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
029e e5fe       |    |		Load	0x2,-0x2
029f e241       | A  |		Load	0x1,0x41
02a0 e5fd       |    |		Load	0x2,-0x3
02a1 821c       |    |		Call	0x1,0x1c
02a2 e5ff       |    |		Load	0x2,-0x1
02a3 8244       | D  |		Call	0x1,0x44
02a4 01de       |    |		Execute	Vector,Not_Equal
02a5 6814       |h   |		Jump_Zero	0x2ba
02a6 00d8       |    |		Load_Top	At_Offset_0
02a7 0092 09a8  |    |		Action	Push_String_Extended,0x9a8					; "Code ("
02a9 e5fe       |    |		Load	0x2,-0x2
02aa e23b       | ;  |		Load	0x1,0x3b
02ab 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
02ac 01cc       |    |		Execute	Vector,Catenate
02ad 0092 09a9  |    |		Action	Push_String_Extended,0x9a9					; ") does not correspond to Site ("
02af 01cc       |    |		Execute	Vector,Catenate
02b0 e5ff       |    |		Load	0x2,-0x1
02b1 e23b       | ;  |		Load	0x1,0x3b
02b2 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
02b3 01cc       |    |		Execute	Vector,Catenate
02b4 0092 09aa  |    |		Action	Push_String_Extended,0x9aa					; ")."
02b6 01cc       |    |		Execute	Vector,Catenate
02b7 e23b       | ;  |		Load	0x1,0x3b
02b8 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
02b9 780a       |x   |		Jump	0x2c4
02ba e5ff       |    |		Load	0x2,-0x1
02bb e23d       | =  |		Load	0x1,0x3d
02bc 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02bd 00d8       |    |		Load_Top	At_Offset_0
02be 0092 09ab  |    |		Action	Push_String_Extended,0x9ab					; "Site set to "
02c0 e5ff       |    |		Load	0x2,-0x1
02c1 01cc       |    |		Execute	Vector,Catenate
02c2 e23b       | ;  |		Load	0x1,0x3b
02c3 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
02c4 e23d       | =  |		Load	0x1,0x3d
02c5 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
02c6 00d8       |    |		Load_Top	At_Offset_0
02c7 00ea       |    |		Load_Encached	Null_String_Cache
02c8 e402       |    |		Load	0x2,0x2
02c9 e23b       | ;  |		Load	0x1,0x3b
02ca 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
02cb 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
02cc			TRAP_0288:
02cc e002       |    |		Load	0x0,0x2
02cd 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
02ce 010f       |    |		Execute	Exception,Equal
02cf 6806       |h   |		Jump_Zero	0x2d6
02d0 e403       |    |		Load	0x2,0x3
02d1 e402       |    |		Load	0x2,0x2
02d2 e23b       | ;  |		Load	0x1,0x3b
02d3 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
02d4 00d8       |    |		Load_Top	At_Offset_0
02d5 0101       |    |		Execute	Exception,Reraise
02d6 e009       |    |		Load	0x0,0x9
02d7 010f       |    |		Execute	Exception,Equal
02d8 6805       |h   |		Jump_Zero	0x2de
02d9 e403       |    |		Load	0x2,0x3
02da e402       |    |		Load	0x2,0x2
02db e23b       | ;  |		Load	0x1,0x3b
02dc 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
02dd 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
02de e403       |    |		Load	0x2,0x3
02df 4800       |H   |		Short_Literal	0x0
02e0 4801       |H   |		Short_Literal	0x1
02e1 e01a       |    |		Load	0x0,0x1a
02e2 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
02e3 e402       |    |		Load	0x2,0x2
02e4 e23b       | ;  |		Load	0x1,0x3b
02e5 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
02e6 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
02e7 0000       |    |		.XXX[0x1]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02eb       |    |		.CONST	0x02eb								; Address of begin
02e9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ea 0001       |    |		.CONST	0x0001								; Number of locals
02eb			BODY_02e8:
02eb			INIT_02e8:
02eb e23d       | =  |		Load	0x1,0x3d
02ec 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
02ed 00ca       |    |		Action	Exit_Nullary_Function
02ee 0000 0000  |    |		.XXX[0x2]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f3       |    |		.CONST	0x02f3								; Address of begin
02f1 0004       |    |		.CONST	0x0004								; Address of exception handler
02f2 0001       |    |		.CONST	0x0001								; Number of locals
02f3			BODY_02f0:
02f3			INIT_02f0:
02f3 e01b       |    |		Load	0x0,0x1b
02f4 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
02f5 00ca       |    |		Action	Exit_Nullary_Function
02f6 0000 0000  |    |		.XXX[0x2]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 0305       |    |		.CONST	0x0305								; Address of begin
02f9 039c       |    |		.CONST	0x039c								; Address of exception handler
02fa 0005       |    |		.CONST	0x0005								; Number of locals
02fb			INIT_02f8:
02fb 0092 09ac  |    |		Action	Push_String_Extended,0x9ac					; "Convert_Tokens"
02fd e236       | 6  |		Load	0x1,0x36
02fe 02c7       |    |		Declare_Variable	Any
02ff e002       |    |		Load	0x0,0x2
0300 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0301 a403       |    |		Store_Unchecked	0x2,0x3
0302 00e3       |    |		Load_Encached	Natural_Cache
0303 029f 093b  |   ;|		Declare_Subprogram	INIT_0938,For_Call
0305			BODY_02f8:
0305 e403       |    |		Load	0x2,0x3
0306 e5fa       |    |		Load	0x2,-0x6
0307 e5fb       |    |		Load	0x2,-0x5
0308 e5fc       |    |		Load	0x2,-0x4
0309 e5fd       |    |		Load	0x2,-0x3
030a e23b       | ;  |		Load	0x1,0x3b
030b 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
030c e5fe       |    |		Load	0x2,-0x2
030d e5ff       |    |		Load	0x2,-0x1
030e e402       |    |		Load	0x2,0x2
030f e23b       | ;  |		Load	0x1,0x3b
0310 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0311 c403       |    |		Store	0x2,0x3
0312 e403       |    |		Load	0x2,0x3
0313 e23b       | ;  |		Load	0x1,0x3b
0314 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0315 e403       |    |		Load	0x2,0x3
0316 e5ff       |    |		Load	0x2,-0x1
0317 824d       | M  |		Call	0x1,0x4d
0318 e403       |    |		Load	0x2,0x3
0319 e5fe       |    |		Load	0x2,-0x2
031a 824d       | M  |		Call	0x1,0x4d
031b e5ff       |    |		Load	0x2,-0x1
031c 8253       | S  |		Call	0x1,0x53
031d a404       |    |		Store_Unchecked	0x2,0x4
031e e5fd       |    |		Load	0x2,-0x3
031f e404       |    |		Load	0x2,0x4
0320 027e       | ~  |		Execute	Discrete,Not_Equal
0321 6817       |h   |		Jump_Zero	0x339
0322 e403       |    |		Load	0x2,0x3
0323 0092 09ad  |    |		Action	Push_String_Extended,0x9ad					; "The token count for the current product ("
0325 4820       |H   |		Short_Literal	0x20
0326 4800       |H   |		Short_Literal	0x0
0327 480a       |H   |		Short_Literal	0xa
0328 e404       |    |		Load	0x2,0x4
0329 823e       | >  |		Call	0x1,0x3e
032a 01cc       |    |		Execute	Vector,Catenate
032b 0092 09ae  |    |		Action	Push_String_Extended,0x9ae					; ") is NOT equal to Token_Count parameter ("
032d 01cc       |    |		Execute	Vector,Catenate
032e 4820       |H   |		Short_Literal	0x20
032f 4800       |H   |		Short_Literal	0x0
0330 480a       |H   |		Short_Literal	0xa
0331 e5fd       |    |		Load	0x2,-0x3
0332 823e       | >  |		Call	0x1,0x3e
0333 01cc       |    |		Execute	Vector,Catenate
0334 0092 099c  |    |		Action	Push_String_Extended,0x99c					; "); these must be equal in order to proceed."
0336 01cc       |    |		Execute	Vector,Catenate
0337 e23b       | ;  |		Load	0x1,0x3b
0338 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0339 e5fb       |    |		Load	0x2,-0x5
033a e5fc       |    |		Load	0x2,-0x4
033b e5fd       |    |		Load	0x2,-0x3
033c e5fe       |    |		Load	0x2,-0x2
033d e5ff       |    |		Load	0x2,-0x1
033e 8247       | G  |		Call	0x1,0x47
033f 7014       |p   |		Jump_Nonzero	0x354
0340 e403       |    |		Load	0x2,0x3
0341 0092 09af  |    |		Action	Push_String_Extended,0x9af					; "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 ("
0343 4820       |H   |		Short_Literal	0x20
0344 4800       |H   |		Short_Literal	0x0
0345 480a       |H   |		Short_Literal	0xa
0346 821c       |    |		Call	0x1,0x1c
0347 823f       | ?  |		Call	0x1,0x3f
0348 01cc       |    |		Execute	Vector,Catenate
0349 0092 099f  |    |		Action	Push_String_Extended,0x99f					; "), a delay in posting the request (code only valid for one day), "
034b 01cc       |    |		Execute	Vector,Catenate
034c 0092 09a0  |    |		Action	Push_String_Extended,0x9a0					; "or some other combination of parameter problems.  "
034e 01cc       |    |		Execute	Vector,Catenate
034f 0092 09a1  |    |		Action	Push_String_Extended,0x9a1					; "Contact your Rational representative for further assistance."
0351 01cc       |    |		Execute	Vector,Catenate
0352 e23b       | ;  |		Load	0x1,0x3b
0353 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0354 e5fb       |    |		Load	0x2,-0x5
0355 01db       |    |		Execute	Vector,Length
0356 680a       |h   |		Jump_Zero	0x361
0357 e5fb       |    |		Load	0x2,-0x5
0358 e5ff       |    |		Load	0x2,-0x1
0359 e23d       | =  |		Load	0x1,0x3d
035a 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
035b 7005       |p   |		Jump_Nonzero	0x361
035c e403       |    |		Load	0x2,0x3
035d 0092 09a2  |    |		Action	Push_String_Extended,0x9a2					; "The authorization provided has been used previously for this product.  It must be unique for this machine for all time."
035f e23b       | ;  |		Load	0x1,0x3b
0360 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0361 e5fe       |    |		Load	0x2,-0x2
0362 e017       |    |		Load	0x0,0x17
0363 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0364 7009       |p   |		Jump_Nonzero	0x36e
0365 00ea       |    |		Load_Encached	Null_String_Cache
0366 00ea       |    |		Load_Encached	Null_String_Cache
0367 821c       |    |		Call	0x1,0x1c
0368 e5fe       |    |		Load	0x2,-0x2
0369 e017       |    |		Load	0x0,0x17
036a 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
036b e5fe       |    |		Load	0x2,-0x2
036c e017       |    |		Load	0x0,0x17
036d 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
036e e5fd       |    |		Load	0x2,-0x3
036f e5fe       |    |		Load	0x2,-0x2
0370 e016       |    |		Load	0x0,0x16
0371 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0372 4800       |H   |		Short_Literal	0x0
0373 e5ff       |    |		Load	0x2,-0x1
0374 e016       |    |		Load	0x0,0x16
0375 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0376 8405       |    |		Call	0x2,0x5
0377 e5fe       |    |		Load	0x2,-0x2
0378 8254       | T  |		Call	0x1,0x54
0379 7004       |p   |		Jump_Nonzero	0x37e
037a 480c       |H   |		Short_Literal	0xc
037b e5fe       |    |		Load	0x2,-0x2
037c e016       |    |		Load	0x0,0x16
037d 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
037e e403       |    |		Load	0x2,0x3
037f 482e       |H.  |		Short_Literal	0x2e
0380 e5fe       |    |		Load	0x2,-0x2
0381 0092 09a3  |    |		Action	Push_String_Extended,0x9a3					; " tokens set to "
0383 01cc       |    |		Execute	Vector,Catenate
0384 4820       |H   |		Short_Literal	0x20
0385 4800       |H   |		Short_Literal	0x0
0386 480a       |H   |		Short_Literal	0xa
0387 e5fd       |    |		Load	0x2,-0x3
0388 823e       | >  |		Call	0x1,0x3e
0389 01cc       |    |		Execute	Vector,Catenate
038a 01cb       |    |		Execute	Vector,Append
038b e23b       | ;  |		Load	0x1,0x3b
038c 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
038d e403       |    |		Load	0x2,0x3
038e e5ff       |    |		Load	0x2,-0x1
038f 0092 09b0  |    |		Action	Push_String_Extended,0x9b0					; " has no more tokens."
0391 01cc       |    |		Execute	Vector,Catenate
0392 e23b       | ;  |		Load	0x1,0x3b
0393 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0394 e23d       | =  |		Load	0x1,0x3d
0395 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0396 e403       |    |		Load	0x2,0x3
0397 00ea       |    |		Load_Encached	Null_String_Cache
0398 e402       |    |		Load	0x2,0x2
0399 e23b       | ;  |		Load	0x1,0x3b
039a 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
039b 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
039c			TRAP_02f8:
039c e002       |    |		Load	0x0,0x2
039d 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
039e 010f       |    |		Execute	Exception,Equal
039f 6806       |h   |		Jump_Zero	0x3a6
03a0 e403       |    |		Load	0x2,0x3
03a1 e402       |    |		Load	0x2,0x2
03a2 e23b       | ;  |		Load	0x1,0x3b
03a3 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
03a4 00d8       |    |		Load_Top	At_Offset_0
03a5 0101       |    |		Execute	Exception,Reraise
03a6 e009       |    |		Load	0x0,0x9
03a7 010f       |    |		Execute	Exception,Equal
03a8 6805       |h   |		Jump_Zero	0x3ae
03a9 e403       |    |		Load	0x2,0x3
03aa e402       |    |		Load	0x2,0x2
03ab e23b       | ;  |		Load	0x1,0x3b
03ac 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
03ad 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
03ae e403       |    |		Load	0x2,0x3
03af 4800       |H   |		Short_Literal	0x0
03b0 4801       |H   |		Short_Literal	0x1
03b1 e01a       |    |		Load	0x0,0x1a
03b2 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
03b3 e402       |    |		Load	0x2,0x2
03b4 e23b       | ;  |		Load	0x1,0x3b
03b5 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
03b6 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
03b7 0000       |    |		.XXX[0x1]
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03c2       |    |		.CONST	0x03c2								; Address of begin
03b9 040d       |    |		.CONST	0x040d								; Address of exception handler
03ba 0003       |    |		.CONST	0x0003								; Number of locals
03bb			INIT_03b8:
03bb 0092 09b1  |    |		Action	Push_String_Extended,0x9b1					; "Allow_Token_Conversion"
03bd e236       | 6  |		Load	0x1,0x36
03be 02c7       |    |		Declare_Variable	Any
03bf e002       |    |		Load	0x0,0x2
03c0 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
03c1 a403       |    |		Store_Unchecked	0x2,0x3
03c2			BODY_03b8:
03c2 00d8       |    |		Load_Top	At_Offset_0
03c3 e5f9       |    |		Load	0x2,-0x7
03c4 e5fa       |    |		Load	0x2,-0x6
03c5 e5fb       |    |		Load	0x2,-0x5
03c6 e5fc       |    |		Load	0x2,-0x4
03c7 e23b       | ;  |		Load	0x1,0x3b
03c8 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
03c9 e5fd       |    |		Load	0x2,-0x3
03ca e23b       | ;  |		Load	0x1,0x3b
03cb 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
03cc e5fe       |    |		Load	0x2,-0x2
03cd e5ff       |    |		Load	0x2,-0x1
03ce e402       |    |		Load	0x2,0x2
03cf e23b       | ;  |		Load	0x1,0x3b
03d0 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
03d1 c403       |    |		Store	0x2,0x3
03d2 00d8       |    |		Load_Top	At_Offset_0
03d3 e23b       | ;  |		Load	0x1,0x3b
03d4 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
03d5 00d8       |    |		Load_Top	At_Offset_0
03d6 e5fa       |    |		Load	0x2,-0x6
03d7 824f       | O  |		Call	0x1,0x4f
03d8 00d8       |    |		Load_Top	At_Offset_0
03d9 e5ff       |    |		Load	0x2,-0x1
03da 824d       | M  |		Call	0x1,0x4d
03db 00d8       |    |		Load_Top	At_Offset_0
03dc e5fe       |    |		Load	0x2,-0x2
03dd 824d       | M  |		Call	0x1,0x4d
03de e23d       | =  |		Load	0x1,0x3d
03df 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03e0 7005       |p   |		Jump_Nonzero	0x3e6
03e1 00d8       |    |		Load_Top	At_Offset_0
03e2 0092 09b2  |    |		Action	Push_String_Extended,0x9b2					; "Must be run from a Rational site."
03e4 e23b       | ;  |		Load	0x1,0x3b
03e5 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
03e6 e5fc       |    |		Load	0x2,-0x4
03e7 821c       |    |		Call	0x1,0x1c
03e8 027f       |    |		Execute	Discrete,Equal
03e9 6805       |h   |		Jump_Zero	0x3ef
03ea 00d8       |    |		Load_Top	At_Offset_0
03eb 0092 09a5  |    |		Action	Push_String_Extended,0x9a5					; "Remote_Machine_ID specified is the Machine_ID for this machine."
03ed e23b       | ;  |		Load	0x1,0x3b
03ee 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03ef 00d8       |    |		Load_Top	At_Offset_0
03f0 e5fa       |    |		Load	0x2,-0x6
03f1 e5fb       |    |		Load	0x2,-0x5
03f2 e5ff       |    |		Load	0x2,-0x1
03f3 8251       | Q  |		Call	0x1,0x51
03f4 e5fa       |    |		Load	0x2,-0x6
03f5 e241       | A  |		Load	0x1,0x41
03f6 01df       |    |		Execute	Vector,Equal
03f7 6808       |h   |		Jump_Zero	0x400
03f8 e242       | B  |		Load	0x1,0x42
03f9 e5fb       |    |		Load	0x2,-0x5
03fa e5fc       |    |		Load	0x2,-0x4
03fb e5fd       |    |		Load	0x2,-0x3
03fc e5fe       |    |		Load	0x2,-0x2
03fd e5ff       |    |		Load	0x2,-0x1
03fe 824b       | K  |		Call	0x1,0x4b
03ff 7807       |x   |		Jump	0x407
0400 e5fa       |    |		Load	0x2,-0x6
0401 e5fb       |    |		Load	0x2,-0x5
0402 e5fc       |    |		Load	0x2,-0x4
0403 e5fd       |    |		Load	0x2,-0x3
0404 e5fe       |    |		Load	0x2,-0x2
0405 e5ff       |    |		Load	0x2,-0x1
0406 824b       | K  |		Call	0x1,0x4b
0407 00d8       |    |		Load_Top	At_Offset_0
0408 00ea       |    |		Load_Encached	Null_String_Cache
0409 e402       |    |		Load	0x2,0x2
040a e23b       | ;  |		Load	0x1,0x3b
040b 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
040c 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
040d			TRAP_03b8:
040d e002       |    |		Load	0x0,0x2
040e 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
040f 010f       |    |		Execute	Exception,Equal
0410 6806       |h   |		Jump_Zero	0x417
0411 e403       |    |		Load	0x2,0x3
0412 e402       |    |		Load	0x2,0x2
0413 e23b       | ;  |		Load	0x1,0x3b
0414 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0415 00d8       |    |		Load_Top	At_Offset_0
0416 0101       |    |		Execute	Exception,Reraise
0417 e009       |    |		Load	0x0,0x9
0418 010f       |    |		Execute	Exception,Equal
0419 6805       |h   |		Jump_Zero	0x41f
041a e403       |    |		Load	0x2,0x3
041b e402       |    |		Load	0x2,0x2
041c e23b       | ;  |		Load	0x1,0x3b
041d 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
041e 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
041f e403       |    |		Load	0x2,0x3
0420 4800       |H   |		Short_Literal	0x0
0421 4801       |H   |		Short_Literal	0x1
0422 e01a       |    |		Load	0x0,0x1a
0423 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0424 e402       |    |		Load	0x2,0x2
0425 e23b       | ;  |		Load	0x1,0x3b
0426 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0427 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 0432       | 2  |		.CONST	0x0432								; Address of begin
0429 0487       |    |		.CONST	0x0487								; Address of exception handler
042a 0003       |    |		.CONST	0x0003								; Number of locals
042b			INIT_0428:
042b 0092 09b3  |    |		Action	Push_String_Extended,0x9b3					; "Assign_Tokens"
042d e236       | 6  |		Load	0x1,0x36
042e 02c7       |    |		Declare_Variable	Any
042f e002       |    |		Load	0x0,0x2
0430 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0431 a403       |    |		Store_Unchecked	0x2,0x3
0432			BODY_0428:
0432 00d8       |    |		Load_Top	At_Offset_0
0433 e5f8       |    |		Load	0x2,-0x8
0434 e5f9       |    |		Load	0x2,-0x7
0435 e5fa       |    |		Load	0x2,-0x6
0436 e5fb       |    |		Load	0x2,-0x5
0437 e5fc       |    |		Load	0x2,-0x4
0438 e23b       | ;  |		Load	0x1,0x3b
0439 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
043a e5fd       |    |		Load	0x2,-0x3
043b e23b       | ;  |		Load	0x1,0x3b
043c 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
043d e5fe       |    |		Load	0x2,-0x2
043e e23b       | ;  |		Load	0x1,0x3b
043f 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0440 e5ff       |    |		Load	0x2,-0x1
0441 e402       |    |		Load	0x2,0x2
0442 e23b       | ;  |		Load	0x1,0x3b
0443 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0444 c403       |    |		Store	0x2,0x3
0445 00d8       |    |		Load_Top	At_Offset_0
0446 e23b       | ;  |		Load	0x1,0x3b
0447 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0448 00d8       |    |		Load_Top	At_Offset_0
0449 e5fb       |    |		Load	0x2,-0x5
044a 824e       | N  |		Call	0x1,0x4e
044b 00d8       |    |		Load_Top	At_Offset_0
044c e5f9       |    |		Load	0x2,-0x7
044d 824f       | O  |		Call	0x1,0x4f
044e 00d8       |    |		Load_Top	At_Offset_0
044f e5ff       |    |		Load	0x2,-0x1
0450 824d       | M  |		Call	0x1,0x4d
0451 e23d       | =  |		Load	0x1,0x3d
0452 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0453 7005       |p   |		Jump_Nonzero	0x459
0454 00d8       |    |		Load_Top	At_Offset_0
0455 0092 09b2  |    |		Action	Push_String_Extended,0x9b2					; "Must be run from a Rational site."
0457 e23b       | ;  |		Load	0x1,0x3b
0458 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0459 e5fc       |    |		Load	0x2,-0x4
045a 821c       |    |		Call	0x1,0x1c
045b 027f       |    |		Execute	Discrete,Equal
045c 6805       |h   |		Jump_Zero	0x462
045d 00d8       |    |		Load_Top	At_Offset_0
045e 0092 09a5  |    |		Action	Push_String_Extended,0x9a5					; "Remote_Machine_ID specified is the Machine_ID for this machine."
0460 e23b       | ;  |		Load	0x1,0x3b
0461 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0462 00d8       |    |		Load_Top	At_Offset_0
0463 e5fd       |    |		Load	0x2,-0x3
0464 e5fe       |    |		Load	0x2,-0x2
0465 e5ff       |    |		Load	0x2,-0x1
0466 8250       | P  |		Call	0x1,0x50
0467 00d8       |    |		Load_Top	At_Offset_0
0468 e5f9       |    |		Load	0x2,-0x7
0469 e5fa       |    |		Load	0x2,-0x6
046a e5ff       |    |		Load	0x2,-0x1
046b 8251       | Q  |		Call	0x1,0x51
046c e5f9       |    |		Load	0x2,-0x7
046d e241       | A  |		Load	0x1,0x41
046e 01df       |    |		Execute	Vector,Equal
046f 6809       |h   |		Jump_Zero	0x479
0470 e242       | B  |		Load	0x1,0x42
0471 e5fa       |    |		Load	0x2,-0x6
0472 e5fb       |    |		Load	0x2,-0x5
0473 e5fc       |    |		Load	0x2,-0x4
0474 e5fd       |    |		Load	0x2,-0x3
0475 e5fe       |    |		Load	0x2,-0x2
0476 e5ff       |    |		Load	0x2,-0x1
0477 824a       | J  |		Call	0x1,0x4a
0478 7808       |x   |		Jump	0x481
0479 e5f9       |    |		Load	0x2,-0x7
047a e5fa       |    |		Load	0x2,-0x6
047b e5fb       |    |		Load	0x2,-0x5
047c e5fc       |    |		Load	0x2,-0x4
047d e5fd       |    |		Load	0x2,-0x3
047e e5fe       |    |		Load	0x2,-0x2
047f e5ff       |    |		Load	0x2,-0x1
0480 824a       | J  |		Call	0x1,0x4a
0481 00d8       |    |		Load_Top	At_Offset_0
0482 00ea       |    |		Load_Encached	Null_String_Cache
0483 e402       |    |		Load	0x2,0x2
0484 e23b       | ;  |		Load	0x1,0x3b
0485 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0486 4509       |E   |		Exit_Suprogram	New_Top_Offset 0x9
0487			TRAP_0428:
0487 e002       |    |		Load	0x0,0x2
0488 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
0489 010f       |    |		Execute	Exception,Equal
048a 6806       |h   |		Jump_Zero	0x491
048b e403       |    |		Load	0x2,0x3
048c e402       |    |		Load	0x2,0x2
048d e23b       | ;  |		Load	0x1,0x3b
048e 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
048f 00d8       |    |		Load_Top	At_Offset_0
0490 0101       |    |		Execute	Exception,Reraise
0491 e009       |    |		Load	0x0,0x9
0492 010f       |    |		Execute	Exception,Equal
0493 6805       |h   |		Jump_Zero	0x499
0494 e403       |    |		Load	0x2,0x3
0495 e402       |    |		Load	0x2,0x2
0496 e23b       | ;  |		Load	0x1,0x3b
0497 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0498 4509       |E   |		Exit_Suprogram	New_Top_Offset 0x9
0499 e403       |    |		Load	0x2,0x3
049a 4800       |H   |		Short_Literal	0x0
049b 4801       |H   |		Short_Literal	0x1
049c e01a       |    |		Load	0x0,0x1a
049d 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
049e e402       |    |		Load	0x2,0x2
049f e23b       | ;  |		Load	0x1,0x3b
04a0 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
04a1 4509       |E   |		Exit_Suprogram	New_Top_Offset 0x9
04a2 0000 0000  |    |		.BLANK	0000[0x6]
04a8 ; --------------------------------------------------------------------------------------
04a8 ; SUBPROGRAM
04a8 ; --------------------------------------------------------------------------------------
04a8 04be       |    |		.CONST	0x04be								; Address of begin
04a9 04ee       |    |		.CONST	0x04ee								; Address of exception handler
04aa 0002       |    |		.CONST	0x0002								; Number of locals
04ab			INIT_04a8:
04ab e236       | 6  |		Load	0x1,0x36
04ac 02c7       |    |		Declare_Variable	Any
04ad e002       |    |		Load	0x0,0x2
04ae 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
04af e002       |    |		Load	0x0,0x2
04b0 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
04b1 e002       |    |		Load	0x0,0x2
04b2 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
04b3 e002       |    |		Load	0x0,0x2
04b4 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
04b5 484d       |HM  |		Short_Literal	0x4d
04b6 e002       |    |		Load	0x0,0x2
04b7 1b45       | E  |		Execute	Package,Field_Read,Field_Number 0x45
04b8 e002       |    |		Load	0x0,0x2
04b9 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
04ba 4800       |H   |		Short_Literal	0x0
04bb e002       |    |		Load	0x0,0x2
04bc 1846       | F  |		Execute	Package,Field_Execute,Field_Number 0x46
04bd a402       |    |		Store_Unchecked	0x2,0x2
04be			BODY_04a8:
04be 00d8       |    |		Load_Top	At_Offset_0
04bf e23b       | ;  |		Load	0x1,0x3b
04c0 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
04c1 00d8       |    |		Load_Top	At_Offset_0
04c2 e5fb       |    |		Load	0x2,-0x5
04c3 824e       | N  |		Call	0x1,0x4e
04c4 00d8       |    |		Load_Top	At_Offset_0
04c5 e5f9       |    |		Load	0x2,-0x7
04c6 824f       | O  |		Call	0x1,0x4f
04c7 00d8       |    |		Load_Top	At_Offset_0
04c8 e5ff       |    |		Load	0x2,-0x1
04c9 824d       | M  |		Call	0x1,0x4d
04ca e23d       | =  |		Load	0x1,0x3d
04cb 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
04cc 7005       |p   |		Jump_Nonzero	0x4d2
04cd 00d8       |    |		Load_Top	At_Offset_0
04ce 0092 09b2  |    |		Action	Push_String_Extended,0x9b2					; "Must be run from a Rational site."
04d0 e23b       | ;  |		Load	0x1,0x3b
04d1 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
04d2 e5fc       |    |		Load	0x2,-0x4
04d3 821c       |    |		Call	0x1,0x1c
04d4 027f       |    |		Execute	Discrete,Equal
04d5 6805       |h   |		Jump_Zero	0x4db
04d6 00d8       |    |		Load_Top	At_Offset_0
04d7 0092 09a5  |    |		Action	Push_String_Extended,0x9a5					; "Remote_Machine_ID specified is the Machine_ID for this machine."
04d9 e23b       | ;  |		Load	0x1,0x3b
04da 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
04db 00d8       |    |		Load_Top	At_Offset_0
04dc e5fd       |    |		Load	0x2,-0x3
04dd e5fe       |    |		Load	0x2,-0x2
04de e5ff       |    |		Load	0x2,-0x1
04df 8250       | P  |		Call	0x1,0x50
04e0 00d8       |    |		Load_Top	At_Offset_0
04e1 e5f9       |    |		Load	0x2,-0x7
04e2 e5fa       |    |		Load	0x2,-0x6
04e3 e5ff       |    |		Load	0x2,-0x1
04e4 8251       | Q  |		Call	0x1,0x51
04e5 e5f9       |    |		Load	0x2,-0x7
04e6 e5fa       |    |		Load	0x2,-0x6
04e7 e5fb       |    |		Load	0x2,-0x5
04e8 e5fc       |    |		Load	0x2,-0x4
04e9 e5fd       |    |		Load	0x2,-0x3
04ea e5fe       |    |		Load	0x2,-0x2
04eb e5ff       |    |		Load	0x2,-0x1
04ec 8234       | 4  |		Call	0x1,0x34
04ed 4407       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x7
04ee			TRAP_04a8:
04ee e009       |    |		Load	0x0,0x9
04ef 010f       |    |		Execute	Exception,Equal
04f0 6803       |h   |		Jump_Zero	0x4f4
04f1 e002       |    |		Load	0x0,0x2
04f2 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
04f3 0257       | W  |		Execute	Discrete,Raise
04f4 0100       |    |		Execute	Exception,Raise
04f5 0000 0000  |    |		.XXX[0x3]
04f7 0000       |    |
04f8 ; --------------------------------------------------------------------------------------
04f8 ; SUBPROGRAM
04f8 ; --------------------------------------------------------------------------------------
04f8 0502       |    |		.CONST	0x0502								; Address of begin
04f9 0532       | 2  |		.CONST	0x0532								; Address of exception handler
04fa 0003       |    |		.CONST	0x0003								; Number of locals
04fb			INIT_04f8:
04fb 0092 09b4  |    |		Action	Push_String_Extended,0x9b4					; "Assign_Site"
04fd e236       | 6  |		Load	0x1,0x36
04fe 02c7       |    |		Declare_Variable	Any
04ff e002       |    |		Load	0x0,0x2
0500 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0501 a403       |    |		Store_Unchecked	0x2,0x3
0502			BODY_04f8:
0502 00d8       |    |		Load_Top	At_Offset_0
0503 e5fc       |    |		Load	0x2,-0x4
0504 e5fd       |    |		Load	0x2,-0x3
0505 e5fe       |    |		Load	0x2,-0x2
0506 e23b       | ;  |		Load	0x1,0x3b
0507 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0508 e5ff       |    |		Load	0x2,-0x1
0509 e402       |    |		Load	0x2,0x2
050a e23b       | ;  |		Load	0x1,0x3b
050b 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
050c c403       |    |		Store	0x2,0x3
050d 00d8       |    |		Load_Top	At_Offset_0
050e e5ff       |    |		Load	0x2,-0x1
050f 824e       | N  |		Call	0x1,0x4e
0510 0092 09b5  |    |		Action	Push_String_Extended,0x9b5					; "Run the following on the remote machine:"
0512 e019       |    |		Load	0x0,0x19
0513 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0514 0092 09a7  |    |		Action	Push_String_Extended,0x9a7					; "Set_Site"
0516 e23c       | <  |		Load	0x1,0x3c
0517 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0518 e5ff       |    |		Load	0x2,-0x1
0519 e23b       | ;  |		Load	0x1,0x3b
051a 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
051b 0092 09b6  |    |		Action	Push_String_Extended,0x9b6					; "Site"
051d e23c       | <  |		Load	0x1,0x3c
051e 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
051f e241       | A  |		Load	0x1,0x41
0520 e5fd       |    |		Load	0x2,-0x3
0521 e5fe       |    |		Load	0x2,-0x2
0522 e5ff       |    |		Load	0x2,-0x1
0523 8244       | D  |		Call	0x1,0x44
0524 e23b       | ;  |		Load	0x1,0x3b
0525 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0526 0092 09b7  |    |		Action	Push_String_Extended,0x9b7					; "Code"
0528 e23c       | <  |		Load	0x1,0x3c
0529 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
052a e23c       | <  |		Load	0x1,0x3c
052b 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
052c 00d8       |    |		Load_Top	At_Offset_0
052d 00ea       |    |		Load_Encached	Null_String_Cache
052e e402       |    |		Load	0x2,0x2
052f e23b       | ;  |		Load	0x1,0x3b
0530 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0531 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0532			TRAP_04f8:
0532 e002       |    |		Load	0x0,0x2
0533 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
0534 010f       |    |		Execute	Exception,Equal
0535 6806       |h   |		Jump_Zero	0x53c
0536 e403       |    |		Load	0x2,0x3
0537 e402       |    |		Load	0x2,0x2
0538 e23b       | ;  |		Load	0x1,0x3b
0539 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
053a 00d8       |    |		Load_Top	At_Offset_0
053b 0101       |    |		Execute	Exception,Reraise
053c e009       |    |		Load	0x0,0x9
053d 010f       |    |		Execute	Exception,Equal
053e 6805       |h   |		Jump_Zero	0x544
053f e403       |    |		Load	0x2,0x3
0540 e402       |    |		Load	0x2,0x2
0541 e23b       | ;  |		Load	0x1,0x3b
0542 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0543 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0544 e403       |    |		Load	0x2,0x3
0545 4800       |H   |		Short_Literal	0x0
0546 4801       |H   |		Short_Literal	0x1
0547 e01a       |    |		Load	0x0,0x1a
0548 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0549 e402       |    |		Load	0x2,0x2
054a e23b       | ;  |		Load	0x1,0x3b
054b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
054c 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
054d 0000 0000  |    |		.XXX[0x3]
054f 0000       |    |
0550 ; --------------------------------------------------------------------------------------
0550 ; SUBPROGRAM
0550 ; --------------------------------------------------------------------------------------
0550 0566       | f  |		.CONST	0x0566								; Address of begin
0551 056f       | o  |		.CONST	0x056f								; Address of exception handler
0552 0002       |    |		.CONST	0x0002								; Number of locals
0553			INIT_0550:
0553 e236       | 6  |		Load	0x1,0x36
0554 02c7       |    |		Declare_Variable	Any
0555 e002       |    |		Load	0x0,0x2
0556 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0557 e002       |    |		Load	0x0,0x2
0558 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
0559 e002       |    |		Load	0x0,0x2
055a 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
055b e002       |    |		Load	0x0,0x2
055c 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
055d 484d       |HM  |		Short_Literal	0x4d
055e e002       |    |		Load	0x0,0x2
055f 1b45       | E  |		Execute	Package,Field_Read,Field_Number 0x45
0560 e002       |    |		Load	0x0,0x2
0561 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
0562 4800       |H   |		Short_Literal	0x0
0563 e002       |    |		Load	0x0,0x2
0564 1846       | F  |		Execute	Package,Field_Execute,Field_Number 0x46
0565 a402       |    |		Store_Unchecked	0x2,0x2
0566			BODY_0550:
0566 00d8       |    |		Load_Top	At_Offset_0
0567 e5ff       |    |		Load	0x2,-0x1
0568 824e       | N  |		Call	0x1,0x4e
0569 e241       | A  |		Load	0x1,0x41
056a e5fd       |    |		Load	0x2,-0x3
056b e5fe       |    |		Load	0x2,-0x2
056c e5ff       |    |		Load	0x2,-0x1
056d 8244       | D  |		Call	0x1,0x44
056e 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
056f			TRAP_0550:
056f e009       |    |		Load	0x0,0x9
0570 010f       |    |		Execute	Exception,Equal
0571 6803       |h   |		Jump_Zero	0x575
0572 e002       |    |		Load	0x0,0x2
0573 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
0574 0257       | W  |		Execute	Discrete,Raise
0575 0100       |    |		Execute	Exception,Raise
0576 0000 0000  |    |		.XXX[0x2]
0578 ; --------------------------------------------------------------------------------------
0578 ; SUBPROGRAM
0578 ; --------------------------------------------------------------------------------------
0578 0585       |    |		.CONST	0x0585								; Address of begin
0579 05ca       |    |		.CONST	0x05ca								; Address of exception handler
057a 0004       |    |		.CONST	0x0004								; Number of locals
057b			INIT_0578:
057b 0092 09b8  |    |		Action	Push_String_Extended,0x9b8					; "Training"
057d 0092 09b9  |    |		Action	Push_String_Extended,0x9b9					; "Training_Authorization"
057f e002       |    |		Load	0x0,0x2
0580 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0581 02c7       |    |		Declare_Variable	Any
0582 e002       |    |		Load	0x0,0x2
0583 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0584 a404       |    |		Store_Unchecked	0x2,0x4
0585			BODY_0578:
0585 00d8       |    |		Load_Top	At_Offset_0
0586 e5fc       |    |		Load	0x2,-0x4
0587 482b       |H+  |		Short_Literal	0x2b
0588 e5fd       |    |		Load	0x2,-0x3
0589 00e1       |    |		Load_Encached	Boolean_Cache
058a 011c       |    |		Execute	Any,Convert_Unchecked
058b 1c01       |    |		Execute_Immediate	Run_Utility,0x1
058c 01ca       |    |		Execute	Vector,Prepend
058d e5fe       |    |		Load	0x2,-0x2
058e e5ff       |    |		Load	0x2,-0x1
058f e403       |    |		Load	0x2,0x3
0590 e23b       | ;  |		Load	0x1,0x3b
0591 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0592 c404       |    |		Store	0x2,0x4
0593 e5fd       |    |		Load	0x2,-0x3
0594 700f       |p   |		Jump_Nonzero	0x5a4
0595 4801       |H   |		Short_Literal	0x1
0596 e017       |    |		Load	0x0,0x17
0597 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0598 4801       |H   |		Short_Literal	0x1
0599 e016       |    |		Load	0x0,0x16
059a 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
059b 4803       |H   |		Short_Literal	0x3
059c 0092 09ba  |    |		Action	Push_String_Extended,0x9ba					; "Product and Token authorization checking has been reinstated."
059e 0092 09bb  |    |		Action	Push_String_Extended,0x9bb					; "Authorization_Checking_Reinstated"
05a0 e403       |    |		Load	0x2,0x3
05a1 e23b       | ;  |		Load	0x1,0x3b
05a2 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
05a3 7820       |x   |		Jump	0x5c4
05a4 e5ff       |    |		Load	0x2,-0x1
05a5 e242       | B  |		Load	0x1,0x42
05a6 e5fe       |    |		Load	0x2,-0x2
05a7 e01b       |    |		Load	0x0,0x1b
05a8 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
05a9 e402       |    |		Load	0x2,0x2
05aa 8243       | C  |		Call	0x1,0x43
05ab 01df       |    |		Execute	Vector,Equal
05ac 680f       |h   |		Jump_Zero	0x5bc
05ad 4800       |H   |		Short_Literal	0x0
05ae e017       |    |		Load	0x0,0x17
05af 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
05b0 4800       |H   |		Short_Literal	0x0
05b1 e016       |    |		Load	0x0,0x16
05b2 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
05b3 4803       |H   |		Short_Literal	0x3
05b4 0092 09bc  |    |		Action	Push_String_Extended,0x9bc					; "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."
05b6 0092 09bd  |    |		Action	Push_String_Extended,0x9bd					; "Authorization_Checking_Suspended"
05b8 e403       |    |		Load	0x2,0x3
05b9 e23b       | ;  |		Load	0x1,0x3b
05ba 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
05bb 7808       |x   |		Jump	0x5c4
05bc 4807       |H   |		Short_Literal	0x7
05bd 0092 09be  |    |		Action	Push_String_Extended,0x9be					; "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."
05bf 0092 09bf  |    |		Action	Push_String_Extended,0x9bf					; "Authorization_Code_Error"
05c1 e403       |    |		Load	0x2,0x3
05c2 e23b       | ;  |		Load	0x1,0x3b
05c3 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
05c4 00d8       |    |		Load_Top	At_Offset_0
05c5 00ea       |    |		Load_Encached	Null_String_Cache
05c6 e403       |    |		Load	0x2,0x3
05c7 e23b       | ;  |		Load	0x1,0x3b
05c8 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
05c9 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
05ca			TRAP_0578:
05ca e002       |    |		Load	0x0,0x2
05cb 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
05cc 010f       |    |		Execute	Exception,Equal
05cd 6806       |h   |		Jump_Zero	0x5d4
05ce e404       |    |		Load	0x2,0x4
05cf e403       |    |		Load	0x2,0x3
05d0 e23b       | ;  |		Load	0x1,0x3b
05d1 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
05d2 00d8       |    |		Load_Top	At_Offset_0
05d3 0101       |    |		Execute	Exception,Reraise
05d4 e009       |    |		Load	0x0,0x9
05d5 010f       |    |		Execute	Exception,Equal
05d6 6805       |h   |		Jump_Zero	0x5dc
05d7 e404       |    |		Load	0x2,0x4
05d8 e403       |    |		Load	0x2,0x3
05d9 e23b       | ;  |		Load	0x1,0x3b
05da 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
05db 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
05dc e404       |    |		Load	0x2,0x4
05dd 4800       |H   |		Short_Literal	0x0
05de 4801       |H   |		Short_Literal	0x1
05df e01a       |    |		Load	0x0,0x1a
05e0 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
05e1 e403       |    |		Load	0x2,0x3
05e2 e23b       | ;  |		Load	0x1,0x3b
05e3 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
05e4 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
05e5 0000 0000  |    |		.XXX[0x3]
05e7 0000       |    |
05e8 ; --------------------------------------------------------------------------------------
05e8 ; SUBPROGRAM
05e8 ; --------------------------------------------------------------------------------------
05e8 05eb       |    |		.CONST	0x05eb								; Address of begin
05e9 0004       |    |		.CONST	0x0004								; Address of exception handler
05ea 0001       |    |		.CONST	0x0001								; Number of locals
05eb			BODY_05e8:
05eb			INIT_05e8:
05eb e011       |    |		Load	0x0,0x11
05ec 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
05ed e23d       | =  |		Load	0x1,0x3d
05ee 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
05ef 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
05f0 ; --------------------------------------------------------------------------------------
05f0 ; SUBPROGRAM
05f0 ; --------------------------------------------------------------------------------------
05f0 05f3       |    |		.CONST	0x05f3								; Address of begin
05f1 0004       |    |		.CONST	0x0004								; Address of exception handler
05f2 0001       |    |		.CONST	0x0001								; Number of locals
05f3			BODY_05f0:
05f3			INIT_05f0:
05f3 e011       |    |		Load	0x0,0x11
05f4 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
05f5 e23d       | =  |		Load	0x1,0x3d
05f6 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
05f7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
05f8 ; --------------------------------------------------------------------------------------
05f8 ; SUBPROGRAM
05f8 ; --------------------------------------------------------------------------------------
05f8 05fb       |    |		.CONST	0x05fb								; Address of begin
05f9 0004       |    |		.CONST	0x0004								; Address of exception handler
05fa 0001       |    |		.CONST	0x0001								; Number of locals
05fb			BODY_05f8:
05fb			INIT_05f8:
05fb e007       |    |		Load	0x0,0x7
05fc 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
05fd e23d       | =  |		Load	0x1,0x3d
05fe 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
05ff 4501       |E   |		Exit_Suprogram	New_Top_Offset 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 e007       |    |		Load	0x0,0x7
0604 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
0605 e23d       | =  |		Load	0x1,0x3d
0606 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0607 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0608 ; --------------------------------------------------------------------------------------
0608 ; SUBPROGRAM
0608 ; --------------------------------------------------------------------------------------
0608 060b       |    |		.CONST	0x060b								; Address of begin
0609 0004       |    |		.CONST	0x0004								; Address of exception handler
060a 0001       |    |		.CONST	0x0001								; Number of locals
060b			BODY_0608:
060b			INIT_0608:
060b e23d       | =  |		Load	0x1,0x3d
060c 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
060d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
060e 0000 0000  |    |		.XXX[0x2]
0610 ; --------------------------------------------------------------------------------------
0610 ; SUBPROGRAM
0610 ; --------------------------------------------------------------------------------------
0610 0613       |    |		.CONST	0x0613								; Address of begin
0611 0004       |    |		.CONST	0x0004								; Address of exception handler
0612 0001       |    |		.CONST	0x0001								; Number of locals
0613			BODY_0610:
0613			INIT_0610:
0613 e5f9       |    |		Load	0x2,-0x7
0614 e5fa       |    |		Load	0x2,-0x6
0615 e5fc       |    |		Load	0x2,-0x4
0616 e5ff       |    |		Load	0x2,-0x1
0617 0092 09c0  |    |		Action	Push_String_Extended,0x9c0					; "/"
0619 01cc       |    |		Execute	Vector,Catenate
061a e5fb       |    |		Load	0x2,-0x5
061b 01cc       |    |		Execute	Vector,Catenate
061c 0092 09c1  |    |		Action	Push_String_Extended,0x9c1					; "="
061e 01cc       |    |		Execute	Vector,Catenate
061f 4820       |H   |		Short_Literal	0x20
0620 4800       |H   |		Short_Literal	0x0
0621 480a       |H   |		Short_Literal	0xa
0622 e5fe       |    |		Load	0x2,-0x2
0623 823e       | >  |		Call	0x1,0x3e
0624 01cc       |    |		Execute	Vector,Catenate
0625 0092 09c2  |    |		Action	Push_String_Extended,0x9c2					; "|"
0627 01cc       |    |		Execute	Vector,Catenate
0628 4820       |H   |		Short_Literal	0x20
0629 4800       |H   |		Short_Literal	0x0
062a 480a       |H   |		Short_Literal	0xa
062b e5fd       |    |		Load	0x2,-0x3
062c 823e       | >  |		Call	0x1,0x3e
062d 01cc       |    |		Execute	Vector,Catenate
062e 8243       | C  |		Call	0x1,0x43
062f 4407       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x7
0630 ; --------------------------------------------------------------------------------------
0630 ; SUBPROGRAM
0630 ; --------------------------------------------------------------------------------------
0630 0633       | 3  |		.CONST	0x0633								; Address of begin
0631 0004       |    |		.CONST	0x0004								; Address of exception handler
0632 0001       |    |		.CONST	0x0001								; Number of locals
0633			BODY_0630:
0633			INIT_0630:
0633 e5fd       |    |		Load	0x2,-0x3
0634 01db       |    |		Execute	Vector,Length
0635 6808       |h   |		Jump_Zero	0x63e
0636 e241       | A  |		Load	0x1,0x41
0637 e5fe       |    |		Load	0x2,-0x2
0638 e5ff       |    |		Load	0x2,-0x1
0639 e5fd       |    |		Load	0x2,-0x3
063a 01cc       |    |		Execute	Vector,Catenate
063b e017       |    |		Load	0x0,0x17
063c 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
063d 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
063e e5fc       |    |		Load	0x2,-0x4
063f 01db       |    |		Execute	Vector,Length
0640 7006       |p   |		Jump_Nonzero	0x647
0641 e242       | B  |		Load	0x1,0x42
0642 e5fe       |    |		Load	0x2,-0x2
0643 e5ff       |    |		Load	0x2,-0x1
0644 e017       |    |		Load	0x0,0x17
0645 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0646 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0647 e5fc       |    |		Load	0x2,-0x4
0648 e5fe       |    |		Load	0x2,-0x2
0649 e5ff       |    |		Load	0x2,-0x1
064a e017       |    |		Load	0x0,0x17
064b 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
064c 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
064d 0000 0000  |    |		.XXX[0x3]
064f 0000       |    |
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 e5fa       |    |		Load	0x2,-0x6
0654 e5fb       |    |		Load	0x2,-0x5
0655 e5fc       |    |		Load	0x2,-0x4
0656 482d       |H-  |		Short_Literal	0x2d
0657 e5ff       |    |		Load	0x2,-0x1
0658 01cb       |    |		Execute	Vector,Append
0659 e5fe       |    |		Load	0x2,-0x2
065a 01cc       |    |		Execute	Vector,Catenate
065b 4820       |H   |		Short_Literal	0x20
065c 4800       |H   |		Short_Literal	0x0
065d 480a       |H   |		Short_Literal	0xa
065e e5fd       |    |		Load	0x2,-0x3
065f 823e       | >  |		Call	0x1,0x3e
0660 01cc       |    |		Execute	Vector,Catenate
0661 8243       | C  |		Call	0x1,0x43
0662 4406       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x6
0663 0000 0000  |    |		.BLANK	0000[0x5]
0668 ; --------------------------------------------------------------------------------------
0668 ; SUBPROGRAM
0668 ; --------------------------------------------------------------------------------------
0668 066b       | k  |		.CONST	0x066b								; Address of begin
0669 0004       |    |		.CONST	0x0004								; Address of exception handler
066a 0001       |    |		.CONST	0x0001								; Number of locals
066b			BODY_0668:
066b			INIT_0668:
066b 4801       |H   |		Short_Literal	0x1
066c e5fc       |    |		Load	0x2,-0x4
066d e242       | B  |		Load	0x1,0x42
066e e5fb       |    |		Load	0x2,-0x5
066f 821b       |    |		Call	0x1,0x1b
0670 821c       |    |		Call	0x1,0x1c
0671 e5fd       |    |		Load	0x2,-0x3
0672 e5fe       |    |		Load	0x2,-0x2
0673 e5ff       |    |		Load	0x2,-0x1
0674 8234       | 4  |		Call	0x1,0x34
0675 e006       |    |		Load	0x0,0x6
0676 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0677 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
0678 ; --------------------------------------------------------------------------------------
0678 ; SUBPROGRAM
0678 ; --------------------------------------------------------------------------------------
0678 067b       | {  |		.CONST	0x067b								; Address of begin
0679 0004       |    |		.CONST	0x0004								; Address of exception handler
067a 0001       |    |		.CONST	0x0001								; Number of locals
067b			BODY_0678:
067b			INIT_0678:
067b 4801       |H   |		Short_Literal	0x1
067c e5fc       |    |		Load	0x2,-0x4
067d e242       | B  |		Load	0x1,0x42
067e e5fb       |    |		Load	0x2,-0x5
067f 821c       |    |		Call	0x1,0x1c
0680 e5fd       |    |		Load	0x2,-0x3
0681 e5fe       |    |		Load	0x2,-0x2
0682 e5ff       |    |		Load	0x2,-0x1
0683 8245       | E  |		Call	0x1,0x45
0684 e006       |    |		Load	0x0,0x6
0685 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0686 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
0687 0000       |    |		.XXX[0x1]
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 e5ff       |    |		Load	0x2,-0x1
068c e011       |    |		Load	0x0,0x11
068d 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
068e 8249       | I  |		Call	0x1,0x49
068f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0690 ; --------------------------------------------------------------------------------------
0690 ; SUBPROGRAM
0690 ; --------------------------------------------------------------------------------------
0690 0695       |    |		.CONST	0x0695								; Address of begin
0691 0004       |    |		.CONST	0x0004								; Address of exception handler
0692 0002       |    |		.CONST	0x0002								; Number of locals
0693			INIT_0690:
0693 029f 094b  |   K|		Declare_Subprogram	INIT_0948,For_Call
0695			BODY_0690:
0695 e5ff       |    |		Load	0x2,-0x1
0696 8402       |    |		Call	0x2,0x2
0697 e5fe       |    |		Load	0x2,-0x2
0698 8402       |    |		Call	0x2,0x2
0699 017f       |    |		Execute	Record,Equal
069a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
069b 0000 0000  |    |		.BLANK	0000[0x5]
06a0 ; --------------------------------------------------------------------------------------
06a0 ; SUBPROGRAM
06a0 ; --------------------------------------------------------------------------------------
06a0 06a3       |    |		.CONST	0x06a3								; Address of begin
06a1 0004       |    |		.CONST	0x0004								; Address of exception handler
06a2 0001       |    |		.CONST	0x0001								; Number of locals
06a3			BODY_06a0:
06a3			INIT_06a0:
06a3 0092 09b5  |    |		Action	Push_String_Extended,0x9b5					; "Run the following on the remote machine:"
06a5 e019       |    |		Load	0x0,0x19
06a6 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
06a7 0092 0998  |    |		Action	Push_String_Extended,0x998					; "Accept_Tokens"
06a9 e23c       | <  |		Load	0x1,0x3c
06aa 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
06ab e5ff       |    |		Load	0x2,-0x1
06ac e23b       | ;  |		Load	0x1,0x3b
06ad 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
06ae 0092 09c3  |    |		Action	Push_String_Extended,0x9c3					; "Product"
06b0 e23c       | <  |		Load	0x1,0x3c
06b1 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
06b2 4820       |H   |		Short_Literal	0x20
06b3 4800       |H   |		Short_Literal	0x0
06b4 480a       |H   |		Short_Literal	0xa
06b5 e5fe       |    |		Load	0x2,-0x2
06b6 823e       | >  |		Call	0x1,0x3e
06b7 0092 09c4  |    |		Action	Push_String_Extended,0x9c4					; "Donation"
06b9 e23c       | <  |		Load	0x1,0x3c
06ba 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
06bb 4820       |H   |		Short_Literal	0x20
06bc 4800       |H   |		Short_Literal	0x0
06bd 480a       |H   |		Short_Literal	0xa
06be e5fd       |    |		Load	0x2,-0x3
06bf 823e       | >  |		Call	0x1,0x3e
06c0 0092 09c5  |    |		Action	Push_String_Extended,0x9c5					; "Resulting_Count"
06c2 e23c       | <  |		Load	0x1,0x3c
06c3 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
06c4 e5f9       |    |		Load	0x2,-0x7
06c5 e5fa       |    |		Load	0x2,-0x6
06c6 e5fb       |    |		Load	0x2,-0x5
06c7 e5fc       |    |		Load	0x2,-0x4
06c8 e5fd       |    |		Load	0x2,-0x3
06c9 e5fe       |    |		Load	0x2,-0x2
06ca e5ff       |    |		Load	0x2,-0x1
06cb 8234       | 4  |		Call	0x1,0x34
06cc e23b       | ;  |		Load	0x1,0x3b
06cd 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
06ce 0092 09b7  |    |		Action	Push_String_Extended,0x9b7					; "Code"
06d0 e23c       | <  |		Load	0x1,0x3c
06d1 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
06d2 e5fa       |    |		Load	0x2,-0x6
06d3 01db       |    |		Execute	Vector,Length
06d4 6807       |h   |		Jump_Zero	0x6dc
06d5 e5fa       |    |		Load	0x2,-0x6
06d6 e23b       | ;  |		Load	0x1,0x3b
06d7 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
06d8 0092 09c6  |    |		Action	Push_String_Extended,0x9c6					; "Authorization"
06da e23c       | <  |		Load	0x1,0x3c
06db 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
06dc e23c       | <  |		Load	0x1,0x3c
06dd 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
06de 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
06df 0000       |    |		.XXX[0x1]
06e0 ; --------------------------------------------------------------------------------------
06e0 ; SUBPROGRAM
06e0 ; --------------------------------------------------------------------------------------
06e0 06e3       |    |		.CONST	0x06e3								; Address of begin
06e1 0004       |    |		.CONST	0x0004								; Address of exception handler
06e2 0001       |    |		.CONST	0x0001								; Number of locals
06e3			BODY_06e0:
06e3			INIT_06e0:
06e3 0092 09b5  |    |		Action	Push_String_Extended,0x9b5					; "Run the following on the remote machine:"
06e5 e019       |    |		Load	0x0,0x19
06e6 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
06e7 0092 09ac  |    |		Action	Push_String_Extended,0x9ac					; "Convert_Tokens"
06e9 e23c       | <  |		Load	0x1,0x3c
06ea 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
06eb e5ff       |    |		Load	0x2,-0x1
06ec e23b       | ;  |		Load	0x1,0x3b
06ed 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
06ee 0092 09c7  |    |		Action	Push_String_Extended,0x9c7					; "Current_Product"
06f0 e23c       | <  |		Load	0x1,0x3c
06f1 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
06f2 e5fe       |    |		Load	0x2,-0x2
06f3 e23b       | ;  |		Load	0x1,0x3b
06f4 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
06f5 0092 09c8  |    |		Action	Push_String_Extended,0x9c8					; "New_Product"
06f7 e23c       | <  |		Load	0x1,0x3c
06f8 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
06f9 4820       |H   |		Short_Literal	0x20
06fa 4800       |H   |		Short_Literal	0x0
06fb 480a       |H   |		Short_Literal	0xa
06fc e5fd       |    |		Load	0x2,-0x3
06fd 823e       | >  |		Call	0x1,0x3e
06fe 0092 09c9  |    |		Action	Push_String_Extended,0x9c9					; "Token_Count"
0700 e23c       | <  |		Load	0x1,0x3c
0701 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0702 e5fa       |    |		Load	0x2,-0x6
0703 e5fb       |    |		Load	0x2,-0x5
0704 e5fc       |    |		Load	0x2,-0x4
0705 e5fd       |    |		Load	0x2,-0x3
0706 e5fe       |    |		Load	0x2,-0x2
0707 e5ff       |    |		Load	0x2,-0x1
0708 8245       | E  |		Call	0x1,0x45
0709 e23b       | ;  |		Load	0x1,0x3b
070a 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
070b 0092 09b7  |    |		Action	Push_String_Extended,0x9b7					; "Code"
070d e23c       | <  |		Load	0x1,0x3c
070e 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
070f e5fb       |    |		Load	0x2,-0x5
0710 01db       |    |		Execute	Vector,Length
0711 6807       |h   |		Jump_Zero	0x719
0712 e5fb       |    |		Load	0x2,-0x5
0713 e23b       | ;  |		Load	0x1,0x3b
0714 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0715 0092 09c6  |    |		Action	Push_String_Extended,0x9c6					; "Authorization"
0717 e23c       | <  |		Load	0x1,0x3c
0718 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0719 e23c       | <  |		Load	0x1,0x3c
071a 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
071b 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
071c 0000 0000  |    |		.BLANK	0000[0x4]
0720 ; --------------------------------------------------------------------------------------
0720 ; SUBPROGRAM
0720 ; --------------------------------------------------------------------------------------
0720 0723       | #  |		.CONST	0x0723								; Address of begin
0721 0004       |    |		.CONST	0x0004								; Address of exception handler
0722 0001       |    |		.CONST	0x0001								; Number of locals
0723			BODY_0720:
0723			INIT_0720:
0723 e5ff       |    |		Load	0x2,-0x1
0724 e235       | 5  |		Load	0x1,0x35
0725 025f       | _  |		Execute	Discrete,Not_In_Type
0726 682a       |h*  |		Jump_Zero	0x751
0727 e5fc       |    |		Load	0x2,-0x4
0728 0092 09ca  |    |		Action	Push_String_Extended,0x9ca					; "The legal range of "
072a e5fe       |    |		Load	0x2,-0x2
072b 01cc       |    |		Execute	Vector,Catenate
072c 0092 09cb  |    |		Action	Push_String_Extended,0x9cb					; " for "
072e 01cc       |    |		Execute	Vector,Catenate
072f e5fd       |    |		Load	0x2,-0x3
0730 01cc       |    |		Execute	Vector,Catenate
0731 0092 09cc  |    |		Action	Push_String_Extended,0x9cc					; " is "
0733 01cc       |    |		Execute	Vector,Catenate
0734 4820       |H   |		Short_Literal	0x20
0735 4800       |H   |		Short_Literal	0x0
0736 480a       |H   |		Short_Literal	0xa
0737 4800       |H   |		Short_Literal	0x0
0738 823e       | >  |		Call	0x1,0x3e
0739 01cc       |    |		Execute	Vector,Catenate
073a 0092 09cd  |    |		Action	Push_String_Extended,0x9cd					; ".."
073c 01cc       |    |		Execute	Vector,Catenate
073d 4820       |H   |		Short_Literal	0x20
073e 4800       |H   |		Short_Literal	0x0
073f 480a       |H   |		Short_Literal	0xa
0740 4840       |H@  |		Short_Literal	0x40
0741 823e       | >  |		Call	0x1,0x3e
0742 01cc       |    |		Execute	Vector,Catenate
0743 0092 09ce  |    |		Action	Push_String_Extended,0x9ce					; ", but the value specified ("
0745 01cc       |    |		Execute	Vector,Catenate
0746 4820       |H   |		Short_Literal	0x20
0747 4800       |H   |		Short_Literal	0x0
0748 480a       |H   |		Short_Literal	0xa
0749 e5ff       |    |		Load	0x2,-0x1
074a 823e       | >  |		Call	0x1,0x3e
074b 01cc       |    |		Execute	Vector,Catenate
074c 0092 09cf  |    |		Action	Push_String_Extended,0x9cf					; ") is outside that range"
074e 01cc       |    |		Execute	Vector,Catenate
074f e23b       | ;  |		Load	0x1,0x3b
0750 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0751 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0752 0000 0000  |    |		.BLANK	0000[0x6]
0758 ; --------------------------------------------------------------------------------------
0758 ; SUBPROGRAM
0758 ; --------------------------------------------------------------------------------------
0758 075b       | [  |		.CONST	0x075b								; Address of begin
0759 0004       |    |		.CONST	0x0004								; Address of exception handler
075a 0001       |    |		.CONST	0x0001								; Number of locals
075b			BODY_0758:
075b			INIT_0758:
075b e5ff       |    |		Load	0x2,-0x1
075c 01db       |    |		Execute	Vector,Length
075d 7005       |p   |		Jump_Nonzero	0x763
075e e5fe       |    |		Load	0x2,-0x2
075f 0092 09d0  |    |		Action	Push_String_Extended,0x9d0					; "Product name not specified."
0761 e23b       | ;  |		Load	0x1,0x3b
0762 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0763 00cf       |    |		Action	Mark_Auxiliary
0764 e5ff       |    |		Load	0x2,-0x1
0765 01d9       |    |		Execute	Vector,Reverse_Bounds
0766 0263       | c  |		Execute	Discrete,Above_Bound
0767 7018       |p   |		Jump_Nonzero	0x780
0768 00d8       |    |		Load_Top	At_Offset_0
0769 e5ff       |    |		Load	0x2,-0x1
076a 01d7       |    |		Execute	Vector,Field_Read
076b 4820       |H   |		Short_Literal	0x20
076c 487e       |H~  |		Short_Literal	0x7e
076d 0261       | a  |		Execute	Discrete,Not_In_Range
076e 680f       |h   |		Jump_Zero	0x77e
076f e5fe       |    |		Load	0x2,-0x2
0770 0092 09d1  |    |		Action	Push_String_Extended,0x9d1					; "Product name contains an illegal character ("
0772 e404       |    |		Load	0x2,0x4
0773 e5ff       |    |		Load	0x2,-0x1
0774 01d7       |    |		Execute	Vector,Field_Read
0775 00e8       |    |		Load_Encached	Character_Cache
0776 011c       |    |		Execute	Any,Convert_Unchecked
0777 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0778 01cc       |    |		Execute	Vector,Catenate
0779 0092 09aa  |    |		Action	Push_String_Extended,0x9aa					; ")."
077b 01cc       |    |		Execute	Vector,Catenate
077c e23b       | ;  |		Load	0x1,0x3b
077d 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
077e 00c8       |    |		Action	Pop_Auxiliary_Range
077f 3fe8       |?   |		Loop_Increasing	0x768
0780 00ce       |    |		Action	Pop_Auxiliary
0781 e5ff       |    |		Load	0x2,-0x1
0782 4820       |H   |		Short_Literal	0x20
0783 e5ff       |    |		Load	0x2,-0x1
0784 e006       |    |		Load	0x0,0x6
0785 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0786 01de       |    |		Execute	Vector,Not_Equal
0787 6805       |h   |		Jump_Zero	0x78d
0788 e5fe       |    |		Load	0x2,-0x2
0789 0092 09d2  |    |		Action	Push_String_Extended,0x9d2					; "Product name includes leading or trailing blanks."
078b e23b       | ;  |		Load	0x1,0x3b
078c 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
078d 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
078e 0000 0000  |    |		.XXX[0x2]
0790 ; --------------------------------------------------------------------------------------
0790 ; SUBPROGRAM
0790 ; --------------------------------------------------------------------------------------
0790 0793       |    |		.CONST	0x0793								; Address of begin
0791 0004       |    |		.CONST	0x0004								; Address of exception handler
0792 0001       |    |		.CONST	0x0001								; Number of locals
0793			BODY_0790:
0793			INIT_0790:
0793 e5ff       |    |		Load	0x2,-0x1
0794 01db       |    |		Execute	Vector,Length
0795 7005       |p   |		Jump_Nonzero	0x79b
0796 e5fe       |    |		Load	0x2,-0x2
0797 0092 09d3  |    |		Action	Push_String_Extended,0x9d3					; "Site name not specified."
0799 e23b       | ;  |		Load	0x1,0x3b
079a 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
079b 00cf       |    |		Action	Mark_Auxiliary
079c e5ff       |    |		Load	0x2,-0x1
079d 01d9       |    |		Execute	Vector,Reverse_Bounds
079e 0263       | c  |		Execute	Discrete,Above_Bound
079f 7018       |p   |		Jump_Nonzero	0x7b8
07a0 00d8       |    |		Load_Top	At_Offset_0
07a1 e5ff       |    |		Load	0x2,-0x1
07a2 01d7       |    |		Execute	Vector,Field_Read
07a3 4820       |H   |		Short_Literal	0x20
07a4 487e       |H~  |		Short_Literal	0x7e
07a5 0261       | a  |		Execute	Discrete,Not_In_Range
07a6 680f       |h   |		Jump_Zero	0x7b6
07a7 e5fe       |    |		Load	0x2,-0x2
07a8 0092 09d4  |    |		Action	Push_String_Extended,0x9d4					; "Site name contains an illegal character ("
07aa e404       |    |		Load	0x2,0x4
07ab e5ff       |    |		Load	0x2,-0x1
07ac 01d7       |    |		Execute	Vector,Field_Read
07ad 00e8       |    |		Load_Encached	Character_Cache
07ae 011c       |    |		Execute	Any,Convert_Unchecked
07af 1c01       |    |		Execute_Immediate	Run_Utility,0x1
07b0 01cc       |    |		Execute	Vector,Catenate
07b1 0092 09aa  |    |		Action	Push_String_Extended,0x9aa					; ")."
07b3 01cc       |    |		Execute	Vector,Catenate
07b4 e23b       | ;  |		Load	0x1,0x3b
07b5 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
07b6 00c8       |    |		Action	Pop_Auxiliary_Range
07b7 3fe8       |?   |		Loop_Increasing	0x7a0
07b8 00ce       |    |		Action	Pop_Auxiliary
07b9 e5ff       |    |		Load	0x2,-0x1
07ba 4820       |H   |		Short_Literal	0x20
07bb e5ff       |    |		Load	0x2,-0x1
07bc e006       |    |		Load	0x0,0x6
07bd 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
07be 01de       |    |		Execute	Vector,Not_Equal
07bf 6805       |h   |		Jump_Zero	0x7c5
07c0 e5fe       |    |		Load	0x2,-0x2
07c1 0092 09d5  |    |		Action	Push_String_Extended,0x9d5					; "Site name includes leading or trailing blanks."
07c3 e23b       | ;  |		Load	0x1,0x3b
07c4 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
07c5 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
07c6 0000 0000  |    |		.XXX[0x2]
07c8 ; --------------------------------------------------------------------------------------
07c8 ; SUBPROGRAM
07c8 ; --------------------------------------------------------------------------------------
07c8 07cd       |    |		.CONST	0x07cd								; Address of begin
07c9 0004       |    |		.CONST	0x0004								; Address of exception handler
07ca 0002       |    |		.CONST	0x0002								; Number of locals
07cb			INIT_07c8:
07cb 029f 096b  |   k|		Declare_Subprogram	INIT_0968,For_Call
07cd			BODY_07c8:
07cd 4820       |H   |		Short_Literal	0x20
07ce e5ff       |    |		Load	0x2,-0x1
07cf e006       |    |		Load	0x0,0x6
07d0 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
07d1 01db       |    |		Execute	Vector,Length
07d2 7001       |p   |		Jump_Nonzero	0x7d4
07d3 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
07d4 00cf       |    |		Action	Mark_Auxiliary
07d5 e5ff       |    |		Load	0x2,-0x1
07d6 01d9       |    |		Execute	Vector,Reverse_Bounds
07d7 0263       | c  |		Execute	Discrete,Above_Bound
07d8 7018       |p   |		Jump_Nonzero	0x7f1
07d9 00d8       |    |		Load_Top	At_Offset_0
07da e5ff       |    |		Load	0x2,-0x1
07db 01d7       |    |		Execute	Vector,Field_Read
07dc 4820       |H   |		Short_Literal	0x20
07dd 487e       |H~  |		Short_Literal	0x7e
07de 0261       | a  |		Execute	Discrete,Not_In_Range
07df 680f       |h   |		Jump_Zero	0x7ef
07e0 e5fe       |    |		Load	0x2,-0x2
07e1 0092 09d6  |    |		Action	Push_String_Extended,0x9d6					; "Date contains an illegal character ("
07e3 e405       |    |		Load	0x2,0x5
07e4 e5ff       |    |		Load	0x2,-0x1
07e5 01d7       |    |		Execute	Vector,Field_Read
07e6 00e8       |    |		Load_Encached	Character_Cache
07e7 011c       |    |		Execute	Any,Convert_Unchecked
07e8 1c01       |    |		Execute_Immediate	Run_Utility,0x1
07e9 01cc       |    |		Execute	Vector,Catenate
07ea 0092 09aa  |    |		Action	Push_String_Extended,0x9aa					; ")."
07ec 01cc       |    |		Execute	Vector,Catenate
07ed e23b       | ;  |		Load	0x1,0x3b
07ee 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
07ef 00c8       |    |		Action	Pop_Auxiliary_Range
07f0 3fe8       |?   |		Loop_Increasing	0x7d9
07f1 00ce       |    |		Action	Pop_Auxiliary
07f2 8402       |    |		Call	0x2,0x2
07f3 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
07f4 0000 0000  |    |		.BLANK	0000[0x4]
07f8 ; --------------------------------------------------------------------------------------
07f8 ; SUBPROGRAM
07f8 ; --------------------------------------------------------------------------------------
07f8 0801       |    |		.CONST	0x0801								; 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 8253       | S  |		Call	0x1,0x53
07fd 00e3       |    |		Load_Encached	Natural_Cache
07fe 03f1       |    |		Declare_Variable	Discrete,With_Value
07ff 029f 0983  |    |		Declare_Subprogram	INIT_0980,For_Call
0801			BODY_07f8:
0801 e5fc       |    |		Load	0x2,-0x4
0802 e5ff       |    |		Load	0x2,-0x1
0803 0092 09c4  |    |		Action	Push_String_Extended,0x9c4					; "Donation"
0805 e5fe       |    |		Load	0x2,-0x2
0806 824c       | L  |		Call	0x1,0x4c
0807 e5fc       |    |		Load	0x2,-0x4
0808 e5ff       |    |		Load	0x2,-0x1
0809 0092 09c5  |    |		Action	Push_String_Extended,0x9c5					; "Resulting_Count"
080b e5fd       |    |		Load	0x2,-0x3
080c 824c       | L  |		Call	0x1,0x4c
080d e5fe       |    |		Load	0x2,-0x2
080e e5fd       |    |		Load	0x2,-0x3
080f 027d       | }  |		Execute	Discrete,Greater
0810 681c       |h   |		Jump_Zero	0x82d
0811 e5fc       |    |		Load	0x2,-0x4
0812 0092 09d7  |    |		Action	Push_String_Extended,0x9d7					; "The number of tokens ("
0814 4820       |H   |		Short_Literal	0x20
0815 4800       |H   |		Short_Literal	0x0
0816 480a       |H   |		Short_Literal	0xa
0817 e5fe       |    |		Load	0x2,-0x2
0818 823e       | >  |		Call	0x1,0x3e
0819 01cc       |    |		Execute	Vector,Catenate
081a 0092 09d8  |    |		Action	Push_String_Extended,0x9d8					; ") for "
081c 01cc       |    |		Execute	Vector,Catenate
081d e5ff       |    |		Load	0x2,-0x1
081e 01cc       |    |		Execute	Vector,Catenate
081f 0092 09d9  |    |		Action	Push_String_Extended,0x9d9					; " exceeds the target authorization ("
0821 01cc       |    |		Execute	Vector,Catenate
0822 4820       |H   |		Short_Literal	0x20
0823 4800       |H   |		Short_Literal	0x0
0824 480a       |H   |		Short_Literal	0xa
0825 e5fd       |    |		Load	0x2,-0x3
0826 823e       | >  |		Call	0x1,0x3e
0827 01cc       |    |		Execute	Vector,Catenate
0828 0092 09aa  |    |		Action	Push_String_Extended,0x9aa					; ")."
082a 01cc       |    |		Execute	Vector,Catenate
082b e23b       | ;  |		Load	0x1,0x3b
082c 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
082d e5fe       |    |		Load	0x2,-0x2
082e e5fd       |    |		Load	0x2,-0x3
082f 027f       |    |		Execute	Discrete,Equal
0830 6820       |h   |		Jump_Zero	0x851
0831 4801       |H   |		Short_Literal	0x1
0832 e237       | 7  |		Load	0x1,0x37
0833 e5ff       |    |		Load	0x2,-0x1
0834 e006       |    |		Load	0x0,0x6
0835 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0836 6805       |h   |		Jump_Zero	0x83c
0837 e238       | 8  |		Load	0x1,0x38
0838 8403       |    |		Call	0x2,0x3
0839 e239       | 9  |		Load	0x1,0x39
083a 8403       |    |		Call	0x2,0x3
083b 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
083c 4801       |H   |		Short_Literal	0x1
083d e238       | 8  |		Load	0x1,0x38
083e e5ff       |    |		Load	0x2,-0x1
083f e006       |    |		Load	0x0,0x6
0840 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0841 6805       |h   |		Jump_Zero	0x847
0842 e237       | 7  |		Load	0x1,0x37
0843 8403       |    |		Call	0x2,0x3
0844 e239       | 9  |		Load	0x1,0x39
0845 8403       |    |		Call	0x2,0x3
0846 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0847 4801       |H   |		Short_Literal	0x1
0848 e239       | 9  |		Load	0x1,0x39
0849 e5ff       |    |		Load	0x2,-0x1
084a e006       |    |		Load	0x0,0x6
084b 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
084c 6804       |h   |		Jump_Zero	0x851
084d e238       | 8  |		Load	0x1,0x38
084e 8403       |    |		Call	0x2,0x3
084f e237       | 7  |		Load	0x1,0x37
0850 8403       |    |		Call	0x2,0x3
0851 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0852 0000 0000  |    |		.BLANK	0000[0x6]
0858 ; --------------------------------------------------------------------------------------
0858 ; SUBPROGRAM
0858 ; --------------------------------------------------------------------------------------
0858 085b       | [  |		.CONST	0x085b								; Address of begin
0859 0004       |    |		.CONST	0x0004								; Address of exception handler
085a 0001       |    |		.CONST	0x0001								; Number of locals
085b			BODY_0858:
085b			INIT_0858:
085b e5fe       |    |		Load	0x2,-0x2
085c 01db       |    |		Execute	Vector,Length
085d 680a       |h   |		Jump_Zero	0x868
085e e5fd       |    |		Load	0x2,-0x3
085f 01db       |    |		Execute	Vector,Length
0860 6807       |h   |		Jump_Zero	0x868
0861 e5fc       |    |		Load	0x2,-0x4
0862 0092 09da  |    |		Action	Push_String_Extended,0x9da					; "Cannot specify both authorization and date for "
0864 e5ff       |    |		Load	0x2,-0x1
0865 01cc       |    |		Execute	Vector,Catenate
0866 e23b       | ;  |		Load	0x1,0x3b
0867 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0868 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0869 0000 0000  |    |		.BLANK	0000[0x7]
0870 ; --------------------------------------------------------------------------------------
0870 ; SUBPROGRAM
0870 ; --------------------------------------------------------------------------------------
0870 087b       | {  |		.CONST	0x087b								; Address of begin
0871 0004       |    |		.CONST	0x0004								; Address of exception handler
0872 0003       |    |		.CONST	0x0003								; Number of locals
0873			INIT_0870:
0873 e5ff       |    |		Load	0x2,-0x1
0874 8253       | S  |		Call	0x1,0x53
0875 00e3       |    |		Load_Encached	Natural_Cache
0876 03f1       |    |		Declare_Variable	Discrete,With_Value
0877 e5ff       |    |		Load	0x2,-0x1
0878 8255       | U  |		Call	0x1,0x55
0879 00e3       |    |		Load_Encached	Natural_Cache
087a 03f1       |    |		Declare_Variable	Discrete,With_Value
087b			BODY_0870:
087b e402       |    |		Load	0x2,0x2
087c 700a       |p   |		Jump_Nonzero	0x887
087d e5fd       |    |		Load	0x2,-0x3
087e 0092 09db  |    |		Action	Push_String_Extended,0x9db					; "There are currently no tokens for "
0880 e5ff       |    |		Load	0x2,-0x1
0881 01cc       |    |		Execute	Vector,Catenate
0882 0092 09dc  |    |		Action	Push_String_Extended,0x9dc					; ", so they can't be donated."
0884 01cc       |    |		Execute	Vector,Catenate
0885 e23b       | ;  |		Load	0x1,0x3b
0886 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0887 e5fe       |    |		Load	0x2,-0x2
0888 e402       |    |		Load	0x2,0x2
0889 027d       | }  |		Execute	Discrete,Greater
088a 681c       |h   |		Jump_Zero	0x8a7
088b e5fd       |    |		Load	0x2,-0x3
088c 0092 09dd  |    |		Action	Push_String_Extended,0x9dd					; "The requested donation ("
088e 4820       |H   |		Short_Literal	0x20
088f 4800       |H   |		Short_Literal	0x0
0890 480a       |H   |		Short_Literal	0xa
0891 e5fe       |    |		Load	0x2,-0x2
0892 823e       | >  |		Call	0x1,0x3e
0893 01cc       |    |		Execute	Vector,Catenate
0894 0092 09d8  |    |		Action	Push_String_Extended,0x9d8					; ") for "
0896 01cc       |    |		Execute	Vector,Catenate
0897 e5ff       |    |		Load	0x2,-0x1
0898 01cc       |    |		Execute	Vector,Catenate
0899 0092 09de  |    |		Action	Push_String_Extended,0x9de					; "exceeds the current limit ("
089b 01cc       |    |		Execute	Vector,Catenate
089c 4820       |H   |		Short_Literal	0x20
089d 4800       |H   |		Short_Literal	0x0
089e 480a       |H   |		Short_Literal	0xa
089f e402       |    |		Load	0x2,0x2
08a0 823e       | >  |		Call	0x1,0x3e
08a1 01cc       |    |		Execute	Vector,Catenate
08a2 0092 09aa  |    |		Action	Push_String_Extended,0x9aa					; ")."
08a4 01cc       |    |		Execute	Vector,Catenate
08a5 e23b       | ;  |		Load	0x1,0x3b
08a6 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
08a7 e402       |    |		Load	0x2,0x2
08a8 e5fe       |    |		Load	0x2,-0x2
08a9 0272       | r  |		Execute	Discrete,Minus
08aa e403       |    |		Load	0x2,0x3
08ab 027c       | |  |		Execute	Discrete,Less
08ac 6813       |h   |		Jump_Zero	0x8c0
08ad e5fd       |    |		Load	0x2,-0x3
08ae 0092 09df  |    |		Action	Push_String_Extended,0x9df					; "Donation of "
08b0 4820       |H   |		Short_Literal	0x20
08b1 4800       |H   |		Short_Literal	0x0
08b2 480a       |H   |		Short_Literal	0xa
08b3 e5fe       |    |		Load	0x2,-0x2
08b4 823e       | >  |		Call	0x1,0x3e
08b5 01cc       |    |		Execute	Vector,Catenate
08b6 0092 09e0  |    |		Action	Push_String_Extended,0x9e0					; " tokens for "
08b8 01cc       |    |		Execute	Vector,Catenate
08b9 e5ff       |    |		Load	0x2,-0x1
08ba 01cc       |    |		Execute	Vector,Catenate
08bb 0092 09e1  |    |		Action	Push_String_Extended,0x9e1					; " would transfer tokens currently in use."
08bd 01cc       |    |		Execute	Vector,Catenate
08be e23b       | ;  |		Load	0x1,0x3b
08bf 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
08c0 e402       |    |		Load	0x2,0x2
08c1 e5fe       |    |		Load	0x2,-0x2
08c2 0272       | r  |		Execute	Discrete,Minus
08c3 00d8       |    |		Load_Top	At_Offset_0
08c4 00e3       |    |		Load_Encached	Natural_Cache
08c5 0260       | `  |		Execute	Discrete,In_Type
08c6 7001       |p   |		Jump_Nonzero	0x8c8
08c7 0801       |    |		Execute_Immediate	Raise,0x1
08c8 e5ff       |    |		Load	0x2,-0x1
08c9 e016       |    |		Load	0x0,0x16
08ca 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
08cb e5fd       |    |		Load	0x2,-0x3
08cc 0092 09df  |    |		Action	Push_String_Extended,0x9df					; "Donation of "
08ce 4820       |H   |		Short_Literal	0x20
08cf 4800       |H   |		Short_Literal	0x0
08d0 480a       |H   |		Short_Literal	0xa
08d1 e5fe       |    |		Load	0x2,-0x2
08d2 823e       | >  |		Call	0x1,0x3e
08d3 01cc       |    |		Execute	Vector,Catenate
08d4 0092 09e0  |    |		Action	Push_String_Extended,0x9e0					; " tokens for "
08d6 01cc       |    |		Execute	Vector,Catenate
08d7 e5ff       |    |		Load	0x2,-0x1
08d8 01cc       |    |		Execute	Vector,Catenate
08d9 0092 09e2  |    |		Action	Push_String_Extended,0x9e2					; " has resulted in "
08db 01cc       |    |		Execute	Vector,Catenate
08dc 4820       |H   |		Short_Literal	0x20
08dd 4800       |H   |		Short_Literal	0x0
08de 480a       |H   |		Short_Literal	0xa
08df e5ff       |    |		Load	0x2,-0x1
08e0 8253       | S  |		Call	0x1,0x53
08e1 823e       | >  |		Call	0x1,0x3e
08e2 01cc       |    |		Execute	Vector,Catenate
08e3 0092 09e3  |    |		Action	Push_String_Extended,0x9e3					; " tokens."
08e5 01cc       |    |		Execute	Vector,Catenate
08e6 e23b       | ;  |		Load	0x1,0x3b
08e7 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
08e8 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
08e9 0000 0000  |    |		.BLANK	0000[0x7]
08f0 ; --------------------------------------------------------------------------------------
08f0 ; SUBPROGRAM
08f0 ; --------------------------------------------------------------------------------------
08f0 08f3       |    |		.CONST	0x08f3								; Address of begin
08f1 08f7       |    |		.CONST	0x08f7								; Address of exception handler
08f2 0001       |    |		.CONST	0x0001								; Number of locals
08f3			BODY_08f0:
08f3			INIT_08f0:
08f3 e5ff       |    |		Load	0x2,-0x1
08f4 e016       |    |		Load	0x0,0x16
08f5 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
08f6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08f7			TRAP_08f0:
08f7 0007       |    |		Action	Break_Optional
08f8 4800       |H   |		Short_Literal	0x0
08f9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08fa 0000 0000  |    |		.BLANK	0000[0x6]
0900 ; --------------------------------------------------------------------------------------
0900 ; SUBPROGRAM
0900 ; --------------------------------------------------------------------------------------
0900 0903       |    |		.CONST	0x0903								; Address of begin
0901 0907       |    |		.CONST	0x0907								; Address of exception handler
0902 0001       |    |		.CONST	0x0001								; Number of locals
0903			BODY_0900:
0903			INIT_0900:
0903 e5ff       |    |		Load	0x2,-0x1
0904 e016       |    |		Load	0x0,0x16
0905 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0906 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0907			TRAP_0900:
0907 0007       |    |		Action	Break_Optional
0908 4800       |H   |		Short_Literal	0x0
0909 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
090a 0000 0000  |    |		.BLANK	0000[0x6]
0910 ; --------------------------------------------------------------------------------------
0910 ; SUBPROGRAM
0910 ; --------------------------------------------------------------------------------------
0910 0913       |    |		.CONST	0x0913								; Address of begin
0911 0917       |    |		.CONST	0x0917								; Address of exception handler
0912 0001       |    |		.CONST	0x0001								; Number of locals
0913			BODY_0910:
0913			INIT_0910:
0913 e5ff       |    |		Load	0x2,-0x1
0914 e016       |    |		Load	0x0,0x16
0915 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0916 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0917			TRAP_0910:
0917 0007       |    |		Action	Break_Optional
0918 4800       |H   |		Short_Literal	0x0
0919 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
091a 0000 0000  |    |		.BLANK	0000[0x6]
0920 ; --------------------------------------------------------------------------------------
0920 ; SUBPROGRAM
0920 ; --------------------------------------------------------------------------------------
0920 0929       | )  |		.CONST	0x0929								; Address of begin
0921 0004       |    |		.CONST	0x0004								; Address of exception handler
0922 0002       |    |		.CONST	0x0002								; Number of locals
0923			INIT_0920:
0923 e5ff       |    |		Load	0x2,-0x1
0924 e016       |    |		Load	0x0,0x16
0925 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0926 e016       |    |		Load	0x0,0x16
0927 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0928 03f1       |    |		Declare_Variable	Discrete,With_Value
0929			BODY_0920:
0929 00d8       |    |		Load_Top	At_Offset_0
092a 6804       |h   |		Jump_Zero	0x92f
092b 00d8       |    |		Load_Top	At_Offset_0
092c e016       |    |		Load	0x0,0x16
092d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
092e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
092f 4800       |H   |		Short_Literal	0x0
0930 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0931 0000 0000  |    |		.BLANK	0000[0x7]
0938 ; --------------------------------------------------------------------------------------
0938 ; SUBPROGRAM
0938 ; --------------------------------------------------------------------------------------
0938 093d       | =  |		.CONST	0x093d								; Address of begin
0939 0004       |    |		.CONST	0x0004								; Address of exception handler
093a 0002       |    |		.CONST	0x0002								; Number of locals
093b			INIT_0938:
093b 0092 09e4  |    |		Action	Push_String_Extended,0x9e4					; "1/1/90"
093d			BODY_0938:
093d 00d8       |    |		Load_Top	At_Offset_0
093e e602       |    |		Load	0x3,0x2
093f 821c       |    |		Call	0x1,0x1c
0940 e5ff       |    |		Load	0x2,-0x1
0941 e017       |    |		Load	0x0,0x17
0942 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0943 e5ff       |    |		Load	0x2,-0x1
0944 e017       |    |		Load	0x0,0x17
0945 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0946 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0947 0000       |    |		.XXX[0x1]
0948 ; --------------------------------------------------------------------------------------
0948 ; SUBPROGRAM
0948 ; --------------------------------------------------------------------------------------
0948 0953       | S  |		.CONST	0x0953								; Address of begin
0949 0004       |    |		.CONST	0x0004								; Address of exception handler
094a 0002       |    |		.CONST	0x0002								; Number of locals
094b			INIT_0948:
094b e007       |    |		Load	0x0,0x7
094c 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
094d 0322       | "  |		Declare_Variable	Record
094e e7ff       |    |		Load	0x3,-0x1
094f e007       |    |		Load	0x0,0x7
0950 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0951 e602       |    |		Load	0x3,0x2
0952 017d       | }  |		Execute	Record,Structure_Write
0953			BODY_0948:
0953 4800       |H   |		Short_Literal	0x0
0954 e602       |    |		Load	0x3,0x2
0955 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0956 4800       |H   |		Short_Literal	0x0
0957 e602       |    |		Load	0x3,0x2
0958 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0959 4801       |H   |		Short_Literal	0x1
095a e602       |    |		Load	0x3,0x2
095b 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
095c 4800       |H   |		Short_Literal	0x0
095d e602       |    |		Load	0x3,0x2
095e 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
095f 00d8       |    |		Load_Top	At_Offset_0
0960 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0961 0000 0000  |    |		.BLANK	0000[0x7]
0968 ; --------------------------------------------------------------------------------------
0968 ; SUBPROGRAM
0968 ; --------------------------------------------------------------------------------------
0968 096e       | n  |		.CONST	0x096e								; Address of begin
0969 0974       | t  |		.CONST	0x0974								; Address of exception handler
096a 0002       |    |		.CONST	0x0002								; Number of locals
096b			INIT_0968:
096b e007       |    |		Load	0x0,0x7
096c 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
096d 0322       | "  |		Declare_Variable	Record
096e			BODY_0968:
096e e5ff       |    |		Load	0x2,-0x1
096f e007       |    |		Load	0x0,0x7
0970 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0971 e602       |    |		Load	0x3,0x2
0972 017d       | }  |		Execute	Record,Structure_Write
0973 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0974			TRAP_0968:
0974 0007       |    |		Action	Break_Optional
0975 e5fe       |    |		Load	0x2,-0x2
0976 0092 09e5  |    |		Action	Push_String_Extended,0x9e5					; "Date ("
0978 e5ff       |    |		Load	0x2,-0x1
0979 01cc       |    |		Execute	Vector,Catenate
097a 0092 09e6  |    |		Action	Push_String_Extended,0x9e6					; ") doesn't represent a legal date."
097c 01cc       |    |		Execute	Vector,Catenate
097d e23b       | ;  |		Load	0x1,0x3b
097e 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
097f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0980 ; --------------------------------------------------------------------------------------
0980 ; SUBPROGRAM
0980 ; --------------------------------------------------------------------------------------
0980 0983       |    |		.CONST	0x0983								; Address of begin
0981 0004       |    |		.CONST	0x0004								; Address of exception handler
0982 0001       |    |		.CONST	0x0001								; Number of locals
0983			BODY_0980:
0983			INIT_0980:
0983 e7ff       |    |		Load	0x3,-0x1
0984 8256       | V  |		Call	0x1,0x56
0985 680e       |h   |		Jump_Zero	0x994
0986 e5fc       |    |		Load	0x2,-0x4
0987 482e       |H.  |		Short_Literal	0x2e
0988 0092 09e7  |    |		Action	Push_String_Extended,0x9e7					; "Active tokens for "
098a e7ff       |    |		Load	0x3,-0x1
098b 01cc       |    |		Execute	Vector,Catenate
098c 0092 09e8  |    |		Action	Push_String_Extended,0x9e8					; " make it impossible to accept tokens for "
098e 01cc       |    |		Execute	Vector,Catenate
098f e5ff       |    |		Load	0x2,-0x1
0990 01cc       |    |		Execute	Vector,Catenate
0991 01cb       |    |		Execute	Vector,Append
0992 e23b       | ;  |		Load	0x1,0x3b
0993 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0994 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0995 ; --------------------------------------------------------------------------------------
0995 ; STRING TABLE
0995 ; --------------------------------------------------------------------------------------
0995 00aa       |    |		.STRTAB	0x00aa->0x09ea							; "Login"
0996 00ad       |    |		.STRTAB	0x00ad->0x09ec							; "Full Session"
0997 00b7       |    |		.STRTAB	0x00b7->0x09f2							; "Fundamental Session"
0998 00c8       |    |		.STRTAB	0x00c8->0x09fc							; "Accept_Tokens"
0999 00d3       |    |		.STRTAB	0x00d3->0x0a02							; "This machine has donated tokens today; it may not also accept them"
099a 0113       |    |		.STRTAB	0x0113->0x0a23							; "The sum of currently authorized tokens and Donations ("
099b 0147       | G  |		.STRTAB	0x0147->0x0a3e							; ") is NOT equal to Resulting_Count parameter ("
099c 0172       | r  |		.STRTAB	0x0172->0x0a55							; "); these must be equal in order to proceed."
099d 019b       |    |		.STRTAB	0x019b->0x0a6a							; "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 ("
099e 0283       |    |		.STRTAB	0x0283->0x0adf							; "), a transcription error of the Machine ID of this machine ("
099f 02bd       |    |		.STRTAB	0x02bd->0x0afd							; "), a delay in posting the request (code only valid for one day), "
09a0 02fc       |    |		.STRTAB	0x02fc->0x0b1e							; "or some other combination of parameter problems.  "
09a1 032c       | ,  |		.STRTAB	0x032c->0x0b37							; "Contact your Rational representative for further assistance."
09a2 0366       | f  |		.STRTAB	0x0366->0x0b55							; "The authorization provided has been used previously for this product.  It must be unique for this machine for all time."
09a3 03db       |    |		.STRTAB	0x03db->0x0b90							; " tokens set to "
09a4 03e8       |    |		.STRTAB	0x03e8->0x0b98							; "Donate_Tokens"
09a5 03f3       |    |		.STRTAB	0x03f3->0x0b9e							; "Remote_Machine_ID specified is the Machine_ID for this machine."
09a6 0430       | 0  |		.STRTAB	0x0430->0x0bbe							; "This machine has accepted tokens today; it may not also give them up"
09a7 0472       | r  |		.STRTAB	0x0472->0x0be0							; "Set_Site"
09a8 0478       | x  |		.STRTAB	0x0478->0x0be4							; "Code ("
09a9 047c       | |  |		.STRTAB	0x047c->0x0be7							; ") does not correspond to Site ("
09aa 0499       |    |		.STRTAB	0x0499->0x0bf6							; ")."
09ab 0499       |    |		.STRTAB	0x0499->0x0bf7							; "Site set to "
09ac 04a3       |    |		.STRTAB	0x04a3->0x0bfd							; "Convert_Tokens"
09ad 04af       |    |		.STRTAB	0x04af->0x0c04							; "The token count for the current product ("
09ae 04d6       |    |		.STRTAB	0x04d6->0x0c19							; ") is NOT equal to Token_Count parameter ("
09af 04fd       |    |		.STRTAB	0x04fd->0x0c2d							; "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 ("
09b0 05b1       |    |		.STRTAB	0x05b1->0x0c88							; " has no more tokens."
09b1 05c3       |    |		.STRTAB	0x05c3->0x0c92							; "Allow_Token_Conversion"
09b2 05d7       |    |		.STRTAB	0x05d7->0x0c9d							; "Must be run from a Rational site."
09b3 05f6       |    |		.STRTAB	0x05f6->0x0cae							; "Assign_Tokens"
09b4 0601       |    |		.STRTAB	0x0601->0x0cb4							; "Assign_Site"
09b5 060a       |    |		.STRTAB	0x060a->0x0cba							; "Run the following on the remote machine:"
09b6 0630       | 0  |		.STRTAB	0x0630->0x0cce							; "Site"
09b7 0632       | 2  |		.STRTAB	0x0632->0x0cd0							; "Code"
09b8 0634       | 4  |		.STRTAB	0x0634->0x0cd2							; "Training"
09b9 063a       | :  |		.STRTAB	0x063a->0x0cd6							; "Training_Authorization"
09ba 064e       | N  |		.STRTAB	0x064e->0x0ce1							; "Product and Token authorization checking has been reinstated."
09bb 0689       |    |		.STRTAB	0x0689->0x0cff							; "Authorization_Checking_Reinstated"
09bc 06a8       |    |		.STRTAB	0x06a8->0x0d10							; "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."
09bd 0773       | s  |		.STRTAB	0x0773->0x0d76							; "Authorization_Checking_Suspended"
09be 0791       |    |		.STRTAB	0x0791->0x0d86							; "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."
09bf 0838       | 8  |		.STRTAB	0x0838->0x0ddb							; "Authorization_Code_Error"
09c0 084e       | N  |		.STRTAB	0x084e->0x0de7							; "/"
09c1 084d       | M  |		.STRTAB	0x084d->0x0de7							; "="
09c2 084c       | L  |		.STRTAB	0x084c->0x0de8							; "|"
09c3 084b       | K  |		.STRTAB	0x084b->0x0de8							; "Product"
09c4 0850       | P  |		.STRTAB	0x0850->0x0dec							; "Donation"
09c5 0856       | V  |		.STRTAB	0x0856->0x0df0							; "Resulting_Count"
09c6 0863       | c  |		.STRTAB	0x0863->0x0df7							; "Authorization"
09c7 086e       | n  |		.STRTAB	0x086e->0x0dfe							; "Current_Product"
09c8 087b       | {  |		.STRTAB	0x087b->0x0e05							; "New_Product"
09c9 0884       |    |		.STRTAB	0x0884->0x0e0b							; "Token_Count"
09ca 088d       |    |		.STRTAB	0x088d->0x0e10							; "The legal range of "
09cb 089e       |    |		.STRTAB	0x089e->0x0e1a							; " for "
09cc 08a1       |    |		.STRTAB	0x08a1->0x0e1c							; " is "
09cd 08a3       |    |		.STRTAB	0x08a3->0x0e1e							; ".."
09ce 08a3       |    |		.STRTAB	0x08a3->0x0e1f							; ", but the value specified ("
09cf 08bc       |    |		.STRTAB	0x08bc->0x0e2d							; ") is outside that range"
09d0 08d1       |    |		.STRTAB	0x08d1->0x0e38							; "Product name not specified."
09d1 08ea       |    |		.STRTAB	0x08ea->0x0e46							; "Product name contains an illegal character ("
09d2 0914       |    |		.STRTAB	0x0914->0x0e5c							; "Product name includes leading or trailing blanks."
09d3 0943       | C  |		.STRTAB	0x0943->0x0e74							; "Site name not specified."
09d4 0959       | Y  |		.STRTAB	0x0959->0x0e80							; "Site name contains an illegal character ("
09d5 0980       |    |		.STRTAB	0x0980->0x0e95							; "Site name includes leading or trailing blanks."
09d6 09ac       |    |		.STRTAB	0x09ac->0x0eac							; "Date contains an illegal character ("
09d7 09ce       |    |		.STRTAB	0x09ce->0x0ebe							; "The number of tokens ("
09d8 09e2       |    |		.STRTAB	0x09e2->0x0ec9							; ") for "
09d9 09e6       |    |		.STRTAB	0x09e6->0x0ecc							; " exceeds the target authorization ("
09da 0a07       |    |		.STRTAB	0x0a07->0x0edd							; "Cannot specify both authorization and date for "
09db 0a34       | 4  |		.STRTAB	0x0a34->0x0ef5							; "There are currently no tokens for "
09dc 0a54       | T  |		.STRTAB	0x0a54->0x0f06							; ", so they can't be donated."
09dd 0a6d       | m  |		.STRTAB	0x0a6d->0x0f13							; "The requested donation ("
09de 0a83       |    |		.STRTAB	0x0a83->0x0f1f							; "exceeds the current limit ("
09df 0a9c       |    |		.STRTAB	0x0a9c->0x0f2d							; "Donation of "
09e0 0aa6       |    |		.STRTAB	0x0aa6->0x0f33							; " tokens for "
09e1 0ab0       |    |		.STRTAB	0x0ab0->0x0f39							; " would transfer tokens currently in use."
09e2 0ad6       |    |		.STRTAB	0x0ad6->0x0f4d							; " has resulted in "
09e3 0ae5       |    |		.STRTAB	0x0ae5->0x0f55							; " tokens."
09e4 0aeb       |    |		.STRTAB	0x0aeb->0x0f59							; "1/1/90"
09e5 0aef       |    |		.STRTAB	0x0aef->0x0f5c							; "Date ("
09e6 0af3       |    |		.STRTAB	0x0af3->0x0f5f							; ") doesn't represent a legal date."
09e7 0b12       |    |		.STRTAB	0x0b12->0x0f70							; "Active tokens for "
09e8 0b22       | "  |		.STRTAB	0x0b22->0x0f79							; " make it impossible to accept tokens for "
09e9 0b49       | I  |		.STREND 0x0b49->0x0f8d
09ea 4c6f 6769  |Logi|		.STRTAB_STRINGS
0f8e 0000 0000  |    |		.XXX[0x2]
0f90 ; --------------------------------------------------------------------------------------
0f90 ; Debug Table
0f90 ; --------------------------------------------------------------------------------------
0f90 0004 000e  |    |		.DEBUG4	0x0004,0x000e,0xcedd,0x0000,0x0001,0x0000
0f96 0000 0000  |    |		.BLANK	0000[0x17]
0fad 1002 8000  |    |		.XXX[0xb]
0faf 0000 0000  |    |
0fb1 0020 0000  |    |
0fb3 0110 0000  |    |
0fb5 0000 8000  |    |
0fb7 0005       |    |
0fb8 0000 0000  |    |		.BLANK	0000[0x48]