|
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: 11264 (0x2c00) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0f80a5
└─⟦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 15e0 | | .CONST 0x15e0 ; 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 800d | | .CONST 0x800d ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0010 | | .CONST 0x0010 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 000f 00c7 | | Action Elaborate_Subprogram 0010 BODY_0008: 0010 00bc | | Action Signal_Activated 0011 00bb | | Action Signal_Completion 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 0037 | 7 | .CONST 0x0037 ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0006 | | .CONST 0x0006 ; Number of locals 001b INIT_0018: 001b 4800 |H | Short_Literal 0x0 001c 4801 |H | Short_Literal 0x1 001d 029f 0053 | S| Declare_Subprogram INIT_0050,For_Call 001f 03fd | | Declare_Type Discrete,Defined 0020 e001 | | Load 0x0,0x1 0021 e002 | | Load 0x0,0x2 0022 00da | | Load_Top At_Offset_2 0023 4800 |H | Short_Literal 0x0 0024 4801 |H | Short_Literal 0x1 0025 4801 |H | Short_Literal 0x1 0026 0092 104d | M| Action Push_String_Extended,0x104d ; "D2 => Boolean_Valued, others => unspecified" 0028 00ea | | Load_Encached Null_String_Cache 0029 00ea | | Load_Encached Null_String_Cache 002a 4801 |H | Short_Literal 0x1 002b 4801 |H | Short_Literal 0x1 002c e003 | | Load 0x0,0x3 002d 0387 | | Declare_Variable Package 002e 00d8 | | Load_Top At_Offset_0 002f 020f | | Execute Module,Activate 0030 e5fc | | Load 0x2,-0x4 0031 00d9 | | Load_Top At_Offset_1 0032 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0033 029f 007b | {| Declare_Subprogram INIT_0078,For_Call 0035 029f 013b | ;| Declare_Subprogram INIT_0138,For_Call 0037 BODY_0018: 0037 4800 |H | Short_Literal 0x0 0038 4801 |H | Short_Literal 0x1 0039 e404 | | Load 0x2,0x4 003a e403 | | Load 0x2,0x3 003b 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 003c 6806 |h | Jump_Zero 0x43 003d e5fc | | Load 0x2,-0x4 003e e5fd | | Load 0x2,-0x3 003f e5fe | | Load 0x2,-0x2 0040 e5ff | | Load 0x2,-0x1 0041 8405 | | Call 0x2,0x5 0042 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0043 e5fc | | Load 0x2,-0x4 0044 e5fd | | Load 0x2,-0x3 0045 e5fe | | Load 0x2,-0x2 0046 e5ff | | Load 0x2,-0x1 0047 8406 | | Call 0x2,0x6 0048 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0049 0000 0000 | | .BLANK 0000[0x7] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0053 | S | .CONST 0x0053 ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0001 | | .CONST 0x0001 ; Number of locals 0053 BODY_0050: 0053 INIT_0050: 0053 4607 |F | Jump_Case 0x8 0054 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0055 7806 |x | Jump 0x5c ; case 0x1 0056 7809 |x | Jump 0x60 ; case 0x2 0057 780d |x | Jump 0x65 ; case 0x3 0058 7810 |x | Jump 0x69 ; case 0x4 0059 7811 |x | Jump 0x6b ; case 0x5 005a 7812 |x | Jump 0x6d ; case 0x6 005b 7815 |x | Jump 0x71 ; case 0x7 005c 00da | | Load_Top At_Offset_2 005d 0091 102f | /| Action Push_String_Extended_Indexed,0x102f ; "NONE" 005f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0060 00db | | Load_Top At_Offset_3 0061 00db | | Load_Top At_Offset_3 0062 00e0 | | Load_Encached Standard_Cache 0063 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0064 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0065 00da | | Load_Top At_Offset_2 0066 00e0 | | Load_Encached Standard_Cache 0067 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0068 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0069 00db | | Load_Top At_Offset_3 006a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 006b 00db | | Load_Top At_Offset_3 006c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 006d e402 | | Load 0x2,0x2 006e 00dc | | Load_Top At_Offset_4 006f 0267 | g | Execute Discrete,Predecessor 0070 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0071 e402 | | Load 0x2,0x2 0072 00dc | | Load_Top At_Offset_4 0073 0268 | h | Execute Discrete,Successor 0074 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0075 0000 0000 | | .XXX[0x3] 0077 0000 | | 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 00fa | | .CONST 0x00fa ; Address of begin 0079 0004 | | .CONST 0x0004 ; Address of exception handler 007a 0024 | $ | .CONST 0x0024 ; Number of locals 007b INIT_0078: 007b 00e9 | | Load_Encached String_Cache 007c 02a0 | | Declare_Subprogram Null_Subprogram 007d 4818 |H | Short_Literal 0x18 007e 03d3 | | Declare_Type Access,Defined,Accesses_Protected 007f 00d8 | | Load_Top At_Offset_0 0080 03bd | | Declare_Variable Access,Duplicate 0081 00da | | Load_Top At_Offset_2 0082 0007 | | Action Break_Optional 0083 00db | | Load_Top At_Offset_3 0084 0007 | | Action Break_Optional 0085 4800 |H | Short_Literal 0x0 0086 4801 |H | Short_Literal 0x1 0087 00e3 | | Load_Encached Natural_Cache 0088 03f8 | | Declare_Type Discrete,Constrained 0089 e004 | | Load 0x0,0x4 008a e005 | | Load 0x0,0x5 008b 00da | | Load_Top At_Offset_2 008c 4800 |H | Short_Literal 0x0 008d 4801 |H | Short_Literal 0x1 008e 4801 |H | Short_Literal 0x1 008f 0092 104e | N| Action Push_String_Extended,0x104e ; "others => Unspecified" 0091 00ea | | Load_Encached Null_String_Cache 0092 00ea | | Load_Encached Null_String_Cache 0093 4801 |H | Short_Literal 0x1 0094 4801 |H | Short_Literal 0x1 0095 e003 | | Load 0x0,0x3 0096 0387 | | Declare_Variable Package 0097 00d8 | | Load_Top At_Offset_0 0098 020f | | Execute Module,Activate 0099 4800 |H | Short_Literal 0x0 009a 480d |H | Short_Literal 0xd 009b 029f 01fb | | Declare_Subprogram INIT_01f8,For_Call 009d 03fd | | Declare_Type Discrete,Defined 009e e006 | | Load 0x0,0x6 009f e007 | | Load 0x0,0x7 00a0 00da | | Load_Top At_Offset_2 00a1 4800 |H | Short_Literal 0x0 00a2 4801 |H | Short_Literal 0x1 00a3 480d |H | Short_Literal 0xd 00a4 0092 104f | O| Action Push_String_Extended,0x104f ; "Compose_Document => Boolean_Valued, others => unspecified" 00a6 00ea | | Load_Encached Null_String_Cache 00a7 00ea | | Load_Encached Null_String_Cache 00a8 4801 |H | Short_Literal 0x1 00a9 480d |H | Short_Literal 0xd 00aa e003 | | Load 0x0,0x3 00ab 0387 | | Declare_Variable Package 00ac 00d8 | | Load_Top At_Offset_0 00ad 020f | | Execute Module,Activate 00ae e7fc | | Load 0x3,-0x4 00af 0092 1050 | P| Action Push_String_Extended,0x1050 ; ",Donation=0,Resulting_Count=0,Accept_Date=(<PLUS_2_WEEKS>)" 00b1 01cc | | Execute Vector,Catenate 00b2 00d9 | | Load_Top At_Offset_1 00b3 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00b4 0092 1051 | Q| Action Push_String_Extended,0x1051 ; "!Machine.Temporary.Authorize_Illegally_Executed" 00b6 e7ff | | Load 0x3,-0x1 00b7 e608 | | Load 0x3,0x8 00b8 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00b9 e008 | | Load 0x0,0x8 00ba e009 | | Load 0x0,0x9 00bb 4803 |H | Short_Literal 0x3 00bc 0092 1052 | R| Action Push_String_Extended,0x1052 ; " " 00be e00a | | Load 0x0,0xa 00bf 0387 | | Declare_Variable Package 00c0 00d8 | | Load_Top At_Offset_0 00c1 020f | | Execute Module,Activate 00c2 e00b | | Load 0x0,0xb 00c3 e00c | | Load 0x0,0xc 00c4 4805 |H | Short_Literal 0x5 00c5 0092 1052 | R| Action Push_String_Extended,0x1052 ; " " 00c7 e00a | | Load 0x0,0xa 00c8 0387 | | Declare_Variable Package 00c9 00d8 | | Load_Top At_Offset_0 00ca 020f | | Execute Module,Activate 00cb 00e1 | | Load_Encached Boolean_Cache 00cc 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00cd 03e9 | | Declare_Variable Discrete,Duplicate 00ce e602 | | Load 0x3,0x2 00cf 0007 | | Action Break_Optional 00d0 e00d | | Load 0x0,0xd 00d1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00d2 02c7 | | Declare_Variable Any 00d3 00d8 | | Load_Top At_Offset_0 00d4 1c00 | | Execute_Immediate Run_Utility,0x0 00d5 4be8 |K | Short_Literal 0x3e8 00d6 e00e | | Load 0x0,0xe 00d7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00d8 1c08 | | Execute_Immediate Run_Utility,0x8 00d9 00d8 | | Load_Top At_Offset_0 00da 1c00 | | Execute_Immediate Run_Utility,0x0 00db 00e5 | | Load_Encached Long_Integer_Cache 00dc 029f 0223 | #| Declare_Subprogram INIT_0220,For_Call 00de 029f 023b | ;| Declare_Subprogram INIT_0238,For_Call 00e0 029f 027b | {| Declare_Subprogram INIT_0278,For_Call 00e2 029f 02ab | | Declare_Subprogram INIT_02a8,For_Call 00e4 029f 02cb | | Declare_Subprogram INIT_02c8,For_Call 00e6 029f 02fb | | Declare_Subprogram INIT_02f8,For_Call 00e8 029f 032b | +| Declare_Subprogram INIT_0328,For_Call 00ea 029f 036b | k| Declare_Subprogram INIT_0368,For_Call 00ec 029f 037b | {| Declare_Subprogram INIT_0378,For_Call 00ee 029f 0383 | | Declare_Subprogram INIT_0380,For_Call 00f0 029f 051b | | Declare_Subprogram INIT_0518,For_Call 00f2 029f 0553 | S| Declare_Subprogram INIT_0550,For_Call 00f4 029f 058b | | Declare_Subprogram INIT_0588,For_Call 00f6 029f 05d3 | | Declare_Subprogram INIT_05d0,For_Call 00f8 029f 05eb | | Declare_Subprogram INIT_05e8,For_Call 00fa BODY_0078: 00fa 8621 | ! | Call 0x3,0x21 00fb 681a |h | Jump_Zero 0x116 00fc 861c | | Call 0x3,0x1c 00fd 8623 | # | Call 0x3,0x23 00fe e7fd | | Load 0x3,-0x3 00ff 6801 |h | Jump_Zero 0x101 0100 861f | | Call 0x3,0x1f 0101 4802 |H | Short_Literal 0x2 0102 e60b | | Load 0x3,0xb 0103 e60a | | Load 0x3,0xa 0104 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0105 6809 |h | Jump_Zero 0x10f 0106 4820 |H | Short_Literal 0x20 0107 00ea | | Load_Encached Null_String_Cache 0108 4802 |H | Short_Literal 0x2 0109 e60b | | Load 0x3,0xb 010a e60a | | Load 0x3,0xa 010b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 010c e00f | | Load 0x0,0xf 010d 181c | | Execute Package,Field_Execute,Field_Number 0x1c 010e 8620 | | Call 0x3,0x20 010f 00ea | | Load_Encached Null_String_Cache 0110 0092 1053 | S| Action Push_String_Extended,0x1053 ; "<DIRECTORIES>" 0112 e60c | | Load 0x3,0xc 0113 e010 | | Load 0x0,0x10 0114 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0115 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0116 e60c | | Load 0x3,0xc 0117 e011 | | Load 0x0,0x11 0118 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0119 6811 |h | Jump_Zero 0x12b 011a 00ea | | Load_Encached Null_String_Cache 011b 0092 1054 | T| Action Push_String_Extended,0x1054 ; "<WORLDS>" 011d 4863 |Hc | Short_Literal 0x63 011e 0092 1055 | U| Action Push_String_Extended,0x1055 ; "[!Local.QA.Authorize,\x5cAuthorize]" 0120 e012 | | Load 0x0,0x12 0121 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0122 8622 | " | Call 0x3,0x22 0123 e013 | | Load 0x0,0x13 0124 180e | | Execute Package,Field_Execute,Field_Number 0xe 0125 4803 |H | Short_Literal 0x3 0126 0092 1056 | V| Action Push_String_Extended,0x1056 ; "All products have been unauthorized, contact Rational" 0128 e014 | | Load 0x0,0x14 0129 1813 | | Execute Package,Field_Execute,Field_Number 0x13 012a 4505 |E | Exit_Suprogram New_Top_Offset 0x5 012b e013 | | Load 0x0,0x13 012c 180e | | Execute Package,Field_Execute,Field_Number 0xe 012d 4807 |H | Short_Literal 0x7 012e 0092 1057 | W| Action Push_String_Extended,0x1057 ; "Illegal use of Internal Rational procedure, all products will be Unauthorized if this procedure is executed again" 0130 e014 | | Load 0x0,0x14 0131 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0132 8624 | $ | Call 0x3,0x24 0133 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0134 0000 0000 | | .BLANK 0000[0x4] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 01bc | | .CONST 0x01bc ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0025 | % | .CONST 0x0025 ; Number of locals 013b INIT_0138: 013b 00e9 | | Load_Encached String_Cache 013c 02a0 | | Declare_Subprogram Null_Subprogram 013d 4818 |H | Short_Literal 0x18 013e 03d3 | | Declare_Type Access,Defined,Accesses_Protected 013f 00d8 | | Load_Top At_Offset_0 0140 03bd | | Declare_Variable Access,Duplicate 0141 00da | | Load_Top At_Offset_2 0142 0007 | | Action Break_Optional 0143 00db | | Load_Top At_Offset_3 0144 0007 | | Action Break_Optional 0145 4800 |H | Short_Literal 0x0 0146 4801 |H | Short_Literal 0x1 0147 00e3 | | Load_Encached Natural_Cache 0148 03f8 | | Declare_Type Discrete,Constrained 0149 e015 | | Load 0x0,0x15 014a e016 | | Load 0x0,0x16 014b 00da | | Load_Top At_Offset_2 014c 4800 |H | Short_Literal 0x0 014d 4801 |H | Short_Literal 0x1 014e 4801 |H | Short_Literal 0x1 014f 0092 104e | N| Action Push_String_Extended,0x104e ; "others => Unspecified" 0151 00ea | | Load_Encached Null_String_Cache 0152 00ea | | Load_Encached Null_String_Cache 0153 4801 |H | Short_Literal 0x1 0154 4801 |H | Short_Literal 0x1 0155 e003 | | Load 0x0,0x3 0156 0387 | | Declare_Variable Package 0157 00d8 | | Load_Top At_Offset_0 0158 020f | | Execute Module,Activate 0159 4800 |H | Short_Literal 0x0 015a 480d |H | Short_Literal 0xd 015b 029f 0603 | | Declare_Subprogram INIT_0600,For_Call 015d 03fd | | Declare_Type Discrete,Defined 015e e017 | | Load 0x0,0x17 015f e018 | | Load 0x0,0x18 0160 00da | | Load_Top At_Offset_2 0161 4800 |H | Short_Literal 0x0 0162 4801 |H | Short_Literal 0x1 0163 480d |H | Short_Literal 0xd 0164 0092 104f | O| Action Push_String_Extended,0x104f ; "Compose_Document => Boolean_Valued, others => unspecified" 0166 00ea | | Load_Encached Null_String_Cache 0167 00ea | | Load_Encached Null_String_Cache 0168 4801 |H | Short_Literal 0x1 0169 480d |H | Short_Literal 0xd 016a e003 | | Load 0x0,0x3 016b 0387 | | Declare_Variable Package 016c 00d8 | | Load_Top At_Offset_0 016d 020f | | Execute Module,Activate 016e e7fc | | Load 0x3,-0x4 016f 0092 1058 | X| Action Push_String_Extended,0x1058 ; ",Donation=0,Resulting_Count=0" 0171 01cc | | Execute Vector,Catenate 0172 00d9 | | Load_Top At_Offset_1 0173 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0174 0092 1051 | Q| Action Push_String_Extended,0x1051 ; "!Machine.Temporary.Authorize_Illegally_Executed" 0176 e7ff | | Load 0x3,-0x1 0177 e608 | | Load 0x3,0x8 0178 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0179 e019 | | Load 0x0,0x19 017a e01a | | Load 0x0,0x1a 017b 4803 |H | Short_Literal 0x3 017c 0092 1052 | R| Action Push_String_Extended,0x1052 ; " " 017e e00a | | Load 0x0,0xa 017f 0387 | | Declare_Variable Package 0180 00d8 | | Load_Top At_Offset_0 0181 020f | | Execute Module,Activate 0182 e01b | | Load 0x0,0x1b 0183 e01c | | Load 0x0,0x1c 0184 4805 |H | Short_Literal 0x5 0185 0092 1052 | R| Action Push_String_Extended,0x1052 ; " " 0187 e00a | | Load 0x0,0xa 0188 0387 | | Declare_Variable Package 0189 00d8 | | Load_Top At_Offset_0 018a 020f | | Execute Module,Activate 018b 00e1 | | Load_Encached Boolean_Cache 018c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 018d 03e9 | | Declare_Variable Discrete,Duplicate 018e e602 | | Load 0x3,0x2 018f 0007 | | Action Break_Optional 0190 e00d | | Load 0x0,0xd 0191 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0192 02c7 | | Declare_Variable Any 0193 00d8 | | Load_Top At_Offset_0 0194 1c00 | | Execute_Immediate Run_Utility,0x0 0195 4be8 |K | Short_Literal 0x3e8 0196 e00e | | Load 0x0,0xe 0197 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0198 1c08 | | Execute_Immediate Run_Utility,0x8 0199 00d8 | | Load_Top At_Offset_0 019a 1c00 | | Execute_Immediate Run_Utility,0x0 019b 00e5 | | Load_Encached Long_Integer_Cache 019c 029f 062b | +| Declare_Subprogram INIT_0628,For_Call 019e 029f 064b | K| Declare_Subprogram INIT_0648,For_Call 01a0 029f 0663 | c| Declare_Subprogram INIT_0660,For_Call 01a2 029f 06a3 | | Declare_Subprogram INIT_06a0,For_Call 01a4 029f 06d3 | | Declare_Subprogram INIT_06d0,For_Call 01a6 029f 06f3 | | Declare_Subprogram INIT_06f0,For_Call 01a8 029f 070b | | Declare_Subprogram INIT_0708,For_Call 01aa 029f 073b | ;| Declare_Subprogram INIT_0738,For_Call 01ac 029f 077b | {| Declare_Subprogram INIT_0778,For_Call 01ae 029f 078b | | Declare_Subprogram INIT_0788,For_Call 01b0 029f 0793 | | Declare_Subprogram INIT_0790,For_Call 01b2 029f 08eb | | Declare_Subprogram INIT_08e8,For_Call 01b4 029f 0923 | #| Declare_Subprogram INIT_0920,For_Call 01b6 029f 095b | [| Declare_Subprogram INIT_0958,For_Call 01b8 029f 09a3 | | Declare_Subprogram INIT_09a0,For_Call 01ba 029f 09bb | | Declare_Subprogram INIT_09b8,For_Call 01bc BODY_0138: 01bc 8622 | " | Call 0x3,0x22 01bd 681a |h | Jump_Zero 0x1d8 01be 861d | | Call 0x3,0x1d 01bf 8624 | $ | Call 0x3,0x24 01c0 e7fd | | Load 0x3,-0x3 01c1 6801 |h | Jump_Zero 0x1c3 01c2 8620 | | Call 0x3,0x20 01c3 4802 |H | Short_Literal 0x2 01c4 e60b | | Load 0x3,0xb 01c5 e60a | | Load 0x3,0xa 01c6 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 01c7 6809 |h | Jump_Zero 0x1d1 01c8 4820 |H | Short_Literal 0x20 01c9 00ea | | Load_Encached Null_String_Cache 01ca 4802 |H | Short_Literal 0x2 01cb e60b | | Load 0x3,0xb 01cc e60a | | Load 0x3,0xa 01cd 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 01ce e00f | | Load 0x0,0xf 01cf 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01d0 8621 | ! | Call 0x3,0x21 01d1 00ea | | Load_Encached Null_String_Cache 01d2 0092 1053 | S| Action Push_String_Extended,0x1053 ; "<DIRECTORIES>" 01d4 e60c | | Load 0x3,0xc 01d5 e010 | | Load 0x0,0x10 01d6 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01d7 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01d8 e60c | | Load 0x3,0xc 01d9 e011 | | Load 0x0,0x11 01da 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01db 6811 |h | Jump_Zero 0x1ed 01dc 00ea | | Load_Encached Null_String_Cache 01dd 0092 1054 | T| Action Push_String_Extended,0x1054 ; "<WORLDS>" 01df 4863 |Hc | Short_Literal 0x63 01e0 0092 1055 | U| Action Push_String_Extended,0x1055 ; "[!Local.QA.Authorize,\x5cAuthorize]" 01e2 e012 | | Load 0x0,0x12 01e3 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01e4 8623 | # | Call 0x3,0x23 01e5 e013 | | Load 0x0,0x13 01e6 180e | | Execute Package,Field_Execute,Field_Number 0xe 01e7 4803 |H | Short_Literal 0x3 01e8 0092 1056 | V| Action Push_String_Extended,0x1056 ; "All products have been unauthorized, contact Rational" 01ea e014 | | Load 0x0,0x14 01eb 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01ec 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01ed e013 | | Load 0x0,0x13 01ee 180e | | Execute Package,Field_Execute,Field_Number 0xe 01ef 4807 |H | Short_Literal 0x7 01f0 0092 1057 | W| Action Push_String_Extended,0x1057 ; "Illegal use of Internal Rational procedure, all products will be Unauthorized if this procedure is executed again" 01f2 e014 | | Load 0x0,0x14 01f3 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01f4 8625 | % | Call 0x3,0x25 01f5 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01f6 0000 0000 | | .XXX[0x2] 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 01fb | | .CONST 0x01fb ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0001 | | .CONST 0x0001 ; Number of locals 01fb BODY_01f8: 01fb INIT_01f8: 01fb 4607 |F | Jump_Case 0x8 01fc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 01fd 7806 |x | Jump 0x204 ; case 0x1 01fe 7809 |x | Jump 0x208 ; case 0x2 01ff 780d |x | Jump 0x20d ; case 0x3 0200 7810 |x | Jump 0x211 ; case 0x4 0201 7811 |x | Jump 0x213 ; case 0x5 0202 7812 |x | Jump 0x215 ; case 0x6 0203 7815 |x | Jump 0x219 ; case 0x7 0204 00da | | Load_Top At_Offset_2 0205 0091 1031 | 1| Action Push_String_Extended_Indexed,0x1031 ; "NONE" 0207 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0208 00db | | Load_Top At_Offset_3 0209 00db | | Load_Top At_Offset_3 020a 00e0 | | Load_Encached Standard_Cache 020b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 020c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 020d 00da | | Load_Top At_Offset_2 020e 00e0 | | Load_Encached Standard_Cache 020f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0210 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0211 00db | | Load_Top At_Offset_3 0212 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0213 00db | | Load_Top At_Offset_3 0214 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0215 e609 | | Load 0x3,0x9 0216 00dc | | Load_Top At_Offset_4 0217 0267 | g | Execute Discrete,Predecessor 0218 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0219 e609 | | Load 0x3,0x9 021a 00dc | | Load_Top At_Offset_4 021b 0268 | h | Execute Discrete,Successor 021c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 021d 0000 0000 | | .XXX[0x3] 021f 0000 | | 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0228 | ( | .CONST 0x0228 ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0002 | | .CONST 0x0002 ; Number of locals 0223 INIT_0220: 0223 e9fd | | Load 0x4,-0x3 0224 e9fe | | Load 0x4,-0x2 0225 e9ff | | Load 0x4,-0x1 0226 e01d | | Load 0x0,0x1d 0227 180d | | Execute Package,Field_Execute,Field_Number 0xd 0228 BODY_0220: 0228 00d8 | | Load_Top At_Offset_0 0229 01db | | Execute Vector,Length 022a 6809 |h | Jump_Zero 0x234 022b 4802 |H | Short_Literal 0x2 022c 4801 |H | Short_Literal 0x1 022d 4803 |H | Short_Literal 0x3 022e 00db | | Load_Top At_Offset_3 022f e01e | | Load 0x0,0x1e 0230 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0231 e01e | | Load 0x0,0x1e 0232 180f | | Execute Package,Field_Execute,Field_Number 0xf 0233 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0234 00ea | | Load_Encached Null_String_Cache 0235 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0236 0000 0000 | | .XXX[0x2] 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 023b | ; | .CONST 0x023b ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0001 | | .CONST 0x0001 ; Number of locals 023b BODY_0238: 023b INIT_0238: 023b 4801 |H | Short_Literal 0x1 023c 0092 1059 | Y| Action Push_String_Extended,0x1059 ; "NAME" 023e 4800 |H | Short_Literal 0x0 023f e9ff | | Load 0x4,-0x1 0240 e608 | | Load 0x3,0x8 0241 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0242 e00f | | Load 0x0,0xf 0243 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0244 681e |h | Jump_Zero 0x263 0245 4800 |H | Short_Literal 0x0 0246 00db | | Load_Top At_Offset_3 0247 e608 | | Load 0x3,0x8 0248 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0249 6819 |h | Jump_Zero 0x263 024a 00db | | Load_Top At_Offset_3 024b 680f |h | Jump_Zero 0x25b 024c e614 | | Load 0x3,0x14 024d 0092 105a | Z| Action Push_String_Extended,0x105a ; "NAME => (" 024f 00ea | | Load_Encached Null_String_Cache 0250 4800 |H | Short_Literal 0x0 0251 e9ff | | Load 0x4,-0x1 0252 e608 | | Load 0x3,0x8 0253 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0254 01cc | | Execute Vector,Catenate 0255 0092 105b | [| Action Push_String_Extended,0x105b ; "), " 0257 01cc | | Execute Vector,Catenate 0258 e00e | | Load 0x0,0xe 0259 1818 | | Execute Package,Field_Execute,Field_Number 0x18 025a 00d1 | | Pop_Control Pop_Count_1 025b 00ea | | Load_Encached Null_String_Cache 025c 4800 |H | Short_Literal 0x0 025d e9ff | | Load 0x4,-0x1 025e e608 | | Load 0x3,0x8 025f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0260 e00f | | Load 0x0,0xf 0261 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0262 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0263 00db | | Load_Top At_Offset_3 0264 680b |h | Jump_Zero 0x270 0265 e614 | | Load 0x3,0x14 0266 4800 |H | Short_Literal 0x0 0267 e9ff | | Load 0x4,-0x1 0268 e608 | | Load 0x3,0x8 0269 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 026a 0092 105c | \| Action Push_String_Extended,0x105c ; ", " 026c 01cc | | Execute Vector,Catenate 026d e00e | | Load 0x0,0xe 026e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 026f 00d1 | | Pop_Control Pop_Count_1 0270 4800 |H | Short_Literal 0x0 0271 00db | | Load_Top At_Offset_3 0272 e608 | | Load 0x3,0x8 0273 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0274 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0275 0000 0000 | | .XXX[0x3] 0277 0000 | | 0278 ; -------------------------------------------------------------------------------------- 0278 ; SUBPROGRAM 0278 ; -------------------------------------------------------------------------------------- 0278 027f | | .CONST 0x027f ; Address of begin 0279 0004 | | .CONST 0x0004 ; Address of exception handler 027a 0003 | | .CONST 0x0003 ; Number of locals 027b INIT_0278: 027b e608 | | Load 0x3,0x8 027c 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 027d 029f 09d3 | | Declare_Subprogram INIT_09d0,For_Call 027f BODY_0278: 027f 4801 |H | Short_Literal 0x1 0280 0092 105d | ]| Action Push_String_Extended,0x105d ; "QUERY" 0282 4800 |H | Short_Literal 0x0 0283 e9ff | | Load 0x4,-0x1 0284 e608 | | Load 0x3,0x8 0285 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0286 e00f | | Load 0x0,0xf 0287 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0288 6819 |h | Jump_Zero 0x2a2 0289 00ea | | Load_Encached Null_String_Cache 028a 4800 |H | Short_Literal 0x0 028b e9ff | | Load 0x4,-0x1 028c e608 | | Load 0x3,0x8 028d 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 028e e608 | | Load 0x3,0x8 028f 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0290 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0291 00cf | | Action Mark_Auxiliary 0292 4820 |H | Short_Literal 0x20 0293 e9fd | | Load 0x4,-0x3 0294 01cb | | Execute Vector,Append 0295 e9fd | | Load 0x4,-0x3 0296 4800 |H | Short_Literal 0x0 0297 e802 | | Load 0x4,0x2 0298 8618 | | Call 0x3,0x18 0299 01cc | | Execute Vector,Catenate 029a 0092 105e | ^| Action Push_String_Extended,0x105e ; "? [N] : " 029c 01cc | | Execute Vector,Catenate 029d e00d | | Load 0x0,0xd 029e 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 029f 8803 | | Call 0x4,0x3 02a0 00c9 | | Action Pop_Auxiliary_Loop 02a1 7ff0 | | Jump 0x292 02a2 e9fe | | Load 0x4,-0x2 02a3 e9ff | | Load 0x4,-0x1 02a4 8617 | | Call 0x3,0x17 02a5 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 02a6 0000 0000 | | .XXX[0x2] 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; SUBPROGRAM 02a8 ; -------------------------------------------------------------------------------------- 02a8 02af | | .CONST 0x02af ; Address of begin 02a9 0004 | | .CONST 0x0004 ; Address of exception handler 02aa 0003 | | .CONST 0x0003 ; Number of locals 02ab INIT_02a8: 02ab 029f 0a03 | | Declare_Subprogram INIT_0a00,For_Call 02ad 029f 0a23 | #| Declare_Subprogram INIT_0a20,For_Call 02af BODY_02a8: 02af e9ff | | Load 0x4,-0x1 02b0 01db | | Execute Vector,Length 02b1 6801 |h | Jump_Zero 0x2b3 02b2 8802 | | Call 0x4,0x2 02b3 00cf | | Action Mark_Auxiliary 02b4 e9fe | | Load 0x4,-0x2 02b5 0092 105f | _| Action Push_String_Extended,0x105f ; " [" 02b7 01cc | | Execute Vector,Catenate 02b8 4820 |H | Short_Literal 0x20 02b9 4800 |H | Short_Literal 0x0 02ba 480a |H | Short_Literal 0xa 02bb e9fd | | Load 0x4,-0x3 02bc e00f | | Load 0x0,0xf 02bd 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02be 01cc | | Execute Vector,Catenate 02bf 0092 1060 | `| Action Push_String_Extended,0x1060 ; "] : " 02c1 01cc | | Execute Vector,Catenate 02c2 e00d | | Load 0x0,0xd 02c3 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 02c4 8803 | | Call 0x4,0x3 02c5 00c9 | | Action Pop_Auxiliary_Loop 02c6 7fed | | Jump 0x2b4 02c7 0000 | | .XXX[0x1] 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; SUBPROGRAM 02c8 ; -------------------------------------------------------------------------------------- 02c8 02cf | | .CONST 0x02cf ; Address of begin 02c9 0004 | | .CONST 0x0004 ; Address of exception handler 02ca 0003 | | .CONST 0x0003 ; Number of locals 02cb INIT_02c8: 02cb 029f 0a43 | C| Declare_Subprogram INIT_0a40,For_Call 02cd 029f 0a5b | [| Declare_Subprogram INIT_0a58,For_Call 02cf BODY_02c8: 02cf e603 | | Load 0x3,0x3 02d0 6805 |h | Jump_Zero 0x2d6 02d1 e603 | | Load 0x3,0x3 02d2 0227 | ' | Execute Access,All_Reference 02d3 0335 | 5 | Declare_Variable Array,Duplicate 02d4 00cd | | Action Spare6_Action 02d5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02d6 e7fd | | Load 0x3,-0x3 02d7 7006 |p | Jump_Nonzero 0x2de 02d8 00ea | | Load_Encached Null_String_Cache 02d9 00ea | | Load_Encached Null_String_Cache 02da 0092 1061 | a| Action Push_String_Extended,0x1061 ; "<TODAY>" 02dc 8616 | | Call 0x3,0x16 02dd 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02de e9ff | | Load 0x4,-0x1 02df 01db | | Execute Vector,Length 02e0 6801 |h | Jump_Zero 0x2e2 02e1 8802 | | Call 0x4,0x2 02e2 00cf | | Action Mark_Auxiliary 02e3 e9fe | | Load 0x4,-0x2 02e4 0092 1062 | b| Action Push_String_Extended,0x1062 ; ": Enter Date for accepting tokens [" 02e6 01cc | | Execute Vector,Catenate 02e7 00ea | | Load_Encached Null_String_Cache 02e8 480d |H | Short_Literal 0xd 02e9 e60b | | Load 0x3,0xb 02ea e60a | | Load 0x3,0xa 02eb 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 02ec 01cc | | Execute Vector,Catenate 02ed 0092 1060 | `| Action Push_String_Extended,0x1060 ; "] : " 02ef 01cc | | Execute Vector,Catenate 02f0 e00d | | Load 0x0,0xd 02f1 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 02f2 8803 | | Call 0x4,0x3 02f3 00c9 | | Action Pop_Auxiliary_Loop 02f4 7fee | | Jump 0x2e3 02f5 0000 0000 | | .XXX[0x3] 02f7 0000 | | 02f8 ; -------------------------------------------------------------------------------------- 02f8 ; SUBPROGRAM 02f8 ; -------------------------------------------------------------------------------------- 02f8 02fd | | .CONST 0x02fd ; Address of begin 02f9 0004 | | .CONST 0x0004 ; Address of exception handler 02fa 0002 | | .CONST 0x0002 ; Number of locals 02fb INIT_02f8: 02fb 029f 0a73 | s| Declare_Subprogram INIT_0a70,For_Call 02fd BODY_02f8: 02fd e604 | | Load 0x3,0x4 02fe 6805 |h | Jump_Zero 0x304 02ff e604 | | Load 0x3,0x4 0300 0227 | ' | Execute Access,All_Reference 0301 0335 | 5 | Declare_Variable Array,Duplicate 0302 00cd | | Action Spare6_Action 0303 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0304 e7fd | | Load 0x3,-0x3 0305 7003 |p | Jump_Nonzero 0x309 0306 e01f | | Load 0x0,0x1f 0307 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0308 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0309 00db | | Load_Top At_Offset_3 030a 01db | | Execute Vector,Length 030b 6802 |h | Jump_Zero 0x30e 030c 00db | | Load_Top At_Offset_3 030d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 030e 00cf | | Action Mark_Auxiliary 030f e9fe | | Load 0x4,-0x2 0310 0092 1063 | c| Action Push_String_Extended,0x1063 ; ": Enter Site ID accepting tokens [" 0312 01cc | | Execute Vector,Catenate 0313 00ea | | Load_Encached Null_String_Cache 0314 480c |H | Short_Literal 0xc 0315 e60b | | Load 0x3,0xb 0316 e60a | | Load 0x3,0xa 0317 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0318 01cc | | Execute Vector,Catenate 0319 0092 1060 | `| Action Push_String_Extended,0x1060 ; "] : " 031b 01cc | | Execute Vector,Catenate 031c e00d | | Load 0x0,0xd 031d 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 031e 8802 | | Call 0x4,0x2 031f 00c9 | | Action Pop_Auxiliary_Loop 0320 7fee | | Jump 0x30f 0321 0000 0000 | | .BLANK 0000[0x7] 0328 ; -------------------------------------------------------------------------------------- 0328 ; SUBPROGRAM 0328 ; -------------------------------------------------------------------------------------- 0328 032b | + | .CONST 0x032b ; Address of begin 0329 0004 | | .CONST 0x0004 ; Address of exception handler 032a 0001 | | .CONST 0x0001 ; Number of locals 032b BODY_0328: 032b INIT_0328: 032b 00ea | | Load_Encached Null_String_Cache 032c 0092 1064 | d| Action Push_String_Extended,0x1064 ; "<FOREVER>" 032e e7fe | | Load 0x3,-0x2 032f 8616 | | Call 0x3,0x16 0330 e602 | | Load 0x3,0x2 0331 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0332 a606 | | Store_Unchecked 0x3,0x6 0333 e7fd | | Load 0x3,-0x3 0334 7004 |p | Jump_Nonzero 0x339 0335 e020 | | Load 0x0,0x20 0336 180e | | Execute Package,Field_Execute,Field_Number 0xe 0337 a615 | | Store_Unchecked 0x3,0x15 0338 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0339 e7fd | | Load 0x3,-0x3 033a a615 | | Store_Unchecked 0x3,0x15 033b 4800 |H | Short_Literal 0x0 033c 0092 1065 | e| Action Push_String_Extended,0x1065 ; "Product_Name" 033e e60e | | Load 0x3,0xe 033f 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0340 4800 |H | Short_Literal 0x0 0341 0092 1066 | f| Action Push_String_Extended,0x1066 ; "Authorization_Code" 0343 e60e | | Load 0x3,0xe 0344 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0345 4800 |H | Short_Literal 0x0 0346 0092 1067 | g| Action Push_String_Extended,0x1067 ; "Expiration_Date" 0348 e60e | | Load 0x3,0xe 0349 1812 | | Execute Package,Field_Execute,Field_Number 0x12 034a 4800 |H | Short_Literal 0x0 034b 0092 1068 | h| Action Push_String_Extended,0x1068 ; "Product" 034d e60f | | Load 0x3,0xf 034e 1812 | | Execute Package,Field_Execute,Field_Number 0x12 034f 4802 |H | Short_Literal 0x2 0350 0092 1069 | i| Action Push_String_Extended,0x1069 ; "Donation" 0352 e60f | | Load 0x3,0xf 0353 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0354 4802 |H | Short_Literal 0x2 0355 0092 106a | j| Action Push_String_Extended,0x106a ; "Resulting_Count" 0357 e60f | | Load 0x3,0xf 0358 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0359 4800 |H | Short_Literal 0x0 035a 0092 106b | k| Action Push_String_Extended,0x106b ; "Code" 035c e60f | | Load 0x3,0xf 035d 1812 | | Execute Package,Field_Execute,Field_Number 0x12 035e 4800 |H | Short_Literal 0x0 035f 0092 106c | l| Action Push_String_Extended,0x106c ; "Accept Date" 0361 e60f | | Load 0x3,0xf 0362 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0363 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0364 0000 0000 | | .BLANK 0000[0x4] 0368 ; -------------------------------------------------------------------------------------- 0368 ; SUBPROGRAM 0368 ; -------------------------------------------------------------------------------------- 0368 036d | m | .CONST 0x036d ; Address of begin 0369 0004 | | .CONST 0x0004 ; Address of exception handler 036a 0002 | | .CONST 0x0002 ; Number of locals 036b INIT_0368: 036b 029f 0a9b | | Declare_Subprogram INIT_0a98,For_Call 036d BODY_0368: 036d 00cf | | Action Mark_Auxiliary 036e e9ff | | Load 0x4,-0x1 036f e00d | | Load 0x0,0xd 0370 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0371 8802 | | Call 0x4,0x2 0372 00c9 | | Action Pop_Auxiliary_Loop 0373 7ffa | | Jump 0x36e 0374 0000 0000 | | .BLANK 0000[0x4] 0378 ; -------------------------------------------------------------------------------------- 0378 ; SUBPROGRAM 0378 ; -------------------------------------------------------------------------------------- 0378 037d | } | .CONST 0x037d ; Address of begin 0379 0004 | | .CONST 0x0004 ; Address of exception handler 037a 0002 | | .CONST 0x0002 ; Number of locals 037b INIT_0378: 037b 029f 0abb | | Declare_Subprogram INIT_0ab8,For_Call 037d BODY_0378: 037d 8802 | | Call 0x4,0x2 037e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 037f 0000 | | .XXX[0x1] 0380 ; -------------------------------------------------------------------------------------- 0380 ; SUBPROGRAM 0380 ; -------------------------------------------------------------------------------------- 0380 038c | | .CONST 0x038c ; Address of begin 0381 0004 | | .CONST 0x0004 ; Address of exception handler 0382 0003 | | .CONST 0x0003 ; Number of locals 0383 INIT_0380: 0383 4800 |H | Short_Literal 0x0 0384 4803 |H | Short_Literal 0x3 0385 e60b | | Load 0x3,0xb 0386 e60a | | Load 0x3,0xa 0387 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0388 00e1 | | Load_Encached Boolean_Cache 0389 03f1 | | Declare_Variable Discrete,With_Value 038a 029f 0b03 | | Declare_Subprogram INIT_0b00,For_Call 038c BODY_0380: 038c 4801 |H | Short_Literal 0x1 038d e60b | | Load 0x3,0xb 038e e60a | | Load 0x3,0xa 038f 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0390 6816 |h | Jump_Zero 0x3a7 0391 4801 |H | Short_Literal 0x1 0392 e60b | | Load 0x3,0xb 0393 e60a | | Load 0x3,0xa 0394 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0395 6811 |h | Jump_Zero 0x3a7 0396 00ea | | Load_Encached Null_String_Cache 0397 4801 |H | Short_Literal 0x1 0398 e60b | | Load 0x3,0xb 0399 e60a | | Load 0x3,0xa 039a 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 039b e602 | | Load 0x3,0x2 039c 03b6 | | Declare_Variable Access,By_Allocation,With_Value 039d a605 | | Store_Unchecked 0x3,0x5 039e e613 | | Load 0x3,0x13 039f 00ea | | Load_Encached Null_String_Cache 03a0 e605 | | Load 0x3,0x5 03a1 0227 | ' | Execute Access,All_Reference 03a2 4801 |H | Short_Literal 0x1 03a3 e00d | | Load 0x0,0xd 03a4 1814 | | Execute Package,Field_Execute,Field_Number 0x14 03a5 c613 | | Store 0x3,0x13 03a6 7803 |x | Jump 0x3aa 03a7 e00d | | Load 0x0,0xd 03a8 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 03a9 c613 | | Store 0x3,0x13 03aa e614 | | Load 0x3,0x14 03ab e00e | | Load 0x0,0xe 03ac 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 03ad 681a |h | Jump_Zero 0x3c8 03ae e614 | | Load 0x3,0x14 03af 4820 |H | Short_Literal 0x20 03b0 e614 | | Load 0x3,0x14 03b1 e00e | | Load 0x0,0xe 03b2 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 03b3 0afe | | Execute_Immediate Plus,-0x2 03b4 00d8 | | Load_Top At_Offset_0 03b5 00e3 | | Load_Encached Natural_Cache 03b6 0260 | ` | Execute Discrete,In_Type 03b7 7001 |p | Jump_Nonzero 0x3b9 03b8 0801 | | Execute_Immediate Raise,0x1 03b9 e00e | | Load 0x0,0xe 03ba 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 03bb 00d1 | | Pop_Control Pop_Count_1 03bc 4801 |H | Short_Literal 0x1 03bd 4801 |H | Short_Literal 0x1 03be 0092 106d | m| Action Push_String_Extended,0x106d ; "~comment(PRODUCTS => (" 03c0 e614 | | Load 0x3,0x14 03c1 e00e | | Load 0x0,0xe 03c2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03c3 01cc | | Execute Vector,Catenate 03c4 0092 106e | n| Action Push_String_Extended,0x106e ; "))" 03c6 01cc | | Execute Vector,Catenate 03c7 8803 | | Call 0x4,0x3 03c8 4801 |H | Short_Literal 0x1 03c9 4800 |H | Short_Literal 0x0 03ca 0092 106f | o| Action Push_String_Extended,0x106f ; "~smse_title(" 03cc 8803 | | Call 0x4,0x3 03cd 4800 |H | Short_Literal 0x0 03ce 4800 |H | Short_Literal 0x0 03cf 0092 1070 | p| Action Push_String_Extended,0x1070 ; "Product Authorization Codes" 03d1 8803 | | Call 0x4,0x3 03d2 4801 |H | Short_Literal 0x1 03d3 4800 |H | Short_Literal 0x0 03d4 0092 1071 | q| Action Push_String_Extended,0x1071 ; "~<" 03d6 8803 | | Call 0x4,0x3 03d7 4801 |H | Short_Literal 0x1 03d8 e613 | | Load 0x3,0x13 03d9 e00d | | Load 0x0,0xd 03da 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 03db 4800 |H | Short_Literal 0x0 03dc 4801 |H | Short_Literal 0x1 03dd 0092 1072 | r| Action Push_String_Extended,0x1072 ; "Machine ID :" 03df e7fd | | Load 0x3,-0x3 03e0 00e0 | | Load_Encached Standard_Cache 03e1 1818 | | Execute Package,Field_Execute,Field_Number 0x18 03e2 01cc | | Execute Vector,Catenate 03e3 8803 | | Call 0x4,0x3 03e4 00d9 | | Load_Top At_Offset_1 03e5 6806 |h | Jump_Zero 0x3ec 03e6 4801 |H | Short_Literal 0x1 03e7 4801 |H | Short_Literal 0x1 03e8 0092 1073 | s| Action Push_String_Extended,0x1073 ; ")" 03ea 8803 | | Call 0x4,0x3 03eb 7804 |x | Jump 0x3f0 03ec 4801 |H | Short_Literal 0x1 03ed e613 | | Load 0x3,0x13 03ee e00d | | Load 0x0,0xd 03ef 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 03f0 e610 | | Load 0x3,0x10 03f1 6859 |hY | Jump_Zero 0x44b 03f2 4801 |H | Short_Literal 0x1 03f3 4801 |H | Short_Literal 0x1 03f4 0092 1074 | t| Action Push_String_Extended,0x1074 ; "~majorheading(" 03f6 8803 | | Call 0x4,0x3 03f7 4800 |H | Short_Literal 0x0 03f8 4801 |H | Short_Literal 0x1 03f9 0092 1075 | u| Action Push_String_Extended,0x1075 ; "PRODUCT SESSION AUTHORIZATION" 03fb 8803 | | Call 0x4,0x3 03fc 4801 |H | Short_Literal 0x1 03fd 4801 |H | Short_Literal 0x1 03fe 0092 1073 | s| Action Push_String_Extended,0x1073 ; ")" 0400 8803 | | Call 0x4,0x3 0401 4801 |H | Short_Literal 0x1 0402 4801 |H | Short_Literal 0x1 0403 0092 1076 | v| Action Push_String_Extended,0x1076 ; "~sb_e(" 0405 8803 | | Call 0x4,0x3 0406 4801 |H | Short_Literal 0x1 0407 4801 |H | Short_Literal 0x1 0408 0092 1077 | w| Action Push_String_Extended,0x1077 ; "~null{~environment{point_size=8}" 040a 8803 | | Call 0x4,0x3 040b 4801 |H | Short_Literal 0x1 040c 4800 |H | Short_Literal 0x0 040d 0092 1078 | x| Action Push_String_Extended,0x1078 ; "~BOLD(" 040f 8803 | | Call 0x4,0x3 0410 4800 |H | Short_Literal 0x0 0411 4800 |H | Short_Literal 0x0 0412 0092 1079 | y| Action Push_String_Extended,0x1079 ; "SITE ID : " 0414 e604 | | Load 0x3,0x4 0415 0227 | ' | Execute Access,All_Reference 0416 01cc | | Execute Vector,Catenate 0417 8803 | | Call 0x4,0x3 0418 4801 |H | Short_Literal 0x1 0419 4801 |H | Short_Literal 0x1 041a 0092 1073 | s| Action Push_String_Extended,0x1073 ; ")" 041c 8803 | | Call 0x4,0x3 041d 4801 |H | Short_Literal 0x1 041e e613 | | Load 0x3,0x13 041f e00d | | Load 0x0,0xd 0420 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0421 4800 |H | Short_Literal 0x0 0422 4801 |H | Short_Literal 0x1 0423 0092 107a | z| Action Push_String_Extended,0x107a ; "Execute" 0425 8803 | | Call 0x4,0x3 0426 4800 |H | Short_Literal 0x0 0427 4801 |H | Short_Literal 0x1 0428 0092 107b | {| Action Push_String_Extended,0x107b ; " Accept_Tokens (Product => \x22>>Product Name<<\x22," 042a 8803 | | Call 0x4,0x3 042b 4800 |H | Short_Literal 0x0 042c 4801 |H | Short_Literal 0x1 042d 0092 107c | || Action Push_String_Extended,0x107c ; " Donation => [POSITIVE-expression]," 042f 8803 | | Call 0x4,0x3 0430 4800 |H | Short_Literal 0x0 0431 4801 |H | Short_Literal 0x1 0432 0092 107d | }| Action Push_String_Extended,0x107d ; " Resulting_Count => [POSITIVE-expression]," 0434 8803 | | Call 0x4,0x3 0435 4800 |H | Short_Literal 0x0 0436 4801 |H | Short_Literal 0x1 0437 0092 107e | ~| Action Push_String_Extended,0x107e ; " Code => \x22>>Authorization Code<<\x22);" 0439 8803 | | Call 0x4,0x3 043a 4800 |H | Short_Literal 0x0 043b 4801 |H | Short_Literal 0x1 043c 0092 107f | | Action Push_String_Extended,0x107f ; "on the specified ACCEPT_DATE for the following:" 043e 8803 | | Call 0x4,0x3 043f 4801 |H | Short_Literal 0x1 0440 e613 | | Load 0x3,0x13 0441 e00d | | Load 0x0,0xd 0442 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0443 e613 | | Load 0x3,0x13 0444 e60f | | Load 0x3,0xf 0445 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0446 4801 |H | Short_Literal 0x1 0447 4801 |H | Short_Literal 0x1 0448 0092 1080 | | Action Push_String_Extended,0x1080 ; "})" 044a 8803 | | Call 0x4,0x3 044b e611 | | Load 0x3,0x11 044c 684a |hJ | Jump_Zero 0x497 044d 4801 |H | Short_Literal 0x1 044e 4801 |H | Short_Literal 0x1 044f 0092 1074 | t| Action Push_String_Extended,0x1074 ; "~majorheading(" 0451 8803 | | Call 0x4,0x3 0452 4802 |H | Short_Literal 0x2 0453 e613 | | Load 0x3,0x13 0454 e00d | | Load 0x0,0xd 0455 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0456 4800 |H | Short_Literal 0x0 0457 4801 |H | Short_Literal 0x1 0458 0092 1081 | | Action Push_String_Extended,0x1081 ; "PRODUCT AUTHORIZATION" 045a 8803 | | Call 0x4,0x3 045b 4801 |H | Short_Literal 0x1 045c 4801 |H | Short_Literal 0x1 045d 0092 1073 | s| Action Push_String_Extended,0x1073 ; ")" 045f 8803 | | Call 0x4,0x3 0460 4801 |H | Short_Literal 0x1 0461 e613 | | Load 0x3,0x13 0462 e00d | | Load 0x0,0xd 0463 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0464 4801 |H | Short_Literal 0x1 0465 4801 |H | Short_Literal 0x1 0466 0092 1076 | v| Action Push_String_Extended,0x1076 ; "~sb_e(" 0468 8803 | | Call 0x4,0x3 0469 4801 |H | Short_Literal 0x1 046a e613 | | Load 0x3,0x13 046b e00d | | Load 0x0,0xd 046c 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 046d 4800 |H | Short_Literal 0x0 046e 4801 |H | Short_Literal 0x1 046f 0092 107a | z| Action Push_String_Extended,0x107a ; "Execute" 0471 8803 | | Call 0x4,0x3 0472 4800 |H | Short_Literal 0x0 0473 4801 |H | Short_Literal 0x1 0474 0092 1082 | | Action Push_String_Extended,0x1082 ; " \x22!Implementation\x22.Product_Authorization.Register" 0476 8803 | | Call 0x4,0x3 0477 4800 |H | Short_Literal 0x0 0478 4801 |H | Short_Literal 0x1 0479 0092 1083 | | Action Push_String_Extended,0x1083 ; " (Product_Name => \x22>>Product Name<<\x22," 047b 8803 | | Call 0x4,0x3 047c 4800 |H | Short_Literal 0x0 047d 4801 |H | Short_Literal 0x1 047e 0092 1084 | | Action Push_String_Extended,0x1084 ; " Authorization_Code => \x22>>Code<<\x22," 0480 8803 | | Call 0x4,0x3 0481 4800 |H | Short_Literal 0x0 0482 4801 |H | Short_Literal 0x1 0483 0092 1085 | | Action Push_String_Extended,0x1085 ; " Expiration_Date => \x22\x22);" 0485 8803 | | Call 0x4,0x3 0486 4800 |H | Short_Literal 0x0 0487 4801 |H | Short_Literal 0x1 0488 0092 1086 | | Action Push_String_Extended,0x1086 ; "for the following:" 048a 8803 | | Call 0x4,0x3 048b 4801 |H | Short_Literal 0x1 048c e613 | | Load 0x3,0x13 048d e00d | | Load 0x0,0xd 048e 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 048f e613 | | Load 0x3,0x13 0490 e60e | | Load 0x3,0xe 0491 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0492 4801 |H | Short_Literal 0x1 0493 4801 |H | Short_Literal 0x1 0494 0092 1073 | s| Action Push_String_Extended,0x1073 ; ")" 0496 8803 | | Call 0x4,0x3 0497 e612 | | Load 0x3,0x12 0498 6846 |hF | Jump_Zero 0x4df 0499 4801 |H | Short_Literal 0x1 049a 4801 |H | Short_Literal 0x1 049b 0092 1074 | t| Action Push_String_Extended,0x1074 ; "~majorheading(" 049d 8803 | | Call 0x4,0x3 049e 4800 |H | Short_Literal 0x0 049f 4801 |H | Short_Literal 0x1 04a0 0092 1087 | | Action Push_String_Extended,0x1087 ; "SITE ID ASSIGNMENT" 04a2 8803 | | Call 0x4,0x3 04a3 4801 |H | Short_Literal 0x1 04a4 4801 |H | Short_Literal 0x1 04a5 0092 1073 | s| Action Push_String_Extended,0x1073 ; ")" 04a7 8803 | | Call 0x4,0x3 04a8 4801 |H | Short_Literal 0x1 04a9 e613 | | Load 0x3,0x13 04aa e00d | | Load 0x0,0xd 04ab 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 04ac 4801 |H | Short_Literal 0x1 04ad 4801 |H | Short_Literal 0x1 04ae 0092 1076 | v| Action Push_String_Extended,0x1076 ; "~sb_e(" 04b0 8803 | | Call 0x4,0x3 04b1 4801 |H | Short_Literal 0x1 04b2 e613 | | Load 0x3,0x13 04b3 e00d | | Load 0x0,0xd 04b4 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 04b5 4800 |H | Short_Literal 0x0 04b6 4801 |H | Short_Literal 0x1 04b7 0092 107a | z| Action Push_String_Extended,0x107a ; "Execute" 04b9 8803 | | Call 0x4,0x3 04ba 4800 |H | Short_Literal 0x0 04bb 4801 |H | Short_Literal 0x1 04bc 0092 1088 | | Action Push_String_Extended,0x1088 ; " Set_Site (Site => \x22" 04be e612 | | Load 0x3,0x12 04bf 0227 | ' | Execute Access,All_Reference 04c0 e00f | | Load 0x0,0xf 04c1 1814 | | Execute Package,Field_Execute,Field_Number 0x14 04c2 01cc | | Execute Vector,Catenate 04c3 0092 1089 | | Action Push_String_Extended,0x1089 ; "\x22," 04c5 01cc | | Execute Vector,Catenate 04c6 8803 | | Call 0x4,0x3 04c7 4800 |H | Short_Literal 0x0 04c8 4801 |H | Short_Literal 0x1 04c9 0092 108a | | Action Push_String_Extended,0x108a ; " Code => \x22" 04cb e7fd | | Load 0x3,-0x3 04cc e612 | | Load 0x3,0x12 04cd 0227 | ' | Execute Access,All_Reference 04ce e01f | | Load 0x0,0x1f 04cf 1816 | | Execute Package,Field_Execute,Field_Number 0x16 04d0 01cc | | Execute Vector,Catenate 04d1 0092 1089 | | Action Push_String_Extended,0x1089 ; "\x22," 04d3 01cc | | Execute Vector,Catenate 04d4 8803 | | Call 0x4,0x3 04d5 4800 |H | Short_Literal 0x0 04d6 4801 |H | Short_Literal 0x1 04d7 0092 108b | | Action Push_String_Extended,0x108b ; " Response => \x22<PROFILE>\x22);" 04d9 8803 | | Call 0x4,0x3 04da 4801 |H | Short_Literal 0x1 04db 4801 |H | Short_Literal 0x1 04dc 0092 1073 | s| Action Push_String_Extended,0x1073 ; ")" 04de 8803 | | Call 0x4,0x3 04df 4802 |H | Short_Literal 0x2 04e0 e613 | | Load 0x3,0x13 04e1 e00d | | Load 0x0,0xd 04e2 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 04e3 4801 |H | Short_Literal 0x1 04e4 4801 |H | Short_Literal 0x1 04e5 0092 108c | | Action Push_String_Extended,0x108c ; "~SB_V{" 04e7 8803 | | Call 0x4,0x3 04e8 00cf | | Action Mark_Auxiliary 04e9 4808 |H | Short_Literal 0x8 04ea 4804 |H | Short_Literal 0x4 04eb 0007 | | Action Break_Optional 04ec 00d8 | | Load_Top At_Offset_0 04ed e60b | | Load 0x3,0xb 04ee e60a | | Load 0x3,0xa 04ef 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 04f0 6810 |h | Jump_Zero 0x501 04f1 4800 |H | Short_Literal 0x0 04f2 4801 |H | Short_Literal 0x1 04f3 00da | | Load_Top At_Offset_2 04f4 e609 | | Load 0x3,0x9 04f5 011c | | Execute Any,Convert_Unchecked 04f6 1c01 | | Execute_Immediate Run_Utility,0x1 04f7 0092 108d | | Action Push_String_Extended,0x108d ; " => " 04f9 01cc | | Execute Vector,Catenate 04fa 00ea | | Load_Encached Null_String_Cache 04fb e806 | | Load 0x4,0x6 04fc e60b | | Load 0x3,0xb 04fd e60a | | Load 0x3,0xa 04fe 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 04ff 01cc | | Execute Vector,Catenate 0500 8803 | | Call 0x4,0x3 0501 00c8 | | Action Pop_Auxiliary_Range 0502 3fe9 |? | Loop_Increasing 0x4ec 0503 00ce | | Action Pop_Auxiliary 0504 4801 |H | Short_Literal 0x1 0505 4801 |H | Short_Literal 0x1 0506 0092 108e | | Action Push_String_Extended,0x108e ; "}" 0508 8803 | | Call 0x4,0x3 0509 e613 | | Load 0x3,0x13 050a e00d | | Load 0x0,0xd 050b 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 050c 012e | . | Execute Any,Not_Equal 050d 6804 |h | Jump_Zero 0x512 050e e613 | | Load 0x3,0x13 050f e00d | | Load 0x0,0xd 0510 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0511 c613 | | Store 0x3,0x13 0512 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0513 0000 0000 | | .BLANK 0000[0x5] 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 00da | | Load_Top At_Offset_2 051c 01db | | Execute Vector,Length 051d 6823 |h# | Jump_Zero 0x541 051e e605 | | Load 0x3,0x5 051f 6819 |h | Jump_Zero 0x539 0520 0092 108f | | Action Push_String_Extended,0x108f ; "<PROFILE>" 0522 e021 | ! | Load 0x0,0x21 0523 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0524 e021 | ! | Load 0x0,0x21 0525 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0526 00ea | | Load_Encached Null_String_Cache 0527 e605 | | Load 0x3,0x5 0528 0227 | ' | Execute Access,All_Reference 0529 e011 | | Load 0x0,0x11 052a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 052b 0092 1090 | | Action Push_String_Extended,0x1090 ; "Authorization Code for" 052d e7fd | | Load 0x3,-0x3 052e 00e0 | | Load_Encached Standard_Cache 052f 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0530 01cc | | Execute Vector,Catenate 0531 00ea | | Load_Encached Null_String_Cache 0532 4802 |H | Short_Literal 0x2 0533 e60b | | Load 0x3,0xb 0534 e60a | | Load 0x3,0xa 0535 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0536 e022 | " | Load 0x0,0x22 0537 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0538 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0539 e013 | | Load 0x0,0x13 053a 180e | | Execute Package,Field_Execute,Field_Number 0xe 053b 4806 |H | Short_Literal 0x6 053c 0092 1091 | | Action Push_String_Extended,0x1091 ; "Need to sepcify OUTPUT file when using MAIL option, no mail will be sent" 053e e014 | | Load 0x0,0x14 053f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0540 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0541 e013 | | Load 0x0,0x13 0542 180e | | Execute Package,Field_Execute,Field_Number 0xe 0543 4806 |H | Short_Literal 0x6 0544 0092 1092 | | Action Push_String_Extended,0x1092 ; "Need to specify user maillist when using MAIL option, no mail will be sent" 0546 e014 | | Load 0x0,0x14 0547 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0548 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0549 0000 0000 | | .BLANK 0000[0x7] 0550 ; -------------------------------------------------------------------------------------- 0550 ; SUBPROGRAM 0550 ; -------------------------------------------------------------------------------------- 0550 0556 | V | .CONST 0x0556 ; Address of begin 0551 0581 | | .CONST 0x0581 ; Address of exception handler 0552 0003 | | .CONST 0x0003 ; Number of locals 0553 INIT_0550: 0553 e602 | | Load 0x3,0x2 0554 029f 0b23 | #| Declare_Subprogram INIT_0b20,For_Call 0556 BODY_0550: 0556 8803 | | Call 0x4,0x3 0557 4809 |H | Short_Literal 0x9 0558 e60b | | Load 0x3,0xb 0559 e60a | | Load 0x3,0xa 055a 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 055b 6823 |h# | Jump_Zero 0x57f 055c 4809 |H | Short_Literal 0x9 055d e60b | | Load 0x3,0xb 055e e60a | | Load 0x3,0xa 055f 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0560 6809 |h | Jump_Zero 0x56a 0561 00ea | | Load_Encached Null_String_Cache 0562 4809 |H | Short_Literal 0x9 0563 e60b | | Load 0x3,0xb 0564 e60a | | Load 0x3,0xa 0565 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0566 e602 | | Load 0x3,0x2 0567 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0568 003a | : | Store_Top Access,At_Offset_2 0569 7809 |x | Jump 0x573 056a 0092 1093 | | Action Push_String_Extended,0x1093 ; "Enter AUTHORIZE Password : " 056c e00d | | Load 0x0,0xd 056d 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 056e e00d | | Load 0x0,0xd 056f 1867 | g | Execute Package,Field_Execute,Field_Number 0x67 0570 e602 | | Load 0x3,0x2 0571 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0572 003a | : | Store_Top Access,At_Offset_2 0573 4801 |H | Short_Literal 0x1 0574 0092 1094 | | Action Push_String_Extended,0x1094 ; "Rational/SMSE" 0576 00db | | Load_Top At_Offset_3 0577 0227 | ' | Execute Access,All_Reference 0578 e00f | | Load 0x0,0xf 0579 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 057a 6802 |h | Jump_Zero 0x57d 057b 4801 |H | Short_Literal 0x1 057c 00ca | | Action Exit_Nullary_Function 057d 4800 |H | Short_Literal 0x0 057e 00ca | | Action Exit_Nullary_Function 057f 4800 |H | Short_Literal 0x0 0580 00ca | | Action Exit_Nullary_Function 0581 TRAP_0550: 0581 0007 | | Action Break_Optional 0582 4800 |H | Short_Literal 0x0 0583 00ca | | Action Exit_Nullary_Function 0584 0000 0000 | | .BLANK 0000[0x4] 0588 ; -------------------------------------------------------------------------------------- 0588 ; SUBPROGRAM 0588 ; -------------------------------------------------------------------------------------- 0588 059b | | .CONST 0x059b ; Address of begin 0589 05c8 | | .CONST 0x05c8 ; Address of exception handler 058a 0007 | | .CONST 0x0007 ; Number of locals 058b INIT_0588: 058b 0092 1095 | | Action Push_String_Extended,0x1095 ; "!Machine.Temporary.Product_list" 058d e00d | | Load 0x0,0xd 058e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 058f 02c7 | | Declare_Variable Any 0590 00d8 | | Load_Top At_Offset_0 0591 1c00 | | Execute_Immediate Run_Utility,0x0 0592 4801 |H | Short_Literal 0x1 0593 4864 |Hd | Short_Literal 0x64 0594 00e9 | | Load_Encached String_Cache 0595 035b | [ | Declare_Type Array,Constrained 0596 0337 | 7 | Declare_Variable Array 0597 00e3 | | Load_Encached Natural_Cache 0598 03e9 | | Declare_Variable Discrete,Duplicate 0599 029f 0b3b | ;| Declare_Subprogram INIT_0b38,For_Call 059b BODY_0588: 059b e802 | | Load 0x4,0x2 059c e00d | | Load 0x0,0xd 059d 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 059e e023 | # | Load 0x0,0x23 059f 180f | | Execute Package,Field_Execute,Field_Number 0xf 05a0 e00d | | Load 0x0,0xd 05a1 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 05a2 e802 | | Load 0x4,0x2 05a3 e00d | | Load 0x0,0xd 05a4 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 05a5 4801 |H | Short_Literal 0x1 05a6 e00d | | Load 0x0,0xd 05a7 1842 | B | Execute Package,Field_Execute,Field_Number 0x42 05a8 00e3 | | Load_Encached Natural_Cache 05a9 e804 | | Load 0x4,0x4 05aa e00d | | Load 0x0,0xd 05ab 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 05ac 00d1 | | Pop_Control Pop_Count_1 05ad 005a | Z | Store_Top Discrete,At_Offset_2 05ae 4801 |H | Short_Literal 0x1 05af 4801 |H | Short_Literal 0x1 05b0 00db | | Load_Top At_Offset_3 05b1 e804 | | Load 0x4,0x4 05b2 01cf | | Execute Vector,Slice_Read 05b3 4820 |H | Short_Literal 0x20 05b4 e00f | | Load 0x0,0xf 05b5 181e | | Execute Package,Field_Execute,Field_Number 0x1e 05b6 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 05b7 00cf | | Action Mark_Auxiliary 05b8 7808 |x | Jump 0x5c1 05b9 00e3 | | Load_Encached Natural_Cache 05ba e804 | | Load 0x4,0x4 05bb e00d | | Load 0x0,0xd 05bc 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 05bd 00d1 | | Pop_Control Pop_Count_1 05be 005b | [ | Store_Top Discrete,At_Offset_3 05bf 8807 | | Call 0x4,0x7 05c0 00c9 | | Action Pop_Auxiliary_Loop 05c1 e00d | | Load 0x0,0xd 05c2 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 05c3 6ff5 |o | Jump_Zero 0x5b9 05c4 00ce | | Action Pop_Auxiliary 05c5 e00d | | Load 0x0,0xd 05c6 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 05c7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05c8 TRAP_0588: 05c8 0007 | | Action Break_Optional 05c9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05ca 0000 0000 | | .BLANK 0000[0x6] 05d0 ; -------------------------------------------------------------------------------------- 05d0 ; SUBPROGRAM 05d0 ; -------------------------------------------------------------------------------------- 05d0 05d3 | | .CONST 0x05d3 ; Address of begin 05d1 0004 | | .CONST 0x0004 ; Address of exception handler 05d2 0001 | | .CONST 0x0001 ; Number of locals 05d3 BODY_05d0: 05d3 INIT_05d0: 05d3 00cf | | Action Mark_Auxiliary 05d4 7807 |x | Jump 0x5dc 05d5 e60d | | Load 0x3,0xd 05d6 861e | | Call 0x3,0x1e 05d7 e60d | | Load 0x3,0xd 05d8 e608 | | Load 0x3,0x8 05d9 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 05da c60d | | Store 0x3,0xd 05db 00c9 | | Action Pop_Auxiliary_Loop 05dc e60d | | Load 0x3,0xd 05dd e608 | | Load 0x3,0x8 05de 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 05df 6ff5 |o | Jump_Zero 0x5d5 05e0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05e1 0000 0000 | | .BLANK 0000[0x7] 05e8 ; -------------------------------------------------------------------------------------- 05e8 ; SUBPROGRAM 05e8 ; -------------------------------------------------------------------------------------- 05e8 05f0 | | .CONST 0x05f0 ; Address of begin 05e9 0004 | | .CONST 0x0004 ; Address of exception handler 05ea 0002 | | .CONST 0x0002 ; Number of locals 05eb INIT_05e8: 05eb e00d | | Load 0x0,0xd 05ec 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05ed 02c7 | | Declare_Variable Any 05ee 00d8 | | Load_Top At_Offset_0 05ef 1c00 | | Execute_Immediate Run_Utility,0x0 05f0 BODY_05e8: 05f0 00d8 | | Load_Top At_Offset_0 05f1 00ea | | Load_Encached Null_String_Cache 05f2 e60c | | Load 0x3,0xc 05f3 4801 |H | Short_Literal 0x1 05f4 e00d | | Load 0x0,0xd 05f5 1814 | | Execute Package,Field_Execute,Field_Number 0x14 05f6 c802 | | Store 0x4,0x2 05f7 00d8 | | Load_Top At_Offset_0 05f8 e00d | | Load 0x0,0xd 05f9 181b | | Execute Package,Field_Execute,Field_Number 0x1b 05fa c802 | | Store 0x4,0x2 05fb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05fc 0000 0000 | | .BLANK 0000[0x4] 0600 ; -------------------------------------------------------------------------------------- 0600 ; SUBPROGRAM 0600 ; -------------------------------------------------------------------------------------- 0600 0603 | | .CONST 0x0603 ; Address of begin 0601 0004 | | .CONST 0x0004 ; Address of exception handler 0602 0001 | | .CONST 0x0001 ; Number of locals 0603 BODY_0600: 0603 INIT_0600: 0603 4607 |F | Jump_Case 0x8 0604 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0605 7806 |x | Jump 0x60c ; case 0x1 0606 7809 |x | Jump 0x610 ; case 0x2 0607 780d |x | Jump 0x615 ; case 0x3 0608 7810 |x | Jump 0x619 ; case 0x4 0609 7811 |x | Jump 0x61b ; case 0x5 060a 7812 |x | Jump 0x61d ; case 0x6 060b 7815 |x | Jump 0x621 ; case 0x7 060c 00da | | Load_Top At_Offset_2 060d 0091 103f | ?| Action Push_String_Extended_Indexed,0x103f ; "NONE" 060f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0610 00db | | Load_Top At_Offset_3 0611 00db | | Load_Top At_Offset_3 0612 00e0 | | Load_Encached Standard_Cache 0613 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0614 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0615 00da | | Load_Top At_Offset_2 0616 00e0 | | Load_Encached Standard_Cache 0617 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0618 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0619 00db | | Load_Top At_Offset_3 061a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 061b 00db | | Load_Top At_Offset_3 061c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 061d e609 | | Load 0x3,0x9 061e 00dc | | Load_Top At_Offset_4 061f 0267 | g | Execute Discrete,Predecessor 0620 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0621 e609 | | Load 0x3,0x9 0622 00dc | | Load_Top At_Offset_4 0623 0268 | h | Execute Discrete,Successor 0624 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0625 0000 0000 | | .XXX[0x3] 0627 0000 | | 0628 ; -------------------------------------------------------------------------------------- 0628 ; SUBPROGRAM 0628 ; -------------------------------------------------------------------------------------- 0628 062b | + | .CONST 0x062b ; Address of begin 0629 0004 | | .CONST 0x0004 ; Address of exception handler 062a 0001 | | .CONST 0x0001 ; Number of locals 062b BODY_0628: 062b INIT_0628: 062b 4830 |H0 | Short_Literal 0x30 062c 4808 |H | Short_Literal 0x8 062d 4810 |H | Short_Literal 0x10 062e e9ff | | Load 0x4,-0x1 062f e00f | | Load 0x0,0xf 0630 180d | | Execute Package,Field_Execute,Field_Number 0xd 0631 0274 | t | Execute Discrete,Absolute_Value 0632 e00f | | Load 0x0,0xf 0633 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0634 4820 |H | Short_Literal 0x20 0635 4800 |H | Short_Literal 0x0 0636 4810 |H | Short_Literal 0x10 0637 e9fe | | Load 0x4,-0x2 0638 e00f | | Load 0x0,0xf 0639 1816 | | Execute Package,Field_Execute,Field_Number 0x16 063a 01cc | | Execute Vector,Catenate 063b 4820 |H | Short_Literal 0x20 063c 4800 |H | Short_Literal 0x0 063d 4810 |H | Short_Literal 0x10 063e e9fd | | Load 0x4,-0x3 063f e00f | | Load 0x0,0xf 0640 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0641 01cc | | Execute Vector,Catenate 0642 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0643 0000 0000 | | .BLANK 0000[0x5] 0648 ; -------------------------------------------------------------------------------------- 0648 ; SUBPROGRAM 0648 ; -------------------------------------------------------------------------------------- 0648 0650 | P | .CONST 0x0650 ; Address of begin 0649 0004 | | .CONST 0x0004 ; Address of exception handler 064a 0002 | | .CONST 0x0002 ; Number of locals 064b INIT_0648: 064b e9fd | | Load 0x4,-0x3 064c e9fe | | Load 0x4,-0x2 064d e9ff | | Load 0x4,-0x1 064e e01d | | Load 0x0,0x1d 064f 180d | | Execute Package,Field_Execute,Field_Number 0xd 0650 BODY_0648: 0650 00d8 | | Load_Top At_Offset_0 0651 01db | | Execute Vector,Length 0652 6809 |h | Jump_Zero 0x65c 0653 4802 |H | Short_Literal 0x2 0654 4801 |H | Short_Literal 0x1 0655 4803 |H | Short_Literal 0x3 0656 00db | | Load_Top At_Offset_3 0657 e01e | | Load 0x0,0x1e 0658 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0659 e01e | | Load 0x0,0x1e 065a 180f | | Execute Package,Field_Execute,Field_Number 0xf 065b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 065c 00ea | | Load_Encached Null_String_Cache 065d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 065e 0000 0000 | | .XXX[0x2] 0660 ; -------------------------------------------------------------------------------------- 0660 ; SUBPROGRAM 0660 ; -------------------------------------------------------------------------------------- 0660 0663 | c | .CONST 0x0663 ; Address of begin 0661 0004 | | .CONST 0x0004 ; Address of exception handler 0662 0001 | | .CONST 0x0001 ; Number of locals 0663 BODY_0660: 0663 INIT_0660: 0663 4801 |H | Short_Literal 0x1 0664 0092 1059 | Y| Action Push_String_Extended,0x1059 ; "NAME" 0666 4800 |H | Short_Literal 0x0 0667 e9ff | | Load 0x4,-0x1 0668 e608 | | Load 0x3,0x8 0669 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 066a e00f | | Load 0x0,0xf 066b 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 066c 681e |h | Jump_Zero 0x68b 066d 4800 |H | Short_Literal 0x0 066e 00db | | Load_Top At_Offset_3 066f e608 | | Load 0x3,0x8 0670 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0671 6819 |h | Jump_Zero 0x68b 0672 00db | | Load_Top At_Offset_3 0673 680f |h | Jump_Zero 0x683 0674 e614 | | Load 0x3,0x14 0675 0092 105a | Z| Action Push_String_Extended,0x105a ; "NAME => (" 0677 00ea | | Load_Encached Null_String_Cache 0678 4800 |H | Short_Literal 0x0 0679 e9ff | | Load 0x4,-0x1 067a e608 | | Load 0x3,0x8 067b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 067c 01cc | | Execute Vector,Catenate 067d 0092 105b | [| Action Push_String_Extended,0x105b ; "), " 067f 01cc | | Execute Vector,Catenate 0680 e00e | | Load 0x0,0xe 0681 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0682 00d1 | | Pop_Control Pop_Count_1 0683 00ea | | Load_Encached Null_String_Cache 0684 4800 |H | Short_Literal 0x0 0685 e9ff | | Load 0x4,-0x1 0686 e608 | | Load 0x3,0x8 0687 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0688 e00f | | Load 0x0,0xf 0689 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 068a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 068b 00db | | Load_Top At_Offset_3 068c 680b |h | Jump_Zero 0x698 068d e614 | | Load 0x3,0x14 068e 4800 |H | Short_Literal 0x0 068f e9ff | | Load 0x4,-0x1 0690 e608 | | Load 0x3,0x8 0691 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0692 0092 105c | \| Action Push_String_Extended,0x105c ; ", " 0694 01cc | | Execute Vector,Catenate 0695 e00e | | Load 0x0,0xe 0696 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0697 00d1 | | Pop_Control Pop_Count_1 0698 4800 |H | Short_Literal 0x0 0699 00db | | Load_Top At_Offset_3 069a e608 | | Load 0x3,0x8 069b 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 069c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 069d 0000 0000 | | .XXX[0x3] 069f 0000 | | 06a0 ; -------------------------------------------------------------------------------------- 06a0 ; SUBPROGRAM 06a0 ; -------------------------------------------------------------------------------------- 06a0 06a7 | | .CONST 0x06a7 ; Address of begin 06a1 0004 | | .CONST 0x0004 ; Address of exception handler 06a2 0003 | | .CONST 0x0003 ; Number of locals 06a3 INIT_06a0: 06a3 e608 | | Load 0x3,0x8 06a4 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 06a5 029f 0b53 | S| Declare_Subprogram INIT_0b50,For_Call 06a7 BODY_06a0: 06a7 4801 |H | Short_Literal 0x1 06a8 0092 105d | ]| Action Push_String_Extended,0x105d ; "QUERY" 06aa 4800 |H | Short_Literal 0x0 06ab e9ff | | Load 0x4,-0x1 06ac e608 | | Load 0x3,0x8 06ad 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 06ae e00f | | Load 0x0,0xf 06af 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 06b0 6819 |h | Jump_Zero 0x6ca 06b1 00ea | | Load_Encached Null_String_Cache 06b2 4800 |H | Short_Literal 0x0 06b3 e9ff | | Load 0x4,-0x1 06b4 e608 | | Load 0x3,0x8 06b5 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 06b6 e608 | | Load 0x3,0x8 06b7 1820 | | Execute Package,Field_Execute,Field_Number 0x20 06b8 0032 | 2 | Store_Top Heap_Access,At_Offset_2 06b9 00cf | | Action Mark_Auxiliary 06ba 4820 |H | Short_Literal 0x20 06bb e9fd | | Load 0x4,-0x3 06bc 01cb | | Execute Vector,Append 06bd e9fd | | Load 0x4,-0x3 06be 4800 |H | Short_Literal 0x0 06bf e802 | | Load 0x4,0x2 06c0 8619 | | Call 0x3,0x19 06c1 01cc | | Execute Vector,Catenate 06c2 0092 105e | ^| Action Push_String_Extended,0x105e ; "? [N] : " 06c4 01cc | | Execute Vector,Catenate 06c5 e00d | | Load 0x0,0xd 06c6 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 06c7 8803 | | Call 0x4,0x3 06c8 00c9 | | Action Pop_Auxiliary_Loop 06c9 7ff0 | | Jump 0x6ba 06ca e9fe | | Load 0x4,-0x2 06cb e9ff | | Load 0x4,-0x1 06cc 8618 | | Call 0x3,0x18 06cd 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 06ce 0000 0000 | | .XXX[0x2] 06d0 ; -------------------------------------------------------------------------------------- 06d0 ; SUBPROGRAM 06d0 ; -------------------------------------------------------------------------------------- 06d0 06d7 | | .CONST 0x06d7 ; Address of begin 06d1 0004 | | .CONST 0x0004 ; Address of exception handler 06d2 0003 | | .CONST 0x0003 ; Number of locals 06d3 INIT_06d0: 06d3 029f 0b83 | | Declare_Subprogram INIT_0b80,For_Call 06d5 029f 0ba3 | | Declare_Subprogram INIT_0ba0,For_Call 06d7 BODY_06d0: 06d7 e9ff | | Load 0x4,-0x1 06d8 01db | | Execute Vector,Length 06d9 6801 |h | Jump_Zero 0x6db 06da 8802 | | Call 0x4,0x2 06db 00cf | | Action Mark_Auxiliary 06dc e9fe | | Load 0x4,-0x2 06dd 0092 105f | _| Action Push_String_Extended,0x105f ; " [" 06df 01cc | | Execute Vector,Catenate 06e0 4820 |H | Short_Literal 0x20 06e1 4800 |H | Short_Literal 0x0 06e2 480a |H | Short_Literal 0xa 06e3 e9fd | | Load 0x4,-0x3 06e4 e00f | | Load 0x0,0xf 06e5 1816 | | Execute Package,Field_Execute,Field_Number 0x16 06e6 01cc | | Execute Vector,Catenate 06e7 0092 1060 | `| Action Push_String_Extended,0x1060 ; "] : " 06e9 01cc | | Execute Vector,Catenate 06ea e00d | | Load 0x0,0xd 06eb 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 06ec 8803 | | Call 0x4,0x3 06ed 00c9 | | Action Pop_Auxiliary_Loop 06ee 7fed | | Jump 0x6dc 06ef 0000 | | .XXX[0x1] 06f0 ; -------------------------------------------------------------------------------------- 06f0 ; SUBPROGRAM 06f0 ; -------------------------------------------------------------------------------------- 06f0 06f5 | | .CONST 0x06f5 ; Address of begin 06f1 0004 | | .CONST 0x0004 ; Address of exception handler 06f2 0002 | | .CONST 0x0002 ; Number of locals 06f3 INIT_06f0: 06f3 029f 0bc3 | | Declare_Subprogram INIT_0bc0,For_Call 06f5 BODY_06f0: 06f5 e7fd | | Load 0x3,-0x3 06f6 7005 |p | Jump_Nonzero 0x6fc 06f7 e9fc | | Load 0x4,-0x4 06f8 e9fd | | Load 0x4,-0x3 06f9 e9fe | | Load 0x4,-0x2 06fa 8616 | | Call 0x3,0x16 06fb 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 06fc 00db | | Load_Top At_Offset_3 06fd 01db | | Execute Vector,Length 06fe 6802 |h | Jump_Zero 0x701 06ff 00db | | Load_Top At_Offset_3 0700 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0701 8802 | | Call 0x4,0x2 0702 0831 | 1 | Execute_Immediate Raise,0x31 0703 0000 0000 | | .BLANK 0000[0x5] 0708 ; -------------------------------------------------------------------------------------- 0708 ; SUBPROGRAM 0708 ; -------------------------------------------------------------------------------------- 0708 070d | | .CONST 0x070d ; Address of begin 0709 0004 | | .CONST 0x0004 ; Address of exception handler 070a 0002 | | .CONST 0x0002 ; Number of locals 070b INIT_0708: 070b 029f 0bdb | | Declare_Subprogram INIT_0bd8,For_Call 070d BODY_0708: 070d e604 | | Load 0x3,0x4 070e 6805 |h | Jump_Zero 0x714 070f e604 | | Load 0x3,0x4 0710 0227 | ' | Execute Access,All_Reference 0711 0335 | 5 | Declare_Variable Array,Duplicate 0712 00cd | | Action Spare6_Action 0713 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0714 e7fd | | Load 0x3,-0x3 0715 7003 |p | Jump_Nonzero 0x719 0716 e024 | $ | Load 0x0,0x24 0717 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0718 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0719 00db | | Load_Top At_Offset_3 071a 01db | | Execute Vector,Length 071b 6802 |h | Jump_Zero 0x71e 071c 00db | | Load_Top At_Offset_3 071d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 071e 00cf | | Action Mark_Auxiliary 071f e9fe | | Load 0x4,-0x2 0720 0092 1063 | c| Action Push_String_Extended,0x1063 ; ": Enter Site ID accepting tokens [" 0722 01cc | | Execute Vector,Catenate 0723 00ea | | Load_Encached Null_String_Cache 0724 480c |H | Short_Literal 0xc 0725 e60b | | Load 0x3,0xb 0726 e60a | | Load 0x3,0xa 0727 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0728 01cc | | Execute Vector,Catenate 0729 0092 1060 | `| Action Push_String_Extended,0x1060 ; "] : " 072b 01cc | | Execute Vector,Catenate 072c e00d | | Load 0x0,0xd 072d 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 072e 8802 | | Call 0x4,0x2 072f 00c9 | | Action Pop_Auxiliary_Loop 0730 7fee | | Jump 0x71f 0731 0000 0000 | | .BLANK 0000[0x7] 0738 ; -------------------------------------------------------------------------------------- 0738 ; SUBPROGRAM 0738 ; -------------------------------------------------------------------------------------- 0738 073b | ; | .CONST 0x073b ; Address of begin 0739 0004 | | .CONST 0x0004 ; Address of exception handler 073a 0001 | | .CONST 0x0001 ; Number of locals 073b BODY_0738: 073b INIT_0738: 073b 00ea | | Load_Encached Null_String_Cache 073c 0092 1064 | d| Action Push_String_Extended,0x1064 ; "<FOREVER>" 073e e7fe | | Load 0x3,-0x2 073f 8617 | | Call 0x3,0x17 0740 e602 | | Load 0x3,0x2 0741 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0742 a606 | | Store_Unchecked 0x3,0x6 0743 e7fd | | Load 0x3,-0x3 0744 7004 |p | Jump_Nonzero 0x749 0745 e020 | | Load 0x0,0x20 0746 180e | | Execute Package,Field_Execute,Field_Number 0xe 0747 a615 | | Store_Unchecked 0x3,0x15 0748 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0749 e7fd | | Load 0x3,-0x3 074a a615 | | Store_Unchecked 0x3,0x15 074b 4800 |H | Short_Literal 0x0 074c 0092 1065 | e| Action Push_String_Extended,0x1065 ; "Product_Name" 074e e60e | | Load 0x3,0xe 074f 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0750 4800 |H | Short_Literal 0x0 0751 0092 1066 | f| Action Push_String_Extended,0x1066 ; "Authorization_Code" 0753 e60e | | Load 0x3,0xe 0754 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0755 4800 |H | Short_Literal 0x0 0756 0092 1067 | g| Action Push_String_Extended,0x1067 ; "Expiration_Date" 0758 e60e | | Load 0x3,0xe 0759 1812 | | Execute Package,Field_Execute,Field_Number 0x12 075a 4800 |H | Short_Literal 0x0 075b 0092 1068 | h| Action Push_String_Extended,0x1068 ; "Product" 075d e60f | | Load 0x3,0xf 075e 1812 | | Execute Package,Field_Execute,Field_Number 0x12 075f 4802 |H | Short_Literal 0x2 0760 0092 1069 | i| Action Push_String_Extended,0x1069 ; "Donation" 0762 e60f | | Load 0x3,0xf 0763 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0764 4802 |H | Short_Literal 0x2 0765 0092 106a | j| Action Push_String_Extended,0x106a ; "Resulting_Count" 0767 e60f | | Load 0x3,0xf 0768 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0769 4800 |H | Short_Literal 0x0 076a 0092 106b | k| Action Push_String_Extended,0x106b ; "Code" 076c e60f | | Load 0x3,0xf 076d 1812 | | Execute Package,Field_Execute,Field_Number 0x12 076e 4800 |H | Short_Literal 0x0 076f 0092 1096 | | Action Push_String_Extended,0x1096 ; "Authorization" 0771 e60f | | Load 0x3,0xf 0772 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0773 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0774 0000 0000 | | .BLANK 0000[0x4] 0778 ; -------------------------------------------------------------------------------------- 0778 ; SUBPROGRAM 0778 ; -------------------------------------------------------------------------------------- 0778 077d | } | .CONST 0x077d ; Address of begin 0779 0004 | | .CONST 0x0004 ; Address of exception handler 077a 0002 | | .CONST 0x0002 ; Number of locals 077b INIT_0778: 077b 029f 0c03 | | Declare_Subprogram INIT_0c00,For_Call 077d BODY_0778: 077d 00cf | | Action Mark_Auxiliary 077e e9ff | | Load 0x4,-0x1 077f e00d | | Load 0x0,0xd 0780 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0781 8802 | | Call 0x4,0x2 0782 00c9 | | Action Pop_Auxiliary_Loop 0783 7ffa | | Jump 0x77e 0784 0000 0000 | | .BLANK 0000[0x4] 0788 ; -------------------------------------------------------------------------------------- 0788 ; SUBPROGRAM 0788 ; -------------------------------------------------------------------------------------- 0788 078d | | .CONST 0x078d ; Address of begin 0789 0004 | | .CONST 0x0004 ; Address of exception handler 078a 0002 | | .CONST 0x0002 ; Number of locals 078b INIT_0788: 078b 029f 0c23 | #| Declare_Subprogram INIT_0c20,For_Call 078d BODY_0788: 078d 8802 | | Call 0x4,0x2 078e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 078f 0000 | | .XXX[0x1] 0790 ; -------------------------------------------------------------------------------------- 0790 ; SUBPROGRAM 0790 ; -------------------------------------------------------------------------------------- 0790 079e | | .CONST 0x079e ; Address of begin 0791 0004 | | .CONST 0x0004 ; Address of exception handler 0792 0004 | | .CONST 0x0004 ; Number of locals 0793 INIT_0790: 0793 4800 |H | Short_Literal 0x0 0794 4803 |H | Short_Literal 0x3 0795 e60b | | Load 0x3,0xb 0796 e60a | | Load 0x3,0xa 0797 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0798 00e1 | | Load_Encached Boolean_Cache 0799 03f1 | | Declare_Variable Discrete,With_Value 079a 029f 0c73 | s| Declare_Subprogram INIT_0c70,For_Call 079c 029f 0c93 | | Declare_Subprogram INIT_0c90,For_Call 079e BODY_0790: 079e 4801 |H | Short_Literal 0x1 079f e60b | | Load 0x3,0xb 07a0 e60a | | Load 0x3,0xa 07a1 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 07a2 6816 |h | Jump_Zero 0x7b9 07a3 4801 |H | Short_Literal 0x1 07a4 e60b | | Load 0x3,0xb 07a5 e60a | | Load 0x3,0xa 07a6 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 07a7 6811 |h | Jump_Zero 0x7b9 07a8 00ea | | Load_Encached Null_String_Cache 07a9 4801 |H | Short_Literal 0x1 07aa e60b | | Load 0x3,0xb 07ab e60a | | Load 0x3,0xa 07ac 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 07ad e602 | | Load 0x3,0x2 07ae 03b6 | | Declare_Variable Access,By_Allocation,With_Value 07af a605 | | Store_Unchecked 0x3,0x5 07b0 e613 | | Load 0x3,0x13 07b1 00ea | | Load_Encached Null_String_Cache 07b2 e605 | | Load 0x3,0x5 07b3 0227 | ' | Execute Access,All_Reference 07b4 4801 |H | Short_Literal 0x1 07b5 e00d | | Load 0x0,0xd 07b6 1814 | | Execute Package,Field_Execute,Field_Number 0x14 07b7 c613 | | Store 0x3,0x13 07b8 7803 |x | Jump 0x7bc 07b9 e00d | | Load 0x0,0xd 07ba 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 07bb c613 | | Store 0x3,0x13 07bc e614 | | Load 0x3,0x14 07bd e00e | | Load 0x0,0xe 07be 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 07bf 681a |h | Jump_Zero 0x7da 07c0 e614 | | Load 0x3,0x14 07c1 4820 |H | Short_Literal 0x20 07c2 e614 | | Load 0x3,0x14 07c3 e00e | | Load 0x0,0xe 07c4 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 07c5 0afe | | Execute_Immediate Plus,-0x2 07c6 00d8 | | Load_Top At_Offset_0 07c7 00e3 | | Load_Encached Natural_Cache 07c8 0260 | ` | Execute Discrete,In_Type 07c9 7001 |p | Jump_Nonzero 0x7cb 07ca 0801 | | Execute_Immediate Raise,0x1 07cb e00e | | Load 0x0,0xe 07cc 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 07cd 00d1 | | Pop_Control Pop_Count_1 07ce 4801 |H | Short_Literal 0x1 07cf 4801 |H | Short_Literal 0x1 07d0 0092 106d | m| Action Push_String_Extended,0x106d ; "~comment(PRODUCTS => (" 07d2 e614 | | Load 0x3,0x14 07d3 e00e | | Load 0x0,0xe 07d4 1813 | | Execute Package,Field_Execute,Field_Number 0x13 07d5 01cc | | Execute Vector,Catenate 07d6 0092 106e | n| Action Push_String_Extended,0x106e ; "))" 07d8 01cc | | Execute Vector,Catenate 07d9 8803 | | Call 0x4,0x3 07da 4801 |H | Short_Literal 0x1 07db 4800 |H | Short_Literal 0x0 07dc 0092 106f | o| Action Push_String_Extended,0x106f ; "~smse_title(" 07de 8803 | | Call 0x4,0x3 07df 4800 |H | Short_Literal 0x0 07e0 4800 |H | Short_Literal 0x0 07e1 0092 1070 | p| Action Push_String_Extended,0x1070 ; "Product Authorization Codes" 07e3 8803 | | Call 0x4,0x3 07e4 4801 |H | Short_Literal 0x1 07e5 4800 |H | Short_Literal 0x0 07e6 0092 1071 | q| Action Push_String_Extended,0x1071 ; "~<" 07e8 8803 | | Call 0x4,0x3 07e9 4801 |H | Short_Literal 0x1 07ea e613 | | Load 0x3,0x13 07eb e00d | | Load 0x0,0xd 07ec 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 07ed 4800 |H | Short_Literal 0x0 07ee 4801 |H | Short_Literal 0x1 07ef 0092 1072 | r| Action Push_String_Extended,0x1072 ; "Machine ID :" 07f1 e7fd | | Load 0x3,-0x3 07f2 00e0 | | Load_Encached Standard_Cache 07f3 1818 | | Execute Package,Field_Execute,Field_Number 0x18 07f4 01cc | | Execute Vector,Catenate 07f5 8803 | | Call 0x4,0x3 07f6 00da | | Load_Top At_Offset_2 07f7 6806 |h | Jump_Zero 0x7fe 07f8 4801 |H | Short_Literal 0x1 07f9 4801 |H | Short_Literal 0x1 07fa 0092 1073 | s| Action Push_String_Extended,0x1073 ; ")" 07fc 8803 | | Call 0x4,0x3 07fd 7804 |x | Jump 0x802 07fe 4801 |H | Short_Literal 0x1 07ff e613 | | Load 0x3,0x13 0800 e00d | | Load 0x0,0xd 0801 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0802 e610 | | Load 0x3,0x10 0803 685e |h^ | Jump_Zero 0x862 0804 4801 |H | Short_Literal 0x1 0805 4801 |H | Short_Literal 0x1 0806 0092 1074 | t| Action Push_String_Extended,0x1074 ; "~majorheading(" 0808 8803 | | Call 0x4,0x3 0809 4800 |H | Short_Literal 0x0 080a 4801 |H | Short_Literal 0x1 080b 0092 1075 | u| Action Push_String_Extended,0x1075 ; "PRODUCT SESSION AUTHORIZATION" 080d 8803 | | Call 0x4,0x3 080e 4801 |H | Short_Literal 0x1 080f 4801 |H | Short_Literal 0x1 0810 0092 1073 | s| Action Push_String_Extended,0x1073 ; ")" 0812 8803 | | Call 0x4,0x3 0813 4801 |H | Short_Literal 0x1 0814 4801 |H | Short_Literal 0x1 0815 0092 1076 | v| Action Push_String_Extended,0x1076 ; "~sb_e(" 0817 8803 | | Call 0x4,0x3 0818 4801 |H | Short_Literal 0x1 0819 4801 |H | Short_Literal 0x1 081a 0092 1077 | w| Action Push_String_Extended,0x1077 ; "~null{~environment{point_size=8}" 081c 8803 | | Call 0x4,0x3 081d 4801 |H | Short_Literal 0x1 081e 4800 |H | Short_Literal 0x0 081f 0092 1078 | x| Action Push_String_Extended,0x1078 ; "~BOLD(" 0821 8803 | | Call 0x4,0x3 0822 4800 |H | Short_Literal 0x0 0823 4800 |H | Short_Literal 0x0 0824 0092 1079 | y| Action Push_String_Extended,0x1079 ; "SITE ID : " 0826 e604 | | Load 0x3,0x4 0827 0227 | ' | Execute Access,All_Reference 0828 01cc | | Execute Vector,Catenate 0829 8803 | | Call 0x4,0x3 082a 4801 |H | Short_Literal 0x1 082b 4801 |H | Short_Literal 0x1 082c 0092 1073 | s| Action Push_String_Extended,0x1073 ; ")" 082e 8803 | | Call 0x4,0x3 082f 4801 |H | Short_Literal 0x1 0830 e613 | | Load 0x3,0x13 0831 e00d | | Load 0x0,0xd 0832 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0833 4800 |H | Short_Literal 0x0 0834 4801 |H | Short_Literal 0x1 0835 0092 107a | z| Action Push_String_Extended,0x107a ; "Execute" 0837 8803 | | Call 0x4,0x3 0838 4800 |H | Short_Literal 0x0 0839 4801 |H | Short_Literal 0x1 083a 0092 1097 | | Action Push_String_Extended,0x1097 ; " Accept_Tokens (Product => [STRING-expression]," 083c 8803 | | Call 0x4,0x3 083d 4800 |H | Short_Literal 0x0 083e 4801 |H | Short_Literal 0x1 083f 0092 107c | || Action Push_String_Extended,0x107c ; " Donation => [POSITIVE-expression]," 0841 8803 | | Call 0x4,0x3 0842 4800 |H | Short_Literal 0x0 0843 4801 |H | Short_Literal 0x1 0844 0092 107d | }| Action Push_String_Extended,0x107d ; " Resulting_Count => [POSITIVE-expression]," 0846 8803 | | Call 0x4,0x3 0847 4800 |H | Short_Literal 0x0 0848 4801 |H | Short_Literal 0x1 0849 0092 1098 | | Action Push_String_Extended,0x1098 ; " Code => \x22\x22," 084b 8803 | | Call 0x4,0x3 084c 4800 |H | Short_Literal 0x0 084d 4801 |H | Short_Literal 0x1 084e 0092 1099 | | Action Push_String_Extended,0x1099 ; " Authorization => \x22\x22);" 0850 8803 | | Call 0x4,0x3 0851 4800 |H | Short_Literal 0x0 0852 4801 |H | Short_Literal 0x1 0853 0092 109a | | Action Push_String_Extended,0x109a ; "using the following values:" 0855 8803 | | Call 0x4,0x3 0856 4801 |H | Short_Literal 0x1 0857 e613 | | Load 0x3,0x13 0858 e00d | | Load 0x0,0xd 0859 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 085a e613 | | Load 0x3,0x13 085b e60f | | Load 0x3,0xf 085c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 085d 4801 |H | Short_Literal 0x1 085e 4801 |H | Short_Literal 0x1 085f 0092 1080 | | Action Push_String_Extended,0x1080 ; "})" 0861 8803 | | Call 0x4,0x3 0862 e611 | | Load 0x3,0x11 0863 684a |hJ | Jump_Zero 0x8ae 0864 4801 |H | Short_Literal 0x1 0865 4801 |H | Short_Literal 0x1 0866 0092 1074 | t| Action Push_String_Extended,0x1074 ; "~majorheading(" 0868 8803 | | Call 0x4,0x3 0869 4802 |H | Short_Literal 0x2 086a e613 | | Load 0x3,0x13 086b e00d | | Load 0x0,0xd 086c 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 086d 4800 |H | Short_Literal 0x0 086e 4801 |H | Short_Literal 0x1 086f 0092 1081 | | Action Push_String_Extended,0x1081 ; "PRODUCT AUTHORIZATION" 0871 8803 | | Call 0x4,0x3 0872 4801 |H | Short_Literal 0x1 0873 4801 |H | Short_Literal 0x1 0874 0092 1073 | s| Action Push_String_Extended,0x1073 ; ")" 0876 8803 | | Call 0x4,0x3 0877 4801 |H | Short_Literal 0x1 0878 e613 | | Load 0x3,0x13 0879 e00d | | Load 0x0,0xd 087a 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 087b 4801 |H | Short_Literal 0x1 087c 4801 |H | Short_Literal 0x1 087d 0092 1076 | v| Action Push_String_Extended,0x1076 ; "~sb_e(" 087f 8803 | | Call 0x4,0x3 0880 4801 |H | Short_Literal 0x1 0881 e613 | | Load 0x3,0x13 0882 e00d | | Load 0x0,0xd 0883 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0884 4800 |H | Short_Literal 0x0 0885 4801 |H | Short_Literal 0x1 0886 0092 107a | z| Action Push_String_Extended,0x107a ; "Execute" 0888 8803 | | Call 0x4,0x3 0889 4800 |H | Short_Literal 0x0 088a 4801 |H | Short_Literal 0x1 088b 0092 1082 | | Action Push_String_Extended,0x1082 ; " \x22!Implementation\x22.Product_Authorization.Register" 088d 8803 | | Call 0x4,0x3 088e 4800 |H | Short_Literal 0x0 088f 4801 |H | Short_Literal 0x1 0890 0092 1083 | | Action Push_String_Extended,0x1083 ; " (Product_Name => \x22>>Product Name<<\x22," 0892 8803 | | Call 0x4,0x3 0893 4800 |H | Short_Literal 0x0 0894 4801 |H | Short_Literal 0x1 0895 0092 109b | | Action Push_String_Extended,0x109b ; " Authorization_Code => \x22\x22," 0897 8803 | | Call 0x4,0x3 0898 4800 |H | Short_Literal 0x0 0899 4801 |H | Short_Literal 0x1 089a 0092 1085 | | Action Push_String_Extended,0x1085 ; " Expiration_Date => \x22\x22);" 089c 8803 | | Call 0x4,0x3 089d 4800 |H | Short_Literal 0x0 089e 4801 |H | Short_Literal 0x1 089f 0092 109a | | Action Push_String_Extended,0x109a ; "using the following values:" 08a1 8803 | | Call 0x4,0x3 08a2 4801 |H | Short_Literal 0x1 08a3 e613 | | Load 0x3,0x13 08a4 e00d | | Load 0x0,0xd 08a5 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 08a6 e613 | | Load 0x3,0x13 08a7 e60e | | Load 0x3,0xe 08a8 1816 | | Execute Package,Field_Execute,Field_Number 0x16 08a9 4801 |H | Short_Literal 0x1 08aa 4801 |H | Short_Literal 0x1 08ab 0092 1073 | s| Action Push_String_Extended,0x1073 ; ")" 08ad 8803 | | Call 0x4,0x3 08ae e612 | | Load 0x3,0x12 08af 6801 |h | Jump_Zero 0x8b1 08b0 8804 | | Call 0x4,0x4 08b1 4802 |H | Short_Literal 0x2 08b2 e613 | | Load 0x3,0x13 08b3 e00d | | Load 0x0,0xd 08b4 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 08b5 4801 |H | Short_Literal 0x1 08b6 4801 |H | Short_Literal 0x1 08b7 0092 108c | | Action Push_String_Extended,0x108c ; "~SB_V{" 08b9 8803 | | Call 0x4,0x3 08ba 00cf | | Action Mark_Auxiliary 08bb 4808 |H | Short_Literal 0x8 08bc 4804 |H | Short_Literal 0x4 08bd 0007 | | Action Break_Optional 08be 00d8 | | Load_Top At_Offset_0 08bf e60b | | Load 0x3,0xb 08c0 e60a | | Load 0x3,0xa 08c1 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 08c2 6810 |h | Jump_Zero 0x8d3 08c3 4800 |H | Short_Literal 0x0 08c4 4801 |H | Short_Literal 0x1 08c5 00da | | Load_Top At_Offset_2 08c6 e609 | | Load 0x3,0x9 08c7 011c | | Execute Any,Convert_Unchecked 08c8 1c01 | | Execute_Immediate Run_Utility,0x1 08c9 0092 108d | | Action Push_String_Extended,0x108d ; " => " 08cb 01cc | | Execute Vector,Catenate 08cc 00ea | | Load_Encached Null_String_Cache 08cd e807 | | Load 0x4,0x7 08ce e60b | | Load 0x3,0xb 08cf e60a | | Load 0x3,0xa 08d0 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 08d1 01cc | | Execute Vector,Catenate 08d2 8803 | | Call 0x4,0x3 08d3 00c8 | | Action Pop_Auxiliary_Range 08d4 3fe9 |? | Loop_Increasing 0x8be 08d5 00ce | | Action Pop_Auxiliary 08d6 4801 |H | Short_Literal 0x1 08d7 4801 |H | Short_Literal 0x1 08d8 0092 108e | | Action Push_String_Extended,0x108e ; "}" 08da 8803 | | Call 0x4,0x3 08db e613 | | Load 0x3,0x13 08dc e00d | | Load 0x0,0xd 08dd 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 08de 012e | . | Execute Any,Not_Equal 08df 6804 |h | Jump_Zero 0x8e4 08e0 e613 | | Load 0x3,0x13 08e1 e00d | | Load 0x0,0xd 08e2 181b | | Execute Package,Field_Execute,Field_Number 0x1b 08e3 c613 | | Store 0x3,0x13 08e4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 08e5 0000 0000 | | .XXX[0x3] 08e7 0000 | | 08e8 ; -------------------------------------------------------------------------------------- 08e8 ; SUBPROGRAM 08e8 ; -------------------------------------------------------------------------------------- 08e8 08eb | | .CONST 0x08eb ; Address of begin 08e9 0004 | | .CONST 0x0004 ; Address of exception handler 08ea 0001 | | .CONST 0x0001 ; Number of locals 08eb BODY_08e8: 08eb INIT_08e8: 08eb 00da | | Load_Top At_Offset_2 08ec 01db | | Execute Vector,Length 08ed 6823 |h# | Jump_Zero 0x911 08ee e605 | | Load 0x3,0x5 08ef 6819 |h | Jump_Zero 0x909 08f0 0092 108f | | Action Push_String_Extended,0x108f ; "<PROFILE>" 08f2 e021 | ! | Load 0x0,0x21 08f3 1819 | | Execute Package,Field_Execute,Field_Number 0x19 08f4 e021 | ! | Load 0x0,0x21 08f5 181c | | Execute Package,Field_Execute,Field_Number 0x1c 08f6 00ea | | Load_Encached Null_String_Cache 08f7 e605 | | Load 0x3,0x5 08f8 0227 | ' | Execute Access,All_Reference 08f9 e011 | | Load 0x0,0x11 08fa 1813 | | Execute Package,Field_Execute,Field_Number 0x13 08fb 0092 1090 | | Action Push_String_Extended,0x1090 ; "Authorization Code for" 08fd e7fd | | Load 0x3,-0x3 08fe 00e0 | | Load_Encached Standard_Cache 08ff 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0900 01cc | | Execute Vector,Catenate 0901 00ea | | Load_Encached Null_String_Cache 0902 4802 |H | Short_Literal 0x2 0903 e60b | | Load 0x3,0xb 0904 e60a | | Load 0x3,0xa 0905 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0906 e022 | " | Load 0x0,0x22 0907 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0908 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0909 e013 | | Load 0x0,0x13 090a 180e | | Execute Package,Field_Execute,Field_Number 0xe 090b 4806 |H | Short_Literal 0x6 090c 0092 1091 | | Action Push_String_Extended,0x1091 ; "Need to sepcify OUTPUT file when using MAIL option, no mail will be sent" 090e e014 | | Load 0x0,0x14 090f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0910 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0911 e013 | | Load 0x0,0x13 0912 180e | | Execute Package,Field_Execute,Field_Number 0xe 0913 4806 |H | Short_Literal 0x6 0914 0092 1092 | | Action Push_String_Extended,0x1092 ; "Need to specify user maillist when using MAIL option, no mail will be sent" 0916 e014 | | Load 0x0,0x14 0917 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0918 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0919 0000 0000 | | .BLANK 0000[0x7] 0920 ; -------------------------------------------------------------------------------------- 0920 ; SUBPROGRAM 0920 ; -------------------------------------------------------------------------------------- 0920 0926 | & | .CONST 0x0926 ; Address of begin 0921 0951 | Q | .CONST 0x0951 ; Address of exception handler 0922 0003 | | .CONST 0x0003 ; Number of locals 0923 INIT_0920: 0923 e602 | | Load 0x3,0x2 0924 029f 0cf3 | | Declare_Subprogram INIT_0cf0,For_Call 0926 BODY_0920: 0926 8803 | | Call 0x4,0x3 0927 4809 |H | Short_Literal 0x9 0928 e60b | | Load 0x3,0xb 0929 e60a | | Load 0x3,0xa 092a 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 092b 6823 |h# | Jump_Zero 0x94f 092c 4809 |H | Short_Literal 0x9 092d e60b | | Load 0x3,0xb 092e e60a | | Load 0x3,0xa 092f 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0930 6809 |h | Jump_Zero 0x93a 0931 00ea | | Load_Encached Null_String_Cache 0932 4809 |H | Short_Literal 0x9 0933 e60b | | Load 0x3,0xb 0934 e60a | | Load 0x3,0xa 0935 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0936 e602 | | Load 0x3,0x2 0937 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0938 003a | : | Store_Top Access,At_Offset_2 0939 7809 |x | Jump 0x943 093a 0092 1093 | | Action Push_String_Extended,0x1093 ; "Enter AUTHORIZE Password : " 093c e00d | | Load 0x0,0xd 093d 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 093e e00d | | Load 0x0,0xd 093f 1867 | g | Execute Package,Field_Execute,Field_Number 0x67 0940 e602 | | Load 0x3,0x2 0941 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0942 003a | : | Store_Top Access,At_Offset_2 0943 4801 |H | Short_Literal 0x1 0944 0092 1094 | | Action Push_String_Extended,0x1094 ; "Rational/SMSE" 0946 00db | | Load_Top At_Offset_3 0947 0227 | ' | Execute Access,All_Reference 0948 e00f | | Load 0x0,0xf 0949 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 094a 6802 |h | Jump_Zero 0x94d 094b 4801 |H | Short_Literal 0x1 094c 00ca | | Action Exit_Nullary_Function 094d 4800 |H | Short_Literal 0x0 094e 00ca | | Action Exit_Nullary_Function 094f 4800 |H | Short_Literal 0x0 0950 00ca | | Action Exit_Nullary_Function 0951 TRAP_0920: 0951 0007 | | Action Break_Optional 0952 4800 |H | Short_Literal 0x0 0953 00ca | | Action Exit_Nullary_Function 0954 0000 0000 | | .BLANK 0000[0x4] 0958 ; -------------------------------------------------------------------------------------- 0958 ; SUBPROGRAM 0958 ; -------------------------------------------------------------------------------------- 0958 096b | k | .CONST 0x096b ; Address of begin 0959 0998 | | .CONST 0x0998 ; Address of exception handler 095a 0007 | | .CONST 0x0007 ; Number of locals 095b INIT_0958: 095b 0092 1095 | | Action Push_String_Extended,0x1095 ; "!Machine.Temporary.Product_list" 095d e00d | | Load 0x0,0xd 095e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 095f 02c7 | | Declare_Variable Any 0960 00d8 | | Load_Top At_Offset_0 0961 1c00 | | Execute_Immediate Run_Utility,0x0 0962 4801 |H | Short_Literal 0x1 0963 4864 |Hd | Short_Literal 0x64 0964 00e9 | | Load_Encached String_Cache 0965 035b | [ | Declare_Type Array,Constrained 0966 0337 | 7 | Declare_Variable Array 0967 00e3 | | Load_Encached Natural_Cache 0968 03e9 | | Declare_Variable Discrete,Duplicate 0969 029f 0d0b | | Declare_Subprogram INIT_0d08,For_Call 096b BODY_0958: 096b e802 | | Load 0x4,0x2 096c e00d | | Load 0x0,0xd 096d 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 096e e023 | # | Load 0x0,0x23 096f 180f | | Execute Package,Field_Execute,Field_Number 0xf 0970 e00d | | Load 0x0,0xd 0971 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 0972 e802 | | Load 0x4,0x2 0973 e00d | | Load 0x0,0xd 0974 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0975 4801 |H | Short_Literal 0x1 0976 e00d | | Load 0x0,0xd 0977 1842 | B | Execute Package,Field_Execute,Field_Number 0x42 0978 00e3 | | Load_Encached Natural_Cache 0979 e804 | | Load 0x4,0x4 097a e00d | | Load 0x0,0xd 097b 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 097c 00d1 | | Pop_Control Pop_Count_1 097d 005a | Z | Store_Top Discrete,At_Offset_2 097e 4801 |H | Short_Literal 0x1 097f 4801 |H | Short_Literal 0x1 0980 00db | | Load_Top At_Offset_3 0981 e804 | | Load 0x4,0x4 0982 01cf | | Execute Vector,Slice_Read 0983 4820 |H | Short_Literal 0x20 0984 e00f | | Load 0x0,0xf 0985 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0986 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0987 00cf | | Action Mark_Auxiliary 0988 7808 |x | Jump 0x991 0989 00e3 | | Load_Encached Natural_Cache 098a e804 | | Load 0x4,0x4 098b e00d | | Load 0x0,0xd 098c 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 098d 00d1 | | Pop_Control Pop_Count_1 098e 005b | [ | Store_Top Discrete,At_Offset_3 098f 8807 | | Call 0x4,0x7 0990 00c9 | | Action Pop_Auxiliary_Loop 0991 e00d | | Load 0x0,0xd 0992 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 0993 6ff5 |o | Jump_Zero 0x989 0994 00ce | | Action Pop_Auxiliary 0995 e00d | | Load 0x0,0xd 0996 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0997 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0998 TRAP_0958: 0998 0007 | | Action Break_Optional 0999 4501 |E | Exit_Suprogram New_Top_Offset 0x1 099a 0000 0000 | | .BLANK 0000[0x6] 09a0 ; -------------------------------------------------------------------------------------- 09a0 ; SUBPROGRAM 09a0 ; -------------------------------------------------------------------------------------- 09a0 09a3 | | .CONST 0x09a3 ; Address of begin 09a1 0004 | | .CONST 0x0004 ; Address of exception handler 09a2 0001 | | .CONST 0x0001 ; Number of locals 09a3 BODY_09a0: 09a3 INIT_09a0: 09a3 00cf | | Action Mark_Auxiliary 09a4 7807 |x | Jump 0x9ac 09a5 e60d | | Load 0x3,0xd 09a6 861f | | Call 0x3,0x1f 09a7 e60d | | Load 0x3,0xd 09a8 e608 | | Load 0x3,0x8 09a9 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 09aa c60d | | Store 0x3,0xd 09ab 00c9 | | Action Pop_Auxiliary_Loop 09ac e60d | | Load 0x3,0xd 09ad e608 | | Load 0x3,0x8 09ae 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 09af 6ff5 |o | Jump_Zero 0x9a5 09b0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 09b1 0000 0000 | | .BLANK 0000[0x7] 09b8 ; -------------------------------------------------------------------------------------- 09b8 ; SUBPROGRAM 09b8 ; -------------------------------------------------------------------------------------- 09b8 09c0 | | .CONST 0x09c0 ; Address of begin 09b9 0004 | | .CONST 0x0004 ; Address of exception handler 09ba 0002 | | .CONST 0x0002 ; Number of locals 09bb INIT_09b8: 09bb e00d | | Load 0x0,0xd 09bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 09bd 02c7 | | Declare_Variable Any 09be 00d8 | | Load_Top At_Offset_0 09bf 1c00 | | Execute_Immediate Run_Utility,0x0 09c0 BODY_09b8: 09c0 00d8 | | Load_Top At_Offset_0 09c1 00ea | | Load_Encached Null_String_Cache 09c2 e60c | | Load 0x3,0xc 09c3 4801 |H | Short_Literal 0x1 09c4 e00d | | Load 0x0,0xd 09c5 1814 | | Execute Package,Field_Execute,Field_Number 0x14 09c6 c802 | | Store 0x4,0x2 09c7 00d8 | | Load_Top At_Offset_0 09c8 e00d | | Load 0x0,0xd 09c9 181b | | Execute Package,Field_Execute,Field_Number 0x1b 09ca c802 | | Store 0x4,0x2 09cb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 09cc 0000 0000 | | .BLANK 0000[0x4] 09d0 ; -------------------------------------------------------------------------------------- 09d0 ; SUBPROGRAM 09d0 ; -------------------------------------------------------------------------------------- 09d0 09d7 | | .CONST 0x09d7 ; Address of begin 09d1 0004 | | .CONST 0x0004 ; Address of exception handler 09d2 0003 | | .CONST 0x0003 ; Number of locals 09d3 INIT_09d0: 09d3 e00d | | Load 0x0,0xd 09d4 1867 | g | Execute Package,Field_Execute,Field_Number 0x67 09d5 029f 0d23 | #| Declare_Subprogram INIT_0d20,For_Call 09d7 BODY_09d0: 09d7 00d9 | | Load_Top At_Offset_1 09d8 01db | | Execute Vector,Length 09d9 680c |h | Jump_Zero 0x9e6 09da 00d9 | | Load_Top At_Offset_1 09db 01dd | | Execute Vector,First 09dc 00da | | Load_Top At_Offset_2 09dd 01d7 | | Execute Vector,Field_Read 09de 0f6e | n | Execute_Immediate Equal,0x6e 09df 00da | | Load_Top At_Offset_2 09e0 01dd | | Execute Vector,First 09e1 00db | | Load_Top At_Offset_3 09e2 01d7 | | Execute Vector,Field_Read 09e3 0f4e | N | Execute_Immediate Equal,0x4e 09e4 0278 | x | Execute Discrete,Or 09e5 6802 |h | Jump_Zero 0x9e8 09e6 e025 | % | Load 0x0,0x25 09e7 0257 | W | Execute Discrete,Raise 09e8 00d9 | | Load_Top At_Offset_1 09e9 01dd | | Execute Vector,First 09ea 00da | | Load_Top At_Offset_2 09eb 01d7 | | Execute Vector,Field_Read 09ec 0f79 | y | Execute_Immediate Equal,0x79 09ed 00da | | Load_Top At_Offset_2 09ee 01dd | | Execute Vector,First 09ef 00db | | Load_Top At_Offset_3 09f0 01d7 | | Execute Vector,Field_Read 09f1 0f59 | Y | Execute_Immediate Equal,0x59 09f2 0278 | x | Execute Discrete,Or 09f3 6802 |h | Jump_Zero 0x9f6 09f4 8a03 | | Call 0x5,0x3 09f5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 09f6 0092 109c | | Action Push_String_Extended,0x109c ; "Illegal response, enter 'Y' or 'N'" 09f8 e00d | | Load 0x0,0xd 09f9 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 09fa 4501 |E | Exit_Suprogram New_Top_Offset 0x1 09fb 0000 0000 | | .BLANK 0000[0x5] 0a00 ; -------------------------------------------------------------------------------------- 0a00 ; SUBPROGRAM 0a00 ; -------------------------------------------------------------------------------------- 0a00 0a03 | | .CONST 0x0a03 ; Address of begin 0a01 0a0e | | .CONST 0x0a0e ; Address of exception handler 0a02 0001 | | .CONST 0x0001 ; Number of locals 0a03 BODY_0a00: 0a03 INIT_0a00: 0a03 e9ff | | Load 0x4,-0x1 0a04 00e2 | | Load_Encached Integer_Cache 0a05 00e0 | | Load_Encached Standard_Cache 0a06 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0a07 00d8 | | Load_Top At_Offset_0 0a08 00e3 | | Load_Encached Natural_Cache 0a09 0260 | ` | Execute Discrete,In_Type 0a0a 7001 |p | Jump_Nonzero 0xa0c 0a0b 0801 | | Execute_Immediate Raise,0x1 0a0c 00cb | | Action Pop_Block_With_Result 0a0d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0a0e TRAP_0a00: 0a0e 0007 | | Action Break_Optional 0a0f e013 | | Load 0x0,0x13 0a10 180e | | Execute Package,Field_Execute,Field_Number 0xe 0a11 4802 |H | Short_Literal 0x2 0a12 4822 |H" | Short_Literal 0x22 0a13 0092 109d | | Action Push_String_Extended,0x109d ; "Illegal numeric value \x22" 0a15 e9ff | | Load 0x4,-0x1 0a16 01cc | | Execute Vector,Catenate 0a17 01cb | | Execute Vector,Append 0a18 e014 | | Load 0x0,0x14 0a19 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0a1a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0a1b 0000 0000 | | .BLANK 0000[0x5] 0a20 ; -------------------------------------------------------------------------------------- 0a20 ; SUBPROGRAM 0a20 ; -------------------------------------------------------------------------------------- 0a20 0a28 | ( | .CONST 0x0a28 ; Address of begin 0a21 0a39 | 9 | .CONST 0x0a39 ; Address of exception handler 0a22 0002 | | .CONST 0x0002 ; Number of locals 0a23 INIT_0a20: 0a23 4820 |H | Short_Literal 0x20 0a24 e00d | | Load 0x0,0xd 0a25 1867 | g | Execute Package,Field_Execute,Field_Number 0x67 0a26 e00f | | Load 0x0,0xf 0a27 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0a28 BODY_0a20: 0a28 00d8 | | Load_Top At_Offset_0 0a29 01db | | Execute Vector,Length 0a2a 7003 |p | Jump_Nonzero 0xa2e 0a2b e9fd | | Load 0x4,-0x3 0a2c 00cb | | Action Pop_Block_With_Result 0a2d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0a2e 00d8 | | Load_Top At_Offset_0 0a2f 00e2 | | Load_Encached Integer_Cache 0a30 00e0 | | Load_Encached Standard_Cache 0a31 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0a32 00d8 | | Load_Top At_Offset_0 0a33 00e3 | | Load_Encached Natural_Cache 0a34 0260 | ` | Execute Discrete,In_Type 0a35 7001 |p | Jump_Nonzero 0xa37 0a36 0801 | | Execute_Immediate Raise,0x1 0a37 00cb | | Action Pop_Block_With_Result 0a38 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0a39 TRAP_0a20: 0a39 0007 | | Action Break_Optional 0a3a 0092 109e | | Action Push_String_Extended,0x109e ; "Illegal response, enter a NATURAL number" 0a3c e00d | | Load 0x0,0xd 0a3d 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0a3e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0a3f 0000 | | .XXX[0x1] 0a40 ; -------------------------------------------------------------------------------------- 0a40 ; SUBPROGRAM 0a40 ; -------------------------------------------------------------------------------------- 0a40 0a43 | C | .CONST 0x0a43 ; Address of begin 0a41 0a49 | I | .CONST 0x0a49 ; Address of exception handler 0a42 0001 | | .CONST 0x0001 ; Number of locals 0a43 BODY_0a40: 0a43 INIT_0a40: 0a43 00ea | | Load_Encached Null_String_Cache 0a44 00ea | | Load_Encached Null_String_Cache 0a45 e9ff | | Load 0x4,-0x1 0a46 8616 | | Call 0x3,0x16 0a47 00cb | | Action Pop_Block_With_Result 0a48 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0a49 TRAP_0a40: 0a49 0007 | | Action Break_Optional 0a4a e013 | | Load 0x0,0x13 0a4b 180e | | Execute Package,Field_Execute,Field_Number 0xe 0a4c 4802 |H | Short_Literal 0x2 0a4d 4822 |H" | Short_Literal 0x22 0a4e 0092 109f | | Action Push_String_Extended,0x109f ; "Error converting date \x22" 0a50 e9ff | | Load 0x4,-0x1 0a51 01cc | | Execute Vector,Catenate 0a52 01cb | | Execute Vector,Append 0a53 e014 | | Load 0x0,0x14 0a54 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0a55 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0a56 0000 0000 | | .XXX[0x2] 0a58 ; -------------------------------------------------------------------------------------- 0a58 ; SUBPROGRAM 0a58 ; -------------------------------------------------------------------------------------- 0a58 0a5b | [ | .CONST 0x0a5b ; Address of begin 0a59 0a66 | f | .CONST 0x0a66 ; Address of exception handler 0a5a 0001 | | .CONST 0x0001 ; Number of locals 0a5b BODY_0a58: 0a5b INIT_0a58: 0a5b 00ea | | Load_Encached Null_String_Cache 0a5c 480d |H | Short_Literal 0xd 0a5d e60b | | Load 0x3,0xb 0a5e e60a | | Load 0x3,0xa 0a5f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0a60 00ea | | Load_Encached Null_String_Cache 0a61 e00d | | Load 0x0,0xd 0a62 1867 | g | Execute Package,Field_Execute,Field_Number 0x67 0a63 8616 | | Call 0x3,0x16 0a64 00cb | | Action Pop_Block_With_Result 0a65 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0a66 TRAP_0a58: 0a66 0007 | | Action Break_Optional 0a67 0092 10a0 | | Action Push_String_Extended,0x10a0 ; "Illegal date value" 0a69 e00d | | Load 0x0,0xd 0a6a 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0a6b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0a6c 0000 0000 | | .BLANK 0000[0x4] 0a70 ; -------------------------------------------------------------------------------------- 0a70 ; SUBPROGRAM 0a70 ; -------------------------------------------------------------------------------------- 0a70 0a78 | x | .CONST 0x0a78 ; Address of begin 0a71 0004 | | .CONST 0x0004 ; Address of exception handler 0a72 0002 | | .CONST 0x0002 ; Number of locals 0a73 INIT_0a70: 0a73 4820 |H | Short_Literal 0x20 0a74 e00d | | Load 0x0,0xd 0a75 1867 | g | Execute Package,Field_Execute,Field_Number 0x67 0a76 e00f | | Load 0x0,0xf 0a77 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0a78 BODY_0a70: 0a78 00d8 | | Load_Top At_Offset_0 0a79 01db | | Execute Vector,Length 0a7a 6803 |h | Jump_Zero 0xa7e 0a7b 00d8 | | Load_Top At_Offset_0 0a7c 00cb | | Action Pop_Block_With_Result 0a7d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0a7e 00ea | | Load_Encached Null_String_Cache 0a7f 480c |H | Short_Literal 0xc 0a80 e60b | | Load 0x3,0xb 0a81 e60a | | Load 0x3,0xa 0a82 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0a83 01db | | Execute Vector,Length 0a84 6807 |h | Jump_Zero 0xa8c 0a85 00ea | | Load_Encached Null_String_Cache 0a86 480c |H | Short_Literal 0xc 0a87 e60b | | Load 0x3,0xb 0a88 e60a | | Load 0x3,0xa 0a89 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0a8a 00cb | | Action Pop_Block_With_Result 0a8b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0a8c e013 | | Load 0x0,0x13 0a8d 180e | | Execute Package,Field_Execute,Field_Number 0xe 0a8e 4807 |H | Short_Literal 0x7 0a8f 0092 10a1 | | Action Push_String_Extended,0x10a1 ; "Must specify a site" 0a91 e014 | | Load 0x0,0x14 0a92 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0a93 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0a94 0000 0000 | | .BLANK 0000[0x4] 0a98 ; -------------------------------------------------------------------------------------- 0a98 ; SUBPROGRAM 0a98 ; -------------------------------------------------------------------------------------- 0a98 0aa0 | | .CONST 0x0aa0 ; Address of begin 0a99 0004 | | .CONST 0x0004 ; Address of exception handler 0a9a 0002 | | .CONST 0x0002 ; Number of locals 0a9b INIT_0a98: 0a9b 4820 |H | Short_Literal 0x20 0a9c e00d | | Load 0x0,0xd 0a9d 1867 | g | Execute Package,Field_Execute,Field_Number 0x67 0a9e e00f | | Load 0x0,0xf 0a9f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0aa0 BODY_0a98: 0aa0 00d8 | | Load_Top At_Offset_0 0aa1 01db | | Execute Vector,Length 0aa2 e9fe | | Load 0x4,-0x2 0aa3 027b | { | Execute Discrete,Greater_Equal 0aa4 6803 |h | Jump_Zero 0xaa8 0aa5 00d8 | | Load_Top At_Offset_0 0aa6 00cb | | Action Pop_Block_With_Result 0aa7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0aa8 e013 | | Load 0x0,0x13 0aa9 180e | | Execute Package,Field_Execute,Field_Number 0xe 0aaa 4807 |H | Short_Literal 0x7 0aab 0092 10a2 | | Action Push_String_Extended,0x10a2 ; "*** INPUT ERROR: Must specify a value of" 0aad e9fe | | Load 0x4,-0x2 0aae 00e0 | | Load_Encached Standard_Cache 0aaf 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0ab0 01cc | | Execute Vector,Catenate 0ab1 0092 10a3 | | Action Push_String_Extended,0x10a3 ; " or greater" 0ab3 01cc | | Execute Vector,Catenate 0ab4 e014 | | Load 0x0,0x14 0ab5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0ab6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0ab7 0000 | | .XXX[0x1] 0ab8 ; -------------------------------------------------------------------------------------- 0ab8 ; SUBPROGRAM 0ab8 ; -------------------------------------------------------------------------------------- 0ab8 0abf | | .CONST 0x0abf ; Address of begin 0ab9 0afa | | .CONST 0x0afa ; Address of exception handler 0aba 0003 | | .CONST 0x0003 ; Number of locals 0abb INIT_0ab8: 0abb 029f 0d33 | 3| Declare_Subprogram INIT_0d30,For_Call 0abd 029f 0d3b | ;| Declare_Subprogram INIT_0d38,For_Call 0abf BODY_0ab8: 0abf 4801 |H | Short_Literal 0x1 0ac0 0092 10a4 | | Action Push_String_Extended,0x10a4 ; "SITE" 0ac2 4800 |H | Short_Literal 0x0 0ac3 e9ff | | Load 0x4,-0x1 0ac4 e608 | | Load 0x3,0x8 0ac5 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0ac6 e00f | | Load 0x0,0xf 0ac7 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0ac8 6823 |h# | Jump_Zero 0xaec 0ac9 4800 |H | Short_Literal 0x0 0aca e9ff | | Load 0x4,-0x1 0acb e608 | | Load 0x3,0x8 0acc 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0acd 6809 |h | Jump_Zero 0xad7 0ace 00ea | | Load_Encached Null_String_Cache 0acf 4800 |H | Short_Literal 0x0 0ad0 e9ff | | Load 0x4,-0x1 0ad1 e608 | | Load 0x3,0x8 0ad2 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0ad3 e602 | | Load 0x3,0x2 0ad4 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0ad5 a612 | | Store_Unchecked 0x3,0x12 0ad6 7807 |x | Jump 0xade 0ad7 4806 |H | Short_Literal 0x6 0ad8 0092 10a5 | | Action Push_String_Extended,0x10a5 ; "Enter new Site ID : " 0ada 861d | | Call 0x3,0x1d 0adb e602 | | Load 0x3,0x2 0adc 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0add a612 | | Store_Unchecked 0x3,0x12 0ade e7fd | | Load 0x3,-0x3 0adf 700b |p | Jump_Nonzero 0xaeb 0ae0 0092 108f | | Action Push_String_Extended,0x108f ; "<PROFILE>" 0ae2 e7fd | | Load 0x3,-0x3 0ae3 e612 | | Load 0x3,0x12 0ae4 0227 | ' | Execute Access,All_Reference 0ae5 e01f | | Load 0x0,0x1f 0ae6 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0ae7 e612 | | Load 0x3,0x12 0ae8 0227 | ' | Execute Access,All_Reference 0ae9 e01f | | Load 0x0,0x1f 0aea 180f | | Execute Package,Field_Execute,Field_Number 0xf 0aeb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0aec 4801 |H | Short_Literal 0x1 0aed 0092 10a6 | | Action Push_String_Extended,0x10a6 ; "TOKEN" 0aef 4800 |H | Short_Literal 0x0 0af0 e9ff | | Load 0x4,-0x1 0af1 e608 | | Load 0x3,0x8 0af2 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0af3 e00f | | Load 0x0,0xf 0af4 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0af5 6802 |h | Jump_Zero 0xaf8 0af6 8a02 | | Call 0x5,0x2 0af7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0af8 8a03 | | Call 0x5,0x3 0af9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0afa TRAP_0ab8: 0afa e025 | % | Load 0x0,0x25 0afb 010f | | Execute Exception,Equal 0afc 6801 |h | Jump_Zero 0xafe 0afd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0afe 0100 | | Execute Exception,Raise 0aff 0000 | | .XXX[0x1] 0b00 ; -------------------------------------------------------------------------------------- 0b00 ; SUBPROGRAM 0b00 ; -------------------------------------------------------------------------------------- 0b00 0b03 | | .CONST 0x0b03 ; Address of begin 0b01 0004 | | .CONST 0x0004 ; Address of exception handler 0b02 0001 | | .CONST 0x0001 ; Number of locals 0b03 BODY_0b00: 0b03 INIT_0b00: 0b03 ebfd | | Load 0x5,-0x3 0b04 680e |h | Jump_Zero 0xb13 0b05 e802 | | Load 0x4,0x2 0b06 680b |h | Jump_Zero 0xb12 0b07 00db | | Load_Top At_Offset_3 0b08 6805 |h | Jump_Zero 0xb0e 0b09 00da | | Load_Top At_Offset_2 0b0a e613 | | Load 0x3,0x13 0b0b e00d | | Load 0x0,0xd 0b0c 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0b0d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0b0e 00da | | Load_Top At_Offset_2 0b0f e613 | | Load 0x3,0x13 0b10 e00d | | Load 0x0,0xd 0b11 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e 0b12 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0b13 00db | | Load_Top At_Offset_3 0b14 6805 |h | Jump_Zero 0xb1a 0b15 00da | | Load_Top At_Offset_2 0b16 e613 | | Load 0x3,0x13 0b17 e00d | | Load 0x0,0xd 0b18 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0b19 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0b1a 00da | | Load_Top At_Offset_2 0b1b e613 | | Load 0x3,0x13 0b1c e00d | | Load 0x0,0xd 0b1d 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e 0b1e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0b1f 0000 | | .XXX[0x1] 0b20 ; -------------------------------------------------------------------------------------- 0b20 ; SUBPROGRAM 0b20 ; -------------------------------------------------------------------------------------- 0b20 0b23 | # | .CONST 0x0b23 ; Address of begin 0b21 0b2f | / | .CONST 0x0b2f ; Address of exception handler 0b22 0001 | | .CONST 0x0001 ; Number of locals 0b23 BODY_0b20: 0b23 INIT_0b20: 0b23 4801 |H | Short_Literal 0x1 0b24 0092 10a7 | | Action Push_String_Extended,0x10a7 ; "Rational" 0b26 e01f | | Load 0x0,0x1f 0b27 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0b28 e00f | | Load 0x0,0xf 0b29 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0b2a 6803 |h | Jump_Zero 0xb2e 0b2b 4801 |H | Short_Literal 0x1 0b2c 00cb | | Action Pop_Block_With_Result 0b2d 00ca | | Action Exit_Nullary_Function 0b2e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0b2f TRAP_0b20: 0b2f 0007 | | Action Break_Optional 0b30 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0b31 0000 0000 | | .BLANK 0000[0x7] 0b38 ; -------------------------------------------------------------------------------------- 0b38 ; SUBPROGRAM 0b38 ; -------------------------------------------------------------------------------------- 0b38 0b42 | B | .CONST 0x0b42 ; Address of begin 0b39 0004 | | .CONST 0x0004 ; Address of exception handler 0b3a 0002 | | .CONST 0x0002 ; Number of locals 0b3b INIT_0b38: 0b3b 4820 |H | Short_Literal 0x20 0b3c 4801 |H | Short_Literal 0x1 0b3d e805 | | Load 0x4,0x5 0b3e e804 | | Load 0x4,0x4 0b3f 01cf | | Execute Vector,Slice_Read 0b40 e00f | | Load 0x0,0xf 0b41 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0b42 BODY_0b38: 0b42 0092 10a8 | | Action Push_String_Extended,0x10a8 ; "88/01/01" 0b44 0092 10a8 | | Action Push_String_Extended,0x10a8 ; "88/01/01" 0b46 e01f | | Load 0x0,0x1f 0b47 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0b48 00db | | Load_Top At_Offset_3 0b49 e023 | # | Load 0x0,0x23 0b4a 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0b4b 00da | | Load_Top At_Offset_2 0b4c e023 | # | Load 0x0,0x23 0b4d 180d | | Execute Package,Field_Execute,Field_Number 0xd 0b4e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0b4f 0000 | | .XXX[0x1] 0b50 ; -------------------------------------------------------------------------------------- 0b50 ; SUBPROGRAM 0b50 ; -------------------------------------------------------------------------------------- 0b50 0b57 | W | .CONST 0x0b57 ; Address of begin 0b51 0004 | | .CONST 0x0004 ; Address of exception handler 0b52 0003 | | .CONST 0x0003 ; Number of locals 0b53 INIT_0b50: 0b53 e00d | | Load 0x0,0xd 0b54 1867 | g | Execute Package,Field_Execute,Field_Number 0x67 0b55 029f 0d43 | C| Declare_Subprogram INIT_0d40,For_Call 0b57 BODY_0b50: 0b57 00d9 | | Load_Top At_Offset_1 0b58 01db | | Execute Vector,Length 0b59 680c |h | Jump_Zero 0xb66 0b5a 00d9 | | Load_Top At_Offset_1 0b5b 01dd | | Execute Vector,First 0b5c 00da | | Load_Top At_Offset_2 0b5d 01d7 | | Execute Vector,Field_Read 0b5e 0f6e | n | Execute_Immediate Equal,0x6e 0b5f 00da | | Load_Top At_Offset_2 0b60 01dd | | Execute Vector,First 0b61 00db | | Load_Top At_Offset_3 0b62 01d7 | | Execute Vector,Field_Read 0b63 0f4e | N | Execute_Immediate Equal,0x4e 0b64 0278 | x | Execute Discrete,Or 0b65 6802 |h | Jump_Zero 0xb68 0b66 e026 | & | Load 0x0,0x26 0b67 0257 | W | Execute Discrete,Raise 0b68 00d9 | | Load_Top At_Offset_1 0b69 01dd | | Execute Vector,First 0b6a 00da | | Load_Top At_Offset_2 0b6b 01d7 | | Execute Vector,Field_Read 0b6c 0f79 | y | Execute_Immediate Equal,0x79 0b6d 00da | | Load_Top At_Offset_2 0b6e 01dd | | Execute Vector,First 0b6f 00db | | Load_Top At_Offset_3 0b70 01d7 | | Execute Vector,Field_Read 0b71 0f59 | Y | Execute_Immediate Equal,0x59 0b72 0278 | x | Execute Discrete,Or 0b73 6802 |h | Jump_Zero 0xb76 0b74 8a03 | | Call 0x5,0x3 0b75 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0b76 0092 109c | | Action Push_String_Extended,0x109c ; "Illegal response, enter 'Y' or 'N'" 0b78 e00d | | Load 0x0,0xd 0b79 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0b7a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0b7b 0000 0000 | | .BLANK 0000[0x5] 0b80 ; -------------------------------------------------------------------------------------- 0b80 ; SUBPROGRAM 0b80 ; -------------------------------------------------------------------------------------- 0b80 0b83 | | .CONST 0x0b83 ; Address of begin 0b81 0b8e | | .CONST 0x0b8e ; Address of exception handler 0b82 0001 | | .CONST 0x0001 ; Number of locals 0b83 BODY_0b80: 0b83 INIT_0b80: 0b83 e9ff | | Load 0x4,-0x1 0b84 00e2 | | Load_Encached Integer_Cache 0b85 00e0 | | Load_Encached Standard_Cache 0b86 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0b87 00d8 | | Load_Top At_Offset_0 0b88 00e3 | | Load_Encached Natural_Cache 0b89 0260 | ` | Execute Discrete,In_Type 0b8a 7001 |p | Jump_Nonzero 0xb8c 0b8b 0801 | | Execute_Immediate Raise,0x1 0b8c 00cb | | Action Pop_Block_With_Result 0b8d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0b8e TRAP_0b80: 0b8e 0007 | | Action Break_Optional 0b8f e013 | | Load 0x0,0x13 0b90 180e | | Execute Package,Field_Execute,Field_Number 0xe 0b91 4802 |H | Short_Literal 0x2 0b92 4822 |H" | Short_Literal 0x22 0b93 0092 109d | | Action Push_String_Extended,0x109d ; "Illegal numeric value \x22" 0b95 e9ff | | Load 0x4,-0x1 0b96 01cc | | Execute Vector,Catenate 0b97 01cb | | Execute Vector,Append 0b98 e014 | | Load 0x0,0x14 0b99 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0b9a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0b9b 0000 0000 | | .BLANK 0000[0x5] 0ba0 ; -------------------------------------------------------------------------------------- 0ba0 ; SUBPROGRAM 0ba0 ; -------------------------------------------------------------------------------------- 0ba0 0ba8 | | .CONST 0x0ba8 ; Address of begin 0ba1 0bb9 | | .CONST 0x0bb9 ; Address of exception handler 0ba2 0002 | | .CONST 0x0002 ; Number of locals 0ba3 INIT_0ba0: 0ba3 4820 |H | Short_Literal 0x20 0ba4 e00d | | Load 0x0,0xd 0ba5 1867 | g | Execute Package,Field_Execute,Field_Number 0x67 0ba6 e00f | | Load 0x0,0xf 0ba7 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0ba8 BODY_0ba0: 0ba8 00d8 | | Load_Top At_Offset_0 0ba9 01db | | Execute Vector,Length 0baa 7003 |p | Jump_Nonzero 0xbae 0bab e9fd | | Load 0x4,-0x3 0bac 00cb | | Action Pop_Block_With_Result 0bad 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0bae 00d8 | | Load_Top At_Offset_0 0baf 00e2 | | Load_Encached Integer_Cache 0bb0 00e0 | | Load_Encached Standard_Cache 0bb1 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0bb2 00d8 | | Load_Top At_Offset_0 0bb3 00e3 | | Load_Encached Natural_Cache 0bb4 0260 | ` | Execute Discrete,In_Type 0bb5 7001 |p | Jump_Nonzero 0xbb7 0bb6 0801 | | Execute_Immediate Raise,0x1 0bb7 00cb | | Action Pop_Block_With_Result 0bb8 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0bb9 TRAP_0ba0: 0bb9 0007 | | Action Break_Optional 0bba 0092 109e | | Action Push_String_Extended,0x109e ; "Illegal response, enter a NATURAL number" 0bbc e00d | | Load 0x0,0xd 0bbd 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0bbe 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0bbf 0000 | | .XXX[0x1] 0bc0 ; -------------------------------------------------------------------------------------- 0bc0 ; SUBPROGRAM 0bc0 ; -------------------------------------------------------------------------------------- 0bc0 0bc9 | | .CONST 0x0bc9 ; Address of begin 0bc1 0004 | | .CONST 0x0004 ; Address of exception handler 0bc2 0003 | | .CONST 0x0003 ; Number of locals 0bc3 INIT_0bc0: 0bc3 e9fc | | Load 0x4,-0x4 0bc4 e9fd | | Load 0x4,-0x3 0bc5 e9fe | | Load 0x4,-0x2 0bc6 8616 | | Call 0x3,0x16 0bc7 029f 0d53 | S| Declare_Subprogram INIT_0d50,For_Call 0bc9 BODY_0bc0: 0bc9 00cf | | Action Mark_Auxiliary 0bca e9fe | | Load 0x4,-0x2 0bcb 0092 10a9 | | Action Push_String_Extended,0x10a9 ; ": Enter Transaction ID [" 0bcd 01cc | | Execute Vector,Catenate 0bce 00db | | Load_Top At_Offset_3 0bcf 01cc | | Execute Vector,Catenate 0bd0 0092 1060 | `| Action Push_String_Extended,0x1060 ; "] : " 0bd2 01cc | | Execute Vector,Catenate 0bd3 e00d | | Load 0x0,0xd 0bd4 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0bd5 8a03 | | Call 0x5,0x3 0bd6 00c9 | | Action Pop_Auxiliary_Loop 0bd7 7ff2 | | Jump 0xbca 0bd8 ; -------------------------------------------------------------------------------------- 0bd8 ; SUBPROGRAM 0bd8 ; -------------------------------------------------------------------------------------- 0bd8 0be0 | | .CONST 0x0be0 ; Address of begin 0bd9 0004 | | .CONST 0x0004 ; Address of exception handler 0bda 0002 | | .CONST 0x0002 ; Number of locals 0bdb INIT_0bd8: 0bdb 4820 |H | Short_Literal 0x20 0bdc e00d | | Load 0x0,0xd 0bdd 1867 | g | Execute Package,Field_Execute,Field_Number 0x67 0bde e00f | | Load 0x0,0xf 0bdf 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0be0 BODY_0bd8: 0be0 00d8 | | Load_Top At_Offset_0 0be1 01db | | Execute Vector,Length 0be2 6803 |h | Jump_Zero 0xbe6 0be3 00d8 | | Load_Top At_Offset_0 0be4 00cb | | Action Pop_Block_With_Result 0be5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0be6 00ea | | Load_Encached Null_String_Cache 0be7 480c |H | Short_Literal 0xc 0be8 e60b | | Load 0x3,0xb 0be9 e60a | | Load 0x3,0xa 0bea 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0beb 01db | | Execute Vector,Length 0bec 6807 |h | Jump_Zero 0xbf4 0bed 00ea | | Load_Encached Null_String_Cache 0bee 480c |H | Short_Literal 0xc 0bef e60b | | Load 0x3,0xb 0bf0 e60a | | Load 0x3,0xa 0bf1 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0bf2 00cb | | Action Pop_Block_With_Result 0bf3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0bf4 e013 | | Load 0x0,0x13 0bf5 180e | | Execute Package,Field_Execute,Field_Number 0xe 0bf6 4807 |H | Short_Literal 0x7 0bf7 0092 10a1 | | Action Push_String_Extended,0x10a1 ; "Must specify a site" 0bf9 e014 | | Load 0x0,0x14 0bfa 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0bfb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0bfc 0000 0000 | | .BLANK 0000[0x4] 0c00 ; -------------------------------------------------------------------------------------- 0c00 ; SUBPROGRAM 0c00 ; -------------------------------------------------------------------------------------- 0c00 0c08 | | .CONST 0x0c08 ; Address of begin 0c01 0004 | | .CONST 0x0004 ; Address of exception handler 0c02 0002 | | .CONST 0x0002 ; Number of locals 0c03 INIT_0c00: 0c03 4820 |H | Short_Literal 0x20 0c04 e00d | | Load 0x0,0xd 0c05 1867 | g | Execute Package,Field_Execute,Field_Number 0x67 0c06 e00f | | Load 0x0,0xf 0c07 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0c08 BODY_0c00: 0c08 00d8 | | Load_Top At_Offset_0 0c09 01db | | Execute Vector,Length 0c0a e9fe | | Load 0x4,-0x2 0c0b 027b | { | Execute Discrete,Greater_Equal 0c0c 6803 |h | Jump_Zero 0xc10 0c0d 00d8 | | Load_Top At_Offset_0 0c0e 00cb | | Action Pop_Block_With_Result 0c0f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0c10 e013 | | Load 0x0,0x13 0c11 180e | | Execute Package,Field_Execute,Field_Number 0xe 0c12 4807 |H | Short_Literal 0x7 0c13 0092 10a2 | | Action Push_String_Extended,0x10a2 ; "*** INPUT ERROR: Must specify a value of" 0c15 e9fe | | Load 0x4,-0x2 0c16 00e0 | | Load_Encached Standard_Cache 0c17 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0c18 01cc | | Execute Vector,Catenate 0c19 0092 10a3 | | Action Push_String_Extended,0x10a3 ; " or greater" 0c1b 01cc | | Execute Vector,Catenate 0c1c e014 | | Load 0x0,0x14 0c1d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0c1e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0c1f 0000 | | .XXX[0x1] 0c20 ; -------------------------------------------------------------------------------------- 0c20 ; SUBPROGRAM 0c20 ; -------------------------------------------------------------------------------------- 0c20 0c27 | ' | .CONST 0x0c27 ; Address of begin 0c21 0c64 | d | .CONST 0x0c64 ; Address of exception handler 0c22 0003 | | .CONST 0x0003 ; Number of locals 0c23 INIT_0c20: 0c23 029f 0d6b | k| Declare_Subprogram INIT_0d68,For_Call 0c25 029f 0d73 | s| Declare_Subprogram INIT_0d70,For_Call 0c27 BODY_0c20: 0c27 4801 |H | Short_Literal 0x1 0c28 0092 10a4 | | Action Push_String_Extended,0x10a4 ; "SITE" 0c2a 4800 |H | Short_Literal 0x0 0c2b e9ff | | Load 0x4,-0x1 0c2c e608 | | Load 0x3,0x8 0c2d 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0c2e e00f | | Load 0x0,0xf 0c2f 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0c30 6825 |h% | Jump_Zero 0xc56 0c31 4800 |H | Short_Literal 0x0 0c32 e9ff | | Load 0x4,-0x1 0c33 e608 | | Load 0x3,0x8 0c34 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0c35 6809 |h | Jump_Zero 0xc3f 0c36 00ea | | Load_Encached Null_String_Cache 0c37 4800 |H | Short_Literal 0x0 0c38 e9ff | | Load 0x4,-0x1 0c39 e608 | | Load 0x3,0x8 0c3a 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0c3b e602 | | Load 0x3,0x2 0c3c 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0c3d a612 | | Store_Unchecked 0x3,0x12 0c3e 7807 |x | Jump 0xc46 0c3f 4806 |H | Short_Literal 0x6 0c40 0092 10a5 | | Action Push_String_Extended,0x10a5 ; "Enter new Site ID : " 0c42 861e | | Call 0x3,0x1e 0c43 e602 | | Load 0x3,0x2 0c44 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0c45 a612 | | Store_Unchecked 0x3,0x12 0c46 e7fd | | Load 0x3,-0x3 0c47 701b |p | Jump_Nonzero 0xc63 0c48 0092 108f | | Action Push_String_Extended,0x108f ; "<PROFILE>" 0c4a 00ea | | Load_Encached Null_String_Cache 0c4b 00ea | | Load_Encached Null_String_Cache 0c4c e7fd | | Load 0x3,-0x3 0c4d e612 | | Load 0x3,0x12 0c4e 0227 | ' | Execute Access,All_Reference 0c4f e024 | $ | Load 0x0,0x24 0c50 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0c51 e612 | | Load 0x3,0x12 0c52 0227 | ' | Execute Access,All_Reference 0c53 e024 | $ | Load 0x0,0x24 0c54 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0c55 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0c56 4801 |H | Short_Literal 0x1 0c57 0092 10a6 | | Action Push_String_Extended,0x10a6 ; "TOKEN" 0c59 4800 |H | Short_Literal 0x0 0c5a e9ff | | Load 0x4,-0x1 0c5b e608 | | Load 0x3,0x8 0c5c 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0c5d e00f | | Load 0x0,0xf 0c5e 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0c5f 6802 |h | Jump_Zero 0xc62 0c60 8a02 | | Call 0x5,0x2 0c61 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0c62 8a03 | | Call 0x5,0x3 0c63 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0c64 TRAP_0c20: 0c64 e026 | & | Load 0x0,0x26 0c65 010f | | Execute Exception,Equal 0c66 6801 |h | Jump_Zero 0xc68 0c67 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0c68 0100 | | Execute Exception,Raise 0c69 0000 0000 | | .BLANK 0000[0x7] 0c70 ; -------------------------------------------------------------------------------------- 0c70 ; SUBPROGRAM 0c70 ; -------------------------------------------------------------------------------------- 0c70 0c73 | s | .CONST 0x0c73 ; Address of begin 0c71 0004 | | .CONST 0x0004 ; Address of exception handler 0c72 0001 | | .CONST 0x0001 ; Number of locals 0c73 BODY_0c70: 0c73 INIT_0c70: 0c73 ebfd | | Load 0x5,-0x3 0c74 680e |h | Jump_Zero 0xc83 0c75 e802 | | Load 0x4,0x2 0c76 680b |h | Jump_Zero 0xc82 0c77 00db | | Load_Top At_Offset_3 0c78 6805 |h | Jump_Zero 0xc7e 0c79 00da | | Load_Top At_Offset_2 0c7a e613 | | Load 0x3,0x13 0c7b e00d | | Load 0x0,0xd 0c7c 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0c7d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0c7e 00da | | Load_Top At_Offset_2 0c7f e613 | | Load 0x3,0x13 0c80 e00d | | Load 0x0,0xd 0c81 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e 0c82 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0c83 00db | | Load_Top At_Offset_3 0c84 6805 |h | Jump_Zero 0xc8a 0c85 00da | | Load_Top At_Offset_2 0c86 e613 | | Load 0x3,0x13 0c87 e00d | | Load 0x0,0xd 0c88 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0c89 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0c8a 00da | | Load_Top At_Offset_2 0c8b e613 | | Load 0x3,0x13 0c8c e00d | | Load 0x0,0xd 0c8d 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e 0c8e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0c8f 0000 | | .XXX[0x1] 0c90 ; -------------------------------------------------------------------------------------- 0c90 ; SUBPROGRAM 0c90 ; -------------------------------------------------------------------------------------- 0c90 0c9a | | .CONST 0x0c9a ; Address of begin 0c91 0004 | | .CONST 0x0004 ; Address of exception handler 0c92 0002 | | .CONST 0x0002 ; Number of locals 0c93 INIT_0c90: 0c93 4800 |H | Short_Literal 0x0 0c94 4800 |H | Short_Literal 0x0 0c95 0092 10aa | | Action Push_String_Extended,0x10aa ; "Transaction_ID" 0c97 e612 | | Load 0x3,0x12 0c98 0227 | ' | Execute Access,All_Reference 0c99 861b | | Call 0x3,0x1b 0c9a BODY_0c90: 0c9a 4801 |H | Short_Literal 0x1 0c9b 4801 |H | Short_Literal 0x1 0c9c 0092 1074 | t| Action Push_String_Extended,0x1074 ; "~majorheading(" 0c9e 8803 | | Call 0x4,0x3 0c9f 4800 |H | Short_Literal 0x0 0ca0 4801 |H | Short_Literal 0x1 0ca1 0092 1087 | | Action Push_String_Extended,0x1087 ; "SITE ID ASSIGNMENT" 0ca3 8803 | | Call 0x4,0x3 0ca4 4801 |H | Short_Literal 0x1 0ca5 4801 |H | Short_Literal 0x1 0ca6 0092 1073 | s| Action Push_String_Extended,0x1073 ; ")" 0ca8 8803 | | Call 0x4,0x3 0ca9 4801 |H | Short_Literal 0x1 0caa e613 | | Load 0x3,0x13 0cab e00d | | Load 0x0,0xd 0cac 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0cad 4801 |H | Short_Literal 0x1 0cae 4801 |H | Short_Literal 0x1 0caf 0092 1076 | v| Action Push_String_Extended,0x1076 ; "~sb_e(" 0cb1 8803 | | Call 0x4,0x3 0cb2 4801 |H | Short_Literal 0x1 0cb3 e613 | | Load 0x3,0x13 0cb4 e00d | | Load 0x0,0xd 0cb5 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0cb6 4800 |H | Short_Literal 0x0 0cb7 4801 |H | Short_Literal 0x1 0cb8 0092 107a | z| Action Push_String_Extended,0x107a ; "Execute" 0cba 8803 | | Call 0x4,0x3 0cbb 4800 |H | Short_Literal 0x0 0cbc 4801 |H | Short_Literal 0x1 0cbd 0092 1088 | | Action Push_String_Extended,0x1088 ; " Set_Site (Site => \x22" 0cbf e612 | | Load 0x3,0x12 0cc0 0227 | ' | Execute Access,All_Reference 0cc1 e00f | | Load 0x0,0xf 0cc2 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0cc3 01cc | | Execute Vector,Catenate 0cc4 0092 1089 | | Action Push_String_Extended,0x1089 ; "\x22," 0cc6 01cc | | Execute Vector,Catenate 0cc7 8803 | | Call 0x4,0x3 0cc8 4800 |H | Short_Literal 0x0 0cc9 4801 |H | Short_Literal 0x1 0cca 0092 108a | | Action Push_String_Extended,0x108a ; " Code => \x22" 0ccc 00db | | Load_Top At_Offset_3 0ccd e7fd | | Load 0x3,-0x3 0cce e612 | | Load 0x3,0x12 0ccf 0227 | ' | Execute Access,All_Reference 0cd0 e024 | $ | Load 0x0,0x24 0cd1 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0cd2 01cc | | Execute Vector,Catenate 0cd3 0092 1089 | | Action Push_String_Extended,0x1089 ; "\x22," 0cd5 01cc | | Execute Vector,Catenate 0cd6 8803 | | Call 0x4,0x3 0cd7 4800 |H | Short_Literal 0x0 0cd8 4801 |H | Short_Literal 0x1 0cd9 0092 10ab | | Action Push_String_Extended,0x10ab ; " Authorization => \x22" 0cdb 00db | | Load_Top At_Offset_3 0cdc 01cc | | Execute Vector,Catenate 0cdd 0092 1089 | | Action Push_String_Extended,0x1089 ; "\x22," 0cdf 01cc | | Execute Vector,Catenate 0ce0 8803 | | Call 0x4,0x3 0ce1 4800 |H | Short_Literal 0x0 0ce2 4801 |H | Short_Literal 0x1 0ce3 0092 108b | | Action Push_String_Extended,0x108b ; " Response => \x22<PROFILE>\x22);" 0ce5 8803 | | Call 0x4,0x3 0ce6 4801 |H | Short_Literal 0x1 0ce7 4801 |H | Short_Literal 0x1 0ce8 0092 1073 | s| Action Push_String_Extended,0x1073 ; ")" 0cea 8803 | | Call 0x4,0x3 0ceb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0cec 0000 0000 | | .BLANK 0000[0x4] 0cf0 ; -------------------------------------------------------------------------------------- 0cf0 ; SUBPROGRAM 0cf0 ; -------------------------------------------------------------------------------------- 0cf0 0cf3 | | .CONST 0x0cf3 ; Address of begin 0cf1 0cff | | .CONST 0x0cff ; Address of exception handler 0cf2 0001 | | .CONST 0x0001 ; Number of locals 0cf3 BODY_0cf0: 0cf3 INIT_0cf0: 0cf3 4801 |H | Short_Literal 0x1 0cf4 0092 10a7 | | Action Push_String_Extended,0x10a7 ; "Rational" 0cf6 e024 | $ | Load 0x0,0x24 0cf7 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0cf8 e00f | | Load 0x0,0xf 0cf9 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0cfa 6803 |h | Jump_Zero 0xcfe 0cfb 4801 |H | Short_Literal 0x1 0cfc 00cb | | Action Pop_Block_With_Result 0cfd 00ca | | Action Exit_Nullary_Function 0cfe 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0cff TRAP_0cf0: 0cff 0007 | | Action Break_Optional 0d00 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0d01 0000 0000 | | .BLANK 0000[0x7] 0d08 ; -------------------------------------------------------------------------------------- 0d08 ; SUBPROGRAM 0d08 ; -------------------------------------------------------------------------------------- 0d08 0d12 | | .CONST 0x0d12 ; Address of begin 0d09 0004 | | .CONST 0x0004 ; Address of exception handler 0d0a 0002 | | .CONST 0x0002 ; Number of locals 0d0b INIT_0d08: 0d0b 4820 |H | Short_Literal 0x20 0d0c 4801 |H | Short_Literal 0x1 0d0d e805 | | Load 0x4,0x5 0d0e e804 | | Load 0x4,0x4 0d0f 01cf | | Execute Vector,Slice_Read 0d10 e00f | | Load 0x0,0xf 0d11 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0d12 BODY_0d08: 0d12 0092 10a8 | | Action Push_String_Extended,0x10a8 ; "88/01/01" 0d14 0092 10a8 | | Action Push_String_Extended,0x10a8 ; "88/01/01" 0d16 e024 | $ | Load 0x0,0x24 0d17 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0d18 00db | | Load_Top At_Offset_3 0d19 e023 | # | Load 0x0,0x23 0d1a 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0d1b 00da | | Load_Top At_Offset_2 0d1c e023 | # | Load 0x0,0x23 0d1d 180d | | Execute Package,Field_Execute,Field_Number 0xd 0d1e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0d1f 0000 | | .XXX[0x1] 0d20 ; -------------------------------------------------------------------------------------- 0d20 ; SUBPROGRAM 0d20 ; -------------------------------------------------------------------------------------- 0d20 0d29 | ) | .CONST 0x0d29 ; Address of begin 0d21 0004 | | .CONST 0x0004 ; Address of exception handler 0d22 0002 | | .CONST 0x0002 ; Number of locals 0d23 INIT_0d20: 0d23 e9fd | | Load 0x4,-0x3 0d24 e9fe | | Load 0x4,-0x2 0d25 e802 | | Load 0x4,0x2 0d26 8618 | | Call 0x3,0x18 0d27 e00f | | Load 0x0,0xf 0d28 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0d29 BODY_0d20: 0d29 00d8 | | Load_Top At_Offset_0 0d2a 00cb | | Action Pop_Block_With_Result 0d2b 00cb | | Action Pop_Block_With_Result 0d2c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0d2d 0000 0000 | | .XXX[0x3] 0d2f 0000 | | 0d30 ; -------------------------------------------------------------------------------------- 0d30 ; SUBPROGRAM 0d30 ; -------------------------------------------------------------------------------------- 0d30 0d35 | 5 | .CONST 0x0d35 ; Address of begin 0d31 0004 | | .CONST 0x0004 ; Address of exception handler 0d32 0002 | | .CONST 0x0002 ; Number of locals 0d33 INIT_0d30: 0d33 029f 0d7b | {| Declare_Subprogram INIT_0d78,For_Call 0d35 BODY_0d30: 0d35 8c02 | | Call 0x6,0x2 0d36 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0d37 0000 | | .XXX[0x1] 0d38 ; -------------------------------------------------------------------------------------- 0d38 ; SUBPROGRAM 0d38 ; -------------------------------------------------------------------------------------- 0d38 0d3d | = | .CONST 0x0d3d ; Address of begin 0d39 0004 | | .CONST 0x0004 ; Address of exception handler 0d3a 0002 | | .CONST 0x0002 ; Number of locals 0d3b INIT_0d38: 0d3b 029f 0e0b | | Declare_Subprogram INIT_0e08,For_Call 0d3d BODY_0d38: 0d3d 8c02 | | Call 0x6,0x2 0d3e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0d3f 0000 | | .XXX[0x1] 0d40 ; -------------------------------------------------------------------------------------- 0d40 ; SUBPROGRAM 0d40 ; -------------------------------------------------------------------------------------- 0d40 0d49 | I | .CONST 0x0d49 ; Address of begin 0d41 0004 | | .CONST 0x0004 ; Address of exception handler 0d42 0002 | | .CONST 0x0002 ; Number of locals 0d43 INIT_0d40: 0d43 e9fd | | Load 0x4,-0x3 0d44 e9fe | | Load 0x4,-0x2 0d45 e802 | | Load 0x4,0x2 0d46 8619 | | Call 0x3,0x19 0d47 e00f | | Load 0x0,0xf 0d48 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0d49 BODY_0d40: 0d49 00d8 | | Load_Top At_Offset_0 0d4a 00cb | | Action Pop_Block_With_Result 0d4b 00cb | | Action Pop_Block_With_Result 0d4c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0d4d 0000 0000 | | .XXX[0x3] 0d4f 0000 | | 0d50 ; -------------------------------------------------------------------------------------- 0d50 ; SUBPROGRAM 0d50 ; -------------------------------------------------------------------------------------- 0d50 0d58 | X | .CONST 0x0d58 ; Address of begin 0d51 0004 | | .CONST 0x0004 ; Address of exception handler 0d52 0002 | | .CONST 0x0002 ; Number of locals 0d53 INIT_0d50: 0d53 4820 |H | Short_Literal 0x20 0d54 e00d | | Load 0x0,0xd 0d55 1867 | g | Execute Package,Field_Execute,Field_Number 0x67 0d56 e00f | | Load 0x0,0xf 0d57 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0d58 BODY_0d50: 0d58 00d8 | | Load_Top At_Offset_0 0d59 01db | | Execute Vector,Length 0d5a 6804 |h | Jump_Zero 0xd5f 0d5b 00d8 | | Load_Top At_Offset_0 0d5c 00cb | | Action Pop_Block_With_Result 0d5d 00cb | | Action Pop_Block_With_Result 0d5e 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0d5f ea02 | | Load 0x5,0x2 0d60 00cb | | Action Pop_Block_With_Result 0d61 00cb | | Action Pop_Block_With_Result 0d62 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0d63 0000 0000 | | .BLANK 0000[0x5] 0d68 ; -------------------------------------------------------------------------------------- 0d68 ; SUBPROGRAM 0d68 ; -------------------------------------------------------------------------------------- 0d68 0d6d | m | .CONST 0x0d6d ; Address of begin 0d69 0004 | | .CONST 0x0004 ; Address of exception handler 0d6a 0002 | | .CONST 0x0002 ; Number of locals 0d6b INIT_0d68: 0d6b 029f 0e3b | ;| Declare_Subprogram INIT_0e38,For_Call 0d6d BODY_0d68: 0d6d 8c02 | | Call 0x6,0x2 0d6e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0d6f 0000 | | .XXX[0x1] 0d70 ; -------------------------------------------------------------------------------------- 0d70 ; SUBPROGRAM 0d70 ; -------------------------------------------------------------------------------------- 0d70 0d75 | u | .CONST 0x0d75 ; Address of begin 0d71 0004 | | .CONST 0x0004 ; Address of exception handler 0d72 0002 | | .CONST 0x0002 ; Number of locals 0d73 INIT_0d70: 0d73 029f 0ecb | | Declare_Subprogram INIT_0ec8,For_Call 0d75 BODY_0d70: 0d75 8c02 | | Call 0x6,0x2 0d76 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0d77 0000 | | .XXX[0x1] 0d78 ; -------------------------------------------------------------------------------------- 0d78 ; SUBPROGRAM 0d78 ; -------------------------------------------------------------------------------------- 0d78 0d90 | | .CONST 0x0d90 ; Address of begin 0d79 0004 | | .CONST 0x0004 ; Address of exception handler 0d7a 0007 | | .CONST 0x0007 ; Number of locals 0d7b INIT_0d78: 0d7b 00ea | | Load_Encached Null_String_Cache 0d7c 4800 |H | Short_Literal 0x0 0d7d e9ff | | Load 0x4,-0x1 0d7e e608 | | Load 0x3,0x8 0d7f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0d80 e608 | | Load 0x3,0x8 0d81 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0d82 0092 10ac | | Action Push_String_Extended,0x10ac ; "Token Authorize" 0d84 4800 |H | Short_Literal 0x0 0d85 00da | | Load_Top At_Offset_2 0d86 8618 | | Call 0x3,0x18 0d87 e00f | | Load 0x0,0xf 0d88 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0d89 00e3 | | Load_Encached Natural_Cache 0d8a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0d8b 03e9 | | Declare_Variable Discrete,Duplicate 0d8c 029f 0efb | | Declare_Subprogram INIT_0ef8,For_Call 0d8e 029f 0f0b | | Declare_Subprogram INIT_0f08,For_Call 0d90 BODY_0d78: 0d90 ee02 | | Load 0x7,0x2 0d91 e608 | | Load 0x3,0x8 0d92 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0d93 ce02 | | Store 0x7,0x2 0d94 606f |`o | Indirect_Literal Discrete,0xe04,{0x00000000, 0x7fffffff} 0d95 480a |H | Short_Literal 0xa 0d96 e60b | | Load 0x3,0xb 0d97 e60a | | Load 0x3,0xa 0d98 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0d99 00d8 | | Load_Top At_Offset_0 0d9a 00e3 | | Load_Encached Natural_Cache 0d9b 0260 | ` | Execute Discrete,In_Type 0d9c 7001 |p | Jump_Nonzero 0xd9e 0d9d 0801 | | Execute_Immediate Raise,0x1 0d9e ee03 | | Load 0x7,0x3 0d9f 0092 10ad | | Action Push_String_Extended,0x10ad ; ": Enter number of tokens to assign (Donation) " 0da1 01cc | | Execute Vector,Catenate 0da2 4800 |H | Short_Literal 0x0 0da3 ee02 | | Load 0x7,0x2 0da4 e608 | | Load 0x3,0x8 0da5 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0da6 8619 | | Call 0x3,0x19 0da7 ae04 | | Store_Unchecked 0x7,0x4 0da8 ee02 | | Load 0x7,0x2 0da9 e608 | | Load 0x3,0x8 0daa 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0dab ce02 | | Store 0x7,0x2 0dac e7fd | | Load 0x3,-0x3 0dad 7012 |p | Jump_Nonzero 0xdc0 0dae ee02 | | Load 0x7,0x2 0daf e608 | | Load 0x3,0x8 0db0 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0db1 700c |p | Jump_Nonzero 0xdbe 0db2 00db | | Load_Top At_Offset_3 0db3 ee03 | | Load 0x7,0x3 0db4 0092 10ae | | Action Push_String_Extended,0x10ae ; ": Enter total number of resulting tokens " 0db6 01cc | | Execute Vector,Catenate 0db7 4800 |H | Short_Literal 0x0 0db8 ee02 | | Load 0x7,0x2 0db9 e608 | | Load 0x3,0x8 0dba 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0dbb 8619 | | Call 0x3,0x19 0dbc 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0dbd 7828 |x( | Jump 0xde6 0dbe 8e06 | | Call 0x7,0x6 0dbf 7826 |x& | Jump 0xde6 0dc0 6043 |`C | Indirect_Literal Discrete,0xe04,{0x00000000, 0x7fffffff} 0dc1 480b |H | Short_Literal 0xb 0dc2 e60b | | Load 0x3,0xb 0dc3 e60a | | Load 0x3,0xa 0dc4 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0dc5 6815 |h | Jump_Zero 0xddb 0dc6 603d |`= | Indirect_Literal Discrete,0xe04,{0x00000000, 0x7fffffff} 0dc7 480b |H | Short_Literal 0xb 0dc8 e60b | | Load 0x3,0xb 0dc9 e60a | | Load 0x3,0xa 0dca 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0dcb 00d8 | | Load_Top At_Offset_0 0dcc 00e3 | | Load_Encached Natural_Cache 0dcd 0260 | ` | Execute Discrete,In_Type 0dce 7001 |p | Jump_Nonzero 0xdd0 0dcf 0801 | | Execute_Immediate Raise,0x1 0dd0 ee03 | | Load 0x7,0x3 0dd1 0092 10ae | | Action Push_String_Extended,0x10ae ; ": Enter total number of resulting tokens " 0dd3 01cc | | Execute Vector,Catenate 0dd4 4800 |H | Short_Literal 0x0 0dd5 ee02 | | Load 0x7,0x2 0dd6 e608 | | Load 0x3,0x8 0dd7 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0dd8 8619 | | Call 0x3,0x19 0dd9 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0dda 780b |x | Jump 0xde6 0ddb 00db | | Load_Top At_Offset_3 0ddc ee03 | | Load 0x7,0x3 0ddd 0092 10ae | | Action Push_String_Extended,0x10ae ; ": Enter total number of resulting tokens " 0ddf 01cc | | Execute Vector,Catenate 0de0 4800 |H | Short_Literal 0x0 0de1 ee02 | | Load 0x7,0x2 0de2 e608 | | Load 0x3,0x8 0de3 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0de4 8619 | | Call 0x3,0x19 0de5 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0de6 ee02 | | Load 0x7,0x2 0de7 e608 | | Load 0x3,0x8 0de8 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0de9 ce02 | | Store 0x7,0x2 0dea ee03 | | Load 0x7,0x3 0deb 4800 |H | Short_Literal 0x0 0dec ee02 | | Load 0x7,0x2 0ded e608 | | Load 0x3,0x8 0dee 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0def 861b | | Call 0x3,0x1b 0df0 e602 | | Load 0x3,0x2 0df1 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0df2 a604 | | Store_Unchecked 0x3,0x4 0df3 ee02 | | Load 0x7,0x2 0df4 e608 | | Load 0x3,0x8 0df5 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0df6 ce02 | | Store 0x7,0x2 0df7 ee03 | | Load 0x7,0x3 0df8 4800 |H | Short_Literal 0x0 0df9 ee02 | | Load 0x7,0x2 0dfa e608 | | Load 0x3,0x8 0dfb 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0dfc 861a | | Call 0x3,0x1a 0dfd e602 | | Load 0x3,0x2 0dfe 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0dff a603 | | Store_Unchecked 0x3,0x3 0e00 8e07 | | Call 0x7,0x7 0e01 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0e02 0000 0000 | | .XXX[0x2] 0e04 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 0e08 ; -------------------------------------------------------------------------------------- 0e08 ; SUBPROGRAM 0e08 ; -------------------------------------------------------------------------------------- 0e08 0e12 | | .CONST 0x0e12 ; Address of begin 0e09 0004 | | .CONST 0x0004 ; Address of exception handler 0e0a 0002 | | .CONST 0x0002 ; Number of locals 0e0b INIT_0e08: 0e0b 0092 10af | | Action Push_String_Extended,0x10af ; "Authorize" 0e0d 4801 |H | Short_Literal 0x1 0e0e e9ff | | Load 0x4,-0x1 0e0f 8618 | | Call 0x3,0x18 0e10 e00f | | Load 0x0,0xf 0e11 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0e12 BODY_0e08: 0e12 e7fd | | Load 0x3,-0x3 0e13 700c |p | Jump_Nonzero 0xe20 0e14 e606 | | Load 0x3,0x6 0e15 0227 | ' | Execute Access,All_Reference 0e16 e606 | | Load 0x3,0x6 0e17 0227 | ' | Execute Access,All_Reference 0e18 e615 | | Load 0x3,0x15 0e19 00db | | Load_Top At_Offset_3 0e1a e023 | # | Load 0x0,0x23 0e1b 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0e1c 00da | | Load_Top At_Offset_2 0e1d e023 | # | Load 0x0,0x23 0e1e 180d | | Execute Package,Field_Execute,Field_Number 0xd 0e1f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0e20 4801 |H | Short_Literal 0x1 0e21 a611 | | Store_Unchecked 0x3,0x11 0e22 00d8 | | Load_Top At_Offset_0 0e23 e60e | | Load 0x3,0xe 0e24 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0e25 e606 | | Load 0x3,0x6 0e26 0227 | ' | Execute Access,All_Reference 0e27 e615 | | Load 0x3,0x15 0e28 00da | | Load_Top At_Offset_2 0e29 e023 | # | Load 0x0,0x23 0e2a 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0e2b e60e | | Load 0x3,0xe 0e2c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0e2d e606 | | Load 0x3,0x6 0e2e 0227 | ' | Execute Access,All_Reference 0e2f e60e | | Load 0x3,0xe 0e30 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0e31 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0e32 0000 0000 | | .BLANK 0000[0x6] 0e38 ; -------------------------------------------------------------------------------------- 0e38 ; SUBPROGRAM 0e38 ; -------------------------------------------------------------------------------------- 0e38 0e50 | P | .CONST 0x0e50 ; Address of begin 0e39 0004 | | .CONST 0x0004 ; Address of exception handler 0e3a 0007 | | .CONST 0x0007 ; Number of locals 0e3b INIT_0e38: 0e3b 00ea | | Load_Encached Null_String_Cache 0e3c 4800 |H | Short_Literal 0x0 0e3d e9ff | | Load 0x4,-0x1 0e3e e608 | | Load 0x3,0x8 0e3f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0e40 e608 | | Load 0x3,0x8 0e41 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0e42 0092 10ac | | Action Push_String_Extended,0x10ac ; "Token Authorize" 0e44 4800 |H | Short_Literal 0x0 0e45 00da | | Load_Top At_Offset_2 0e46 8619 | | Call 0x3,0x19 0e47 e00f | | Load 0x0,0xf 0e48 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0e49 00e3 | | Load_Encached Natural_Cache 0e4a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0e4b 03e9 | | Declare_Variable Discrete,Duplicate 0e4c 029f 0f93 | | Declare_Subprogram INIT_0f90,For_Call 0e4e 029f 0fa3 | | Declare_Subprogram INIT_0fa0,For_Call 0e50 BODY_0e38: 0e50 ee02 | | Load 0x7,0x2 0e51 e608 | | Load 0x3,0x8 0e52 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0e53 ce02 | | Store 0x7,0x2 0e54 606f |`o | Indirect_Literal Discrete,0xec4,{0x00000000, 0x7fffffff} 0e55 480a |H | Short_Literal 0xa 0e56 e60b | | Load 0x3,0xb 0e57 e60a | | Load 0x3,0xa 0e58 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0e59 00d8 | | Load_Top At_Offset_0 0e5a 00e3 | | Load_Encached Natural_Cache 0e5b 0260 | ` | Execute Discrete,In_Type 0e5c 7001 |p | Jump_Nonzero 0xe5e 0e5d 0801 | | Execute_Immediate Raise,0x1 0e5e ee03 | | Load 0x7,0x3 0e5f 0092 10ad | | Action Push_String_Extended,0x10ad ; ": Enter number of tokens to assign (Donation) " 0e61 01cc | | Execute Vector,Catenate 0e62 4800 |H | Short_Literal 0x0 0e63 ee02 | | Load 0x7,0x2 0e64 e608 | | Load 0x3,0x8 0e65 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0e66 861a | | Call 0x3,0x1a 0e67 ae04 | | Store_Unchecked 0x7,0x4 0e68 ee02 | | Load 0x7,0x2 0e69 e608 | | Load 0x3,0x8 0e6a 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0e6b ce02 | | Store 0x7,0x2 0e6c e7fd | | Load 0x3,-0x3 0e6d 7012 |p | Jump_Nonzero 0xe80 0e6e ee02 | | Load 0x7,0x2 0e6f e608 | | Load 0x3,0x8 0e70 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0e71 700c |p | Jump_Nonzero 0xe7e 0e72 00db | | Load_Top At_Offset_3 0e73 ee03 | | Load 0x7,0x3 0e74 0092 10ae | | Action Push_String_Extended,0x10ae ; ": Enter total number of resulting tokens " 0e76 01cc | | Execute Vector,Catenate 0e77 4800 |H | Short_Literal 0x0 0e78 ee02 | | Load 0x7,0x2 0e79 e608 | | Load 0x3,0x8 0e7a 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0e7b 861a | | Call 0x3,0x1a 0e7c 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0e7d 7828 |x( | Jump 0xea6 0e7e 8e06 | | Call 0x7,0x6 0e7f 7826 |x& | Jump 0xea6 0e80 6043 |`C | Indirect_Literal Discrete,0xec4,{0x00000000, 0x7fffffff} 0e81 480b |H | Short_Literal 0xb 0e82 e60b | | Load 0x3,0xb 0e83 e60a | | Load 0x3,0xa 0e84 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0e85 6815 |h | Jump_Zero 0xe9b 0e86 603d |`= | Indirect_Literal Discrete,0xec4,{0x00000000, 0x7fffffff} 0e87 480b |H | Short_Literal 0xb 0e88 e60b | | Load 0x3,0xb 0e89 e60a | | Load 0x3,0xa 0e8a 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0e8b 00d8 | | Load_Top At_Offset_0 0e8c 00e3 | | Load_Encached Natural_Cache 0e8d 0260 | ` | Execute Discrete,In_Type 0e8e 7001 |p | Jump_Nonzero 0xe90 0e8f 0801 | | Execute_Immediate Raise,0x1 0e90 ee03 | | Load 0x7,0x3 0e91 0092 10ae | | Action Push_String_Extended,0x10ae ; ": Enter total number of resulting tokens " 0e93 01cc | | Execute Vector,Catenate 0e94 4800 |H | Short_Literal 0x0 0e95 ee02 | | Load 0x7,0x2 0e96 e608 | | Load 0x3,0x8 0e97 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0e98 861a | | Call 0x3,0x1a 0e99 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0e9a 780b |x | Jump 0xea6 0e9b 00db | | Load_Top At_Offset_3 0e9c ee03 | | Load 0x7,0x3 0e9d 0092 10ae | | Action Push_String_Extended,0x10ae ; ": Enter total number of resulting tokens " 0e9f 01cc | | Execute Vector,Catenate 0ea0 4800 |H | Short_Literal 0x0 0ea1 ee02 | | Load 0x7,0x2 0ea2 e608 | | Load 0x3,0x8 0ea3 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0ea4 861a | | Call 0x3,0x1a 0ea5 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0ea6 ee02 | | Load 0x7,0x2 0ea7 e608 | | Load 0x3,0x8 0ea8 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0ea9 ce02 | | Store 0x7,0x2 0eaa ee03 | | Load 0x7,0x3 0eab 4800 |H | Short_Literal 0x0 0eac ee02 | | Load 0x7,0x2 0ead e608 | | Load 0x3,0x8 0eae 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0eaf 861c | | Call 0x3,0x1c 0eb0 e602 | | Load 0x3,0x2 0eb1 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0eb2 a604 | | Store_Unchecked 0x3,0x4 0eb3 ee02 | | Load 0x7,0x2 0eb4 e608 | | Load 0x3,0x8 0eb5 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0eb6 ce02 | | Store 0x7,0x2 0eb7 00da | | Load_Top At_Offset_2 0eb8 ee04 | | Load 0x7,0x4 0eb9 ee03 | | Load 0x7,0x3 0eba 4800 |H | Short_Literal 0x0 0ebb ee02 | | Load 0x7,0x2 0ebc e608 | | Load 0x3,0x8 0ebd 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0ebe 861b | | Call 0x3,0x1b 0ebf e602 | | Load 0x3,0x2 0ec0 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0ec1 a603 | | Store_Unchecked 0x3,0x3 0ec2 8e07 | | Call 0x7,0x7 0ec3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0ec4 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 0ec8 ; -------------------------------------------------------------------------------------- 0ec8 ; SUBPROGRAM 0ec8 ; -------------------------------------------------------------------------------------- 0ec8 0ed2 | | .CONST 0x0ed2 ; Address of begin 0ec9 0004 | | .CONST 0x0004 ; Address of exception handler 0eca 0002 | | .CONST 0x0002 ; Number of locals 0ecb INIT_0ec8: 0ecb 0092 10af | | Action Push_String_Extended,0x10af ; "Authorize" 0ecd 4801 |H | Short_Literal 0x1 0ece e9ff | | Load 0x4,-0x1 0ecf 8619 | | Call 0x3,0x19 0ed0 e00f | | Load 0x0,0xf 0ed1 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0ed2 BODY_0ec8: 0ed2 e7fd | | Load 0x3,-0x3 0ed3 700c |p | Jump_Nonzero 0xee0 0ed4 e606 | | Load 0x3,0x6 0ed5 0227 | ' | Execute Access,All_Reference 0ed6 e606 | | Load 0x3,0x6 0ed7 0227 | ' | Execute Access,All_Reference 0ed8 e615 | | Load 0x3,0x15 0ed9 00db | | Load_Top At_Offset_3 0eda e023 | # | Load 0x0,0x23 0edb 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0edc 00da | | Load_Top At_Offset_2 0edd e023 | # | Load 0x0,0x23 0ede 180d | | Execute Package,Field_Execute,Field_Number 0xd 0edf 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0ee0 4801 |H | Short_Literal 0x1 0ee1 a611 | | Store_Unchecked 0x3,0x11 0ee2 00d8 | | Load_Top At_Offset_0 0ee3 e60e | | Load 0x3,0xe 0ee4 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0ee5 e606 | | Load 0x3,0x6 0ee6 0227 | ' | Execute Access,All_Reference 0ee7 e615 | | Load 0x3,0x15 0ee8 00da | | Load_Top At_Offset_2 0ee9 e023 | # | Load 0x0,0x23 0eea 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0eeb e60e | | Load 0x3,0xe 0eec 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0eed e606 | | Load 0x3,0x6 0eee 0227 | ' | Execute Access,All_Reference 0eef e60e | | Load 0x3,0xe 0ef0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0ef1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0ef2 0000 0000 | | .BLANK 0000[0x6] 0ef8 ; -------------------------------------------------------------------------------------- 0ef8 ; SUBPROGRAM 0ef8 ; -------------------------------------------------------------------------------------- 0ef8 0efb | | .CONST 0x0efb ; Address of begin 0ef9 0f02 | | .CONST 0x0f02 ; Address of exception handler 0efa 0001 | | .CONST 0x0001 ; Number of locals 0efb BODY_0ef8: 0efb INIT_0ef8: 0efb ee03 | | Load 0x7,0x3 0efc e027 | ' | Load 0x0,0x27 0efd 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0efe ee04 | | Load 0x7,0x4 0eff 0273 | s | Execute Discrete,Plus 0f00 ce05 | | Store 0x7,0x5 0f01 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0f02 TRAP_0ef8: 0f02 010e | | Execute Exception,Is_Constraint_Error 0f03 6803 |h | Jump_Zero 0xf07 0f04 ee04 | | Load 0x7,0x4 0f05 ae05 | | Store_Unchecked 0x7,0x5 0f06 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0f07 0100 | | Execute Exception,Raise 0f08 ; -------------------------------------------------------------------------------------- 0f08 ; SUBPROGRAM 0f08 ; -------------------------------------------------------------------------------------- 0f08 0f0b | | .CONST 0x0f0b ; Address of begin 0f09 0f81 | | .CONST 0x0f81 ; Address of exception handler 0f0a 0001 | | .CONST 0x0001 ; Number of locals 0f0b BODY_0f08: 0f0b INIT_0f08: 0f0b e7fd | | Load 0x3,-0x3 0f0c 7026 |p& | Jump_Nonzero 0xf33 0f0d 0092 108f | | Action Push_String_Extended,0x108f ; "<PROFILE>" 0f0f e603 | | Load 0x3,0x3 0f10 0227 | ' | Execute Access,All_Reference 0f11 e604 | | Load 0x3,0x4 0f12 0227 | ' | Execute Access,All_Reference 0f13 e615 | | Load 0x3,0x15 0f14 ee05 | | Load 0x7,0x5 0f15 00d8 | | Load_Top At_Offset_0 0f16 00e4 | | Load_Encached Positive_Cache 0f17 0260 | ` | Execute Discrete,In_Type 0f18 7001 |p | Jump_Nonzero 0xf1a 0f19 0801 | | Execute_Immediate Raise,0x1 0f1a ee04 | | Load 0x7,0x4 0f1b 00d8 | | Load_Top At_Offset_0 0f1c 00e4 | | Load_Encached Positive_Cache 0f1d 0260 | ` | Execute Discrete,In_Type 0f1e 7001 |p | Jump_Nonzero 0xf20 0f1f 0801 | | Execute_Immediate Raise,0x1 0f20 ee03 | | Load 0x7,0x3 0f21 e01f | | Load 0x0,0x1f 0f22 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0f23 ee05 | | Load 0x7,0x5 0f24 00d8 | | Load_Top At_Offset_0 0f25 00e4 | | Load_Encached Positive_Cache 0f26 0260 | ` | Execute Discrete,In_Type 0f27 7001 |p | Jump_Nonzero 0xf29 0f28 0801 | | Execute_Immediate Raise,0x1 0f29 ee04 | | Load 0x7,0x4 0f2a 00d8 | | Load_Top At_Offset_0 0f2b 00e4 | | Load_Encached Positive_Cache 0f2c 0260 | ` | Execute Discrete,In_Type 0f2d 7001 |p | Jump_Nonzero 0xf2f 0f2e 0801 | | Execute_Immediate Raise,0x1 0f2f ee03 | | Load 0x7,0x3 0f30 e01f | | Load 0x0,0x1f 0f31 180d | | Execute Package,Field_Execute,Field_Number 0xd 0f32 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0f33 4801 |H | Short_Literal 0x1 0f34 a610 | | Store_Unchecked 0x3,0x10 0f35 ee03 | | Load 0x7,0x3 0f36 e60f | | Load 0x3,0xf 0f37 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0f38 ee04 | | Load 0x7,0x4 0f39 00e0 | | Load_Encached Standard_Cache 0f3a 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0f3b e60f | | Load 0x3,0xf 0f3c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0f3d ee05 | | Load 0x7,0x5 0f3e 00e0 | | Load_Encached Standard_Cache 0f3f 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0f40 e60f | | Load 0x3,0xf 0f41 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0f42 e603 | | Load 0x3,0x3 0f43 0227 | ' | Execute Access,All_Reference 0f44 e604 | | Load 0x3,0x4 0f45 0227 | ' | Execute Access,All_Reference 0f46 e615 | | Load 0x3,0x15 0f47 ee05 | | Load 0x7,0x5 0f48 00d8 | | Load_Top At_Offset_0 0f49 00e4 | | Load_Encached Positive_Cache 0f4a 0260 | ` | Execute Discrete,In_Type 0f4b 7001 |p | Jump_Nonzero 0xf4d 0f4c 0801 | | Execute_Immediate Raise,0x1 0f4d ee04 | | Load 0x7,0x4 0f4e 00d8 | | Load_Top At_Offset_0 0f4f 00e4 | | Load_Encached Positive_Cache 0f50 0260 | ` | Execute Discrete,In_Type 0f51 7001 |p | Jump_Nonzero 0xf53 0f52 0801 | | Execute_Immediate Raise,0x1 0f53 ee03 | | Load 0x7,0x3 0f54 e01f | | Load 0x0,0x1f 0f55 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0f56 e60f | | Load 0x3,0xf 0f57 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0f58 e603 | | Load 0x3,0x3 0f59 0227 | ' | Execute Access,All_Reference 0f5a e60f | | Load 0x3,0xf 0f5b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0f5c e614 | | Load 0x3,0x14 0f5d 482c |H, | Short_Literal 0x2c 0f5e 0092 10b0 | | Action Push_String_Extended,0x10b0 ; "TOKEN => (NAME => (" 0f60 ee03 | | Load 0x7,0x3 0f61 01cc | | Execute Vector,Catenate 0f62 0092 10b1 | | Action Push_String_Extended,0x10b1 ; ")," 0f64 01cc | | Execute Vector,Catenate 0f65 ee04 | | Load 0x7,0x4 0f66 00e0 | | Load_Encached Standard_Cache 0f67 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0f68 01cc | | Execute Vector,Catenate 0f69 01cb | | Execute Vector,Append 0f6a ee05 | | Load 0x7,0x5 0f6b 00e0 | | Load_Encached Standard_Cache 0f6c 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0f6d 01cc | | Execute Vector,Catenate 0f6e 0092 105c | \| Action Push_String_Extended,0x105c ; ", " 0f70 01cc | | Execute Vector,Catenate 0f71 e604 | | Load 0x3,0x4 0f72 0227 | ' | Execute Access,All_Reference 0f73 01cc | | Execute Vector,Catenate 0f74 0092 105c | \| Action Push_String_Extended,0x105c ; ", " 0f76 01cc | | Execute Vector,Catenate 0f77 e603 | | Load 0x3,0x3 0f78 0227 | ' | Execute Access,All_Reference 0f79 01cc | | Execute Vector,Catenate 0f7a 0092 105b | [| Action Push_String_Extended,0x105b ; "), " 0f7c 01cc | | Execute Vector,Catenate 0f7d e00e | | Load 0x0,0xe 0f7e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0f7f 00d1 | | Pop_Control Pop_Count_1 0f80 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0f81 TRAP_0f08: 0f81 0007 | | Action Break_Optional 0f82 e013 | | Load 0x0,0x13 0f83 180e | | Execute Package,Field_Execute,Field_Number 0xe 0f84 4807 |H | Short_Literal 0x7 0f85 0092 10b2 | | Action Push_String_Extended,0x10b2 ; "Problem generating token authorization for " 0f87 ee03 | | Load 0x7,0x3 0f88 01cc | | Execute Vector,Catenate 0f89 e014 | | Load 0x0,0x14 0f8a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0f8b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0f8c 0000 0000 | | .BLANK 0000[0x4] 0f90 ; -------------------------------------------------------------------------------------- 0f90 ; SUBPROGRAM 0f90 ; -------------------------------------------------------------------------------------- 0f90 0f93 | | .CONST 0x0f93 ; Address of begin 0f91 0f9a | | .CONST 0x0f9a ; Address of exception handler 0f92 0001 | | .CONST 0x0001 ; Number of locals 0f93 BODY_0f90: 0f93 INIT_0f90: 0f93 ee03 | | Load 0x7,0x3 0f94 e027 | ' | Load 0x0,0x27 0f95 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0f96 ee04 | | Load 0x7,0x4 0f97 0273 | s | Execute Discrete,Plus 0f98 ce05 | | Store 0x7,0x5 0f99 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0f9a TRAP_0f90: 0f9a 010e | | Execute Exception,Is_Constraint_Error 0f9b 6803 |h | Jump_Zero 0xf9f 0f9c ee04 | | Load 0x7,0x4 0f9d ae05 | | Store_Unchecked 0x7,0x5 0f9e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0f9f 0100 | | Execute Exception,Raise 0fa0 ; -------------------------------------------------------------------------------------- 0fa0 ; SUBPROGRAM 0fa0 ; -------------------------------------------------------------------------------------- 0fa0 0fa3 | | .CONST 0x0fa3 ; Address of begin 0fa1 1024 | $ | .CONST 0x1024 ; Address of exception handler 0fa2 0001 | | .CONST 0x0001 ; Number of locals 0fa3 BODY_0fa0: 0fa3 INIT_0fa0: 0fa3 e7fd | | Load 0x3,-0x3 0fa4 7029 |p) | Jump_Nonzero 0xfce 0fa5 0092 108f | | Action Push_String_Extended,0x108f ; "<PROFILE>" 0fa7 e603 | | Load 0x3,0x3 0fa8 0227 | ' | Execute Access,All_Reference 0fa9 00ea | | Load_Encached Null_String_Cache 0faa e603 | | Load 0x3,0x3 0fab 0227 | ' | Execute Access,All_Reference 0fac e604 | | Load 0x3,0x4 0fad 0227 | ' | Execute Access,All_Reference 0fae e615 | | Load 0x3,0x15 0faf ee05 | | Load 0x7,0x5 0fb0 00d8 | | Load_Top At_Offset_0 0fb1 00e4 | | Load_Encached Positive_Cache 0fb2 0260 | ` | Execute Discrete,In_Type 0fb3 7001 |p | Jump_Nonzero 0xfb5 0fb4 0801 | | Execute_Immediate Raise,0x1 0fb5 ee04 | | Load 0x7,0x4 0fb6 00d8 | | Load_Top At_Offset_0 0fb7 00e4 | | Load_Encached Positive_Cache 0fb8 0260 | ` | Execute Discrete,In_Type 0fb9 7001 |p | Jump_Nonzero 0xfbb 0fba 0801 | | Execute_Immediate Raise,0x1 0fbb ee03 | | Load 0x7,0x3 0fbc e024 | $ | Load 0x0,0x24 0fbd 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 0fbe ee05 | | Load 0x7,0x5 0fbf 00d8 | | Load_Top At_Offset_0 0fc0 00e4 | | Load_Encached Positive_Cache 0fc1 0260 | ` | Execute Discrete,In_Type 0fc2 7001 |p | Jump_Nonzero 0xfc4 0fc3 0801 | | Execute_Immediate Raise,0x1 0fc4 ee04 | | Load 0x7,0x4 0fc5 00d8 | | Load_Top At_Offset_0 0fc6 00e4 | | Load_Encached Positive_Cache 0fc7 0260 | ` | Execute Discrete,In_Type 0fc8 7001 |p | Jump_Nonzero 0xfca 0fc9 0801 | | Execute_Immediate Raise,0x1 0fca ee03 | | Load 0x7,0x3 0fcb e024 | $ | Load 0x0,0x24 0fcc 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0fcd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0fce ee04 | | Load 0x7,0x4 0fcf 0c01 | | Execute_Immediate Greater_Equal,0x1 0fd0 ee05 | | Load 0x7,0x5 0fd1 ee04 | | Load 0x7,0x4 0fd2 027b | { | Execute Discrete,Greater_Equal 0fd3 0279 | y | Execute Discrete,And 0fd4 684e |hN | Jump_Zero 0x1023 0fd5 4801 |H | Short_Literal 0x1 0fd6 a610 | | Store_Unchecked 0x3,0x10 0fd7 ee03 | | Load 0x7,0x3 0fd8 e60f | | Load 0x3,0xf 0fd9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0fda ee04 | | Load 0x7,0x4 0fdb 00e0 | | Load_Encached Standard_Cache 0fdc 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0fdd e60f | | Load 0x3,0xf 0fde 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0fdf ee05 | | Load 0x7,0x5 0fe0 00e0 | | Load_Encached Standard_Cache 0fe1 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0fe2 e60f | | Load 0x3,0xf 0fe3 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0fe4 00ea | | Load_Encached Null_String_Cache 0fe5 e603 | | Load 0x3,0x3 0fe6 0227 | ' | Execute Access,All_Reference 0fe7 e604 | | Load 0x3,0x4 0fe8 0227 | ' | Execute Access,All_Reference 0fe9 e615 | | Load 0x3,0x15 0fea ee05 | | Load 0x7,0x5 0feb 00d8 | | Load_Top At_Offset_0 0fec 00e4 | | Load_Encached Positive_Cache 0fed 0260 | ` | Execute Discrete,In_Type 0fee 7001 |p | Jump_Nonzero 0xff0 0fef 0801 | | Execute_Immediate Raise,0x1 0ff0 ee04 | | Load 0x7,0x4 0ff1 00d8 | | Load_Top At_Offset_0 0ff2 00e4 | | Load_Encached Positive_Cache 0ff3 0260 | ` | Execute Discrete,In_Type 0ff4 7001 |p | Jump_Nonzero 0xff6 0ff5 0801 | | Execute_Immediate Raise,0x1 0ff6 ee03 | | Load 0x7,0x3 0ff7 e024 | $ | Load 0x0,0x24 0ff8 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 0ff9 e60f | | Load 0x3,0xf 0ffa 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0ffb e603 | | Load 0x3,0x3 0ffc 0227 | ' | Execute Access,All_Reference 0ffd e60f | | Load 0x3,0xf 0ffe 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0fff e614 | | Load 0x3,0x14 1000 482c |H, | Short_Literal 0x2c 1001 0092 10b0 | | Action Push_String_Extended,0x10b0 ; "TOKEN => (NAME => (" 1003 ee03 | | Load 0x7,0x3 1004 01cc | | Execute Vector,Catenate 1005 0092 10b1 | | Action Push_String_Extended,0x10b1 ; ")," 1007 01cc | | Execute Vector,Catenate 1008 ee04 | | Load 0x7,0x4 1009 00e0 | | Load_Encached Standard_Cache 100a 1818 | | Execute Package,Field_Execute,Field_Number 0x18 100b 01cc | | Execute Vector,Catenate 100c 01cb | | Execute Vector,Append 100d ee05 | | Load 0x7,0x5 100e 00e0 | | Load_Encached Standard_Cache 100f 1818 | | Execute Package,Field_Execute,Field_Number 0x18 1010 01cc | | Execute Vector,Catenate 1011 0092 105c | \| Action Push_String_Extended,0x105c ; ", " 1013 01cc | | Execute Vector,Catenate 1014 e604 | | Load 0x3,0x4 1015 0227 | ' | Execute Access,All_Reference 1016 01cc | | Execute Vector,Catenate 1017 0092 105c | \| Action Push_String_Extended,0x105c ; ", " 1019 01cc | | Execute Vector,Catenate 101a e603 | | Load 0x3,0x3 101b 0227 | ' | Execute Access,All_Reference 101c 01cc | | Execute Vector,Catenate 101d 0092 105b | [| Action Push_String_Extended,0x105b ; "), " 101f 01cc | | Execute Vector,Catenate 1020 e00e | | Load 0x0,0xe 1021 1818 | | Execute Package,Field_Execute,Field_Number 0x18 1022 00d1 | | Pop_Control Pop_Count_1 1023 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1024 TRAP_0fa0: 1024 0007 | | Action Break_Optional 1025 e013 | | Load 0x0,0x13 1026 180e | | Execute Package,Field_Execute,Field_Number 0xe 1027 4807 |H | Short_Literal 0x7 1028 0092 10b2 | | Action Push_String_Extended,0x10b2 ; "Problem generating token authorization for " 102a ee03 | | Load 0x7,0x3 102b 01cc | | Execute Vector,Catenate 102c e014 | | Load 0x0,0x14 102d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 102e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 102f ; -------------------------------------------------------------------------------------- 102f ; STRING TABLE 102f ; -------------------------------------------------------------------------------------- 102f 010a | | .STRTAB 0x010a->0x10b4 ; "NONE" 1030 010c | | .STRTAB 0x010c->0x10b6 ; "D2" 1031 010c | | .STRTAB 0x010c->0x10b7 ; "NONE" 1032 010e | | .STRTAB 0x010e->0x10b9 ; "OUTPUT_FILE" 1033 0117 | | .STRTAB 0x0117->0x10be ; "MAIL_MESSAGE" 1034 0121 | ! | .STRTAB 0x0121->0x10c4 ; "COMPOSE_DOCUMENT" 1035 012f | / | .STRTAB 0x012f->0x10cc ; "SO" 1036 012f | / | .STRTAB 0x012f->0x10cd ; "PO" 1037 012f | / | .STRTAB 0x012f->0x10ce ; "DEPT" 1038 0131 | 1 | .STRTAB 0x0131->0x10d0 ; "ORIGINATOR" 1039 0139 | 9 | .STRTAB 0x0139->0x10d5 ; "COMMENT" 103a 013e | > | .STRTAB 0x013e->0x10d9 ; "PASSWORD" 103b 0144 | D | .STRTAB 0x0144->0x10dd ; "DONATION" 103c 014a | J | .STRTAB 0x014a->0x10e1 ; "RESULTING_COUNT" 103d 0157 | W | .STRTAB 0x0157->0x10e8 ; "SITE_ID" 103e 015c | \ | .STRTAB 0x015c->0x10ec ; "ACCEPT_DATE" 103f 0165 | e | .STRTAB 0x0165->0x10f1 ; "NONE" 1040 0167 | g | .STRTAB 0x0167->0x10f3 ; "OUTPUT_FILE" 1041 0170 | p | .STRTAB 0x0170->0x10f9 ; "MAIL_MESSAGE" 1042 017a | z | .STRTAB 0x017a->0x10ff ; "COMPOSE_DOCUMENT" 1043 0188 | | .STRTAB 0x0188->0x1107 ; "SO" 1044 0188 | | .STRTAB 0x0188->0x1108 ; "PO" 1045 0188 | | .STRTAB 0x0188->0x1109 ; "DEPT" 1046 018a | | .STRTAB 0x018a->0x110b ; "ORIGINATOR" 1047 0192 | | .STRTAB 0x0192->0x1110 ; "COMMENT" 1048 0197 | | .STRTAB 0x0197->0x1113 ; "PASSWORD" 1049 019d | | .STRTAB 0x019d->0x1117 ; "DONATION" 104a 01a3 | | .STRTAB 0x01a3->0x111b ; "RESULTING_COUNT" 104b 01b0 | | .STRTAB 0x01b0->0x1123 ; "SITE_ID" 104c 01b5 | | .STRTAB 0x01b5->0x1126 ; "TRANSACTION_ID" 104d 01c1 | | .STRTAB 0x01c1->0x112d ; "D2 => Boolean_Valued, others => unspecified" 104e 01ea | | .STRTAB 0x01ea->0x1143 ; "others => Unspecified" 104f 01fd | | .STRTAB 0x01fd->0x114d ; "Compose_Document => Boolean_Valued, others => unspecified" 1050 0234 | 4 | .STRTAB 0x0234->0x116a ; ",Donation=0,Resulting_Count=0,Accept_Date=(<PLUS_2_WEEKS>)" 1051 026c | l | .STRTAB 0x026c->0x1187 ; "!Machine.Temporary.Authorize_Illegally_Executed" 1052 0299 | | .STRTAB 0x0299->0x119e ; " " 1053 0298 | | .STRTAB 0x0298->0x119f ; "<DIRECTORIES>" 1054 02a3 | | .STRTAB 0x02a3->0x11a5 ; "<WORLDS>" 1055 02a9 | | .STRTAB 0x02a9->0x11a9 ; "[!Local.QA.Authorize,\x5cAuthorize]" 1056 02c7 | | .STRTAB 0x02c7->0x11b9 ; "All products have been unauthorized, contact Rational" 1057 02fa | | .STRTAB 0x02fa->0x11d4 ; "Illegal use of Internal Rational procedure, all products will be Unauthorized if this procedure is executed again" 1058 0369 | i | .STRTAB 0x0369->0x120c ; ",Donation=0,Resulting_Count=0" 1059 0384 | | .STRTAB 0x0384->0x121b ; "NAME" 105a 0386 | | .STRTAB 0x0386->0x121d ; "NAME => (" 105b 038d | | .STRTAB 0x038d->0x1221 ; "), " 105c 038e | | .STRTAB 0x038e->0x1223 ; ", " 105d 038e | | .STRTAB 0x038e->0x1224 ; "QUERY" 105e 0391 | | .STRTAB 0x0391->0x1226 ; "? [N] : " 105f 0397 | | .STRTAB 0x0397->0x122a ; " [" 1060 0397 | | .STRTAB 0x0397->0x122b ; "] : " 1061 0399 | | .STRTAB 0x0399->0x122d ; "<TODAY>" 1062 039e | | .STRTAB 0x039e->0x1231 ; ": Enter Date for accepting tokens [" 1063 03bf | | .STRTAB 0x03bf->0x1242 ; ": Enter Site ID accepting tokens [" 1064 03df | | .STRTAB 0x03df->0x1253 ; "<FOREVER>" 1065 03e6 | | .STRTAB 0x03e6->0x1258 ; "Product_Name" 1066 03f0 | | .STRTAB 0x03f0->0x125e ; "Authorization_Code" 1067 0400 | | .STRTAB 0x0400->0x1267 ; "Expiration_Date" 1068 040d | | .STRTAB 0x040d->0x126e ; "Product" 1069 0412 | | .STRTAB 0x0412->0x1272 ; "Donation" 106a 0418 | | .STRTAB 0x0418->0x1276 ; "Resulting_Count" 106b 0425 | % | .STRTAB 0x0425->0x127d ; "Code" 106c 0427 | ' | .STRTAB 0x0427->0x127f ; "Accept Date" 106d 0430 | 0 | .STRTAB 0x0430->0x1285 ; "~comment(PRODUCTS => (" 106e 0444 | D | .STRTAB 0x0444->0x1290 ; "))" 106f 0444 | D | .STRTAB 0x0444->0x1291 ; "~smse_title(" 1070 044e | N | .STRTAB 0x044e->0x1297 ; "Product Authorization Codes" 1071 0467 | g | .STRTAB 0x0467->0x12a4 ; "~<" 1072 0467 | g | .STRTAB 0x0467->0x12a5 ; "Machine ID :" 1073 0471 | q | .STRTAB 0x0471->0x12ab ; ")" 1074 0470 | p | .STRTAB 0x0470->0x12ac ; "~majorheading(" 1075 047c | | | .STRTAB 0x047c->0x12b3 ; "PRODUCT SESSION AUTHORIZATION" 1076 0497 | | .STRTAB 0x0497->0x12c1 ; "~sb_e(" 1077 049b | | .STRTAB 0x049b->0x12c4 ; "~null{~environment{point_size=8}" 1078 04b9 | | .STRTAB 0x04b9->0x12d4 ; "~BOLD(" 1079 04bd | | .STRTAB 0x04bd->0x12d7 ; "SITE ID : " 107a 04c5 | | .STRTAB 0x04c5->0x12dc ; "Execute" 107b 04ca | | .STRTAB 0x04ca->0x12e0 ; " Accept_Tokens (Product => \x22>>Product Name<<\x22," 107c 04f9 | | .STRTAB 0x04f9->0x12f8 ; " Donation => [POSITIVE-expression]," 107d 052c | , | .STRTAB 0x052c->0x1313 ; " Resulting_Count => [POSITIVE-expression]," 107e 0566 | f | .STRTAB 0x0566->0x1331 ; " Code => \x22>>Authorization Code<<\x22);" 107f 0599 | | .STRTAB 0x0599->0x134b ; "on the specified ACCEPT_DATE for the following:" 1080 05c6 | | .STRTAB 0x05c6->0x1363 ; "})" 1081 05c6 | | .STRTAB 0x05c6->0x1364 ; "PRODUCT AUTHORIZATION" 1082 05d9 | | .STRTAB 0x05d9->0x136e ; " \x22!Implementation\x22.Product_Authorization.Register" 1083 060b | | .STRTAB 0x060b->0x1388 ; " (Product_Name => \x22>>Product Name<<\x22," 1084 0633 | 3 | .STRTAB 0x0633->0x139d ; " Authorization_Code => \x22>>Code<<\x22," 1085 0659 | Y | .STRTAB 0x0659->0x13b1 ; " Expiration_Date => \x22\x22);" 1086 0675 | u | .STRTAB 0x0675->0x13c0 ; "for the following:" 1087 0685 | | .STRTAB 0x0685->0x13c9 ; "SITE ID ASSIGNMENT" 1088 0695 | | .STRTAB 0x0695->0x13d2 ; " Set_Site (Site => \x22" 1089 06aa | | .STRTAB 0x06aa->0x13de ; "\x22," 108a 06aa | | .STRTAB 0x06aa->0x13df ; " Code => \x22" 108b 06bf | | .STRTAB 0x06bf->0x13ea ; " Response => \x22<PROFILE>\x22);" 108c 06e4 | | .STRTAB 0x06e4->0x13fe ; "~SB_V{" 108d 06e8 | | .STRTAB 0x06e8->0x1401 ; " => " 108e 06ea | | .STRTAB 0x06ea->0x1403 ; "}" 108f 06e9 | | .STRTAB 0x06e9->0x1403 ; "<PROFILE>" 1090 06f0 | | .STRTAB 0x06f0->0x1408 ; "Authorization Code for" 1091 0704 | | .STRTAB 0x0704->0x1413 ; "Need to sepcify OUTPUT file when using MAIL option, no mail will be sent" 1092 074a | J | .STRTAB 0x074a->0x1437 ; "Need to specify user maillist when using MAIL option, no mail will be sent" 1093 0792 | | .STRTAB 0x0792->0x145c ; "Enter AUTHORIZE Password : " 1094 07ab | | .STRTAB 0x07ab->0x1469 ; "Rational/SMSE" 1095 07b6 | | .STRTAB 0x07b6->0x1470 ; "!Machine.Temporary.Product_list" 1096 07d3 | | .STRTAB 0x07d3->0x147f ; "Authorization" 1097 07de | | .STRTAB 0x07de->0x1486 ; " Accept_Tokens (Product => [STRING-expression]," 1098 080e | | .STRTAB 0x080e->0x149f ; " Code => \x22\x22," 1099 082a | * | .STRTAB 0x082a->0x14ae ; " Authorization => \x22\x22);" 109a 0850 | P | .STRTAB 0x0850->0x14c2 ; "using the following values:" 109b 0869 | i | .STRTAB 0x0869->0x14cf ; " Authorization_Code => \x22\x22," 109c 0887 | | .STRTAB 0x0887->0x14df ; "Illegal response, enter 'Y' or 'N'" 109d 08a7 | | .STRTAB 0x08a7->0x14f0 ; "Illegal numeric value \x22" 109e 08bc | | .STRTAB 0x08bc->0x14fc ; "Illegal response, enter a NATURAL number" 109f 08e2 | | .STRTAB 0x08e2->0x1510 ; "Error converting date \x22" 10a0 08f7 | | .STRTAB 0x08f7->0x151b ; "Illegal date value" 10a1 0907 | | .STRTAB 0x0907->0x1524 ; "Must specify a site" 10a2 0918 | | .STRTAB 0x0918->0x152e ; "*** INPUT ERROR: Must specify a value of" 10a3 093e | > | .STRTAB 0x093e->0x1542 ; " or greater" 10a4 0947 | G | .STRTAB 0x0947->0x1547 ; "SITE" 10a5 0949 | I | .STRTAB 0x0949->0x1549 ; "Enter new Site ID : " 10a6 095b | [ | .STRTAB 0x095b->0x1553 ; "TOKEN" 10a7 095e | ^ | .STRTAB 0x095e->0x1556 ; "Rational" 10a8 0964 | d | .STRTAB 0x0964->0x155a ; "88/01/01" 10a9 096a | j | .STRTAB 0x096a->0x155e ; ": Enter Transaction ID [" 10aa 0980 | | .STRTAB 0x0980->0x156a ; "Transaction_ID" 10ab 098c | | .STRTAB 0x098c->0x1571 ; " Authorization => \x22" 10ac 09aa | | .STRTAB 0x09aa->0x1581 ; "Token Authorize" 10ad 09b7 | | .STRTAB 0x09b7->0x1588 ; ": Enter number of tokens to assign (Donation) " 10ae 09e3 | | .STRTAB 0x09e3->0x159f ; ": Enter total number of resulting tokens " 10af 0a0a | | .STRTAB 0x0a0a->0x15b4 ; "Authorize" 10b0 0a11 | | .STRTAB 0x0a11->0x15b8 ; "TOKEN => (NAME => (" 10b1 0a22 | " | .STRTAB 0x0a22->0x15c2 ; ")," 10b2 0a22 | " | .STRTAB 0x0a22->0x15c3 ; "Problem generating token authorization for " 10b3 0a4b | K | .STREND 0x0a4b->0x15d8 10b4 4e4f 4e45 |NONE| .STRTAB_STRINGS 15d9 0000 0000 | | .BLANK 0000[0x7] 15e0 ; -------------------------------------------------------------------------------------- 15e0 ; Debug Table 15e0 ; -------------------------------------------------------------------------------------- 15e0 0004 0004 | | .DEBUG4 0x0004,0x0004,0xe608,0x0000,0x0001,0x0000 15e6 0000 0000 | | .BLANK 0000[0x1a]