|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 6144 (0x1800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0258fa
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0a28 | ( | .CONST 0x0a28 ; 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 00f4 | | .CONST 0x00f4 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 003e | > | .CONST 0x003e ; 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 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
0026 c218 | | Store 0x1,0x18
0027 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated
0029 c219 | | Store 0x1,0x19
002a 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated
002c c21a | | Store 0x1,0x1a
002d 029a 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call,Visible,Unelaborated
002f c21b | | Store 0x1,0x1b
0030 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated
0032 c21c | | Store 0x1,0x1c
0033 e001 | | Load 0x0,0x1
0034 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address
0035 c21d | | Store 0x1,0x1d
0036 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated
0038 c21e | | Store 0x1,0x1e
0039 029a 031b | | Declare_Subprogram INIT_0318,For_Outer_Call,Visible,Unelaborated
003b c223 | # | Store 0x1,0x23
003c 029a 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call,Visible,Unelaborated
003e c21f | | Store 0x1,0x1f
003f 029a 03cb | | Declare_Subprogram INIT_03c8,For_Outer_Call,Visible,Unelaborated
0041 c224 | $ | Store 0x1,0x24
0042 029a 03f3 | | Declare_Subprogram INIT_03f0,For_Outer_Call,Visible,Unelaborated
0044 c212 | | Store 0x1,0x12
0045 029a 03fb | | Declare_Subprogram INIT_03f8,For_Outer_Call,Visible,Unelaborated
0047 c220 | | Store 0x1,0x20
0048 029a 0403 | | Declare_Subprogram INIT_0400,For_Outer_Call,Visible,Unelaborated
004a c214 | | Store 0x1,0x14
004b 029a 040b | | Declare_Subprogram INIT_0408,For_Outer_Call,Visible,Unelaborated
004d c221 | ! | Store 0x1,0x21
004e 029a 0413 | | Declare_Subprogram INIT_0410,For_Outer_Call,Visible,Unelaborated
0050 c222 | " | Store 0x1,0x22
0051 029a 041b | | Declare_Subprogram INIT_0418,For_Outer_Call,Visible,Unelaborated
0053 c225 | % | Store 0x1,0x25
0054 00bf | | Action Accept_Activation
0055 4800 |H | Short_Literal 0x0
0056 4840 |H@ | Short_Literal 0x40
0057 00e2 | | Load_Encached Integer_Cache
0058 03f8 | | Declare_Type Discrete,Constrained
0059 e002 | | Load 0x0,0x2
005a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
005b 4800 |H | Short_Literal 0x0
005c e003 | | Load 0x0,0x3
005d 02a0 | | Declare_Subprogram Null_Subprogram
005e 038e | | Declare_Type Package,Defined
005f 0387 | | Declare_Variable Package
0060 4800 |H | Short_Literal 0x0
0061 e004 | | Load 0x0,0x4
0062 02a0 | | Declare_Subprogram Null_Subprogram
0063 038e | | Declare_Type Package,Defined
0064 0387 | | Declare_Variable Package
0065 4800 |H | Short_Literal 0x0
0066 e005 | | Load 0x0,0x5
0067 02a0 | | Declare_Subprogram Null_Subprogram
0068 038e | | Declare_Type Package,Defined
0069 0387 | | Declare_Variable Package
006a e006 | | Load 0x0,0x6
006b 1916 | | Execute Package,Field_Reference,Field_Number 0x16
006c 0007 | | Action Break_Optional
006d e006 | | Load 0x0,0x6
006e 1917 | | Execute Package,Field_Reference,Field_Number 0x17
006f 0007 | | Action Break_Optional
0070 e007 | | Load 0x0,0x7
0071 191b | | Execute Package,Field_Reference,Field_Number 0x1b
0072 0007 | | Action Break_Optional
0073 00ea | | Load_Encached Null_String_Cache
0074 4800 |H | Short_Literal 0x0
0075 4800 |H | Short_Literal 0x0
0076 4800 |H | Short_Literal 0x0
0077 e007 | | Load 0x0,0x7
0078 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0079 822d | - | Call 0x1,0x2d
007a e008 | | Load 0x0,0x8
007b 1915 | | Execute Package,Field_Reference,Field_Number 0x15
007c 0007 | | Action Break_Optional
007d 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
007e 029b 043b | ;| Declare_Subprogram INIT_0438,For_Outer_Call,Unelaborated
0080 029b 044b | K| Declare_Subprogram INIT_0448,For_Outer_Call,Unelaborated
0082 029b 0453 | S| Declare_Subprogram INIT_0450,For_Outer_Call,Unelaborated
0084 029b 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call,Unelaborated
0086 029b 049b | | Declare_Subprogram INIT_0498,For_Outer_Call,Unelaborated
0088 029b 04d3 | | Declare_Subprogram INIT_04d0,For_Outer_Call,Unelaborated
008a 029b 050b | | Declare_Subprogram INIT_0508,For_Outer_Call,Unelaborated
008c 029b 053b | ;| Declare_Subprogram INIT_0538,For_Outer_Call,Unelaborated
008e 029b 0573 | s| Declare_Subprogram INIT_0570,For_Outer_Call,Unelaborated
0090 029b 05f3 | | Declare_Subprogram INIT_05f0,For_Outer_Call,Unelaborated
0092 029b 0603 | | Declare_Subprogram INIT_0600,For_Outer_Call,Unelaborated
0094 029b 0613 | | Declare_Subprogram INIT_0610,For_Outer_Call,Unelaborated
0096 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0097 00c7 | | Action Elaborate_Subprogram
0098 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0099 00c7 | | Action Elaborate_Subprogram
009a 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
009b 00c7 | | Action Elaborate_Subprogram
009c 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
009d 00c7 | | Action Elaborate_Subprogram
009e 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
009f 00c7 | | Action Elaborate_Subprogram
00a0 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00a1 00c7 | | Action Elaborate_Subprogram
00a2 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
00a3 00c7 | | Action Elaborate_Subprogram
00a4 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00a5 00c7 | | Action Elaborate_Subprogram
00a6 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
00a7 00c7 | | Action Elaborate_Subprogram
00a8 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00a9 00c7 | | Action Elaborate_Subprogram
00aa 1d14 | | Execute_Immediate Reference_Lex_1,0x14
00ab 00c7 | | Action Elaborate_Subprogram
00ac 1d12 | | Execute_Immediate Reference_Lex_1,0x12
00ad 00c7 | | Action Elaborate_Subprogram
00ae 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
00af 00c7 | | Action Elaborate_Subprogram
00b0 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00b1 00c7 | | Action Elaborate_Subprogram
00b2 e009 | | Load 0x0,0x9
00b3 e002 | | Load 0x0,0x2
00b4 e00a | | Load 0x0,0xa
00b5 e00b | | Load 0x0,0xb
00b6 e00c | | Load 0x0,0xc
00b7 e00d | | Load 0x0,0xd
00b8 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
00b9 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
00ba 4808 |H | Short_Literal 0x8
00bb e228 | ( | Load 0x1,0x28
00bc 020e | | Execute Module,Augment_Imports
00bd e228 | ( | Load 0x1,0x28
00be 020f | | Execute Module,Activate
00bf e00e | | Load 0x0,0xe
00c0 e00f | | Load 0x0,0xf
00c1 e010 | | Load 0x0,0x10
00c2 e011 | | Load 0x0,0x11
00c3 e012 | | Load 0x0,0x12
00c4 e013 | | Load 0x0,0x13
00c5 e007 | | Load 0x0,0x7
00c6 e006 | | Load 0x0,0x6
00c7 e014 | | Load 0x0,0x14
00c8 e015 | | Load 0x0,0x15
00c9 00b6 | | Action Make_Scope
00ca 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
00cb 480c |H | Short_Literal 0xc
00cc e22a | * | Load 0x1,0x2a
00cd 020e | | Execute Module,Augment_Imports
00ce e22a | * | Load 0x1,0x2a
00cf 020f | | Execute Module,Activate
00d0 e016 | | Load 0x0,0x16
00d1 4801 |H | Short_Literal 0x1
00d2 e229 | ) | Load 0x1,0x29
00d3 020e | | Execute Module,Augment_Imports
00d4 e229 | ) | Load 0x1,0x29
00d5 020f | | Execute Module,Activate
00d6 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34
00d7 00c7 | | Action Elaborate_Subprogram
00d8 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33
00d9 00c7 | | Action Elaborate_Subprogram
00da 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35
00db 00c7 | | Action Elaborate_Subprogram
00dc 029d 0623 | #| Declare_Subprogram INIT_0620,For_Outer_Call
00de 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39
00df 00c7 | | Action Elaborate_Subprogram
00e0 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36
00e1 00c7 | | Action Elaborate_Subprogram
00e2 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38
00e3 00c7 | | Action Elaborate_Subprogram
00e4 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37
00e5 00c7 | | Action Elaborate_Subprogram
00e6 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a
00e7 00c7 | | Action Elaborate_Subprogram
00e8 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
00e9 00c7 | | Action Elaborate_Subprogram
00ea 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b
00eb 00c7 | | Action Elaborate_Subprogram
00ec 1d3d | = | Execute_Immediate Reference_Lex_1,0x3d
00ed 00c7 | | Action Elaborate_Subprogram
00ee 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c
00ef 00c7 | | Action Elaborate_Subprogram
00f0 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
00f1 00c7 | | Action Elaborate_Subprogram
00f2 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
00f3 00c7 | | Action Elaborate_Subprogram
00f4 BODY_0008:
00f4 00bc | | Action Signal_Activated
00f5 00bb | | Action Signal_Completion
00f6 0000 0000 | | .XXX[0x2]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 0104 | | .CONST 0x0104 ; Address of begin
00f9 01a3 | | .CONST 0x01a3 ; Address of exception handler
00fa 0005 | | .CONST 0x0005 ; Number of locals
00fb INIT_00f8:
00fb 0092 0690 | | Action Push_String_Extended,0x690 ; "Accept_Tokens"
00fd e227 | ' | Load 0x1,0x27
00fe 02c7 | | Declare_Variable Any
00ff e002 | | Load 0x0,0x2
0100 180e | | Execute Package,Field_Execute,Field_Number 0xe
0101 a403 | | Store_Unchecked 0x2,0x3
0102 00e3 | | Load_Encached Natural_Cache
0103 00e3 | | Load_Encached Natural_Cache
0104 BODY_00f8:
0104 e403 | | Load 0x2,0x3
0105 e5fb | | Load 0x2,-0x5
0106 e5fc | | Load 0x2,-0x4
0107 e5fd | | Load 0x2,-0x3
0108 e228 | ( | Load 0x1,0x28
0109 181b | | Execute Package,Field_Execute,Field_Number 0x1b
010a e5fe | | Load 0x2,-0x2
010b e228 | ( | Load 0x1,0x28
010c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
010d e5ff | | Load 0x2,-0x1
010e e402 | | Load 0x2,0x2
010f e228 | ( | Load 0x1,0x28
0110 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0111 c403 | | Store 0x2,0x3
0112 e403 | | Load 0x2,0x3
0113 e228 | ( | Load 0x1,0x28
0114 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0115 e22a | * | Load 0x1,0x2a
0116 180e | | Execute Package,Field_Execute,Field_Number 0xe
0117 8233 | 3 | Call 0x1,0x33
0118 6805 |h | Jump_Zero 0x11e
0119 e403 | | Load 0x2,0x3
011a 0092 0691 | | Action Push_String_Extended,0x691 ; "This machine has donated tokens today; it may not also accept them"
011c e228 | ( | Load 0x1,0x28
011d 180d | | Execute Package,Field_Execute,Field_Number 0xd
011e e403 | | Load 0x2,0x3
011f e5ff | | Load 0x2,-0x1
0120 8236 | 6 | Call 0x1,0x36
0121 e403 | | Load 0x2,0x3
0122 e5fd | | Load 0x2,-0x3
0123 e5fe | | Load 0x2,-0x2
0124 e5ff | | Load 0x2,-0x1
0125 8239 | 9 | Call 0x1,0x39
0126 e5ff | | Load 0x2,-0x1
0127 823b | ; | Call 0x1,0x3b
0128 a405 | | Store_Unchecked 0x2,0x5
0129 00d8 | | Load_Top At_Offset_0
012a e5fe | | Load 0x2,-0x2
012b 0273 | s | Execute Discrete,Plus
012c c404 | | Store 0x2,0x4
012d e404 | | Load 0x2,0x4
012e e5fd | | Load 0x2,-0x3
012f 027e | ~ | Execute Discrete,Not_Equal
0130 6827 |h' | Jump_Zero 0x158
0131 e403 | | Load 0x2,0x3
0132 483d |H= | Short_Literal 0x3d
0133 482b |H+ | Short_Literal 0x2b
0134 0092 0692 | | Action Push_String_Extended,0x692 ; "The sum of currently authorized tokens and Donations ("
0136 4820 |H | Short_Literal 0x20
0137 4800 |H | Short_Literal 0x0
0138 480a |H | Short_Literal 0xa
0139 e405 | | Load 0x2,0x5
013a 822b | + | Call 0x1,0x2b
013b 01cc | | Execute Vector,Catenate
013c 01cb | | Execute Vector,Append
013d 4820 |H | Short_Literal 0x20
013e 4800 |H | Short_Literal 0x0
013f 480a |H | Short_Literal 0xa
0140 e5fe | | Load 0x2,-0x2
0141 822b | + | Call 0x1,0x2b
0142 01cc | | Execute Vector,Catenate
0143 01cb | | Execute Vector,Append
0144 4820 |H | Short_Literal 0x20
0145 4800 |H | Short_Literal 0x0
0146 480a |H | Short_Literal 0xa
0147 e404 | | Load 0x2,0x4
0148 822b | + | Call 0x1,0x2b
0149 01cc | | Execute Vector,Catenate
014a 0092 0693 | | Action Push_String_Extended,0x693 ; ") is NOT equal to Resulting_Count parameter ("
014c 01cc | | Execute Vector,Catenate
014d 4820 |H | Short_Literal 0x20
014e 4800 |H | Short_Literal 0x0
014f 480a |H | Short_Literal 0xa
0150 e5fd | | Load 0x2,-0x3
0151 822b | + | Call 0x1,0x2b
0152 01cc | | Execute Vector,Catenate
0153 0092 0694 | | Action Push_String_Extended,0x694 ; "); these must be equal in order to proceed."
0155 01cc | | Execute Vector,Catenate
0156 e228 | ( | Load 0x1,0x28
0157 180d | | Execute Package,Field_Execute,Field_Number 0xd
0158 e5fc | | Load 0x2,-0x4
0159 e5fd | | Load 0x2,-0x3
015a e5fe | | Load 0x2,-0x2
015b e5ff | | Load 0x2,-0x1
015c 8232 | 2 | Call 0x1,0x32
015d 7019 |p | Jump_Nonzero 0x177
015e e403 | | Load 0x2,0x3
015f 0092 0695 | | Action Push_String_Extended,0x695 ; "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 ("
0161 821b | | Call 0x1,0x1b
0162 01cc | | Execute Vector,Catenate
0163 0092 0696 | | Action Push_String_Extended,0x696 ; "), a transcription error of the Machine ID of this machine ("
0165 01cc | | Execute Vector,Catenate
0166 4820 |H | Short_Literal 0x20
0167 4800 |H | Short_Literal 0x0
0168 480a |H | Short_Literal 0xa
0169 821c | | Call 0x1,0x1c
016a 822c | , | Call 0x1,0x2c
016b 01cc | | Execute Vector,Catenate
016c 0092 0697 | | Action Push_String_Extended,0x697 ; "), a delay in posting the request (code only valid for one day), "
016e 01cc | | Execute Vector,Catenate
016f 0092 0698 | | Action Push_String_Extended,0x698 ; "or some other combination of parameter problems. "
0171 01cc | | Execute Vector,Catenate
0172 0092 0699 | | Action Push_String_Extended,0x699 ; "Contact your Rational representative for further assistance."
0174 01cc | | Execute Vector,Catenate
0175 e228 | ( | Load 0x1,0x28
0176 180d | | Execute Package,Field_Execute,Field_Number 0xd
0177 0092 069a | | Action Push_String_Extended,0x69a ; ">>Product Name<<"
0179 e008 | | Load 0x0,0x8
017a 180e | | Execute Package,Field_Execute,Field_Number 0xe
017b 7009 |p | Jump_Nonzero 0x185
017c 00ea | | Load_Encached Null_String_Cache
017d 00ea | | Load_Encached Null_String_Cache
017e 821c | | Call 0x1,0x1c
017f e5ff | | Load 0x2,-0x1
0180 e008 | | Load 0x0,0x8
0181 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0182 e5ff | | Load 0x2,-0x1
0183 e008 | | Load 0x0,0x8
0184 180d | | Execute Package,Field_Execute,Field_Number 0xd
0185 e5fd | | Load 0x2,-0x3
0186 e5ff | | Load 0x2,-0x1
0187 e015 | | Load 0x0,0x15
0188 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0189 e5ff | | Load 0x2,-0x1
018a 823c | < | Call 0x1,0x3c
018b 7004 |p | Jump_Nonzero 0x190
018c 480c |H | Short_Literal 0xc
018d e5ff | | Load 0x2,-0x1
018e e015 | | Load 0x0,0x15
018f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0190 e403 | | Load 0x2,0x3
0191 e5ff | | Load 0x2,-0x1
0192 0092 069b | | Action Push_String_Extended,0x69b ; " tokens set to "
0194 01cc | | Execute Vector,Catenate
0195 4820 |H | Short_Literal 0x20
0196 4800 |H | Short_Literal 0x0
0197 480a |H | Short_Literal 0xa
0198 e5fd | | Load 0x2,-0x3
0199 822b | + | Call 0x1,0x2b
019a 01cc | | Execute Vector,Catenate
019b e228 | ( | Load 0x1,0x28
019c 180f | | Execute Package,Field_Execute,Field_Number 0xf
019d e403 | | Load 0x2,0x3
019e 00ea | | Load_Encached Null_String_Cache
019f e402 | | Load 0x2,0x2
01a0 e228 | ( | Load 0x1,0x28
01a1 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01a2 4506 |E | Exit_Suprogram New_Top_Offset 0x6
01a3 TRAP_00f8:
01a3 e002 | | Load 0x0,0x2
01a4 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
01a5 010f | | Execute Exception,Equal
01a6 6806 |h | Jump_Zero 0x1ad
01a7 e403 | | Load 0x2,0x3
01a8 e402 | | Load 0x2,0x2
01a9 e228 | ( | Load 0x1,0x28
01aa 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01ab 00d8 | | Load_Top At_Offset_0
01ac 0101 | | Execute Exception,Reraise
01ad e00a | | Load 0x0,0xa
01ae 010f | | Execute Exception,Equal
01af 6805 |h | Jump_Zero 0x1b5
01b0 e403 | | Load 0x2,0x3
01b1 e402 | | Load 0x2,0x2
01b2 e228 | ( | Load 0x1,0x28
01b3 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01b4 4506 |E | Exit_Suprogram New_Top_Offset 0x6
01b5 e403 | | Load 0x2,0x3
01b6 4800 |H | Short_Literal 0x0
01b7 4801 |H | Short_Literal 0x1
01b8 e017 | | Load 0x0,0x17
01b9 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01ba e402 | | Load 0x2,0x2
01bb e228 | ( | Load 0x1,0x28
01bc 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01bd 4506 |E | Exit_Suprogram New_Top_Offset 0x6
01be 0000 0000 | | .XXX[0x2]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01ca | | .CONST 0x01ca ; Address of begin
01c1 0212 | | .CONST 0x0212 ; Address of exception handler
01c2 0003 | | .CONST 0x0003 ; Number of locals
01c3 INIT_01c0:
01c3 0092 069c | | Action Push_String_Extended,0x69c ; "Donate_Tokens"
01c5 e227 | ' | Load 0x1,0x27
01c6 02c7 | | Declare_Variable Any
01c7 e002 | | Load 0x0,0x2
01c8 180e | | Execute Package,Field_Execute,Field_Number 0xe
01c9 a403 | | Store_Unchecked 0x2,0x3
01ca BODY_01c0:
01ca 00d8 | | Load_Top At_Offset_0
01cb e5fa | | Load 0x2,-0x6
01cc e5fb | | Load 0x2,-0x5
01cd e5fc | | Load 0x2,-0x4
01ce e228 | ( | Load 0x1,0x28
01cf 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01d0 e5fd | | Load 0x2,-0x3
01d1 e228 | ( | Load 0x1,0x28
01d2 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01d3 e5fe | | Load 0x2,-0x2
01d4 e228 | ( | Load 0x1,0x28
01d5 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01d6 e5ff | | Load 0x2,-0x1
01d7 e402 | | Load 0x2,0x2
01d8 e228 | ( | Load 0x1,0x28
01d9 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01da c403 | | Store 0x2,0x3
01db 00d8 | | Load_Top At_Offset_0
01dc e228 | ( | Load 0x1,0x28
01dd 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01de 00d8 | | Load_Top At_Offset_0
01df e5fb | | Load 0x2,-0x5
01e0 8237 | 7 | Call 0x1,0x37
01e1 00d8 | | Load_Top At_Offset_0
01e2 e5ff | | Load 0x2,-0x1
01e3 8236 | 6 | Call 0x1,0x36
01e4 e5fc | | Load 0x2,-0x4
01e5 821c | | Call 0x1,0x1c
01e6 027f | | Execute Discrete,Equal
01e7 6805 |h | Jump_Zero 0x1ed
01e8 00d8 | | Load_Top At_Offset_0
01e9 0092 069d | | Action Push_String_Extended,0x69d ; "Remote_Machine_ID specified is the Machine_ID for this machine."
01eb e228 | ( | Load 0x1,0x28
01ec 180d | | Execute Package,Field_Execute,Field_Number 0xd
01ed e22a | * | Load 0x1,0x2a
01ee 180d | | Execute Package,Field_Execute,Field_Number 0xd
01ef 8233 | 3 | Call 0x1,0x33
01f0 6805 |h | Jump_Zero 0x1f6
01f1 00d8 | | Load_Top At_Offset_0
01f2 0092 069e | | Action Push_String_Extended,0x69e ; "This machine has accepted tokens today; it may not also give them up"
01f4 e228 | ( | Load 0x1,0x28
01f5 180d | | Execute Package,Field_Execute,Field_Number 0xd
01f6 00d8 | | Load_Top At_Offset_0
01f7 e5fd | | Load 0x2,-0x3
01f8 e5fe | | Load 0x2,-0x2
01f9 e5ff | | Load 0x2,-0x1
01fa 8239 | 9 | Call 0x1,0x39
01fb 00d8 | | Load_Top At_Offset_0
01fc e5fe | | Load 0x2,-0x2
01fd e5ff | | Load 0x2,-0x1
01fe 823a | : | Call 0x1,0x3a
01ff e010 | | Load 0x0,0x10
0200 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0201 e22a | * | Load 0x1,0x2a
0202 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0203 e22a | * | Load 0x1,0x2a
0204 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0205 e22f | / | Load 0x1,0x2f
0206 e5fb | | Load 0x2,-0x5
0207 e5fc | | Load 0x2,-0x4
0208 e5fd | | Load 0x2,-0x3
0209 e5fe | | Load 0x2,-0x2
020a e5ff | | Load 0x2,-0x1
020b 8235 | 5 | Call 0x1,0x35
020c 00d8 | | Load_Top At_Offset_0
020d 00ea | | Load_Encached Null_String_Cache
020e e402 | | Load 0x2,0x2
020f e228 | ( | Load 0x1,0x28
0210 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0211 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0212 TRAP_01c0:
0212 e002 | | Load 0x0,0x2
0213 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
0214 010f | | Execute Exception,Equal
0215 6806 |h | Jump_Zero 0x21c
0216 e403 | | Load 0x2,0x3
0217 e402 | | Load 0x2,0x2
0218 e228 | ( | Load 0x1,0x28
0219 1819 | | Execute Package,Field_Execute,Field_Number 0x19
021a 00d8 | | Load_Top At_Offset_0
021b 0101 | | Execute Exception,Reraise
021c e00a | | Load 0x0,0xa
021d 010f | | Execute Exception,Equal
021e 6805 |h | Jump_Zero 0x224
021f e403 | | Load 0x2,0x3
0220 e402 | | Load 0x2,0x2
0221 e228 | ( | Load 0x1,0x28
0222 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0223 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0224 e403 | | Load 0x2,0x3
0225 4800 |H | Short_Literal 0x0
0226 4801 |H | Short_Literal 0x1
0227 e017 | | Load 0x0,0x17
0228 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0229 e402 | | Load 0x2,0x2
022a e228 | ( | Load 0x1,0x28
022b 181a | | Execute Package,Field_Execute,Field_Number 0x1a
022c 4507 |E | Exit_Suprogram New_Top_Offset 0x7
022d 0000 0000 | | .XXX[0x3]
022f 0000 | |
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 023a | : | .CONST 0x023a ; Address of begin
0231 0271 | q | .CONST 0x0271 ; Address of exception handler
0232 0003 | | .CONST 0x0003 ; Number of locals
0233 INIT_0230:
0233 0092 069f | | Action Push_String_Extended,0x69f ; "Set_Site"
0235 e227 | ' | Load 0x1,0x27
0236 02c7 | | Declare_Variable Any
0237 e002 | | Load 0x0,0x2
0238 180e | | Execute Package,Field_Execute,Field_Number 0xe
0239 a403 | | Store_Unchecked 0x2,0x3
023a BODY_0230:
023a 00d8 | | Load_Top At_Offset_0
023b e5fd | | Load 0x2,-0x3
023c e5fe | | Load 0x2,-0x2
023d e5ff | | Load 0x2,-0x1
023e e402 | | Load 0x2,0x2
023f e228 | ( | Load 0x1,0x28
0240 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0241 c403 | | Store 0x2,0x3
0242 00d8 | | Load_Top At_Offset_0
0243 e228 | ( | Load 0x1,0x28
0244 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0245 e5fe | | Load 0x2,-0x2
0246 e22e | . | Load 0x1,0x2e
0247 821c | | Call 0x1,0x1c
0248 e5ff | | Load 0x2,-0x1
0249 8231 | 1 | Call 0x1,0x31
024a 01de | | Execute Vector,Not_Equal
024b 6814 |h | Jump_Zero 0x260
024c 00d8 | | Load_Top At_Offset_0
024d 0092 06a0 | | Action Push_String_Extended,0x6a0 ; "Code ("
024f e5fe | | Load 0x2,-0x2
0250 e228 | ( | Load 0x1,0x28
0251 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0252 01cc | | Execute Vector,Catenate
0253 0092 06a1 | | Action Push_String_Extended,0x6a1 ; ") does not correspond to Site ("
0255 01cc | | Execute Vector,Catenate
0256 e5ff | | Load 0x2,-0x1
0257 e228 | ( | Load 0x1,0x28
0258 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0259 01cc | | Execute Vector,Catenate
025a 0092 06a2 | | Action Push_String_Extended,0x6a2 ; ")."
025c 01cc | | Execute Vector,Catenate
025d e228 | ( | Load 0x1,0x28
025e 180d | | Execute Package,Field_Execute,Field_Number 0xd
025f 780b |x | Jump 0x26b
0260 e5fe | | Load 0x2,-0x2
0261 e5ff | | Load 0x2,-0x1
0262 e22a | * | Load 0x1,0x2a
0263 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0264 00d8 | | Load_Top At_Offset_0
0265 0092 06a3 | | Action Push_String_Extended,0x6a3 ; "Site set to "
0267 e5ff | | Load 0x2,-0x1
0268 01cc | | Execute Vector,Catenate
0269 e228 | ( | Load 0x1,0x28
026a 180f | | Execute Package,Field_Execute,Field_Number 0xf
026b 00d8 | | Load_Top At_Offset_0
026c 00ea | | Load_Encached Null_String_Cache
026d e402 | | Load 0x2,0x2
026e e228 | ( | Load 0x1,0x28
026f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0270 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0271 TRAP_0230:
0271 e002 | | Load 0x0,0x2
0272 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
0273 010f | | Execute Exception,Equal
0274 6806 |h | Jump_Zero 0x27b
0275 e403 | | Load 0x2,0x3
0276 e402 | | Load 0x2,0x2
0277 e228 | ( | Load 0x1,0x28
0278 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0279 00d8 | | Load_Top At_Offset_0
027a 0101 | | Execute Exception,Reraise
027b e00a | | Load 0x0,0xa
027c 010f | | Execute Exception,Equal
027d 6805 |h | Jump_Zero 0x283
027e e403 | | Load 0x2,0x3
027f e402 | | Load 0x2,0x2
0280 e228 | ( | Load 0x1,0x28
0281 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0282 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0283 e403 | | Load 0x2,0x3
0284 4800 |H | Short_Literal 0x0
0285 4801 |H | Short_Literal 0x1
0286 e017 | | Load 0x0,0x17
0287 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0288 e402 | | Load 0x2,0x2
0289 e228 | ( | Load 0x1,0x28
028a 181a | | Execute Package,Field_Execute,Field_Number 0x1a
028b 4504 |E | Exit_Suprogram New_Top_Offset 0x4
028c 0000 0000 | | .BLANK 0000[0x4]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0293 | | .CONST 0x0293 ; Address of begin
0291 0004 | | .CONST 0x0004 ; Address of exception handler
0292 0001 | | .CONST 0x0001 ; Number of locals
0293 BODY_0290:
0293 INIT_0290:
0293 e22a | * | Load 0x1,0x2a
0294 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0295 00ca | | Action Exit_Nullary_Function
0296 0000 0000 | | .XXX[0x2]
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 e018 | | Load 0x0,0x18
029c 180e | | Execute Package,Field_Execute,Field_Number 0xe
029d 00ca | | Action Exit_Nullary_Function
029e 0000 0000 | | .XXX[0x2]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02aa | | .CONST 0x02aa ; Address of begin
02a1 02f7 | | .CONST 0x02f7 ; Address of exception handler
02a2 0003 | | .CONST 0x0003 ; Number of locals
02a3 INIT_02a0:
02a3 0092 06a4 | | Action Push_String_Extended,0x6a4 ; "Assign_Tokens"
02a5 e227 | ' | Load 0x1,0x27
02a6 02c7 | | Declare_Variable Any
02a7 e002 | | Load 0x0,0x2
02a8 180e | | Execute Package,Field_Execute,Field_Number 0xe
02a9 a403 | | Store_Unchecked 0x2,0x3
02aa BODY_02a0:
02aa 00d8 | | Load_Top At_Offset_0
02ab e5f9 | | Load 0x2,-0x7
02ac e5fa | | Load 0x2,-0x6
02ad e5fb | | Load 0x2,-0x5
02ae e5fc | | Load 0x2,-0x4
02af e228 | ( | Load 0x1,0x28
02b0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
02b1 e5fd | | Load 0x2,-0x3
02b2 e228 | ( | Load 0x1,0x28
02b3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02b4 e5fe | | Load 0x2,-0x2
02b5 e228 | ( | Load 0x1,0x28
02b6 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02b7 e5ff | | Load 0x2,-0x1
02b8 e402 | | Load 0x2,0x2
02b9 e228 | ( | Load 0x1,0x28
02ba 1817 | | Execute Package,Field_Execute,Field_Number 0x17
02bb c403 | | Store 0x2,0x3
02bc 00d8 | | Load_Top At_Offset_0
02bd e228 | ( | Load 0x1,0x28
02be 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02bf 00d8 | | Load_Top At_Offset_0
02c0 e5fb | | Load 0x2,-0x5
02c1 8237 | 7 | Call 0x1,0x37
02c2 00d8 | | Load_Top At_Offset_0
02c3 e5fa | | Load 0x2,-0x6
02c4 8238 | 8 | Call 0x1,0x38
02c5 00d8 | | Load_Top At_Offset_0
02c6 e5ff | | Load 0x2,-0x1
02c7 8236 | 6 | Call 0x1,0x36
02c8 e22a | * | Load 0x1,0x2a
02c9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02ca 7005 |p | Jump_Nonzero 0x2d0
02cb 00d8 | | Load_Top At_Offset_0
02cc 0092 06a5 | | Action Push_String_Extended,0x6a5 ; "Must be run from a Rational site."
02ce e228 | ( | Load 0x1,0x28
02cf 180d | | Execute Package,Field_Execute,Field_Number 0xd
02d0 e5fc | | Load 0x2,-0x4
02d1 821c | | Call 0x1,0x1c
02d2 027f | | Execute Discrete,Equal
02d3 6805 |h | Jump_Zero 0x2d9
02d4 00d8 | | Load_Top At_Offset_0
02d5 0092 069d | | Action Push_String_Extended,0x69d ; "Remote_Machine_ID specified is the Machine_ID for this machine."
02d7 e228 | ( | Load 0x1,0x28
02d8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02d9 00d8 | | Load_Top At_Offset_0
02da e5fd | | Load 0x2,-0x3
02db e5fe | | Load 0x2,-0x2
02dc e5ff | | Load 0x2,-0x1
02dd 8239 | 9 | Call 0x1,0x39
02de e5fa | | Load 0x2,-0x6
02df e22e | . | Load 0x1,0x2e
02e0 01df | | Execute Vector,Equal
02e1 6808 |h | Jump_Zero 0x2ea
02e2 e22f | / | Load 0x1,0x2f
02e3 e5fb | | Load 0x2,-0x5
02e4 e5fc | | Load 0x2,-0x4
02e5 e5fd | | Load 0x2,-0x3
02e6 e5fe | | Load 0x2,-0x2
02e7 e5ff | | Load 0x2,-0x1
02e8 8235 | 5 | Call 0x1,0x35
02e9 7807 |x | Jump 0x2f1
02ea e5fa | | Load 0x2,-0x6
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 8235 | 5 | Call 0x1,0x35
02f1 00d8 | | Load_Top At_Offset_0
02f2 00ea | | Load_Encached Null_String_Cache
02f3 e402 | | Load 0x2,0x2
02f4 e228 | ( | Load 0x1,0x28
02f5 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02f6 4508 |E | Exit_Suprogram New_Top_Offset 0x8
02f7 TRAP_02a0:
02f7 e002 | | Load 0x0,0x2
02f8 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
02f9 010f | | Execute Exception,Equal
02fa 6806 |h | Jump_Zero 0x301
02fb e403 | | Load 0x2,0x3
02fc e402 | | Load 0x2,0x2
02fd e228 | ( | Load 0x1,0x28
02fe 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02ff 00d8 | | Load_Top At_Offset_0
0300 0101 | | Execute Exception,Reraise
0301 e00a | | Load 0x0,0xa
0302 010f | | Execute Exception,Equal
0303 6805 |h | Jump_Zero 0x309
0304 e403 | | Load 0x2,0x3
0305 e402 | | Load 0x2,0x2
0306 e228 | ( | Load 0x1,0x28
0307 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0308 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0309 e403 | | Load 0x2,0x3
030a 4800 |H | Short_Literal 0x0
030b 4801 |H | Short_Literal 0x1
030c e017 | | Load 0x0,0x17
030d 1815 | | Execute Package,Field_Execute,Field_Number 0x15
030e e402 | | Load 0x2,0x2
030f e228 | ( | Load 0x1,0x28
0310 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0311 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0312 0000 0000 | | .BLANK 0000[0x6]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 032e | . | .CONST 0x032e ; Address of begin
0319 0364 | d | .CONST 0x0364 ; Address of exception handler
031a 0002 | | .CONST 0x0002 ; Number of locals
031b INIT_0318:
031b e227 | ' | Load 0x1,0x27
031c 02c7 | | Declare_Variable Any
031d e002 | | Load 0x0,0x2
031e 180e | | Execute Package,Field_Execute,Field_Number 0xe
031f e002 | | Load 0x0,0x2
0320 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0321 e002 | | Load 0x0,0x2
0322 180e | | Execute Package,Field_Execute,Field_Number 0xe
0323 e002 | | Load 0x0,0x2
0324 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0325 484d |HM | Short_Literal 0x4d
0326 e002 | | Load 0x0,0x2
0327 1b45 | E | Execute Package,Field_Read,Field_Number 0x45
0328 e002 | | Load 0x0,0x2
0329 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
032a 4800 |H | Short_Literal 0x0
032b e002 | | Load 0x0,0x2
032c 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
032d a402 | | Store_Unchecked 0x2,0x2
032e BODY_0318:
032e 00d8 | | Load_Top At_Offset_0
032f e228 | ( | Load 0x1,0x28
0330 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0331 00d8 | | Load_Top At_Offset_0
0332 e5fb | | Load 0x2,-0x5
0333 8237 | 7 | Call 0x1,0x37
0334 00d8 | | Load_Top At_Offset_0
0335 e5fa | | Load 0x2,-0x6
0336 8238 | 8 | Call 0x1,0x38
0337 00d8 | | Load_Top At_Offset_0
0338 e5ff | | Load 0x2,-0x1
0339 8236 | 6 | Call 0x1,0x36
033a e22a | * | Load 0x1,0x2a
033b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
033c 7005 |p | Jump_Nonzero 0x342
033d 00d8 | | Load_Top At_Offset_0
033e 0092 06a5 | | Action Push_String_Extended,0x6a5 ; "Must be run from a Rational site."
0340 e228 | ( | Load 0x1,0x28
0341 180d | | Execute Package,Field_Execute,Field_Number 0xd
0342 e5fc | | Load 0x2,-0x4
0343 821c | | Call 0x1,0x1c
0344 027f | | Execute Discrete,Equal
0345 6805 |h | Jump_Zero 0x34b
0346 00d8 | | Load_Top At_Offset_0
0347 0092 069d | | Action Push_String_Extended,0x69d ; "Remote_Machine_ID specified is the Machine_ID for this machine."
0349 e228 | ( | Load 0x1,0x28
034a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
034b 00d8 | | Load_Top At_Offset_0
034c e5fd | | Load 0x2,-0x3
034d e5fe | | Load 0x2,-0x2
034e e5ff | | Load 0x2,-0x1
034f 8239 | 9 | Call 0x1,0x39
0350 e5fa | | Load 0x2,-0x6
0351 e22e | . | Load 0x1,0x2e
0352 01df | | Execute Vector,Equal
0353 6808 |h | Jump_Zero 0x35c
0354 e22f | / | Load 0x1,0x2f
0355 e5fb | | Load 0x2,-0x5
0356 e5fc | | Load 0x2,-0x4
0357 e5fd | | Load 0x2,-0x3
0358 e5fe | | Load 0x2,-0x2
0359 e5ff | | Load 0x2,-0x1
035a 8225 | % | Call 0x1,0x25
035b 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
035c e5fa | | Load 0x2,-0x6
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 8225 | % | Call 0x1,0x25
0363 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
0364 TRAP_0318:
0364 e00a | | Load 0x0,0xa
0365 010f | | Execute Exception,Equal
0366 6803 |h | Jump_Zero 0x36a
0367 e002 | | Load 0x0,0x2
0368 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
0369 0257 | W | Execute Discrete,Raise
036a 0100 | | Execute Exception,Raise
036b 0000 0000 | | .BLANK 0000[0x5]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 037a | z | .CONST 0x037a ; Address of begin
0371 03a8 | | .CONST 0x03a8 ; Address of exception handler
0372 0003 | | .CONST 0x0003 ; Number of locals
0373 INIT_0370:
0373 0092 06a6 | | Action Push_String_Extended,0x6a6 ; "Assign_Site"
0375 e227 | ' | Load 0x1,0x27
0376 02c7 | | Declare_Variable Any
0377 e002 | | Load 0x0,0x2
0378 180e | | Execute Package,Field_Execute,Field_Number 0xe
0379 a403 | | Store_Unchecked 0x2,0x3
037a BODY_0370:
037a 00d8 | | Load_Top At_Offset_0
037b e5fd | | Load 0x2,-0x3
037c e5fe | | Load 0x2,-0x2
037d e228 | ( | Load 0x1,0x28
037e 181c | | Execute Package,Field_Execute,Field_Number 0x1c
037f e5ff | | Load 0x2,-0x1
0380 e402 | | Load 0x2,0x2
0381 e228 | ( | Load 0x1,0x28
0382 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0383 c403 | | Store 0x2,0x3
0384 00d8 | | Load_Top At_Offset_0
0385 e5ff | | Load 0x2,-0x1
0386 8237 | 7 | Call 0x1,0x37
0387 0092 06a7 | | Action Push_String_Extended,0x6a7 ; "Run the following on the remote machine:"
0389 e016 | | Load 0x0,0x16
038a 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
038b 0092 069f | | Action Push_String_Extended,0x69f ; "Set_Site"
038d e229 | ) | Load 0x1,0x29
038e 180d | | Execute Package,Field_Execute,Field_Number 0xd
038f e5ff | | Load 0x2,-0x1
0390 e228 | ( | Load 0x1,0x28
0391 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0392 0092 06a8 | | Action Push_String_Extended,0x6a8 ; "Site"
0394 e229 | ) | Load 0x1,0x29
0395 180e | | Execute Package,Field_Execute,Field_Number 0xe
0396 e22e | . | Load 0x1,0x2e
0397 e5fe | | Load 0x2,-0x2
0398 e5ff | | Load 0x2,-0x1
0399 8231 | 1 | Call 0x1,0x31
039a e228 | ( | Load 0x1,0x28
039b 181d | | Execute Package,Field_Execute,Field_Number 0x1d
039c 0092 06a9 | | Action Push_String_Extended,0x6a9 ; "Code"
039e e229 | ) | Load 0x1,0x29
039f 180e | | Execute Package,Field_Execute,Field_Number 0xe
03a0 e229 | ) | Load 0x1,0x29
03a1 180f | | Execute Package,Field_Execute,Field_Number 0xf
03a2 00d8 | | Load_Top At_Offset_0
03a3 00ea | | Load_Encached Null_String_Cache
03a4 e402 | | Load 0x2,0x2
03a5 e228 | ( | Load 0x1,0x28
03a6 1818 | | Execute Package,Field_Execute,Field_Number 0x18
03a7 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03a8 TRAP_0370:
03a8 e002 | | Load 0x0,0x2
03a9 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
03aa 010f | | Execute Exception,Equal
03ab 6806 |h | Jump_Zero 0x3b2
03ac e403 | | Load 0x2,0x3
03ad e402 | | Load 0x2,0x2
03ae e228 | ( | Load 0x1,0x28
03af 1819 | | Execute Package,Field_Execute,Field_Number 0x19
03b0 00d8 | | Load_Top At_Offset_0
03b1 0101 | | Execute Exception,Reraise
03b2 e00a | | Load 0x0,0xa
03b3 010f | | Execute Exception,Equal
03b4 6805 |h | Jump_Zero 0x3ba
03b5 e403 | | Load 0x2,0x3
03b6 e402 | | Load 0x2,0x2
03b7 e228 | ( | Load 0x1,0x28
03b8 1819 | | Execute Package,Field_Execute,Field_Number 0x19
03b9 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03ba e403 | | Load 0x2,0x3
03bb 4800 |H | Short_Literal 0x0
03bc 4801 |H | Short_Literal 0x1
03bd e017 | | Load 0x0,0x17
03be 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03bf e402 | | Load 0x2,0x2
03c0 e228 | ( | Load 0x1,0x28
03c1 181a | | Execute Package,Field_Execute,Field_Number 0x1a
03c2 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03c3 0000 0000 | | .BLANK 0000[0x5]
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03de | | .CONST 0x03de ; Address of begin
03c9 03e6 | | .CONST 0x03e6 ; Address of exception handler
03ca 0002 | | .CONST 0x0002 ; Number of locals
03cb INIT_03c8:
03cb e227 | ' | Load 0x1,0x27
03cc 02c7 | | Declare_Variable Any
03cd e002 | | Load 0x0,0x2
03ce 180e | | Execute Package,Field_Execute,Field_Number 0xe
03cf e002 | | Load 0x0,0x2
03d0 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
03d1 e002 | | Load 0x0,0x2
03d2 180e | | Execute Package,Field_Execute,Field_Number 0xe
03d3 e002 | | Load 0x0,0x2
03d4 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
03d5 484d |HM | Short_Literal 0x4d
03d6 e002 | | Load 0x0,0x2
03d7 1b45 | E | Execute Package,Field_Read,Field_Number 0x45
03d8 e002 | | Load 0x0,0x2
03d9 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
03da 4800 |H | Short_Literal 0x0
03db e002 | | Load 0x0,0x2
03dc 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
03dd a402 | | Store_Unchecked 0x2,0x2
03de BODY_03c8:
03de 00d8 | | Load_Top At_Offset_0
03df e5ff | | Load 0x2,-0x1
03e0 8237 | 7 | Call 0x1,0x37
03e1 e22e | . | Load 0x1,0x2e
03e2 e5fe | | Load 0x2,-0x2
03e3 e5ff | | Load 0x2,-0x1
03e4 8231 | 1 | Call 0x1,0x31
03e5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03e6 TRAP_03c8:
03e6 e00a | | Load 0x0,0xa
03e7 010f | | Execute Exception,Equal
03e8 6803 |h | Jump_Zero 0x3ec
03e9 e002 | | Load 0x0,0x2
03ea 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
03eb 0257 | W | Execute Discrete,Raise
03ec 0100 | | Execute Exception,Raise
03ed 0000 0000 | | .XXX[0x3]
03ef 0000 | |
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 03f3 | | .CONST 0x03f3 ; Address of begin
03f1 0004 | | .CONST 0x0004 ; Address of exception handler
03f2 0001 | | .CONST 0x0001 ; Number of locals
03f3 BODY_03f0:
03f3 INIT_03f0:
03f3 e010 | | Load 0x0,0x10
03f4 1812 | | Execute Package,Field_Execute,Field_Number 0x12
03f5 e22a | * | Load 0x1,0x2a
03f6 180f | | Execute Package,Field_Execute,Field_Number 0xf
03f7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 03fb | | .CONST 0x03fb ; Address of begin
03f9 0004 | | .CONST 0x0004 ; Address of exception handler
03fa 0001 | | .CONST 0x0001 ; Number of locals
03fb BODY_03f8:
03fb INIT_03f8:
03fb e010 | | Load 0x0,0x10
03fc 1812 | | Execute Package,Field_Execute,Field_Number 0x12
03fd e22a | * | Load 0x1,0x2a
03fe 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03ff 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0403 | | .CONST 0x0403 ; Address of begin
0401 0004 | | .CONST 0x0004 ; Address of exception handler
0402 0001 | | .CONST 0x0001 ; Number of locals
0403 BODY_0400:
0403 INIT_0400:
0403 e007 | | Load 0x0,0x7
0404 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0405 e22a | * | Load 0x1,0x2a
0406 180f | | Execute Package,Field_Execute,Field_Number 0xf
0407 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 040b | | .CONST 0x040b ; Address of begin
0409 0004 | | .CONST 0x0004 ; Address of exception handler
040a 0001 | | .CONST 0x0001 ; Number of locals
040b BODY_0408:
040b INIT_0408:
040b e007 | | Load 0x0,0x7
040c 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
040d e22a | * | Load 0x1,0x2a
040e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
040f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0413 | | .CONST 0x0413 ; Address of begin
0411 0004 | | .CONST 0x0004 ; Address of exception handler
0412 0001 | | .CONST 0x0001 ; Number of locals
0413 BODY_0410:
0413 INIT_0410:
0413 e22a | * | Load 0x1,0x2a
0414 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0415 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0416 0000 0000 | | .XXX[0x2]
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 041b | | .CONST 0x041b ; Address of begin
0419 0004 | | .CONST 0x0004 ; Address of exception handler
041a 0001 | | .CONST 0x0001 ; Number of locals
041b BODY_0418:
041b INIT_0418:
041b e5fa | | Load 0x2,-0x6
041c e5fc | | Load 0x2,-0x4
041d e5ff | | Load 0x2,-0x1
041e 0092 06aa | | Action Push_String_Extended,0x6aa ; "/"
0420 01cc | | Execute Vector,Catenate
0421 e5fb | | Load 0x2,-0x5
0422 01cc | | Execute Vector,Catenate
0423 0092 06ab | | Action Push_String_Extended,0x6ab ; "="
0425 01cc | | Execute Vector,Catenate
0426 4820 |H | Short_Literal 0x20
0427 4800 |H | Short_Literal 0x0
0428 480a |H | Short_Literal 0xa
0429 e5fe | | Load 0x2,-0x2
042a 822b | + | Call 0x1,0x2b
042b 01cc | | Execute Vector,Catenate
042c 0092 06ac | | Action Push_String_Extended,0x6ac ; "|"
042e 01cc | | Execute Vector,Catenate
042f 4820 |H | Short_Literal 0x20
0430 4800 |H | Short_Literal 0x0
0431 480a |H | Short_Literal 0xa
0432 e5fd | | Load 0x2,-0x3
0433 822b | + | Call 0x1,0x2b
0434 01cc | | Execute Vector,Catenate
0435 8230 | 0 | Call 0x1,0x30
0436 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
0437 0000 | | .XXX[0x1]
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 043b | ; | .CONST 0x043b ; Address of begin
0439 0004 | | .CONST 0x0004 ; Address of exception handler
043a 0001 | | .CONST 0x0001 ; Number of locals
043b BODY_0438:
043b INIT_0438:
043b 4801 |H | Short_Literal 0x1
043c e5fc | | Load 0x2,-0x4
043d e22f | / | Load 0x1,0x2f
043e 821b | | Call 0x1,0x1b
043f 821c | | Call 0x1,0x1c
0440 e5fd | | Load 0x2,-0x3
0441 e5fe | | Load 0x2,-0x2
0442 e5ff | | Load 0x2,-0x1
0443 8225 | % | Call 0x1,0x25
0444 e006 | | Load 0x0,0x6
0445 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0446 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0447 0000 | | .XXX[0x1]
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 044b | K | .CONST 0x044b ; Address of begin
0449 0004 | | .CONST 0x0004 ; Address of exception handler
044a 0001 | | .CONST 0x0001 ; Number of locals
044b BODY_0448:
044b INIT_0448:
044b e5ff | | Load 0x2,-0x1
044c e010 | | Load 0x0,0x10
044d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
044e 8234 | 4 | Call 0x1,0x34
044f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0455 | U | .CONST 0x0455 ; Address of begin
0451 0004 | | .CONST 0x0004 ; Address of exception handler
0452 0002 | | .CONST 0x0002 ; Number of locals
0453 INIT_0450:
0453 029f 065b | [| Declare_Subprogram INIT_0658,For_Call
0455 BODY_0450:
0455 e5ff | | Load 0x2,-0x1
0456 8402 | | Call 0x2,0x2
0457 e5fe | | Load 0x2,-0x2
0458 8402 | | Call 0x2,0x2
0459 017f | | Execute Record,Equal
045a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
045b 0000 0000 | | .BLANK 0000[0x5]
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0463 | c | .CONST 0x0463 ; Address of begin
0461 0004 | | .CONST 0x0004 ; Address of exception handler
0462 0001 | | .CONST 0x0001 ; Number of locals
0463 BODY_0460:
0463 INIT_0460:
0463 0092 06a7 | | Action Push_String_Extended,0x6a7 ; "Run the following on the remote machine:"
0465 e016 | | Load 0x0,0x16
0466 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0467 0092 0690 | | Action Push_String_Extended,0x690 ; "Accept_Tokens"
0469 e229 | ) | Load 0x1,0x29
046a 180d | | Execute Package,Field_Execute,Field_Number 0xd
046b e5ff | | Load 0x2,-0x1
046c e228 | ( | Load 0x1,0x28
046d 181d | | Execute Package,Field_Execute,Field_Number 0x1d
046e 0092 06ad | | Action Push_String_Extended,0x6ad ; "Product"
0470 e229 | ) | Load 0x1,0x29
0471 180e | | Execute Package,Field_Execute,Field_Number 0xe
0472 4820 |H | Short_Literal 0x20
0473 4800 |H | Short_Literal 0x0
0474 480a |H | Short_Literal 0xa
0475 e5fe | | Load 0x2,-0x2
0476 822b | + | Call 0x1,0x2b
0477 0092 06ae | | Action Push_String_Extended,0x6ae ; "Donation"
0479 e229 | ) | Load 0x1,0x29
047a 180e | | Execute Package,Field_Execute,Field_Number 0xe
047b 4820 |H | Short_Literal 0x20
047c 4800 |H | Short_Literal 0x0
047d 480a |H | Short_Literal 0xa
047e e5fd | | Load 0x2,-0x3
047f 822b | + | Call 0x1,0x2b
0480 0092 06af | | Action Push_String_Extended,0x6af ; "Resulting_Count"
0482 e229 | ) | Load 0x1,0x29
0483 180e | | Execute Package,Field_Execute,Field_Number 0xe
0484 e5fa | | Load 0x2,-0x6
0485 e5fb | | Load 0x2,-0x5
0486 e5fc | | Load 0x2,-0x4
0487 e5fd | | Load 0x2,-0x3
0488 e5fe | | Load 0x2,-0x2
0489 e5ff | | Load 0x2,-0x1
048a 8225 | % | Call 0x1,0x25
048b e228 | ( | Load 0x1,0x28
048c 181d | | Execute Package,Field_Execute,Field_Number 0x1d
048d 0092 06a9 | | Action Push_String_Extended,0x6a9 ; "Code"
048f e229 | ) | Load 0x1,0x29
0490 180e | | Execute Package,Field_Execute,Field_Number 0xe
0491 e229 | ) | Load 0x1,0x29
0492 180f | | Execute Package,Field_Execute,Field_Number 0xf
0493 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0494 0000 0000 | | .BLANK 0000[0x4]
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 e5ff | | Load 0x2,-0x1
049c 01db | | Execute Vector,Length
049d 7005 |p | Jump_Nonzero 0x4a3
049e e5fe | | Load 0x2,-0x2
049f 0092 06b0 | | Action Push_String_Extended,0x6b0 ; "Product name not specified."
04a1 e228 | ( | Load 0x1,0x28
04a2 180d | | Execute Package,Field_Execute,Field_Number 0xd
04a3 00cf | | Action Mark_Auxiliary
04a4 e5ff | | Load 0x2,-0x1
04a5 01d9 | | Execute Vector,Reverse_Bounds
04a6 0263 | c | Execute Discrete,Above_Bound
04a7 7018 |p | Jump_Nonzero 0x4c0
04a8 00d8 | | Load_Top At_Offset_0
04a9 e5ff | | Load 0x2,-0x1
04aa 01d7 | | Execute Vector,Field_Read
04ab 4820 |H | Short_Literal 0x20
04ac 487e |H~ | Short_Literal 0x7e
04ad 0261 | a | Execute Discrete,Not_In_Range
04ae 680f |h | Jump_Zero 0x4be
04af e5fe | | Load 0x2,-0x2
04b0 0092 06b1 | | Action Push_String_Extended,0x6b1 ; "Product name contains an illegal character ("
04b2 e404 | | Load 0x2,0x4
04b3 e5ff | | Load 0x2,-0x1
04b4 01d7 | | Execute Vector,Field_Read
04b5 00e8 | | Load_Encached Character_Cache
04b6 011c | | Execute Any,Convert_Unchecked
04b7 1c01 | | Execute_Immediate Run_Utility,0x1
04b8 01cc | | Execute Vector,Catenate
04b9 0092 06a2 | | Action Push_String_Extended,0x6a2 ; ")."
04bb 01cc | | Execute Vector,Catenate
04bc e228 | ( | Load 0x1,0x28
04bd 180d | | Execute Package,Field_Execute,Field_Number 0xd
04be 00c8 | | Action Pop_Auxiliary_Range
04bf 3fe8 |? | Loop_Increasing 0x4a8
04c0 00ce | | Action Pop_Auxiliary
04c1 e5ff | | Load 0x2,-0x1
04c2 4820 |H | Short_Literal 0x20
04c3 e5ff | | Load 0x2,-0x1
04c4 e006 | | Load 0x0,0x6
04c5 181c | | Execute Package,Field_Execute,Field_Number 0x1c
04c6 01de | | Execute Vector,Not_Equal
04c7 6805 |h | Jump_Zero 0x4cd
04c8 e5fe | | Load 0x2,-0x2
04c9 0092 06b2 | | Action Push_String_Extended,0x6b2 ; "Product name includes leading or trailing blanks."
04cb e228 | ( | Load 0x1,0x28
04cc 180d | | Execute Package,Field_Execute,Field_Number 0xd
04cd 4503 |E | Exit_Suprogram New_Top_Offset 0x3
04ce 0000 0000 | | .XXX[0x2]
04d0 ; --------------------------------------------------------------------------------------
04d0 ; SUBPROGRAM
04d0 ; --------------------------------------------------------------------------------------
04d0 04d3 | | .CONST 0x04d3 ; Address of begin
04d1 0004 | | .CONST 0x0004 ; Address of exception handler
04d2 0001 | | .CONST 0x0001 ; Number of locals
04d3 BODY_04d0:
04d3 INIT_04d0:
04d3 e5ff | | Load 0x2,-0x1
04d4 01db | | Execute Vector,Length
04d5 7005 |p | Jump_Nonzero 0x4db
04d6 e5fe | | Load 0x2,-0x2
04d7 0092 06b3 | | Action Push_String_Extended,0x6b3 ; "Site name not specified."
04d9 e228 | ( | Load 0x1,0x28
04da 180d | | Execute Package,Field_Execute,Field_Number 0xd
04db 00cf | | Action Mark_Auxiliary
04dc e5ff | | Load 0x2,-0x1
04dd 01d9 | | Execute Vector,Reverse_Bounds
04de 0263 | c | Execute Discrete,Above_Bound
04df 7018 |p | Jump_Nonzero 0x4f8
04e0 00d8 | | Load_Top At_Offset_0
04e1 e5ff | | Load 0x2,-0x1
04e2 01d7 | | Execute Vector,Field_Read
04e3 4820 |H | Short_Literal 0x20
04e4 487e |H~ | Short_Literal 0x7e
04e5 0261 | a | Execute Discrete,Not_In_Range
04e6 680f |h | Jump_Zero 0x4f6
04e7 e5fe | | Load 0x2,-0x2
04e8 0092 06b4 | | Action Push_String_Extended,0x6b4 ; "Site name contains an illegal character ("
04ea e404 | | Load 0x2,0x4
04eb e5ff | | Load 0x2,-0x1
04ec 01d7 | | Execute Vector,Field_Read
04ed 00e8 | | Load_Encached Character_Cache
04ee 011c | | Execute Any,Convert_Unchecked
04ef 1c01 | | Execute_Immediate Run_Utility,0x1
04f0 01cc | | Execute Vector,Catenate
04f1 0092 06a2 | | Action Push_String_Extended,0x6a2 ; ")."
04f3 01cc | | Execute Vector,Catenate
04f4 e228 | ( | Load 0x1,0x28
04f5 180d | | Execute Package,Field_Execute,Field_Number 0xd
04f6 00c8 | | Action Pop_Auxiliary_Range
04f7 3fe8 |? | Loop_Increasing 0x4e0
04f8 00ce | | Action Pop_Auxiliary
04f9 e5ff | | Load 0x2,-0x1
04fa 4820 |H | Short_Literal 0x20
04fb e5ff | | Load 0x2,-0x1
04fc e006 | | Load 0x0,0x6
04fd 181c | | Execute Package,Field_Execute,Field_Number 0x1c
04fe 01de | | Execute Vector,Not_Equal
04ff 6805 |h | Jump_Zero 0x505
0500 e5fe | | Load 0x2,-0x2
0501 0092 06b5 | | Action Push_String_Extended,0x6b5 ; "Site name includes leading or trailing blanks."
0503 e228 | ( | Load 0x1,0x28
0504 180d | | Execute Package,Field_Execute,Field_Number 0xd
0505 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0506 0000 0000 | | .XXX[0x2]
0508 ; --------------------------------------------------------------------------------------
0508 ; SUBPROGRAM
0508 ; --------------------------------------------------------------------------------------
0508 050d | | .CONST 0x050d ; Address of begin
0509 0004 | | .CONST 0x0004 ; Address of exception handler
050a 0002 | | .CONST 0x0002 ; Number of locals
050b INIT_0508:
050b 029f 067b | {| Declare_Subprogram INIT_0678,For_Call
050d BODY_0508:
050d 4820 |H | Short_Literal 0x20
050e e5ff | | Load 0x2,-0x1
050f e006 | | Load 0x0,0x6
0510 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0511 01db | | Execute Vector,Length
0512 7001 |p | Jump_Nonzero 0x514
0513 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0514 00cf | | Action Mark_Auxiliary
0515 e5ff | | Load 0x2,-0x1
0516 01d9 | | Execute Vector,Reverse_Bounds
0517 0263 | c | Execute Discrete,Above_Bound
0518 7018 |p | Jump_Nonzero 0x531
0519 00d8 | | Load_Top At_Offset_0
051a e5ff | | Load 0x2,-0x1
051b 01d7 | | Execute Vector,Field_Read
051c 4820 |H | Short_Literal 0x20
051d 487e |H~ | Short_Literal 0x7e
051e 0261 | a | Execute Discrete,Not_In_Range
051f 680f |h | Jump_Zero 0x52f
0520 e5fe | | Load 0x2,-0x2
0521 0092 06b6 | | Action Push_String_Extended,0x6b6 ; "Date contains an illegal character ("
0523 e405 | | Load 0x2,0x5
0524 e5ff | | Load 0x2,-0x1
0525 01d7 | | Execute Vector,Field_Read
0526 00e8 | | Load_Encached Character_Cache
0527 011c | | Execute Any,Convert_Unchecked
0528 1c01 | | Execute_Immediate Run_Utility,0x1
0529 01cc | | Execute Vector,Catenate
052a 0092 06a2 | | Action Push_String_Extended,0x6a2 ; ")."
052c 01cc | | Execute Vector,Catenate
052d e228 | ( | Load 0x1,0x28
052e 180d | | Execute Package,Field_Execute,Field_Number 0xd
052f 00c8 | | Action Pop_Auxiliary_Range
0530 3fe8 |? | Loop_Increasing 0x519
0531 00ce | | Action Pop_Auxiliary
0532 8402 | | Call 0x2,0x2
0533 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0534 0000 0000 | | .BLANK 0000[0x4]
0538 ; --------------------------------------------------------------------------------------
0538 ; SUBPROGRAM
0538 ; --------------------------------------------------------------------------------------
0538 053f | ? | .CONST 0x053f ; Address of begin
0539 0004 | | .CONST 0x0004 ; Address of exception handler
053a 0002 | | .CONST 0x0002 ; Number of locals
053b INIT_0538:
053b e5ff | | Load 0x2,-0x1
053c 823b | ; | Call 0x1,0x3b
053d 00e3 | | Load_Encached Natural_Cache
053e 03f1 | | Declare_Variable Discrete,With_Value
053f BODY_0538:
053f e5fc | | Load 0x2,-0x4
0540 e5ff | | Load 0x2,-0x1
0541 0092 06ae | | Action Push_String_Extended,0x6ae ; "Donation"
0543 e5fe | | Load 0x2,-0x2
0544 823e | > | Call 0x1,0x3e
0545 e5fc | | Load 0x2,-0x4
0546 e5ff | | Load 0x2,-0x1
0547 0092 06af | | Action Push_String_Extended,0x6af ; "Resulting_Count"
0549 e5fd | | Load 0x2,-0x3
054a 823e | > | Call 0x1,0x3e
054b e5fe | | Load 0x2,-0x2
054c e5fd | | Load 0x2,-0x3
054d 027d | } | Execute Discrete,Greater
054e 681c |h | Jump_Zero 0x56b
054f e5fc | | Load 0x2,-0x4
0550 0092 06b7 | | Action Push_String_Extended,0x6b7 ; "The number of tokens ("
0552 4820 |H | Short_Literal 0x20
0553 4800 |H | Short_Literal 0x0
0554 480a |H | Short_Literal 0xa
0555 e5fe | | Load 0x2,-0x2
0556 822b | + | Call 0x1,0x2b
0557 01cc | | Execute Vector,Catenate
0558 0092 06b8 | | Action Push_String_Extended,0x6b8 ; ") for "
055a 01cc | | Execute Vector,Catenate
055b e5ff | | Load 0x2,-0x1
055c 01cc | | Execute Vector,Catenate
055d 0092 06b9 | | Action Push_String_Extended,0x6b9 ; " exceeds the target authorization ("
055f 01cc | | Execute Vector,Catenate
0560 4820 |H | Short_Literal 0x20
0561 4800 |H | Short_Literal 0x0
0562 480a |H | Short_Literal 0xa
0563 e5fd | | Load 0x2,-0x3
0564 822b | + | Call 0x1,0x2b
0565 01cc | | Execute Vector,Catenate
0566 0092 06a2 | | Action Push_String_Extended,0x6a2 ; ")."
0568 01cc | | Execute Vector,Catenate
0569 e228 | ( | Load 0x1,0x28
056a 180d | | Execute Package,Field_Execute,Field_Number 0xd
056b 4505 |E | Exit_Suprogram New_Top_Offset 0x5
056c 0000 0000 | | .BLANK 0000[0x4]
0570 ; --------------------------------------------------------------------------------------
0570 ; SUBPROGRAM
0570 ; --------------------------------------------------------------------------------------
0570 057b | { | .CONST 0x057b ; Address of begin
0571 0004 | | .CONST 0x0004 ; Address of exception handler
0572 0003 | | .CONST 0x0003 ; Number of locals
0573 INIT_0570:
0573 e5ff | | Load 0x2,-0x1
0574 823b | ; | Call 0x1,0x3b
0575 00e3 | | Load_Encached Natural_Cache
0576 03f1 | | Declare_Variable Discrete,With_Value
0577 e5ff | | Load 0x2,-0x1
0578 823d | = | Call 0x1,0x3d
0579 00e3 | | Load_Encached Natural_Cache
057a 03f1 | | Declare_Variable Discrete,With_Value
057b BODY_0570:
057b e402 | | Load 0x2,0x2
057c 700a |p | Jump_Nonzero 0x587
057d e5fd | | Load 0x2,-0x3
057e 0092 06ba | | Action Push_String_Extended,0x6ba ; "There are currently no tokens for "
0580 e5ff | | Load 0x2,-0x1
0581 01cc | | Execute Vector,Catenate
0582 0092 06bb | | Action Push_String_Extended,0x6bb ; ", so they can't be donated."
0584 01cc | | Execute Vector,Catenate
0585 e228 | ( | Load 0x1,0x28
0586 180d | | Execute Package,Field_Execute,Field_Number 0xd
0587 e5fe | | Load 0x2,-0x2
0588 e402 | | Load 0x2,0x2
0589 027d | } | Execute Discrete,Greater
058a 681c |h | Jump_Zero 0x5a7
058b e5fd | | Load 0x2,-0x3
058c 0092 06bc | | Action Push_String_Extended,0x6bc ; "The requested donation ("
058e 4820 |H | Short_Literal 0x20
058f 4800 |H | Short_Literal 0x0
0590 480a |H | Short_Literal 0xa
0591 e5fe | | Load 0x2,-0x2
0592 822b | + | Call 0x1,0x2b
0593 01cc | | Execute Vector,Catenate
0594 0092 06b8 | | Action Push_String_Extended,0x6b8 ; ") for "
0596 01cc | | Execute Vector,Catenate
0597 e5ff | | Load 0x2,-0x1
0598 01cc | | Execute Vector,Catenate
0599 0092 06bd | | Action Push_String_Extended,0x6bd ; "exceeds the current limit ("
059b 01cc | | Execute Vector,Catenate
059c 4820 |H | Short_Literal 0x20
059d 4800 |H | Short_Literal 0x0
059e 480a |H | Short_Literal 0xa
059f e402 | | Load 0x2,0x2
05a0 822b | + | Call 0x1,0x2b
05a1 01cc | | Execute Vector,Catenate
05a2 0092 06a2 | | Action Push_String_Extended,0x6a2 ; ")."
05a4 01cc | | Execute Vector,Catenate
05a5 e228 | ( | Load 0x1,0x28
05a6 180d | | Execute Package,Field_Execute,Field_Number 0xd
05a7 e402 | | Load 0x2,0x2
05a8 e5fe | | Load 0x2,-0x2
05a9 0272 | r | Execute Discrete,Minus
05aa e403 | | Load 0x2,0x3
05ab 027c | | | Execute Discrete,Less
05ac 6813 |h | Jump_Zero 0x5c0
05ad e5fd | | Load 0x2,-0x3
05ae 0092 06be | | Action Push_String_Extended,0x6be ; "Donation of "
05b0 4820 |H | Short_Literal 0x20
05b1 4800 |H | Short_Literal 0x0
05b2 480a |H | Short_Literal 0xa
05b3 e5fe | | Load 0x2,-0x2
05b4 822b | + | Call 0x1,0x2b
05b5 01cc | | Execute Vector,Catenate
05b6 0092 06bf | | Action Push_String_Extended,0x6bf ; " tokens for "
05b8 01cc | | Execute Vector,Catenate
05b9 e5ff | | Load 0x2,-0x1
05ba 01cc | | Execute Vector,Catenate
05bb 0092 06c0 | | Action Push_String_Extended,0x6c0 ; " would transfer tokens currently in use."
05bd 01cc | | Execute Vector,Catenate
05be e228 | ( | Load 0x1,0x28
05bf 180d | | Execute Package,Field_Execute,Field_Number 0xd
05c0 e402 | | Load 0x2,0x2
05c1 e5fe | | Load 0x2,-0x2
05c2 0272 | r | Execute Discrete,Minus
05c3 00d8 | | Load_Top At_Offset_0
05c4 00e3 | | Load_Encached Natural_Cache
05c5 0260 | ` | Execute Discrete,In_Type
05c6 7001 |p | Jump_Nonzero 0x5c8
05c7 0801 | | Execute_Immediate Raise,0x1
05c8 e5ff | | Load 0x2,-0x1
05c9 e015 | | Load 0x0,0x15
05ca 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05cb e5fd | | Load 0x2,-0x3
05cc 0092 06be | | Action Push_String_Extended,0x6be ; "Donation of "
05ce 4820 |H | Short_Literal 0x20
05cf 4800 |H | Short_Literal 0x0
05d0 480a |H | Short_Literal 0xa
05d1 e5fe | | Load 0x2,-0x2
05d2 822b | + | Call 0x1,0x2b
05d3 01cc | | Execute Vector,Catenate
05d4 0092 06bf | | Action Push_String_Extended,0x6bf ; " tokens for "
05d6 01cc | | Execute Vector,Catenate
05d7 e5ff | | Load 0x2,-0x1
05d8 01cc | | Execute Vector,Catenate
05d9 0092 06c1 | | Action Push_String_Extended,0x6c1 ; " has resulted in "
05db 01cc | | Execute Vector,Catenate
05dc 4820 |H | Short_Literal 0x20
05dd 4800 |H | Short_Literal 0x0
05de 480a |H | Short_Literal 0xa
05df e5ff | | Load 0x2,-0x1
05e0 823b | ; | Call 0x1,0x3b
05e1 822b | + | Call 0x1,0x2b
05e2 01cc | | Execute Vector,Catenate
05e3 0092 06c2 | | Action Push_String_Extended,0x6c2 ; " tokens."
05e5 01cc | | Execute Vector,Catenate
05e6 e228 | ( | Load 0x1,0x28
05e7 180f | | Execute Package,Field_Execute,Field_Number 0xf
05e8 4504 |E | Exit_Suprogram New_Top_Offset 0x4
05e9 0000 0000 | | .BLANK 0000[0x7]
05f0 ; --------------------------------------------------------------------------------------
05f0 ; SUBPROGRAM
05f0 ; --------------------------------------------------------------------------------------
05f0 05f3 | | .CONST 0x05f3 ; Address of begin
05f1 05f7 | | .CONST 0x05f7 ; Address of exception handler
05f2 0001 | | .CONST 0x0001 ; Number of locals
05f3 BODY_05f0:
05f3 INIT_05f0:
05f3 e5ff | | Load 0x2,-0x1
05f4 e015 | | Load 0x0,0x15
05f5 1815 | | Execute Package,Field_Execute,Field_Number 0x15
05f6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05f7 TRAP_05f0:
05f7 0007 | | Action Break_Optional
05f8 4800 |H | Short_Literal 0x0
05f9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05fa 0000 0000 | | .BLANK 0000[0x6]
0600 ; --------------------------------------------------------------------------------------
0600 ; SUBPROGRAM
0600 ; --------------------------------------------------------------------------------------
0600 0603 | | .CONST 0x0603 ; Address of begin
0601 0607 | | .CONST 0x0607 ; Address of exception handler
0602 0001 | | .CONST 0x0001 ; Number of locals
0603 BODY_0600:
0603 INIT_0600:
0603 e5ff | | Load 0x2,-0x1
0604 e015 | | Load 0x0,0x15
0605 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0606 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0607 TRAP_0600:
0607 0007 | | Action Break_Optional
0608 4800 |H | Short_Literal 0x0
0609 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
060a 0000 0000 | | .BLANK 0000[0x6]
0610 ; --------------------------------------------------------------------------------------
0610 ; SUBPROGRAM
0610 ; --------------------------------------------------------------------------------------
0610 0613 | | .CONST 0x0613 ; Address of begin
0611 0617 | | .CONST 0x0617 ; Address of exception handler
0612 0001 | | .CONST 0x0001 ; Number of locals
0613 BODY_0610:
0613 INIT_0610:
0613 e5ff | | Load 0x2,-0x1
0614 e015 | | Load 0x0,0x15
0615 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0616 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0617 TRAP_0610:
0617 0007 | | Action Break_Optional
0618 4800 |H | Short_Literal 0x0
0619 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
061a 0000 0000 | | .BLANK 0000[0x6]
0620 ; --------------------------------------------------------------------------------------
0620 ; SUBPROGRAM
0620 ; --------------------------------------------------------------------------------------
0620 0623 | # | .CONST 0x0623 ; Address of begin
0621 0004 | | .CONST 0x0004 ; Address of exception handler
0622 0001 | | .CONST 0x0001 ; Number of locals
0623 BODY_0620:
0623 INIT_0620:
0623 e5ff | | Load 0x2,-0x1
0624 e226 | & | Load 0x1,0x26
0625 025f | _ | Execute Discrete,Not_In_Type
0626 682a |h* | Jump_Zero 0x651
0627 e5fc | | Load 0x2,-0x4
0628 0092 06c3 | | Action Push_String_Extended,0x6c3 ; "The legal range of "
062a e5fe | | Load 0x2,-0x2
062b 01cc | | Execute Vector,Catenate
062c 0092 06c4 | | Action Push_String_Extended,0x6c4 ; " for "
062e 01cc | | Execute Vector,Catenate
062f e5fd | | Load 0x2,-0x3
0630 01cc | | Execute Vector,Catenate
0631 0092 06c5 | | Action Push_String_Extended,0x6c5 ; " is "
0633 01cc | | Execute Vector,Catenate
0634 4820 |H | Short_Literal 0x20
0635 4800 |H | Short_Literal 0x0
0636 480a |H | Short_Literal 0xa
0637 4800 |H | Short_Literal 0x0
0638 822b | + | Call 0x1,0x2b
0639 01cc | | Execute Vector,Catenate
063a 0092 06c6 | | Action Push_String_Extended,0x6c6 ; ".."
063c 01cc | | Execute Vector,Catenate
063d 4820 |H | Short_Literal 0x20
063e 4800 |H | Short_Literal 0x0
063f 480a |H | Short_Literal 0xa
0640 4840 |H@ | Short_Literal 0x40
0641 822b | + | Call 0x1,0x2b
0642 01cc | | Execute Vector,Catenate
0643 0092 06c7 | | Action Push_String_Extended,0x6c7 ; ", but the value specified ("
0645 01cc | | Execute Vector,Catenate
0646 4820 |H | Short_Literal 0x20
0647 4800 |H | Short_Literal 0x0
0648 480a |H | Short_Literal 0xa
0649 e5ff | | Load 0x2,-0x1
064a 822b | + | Call 0x1,0x2b
064b 01cc | | Execute Vector,Catenate
064c 0092 06c8 | | Action Push_String_Extended,0x6c8 ; ") is outside that range"
064e 01cc | | Execute Vector,Catenate
064f e228 | ( | Load 0x1,0x28
0650 180d | | Execute Package,Field_Execute,Field_Number 0xd
0651 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0652 0000 0000 | | .BLANK 0000[0x6]
0658 ; --------------------------------------------------------------------------------------
0658 ; SUBPROGRAM
0658 ; --------------------------------------------------------------------------------------
0658 0663 | c | .CONST 0x0663 ; Address of begin
0659 0004 | | .CONST 0x0004 ; Address of exception handler
065a 0002 | | .CONST 0x0002 ; Number of locals
065b INIT_0658:
065b e007 | | Load 0x0,0x7
065c 1b14 | | Execute Package,Field_Read,Field_Number 0x14
065d 0322 | " | Declare_Variable Record
065e e7ff | | Load 0x3,-0x1
065f e007 | | Load 0x0,0x7
0660 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0661 e602 | | Load 0x3,0x2
0662 017d | } | Execute Record,Structure_Write
0663 BODY_0658:
0663 4800 |H | Short_Literal 0x0
0664 e602 | | Load 0x3,0x2
0665 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0666 4800 |H | Short_Literal 0x0
0667 e602 | | Load 0x3,0x2
0668 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0669 4801 |H | Short_Literal 0x1
066a e602 | | Load 0x3,0x2
066b 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
066c 4800 |H | Short_Literal 0x0
066d e602 | | Load 0x3,0x2
066e 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
066f 00d8 | | Load_Top At_Offset_0
0670 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0671 0000 0000 | | .BLANK 0000[0x7]
0678 ; --------------------------------------------------------------------------------------
0678 ; SUBPROGRAM
0678 ; --------------------------------------------------------------------------------------
0678 067e | ~ | .CONST 0x067e ; Address of begin
0679 0684 | | .CONST 0x0684 ; Address of exception handler
067a 0002 | | .CONST 0x0002 ; Number of locals
067b INIT_0678:
067b e007 | | Load 0x0,0x7
067c 1b14 | | Execute Package,Field_Read,Field_Number 0x14
067d 0322 | " | Declare_Variable Record
067e BODY_0678:
067e e5ff | | Load 0x2,-0x1
067f e007 | | Load 0x0,0x7
0680 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0681 e602 | | Load 0x3,0x2
0682 017d | } | Execute Record,Structure_Write
0683 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0684 TRAP_0678:
0684 0007 | | Action Break_Optional
0685 e5fe | | Load 0x2,-0x2
0686 0092 06c9 | | Action Push_String_Extended,0x6c9 ; "Date ("
0688 e5ff | | Load 0x2,-0x1
0689 01cc | | Execute Vector,Catenate
068a 0092 06ca | | Action Push_String_Extended,0x6ca ; ") doesn't represent a legal date."
068c 01cc | | Execute Vector,Catenate
068d e228 | ( | Load 0x1,0x28
068e 180d | | Execute Package,Field_Execute,Field_Number 0xd
068f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0690 ; --------------------------------------------------------------------------------------
0690 ; STRING TABLE
0690 ; --------------------------------------------------------------------------------------
0690 0078 | x | .STRTAB 0x0078->0x06cc ; "Accept_Tokens"
0691 0083 | | .STRTAB 0x0083->0x06d2 ; "This machine has donated tokens today; it may not also accept them"
0692 00c3 | | .STRTAB 0x00c3->0x06f3 ; "The sum of currently authorized tokens and Donations ("
0693 00f7 | | .STRTAB 0x00f7->0x070e ; ") is NOT equal to Resulting_Count parameter ("
0694 0122 | " | .STRTAB 0x0122->0x0725 ; "); these must be equal in order to proceed."
0695 014b | K | .STRTAB 0x014b->0x073a ; "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 ("
0696 0233 | 3 | .STRTAB 0x0233->0x07af ; "), a transcription error of the Machine ID of this machine ("
0697 026d | m | .STRTAB 0x026d->0x07cd ; "), a delay in posting the request (code only valid for one day), "
0698 02ac | | .STRTAB 0x02ac->0x07ee ; "or some other combination of parameter problems. "
0699 02dc | | .STRTAB 0x02dc->0x0807 ; "Contact your Rational representative for further assistance."
069a 0316 | | .STRTAB 0x0316->0x0825 ; ">>Product Name<<"
069b 0324 | $ | .STRTAB 0x0324->0x082d ; " tokens set to "
069c 0331 | 1 | .STRTAB 0x0331->0x0834 ; "Donate_Tokens"
069d 033c | < | .STRTAB 0x033c->0x083b ; "Remote_Machine_ID specified is the Machine_ID for this machine."
069e 0379 | y | .STRTAB 0x0379->0x085a ; "This machine has accepted tokens today; it may not also give them up"
069f 03bb | | .STRTAB 0x03bb->0x087c ; "Set_Site"
06a0 03c1 | | .STRTAB 0x03c1->0x0880 ; "Code ("
06a1 03c5 | | .STRTAB 0x03c5->0x0883 ; ") does not correspond to Site ("
06a2 03e2 | | .STRTAB 0x03e2->0x0893 ; ")."
06a3 03e2 | | .STRTAB 0x03e2->0x0894 ; "Site set to "
06a4 03ec | | .STRTAB 0x03ec->0x089a ; "Assign_Tokens"
06a5 03f7 | | .STRTAB 0x03f7->0x08a0 ; "Must be run from a Rational site."
06a6 0416 | | .STRTAB 0x0416->0x08b1 ; "Assign_Site"
06a7 041f | | .STRTAB 0x041f->0x08b6 ; "Run the following on the remote machine:"
06a8 0445 | E | .STRTAB 0x0445->0x08ca ; "Site"
06a9 0447 | G | .STRTAB 0x0447->0x08cc ; "Code"
06aa 0449 | I | .STRTAB 0x0449->0x08ce ; "/"
06ab 0448 | H | .STRTAB 0x0448->0x08cf ; "="
06ac 0447 | G | .STRTAB 0x0447->0x08cf ; "|"
06ad 0446 | F | .STRTAB 0x0446->0x08d0 ; "Product"
06ae 044b | K | .STRTAB 0x044b->0x08d3 ; "Donation"
06af 0451 | Q | .STRTAB 0x0451->0x08d7 ; "Resulting_Count"
06b0 045e | ^ | .STRTAB 0x045e->0x08df ; "Product name not specified."
06b1 0477 | w | .STRTAB 0x0477->0x08ec ; "Product name contains an illegal character ("
06b2 04a1 | | .STRTAB 0x04a1->0x0902 ; "Product name includes leading or trailing blanks."
06b3 04d0 | | .STRTAB 0x04d0->0x091b ; "Site name not specified."
06b4 04e6 | | .STRTAB 0x04e6->0x0927 ; "Site name contains an illegal character ("
06b5 050d | | .STRTAB 0x050d->0x093b ; "Site name includes leading or trailing blanks."
06b6 0539 | 9 | .STRTAB 0x0539->0x0952 ; "Date contains an illegal character ("
06b7 055b | [ | .STRTAB 0x055b->0x0964 ; "The number of tokens ("
06b8 056f | o | .STRTAB 0x056f->0x096f ; ") for "
06b9 0573 | s | .STRTAB 0x0573->0x0972 ; " exceeds the target authorization ("
06ba 0594 | | .STRTAB 0x0594->0x0984 ; "There are currently no tokens for "
06bb 05b4 | | .STRTAB 0x05b4->0x0995 ; ", so they can't be donated."
06bc 05cd | | .STRTAB 0x05cd->0x09a2 ; "The requested donation ("
06bd 05e3 | | .STRTAB 0x05e3->0x09ae ; "exceeds the current limit ("
06be 05fc | | .STRTAB 0x05fc->0x09bc ; "Donation of "
06bf 0606 | | .STRTAB 0x0606->0x09c2 ; " tokens for "
06c0 0610 | | .STRTAB 0x0610->0x09c8 ; " would transfer tokens currently in use."
06c1 0636 | 6 | .STRTAB 0x0636->0x09dc ; " has resulted in "
06c2 0645 | E | .STRTAB 0x0645->0x09e4 ; " tokens."
06c3 064b | K | .STRTAB 0x064b->0x09e8 ; "The legal range of "
06c4 065c | \ | .STRTAB 0x065c->0x09f2 ; " for "
06c5 065f | _ | .STRTAB 0x065f->0x09f4 ; " is "
06c6 0661 | a | .STRTAB 0x0661->0x09f6 ; ".."
06c7 0661 | a | .STRTAB 0x0661->0x09f7 ; ", but the value specified ("
06c8 067a | z | .STRTAB 0x067a->0x0a05 ; ") is outside that range"
06c9 068f | | .STRTAB 0x068f->0x0a10 ; "Date ("
06ca 0693 | | .STRTAB 0x0693->0x0a13 ; ") doesn't represent a legal date."
06cb 06b2 | | .STREND 0x06b2->0x0a24
06cc 4163 6365 |Acce| .STRTAB_STRINGS
0a24 0000 0000 | | .BLANK 0000[0x4]
0a28 ; --------------------------------------------------------------------------------------
0a28 ; Debug Table
0a28 ; --------------------------------------------------------------------------------------
0a28 0004 000c | | .DEBUG4 0x0004,0x000c,0xc4a3,0x0000,0x0001,0x0000
0a2e 0000 0000 | | .XXX[0x70]
0a30 0ab4 3c04 | < |
0a32 0000 08d8 | |
0a34 0022 b004 | " |
0a36 0000 0000 | |
0a38 0001 1004 | |
0a3a 0000 3658 | 6X|
0a3c 001f b804 | |
0a3e 0000 0000 | |
0a40 0001 1004 | |
0a42 0000 3658 | 6X|
0a44 001a 9404 | |
0a46 0000 0000 | |
0a48 0001 1004 | |
0a4a 0000 3658 | 6X|
0a4c 001d f404 | |
0a4e 0000 0000 | |
0a50 0001 1004 | |
0a52 0000 3658 | 6X|
0a54 0032 2c04 | 2, |
0a56 0000 0000 | |
0a58 0001 1004 | |
0a5a 0000 3658 | 6X|
0a5c 0004 bc04 | |
0a5e 0000 0000 | |
0a60 0ab4 3c04 | < |
0a62 0000 0c58 | X|
0a64 0022 9c04 | " |
0a66 0000 0000 | |
0a68 0001 1004 | |
0a6a 0000 3658 | 6X|
0a6c 000e 1804 | |
0a6e 0000 0000 | |
0a70 0001 1004 | |
0a72 0000 3658 | 6X|
0a74 000e 3804 | 8 |
0a76 0000 0000 | |
0a78 0001 1004 | |
0a7a 0000 3658 | 6X|
0a7c 001f 5404 | T |
0a7e 0000 0000 | |
0a80 0001 1004 | |
0a82 0000 3658 | 6X|
0a84 001f 4404 | D |
0a86 0000 0000 | |
0a88 0001 1004 | |
0a8a 0000 3658 | 6X|
0a8c 001f 9404 | |
0a8e 0000 0000 | |
0a90 0001 1004 | |
0a92 0000 3658 | 6X|
0a94 001f 9004 | |
0a96 0000 0000 | |
0a98 0001 1004 | |
0a9a 0000 3658 | 6X|
0a9c 000e 4804 | H |
0a9e 0000 0000 | | .BLANK 0000[0x162]