|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 6144 (0x1800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_1188cd9
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0bc8 | | .CONST 0x0bc8 ; 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 8006 | | .CONST 0x8006 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00fd | | .CONST 0x00fd ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0042 | B | .CONST 0x0042 ; 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 029a 0103 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0100
0029 c218 | | Store 0x1,0x18
002a 029a 01cb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01c8
002c c219 | | Store 0x1,0x19
002d 029a 023b | ;| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0238
002f c21a | | Store 0x1,0x1a
0030 029a 029b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0298
0032 c21b | | Store 0x1,0x1b
0033 029a 02a3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02a0
0035 c21c | | Store 0x1,0x1c
0036 e001 | | Load 0x0,0x1
0037 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address
0038 c21d | | Store 0x1,0x1d
0039 029a 02ab | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02a8
003b c21e | | Store 0x1,0x1e
003c 029a 0323 | #| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0320
003e c223 | # | Store 0x1,0x23
003f 029a 037b | {| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0378
0041 c21f | | Store 0x1,0x1f
0042 029a 03d3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_03d0
0044 c224 | $ | Store 0x1,0x24
0045 029a 03fb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_03f8
0047 c228 | ( | Store 0x1,0x28
0048 029a 0473 | s| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0470
004a c212 | | Store 0x1,0x12
004b 029a 047b | {| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0478
004d c220 | | Store 0x1,0x20
004e 029a 0483 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0480
0050 c214 | | Store 0x1,0x14
0051 029a 048b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0488
0053 c221 | ! | Store 0x1,0x21
0054 029a 0493 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0490
0056 c222 | " | Store 0x1,0x22
0057 00bf | | Action Accept_Activation
0058 4800 |H | Short_Literal 0x0
0059 4840 |H@ | Short_Literal 0x40
005a 00e2 | | Load_Encached Integer_Cache
005b 03f8 | | Declare_Type Discrete,Constrained
005c e002 | | Load 0x0,0x2
005d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
005e 4800 |H | Short_Literal 0x0
005f e003 | | Load 0x0,0x3
0060 02a0 | | Declare_Subprogram Null_Subprogram
0061 038e | | Declare_Type Package,Defined
0062 0387 | | Declare_Variable Package
0063 4800 |H | Short_Literal 0x0
0064 e004 | | Load 0x0,0x4
0065 02a0 | | Declare_Subprogram Null_Subprogram
0066 038e | | Declare_Type Package,Defined
0067 0387 | | Declare_Variable Package
0068 4800 |H | Short_Literal 0x0
0069 e005 | | Load 0x0,0x5
006a 02a0 | | Declare_Subprogram Null_Subprogram
006b 038e | | Declare_Type Package,Defined
006c 0387 | | Declare_Variable Package
006d e006 | | Load 0x0,0x6
006e 1916 | | Execute Package,Field_Reference,Field_Number 0x16
006f 0007 | | Action Break_Optional
0070 e006 | | Load 0x0,0x6
0071 1917 | | Execute Package,Field_Reference,Field_Number 0x17
0072 0007 | | Action Break_Optional
0073 e007 | | Load 0x0,0x7
0074 191b | | Execute Package,Field_Reference,Field_Number 0x1b
0075 0007 | | Action Break_Optional
0076 00ea | | Load_Encached Null_String_Cache
0077 4800 |H | Short_Literal 0x0
0078 4800 |H | Short_Literal 0x0
0079 4800 |H | Short_Literal 0x0
007a e007 | | Load 0x0,0x7
007b 1815 | | Execute Package,Field_Execute,Field_Number 0x15
007c 8230 | 0 | Call 0x1,0x30
007d e008 | | Load 0x0,0x8
007e 1915 | | Execute Package,Field_Reference,Field_Number 0x15
007f 0007 | | Action Break_Optional
0080 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33
0081 029b 049b | | Declare_Subprogram For_Outer_Call,Unelaborated,INIT_0498
0083 029b 04bb | | Declare_Subprogram For_Outer_Call,Unelaborated,INIT_04b8
0085 029b 04cb | | Declare_Subprogram For_Outer_Call,Unelaborated,INIT_04c8
0087 029b 04d3 | | Declare_Subprogram For_Outer_Call,Unelaborated,INIT_04d0
0089 029b 04e3 | | Declare_Subprogram For_Outer_Call,Unelaborated,INIT_04e0
008b 029b 051b | | Declare_Subprogram For_Outer_Call,Unelaborated,INIT_0518
008d 029b 0553 | S| Declare_Subprogram For_Outer_Call,Unelaborated,INIT_0550
008f 029b 058b | | Declare_Subprogram For_Outer_Call,Unelaborated,INIT_0588
0091 029b 05bb | | Declare_Subprogram For_Outer_Call,Unelaborated,INIT_05b8
0093 029b 05f3 | | Declare_Subprogram For_Outer_Call,Unelaborated,INIT_05f0
0095 029b 0673 | s| Declare_Subprogram For_Outer_Call,Unelaborated,INIT_0670
0097 029b 0683 | | Declare_Subprogram For_Outer_Call,Unelaborated,INIT_0680
0099 029b 0693 | | Declare_Subprogram For_Outer_Call,Unelaborated,INIT_0690
009b 1d18 | | Execute_Immediate Reference_Lex_1,0x18
009c 00c7 | | Action Elaborate_Subprogram
009d 1d19 | | Execute_Immediate Reference_Lex_1,0x19
009e 00c7 | | Action Elaborate_Subprogram
009f 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
00a0 00c7 | | Action Elaborate_Subprogram
00a1 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
00a2 00c7 | | Action Elaborate_Subprogram
00a3 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00a4 00c7 | | Action Elaborate_Subprogram
00a5 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00a6 00c7 | | Action Elaborate_Subprogram
00a7 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
00a8 00c7 | | Action Elaborate_Subprogram
00a9 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00aa 00c7 | | Action Elaborate_Subprogram
00ab 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
00ac 00c7 | | Action Elaborate_Subprogram
00ad 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
00ae 00c7 | | Action Elaborate_Subprogram
00af 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00b0 00c7 | | Action Elaborate_Subprogram
00b1 1d14 | | Execute_Immediate Reference_Lex_1,0x14
00b2 00c7 | | Action Elaborate_Subprogram
00b3 1d12 | | Execute_Immediate Reference_Lex_1,0x12
00b4 00c7 | | Action Elaborate_Subprogram
00b5 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
00b6 00c7 | | Action Elaborate_Subprogram
00b7 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00b8 00c7 | | Action Elaborate_Subprogram
00b9 e009 | | Load 0x0,0x9
00ba e002 | | Load 0x0,0x2
00bb e00a | | Load 0x0,0xa
00bc e00b | | Load 0x0,0xb
00bd e00c | | Load 0x0,0xc
00be e00d | | Load 0x0,0xd
00bf 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
00c0 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
00c1 e00e | | Load 0x0,0xe
00c2 e00f | | Load 0x0,0xf
00c3 480a |H | Short_Literal 0xa
00c4 e22b | + | Load 0x1,0x2b
00c5 020e | | Execute Module,Augment_Imports
00c6 e22b | + | Load 0x1,0x2b
00c7 020f | | Execute Module,Activate
00c8 e010 | | Load 0x0,0x10
00c9 e011 | | Load 0x0,0x11
00ca e012 | | Load 0x0,0x12
00cb e013 | | Load 0x0,0x13
00cc e014 | | Load 0x0,0x14
00cd e015 | | Load 0x0,0x15
00ce e007 | | Load 0x0,0x7
00cf e006 | | Load 0x0,0x6
00d0 e016 | | Load 0x0,0x16
00d1 e017 | | Load 0x0,0x17
00d2 00b6 | | Action Make_Scope
00d3 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34
00d4 480c |H | Short_Literal 0xc
00d5 e22d | - | Load 0x1,0x2d
00d6 020e | | Execute Module,Augment_Imports
00d7 e22d | - | Load 0x1,0x2d
00d8 020f | | Execute Module,Activate
00d9 e018 | | Load 0x0,0x18
00da 4801 |H | Short_Literal 0x1
00db e22c | , | Load 0x1,0x2c
00dc 020e | | Execute Module,Augment_Imports
00dd e22c | , | Load 0x1,0x2c
00de 020f | | Execute Module,Activate
00df 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38
00e0 00c7 | | Action Elaborate_Subprogram
00e1 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37
00e2 00c7 | | Action Elaborate_Subprogram
00e3 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39
00e4 00c7 | | Action Elaborate_Subprogram
00e5 029d 06a3 | | Declare_Subprogram For_Outer_Call,INIT_06a0
00e7 1d3d | = | Execute_Immediate Reference_Lex_1,0x3d
00e8 00c7 | | Action Elaborate_Subprogram
00e9 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a
00ea 00c7 | | Action Elaborate_Subprogram
00eb 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c
00ec 00c7 | | Action Elaborate_Subprogram
00ed 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b
00ee 00c7 | | Action Elaborate_Subprogram
00ef 1d3e | > | Execute_Immediate Reference_Lex_1,0x3e
00f0 00c7 | | Action Elaborate_Subprogram
00f1 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35
00f2 00c7 | | Action Elaborate_Subprogram
00f3 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f
00f4 00c7 | | Action Elaborate_Subprogram
00f5 1d41 | A | Execute_Immediate Reference_Lex_1,0x41
00f6 00c7 | | Action Elaborate_Subprogram
00f7 1d40 | @ | Execute_Immediate Reference_Lex_1,0x40
00f8 00c7 | | Action Elaborate_Subprogram
00f9 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36
00fa 00c7 | | Action Elaborate_Subprogram
00fb 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
00fc 00c7 | | Action Elaborate_Subprogram
00fd BODY_0008:
00fd 00bc | | Action Signal_Activated
00fe 00bb | | Action Signal_Completion
00ff 0000 | | .XXX[0x1]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 010c | | .CONST 0x010c ; Address of begin
0101 01ab | | .CONST 0x01ab ; Address of exception handler
0102 0005 | | .CONST 0x0005 ; Number of locals
0103 INIT_0100:
0103 0092 0710 | | Action Push_String_Extended,0x710 ; "Accept_Tokens"
0105 e22a | * | Load 0x1,0x2a
0106 02c7 | | Declare_Variable Any
0107 e002 | | Load 0x0,0x2
0108 180e | | Execute Package,Field_Execute,Field_Number 0xe
0109 a403 | | Store_Unchecked 0x2,0x3
010a 00e3 | | Load_Encached Natural_Cache
010b 00e3 | | Load_Encached Natural_Cache
010c BODY_0100:
010c e403 | | Load 0x2,0x3
010d e5fb | | Load 0x2,-0x5
010e e5fc | | Load 0x2,-0x4
010f e5fd | | Load 0x2,-0x3
0110 e22b | + | Load 0x1,0x2b
0111 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0112 e5fe | | Load 0x2,-0x2
0113 e22b | + | Load 0x1,0x2b
0114 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0115 e5ff | | Load 0x2,-0x1
0116 e402 | | Load 0x2,0x2
0117 e22b | + | Load 0x1,0x2b
0118 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0119 c403 | | Store 0x2,0x3
011a e403 | | Load 0x2,0x3
011b e22b | + | Load 0x1,0x2b
011c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
011d e22d | - | Load 0x1,0x2d
011e 180e | | Execute Package,Field_Execute,Field_Number 0xe
011f 8237 | 7 | Call 0x1,0x37
0120 6805 |h | Jump_Zero 0x126
0121 e403 | | Load 0x2,0x3
0122 0092 0711 | | Action Push_String_Extended,0x711 ; "This machine has donated tokens today; it may not also accept them"
0124 e22b | + | Load 0x1,0x2b
0125 180d | | Execute Package,Field_Execute,Field_Number 0xd
0126 e403 | | Load 0x2,0x3
0127 e5ff | | Load 0x2,-0x1
0128 823a | : | Call 0x1,0x3a
0129 e403 | | Load 0x2,0x3
012a e5fd | | Load 0x2,-0x3
012b e5fe | | Load 0x2,-0x2
012c e5ff | | Load 0x2,-0x1
012d 823d | = | Call 0x1,0x3d
012e e5ff | | Load 0x2,-0x1
012f 823f | ? | Call 0x1,0x3f
0130 a405 | | Store_Unchecked 0x2,0x5
0131 00d8 | | Load_Top At_Offset_0
0132 e5fe | | Load 0x2,-0x2
0133 0273 | s | Execute Discrete,Plus
0134 c404 | | Store 0x2,0x4
0135 e404 | | Load 0x2,0x4
0136 e5fd | | Load 0x2,-0x3
0137 027e | ~ | Execute Discrete,Not_Equal
0138 6827 |h' | Jump_Zero 0x160
0139 e403 | | Load 0x2,0x3
013a 483d |H= | Short_Literal 0x3d
013b 482b |H+ | Short_Literal 0x2b
013c 0092 0712 | | Action Push_String_Extended,0x712 ; "The sum of currently authorized tokens and Donations ("
013e 4820 |H | Short_Literal 0x20
013f 4800 |H | Short_Literal 0x0
0140 480a |H | Short_Literal 0xa
0141 e405 | | Load 0x2,0x5
0142 822e | . | Call 0x1,0x2e
0143 01cc | | Execute Vector,Catenate
0144 01cb | | Execute Vector,Append
0145 4820 |H | Short_Literal 0x20
0146 4800 |H | Short_Literal 0x0
0147 480a |H | Short_Literal 0xa
0148 e5fe | | Load 0x2,-0x2
0149 822e | . | Call 0x1,0x2e
014a 01cc | | Execute Vector,Catenate
014b 01cb | | Execute Vector,Append
014c 4820 |H | Short_Literal 0x20
014d 4800 |H | Short_Literal 0x0
014e 480a |H | Short_Literal 0xa
014f e404 | | Load 0x2,0x4
0150 822e | . | Call 0x1,0x2e
0151 01cc | | Execute Vector,Catenate
0152 0092 0713 | | Action Push_String_Extended,0x713 ; ") is NOT equal to Resulting_Count parameter ("
0154 01cc | | Execute Vector,Catenate
0155 4820 |H | Short_Literal 0x20
0156 4800 |H | Short_Literal 0x0
0157 480a |H | Short_Literal 0xa
0158 e5fd | | Load 0x2,-0x3
0159 822e | . | Call 0x1,0x2e
015a 01cc | | Execute Vector,Catenate
015b 0092 0714 | | Action Push_String_Extended,0x714 ; "); these must be equal in order to proceed."
015d 01cc | | Execute Vector,Catenate
015e e22b | + | Load 0x1,0x2b
015f 180d | | Execute Package,Field_Execute,Field_Number 0xd
0160 e5fc | | Load 0x2,-0x4
0161 e5fd | | Load 0x2,-0x3
0162 e5fe | | Load 0x2,-0x2
0163 e5ff | | Load 0x2,-0x1
0164 8236 | 6 | Call 0x1,0x36
0165 7019 |p | Jump_Nonzero 0x17f
0166 e403 | | Load 0x2,0x3
0167 0092 0715 | | Action Push_String_Extended,0x715 ; "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 ("
0169 821b | | Call 0x1,0x1b
016a 01cc | | Execute Vector,Catenate
016b 0092 0716 | | Action Push_String_Extended,0x716 ; "), a transcription error of the Machine ID of this machine ("
016d 01cc | | Execute Vector,Catenate
016e 4820 |H | Short_Literal 0x20
016f 4800 |H | Short_Literal 0x0
0170 480a |H | Short_Literal 0xa
0171 821c | | Call 0x1,0x1c
0172 822f | / | Call 0x1,0x2f
0173 01cc | | Execute Vector,Catenate
0174 0092 0717 | | Action Push_String_Extended,0x717 ; "), a delay in posting the request (code only valid for one day), "
0176 01cc | | Execute Vector,Catenate
0177 0092 0718 | | Action Push_String_Extended,0x718 ; "or some other combination of parameter problems. "
0179 01cc | | Execute Vector,Catenate
017a 0092 0719 | | Action Push_String_Extended,0x719 ; "Contact your Rational representative for further assistance."
017c 01cc | | Execute Vector,Catenate
017d e22b | + | Load 0x1,0x2b
017e 180d | | Execute Package,Field_Execute,Field_Number 0xd
017f 0092 071a | | Action Push_String_Extended,0x71a ; ">>Product Name<<"
0181 e008 | | Load 0x0,0x8
0182 180e | | Execute Package,Field_Execute,Field_Number 0xe
0183 7009 |p | Jump_Nonzero 0x18d
0184 00ea | | Load_Encached Null_String_Cache
0185 00ea | | Load_Encached Null_String_Cache
0186 821c | | Call 0x1,0x1c
0187 e5ff | | Load 0x2,-0x1
0188 e008 | | Load 0x0,0x8
0189 1815 | | Execute Package,Field_Execute,Field_Number 0x15
018a e5ff | | Load 0x2,-0x1
018b e008 | | Load 0x0,0x8
018c 180d | | Execute Package,Field_Execute,Field_Number 0xd
018d e5fd | | Load 0x2,-0x3
018e e5ff | | Load 0x2,-0x1
018f e017 | | Load 0x0,0x17
0190 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0191 e5ff | | Load 0x2,-0x1
0192 8240 | @ | Call 0x1,0x40
0193 7004 |p | Jump_Nonzero 0x198
0194 480c |H | Short_Literal 0xc
0195 e5ff | | Load 0x2,-0x1
0196 e017 | | Load 0x0,0x17
0197 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0198 e403 | | Load 0x2,0x3
0199 e5ff | | Load 0x2,-0x1
019a 0092 071b | | Action Push_String_Extended,0x71b ; " tokens set to "
019c 01cc | | Execute Vector,Catenate
019d 4820 |H | Short_Literal 0x20
019e 4800 |H | Short_Literal 0x0
019f 480a |H | Short_Literal 0xa
01a0 e5fd | | Load 0x2,-0x3
01a1 822e | . | Call 0x1,0x2e
01a2 01cc | | Execute Vector,Catenate
01a3 e22b | + | Load 0x1,0x2b
01a4 180f | | Execute Package,Field_Execute,Field_Number 0xf
01a5 e403 | | Load 0x2,0x3
01a6 00ea | | Load_Encached Null_String_Cache
01a7 e402 | | Load 0x2,0x2
01a8 e22b | + | Load 0x1,0x2b
01a9 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01aa 4506 |E | Exit_Subprogram 0x6
01ab TRAP_0100:
01ab e002 | | Load 0x0,0x2
01ac 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
01ad 010f | | Execute Exception,Equal
01ae 6806 |h | Jump_Zero 0x1b5
01af e403 | | Load 0x2,0x3
01b0 e402 | | Load 0x2,0x2
01b1 e22b | + | Load 0x1,0x2b
01b2 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01b3 00d8 | | Load_Top At_Offset_0
01b4 0101 | | Execute Exception,Reraise
01b5 e00a | | Load 0x0,0xa
01b6 010f | | Execute Exception,Equal
01b7 6805 |h | Jump_Zero 0x1bd
01b8 e403 | | Load 0x2,0x3
01b9 e402 | | Load 0x2,0x2
01ba e22b | + | Load 0x1,0x2b
01bb 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01bc 4506 |E | Exit_Subprogram 0x6
01bd e403 | | Load 0x2,0x3
01be 4800 |H | Short_Literal 0x0
01bf 4801 |H | Short_Literal 0x1
01c0 e019 | | Load 0x0,0x19
01c1 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01c2 e402 | | Load 0x2,0x2
01c3 e22b | + | Load 0x1,0x2b
01c4 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01c5 4506 |E | Exit_Subprogram 0x6
01c6 0000 0000 | | .XXX[0x2]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01d2 | | .CONST 0x01d2 ; Address of begin
01c9 021a | | .CONST 0x021a ; Address of exception handler
01ca 0003 | | .CONST 0x0003 ; Number of locals
01cb INIT_01c8:
01cb 0092 071c | | Action Push_String_Extended,0x71c ; "Donate_Tokens"
01cd e22a | * | Load 0x1,0x2a
01ce 02c7 | | Declare_Variable Any
01cf e002 | | Load 0x0,0x2
01d0 180e | | Execute Package,Field_Execute,Field_Number 0xe
01d1 a403 | | Store_Unchecked 0x2,0x3
01d2 BODY_01c8:
01d2 00d8 | | Load_Top At_Offset_0
01d3 e5fa | | Load 0x2,-0x6
01d4 e5fb | | Load 0x2,-0x5
01d5 e5fc | | Load 0x2,-0x4
01d6 e22b | + | Load 0x1,0x2b
01d7 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01d8 e5fd | | Load 0x2,-0x3
01d9 e22b | + | Load 0x1,0x2b
01da 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01db e5fe | | Load 0x2,-0x2
01dc e22b | + | Load 0x1,0x2b
01dd 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01de e5ff | | Load 0x2,-0x1
01df e402 | | Load 0x2,0x2
01e0 e22b | + | Load 0x1,0x2b
01e1 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01e2 c403 | | Store 0x2,0x3
01e3 00d8 | | Load_Top At_Offset_0
01e4 e22b | + | Load 0x1,0x2b
01e5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01e6 00d8 | | Load_Top At_Offset_0
01e7 e5fb | | Load 0x2,-0x5
01e8 823b | ; | Call 0x1,0x3b
01e9 00d8 | | Load_Top At_Offset_0
01ea e5ff | | Load 0x2,-0x1
01eb 823a | : | Call 0x1,0x3a
01ec e5fc | | Load 0x2,-0x4
01ed 821c | | Call 0x1,0x1c
01ee 027f | | Execute Discrete,Equal
01ef 6805 |h | Jump_Zero 0x1f5
01f0 00d8 | | Load_Top At_Offset_0
01f1 0092 071d | | Action Push_String_Extended,0x71d ; "Remote_Machine_ID specified is the Machine_ID for this machine."
01f3 e22b | + | Load 0x1,0x2b
01f4 180d | | Execute Package,Field_Execute,Field_Number 0xd
01f5 e22d | - | Load 0x1,0x2d
01f6 180d | | Execute Package,Field_Execute,Field_Number 0xd
01f7 8237 | 7 | Call 0x1,0x37
01f8 6805 |h | Jump_Zero 0x1fe
01f9 00d8 | | Load_Top At_Offset_0
01fa 0092 071e | | Action Push_String_Extended,0x71e ; "This machine has accepted tokens today; it may not also give them up"
01fc e22b | + | Load 0x1,0x2b
01fd 180d | | Execute Package,Field_Execute,Field_Number 0xd
01fe 00d8 | | Load_Top At_Offset_0
01ff e5fd | | Load 0x2,-0x3
0200 e5fe | | Load 0x2,-0x2
0201 e5ff | | Load 0x2,-0x1
0202 823d | = | Call 0x1,0x3d
0203 00d8 | | Load_Top At_Offset_0
0204 e5fe | | Load 0x2,-0x2
0205 e5ff | | Load 0x2,-0x1
0206 823e | > | Call 0x1,0x3e
0207 e012 | | Load 0x0,0x12
0208 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0209 e22d | - | Load 0x1,0x2d
020a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
020b e22d | - | Load 0x1,0x2d
020c 1814 | | Execute Package,Field_Execute,Field_Number 0x14
020d e232 | 2 | Load 0x1,0x32
020e e5fb | | Load 0x2,-0x5
020f e5fc | | Load 0x2,-0x4
0210 e5fd | | Load 0x2,-0x3
0211 e5fe | | Load 0x2,-0x2
0212 e5ff | | Load 0x2,-0x1
0213 8239 | 9 | Call 0x1,0x39
0214 00d8 | | Load_Top At_Offset_0
0215 00ea | | Load_Encached Null_String_Cache
0216 e402 | | Load 0x2,0x2
0217 e22b | + | Load 0x1,0x2b
0218 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0219 4507 |E | Exit_Subprogram 0x7
021a TRAP_01c8:
021a e002 | | Load 0x0,0x2
021b 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
021c 010f | | Execute Exception,Equal
021d 6806 |h | Jump_Zero 0x224
021e e403 | | Load 0x2,0x3
021f e402 | | Load 0x2,0x2
0220 e22b | + | Load 0x1,0x2b
0221 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0222 00d8 | | Load_Top At_Offset_0
0223 0101 | | Execute Exception,Reraise
0224 e00a | | Load 0x0,0xa
0225 010f | | Execute Exception,Equal
0226 6805 |h | Jump_Zero 0x22c
0227 e403 | | Load 0x2,0x3
0228 e402 | | Load 0x2,0x2
0229 e22b | + | Load 0x1,0x2b
022a 1819 | | Execute Package,Field_Execute,Field_Number 0x19
022b 4507 |E | Exit_Subprogram 0x7
022c e403 | | Load 0x2,0x3
022d 4800 |H | Short_Literal 0x0
022e 4801 |H | Short_Literal 0x1
022f e019 | | Load 0x0,0x19
0230 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0231 e402 | | Load 0x2,0x2
0232 e22b | + | Load 0x1,0x2b
0233 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0234 4507 |E | Exit_Subprogram 0x7
0235 0000 0000 | | .XXX[0x3]
0237 0000 | |
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 0242 | B | .CONST 0x0242 ; Address of begin
0239 0279 | y | .CONST 0x0279 ; Address of exception handler
023a 0003 | | .CONST 0x0003 ; Number of locals
023b INIT_0238:
023b 0092 071f | | Action Push_String_Extended,0x71f ; "Set_Site"
023d e22a | * | Load 0x1,0x2a
023e 02c7 | | Declare_Variable Any
023f e002 | | Load 0x0,0x2
0240 180e | | Execute Package,Field_Execute,Field_Number 0xe
0241 a403 | | Store_Unchecked 0x2,0x3
0242 BODY_0238:
0242 00d8 | | Load_Top At_Offset_0
0243 e5fd | | Load 0x2,-0x3
0244 e5fe | | Load 0x2,-0x2
0245 e5ff | | Load 0x2,-0x1
0246 e402 | | Load 0x2,0x2
0247 e22b | + | Load 0x1,0x2b
0248 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0249 c403 | | Store 0x2,0x3
024a 00d8 | | Load_Top At_Offset_0
024b e22b | + | Load 0x1,0x2b
024c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
024d e5fe | | Load 0x2,-0x2
024e e231 | 1 | Load 0x1,0x31
024f 821c | | Call 0x1,0x1c
0250 e5ff | | Load 0x2,-0x1
0251 8234 | 4 | Call 0x1,0x34
0252 01de | | Execute Vector,Not_Equal
0253 6814 |h | Jump_Zero 0x268
0254 00d8 | | Load_Top At_Offset_0
0255 0092 0720 | | Action Push_String_Extended,0x720 ; "Code ("
0257 e5fe | | Load 0x2,-0x2
0258 e22b | + | Load 0x1,0x2b
0259 181d | | Execute Package,Field_Execute,Field_Number 0x1d
025a 01cc | | Execute Vector,Catenate
025b 0092 0721 | !| Action Push_String_Extended,0x721 ; ") does not correspond to Site ("
025d 01cc | | Execute Vector,Catenate
025e e5ff | | Load 0x2,-0x1
025f e22b | + | Load 0x1,0x2b
0260 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0261 01cc | | Execute Vector,Catenate
0262 0092 0722 | "| Action Push_String_Extended,0x722 ; ")."
0264 01cc | | Execute Vector,Catenate
0265 e22b | + | Load 0x1,0x2b
0266 180d | | Execute Package,Field_Execute,Field_Number 0xd
0267 780b |x | Jump 0x273
0268 e5fe | | Load 0x2,-0x2
0269 e5ff | | Load 0x2,-0x1
026a e22d | - | Load 0x1,0x2d
026b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
026c 00d8 | | Load_Top At_Offset_0
026d 0092 0723 | #| Action Push_String_Extended,0x723 ; "Site set to "
026f e5ff | | Load 0x2,-0x1
0270 01cc | | Execute Vector,Catenate
0271 e22b | + | Load 0x1,0x2b
0272 180f | | Execute Package,Field_Execute,Field_Number 0xf
0273 00d8 | | Load_Top At_Offset_0
0274 00ea | | Load_Encached Null_String_Cache
0275 e402 | | Load 0x2,0x2
0276 e22b | + | Load 0x1,0x2b
0277 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0278 4504 |E | Exit_Subprogram 0x4
0279 TRAP_0238:
0279 e002 | | Load 0x0,0x2
027a 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
027b 010f | | Execute Exception,Equal
027c 6806 |h | Jump_Zero 0x283
027d e403 | | Load 0x2,0x3
027e e402 | | Load 0x2,0x2
027f e22b | + | Load 0x1,0x2b
0280 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0281 00d8 | | Load_Top At_Offset_0
0282 0101 | | Execute Exception,Reraise
0283 e00a | | Load 0x0,0xa
0284 010f | | Execute Exception,Equal
0285 6805 |h | Jump_Zero 0x28b
0286 e403 | | Load 0x2,0x3
0287 e402 | | Load 0x2,0x2
0288 e22b | + | Load 0x1,0x2b
0289 1819 | | Execute Package,Field_Execute,Field_Number 0x19
028a 4504 |E | Exit_Subprogram 0x4
028b e403 | | Load 0x2,0x3
028c 4800 |H | Short_Literal 0x0
028d 4801 |H | Short_Literal 0x1
028e e019 | | Load 0x0,0x19
028f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0290 e402 | | Load 0x2,0x2
0291 e22b | + | Load 0x1,0x2b
0292 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0293 4504 |E | Exit_Subprogram 0x4
0294 0000 0000 | | .BLANK 0000[0x4]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b | | .CONST 0x029b ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0001 | | .CONST 0x0001 ; Number of locals
029b BODY_0298:
029b INIT_0298:
029b e22d | - | Load 0x1,0x2d
029c 1812 | | Execute Package,Field_Execute,Field_Number 0x12
029d 00ca | | Action Exit_Nullary_Function
029e 0000 0000 | | .XXX[0x2]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3 | | .CONST 0x02a3 ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0001 | | .CONST 0x0001 ; Number of locals
02a3 BODY_02a0:
02a3 INIT_02a0:
02a3 e01a | | Load 0x0,0x1a
02a4 180e | | Execute Package,Field_Execute,Field_Number 0xe
02a5 00ca | | Action Exit_Nullary_Function
02a6 0000 0000 | | .XXX[0x2]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02b2 | | .CONST 0x02b2 ; Address of begin
02a9 02ff | | .CONST 0x02ff ; Address of exception handler
02aa 0003 | | .CONST 0x0003 ; Number of locals
02ab INIT_02a8:
02ab 0092 0724 | $| Action Push_String_Extended,0x724 ; "Assign_Tokens"
02ad e22a | * | Load 0x1,0x2a
02ae 02c7 | | Declare_Variable Any
02af e002 | | Load 0x0,0x2
02b0 180e | | Execute Package,Field_Execute,Field_Number 0xe
02b1 a403 | | Store_Unchecked 0x2,0x3
02b2 BODY_02a8:
02b2 00d8 | | Load_Top At_Offset_0
02b3 e5f9 | | Load 0x2,-0x7
02b4 e5fa | | Load 0x2,-0x6
02b5 e5fb | | Load 0x2,-0x5
02b6 e5fc | | Load 0x2,-0x4
02b7 e22b | + | Load 0x1,0x2b
02b8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
02b9 e5fd | | Load 0x2,-0x3
02ba e22b | + | Load 0x1,0x2b
02bb 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02bc e5fe | | Load 0x2,-0x2
02bd e22b | + | Load 0x1,0x2b
02be 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02bf e5ff | | Load 0x2,-0x1
02c0 e402 | | Load 0x2,0x2
02c1 e22b | + | Load 0x1,0x2b
02c2 1817 | | Execute Package,Field_Execute,Field_Number 0x17
02c3 c403 | | Store 0x2,0x3
02c4 00d8 | | Load_Top At_Offset_0
02c5 e22b | + | Load 0x1,0x2b
02c6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02c7 00d8 | | Load_Top At_Offset_0
02c8 e5fb | | Load 0x2,-0x5
02c9 823b | ; | Call 0x1,0x3b
02ca 00d8 | | Load_Top At_Offset_0
02cb e5fa | | Load 0x2,-0x6
02cc 823c | < | Call 0x1,0x3c
02cd 00d8 | | Load_Top At_Offset_0
02ce e5ff | | Load 0x2,-0x1
02cf 823a | : | Call 0x1,0x3a
02d0 e22d | - | Load 0x1,0x2d
02d1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02d2 7005 |p | Jump_Nonzero 0x2d8
02d3 00d8 | | Load_Top At_Offset_0
02d4 0092 0725 | %| Action Push_String_Extended,0x725 ; "Must be run from a Rational site."
02d6 e22b | + | Load 0x1,0x2b
02d7 180d | | Execute Package,Field_Execute,Field_Number 0xd
02d8 e5fc | | Load 0x2,-0x4
02d9 821c | | Call 0x1,0x1c
02da 027f | | Execute Discrete,Equal
02db 6805 |h | Jump_Zero 0x2e1
02dc 00d8 | | Load_Top At_Offset_0
02dd 0092 071d | | Action Push_String_Extended,0x71d ; "Remote_Machine_ID specified is the Machine_ID for this machine."
02df e22b | + | Load 0x1,0x2b
02e0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02e1 00d8 | | Load_Top At_Offset_0
02e2 e5fd | | Load 0x2,-0x3
02e3 e5fe | | Load 0x2,-0x2
02e4 e5ff | | Load 0x2,-0x1
02e5 823d | = | Call 0x1,0x3d
02e6 e5fa | | Load 0x2,-0x6
02e7 e231 | 1 | Load 0x1,0x31
02e8 01df | | Execute Vector,Equal
02e9 6808 |h | Jump_Zero 0x2f2
02ea e232 | 2 | Load 0x1,0x32
02eb e5fb | | Load 0x2,-0x5
02ec e5fc | | Load 0x2,-0x4
02ed e5fd | | Load 0x2,-0x3
02ee e5fe | | Load 0x2,-0x2
02ef e5ff | | Load 0x2,-0x1
02f0 8239 | 9 | Call 0x1,0x39
02f1 7807 |x | Jump 0x2f9
02f2 e5fa | | Load 0x2,-0x6
02f3 e5fb | | Load 0x2,-0x5
02f4 e5fc | | Load 0x2,-0x4
02f5 e5fd | | Load 0x2,-0x3
02f6 e5fe | | Load 0x2,-0x2
02f7 e5ff | | Load 0x2,-0x1
02f8 8239 | 9 | Call 0x1,0x39
02f9 00d8 | | Load_Top At_Offset_0
02fa 00ea | | Load_Encached Null_String_Cache
02fb e402 | | Load 0x2,0x2
02fc e22b | + | Load 0x1,0x2b
02fd 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02fe 4508 |E | Exit_Subprogram 0x8
02ff TRAP_02a8:
02ff e002 | | Load 0x0,0x2
0300 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
0301 010f | | Execute Exception,Equal
0302 6806 |h | Jump_Zero 0x309
0303 e403 | | Load 0x2,0x3
0304 e402 | | Load 0x2,0x2
0305 e22b | + | Load 0x1,0x2b
0306 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0307 00d8 | | Load_Top At_Offset_0
0308 0101 | | Execute Exception,Reraise
0309 e00a | | Load 0x0,0xa
030a 010f | | Execute Exception,Equal
030b 6805 |h | Jump_Zero 0x311
030c e403 | | Load 0x2,0x3
030d e402 | | Load 0x2,0x2
030e e22b | + | Load 0x1,0x2b
030f 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0310 4508 |E | Exit_Subprogram 0x8
0311 e403 | | Load 0x2,0x3
0312 4800 |H | Short_Literal 0x0
0313 4801 |H | Short_Literal 0x1
0314 e019 | | Load 0x0,0x19
0315 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0316 e402 | | Load 0x2,0x2
0317 e22b | + | Load 0x1,0x2b
0318 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0319 4508 |E | Exit_Subprogram 0x8
031a 0000 0000 | | .BLANK 0000[0x6]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0336 | 6 | .CONST 0x0336 ; Address of begin
0321 036c | l | .CONST 0x036c ; Address of exception handler
0322 0002 | | .CONST 0x0002 ; Number of locals
0323 INIT_0320:
0323 e22a | * | Load 0x1,0x2a
0324 02c7 | | Declare_Variable Any
0325 e002 | | Load 0x0,0x2
0326 180e | | Execute Package,Field_Execute,Field_Number 0xe
0327 e002 | | Load 0x0,0x2
0328 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0329 e002 | | Load 0x0,0x2
032a 180e | | Execute Package,Field_Execute,Field_Number 0xe
032b e002 | | Load 0x0,0x2
032c 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
032d 484d |HM | Short_Literal 0x4d
032e e002 | | Load 0x0,0x2
032f 1b45 | E | Execute Package,Field_Read,Field_Number 0x45
0330 e002 | | Load 0x0,0x2
0331 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0332 4800 |H | Short_Literal 0x0
0333 e002 | | Load 0x0,0x2
0334 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
0335 a402 | | Store_Unchecked 0x2,0x2
0336 BODY_0320:
0336 00d8 | | Load_Top At_Offset_0
0337 e22b | + | Load 0x1,0x2b
0338 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0339 00d8 | | Load_Top At_Offset_0
033a e5fb | | Load 0x2,-0x5
033b 823b | ; | Call 0x1,0x3b
033c 00d8 | | Load_Top At_Offset_0
033d e5fa | | Load 0x2,-0x6
033e 823c | < | Call 0x1,0x3c
033f 00d8 | | Load_Top At_Offset_0
0340 e5ff | | Load 0x2,-0x1
0341 823a | : | Call 0x1,0x3a
0342 e22d | - | Load 0x1,0x2d
0343 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0344 7005 |p | Jump_Nonzero 0x34a
0345 00d8 | | Load_Top At_Offset_0
0346 0092 0725 | %| Action Push_String_Extended,0x725 ; "Must be run from a Rational site."
0348 e22b | + | Load 0x1,0x2b
0349 180d | | Execute Package,Field_Execute,Field_Number 0xd
034a e5fc | | Load 0x2,-0x4
034b 821c | | Call 0x1,0x1c
034c 027f | | Execute Discrete,Equal
034d 6805 |h | Jump_Zero 0x353
034e 00d8 | | Load_Top At_Offset_0
034f 0092 071d | | Action Push_String_Extended,0x71d ; "Remote_Machine_ID specified is the Machine_ID for this machine."
0351 e22b | + | Load 0x1,0x2b
0352 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0353 00d8 | | Load_Top At_Offset_0
0354 e5fd | | Load 0x2,-0x3
0355 e5fe | | Load 0x2,-0x2
0356 e5ff | | Load 0x2,-0x1
0357 823d | = | Call 0x1,0x3d
0358 e5fa | | Load 0x2,-0x6
0359 e231 | 1 | Load 0x1,0x31
035a 01df | | Execute Vector,Equal
035b 6808 |h | Jump_Zero 0x364
035c e232 | 2 | Load 0x1,0x32
035d e5fb | | Load 0x2,-0x5
035e e5fc | | Load 0x2,-0x4
035f e5fd | | Load 0x2,-0x3
0360 e5fe | | Load 0x2,-0x2
0361 e5ff | | Load 0x2,-0x1
0362 8235 | 5 | Call 0x1,0x35
0363 4406 |D | Exit_Subprogram With_Result,0x6
0364 e5fa | | Load 0x2,-0x6
0365 e5fb | | Load 0x2,-0x5
0366 e5fc | | Load 0x2,-0x4
0367 e5fd | | Load 0x2,-0x3
0368 e5fe | | Load 0x2,-0x2
0369 e5ff | | Load 0x2,-0x1
036a 8235 | 5 | Call 0x1,0x35
036b 4406 |D | Exit_Subprogram With_Result,0x6
036c TRAP_0320:
036c e00a | | Load 0x0,0xa
036d 010f | | Execute Exception,Equal
036e 6803 |h | Jump_Zero 0x372
036f e002 | | Load 0x0,0x2
0370 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
0371 0257 | W | Execute Discrete,Raise
0372 0100 | | Execute Exception,Raise
0373 0000 0000 | | .BLANK 0000[0x5]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 0382 | | .CONST 0x0382 ; Address of begin
0379 03b0 | | .CONST 0x03b0 ; Address of exception handler
037a 0003 | | .CONST 0x0003 ; Number of locals
037b INIT_0378:
037b 0092 0726 | &| Action Push_String_Extended,0x726 ; "Assign_Site"
037d e22a | * | Load 0x1,0x2a
037e 02c7 | | Declare_Variable Any
037f e002 | | Load 0x0,0x2
0380 180e | | Execute Package,Field_Execute,Field_Number 0xe
0381 a403 | | Store_Unchecked 0x2,0x3
0382 BODY_0378:
0382 00d8 | | Load_Top At_Offset_0
0383 e5fd | | Load 0x2,-0x3
0384 e5fe | | Load 0x2,-0x2
0385 e22b | + | Load 0x1,0x2b
0386 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0387 e5ff | | Load 0x2,-0x1
0388 e402 | | Load 0x2,0x2
0389 e22b | + | Load 0x1,0x2b
038a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
038b c403 | | Store 0x2,0x3
038c 00d8 | | Load_Top At_Offset_0
038d e5ff | | Load 0x2,-0x1
038e 823b | ; | Call 0x1,0x3b
038f 0092 0727 | '| Action Push_String_Extended,0x727 ; "Run the following on the remote machine:"
0391 e018 | | Load 0x0,0x18
0392 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0393 0092 071f | | Action Push_String_Extended,0x71f ; "Set_Site"
0395 e22c | , | Load 0x1,0x2c
0396 180d | | Execute Package,Field_Execute,Field_Number 0xd
0397 e5ff | | Load 0x2,-0x1
0398 e22b | + | Load 0x1,0x2b
0399 181d | | Execute Package,Field_Execute,Field_Number 0x1d
039a 0092 0728 | (| Action Push_String_Extended,0x728 ; "Site"
039c e22c | , | Load 0x1,0x2c
039d 180e | | Execute Package,Field_Execute,Field_Number 0xe
039e e231 | 1 | Load 0x1,0x31
039f e5fe | | Load 0x2,-0x2
03a0 e5ff | | Load 0x2,-0x1
03a1 8234 | 4 | Call 0x1,0x34
03a2 e22b | + | Load 0x1,0x2b
03a3 181d | | Execute Package,Field_Execute,Field_Number 0x1d
03a4 0092 0729 | )| Action Push_String_Extended,0x729 ; "Code"
03a6 e22c | , | Load 0x1,0x2c
03a7 180e | | Execute Package,Field_Execute,Field_Number 0xe
03a8 e22c | , | Load 0x1,0x2c
03a9 180f | | Execute Package,Field_Execute,Field_Number 0xf
03aa 00d8 | | Load_Top At_Offset_0
03ab 00ea | | Load_Encached Null_String_Cache
03ac e402 | | Load 0x2,0x2
03ad e22b | + | Load 0x1,0x2b
03ae 1818 | | Execute Package,Field_Execute,Field_Number 0x18
03af 4504 |E | Exit_Subprogram 0x4
03b0 TRAP_0378:
03b0 e002 | | Load 0x0,0x2
03b1 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
03b2 010f | | Execute Exception,Equal
03b3 6806 |h | Jump_Zero 0x3ba
03b4 e403 | | Load 0x2,0x3
03b5 e402 | | Load 0x2,0x2
03b6 e22b | + | Load 0x1,0x2b
03b7 1819 | | Execute Package,Field_Execute,Field_Number 0x19
03b8 00d8 | | Load_Top At_Offset_0
03b9 0101 | | Execute Exception,Reraise
03ba e00a | | Load 0x0,0xa
03bb 010f | | Execute Exception,Equal
03bc 6805 |h | Jump_Zero 0x3c2
03bd e403 | | Load 0x2,0x3
03be e402 | | Load 0x2,0x2
03bf e22b | + | Load 0x1,0x2b
03c0 1819 | | Execute Package,Field_Execute,Field_Number 0x19
03c1 4504 |E | Exit_Subprogram 0x4
03c2 e403 | | Load 0x2,0x3
03c3 4800 |H | Short_Literal 0x0
03c4 4801 |H | Short_Literal 0x1
03c5 e019 | | Load 0x0,0x19
03c6 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03c7 e402 | | Load 0x2,0x2
03c8 e22b | + | Load 0x1,0x2b
03c9 181a | | Execute Package,Field_Execute,Field_Number 0x1a
03ca 4504 |E | Exit_Subprogram 0x4
03cb 0000 0000 | | .BLANK 0000[0x5]
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03e6 | | .CONST 0x03e6 ; Address of begin
03d1 03ee | | .CONST 0x03ee ; Address of exception handler
03d2 0002 | | .CONST 0x0002 ; Number of locals
03d3 INIT_03d0:
03d3 e22a | * | Load 0x1,0x2a
03d4 02c7 | | Declare_Variable Any
03d5 e002 | | Load 0x0,0x2
03d6 180e | | Execute Package,Field_Execute,Field_Number 0xe
03d7 e002 | | Load 0x0,0x2
03d8 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
03d9 e002 | | Load 0x0,0x2
03da 180e | | Execute Package,Field_Execute,Field_Number 0xe
03db e002 | | Load 0x0,0x2
03dc 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
03dd 484d |HM | Short_Literal 0x4d
03de e002 | | Load 0x0,0x2
03df 1b45 | E | Execute Package,Field_Read,Field_Number 0x45
03e0 e002 | | Load 0x0,0x2
03e1 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
03e2 4800 |H | Short_Literal 0x0
03e3 e002 | | Load 0x0,0x2
03e4 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
03e5 a402 | | Store_Unchecked 0x2,0x2
03e6 BODY_03d0:
03e6 00d8 | | Load_Top At_Offset_0
03e7 e5ff | | Load 0x2,-0x1
03e8 823b | ; | Call 0x1,0x3b
03e9 e231 | 1 | Load 0x1,0x31
03ea e5fe | | Load 0x2,-0x2
03eb e5ff | | Load 0x2,-0x1
03ec 8234 | 4 | Call 0x1,0x34
03ed 4402 |D | Exit_Subprogram With_Result,0x2
03ee TRAP_03d0:
03ee e00a | | Load 0x0,0xa
03ef 010f | | Execute Exception,Equal
03f0 6803 |h | Jump_Zero 0x3f4
03f1 e002 | | Load 0x0,0x2
03f2 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
03f3 0257 | W | Execute Discrete,Raise
03f4 0100 | | Execute Exception,Raise
03f5 0000 0000 | | .XXX[0x3]
03f7 0000 | |
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 0405 | | .CONST 0x0405 ; Address of begin
03f9 044f | O | .CONST 0x044f ; Address of exception handler
03fa 0004 | | .CONST 0x0004 ; Number of locals
03fb INIT_03f8:
03fb 0092 072a | *| Action Push_String_Extended,0x72a ; "Training"
03fd 0092 072b | +| Action Push_String_Extended,0x72b ; "Training_Authorization"
03ff e002 | | Load 0x0,0x2
0400 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0401 02c7 | | Declare_Variable Any
0402 e002 | | Load 0x0,0x2
0403 180e | | Execute Package,Field_Execute,Field_Number 0xe
0404 a404 | | Store_Unchecked 0x2,0x4
0405 BODY_03f8:
0405 00d8 | | Load_Top At_Offset_0
0406 e5fd | | Load 0x2,-0x3
0407 482b |H+ | Short_Literal 0x2b
0408 e5fe | | Load 0x2,-0x2
0409 00e1 | | Load_Encached Boolean_Cache
040a 011c | | Execute Any,Convert_Unchecked
040b 1c01 | | Execute_Immediate Run_Utility,0x1
040c 01ca | | Execute Vector,Prepend
040d e5ff | | Load 0x2,-0x1
040e e403 | | Load 0x2,0x3
040f e22b | + | Load 0x1,0x2b
0410 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0411 c404 | | Store 0x2,0x4
0412 e5fe | | Load 0x2,-0x2
0413 700f |p | Jump_Nonzero 0x423
0414 4801 |H | Short_Literal 0x1
0415 e008 | | Load 0x0,0x8
0416 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0417 4801 |H | Short_Literal 0x1
0418 e017 | | Load 0x0,0x17
0419 181a | | Execute Package,Field_Execute,Field_Number 0x1a
041a 4803 |H | Short_Literal 0x3
041b 0092 072c | ,| Action Push_String_Extended,0x72c ; "Product and Token authorization checking has been reinstated."
041d 0092 072d | -| Action Push_String_Extended,0x72d ; "Authorization_Checking_Reinstated"
041f e403 | | Load 0x2,0x3
0420 e22b | + | Load 0x1,0x2b
0421 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0422 7826 |x& | Jump 0x449
0423 e5ff | | Load 0x2,-0x1
0424 4800 |H | Short_Literal 0x0
0425 4800 |H | Short_Literal 0x0
0426 4800 |H | Short_Literal 0x0
0427 e007 | | Load 0x0,0x7
0428 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0429 e007 | | Load 0x0,0x7
042a 181b | | Execute Package,Field_Execute,Field_Number 0x1b
042b e01a | | Load 0x0,0x1a
042c 180e | | Execute Package,Field_Execute,Field_Number 0xe
042d e402 | | Load 0x2,0x2
042e e008 | | Load 0x0,0x8
042f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0430 01df | | Execute Vector,Equal
0431 680f |h | Jump_Zero 0x441
0432 4800 |H | Short_Literal 0x0
0433 e008 | | Load 0x0,0x8
0434 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0435 4800 |H | Short_Literal 0x0
0436 e017 | | Load 0x0,0x17
0437 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0438 4803 |H | Short_Literal 0x3
0439 0092 072e | .| Action Push_String_Extended,0x72e ; "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."
043b 0092 072f | /| Action Push_String_Extended,0x72f ; "Authorization_Checking_Suspended"
043d e403 | | Load 0x2,0x3
043e e22b | + | Load 0x1,0x2b
043f 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0440 7808 |x | Jump 0x449
0441 4807 |H | Short_Literal 0x7
0442 0092 0730 | 0| Action Push_String_Extended,0x730 ; "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."
0444 0092 0731 | 1| Action Push_String_Extended,0x731 ; "Authorization_Code_Error"
0446 e403 | | Load 0x2,0x3
0447 e22b | + | Load 0x1,0x2b
0448 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0449 00d8 | | Load_Top At_Offset_0
044a 00ea | | Load_Encached Null_String_Cache
044b e403 | | Load 0x2,0x3
044c e22b | + | Load 0x1,0x2b
044d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
044e 4504 |E | Exit_Subprogram 0x4
044f TRAP_03f8:
044f e002 | | Load 0x0,0x2
0450 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
0451 010f | | Execute Exception,Equal
0452 6806 |h | Jump_Zero 0x459
0453 e404 | | Load 0x2,0x4
0454 e403 | | Load 0x2,0x3
0455 e22b | + | Load 0x1,0x2b
0456 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0457 00d8 | | Load_Top At_Offset_0
0458 0101 | | Execute Exception,Reraise
0459 e00a | | Load 0x0,0xa
045a 010f | | Execute Exception,Equal
045b 6805 |h | Jump_Zero 0x461
045c e404 | | Load 0x2,0x4
045d e403 | | Load 0x2,0x3
045e e22b | + | Load 0x1,0x2b
045f 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0460 4504 |E | Exit_Subprogram 0x4
0461 e404 | | Load 0x2,0x4
0462 4800 |H | Short_Literal 0x0
0463 4801 |H | Short_Literal 0x1
0464 e019 | | Load 0x0,0x19
0465 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0466 e403 | | Load 0x2,0x3
0467 e22b | + | Load 0x1,0x2b
0468 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0469 4504 |E | Exit_Subprogram 0x4
046a 0000 0000 | | .BLANK 0000[0x6]
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0473 | s | .CONST 0x0473 ; Address of begin
0471 0004 | | .CONST 0x0004 ; Address of exception handler
0472 0001 | | .CONST 0x0001 ; Number of locals
0473 BODY_0470:
0473 INIT_0470:
0473 e012 | | Load 0x0,0x12
0474 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0475 e22d | - | Load 0x1,0x2d
0476 180f | | Execute Package,Field_Execute,Field_Number 0xf
0477 4501 |E | Exit_Subprogram 0x1
0478 ; --------------------------------------------------------------------------------------
0478 ; SUBPROGRAM
0478 ; --------------------------------------------------------------------------------------
0478 047b | { | .CONST 0x047b ; Address of begin
0479 0004 | | .CONST 0x0004 ; Address of exception handler
047a 0001 | | .CONST 0x0001 ; Number of locals
047b BODY_0478:
047b INIT_0478:
047b e012 | | Load 0x0,0x12
047c 1812 | | Execute Package,Field_Execute,Field_Number 0x12
047d e22d | - | Load 0x1,0x2d
047e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
047f 4501 |E | Exit_Subprogram 0x1
0480 ; --------------------------------------------------------------------------------------
0480 ; SUBPROGRAM
0480 ; --------------------------------------------------------------------------------------
0480 0483 | | .CONST 0x0483 ; Address of begin
0481 0004 | | .CONST 0x0004 ; Address of exception handler
0482 0001 | | .CONST 0x0001 ; Number of locals
0483 BODY_0480:
0483 INIT_0480:
0483 e007 | | Load 0x0,0x7
0484 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0485 e22d | - | Load 0x1,0x2d
0486 180f | | Execute Package,Field_Execute,Field_Number 0xf
0487 4501 |E | Exit_Subprogram 0x1
0488 ; --------------------------------------------------------------------------------------
0488 ; SUBPROGRAM
0488 ; --------------------------------------------------------------------------------------
0488 048b | | .CONST 0x048b ; Address of begin
0489 0004 | | .CONST 0x0004 ; Address of exception handler
048a 0001 | | .CONST 0x0001 ; Number of locals
048b BODY_0488:
048b INIT_0488:
048b e007 | | Load 0x0,0x7
048c 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
048d e22d | - | Load 0x1,0x2d
048e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
048f 4501 |E | Exit_Subprogram 0x1
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 0493 | | .CONST 0x0493 ; Address of begin
0491 0004 | | .CONST 0x0004 ; Address of exception handler
0492 0001 | | .CONST 0x0001 ; Number of locals
0493 BODY_0490:
0493 INIT_0490:
0493 e22d | - | Load 0x1,0x2d
0494 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0495 4501 |E | Exit_Subprogram 0x1
0496 0000 0000 | | .XXX[0x2]
0498 ; --------------------------------------------------------------------------------------
0498 ; SUBPROGRAM
0498 ; --------------------------------------------------------------------------------------
0498 049b | | .CONST 0x049b ; Address of begin
0499 0004 | | .CONST 0x0004 ; Address of exception handler
049a 0001 | | .CONST 0x0001 ; Number of locals
049b BODY_0498:
049b INIT_0498:
049b e5fa | | Load 0x2,-0x6
049c e5fc | | Load 0x2,-0x4
049d e5ff | | Load 0x2,-0x1
049e 0092 0732 | 2| Action Push_String_Extended,0x732 ; "/"
04a0 01cc | | Execute Vector,Catenate
04a1 e5fb | | Load 0x2,-0x5
04a2 01cc | | Execute Vector,Catenate
04a3 0092 0733 | 3| Action Push_String_Extended,0x733 ; "="
04a5 01cc | | Execute Vector,Catenate
04a6 4820 |H | Short_Literal 0x20
04a7 4800 |H | Short_Literal 0x0
04a8 480a |H | Short_Literal 0xa
04a9 e5fe | | Load 0x2,-0x2
04aa 822e | . | Call 0x1,0x2e
04ab 01cc | | Execute Vector,Catenate
04ac 0092 0734 | 4| Action Push_String_Extended,0x734 ; "|"
04ae 01cc | | Execute Vector,Catenate
04af 4820 |H | Short_Literal 0x20
04b0 4800 |H | Short_Literal 0x0
04b1 480a |H | Short_Literal 0xa
04b2 e5fd | | Load 0x2,-0x3
04b3 822e | . | Call 0x1,0x2e
04b4 01cc | | Execute Vector,Catenate
04b5 8233 | 3 | Call 0x1,0x33
04b6 4406 |D | Exit_Subprogram With_Result,0x6
04b7 0000 | | .XXX[0x1]
04b8 ; --------------------------------------------------------------------------------------
04b8 ; SUBPROGRAM
04b8 ; --------------------------------------------------------------------------------------
04b8 04bb | | .CONST 0x04bb ; Address of begin
04b9 0004 | | .CONST 0x0004 ; Address of exception handler
04ba 0001 | | .CONST 0x0001 ; Number of locals
04bb BODY_04b8:
04bb INIT_04b8:
04bb 4801 |H | Short_Literal 0x1
04bc e5fc | | Load 0x2,-0x4
04bd e232 | 2 | Load 0x1,0x32
04be 821b | | Call 0x1,0x1b
04bf 821c | | Call 0x1,0x1c
04c0 e5fd | | Load 0x2,-0x3
04c1 e5fe | | Load 0x2,-0x2
04c2 e5ff | | Load 0x2,-0x1
04c3 8235 | 5 | Call 0x1,0x35
04c4 e006 | | Load 0x0,0x6
04c5 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
04c6 4404 |D | Exit_Subprogram With_Result,0x4
04c7 0000 | | .XXX[0x1]
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04cb | | .CONST 0x04cb ; Address of begin
04c9 0004 | | .CONST 0x0004 ; Address of exception handler
04ca 0001 | | .CONST 0x0001 ; Number of locals
04cb BODY_04c8:
04cb INIT_04c8:
04cb e5ff | | Load 0x2,-0x1
04cc e012 | | Load 0x0,0x12
04cd 1812 | | Execute Package,Field_Execute,Field_Number 0x12
04ce 8238 | 8 | Call 0x1,0x38
04cf 4401 |D | Exit_Subprogram With_Result,0x1
04d0 ; --------------------------------------------------------------------------------------
04d0 ; SUBPROGRAM
04d0 ; --------------------------------------------------------------------------------------
04d0 04d5 | | .CONST 0x04d5 ; Address of begin
04d1 0004 | | .CONST 0x0004 ; Address of exception handler
04d2 0002 | | .CONST 0x0002 ; Number of locals
04d3 INIT_04d0:
04d3 029f 06db | | Declare_Subprogram For_Call,INIT_06d8
04d5 BODY_04d0:
04d5 e5ff | | Load 0x2,-0x1
04d6 8402 | | Call 0x2,0x2
04d7 e5fe | | Load 0x2,-0x2
04d8 8402 | | Call 0x2,0x2
04d9 017f | | Execute Record,Equal
04da 4402 |D | Exit_Subprogram With_Result,0x2
04db 0000 0000 | | .BLANK 0000[0x5]
04e0 ; --------------------------------------------------------------------------------------
04e0 ; SUBPROGRAM
04e0 ; --------------------------------------------------------------------------------------
04e0 04e3 | | .CONST 0x04e3 ; Address of begin
04e1 0004 | | .CONST 0x0004 ; Address of exception handler
04e2 0001 | | .CONST 0x0001 ; Number of locals
04e3 BODY_04e0:
04e3 INIT_04e0:
04e3 0092 0727 | '| Action Push_String_Extended,0x727 ; "Run the following on the remote machine:"
04e5 e018 | | Load 0x0,0x18
04e6 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
04e7 0092 0710 | | Action Push_String_Extended,0x710 ; "Accept_Tokens"
04e9 e22c | , | Load 0x1,0x2c
04ea 180d | | Execute Package,Field_Execute,Field_Number 0xd
04eb e5ff | | Load 0x2,-0x1
04ec e22b | + | Load 0x1,0x2b
04ed 181d | | Execute Package,Field_Execute,Field_Number 0x1d
04ee 0092 0735 | 5| Action Push_String_Extended,0x735 ; "Product"
04f0 e22c | , | Load 0x1,0x2c
04f1 180e | | Execute Package,Field_Execute,Field_Number 0xe
04f2 4820 |H | Short_Literal 0x20
04f3 4800 |H | Short_Literal 0x0
04f4 480a |H | Short_Literal 0xa
04f5 e5fe | | Load 0x2,-0x2
04f6 822e | . | Call 0x1,0x2e
04f7 0092 0736 | 6| Action Push_String_Extended,0x736 ; "Donation"
04f9 e22c | , | Load 0x1,0x2c
04fa 180e | | Execute Package,Field_Execute,Field_Number 0xe
04fb 4820 |H | Short_Literal 0x20
04fc 4800 |H | Short_Literal 0x0
04fd 480a |H | Short_Literal 0xa
04fe e5fd | | Load 0x2,-0x3
04ff 822e | . | Call 0x1,0x2e
0500 0092 0737 | 7| Action Push_String_Extended,0x737 ; "Resulting_Count"
0502 e22c | , | Load 0x1,0x2c
0503 180e | | Execute Package,Field_Execute,Field_Number 0xe
0504 e5fa | | Load 0x2,-0x6
0505 e5fb | | Load 0x2,-0x5
0506 e5fc | | Load 0x2,-0x4
0507 e5fd | | Load 0x2,-0x3
0508 e5fe | | Load 0x2,-0x2
0509 e5ff | | Load 0x2,-0x1
050a 8235 | 5 | Call 0x1,0x35
050b e22b | + | Load 0x1,0x2b
050c 181d | | Execute Package,Field_Execute,Field_Number 0x1d
050d 0092 0729 | )| Action Push_String_Extended,0x729 ; "Code"
050f e22c | , | Load 0x1,0x2c
0510 180e | | Execute Package,Field_Execute,Field_Number 0xe
0511 e22c | , | Load 0x1,0x2c
0512 180f | | Execute Package,Field_Execute,Field_Number 0xf
0513 4507 |E | Exit_Subprogram 0x7
0514 0000 0000 | | .BLANK 0000[0x4]
0518 ; --------------------------------------------------------------------------------------
0518 ; SUBPROGRAM
0518 ; --------------------------------------------------------------------------------------
0518 051b | | .CONST 0x051b ; Address of begin
0519 0004 | | .CONST 0x0004 ; Address of exception handler
051a 0001 | | .CONST 0x0001 ; Number of locals
051b BODY_0518:
051b INIT_0518:
051b e5ff | | Load 0x2,-0x1
051c 01db | | Execute Vector,Length
051d 7005 |p | Jump_Nonzero 0x523
051e e5fe | | Load 0x2,-0x2
051f 0092 0738 | 8| Action Push_String_Extended,0x738 ; "Product name not specified."
0521 e22b | + | Load 0x1,0x2b
0522 180d | | Execute Package,Field_Execute,Field_Number 0xd
0523 00cf | | Action Mark_Auxiliary
0524 e5ff | | Load 0x2,-0x1
0525 01d9 | | Execute Vector,Reverse_Bounds
0526 0263 | c | Execute Discrete,Above_Bound
0527 7018 |p | Jump_Nonzero 0x540
0528 00d8 | | Load_Top At_Offset_0
0529 e5ff | | Load 0x2,-0x1
052a 01d7 | | Execute Vector,Field_Read
052b 4820 |H | Short_Literal 0x20
052c 487e |H~ | Short_Literal 0x7e
052d 0261 | a | Execute Discrete,Not_In_Range
052e 680f |h | Jump_Zero 0x53e
052f e5fe | | Load 0x2,-0x2
0530 0092 0739 | 9| Action Push_String_Extended,0x739 ; "Product name contains an illegal character ("
0532 e404 | | Load 0x2,0x4
0533 e5ff | | Load 0x2,-0x1
0534 01d7 | | Execute Vector,Field_Read
0535 00e8 | | Load_Encached Character_Cache
0536 011c | | Execute Any,Convert_Unchecked
0537 1c01 | | Execute_Immediate Run_Utility,0x1
0538 01cc | | Execute Vector,Catenate
0539 0092 0722 | "| Action Push_String_Extended,0x722 ; ")."
053b 01cc | | Execute Vector,Catenate
053c e22b | + | Load 0x1,0x2b
053d 180d | | Execute Package,Field_Execute,Field_Number 0xd
053e 00c8 | | Action Pop_Auxiliary_Range
053f 3fe8 |? | Loop_Increasing 0x528
0540 00ce | | Action Pop_Auxiliary
0541 e5ff | | Load 0x2,-0x1
0542 4820 |H | Short_Literal 0x20
0543 e5ff | | Load 0x2,-0x1
0544 e006 | | Load 0x0,0x6
0545 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0546 01de | | Execute Vector,Not_Equal
0547 6805 |h | Jump_Zero 0x54d
0548 e5fe | | Load 0x2,-0x2
0549 0092 073a | :| Action Push_String_Extended,0x73a ; "Product name includes leading or trailing blanks."
054b e22b | + | Load 0x1,0x2b
054c 180d | | Execute Package,Field_Execute,Field_Number 0xd
054d 4503 |E | Exit_Subprogram 0x3
054e 0000 0000 | | .XXX[0x2]
0550 ; --------------------------------------------------------------------------------------
0550 ; SUBPROGRAM
0550 ; --------------------------------------------------------------------------------------
0550 0553 | S | .CONST 0x0553 ; Address of begin
0551 0004 | | .CONST 0x0004 ; Address of exception handler
0552 0001 | | .CONST 0x0001 ; Number of locals
0553 BODY_0550:
0553 INIT_0550:
0553 e5ff | | Load 0x2,-0x1
0554 01db | | Execute Vector,Length
0555 7005 |p | Jump_Nonzero 0x55b
0556 e5fe | | Load 0x2,-0x2
0557 0092 073b | ;| Action Push_String_Extended,0x73b ; "Site name not specified."
0559 e22b | + | Load 0x1,0x2b
055a 180d | | Execute Package,Field_Execute,Field_Number 0xd
055b 00cf | | Action Mark_Auxiliary
055c e5ff | | Load 0x2,-0x1
055d 01d9 | | Execute Vector,Reverse_Bounds
055e 0263 | c | Execute Discrete,Above_Bound
055f 7018 |p | Jump_Nonzero 0x578
0560 00d8 | | Load_Top At_Offset_0
0561 e5ff | | Load 0x2,-0x1
0562 01d7 | | Execute Vector,Field_Read
0563 4820 |H | Short_Literal 0x20
0564 487e |H~ | Short_Literal 0x7e
0565 0261 | a | Execute Discrete,Not_In_Range
0566 680f |h | Jump_Zero 0x576
0567 e5fe | | Load 0x2,-0x2
0568 0092 073c | <| Action Push_String_Extended,0x73c ; "Site name contains an illegal character ("
056a e404 | | Load 0x2,0x4
056b e5ff | | Load 0x2,-0x1
056c 01d7 | | Execute Vector,Field_Read
056d 00e8 | | Load_Encached Character_Cache
056e 011c | | Execute Any,Convert_Unchecked
056f 1c01 | | Execute_Immediate Run_Utility,0x1
0570 01cc | | Execute Vector,Catenate
0571 0092 0722 | "| Action Push_String_Extended,0x722 ; ")."
0573 01cc | | Execute Vector,Catenate
0574 e22b | + | Load 0x1,0x2b
0575 180d | | Execute Package,Field_Execute,Field_Number 0xd
0576 00c8 | | Action Pop_Auxiliary_Range
0577 3fe8 |? | Loop_Increasing 0x560
0578 00ce | | Action Pop_Auxiliary
0579 e5ff | | Load 0x2,-0x1
057a 4820 |H | Short_Literal 0x20
057b e5ff | | Load 0x2,-0x1
057c e006 | | Load 0x0,0x6
057d 181c | | Execute Package,Field_Execute,Field_Number 0x1c
057e 01de | | Execute Vector,Not_Equal
057f 6805 |h | Jump_Zero 0x585
0580 e5fe | | Load 0x2,-0x2
0581 0092 073d | =| Action Push_String_Extended,0x73d ; "Site name includes leading or trailing blanks."
0583 e22b | + | Load 0x1,0x2b
0584 180d | | Execute Package,Field_Execute,Field_Number 0xd
0585 4503 |E | Exit_Subprogram 0x3
0586 0000 0000 | | .XXX[0x2]
0588 ; --------------------------------------------------------------------------------------
0588 ; SUBPROGRAM
0588 ; --------------------------------------------------------------------------------------
0588 058d | | .CONST 0x058d ; Address of begin
0589 0004 | | .CONST 0x0004 ; Address of exception handler
058a 0002 | | .CONST 0x0002 ; Number of locals
058b INIT_0588:
058b 029f 06fb | | Declare_Subprogram For_Call,INIT_06f8
058d BODY_0588:
058d 4820 |H | Short_Literal 0x20
058e e5ff | | Load 0x2,-0x1
058f e006 | | Load 0x0,0x6
0590 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0591 01db | | Execute Vector,Length
0592 7001 |p | Jump_Nonzero 0x594
0593 4503 |E | Exit_Subprogram 0x3
0594 00cf | | Action Mark_Auxiliary
0595 e5ff | | Load 0x2,-0x1
0596 01d9 | | Execute Vector,Reverse_Bounds
0597 0263 | c | Execute Discrete,Above_Bound
0598 7018 |p | Jump_Nonzero 0x5b1
0599 00d8 | | Load_Top At_Offset_0
059a e5ff | | Load 0x2,-0x1
059b 01d7 | | Execute Vector,Field_Read
059c 4820 |H | Short_Literal 0x20
059d 487e |H~ | Short_Literal 0x7e
059e 0261 | a | Execute Discrete,Not_In_Range
059f 680f |h | Jump_Zero 0x5af
05a0 e5fe | | Load 0x2,-0x2
05a1 0092 073e | >| Action Push_String_Extended,0x73e ; "Date contains an illegal character ("
05a3 e405 | | Load 0x2,0x5
05a4 e5ff | | Load 0x2,-0x1
05a5 01d7 | | Execute Vector,Field_Read
05a6 00e8 | | Load_Encached Character_Cache
05a7 011c | | Execute Any,Convert_Unchecked
05a8 1c01 | | Execute_Immediate Run_Utility,0x1
05a9 01cc | | Execute Vector,Catenate
05aa 0092 0722 | "| Action Push_String_Extended,0x722 ; ")."
05ac 01cc | | Execute Vector,Catenate
05ad e22b | + | Load 0x1,0x2b
05ae 180d | | Execute Package,Field_Execute,Field_Number 0xd
05af 00c8 | | Action Pop_Auxiliary_Range
05b0 3fe8 |? | Loop_Increasing 0x599
05b1 00ce | | Action Pop_Auxiliary
05b2 8402 | | Call 0x2,0x2
05b3 4503 |E | Exit_Subprogram 0x3
05b4 0000 0000 | | .BLANK 0000[0x4]
05b8 ; --------------------------------------------------------------------------------------
05b8 ; SUBPROGRAM
05b8 ; --------------------------------------------------------------------------------------
05b8 05bf | | .CONST 0x05bf ; Address of begin
05b9 0004 | | .CONST 0x0004 ; Address of exception handler
05ba 0002 | | .CONST 0x0002 ; Number of locals
05bb INIT_05b8:
05bb e5ff | | Load 0x2,-0x1
05bc 823f | ? | Call 0x1,0x3f
05bd 00e3 | | Load_Encached Natural_Cache
05be 03f1 | | Declare_Variable Discrete,With_Value
05bf BODY_05b8:
05bf e5fc | | Load 0x2,-0x4
05c0 e5ff | | Load 0x2,-0x1
05c1 0092 0736 | 6| Action Push_String_Extended,0x736 ; "Donation"
05c3 e5fe | | Load 0x2,-0x2
05c4 8242 | B | Call 0x1,0x42
05c5 e5fc | | Load 0x2,-0x4
05c6 e5ff | | Load 0x2,-0x1
05c7 0092 0737 | 7| Action Push_String_Extended,0x737 ; "Resulting_Count"
05c9 e5fd | | Load 0x2,-0x3
05ca 8242 | B | Call 0x1,0x42
05cb e5fe | | Load 0x2,-0x2
05cc e5fd | | Load 0x2,-0x3
05cd 027d | } | Execute Discrete,Greater
05ce 681c |h | Jump_Zero 0x5eb
05cf e5fc | | Load 0x2,-0x4
05d0 0092 073f | ?| Action Push_String_Extended,0x73f ; "The number of tokens ("
05d2 4820 |H | Short_Literal 0x20
05d3 4800 |H | Short_Literal 0x0
05d4 480a |H | Short_Literal 0xa
05d5 e5fe | | Load 0x2,-0x2
05d6 822e | . | Call 0x1,0x2e
05d7 01cc | | Execute Vector,Catenate
05d8 0092 0740 | @| Action Push_String_Extended,0x740 ; ") for "
05da 01cc | | Execute Vector,Catenate
05db e5ff | | Load 0x2,-0x1
05dc 01cc | | Execute Vector,Catenate
05dd 0092 0741 | A| Action Push_String_Extended,0x741 ; " exceeds the target authorization ("
05df 01cc | | Execute Vector,Catenate
05e0 4820 |H | Short_Literal 0x20
05e1 4800 |H | Short_Literal 0x0
05e2 480a |H | Short_Literal 0xa
05e3 e5fd | | Load 0x2,-0x3
05e4 822e | . | Call 0x1,0x2e
05e5 01cc | | Execute Vector,Catenate
05e6 0092 0722 | "| Action Push_String_Extended,0x722 ; ")."
05e8 01cc | | Execute Vector,Catenate
05e9 e22b | + | Load 0x1,0x2b
05ea 180d | | Execute Package,Field_Execute,Field_Number 0xd
05eb 4505 |E | Exit_Subprogram 0x5
05ec 0000 0000 | | .BLANK 0000[0x4]
05f0 ; --------------------------------------------------------------------------------------
05f0 ; SUBPROGRAM
05f0 ; --------------------------------------------------------------------------------------
05f0 05fb | | .CONST 0x05fb ; Address of begin
05f1 0004 | | .CONST 0x0004 ; Address of exception handler
05f2 0003 | | .CONST 0x0003 ; Number of locals
05f3 INIT_05f0:
05f3 e5ff | | Load 0x2,-0x1
05f4 823f | ? | Call 0x1,0x3f
05f5 00e3 | | Load_Encached Natural_Cache
05f6 03f1 | | Declare_Variable Discrete,With_Value
05f7 e5ff | | Load 0x2,-0x1
05f8 8241 | A | Call 0x1,0x41
05f9 00e3 | | Load_Encached Natural_Cache
05fa 03f1 | | Declare_Variable Discrete,With_Value
05fb BODY_05f0:
05fb e402 | | Load 0x2,0x2
05fc 700a |p | Jump_Nonzero 0x607
05fd e5fd | | Load 0x2,-0x3
05fe 0092 0742 | B| Action Push_String_Extended,0x742 ; "There are currently no tokens for "
0600 e5ff | | Load 0x2,-0x1
0601 01cc | | Execute Vector,Catenate
0602 0092 0743 | C| Action Push_String_Extended,0x743 ; ", so they can't be donated."
0604 01cc | | Execute Vector,Catenate
0605 e22b | + | Load 0x1,0x2b
0606 180d | | Execute Package,Field_Execute,Field_Number 0xd
0607 e5fe | | Load 0x2,-0x2
0608 e402 | | Load 0x2,0x2
0609 027d | } | Execute Discrete,Greater
060a 681c |h | Jump_Zero 0x627
060b e5fd | | Load 0x2,-0x3
060c 0092 0744 | D| Action Push_String_Extended,0x744 ; "The requested donation ("
060e 4820 |H | Short_Literal 0x20
060f 4800 |H | Short_Literal 0x0
0610 480a |H | Short_Literal 0xa
0611 e5fe | | Load 0x2,-0x2
0612 822e | . | Call 0x1,0x2e
0613 01cc | | Execute Vector,Catenate
0614 0092 0740 | @| Action Push_String_Extended,0x740 ; ") for "
0616 01cc | | Execute Vector,Catenate
0617 e5ff | | Load 0x2,-0x1
0618 01cc | | Execute Vector,Catenate
0619 0092 0745 | E| Action Push_String_Extended,0x745 ; "exceeds the current limit ("
061b 01cc | | Execute Vector,Catenate
061c 4820 |H | Short_Literal 0x20
061d 4800 |H | Short_Literal 0x0
061e 480a |H | Short_Literal 0xa
061f e402 | | Load 0x2,0x2
0620 822e | . | Call 0x1,0x2e
0621 01cc | | Execute Vector,Catenate
0622 0092 0722 | "| Action Push_String_Extended,0x722 ; ")."
0624 01cc | | Execute Vector,Catenate
0625 e22b | + | Load 0x1,0x2b
0626 180d | | Execute Package,Field_Execute,Field_Number 0xd
0627 e402 | | Load 0x2,0x2
0628 e5fe | | Load 0x2,-0x2
0629 0272 | r | Execute Discrete,Minus
062a e403 | | Load 0x2,0x3
062b 027c | | | Execute Discrete,Less
062c 6813 |h | Jump_Zero 0x640
062d e5fd | | Load 0x2,-0x3
062e 0092 0746 | F| Action Push_String_Extended,0x746 ; "Donation of "
0630 4820 |H | Short_Literal 0x20
0631 4800 |H | Short_Literal 0x0
0632 480a |H | Short_Literal 0xa
0633 e5fe | | Load 0x2,-0x2
0634 822e | . | Call 0x1,0x2e
0635 01cc | | Execute Vector,Catenate
0636 0092 0747 | G| Action Push_String_Extended,0x747 ; " tokens for "
0638 01cc | | Execute Vector,Catenate
0639 e5ff | | Load 0x2,-0x1
063a 01cc | | Execute Vector,Catenate
063b 0092 0748 | H| Action Push_String_Extended,0x748 ; " would transfer tokens currently in use."
063d 01cc | | Execute Vector,Catenate
063e e22b | + | Load 0x1,0x2b
063f 180d | | Execute Package,Field_Execute,Field_Number 0xd
0640 e402 | | Load 0x2,0x2
0641 e5fe | | Load 0x2,-0x2
0642 0272 | r | Execute Discrete,Minus
0643 00d8 | | Load_Top At_Offset_0
0644 00e3 | | Load_Encached Natural_Cache
0645 0260 | ` | Execute Discrete,In_Type
0646 7001 |p | Jump_Nonzero 0x648
0647 0801 | | Execute_Immediate Raise,0x1
0648 e5ff | | Load 0x2,-0x1
0649 e017 | | Load 0x0,0x17
064a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
064b e5fd | | Load 0x2,-0x3
064c 0092 0746 | F| Action Push_String_Extended,0x746 ; "Donation of "
064e 4820 |H | Short_Literal 0x20
064f 4800 |H | Short_Literal 0x0
0650 480a |H | Short_Literal 0xa
0651 e5fe | | Load 0x2,-0x2
0652 822e | . | Call 0x1,0x2e
0653 01cc | | Execute Vector,Catenate
0654 0092 0747 | G| Action Push_String_Extended,0x747 ; " tokens for "
0656 01cc | | Execute Vector,Catenate
0657 e5ff | | Load 0x2,-0x1
0658 01cc | | Execute Vector,Catenate
0659 0092 0749 | I| Action Push_String_Extended,0x749 ; " has resulted in "
065b 01cc | | Execute Vector,Catenate
065c 4820 |H | Short_Literal 0x20
065d 4800 |H | Short_Literal 0x0
065e 480a |H | Short_Literal 0xa
065f e5ff | | Load 0x2,-0x1
0660 823f | ? | Call 0x1,0x3f
0661 822e | . | Call 0x1,0x2e
0662 01cc | | Execute Vector,Catenate
0663 0092 074a | J| Action Push_String_Extended,0x74a ; " tokens."
0665 01cc | | Execute Vector,Catenate
0666 e22b | + | Load 0x1,0x2b
0667 180f | | Execute Package,Field_Execute,Field_Number 0xf
0668 4504 |E | Exit_Subprogram 0x4
0669 0000 0000 | | .BLANK 0000[0x7]
0670 ; --------------------------------------------------------------------------------------
0670 ; SUBPROGRAM
0670 ; --------------------------------------------------------------------------------------
0670 0673 | s | .CONST 0x0673 ; Address of begin
0671 0677 | w | .CONST 0x0677 ; Address of exception handler
0672 0001 | | .CONST 0x0001 ; Number of locals
0673 BODY_0670:
0673 INIT_0670:
0673 e5ff | | Load 0x2,-0x1
0674 e017 | | Load 0x0,0x17
0675 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0676 4401 |D | Exit_Subprogram With_Result,0x1
0677 TRAP_0670:
0677 0007 | | Action Break_Optional
0678 4800 |H | Short_Literal 0x0
0679 4401 |D | Exit_Subprogram With_Result,0x1
067a 0000 0000 | | .BLANK 0000[0x6]
0680 ; --------------------------------------------------------------------------------------
0680 ; SUBPROGRAM
0680 ; --------------------------------------------------------------------------------------
0680 0683 | | .CONST 0x0683 ; Address of begin
0681 0687 | | .CONST 0x0687 ; Address of exception handler
0682 0001 | | .CONST 0x0001 ; Number of locals
0683 BODY_0680:
0683 INIT_0680:
0683 e5ff | | Load 0x2,-0x1
0684 e017 | | Load 0x0,0x17
0685 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0686 4401 |D | Exit_Subprogram With_Result,0x1
0687 TRAP_0680:
0687 0007 | | Action Break_Optional
0688 4800 |H | Short_Literal 0x0
0689 4401 |D | Exit_Subprogram With_Result,0x1
068a 0000 0000 | | .BLANK 0000[0x6]
0690 ; --------------------------------------------------------------------------------------
0690 ; SUBPROGRAM
0690 ; --------------------------------------------------------------------------------------
0690 0693 | | .CONST 0x0693 ; Address of begin
0691 0697 | | .CONST 0x0697 ; Address of exception handler
0692 0001 | | .CONST 0x0001 ; Number of locals
0693 BODY_0690:
0693 INIT_0690:
0693 e5ff | | Load 0x2,-0x1
0694 e017 | | Load 0x0,0x17
0695 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0696 4401 |D | Exit_Subprogram With_Result,0x1
0697 TRAP_0690:
0697 0007 | | Action Break_Optional
0698 4800 |H | Short_Literal 0x0
0699 4401 |D | Exit_Subprogram With_Result,0x1
069a 0000 0000 | | .BLANK 0000[0x6]
06a0 ; --------------------------------------------------------------------------------------
06a0 ; SUBPROGRAM
06a0 ; --------------------------------------------------------------------------------------
06a0 06a3 | | .CONST 0x06a3 ; Address of begin
06a1 0004 | | .CONST 0x0004 ; Address of exception handler
06a2 0001 | | .CONST 0x0001 ; Number of locals
06a3 BODY_06a0:
06a3 INIT_06a0:
06a3 e5ff | | Load 0x2,-0x1
06a4 e229 | ) | Load 0x1,0x29
06a5 025f | _ | Execute Discrete,Not_In_Type
06a6 682a |h* | Jump_Zero 0x6d1
06a7 e5fc | | Load 0x2,-0x4
06a8 0092 074b | K| Action Push_String_Extended,0x74b ; "The legal range of "
06aa e5fe | | Load 0x2,-0x2
06ab 01cc | | Execute Vector,Catenate
06ac 0092 074c | L| Action Push_String_Extended,0x74c ; " for "
06ae 01cc | | Execute Vector,Catenate
06af e5fd | | Load 0x2,-0x3
06b0 01cc | | Execute Vector,Catenate
06b1 0092 074d | M| Action Push_String_Extended,0x74d ; " is "
06b3 01cc | | Execute Vector,Catenate
06b4 4820 |H | Short_Literal 0x20
06b5 4800 |H | Short_Literal 0x0
06b6 480a |H | Short_Literal 0xa
06b7 4800 |H | Short_Literal 0x0
06b8 822e | . | Call 0x1,0x2e
06b9 01cc | | Execute Vector,Catenate
06ba 0092 074e | N| Action Push_String_Extended,0x74e ; ".."
06bc 01cc | | Execute Vector,Catenate
06bd 4820 |H | Short_Literal 0x20
06be 4800 |H | Short_Literal 0x0
06bf 480a |H | Short_Literal 0xa
06c0 4840 |H@ | Short_Literal 0x40
06c1 822e | . | Call 0x1,0x2e
06c2 01cc | | Execute Vector,Catenate
06c3 0092 074f | O| Action Push_String_Extended,0x74f ; ", but the value specified ("
06c5 01cc | | Execute Vector,Catenate
06c6 4820 |H | Short_Literal 0x20
06c7 4800 |H | Short_Literal 0x0
06c8 480a |H | Short_Literal 0xa
06c9 e5ff | | Load 0x2,-0x1
06ca 822e | . | Call 0x1,0x2e
06cb 01cc | | Execute Vector,Catenate
06cc 0092 0750 | P| Action Push_String_Extended,0x750 ; ") is outside that range"
06ce 01cc | | Execute Vector,Catenate
06cf e22b | + | Load 0x1,0x2b
06d0 180d | | Execute Package,Field_Execute,Field_Number 0xd
06d1 4505 |E | Exit_Subprogram 0x5
06d2 0000 0000 | | .BLANK 0000[0x6]
06d8 ; --------------------------------------------------------------------------------------
06d8 ; SUBPROGRAM
06d8 ; --------------------------------------------------------------------------------------
06d8 06e3 | | .CONST 0x06e3 ; Address of begin
06d9 0004 | | .CONST 0x0004 ; Address of exception handler
06da 0002 | | .CONST 0x0002 ; Number of locals
06db INIT_06d8:
06db e007 | | Load 0x0,0x7
06dc 1b14 | | Execute Package,Field_Read,Field_Number 0x14
06dd 0322 | " | Declare_Variable Record
06de e7ff | | Load 0x3,-0x1
06df e007 | | Load 0x0,0x7
06e0 1816 | | Execute Package,Field_Execute,Field_Number 0x16
06e1 e602 | | Load 0x3,0x2
06e2 017d | } | Execute Record,Structure_Write
06e3 BODY_06d8:
06e3 4800 |H | Short_Literal 0x0
06e4 e602 | | Load 0x3,0x2
06e5 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
06e6 4800 |H | Short_Literal 0x0
06e7 e602 | | Load 0x3,0x2
06e8 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
06e9 4801 |H | Short_Literal 0x1
06ea e602 | | Load 0x3,0x2
06eb 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
06ec 4800 |H | Short_Literal 0x0
06ed e602 | | Load 0x3,0x2
06ee 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
06ef 00d8 | | Load_Top At_Offset_0
06f0 4401 |D | Exit_Subprogram With_Result,0x1
06f1 0000 0000 | | .BLANK 0000[0x7]
06f8 ; --------------------------------------------------------------------------------------
06f8 ; SUBPROGRAM
06f8 ; --------------------------------------------------------------------------------------
06f8 06fe | | .CONST 0x06fe ; Address of begin
06f9 0704 | | .CONST 0x0704 ; Address of exception handler
06fa 0002 | | .CONST 0x0002 ; Number of locals
06fb INIT_06f8:
06fb e007 | | Load 0x0,0x7
06fc 1b14 | | Execute Package,Field_Read,Field_Number 0x14
06fd 0322 | " | Declare_Variable Record
06fe BODY_06f8:
06fe e5ff | | Load 0x2,-0x1
06ff e007 | | Load 0x0,0x7
0700 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0701 e602 | | Load 0x3,0x2
0702 017d | } | Execute Record,Structure_Write
0703 4501 |E | Exit_Subprogram 0x1
0704 TRAP_06f8:
0704 0007 | | Action Break_Optional
0705 e5fe | | Load 0x2,-0x2
0706 0092 0751 | Q| Action Push_String_Extended,0x751 ; "Date ("
0708 e5ff | | Load 0x2,-0x1
0709 01cc | | Execute Vector,Catenate
070a 0092 0752 | R| Action Push_String_Extended,0x752 ; ") doesn't represent a legal date."
070c 01cc | | Execute Vector,Catenate
070d e22b | + | Load 0x1,0x2b
070e 180d | | Execute Package,Field_Execute,Field_Number 0xd
070f 4501 |E | Exit_Subprogram 0x1
0710 ; --------------------------------------------------------------------------------------
0710 ; STRING TABLE
0710 ; --------------------------------------------------------------------------------------
0710 0088 | | .STRTAB 0x0088->0x0754 ; "Accept_Tokens"
; "Accept_Tokens"
0711 0093 | | .STRTAB 0x0093->0x075a ; "This machine has donated tokens today; it may not also accept them"
0712 00d3 | | .STRTAB 0x00d3->0x077b ; "The sum of currently authorized tokens and Donations ("
0713 0107 | | .STRTAB 0x0107->0x0796 ; ") is NOT equal to Resulting_Count parameter ("
0714 0132 | 2 | .STRTAB 0x0132->0x07ad ; "); these must be equal in order to proceed."
0715 015b | [ | .STRTAB 0x015b->0x07c2 ; "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 ("
0716 0243 | C | .STRTAB 0x0243->0x0837 ; "), a transcription error of the Machine ID of this machine ("
0717 027d | } | .STRTAB 0x027d->0x0855 ; "), a delay in posting the request (code only valid for one day), "
0718 02bc | | .STRTAB 0x02bc->0x0876 ; "or some other combination of parameter problems. "
0719 02ec | | .STRTAB 0x02ec->0x088f ; "Contact your Rational representative for further assistance."
071a 0326 | & | .STRTAB 0x0326->0x08ad ; ">>Product Name<<"
071b 0334 | 4 | .STRTAB 0x0334->0x08b5 ; " tokens set to "
071c 0341 | A | .STRTAB 0x0341->0x08bc ; "Donate_Tokens"
071d 034c | L | .STRTAB 0x034c->0x08c3 ; "Remote_Machine_ID specified is the Machine_ID for this machine."
; "Remote_Machine_ID specified is the Machine_ID for this machine."
; "Remote_Machine_ID specified is the Machine_ID for this machine."
071e 0389 | | .STRTAB 0x0389->0x08e2 ; "This machine has accepted tokens today; it may not also give them up"
071f 03cb | | .STRTAB 0x03cb->0x0904 ; "Set_Site"
; "Set_Site"
0720 03d1 | | .STRTAB 0x03d1->0x0908 ; "Code ("
0721 03d5 | | .STRTAB 0x03d5->0x090b ; ") does not correspond to Site ("
0722 03f2 | | .STRTAB 0x03f2->0x091b ; ")."
; ")."
; ")."
; ")."
; ")."
; ")."
0723 03f2 | | .STRTAB 0x03f2->0x091c ; "Site set to "
0724 03fc | | .STRTAB 0x03fc->0x0922 ; "Assign_Tokens"
0725 0407 | | .STRTAB 0x0407->0x0928 ; "Must be run from a Rational site."
; "Must be run from a Rational site."
0726 0426 | & | .STRTAB 0x0426->0x0939 ; "Assign_Site"
0727 042f | / | .STRTAB 0x042f->0x093e ; "Run the following on the remote machine:"
; "Run the following on the remote machine:"
0728 0455 | U | .STRTAB 0x0455->0x0952 ; "Site"
0729 0457 | W | .STRTAB 0x0457->0x0954 ; "Code"
; "Code"
072a 0459 | Y | .STRTAB 0x0459->0x0956 ; "Training"
072b 045f | _ | .STRTAB 0x045f->0x095a ; "Training_Authorization"
072c 0473 | s | .STRTAB 0x0473->0x0965 ; "Product and Token authorization checking has been reinstated."
072d 04ae | | .STRTAB 0x04ae->0x0984 ; "Authorization_Checking_Reinstated"
072e 04cd | | .STRTAB 0x04cd->0x0994 ; "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."
072f 0598 | | .STRTAB 0x0598->0x09fb ; "Authorization_Checking_Suspended"
0730 05b6 | | .STRTAB 0x05b6->0x0a0b ; "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."
0731 065d | ] | .STRTAB 0x065d->0x0a5f ; "Authorization_Code_Error"
0732 0673 | s | .STRTAB 0x0673->0x0a6b ; "/"
0733 0672 | r | .STRTAB 0x0672->0x0a6c ; "="
0734 0671 | q | .STRTAB 0x0671->0x0a6c ; "|"
0735 0670 | p | .STRTAB 0x0670->0x0a6d ; "Product"
0736 0675 | u | .STRTAB 0x0675->0x0a70 ; "Donation"
; "Donation"
0737 067b | { | .STRTAB 0x067b->0x0a74 ; "Resulting_Count"
; "Resulting_Count"
0738 0688 | | .STRTAB 0x0688->0x0a7c ; "Product name not specified."
0739 06a1 | | .STRTAB 0x06a1->0x0a89 ; "Product name contains an illegal character ("
073a 06cb | | .STRTAB 0x06cb->0x0a9f ; "Product name includes leading or trailing blanks."
073b 06fa | | .STRTAB 0x06fa->0x0ab8 ; "Site name not specified."
073c 0710 | | .STRTAB 0x0710->0x0ac4 ; "Site name contains an illegal character ("
073d 0737 | 7 | .STRTAB 0x0737->0x0ad8 ; "Site name includes leading or trailing blanks."
073e 0763 | c | .STRTAB 0x0763->0x0aef ; "Date contains an illegal character ("
073f 0785 | | .STRTAB 0x0785->0x0b01 ; "The number of tokens ("
0740 0799 | | .STRTAB 0x0799->0x0b0c ; ") for "
; ") for "
0741 079d | | .STRTAB 0x079d->0x0b0f ; " exceeds the target authorization ("
0742 07be | | .STRTAB 0x07be->0x0b21 ; "There are currently no tokens for "
0743 07de | | .STRTAB 0x07de->0x0b32 ; ", so they can't be donated."
0744 07f7 | | .STRTAB 0x07f7->0x0b3f ; "The requested donation ("
0745 080d | | .STRTAB 0x080d->0x0b4b ; "exceeds the current limit ("
0746 0826 | & | .STRTAB 0x0826->0x0b59 ; "Donation of "
; "Donation of "
0747 0830 | 0 | .STRTAB 0x0830->0x0b5f ; " tokens for "
; " tokens for "
0748 083a | : | .STRTAB 0x083a->0x0b65 ; " would transfer tokens currently in use."
0749 0860 | ` | .STRTAB 0x0860->0x0b79 ; " has resulted in "
074a 086f | o | .STRTAB 0x086f->0x0b81 ; " tokens."
074b 0875 | u | .STRTAB 0x0875->0x0b85 ; "The legal range of "
074c 0886 | | .STRTAB 0x0886->0x0b8f ; " for "
074d 0889 | | .STRTAB 0x0889->0x0b91 ; " is "
074e 088b | | .STRTAB 0x088b->0x0b93 ; ".."
074f 088b | | .STRTAB 0x088b->0x0b94 ; ", but the value specified ("
0750 08a4 | | .STRTAB 0x08a4->0x0ba2 ; ") is outside that range"
0751 08b9 | | .STRTAB 0x08b9->0x0bad ; "Date ("
0752 08bd | | .STRTAB 0x08bd->0x0bb0 ; ") doesn't represent a legal date."
0753 08dc | | .STREND 0x08dc->0x0bc1
0754 4163 6365 |Acce| .STRTAB_STRINGS
0bc1 0000 0000 | | .BLANK 0000[0x7]
0bc8 ; --------------------------------------------------------------------------------------
0bc8 ; Debug Table
0bc8 ; --------------------------------------------------------------------------------------
0bc8 0004 000c | | .DEBUG4 0x0004,0x000c,0x45f2,0x0000,0x0001,0x0000
0bce 0000 0000 | | .BLANK 0000[0x32]