|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 6144 (0x1800) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0258fa
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0aa0 | | .CONST 0x0aa0 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 8006 | | .CONST 0x8006 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 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 0093 | | .CONST 0x0093 ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0022 | " | .CONST 0x0022 ; Number of locals 001b INIT_0018: 001b 00e9 | | Load_Encached String_Cache 001c 02a0 | | Declare_Subprogram Null_Subprogram 001d 4818 |H | Short_Literal 0x18 001e 03d3 | | Declare_Type Access,Defined,Accesses_Protected 001f 00d8 | | Load_Top At_Offset_0 0020 03bd | | Declare_Variable Access,Duplicate 0021 00da | | Load_Top At_Offset_2 0022 0007 | | Action Break_Optional 0023 00db | | Load_Top At_Offset_3 0024 0007 | | Action Break_Optional 0025 4800 |H | Short_Literal 0x0 0026 4801 |H | Short_Literal 0x1 0027 00e3 | | Load_Encached Natural_Cache 0028 03f8 | | Declare_Type Discrete,Constrained 0029 e001 | | Load 0x0,0x1 002a e002 | | Load 0x0,0x2 002b 00da | | Load_Top At_Offset_2 002c 4800 |H | Short_Literal 0x0 002d 4801 |H | Short_Literal 0x1 002e 4801 |H | Short_Literal 0x1 002f 0092 069e | | Action Push_String_Extended,0x69e ; "others => Unspecified" 0031 00ea | | Load_Encached Null_String_Cache 0032 00ea | | Load_Encached Null_String_Cache 0033 4801 |H | Short_Literal 0x1 0034 4801 |H | Short_Literal 0x1 0035 e003 | | Load 0x0,0x3 0036 0387 | | Declare_Variable Package 0037 00d8 | | Load_Top At_Offset_0 0038 020f | | Execute Module,Activate 0039 4800 |H | Short_Literal 0x0 003a 4809 |H | Short_Literal 0x9 003b 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call 003d 03fd | | Declare_Type Discrete,Defined 003e e004 | | Load 0x0,0x4 003f e005 | | Load 0x0,0x5 0040 00da | | Load_Top At_Offset_2 0041 4800 |H | Short_Literal 0x0 0042 4801 |H | Short_Literal 0x1 0043 4809 |H | Short_Literal 0x9 0044 0092 069f | | Action Push_String_Extended,0x69f ; "Compose_Document => Boolean_Valued, others => unspecified" 0046 00ea | | Load_Encached Null_String_Cache 0047 00ea | | Load_Encached Null_String_Cache 0048 4801 |H | Short_Literal 0x1 0049 4809 |H | Short_Literal 0x9 004a e003 | | Load 0x0,0x3 004b 0387 | | Declare_Variable Package 004c 00d8 | | Load_Top At_Offset_0 004d 020f | | Execute Module,Activate 004e e5fc | | Load 0x2,-0x4 004f 00d9 | | Load_Top At_Offset_1 0050 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0051 0092 06a0 | | Action Push_String_Extended,0x6a0 ; "!Machine.Temporary.Authorize_Illegally_Executed" 0053 e5ff | | Load 0x2,-0x1 0054 e408 | | Load 0x2,0x8 0055 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0056 e006 | | Load 0x0,0x6 0057 e007 | | Load 0x0,0x7 0058 4803 |H | Short_Literal 0x3 0059 0092 06a1 | | Action Push_String_Extended,0x6a1 ; " " 005b e008 | | Load 0x0,0x8 005c 0387 | | Declare_Variable Package 005d 00d8 | | Load_Top At_Offset_0 005e 020f | | Execute Module,Activate 005f e009 | | Load 0x0,0x9 0060 e00a | | Load 0x0,0xa 0061 4805 |H | Short_Literal 0x5 0062 0092 06a1 | | Action Push_String_Extended,0x6a1 ; " " 0064 e008 | | Load 0x0,0x8 0065 0387 | | Declare_Variable Package 0066 00d8 | | Load_Top At_Offset_0 0067 020f | | Execute Module,Activate 0068 00e1 | | Load_Encached Boolean_Cache 0069 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 006a 03e9 | | Declare_Variable Discrete,Duplicate 006b e00b | | Load 0x0,0xb 006c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 006d 02c7 | | Declare_Variable Any 006e 00d8 | | Load_Top At_Offset_0 006f 1c00 | | Execute_Immediate Run_Utility,0x0 0070 4be8 |K | Short_Literal 0x3e8 0071 e00c | | Load 0x0,0xc 0072 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0073 1c08 | | Execute_Immediate Run_Utility,0x8 0074 00d8 | | Load_Top At_Offset_0 0075 1c00 | | Execute_Immediate Run_Utility,0x0 0076 00e5 | | Load_Encached Long_Integer_Cache 0077 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call 0079 029f 0113 | | Declare_Subprogram INIT_0110,For_Call 007b 029f 0153 | S| Declare_Subprogram INIT_0150,For_Call 007d 029f 0183 | | Declare_Subprogram INIT_0180,For_Call 007f 029f 019b | | Declare_Subprogram INIT_0198,For_Call 0081 029f 01c3 | | Declare_Subprogram INIT_01c0,For_Call 0083 029f 01e3 | | Declare_Subprogram INIT_01e0,For_Call 0085 029f 0223 | #| Declare_Subprogram INIT_0220,For_Call 0087 029f 022b | +| Declare_Subprogram INIT_0228,For_Call 0089 029f 0373 | s| Declare_Subprogram INIT_0370,For_Call 008b 029f 03ab | | Declare_Subprogram INIT_03a8,For_Call 008d 029f 03e3 | | Declare_Subprogram INIT_03e0,For_Call 008f 029f 042b | +| Declare_Subprogram INIT_0428,For_Call 0091 029f 0443 | C| Declare_Subprogram INIT_0440,For_Call 0093 BODY_0018: 0093 841f | | Call 0x2,0x1f 0094 681a |h | Jump_Zero 0xaf 0095 841b | | Call 0x2,0x1b 0096 8421 | ! | Call 0x2,0x21 0097 e5fd | | Load 0x2,-0x3 0098 6801 |h | Jump_Zero 0x9a 0099 841d | | Call 0x2,0x1d 009a 4802 |H | Short_Literal 0x2 009b e40b | | Load 0x2,0xb 009c e40a | | Load 0x2,0xa 009d 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 009e 6809 |h | Jump_Zero 0xa8 009f 4820 |H | Short_Literal 0x20 00a0 00ea | | Load_Encached Null_String_Cache 00a1 4802 |H | Short_Literal 0x2 00a2 e40b | | Load 0x2,0xb 00a3 e40a | | Load 0x2,0xa 00a4 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 00a5 e00d | | Load 0x0,0xd 00a6 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00a7 841e | | Call 0x2,0x1e 00a8 00ea | | Load_Encached Null_String_Cache 00a9 0092 06a2 | | Action Push_String_Extended,0x6a2 ; "<DIRECTORIES>" 00ab e40c | | Load 0x2,0xc 00ac e00e | | Load 0x0,0xe 00ad 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00ae 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00af e40c | | Load 0x2,0xc 00b0 e00f | | Load 0x0,0xf 00b1 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00b2 6811 |h | Jump_Zero 0xc4 00b3 00ea | | Load_Encached Null_String_Cache 00b4 0092 06a3 | | Action Push_String_Extended,0x6a3 ; "<WORLDS>" 00b6 4863 |Hc | Short_Literal 0x63 00b7 0092 06a4 | | Action Push_String_Extended,0x6a4 ; "[!Local.QA.Authorize,\x5cAuthorize]" 00b9 e010 | | Load 0x0,0x10 00ba 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00bb 8420 | | Call 0x2,0x20 00bc e011 | | Load 0x0,0x11 00bd 180e | | Execute Package,Field_Execute,Field_Number 0xe 00be 4803 |H | Short_Literal 0x3 00bf 0092 06a5 | | Action Push_String_Extended,0x6a5 ; "All products have been unauthorized, contact Rational" 00c1 e012 | | Load 0x0,0x12 00c2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00c3 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00c4 e011 | | Load 0x0,0x11 00c5 180e | | Execute Package,Field_Execute,Field_Number 0xe 00c6 4807 |H | Short_Literal 0x7 00c7 0092 06a6 | | Action Push_String_Extended,0x6a6 ; "Illegal use of Internal Rational procedure, all products will be Unauthorized if this procedure is executed again" 00c9 e012 | | Load 0x0,0x12 00ca 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00cb 8422 | " | Call 0x2,0x22 00cc 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00cd 0000 0000 | | .XXX[0x3] 00cf 0000 | | 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d3 | | .CONST 0x00d3 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0001 | | .CONST 0x0001 ; Number of locals 00d3 BODY_00d0: 00d3 INIT_00d0: 00d3 4607 |F | Jump_Case 0x8 00d4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00d5 7806 |x | Jump 0xdc ; case 0x1 00d6 7809 |x | Jump 0xe0 ; case 0x2 00d7 780d |x | Jump 0xe5 ; case 0x3 00d8 7810 |x | Jump 0xe9 ; case 0x4 00d9 7811 |x | Jump 0xeb ; case 0x5 00da 7812 |x | Jump 0xed ; case 0x6 00db 7815 |x | Jump 0xf1 ; case 0x7 00dc 00da | | Load_Top At_Offset_2 00dd 0091 0694 | | Action Push_String_Extended_Indexed,0x694 ; "NONE" 00df 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00e0 00db | | Load_Top At_Offset_3 00e1 00db | | Load_Top At_Offset_3 00e2 00e0 | | Load_Encached Standard_Cache 00e3 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00e4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00e5 00da | | Load_Top At_Offset_2 00e6 00e0 | | Load_Encached Standard_Cache 00e7 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00e8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00e9 00db | | Load_Top At_Offset_3 00ea 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00eb 00db | | Load_Top At_Offset_3 00ec 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00ed e409 | | Load 0x2,0x9 00ee 00dc | | Load_Top At_Offset_4 00ef 0267 | g | Execute Discrete,Predecessor 00f0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00f1 e409 | | Load 0x2,0x9 00f2 00dc | | Load_Top At_Offset_4 00f3 0268 | h | Execute Discrete,Successor 00f4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00f5 0000 0000 | | .XXX[0x3] 00f7 0000 | | 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 0100 | | .CONST 0x0100 ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0002 | | .CONST 0x0002 ; Number of locals 00fb INIT_00f8: 00fb e7fd | | Load 0x3,-0x3 00fc e7fe | | Load 0x3,-0x2 00fd e7ff | | Load 0x3,-0x1 00fe e013 | | Load 0x0,0x13 00ff 180d | | Execute Package,Field_Execute,Field_Number 0xd 0100 BODY_00f8: 0100 00d8 | | Load_Top At_Offset_0 0101 01db | | Execute Vector,Length 0102 6809 |h | Jump_Zero 0x10c 0103 4802 |H | Short_Literal 0x2 0104 4801 |H | Short_Literal 0x1 0105 4803 |H | Short_Literal 0x3 0106 00db | | Load_Top At_Offset_3 0107 e014 | | Load 0x0,0x14 0108 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0109 e014 | | Load 0x0,0x14 010a 180f | | Execute Package,Field_Execute,Field_Number 0xf 010b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 010c 00ea | | Load_Encached Null_String_Cache 010d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 010e 0000 0000 | | .XXX[0x2] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0113 | | .CONST 0x0113 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0001 | | .CONST 0x0001 ; Number of locals 0113 BODY_0110: 0113 INIT_0110: 0113 4801 |H | Short_Literal 0x1 0114 0092 06a7 | | Action Push_String_Extended,0x6a7 ; "NAME" 0116 4800 |H | Short_Literal 0x0 0117 e7ff | | Load 0x3,-0x1 0118 e408 | | Load 0x2,0x8 0119 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 011a e00d | | Load 0x0,0xd 011b 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 011c 681e |h | Jump_Zero 0x13b 011d 4800 |H | Short_Literal 0x0 011e 00db | | Load_Top At_Offset_3 011f e408 | | Load 0x2,0x8 0120 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0121 6819 |h | Jump_Zero 0x13b 0122 00db | | Load_Top At_Offset_3 0123 680f |h | Jump_Zero 0x133 0124 e413 | | Load 0x2,0x13 0125 0092 06a8 | | Action Push_String_Extended,0x6a8 ; "NAME => (" 0127 00ea | | Load_Encached Null_String_Cache 0128 4800 |H | Short_Literal 0x0 0129 e7ff | | Load 0x3,-0x1 012a e408 | | Load 0x2,0x8 012b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 012c 01cc | | Execute Vector,Catenate 012d 0092 06a9 | | Action Push_String_Extended,0x6a9 ; "), " 012f 01cc | | Execute Vector,Catenate 0130 e00c | | Load 0x0,0xc 0131 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0132 00d1 | | Pop_Control Pop_Count_1 0133 00ea | | Load_Encached Null_String_Cache 0134 4800 |H | Short_Literal 0x0 0135 e7ff | | Load 0x3,-0x1 0136 e408 | | Load 0x2,0x8 0137 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0138 e00d | | Load 0x0,0xd 0139 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 013a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 013b 00db | | Load_Top At_Offset_3 013c 680b |h | Jump_Zero 0x148 013d e413 | | Load 0x2,0x13 013e 4800 |H | Short_Literal 0x0 013f e7ff | | Load 0x3,-0x1 0140 e408 | | Load 0x2,0x8 0141 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0142 0092 06aa | | Action Push_String_Extended,0x6aa ; ", " 0144 01cc | | Execute Vector,Catenate 0145 e00c | | Load 0x0,0xc 0146 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0147 00d1 | | Pop_Control Pop_Count_1 0148 4800 |H | Short_Literal 0x0 0149 00db | | Load_Top At_Offset_3 014a e408 | | Load 0x2,0x8 014b 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 014c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 014d 0000 0000 | | .XXX[0x3] 014f 0000 | | 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0157 | W | .CONST 0x0157 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0003 | | .CONST 0x0003 ; Number of locals 0153 INIT_0150: 0153 e408 | | Load 0x2,0x8 0154 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0155 029f 045b | [| Declare_Subprogram INIT_0458,For_Call 0157 BODY_0150: 0157 4801 |H | Short_Literal 0x1 0158 0092 06ab | | Action Push_String_Extended,0x6ab ; "QUERY" 015a 4800 |H | Short_Literal 0x0 015b e7ff | | Load 0x3,-0x1 015c e408 | | Load 0x2,0x8 015d 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 015e e00d | | Load 0x0,0xd 015f 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0160 6819 |h | Jump_Zero 0x17a 0161 00ea | | Load_Encached Null_String_Cache 0162 4800 |H | Short_Literal 0x0 0163 e7ff | | Load 0x3,-0x1 0164 e408 | | Load 0x2,0x8 0165 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0166 e408 | | Load 0x2,0x8 0167 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0168 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0169 00cf | | Action Mark_Auxiliary 016a 4820 |H | Short_Literal 0x20 016b e7fd | | Load 0x3,-0x3 016c 01cb | | Execute Vector,Append 016d e7fd | | Load 0x3,-0x3 016e 4800 |H | Short_Literal 0x0 016f e602 | | Load 0x3,0x2 0170 8417 | | Call 0x2,0x17 0171 01cc | | Execute Vector,Catenate 0172 0092 06ac | | Action Push_String_Extended,0x6ac ; "? [N] : " 0174 01cc | | Execute Vector,Catenate 0175 e00b | | Load 0x0,0xb 0176 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0177 8603 | | Call 0x3,0x3 0178 00c9 | | Action Pop_Auxiliary_Loop 0179 7ff0 | | Jump 0x16a 017a e7fe | | Load 0x3,-0x2 017b e7ff | | Load 0x3,-0x1 017c 8416 | | Call 0x2,0x16 017d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 017e 0000 0000 | | .XXX[0x2] 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0187 | | .CONST 0x0187 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0003 | | .CONST 0x0003 ; Number of locals 0183 INIT_0180: 0183 029f 048b | | Declare_Subprogram INIT_0488,For_Call 0185 029f 04ab | | Declare_Subprogram INIT_04a8,For_Call 0187 BODY_0180: 0187 e7ff | | Load 0x3,-0x1 0188 01db | | Execute Vector,Length 0189 6801 |h | Jump_Zero 0x18b 018a 8602 | | Call 0x3,0x2 018b 00cf | | Action Mark_Auxiliary 018c e7fe | | Load 0x3,-0x2 018d e00b | | Load 0x0,0xb 018e 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 018f 8603 | | Call 0x3,0x3 0190 00c9 | | Action Pop_Auxiliary_Loop 0191 7ffa | | Jump 0x18c 0192 0000 0000 | | .BLANK 0000[0x6] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019f | | .CONST 0x019f ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0003 | | .CONST 0x0003 ; Number of locals 019b INIT_0198: 019b 029f 04c3 | | Declare_Subprogram INIT_04c0,For_Call 019d 029f 04db | | Declare_Subprogram INIT_04d8,For_Call 019f BODY_0198: 019f e403 | | Load 0x2,0x3 01a0 6805 |h | Jump_Zero 0x1a6 01a1 e403 | | Load 0x2,0x3 01a2 0227 | ' | Execute Access,All_Reference 01a3 0335 | 5 | Declare_Variable Array,Duplicate 01a4 00cd | | Action Spare6_Action 01a5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01a6 e5fd | | Load 0x2,-0x3 01a7 7006 |p | Jump_Nonzero 0x1ae 01a8 00ea | | Load_Encached Null_String_Cache 01a9 00ea | | Load_Encached Null_String_Cache 01aa 0092 06ad | | Action Push_String_Extended,0x6ad ; "<TODAY>" 01ac 8415 | | Call 0x2,0x15 01ad 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01ae e7ff | | Load 0x3,-0x1 01af 01db | | Execute Vector,Length 01b0 6801 |h | Jump_Zero 0x1b2 01b1 8602 | | Call 0x3,0x2 01b2 00cf | | Action Mark_Auxiliary 01b3 e7fe | | Load 0x3,-0x2 01b4 0092 06ae | | Action Push_String_Extended,0x6ae ; ": Enter Date for accepting tokens [<PLUS_2_WEEKS>] : " 01b6 01cc | | Execute Vector,Catenate 01b7 e00b | | Load 0x0,0xb 01b8 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 01b9 8603 | | Call 0x3,0x3 01ba 00c9 | | Action Pop_Auxiliary_Loop 01bb 7ff7 | | Jump 0x1b3 01bc 0000 0000 | | .BLANK 0000[0x4] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c5 | | .CONST 0x01c5 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0002 | | .CONST 0x0002 ; Number of locals 01c3 INIT_01c0: 01c3 029f 04f3 | | Declare_Subprogram INIT_04f0,For_Call 01c5 BODY_01c0: 01c5 e404 | | Load 0x2,0x4 01c6 6805 |h | Jump_Zero 0x1cc 01c7 e404 | | Load 0x2,0x4 01c8 0227 | ' | Execute Access,All_Reference 01c9 0335 | 5 | Declare_Variable Array,Duplicate 01ca 00cd | | Action Spare6_Action 01cb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01cc e5fd | | Load 0x2,-0x3 01cd 7003 |p | Jump_Nonzero 0x1d1 01ce e015 | | Load 0x0,0x15 01cf 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01d0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01d1 00db | | Load_Top At_Offset_3 01d2 01db | | Execute Vector,Length 01d3 6802 |h | Jump_Zero 0x1d6 01d4 00db | | Load_Top At_Offset_3 01d5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01d6 00cf | | Action Mark_Auxiliary 01d7 e7fe | | Load 0x3,-0x2 01d8 0092 06af | | Action Push_String_Extended,0x6af ; ": Enter Site ID accepting tokens : " 01da 01cc | | Execute Vector,Catenate 01db e00b | | Load 0x0,0xb 01dc 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 01dd 8602 | | Call 0x3,0x2 01de 00c9 | | Action Pop_Auxiliary_Loop 01df 7ff7 | | Jump 0x1d7 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01e3 | | .CONST 0x01e3 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0001 | | .CONST 0x0001 ; Number of locals 01e3 BODY_01e0: 01e3 INIT_01e0: 01e3 00ea | | Load_Encached Null_String_Cache 01e4 0092 06b0 | | Action Push_String_Extended,0x6b0 ; "<FOREVER>" 01e6 e5fe | | Load 0x2,-0x2 01e7 8415 | | Call 0x2,0x15 01e8 e402 | | Load 0x2,0x2 01e9 03b6 | | Declare_Variable Access,By_Allocation,With_Value 01ea a406 | | Store_Unchecked 0x2,0x6 01eb e5fd | | Load 0x2,-0x3 01ec 7004 |p | Jump_Nonzero 0x1f1 01ed e016 | | Load 0x0,0x16 01ee 180e | | Execute Package,Field_Execute,Field_Number 0xe 01ef a414 | | Store_Unchecked 0x2,0x14 01f0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01f1 e5fd | | Load 0x2,-0x3 01f2 a414 | | Store_Unchecked 0x2,0x14 01f3 4800 |H | Short_Literal 0x0 01f4 0092 06b1 | | Action Push_String_Extended,0x6b1 ; "Product_Name" 01f6 e40e | | Load 0x2,0xe 01f7 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01f8 4800 |H | Short_Literal 0x0 01f9 0092 06b2 | | Action Push_String_Extended,0x6b2 ; "Authorization_Code" 01fb e40e | | Load 0x2,0xe 01fc 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01fd 4800 |H | Short_Literal 0x0 01fe 0092 06b3 | | Action Push_String_Extended,0x6b3 ; "Expiration_Date" 0200 e40e | | Load 0x2,0xe 0201 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0202 4800 |H | Short_Literal 0x0 0203 0092 06b4 | | Action Push_String_Extended,0x6b4 ; "Product" 0205 e40f | | Load 0x2,0xf 0206 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0207 4802 |H | Short_Literal 0x2 0208 0092 06b5 | | Action Push_String_Extended,0x6b5 ; "Donation" 020a e40f | | Load 0x2,0xf 020b 1812 | | Execute Package,Field_Execute,Field_Number 0x12 020c 4802 |H | Short_Literal 0x2 020d 0092 06b6 | | Action Push_String_Extended,0x6b6 ; "Resulting_Count" 020f e40f | | Load 0x2,0xf 0210 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0211 4800 |H | Short_Literal 0x0 0212 0092 06b7 | | Action Push_String_Extended,0x6b7 ; "Code" 0214 e40f | | Load 0x2,0xf 0215 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0216 4800 |H | Short_Literal 0x0 0217 0092 06b8 | | Action Push_String_Extended,0x6b8 ; "Accept Date" 0219 e40f | | Load 0x2,0xf 021a 1812 | | Execute Package,Field_Execute,Field_Number 0x12 021b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 021c 0000 0000 | | .BLANK 0000[0x4] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0225 | % | .CONST 0x0225 ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0002 | | .CONST 0x0002 ; Number of locals 0223 INIT_0220: 0223 029f 050b | | Declare_Subprogram INIT_0508,For_Call 0225 BODY_0220: 0225 8602 | | Call 0x3,0x2 0226 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0227 0000 | | .XXX[0x1] 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 022b | + | .CONST 0x022b ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0001 | | .CONST 0x0001 ; Number of locals 022b BODY_0228: 022b INIT_0228: 022b 4801 |H | Short_Literal 0x1 022c e40b | | Load 0x2,0xb 022d e40a | | Load 0x2,0xa 022e 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 022f 6816 |h | Jump_Zero 0x246 0230 4801 |H | Short_Literal 0x1 0231 e40b | | Load 0x2,0xb 0232 e40a | | Load 0x2,0xa 0233 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0234 6811 |h | Jump_Zero 0x246 0235 00ea | | Load_Encached Null_String_Cache 0236 4801 |H | Short_Literal 0x1 0237 e40b | | Load 0x2,0xb 0238 e40a | | Load 0x2,0xa 0239 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 023a e402 | | Load 0x2,0x2 023b 03b6 | | Declare_Variable Access,By_Allocation,With_Value 023c a405 | | Store_Unchecked 0x2,0x5 023d e412 | | Load 0x2,0x12 023e 00ea | | Load_Encached Null_String_Cache 023f e405 | | Load 0x2,0x5 0240 0227 | ' | Execute Access,All_Reference 0241 4801 |H | Short_Literal 0x1 0242 e00b | | Load 0x0,0xb 0243 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0244 c412 | | Store 0x2,0x12 0245 7803 |x | Jump 0x249 0246 e00b | | Load 0x0,0xb 0247 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0248 c412 | | Store 0x2,0x12 0249 4800 |H | Short_Literal 0x0 024a 4803 |H | Short_Literal 0x3 024b e40b | | Load 0x2,0xb 024c e40a | | Load 0x2,0xa 024d 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 024e 6823 |h# | Jump_Zero 0x272 024f e413 | | Load 0x2,0x13 0250 e00c | | Load 0x0,0xc 0251 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0252 681a |h | Jump_Zero 0x26d 0253 e413 | | Load 0x2,0x13 0254 4820 |H | Short_Literal 0x20 0255 e413 | | Load 0x2,0x13 0256 e00c | | Load 0x0,0xc 0257 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0258 0afe | | Execute_Immediate Plus,-0x2 0259 00d8 | | Load_Top At_Offset_0 025a 00e3 | | Load_Encached Natural_Cache 025b 0260 | ` | Execute Discrete,In_Type 025c 7001 |p | Jump_Nonzero 0x25e 025d 0801 | | Execute_Immediate Raise,0x1 025e e00c | | Load 0x0,0xc 025f 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0260 00d1 | | Pop_Control Pop_Count_1 0261 0092 06b9 | | Action Push_String_Extended,0x6b9 ; "~comment(PRODUCTS => (" 0263 e413 | | Load 0x2,0x13 0264 e00c | | Load 0x0,0xc 0265 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0266 01cc | | Execute Vector,Catenate 0267 0092 06ba | | Action Push_String_Extended,0x6ba ; "))" 0269 01cc | | Execute Vector,Catenate 026a e412 | | Load 0x2,0x12 026b e00b | | Load 0x0,0xb 026c 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 026d 0092 06bb | | Action Push_String_Extended,0x6bb ; "~smse_title(" 026f e412 | | Load 0x2,0x12 0270 e00b | | Load 0x0,0xb 0271 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e 0272 0092 06bc | | Action Push_String_Extended,0x6bc ; "Product Authorization Codes" 0274 e412 | | Load 0x2,0x12 0275 e00b | | Load 0x0,0xb 0276 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e 0277 4800 |H | Short_Literal 0x0 0278 4803 |H | Short_Literal 0x3 0279 e40b | | Load 0x2,0xb 027a e40a | | Load 0x2,0xa 027b 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 027c 6805 |h | Jump_Zero 0x282 027d 0092 06bd | | Action Push_String_Extended,0x6bd ; "~<" 027f e412 | | Load 0x2,0x12 0280 e00b | | Load 0x0,0xb 0281 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e 0282 4801 |H | Short_Literal 0x1 0283 e412 | | Load 0x2,0x12 0284 e00b | | Load 0x0,0xb 0285 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0286 0092 06be | | Action Push_String_Extended,0x6be ; "Machine ID :" 0288 e5fd | | Load 0x2,-0x3 0289 00e0 | | Load_Encached Standard_Cache 028a 1818 | | Execute Package,Field_Execute,Field_Number 0x18 028b 01cc | | Execute Vector,Catenate 028c e412 | | Load 0x2,0x12 028d e00b | | Load 0x0,0xb 028e 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e 028f 4800 |H | Short_Literal 0x0 0290 4803 |H | Short_Literal 0x3 0291 e40b | | Load 0x2,0xb 0292 e40a | | Load 0x2,0xa 0293 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0294 680b |h | Jump_Zero 0x2a0 0295 0092 06bf | | Action Push_String_Extended,0x6bf ; ")" 0297 e412 | | Load 0x2,0x12 0298 e00b | | Load 0x0,0xb 0299 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 029a 0092 06c0 | | Action Push_String_Extended,0x6c0 ; "~sb_e(" 029c e412 | | Load 0x2,0x12 029d e00b | | Load 0x0,0xb 029e 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 029f 7804 |x | Jump 0x2a4 02a0 4801 |H | Short_Literal 0x1 02a1 e412 | | Load 0x2,0x12 02a2 e00b | | Load 0x0,0xb 02a3 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 02a4 e410 | | Load 0x2,0x10 02a5 6850 |hP | Jump_Zero 0x2f6 02a6 4800 |H | Short_Literal 0x0 02a7 4803 |H | Short_Literal 0x3 02a8 e40b | | Load 0x2,0xb 02a9 e40a | | Load 0x2,0xa 02aa 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 02ab 6805 |h | Jump_Zero 0x2b1 02ac 0092 06c1 | | Action Push_String_Extended,0x6c1 ; "~null{~environment{point_size=8}" 02ae e412 | | Load 0x2,0x12 02af e00b | | Load 0x0,0xb 02b0 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 02b1 4802 |H | Short_Literal 0x2 02b2 e412 | | Load 0x2,0x12 02b3 e00b | | Load 0x0,0xb 02b4 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 02b5 0092 06c2 | | Action Push_String_Extended,0x6c2 ; "SITE: " 02b7 e404 | | Load 0x2,0x4 02b8 0227 | ' | Execute Access,All_Reference 02b9 01cc | | Execute Vector,Catenate 02ba e412 | | Load 0x2,0x12 02bb e00b | | Load 0x0,0xb 02bc 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 02bd 4801 |H | Short_Literal 0x1 02be e412 | | Load 0x2,0x12 02bf e00b | | Load 0x0,0xb 02c0 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 02c1 0092 06c3 | | Action Push_String_Extended,0x6c3 ; "Execute" 02c3 e412 | | Load 0x2,0x12 02c4 e00b | | Load 0x0,0xb 02c5 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 02c6 0092 06c4 | | Action Push_String_Extended,0x6c4 ; " Accept_Tokens (Product => \x22>>Product Name<<\x22," 02c8 e412 | | Load 0x2,0x12 02c9 e00b | | Load 0x0,0xb 02ca 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 02cb 0092 06c5 | | Action Push_String_Extended,0x6c5 ; " Donation => [POSITIVE-expression]," 02cd e412 | | Load 0x2,0x12 02ce e00b | | Load 0x0,0xb 02cf 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 02d0 0092 06c6 | | Action Push_String_Extended,0x6c6 ; " Resulting_Count => [POSITIVE-expression]," 02d2 e412 | | Load 0x2,0x12 02d3 e00b | | Load 0x0,0xb 02d4 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 02d5 0092 06c7 | | Action Push_String_Extended,0x6c7 ; " Code => \x22>>Authorization Code<<\x22," 02d7 e412 | | Load 0x2,0x12 02d8 e00b | | Load 0x0,0xb 02d9 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 02da 0092 06c8 | | Action Push_String_Extended,0x6c8 ; " Response => \x22<PROFILE>\x22);" 02dc e412 | | Load 0x2,0x12 02dd e00b | | Load 0x0,0xb 02de 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 02df 0092 06c9 | | Action Push_String_Extended,0x6c9 ; "on the specified ACCEPT_DATE for the following:" 02e1 e412 | | Load 0x2,0x12 02e2 e00b | | Load 0x0,0xb 02e3 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 02e4 4802 |H | Short_Literal 0x2 02e5 e412 | | Load 0x2,0x12 02e6 e00b | | Load 0x0,0xb 02e7 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 02e8 e412 | | Load 0x2,0x12 02e9 e40f | | Load 0x2,0xf 02ea 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02eb 4800 |H | Short_Literal 0x0 02ec 4803 |H | Short_Literal 0x3 02ed e40b | | Load 0x2,0xb 02ee e40a | | Load 0x2,0xa 02ef 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 02f0 6805 |h | Jump_Zero 0x2f6 02f1 0092 06ca | | Action Push_String_Extended,0x6ca ; "}" 02f3 e412 | | Load 0x2,0x12 02f4 e00b | | Load 0x0,0xb 02f5 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 02f6 e411 | | Load 0x2,0x11 02f7 6829 |h) | Jump_Zero 0x321 02f8 4802 |H | Short_Literal 0x2 02f9 e412 | | Load 0x2,0x12 02fa e00b | | Load 0x0,0xb 02fb 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 02fc 0092 06c3 | | Action Push_String_Extended,0x6c3 ; "Execute" 02fe e412 | | Load 0x2,0x12 02ff e00b | | Load 0x0,0xb 0300 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0301 0092 06cb | | Action Push_String_Extended,0x6cb ; " \x22!Implementation\x22.Product_Authorization.Register" 0303 e412 | | Load 0x2,0x12 0304 e00b | | Load 0x0,0xb 0305 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0306 0092 06cc | | Action Push_String_Extended,0x6cc ; " (Product_Name => \x22>>Product Name<<\x22," 0308 e412 | | Load 0x2,0x12 0309 e00b | | Load 0x0,0xb 030a 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 030b 0092 06cd | | Action Push_String_Extended,0x6cd ; " Authorization_Code => \x22>>Code<<\x22," 030d e412 | | Load 0x2,0x12 030e e00b | | Load 0x0,0xb 030f 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0310 0092 06ce | | Action Push_String_Extended,0x6ce ; " Expiration_Date => \x22\x22);" 0312 e412 | | Load 0x2,0x12 0313 e00b | | Load 0x0,0xb 0314 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0315 0092 06cf | | Action Push_String_Extended,0x6cf ; "for the following:" 0317 e412 | | Load 0x2,0x12 0318 e00b | | Load 0x0,0xb 0319 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 031a 4802 |H | Short_Literal 0x2 031b e412 | | Load 0x2,0x12 031c e00b | | Load 0x0,0xb 031d 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 031e e412 | | Load 0x2,0x12 031f e40e | | Load 0x2,0xe 0320 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0321 4800 |H | Short_Literal 0x0 0322 4803 |H | Short_Literal 0x3 0323 e40b | | Load 0x2,0xb 0324 e40a | | Load 0x2,0xa 0325 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0326 6805 |h | Jump_Zero 0x32c 0327 0092 06bf | | Action Push_String_Extended,0x6bf ; ")" 0329 e412 | | Load 0x2,0x12 032a e00b | | Load 0x0,0xb 032b 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 032c 4802 |H | Short_Literal 0x2 032d e412 | | Load 0x2,0x12 032e e00b | | Load 0x0,0xb 032f 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0330 00cf | | Action Mark_Auxiliary 0331 4808 |H | Short_Literal 0x8 0332 4804 |H | Short_Literal 0x4 0333 0007 | | Action Break_Optional 0334 00d8 | | Load_Top At_Offset_0 0335 e40b | | Load 0x2,0xb 0336 e40a | | Load 0x2,0xa 0337 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0338 682a |h* | Jump_Zero 0x363 0339 4800 |H | Short_Literal 0x0 033a 4803 |H | Short_Literal 0x3 033b e40b | | Load 0x2,0xb 033c e40a | | Load 0x2,0xa 033d 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 033e 6814 |h | Jump_Zero 0x353 033f 00d8 | | Load_Top At_Offset_0 0340 e409 | | Load 0x2,0x9 0341 011c | | Execute Any,Convert_Unchecked 0342 1c01 | | Execute_Immediate Run_Utility,0x1 0343 0092 06d0 | | Action Push_String_Extended,0x6d0 ; " => " 0345 01cc | | Execute Vector,Catenate 0346 00ea | | Load_Encached Null_String_Cache 0347 00da | | Load_Top At_Offset_2 0348 e40b | | Load 0x2,0xb 0349 e40a | | Load 0x2,0xa 034a 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 034b 01cc | | Execute Vector,Catenate 034c 0092 06bd | | Action Push_String_Extended,0x6bd ; "~<" 034e 01cc | | Execute Vector,Catenate 034f e412 | | Load 0x2,0x12 0350 e00b | | Load 0x0,0xb 0351 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0352 7810 |x | Jump 0x363 0353 00d8 | | Load_Top At_Offset_0 0354 e409 | | Load 0x2,0x9 0355 011c | | Execute Any,Convert_Unchecked 0356 1c01 | | Execute_Immediate Run_Utility,0x1 0357 0092 06d0 | | Action Push_String_Extended,0x6d0 ; " => " 0359 01cc | | Execute Vector,Catenate 035a 00ea | | Load_Encached Null_String_Cache 035b 00da | | Load_Top At_Offset_2 035c e40b | | Load 0x2,0xb 035d e40a | | Load 0x2,0xa 035e 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 035f 01cc | | Execute Vector,Catenate 0360 e412 | | Load 0x2,0x12 0361 e00b | | Load 0x0,0xb 0362 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0363 00c8 | | Action Pop_Auxiliary_Range 0364 3fcf |? | Loop_Increasing 0x334 0365 00ce | | Action Pop_Auxiliary 0366 e412 | | Load 0x2,0x12 0367 e00b | | Load 0x0,0xb 0368 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0369 c412 | | Store 0x2,0x12 036a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 036b 0000 0000 | | .BLANK 0000[0x5] 0370 ; -------------------------------------------------------------------------------------- 0370 ; SUBPROGRAM 0370 ; -------------------------------------------------------------------------------------- 0370 0373 | s | .CONST 0x0373 ; Address of begin 0371 0004 | | .CONST 0x0004 ; Address of exception handler 0372 0001 | | .CONST 0x0001 ; Number of locals 0373 BODY_0370: 0373 INIT_0370: 0373 00da | | Load_Top At_Offset_2 0374 01db | | Execute Vector,Length 0375 6823 |h# | Jump_Zero 0x399 0376 e405 | | Load 0x2,0x5 0377 6819 |h | Jump_Zero 0x391 0378 0092 06d1 | | Action Push_String_Extended,0x6d1 ; "<PROFILE>" 037a e017 | | Load 0x0,0x17 037b 1819 | | Execute Package,Field_Execute,Field_Number 0x19 037c e017 | | Load 0x0,0x17 037d 181c | | Execute Package,Field_Execute,Field_Number 0x1c 037e 00ea | | Load_Encached Null_String_Cache 037f e405 | | Load 0x2,0x5 0380 0227 | ' | Execute Access,All_Reference 0381 e00f | | Load 0x0,0xf 0382 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0383 0092 06d2 | | Action Push_String_Extended,0x6d2 ; "Authorization Code for" 0385 e5fd | | Load 0x2,-0x3 0386 00e0 | | Load_Encached Standard_Cache 0387 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0388 01cc | | Execute Vector,Catenate 0389 00ea | | Load_Encached Null_String_Cache 038a 4802 |H | Short_Literal 0x2 038b e40b | | Load 0x2,0xb 038c e40a | | Load 0x2,0xa 038d 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 038e e018 | | Load 0x0,0x18 038f 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0390 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0391 e011 | | Load 0x0,0x11 0392 180e | | Execute Package,Field_Execute,Field_Number 0xe 0393 4806 |H | Short_Literal 0x6 0394 0092 06d3 | | Action Push_String_Extended,0x6d3 ; "Need to sepcify OUTPUT file when using MAIL option, no mail will be sent" 0396 e012 | | Load 0x0,0x12 0397 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0398 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0399 e011 | | Load 0x0,0x11 039a 180e | | Execute Package,Field_Execute,Field_Number 0xe 039b 4806 |H | Short_Literal 0x6 039c 0092 06d4 | | Action Push_String_Extended,0x6d4 ; "Need to specify user maillist when using MAIL option, no mail will be sent" 039e e012 | | Load 0x0,0x12 039f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03a0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03a1 0000 0000 | | .BLANK 0000[0x7] 03a8 ; -------------------------------------------------------------------------------------- 03a8 ; SUBPROGRAM 03a8 ; -------------------------------------------------------------------------------------- 03a8 03ae | | .CONST 0x03ae ; Address of begin 03a9 03d9 | | .CONST 0x03d9 ; Address of exception handler 03aa 0003 | | .CONST 0x0003 ; Number of locals 03ab INIT_03a8: 03ab e402 | | Load 0x2,0x2 03ac 029f 052b | +| Declare_Subprogram INIT_0528,For_Call 03ae BODY_03a8: 03ae 8603 | | Call 0x3,0x3 03af 4809 |H | Short_Literal 0x9 03b0 e40b | | Load 0x2,0xb 03b1 e40a | | Load 0x2,0xa 03b2 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 03b3 6823 |h# | Jump_Zero 0x3d7 03b4 4809 |H | Short_Literal 0x9 03b5 e40b | | Load 0x2,0xb 03b6 e40a | | Load 0x2,0xa 03b7 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 03b8 6809 |h | Jump_Zero 0x3c2 03b9 00ea | | Load_Encached Null_String_Cache 03ba 4809 |H | Short_Literal 0x9 03bb e40b | | Load 0x2,0xb 03bc e40a | | Load 0x2,0xa 03bd 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 03be e402 | | Load 0x2,0x2 03bf 03b6 | | Declare_Variable Access,By_Allocation,With_Value 03c0 003a | : | Store_Top Access,At_Offset_2 03c1 7809 |x | Jump 0x3cb 03c2 0092 06d5 | | Action Push_String_Extended,0x6d5 ; "Enter AUTHORIZE Password : " 03c4 e00b | | Load 0x0,0xb 03c5 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 03c6 e00b | | Load 0x0,0xb 03c7 1867 | g | Execute Package,Field_Execute,Field_Number 0x67 03c8 e402 | | Load 0x2,0x2 03c9 03b6 | | Declare_Variable Access,By_Allocation,With_Value 03ca 003a | : | Store_Top Access,At_Offset_2 03cb 4801 |H | Short_Literal 0x1 03cc 0092 06d6 | | Action Push_String_Extended,0x6d6 ; "Rational/SMSE" 03ce 00db | | Load_Top At_Offset_3 03cf 0227 | ' | Execute Access,All_Reference 03d0 e00d | | Load 0x0,0xd 03d1 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 03d2 6802 |h | Jump_Zero 0x3d5 03d3 4801 |H | Short_Literal 0x1 03d4 00ca | | Action Exit_Nullary_Function 03d5 4800 |H | Short_Literal 0x0 03d6 00ca | | Action Exit_Nullary_Function 03d7 4800 |H | Short_Literal 0x0 03d8 00ca | | Action Exit_Nullary_Function 03d9 TRAP_03a8: 03d9 0007 | | Action Break_Optional 03da 4800 |H | Short_Literal 0x0 03db 00ca | | Action Exit_Nullary_Function 03dc 0000 0000 | | .BLANK 0000[0x4] 03e0 ; -------------------------------------------------------------------------------------- 03e0 ; SUBPROGRAM 03e0 ; -------------------------------------------------------------------------------------- 03e0 03f3 | | .CONST 0x03f3 ; Address of begin 03e1 0420 | | .CONST 0x0420 ; Address of exception handler 03e2 0007 | | .CONST 0x0007 ; Number of locals 03e3 INIT_03e0: 03e3 0092 06d7 | | Action Push_String_Extended,0x6d7 ; "!Machine.Temporary.Product_list" 03e5 e00b | | Load 0x0,0xb 03e6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03e7 02c7 | | Declare_Variable Any 03e8 00d8 | | Load_Top At_Offset_0 03e9 1c00 | | Execute_Immediate Run_Utility,0x0 03ea 4801 |H | Short_Literal 0x1 03eb 4864 |Hd | Short_Literal 0x64 03ec 00e9 | | Load_Encached String_Cache 03ed 035b | [ | Declare_Type Array,Constrained 03ee 0337 | 7 | Declare_Variable Array 03ef 00e3 | | Load_Encached Natural_Cache 03f0 03e9 | | Declare_Variable Discrete,Duplicate 03f1 029f 0543 | C| Declare_Subprogram INIT_0540,For_Call 03f3 BODY_03e0: 03f3 e602 | | Load 0x3,0x2 03f4 e00b | | Load 0x0,0xb 03f5 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 03f6 e019 | | Load 0x0,0x19 03f7 180f | | Execute Package,Field_Execute,Field_Number 0xf 03f8 e00b | | Load 0x0,0xb 03f9 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 03fa e602 | | Load 0x3,0x2 03fb e00b | | Load 0x0,0xb 03fc 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 03fd 4801 |H | Short_Literal 0x1 03fe e00b | | Load 0x0,0xb 03ff 1842 | B | Execute Package,Field_Execute,Field_Number 0x42 0400 00e3 | | Load_Encached Natural_Cache 0401 e604 | | Load 0x3,0x4 0402 e00b | | Load 0x0,0xb 0403 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0404 00d1 | | Pop_Control Pop_Count_1 0405 005a | Z | Store_Top Discrete,At_Offset_2 0406 4801 |H | Short_Literal 0x1 0407 4801 |H | Short_Literal 0x1 0408 00db | | Load_Top At_Offset_3 0409 e604 | | Load 0x3,0x4 040a 01cf | | Execute Vector,Slice_Read 040b 4820 |H | Short_Literal 0x20 040c e00d | | Load 0x0,0xd 040d 181e | | Execute Package,Field_Execute,Field_Number 0x1e 040e 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 040f 00cf | | Action Mark_Auxiliary 0410 7808 |x | Jump 0x419 0411 00e3 | | Load_Encached Natural_Cache 0412 e604 | | Load 0x3,0x4 0413 e00b | | Load 0x0,0xb 0414 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0415 00d1 | | Pop_Control Pop_Count_1 0416 005b | [ | Store_Top Discrete,At_Offset_3 0417 8607 | | Call 0x3,0x7 0418 00c9 | | Action Pop_Auxiliary_Loop 0419 e00b | | Load 0x0,0xb 041a 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 041b 6ff5 |o | Jump_Zero 0x411 041c 00ce | | Action Pop_Auxiliary 041d e00b | | Load 0x0,0xb 041e 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 041f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0420 TRAP_03e0: 0420 0007 | | Action Break_Optional 0421 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0422 0000 0000 | | .BLANK 0000[0x6] 0428 ; -------------------------------------------------------------------------------------- 0428 ; SUBPROGRAM 0428 ; -------------------------------------------------------------------------------------- 0428 042b | + | .CONST 0x042b ; Address of begin 0429 0004 | | .CONST 0x0004 ; Address of exception handler 042a 0001 | | .CONST 0x0001 ; Number of locals 042b BODY_0428: 042b INIT_0428: 042b 00cf | | Action Mark_Auxiliary 042c 7807 |x | Jump 0x434 042d e40d | | Load 0x2,0xd 042e 841c | | Call 0x2,0x1c 042f e40d | | Load 0x2,0xd 0430 e408 | | Load 0x2,0x8 0431 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0432 c40d | | Store 0x2,0xd 0433 00c9 | | Action Pop_Auxiliary_Loop 0434 e40d | | Load 0x2,0xd 0435 e408 | | Load 0x2,0x8 0436 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0437 6ff5 |o | Jump_Zero 0x42d 0438 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0439 0000 0000 | | .BLANK 0000[0x7] 0440 ; -------------------------------------------------------------------------------------- 0440 ; SUBPROGRAM 0440 ; -------------------------------------------------------------------------------------- 0440 0448 | H | .CONST 0x0448 ; Address of begin 0441 0004 | | .CONST 0x0004 ; Address of exception handler 0442 0002 | | .CONST 0x0002 ; Number of locals 0443 INIT_0440: 0443 e00b | | Load 0x0,0xb 0444 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0445 02c7 | | Declare_Variable Any 0446 00d8 | | Load_Top At_Offset_0 0447 1c00 | | Execute_Immediate Run_Utility,0x0 0448 BODY_0440: 0448 00d8 | | Load_Top At_Offset_0 0449 00ea | | Load_Encached Null_String_Cache 044a e40c | | Load 0x2,0xc 044b 4801 |H | Short_Literal 0x1 044c e00b | | Load 0x0,0xb 044d 1814 | | Execute Package,Field_Execute,Field_Number 0x14 044e c602 | | Store 0x3,0x2 044f 00d8 | | Load_Top At_Offset_0 0450 e00b | | Load 0x0,0xb 0451 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0452 c602 | | Store 0x3,0x2 0453 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0454 0000 0000 | | .BLANK 0000[0x4] 0458 ; -------------------------------------------------------------------------------------- 0458 ; SUBPROGRAM 0458 ; -------------------------------------------------------------------------------------- 0458 045f | _ | .CONST 0x045f ; Address of begin 0459 0004 | | .CONST 0x0004 ; Address of exception handler 045a 0003 | | .CONST 0x0003 ; Number of locals 045b INIT_0458: 045b e00b | | Load 0x0,0xb 045c 1867 | g | Execute Package,Field_Execute,Field_Number 0x67 045d 029f 055b | [| Declare_Subprogram INIT_0558,For_Call 045f BODY_0458: 045f 00d9 | | Load_Top At_Offset_1 0460 01db | | Execute Vector,Length 0461 680c |h | Jump_Zero 0x46e 0462 00d9 | | Load_Top At_Offset_1 0463 01dd | | Execute Vector,First 0464 00da | | Load_Top At_Offset_2 0465 01d7 | | Execute Vector,Field_Read 0466 0f6e | n | Execute_Immediate Equal,0x6e 0467 00da | | Load_Top At_Offset_2 0468 01dd | | Execute Vector,First 0469 00db | | Load_Top At_Offset_3 046a 01d7 | | Execute Vector,Field_Read 046b 0f4e | N | Execute_Immediate Equal,0x4e 046c 0278 | x | Execute Discrete,Or 046d 6802 |h | Jump_Zero 0x470 046e e01a | | Load 0x0,0x1a 046f 0257 | W | Execute Discrete,Raise 0470 00d9 | | Load_Top At_Offset_1 0471 01dd | | Execute Vector,First 0472 00da | | Load_Top At_Offset_2 0473 01d7 | | Execute Vector,Field_Read 0474 0f79 | y | Execute_Immediate Equal,0x79 0475 00da | | Load_Top At_Offset_2 0476 01dd | | Execute Vector,First 0477 00db | | Load_Top At_Offset_3 0478 01d7 | | Execute Vector,Field_Read 0479 0f59 | Y | Execute_Immediate Equal,0x59 047a 0278 | x | Execute Discrete,Or 047b 6802 |h | Jump_Zero 0x47e 047c 8803 | | Call 0x4,0x3 047d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 047e 0092 06d8 | | Action Push_String_Extended,0x6d8 ; "Illegal response, enter 'Y' or 'N'" 0480 e00b | | Load 0x0,0xb 0481 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0482 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0483 0000 0000 | | .BLANK 0000[0x5] 0488 ; -------------------------------------------------------------------------------------- 0488 ; SUBPROGRAM 0488 ; -------------------------------------------------------------------------------------- 0488 048b | | .CONST 0x048b ; Address of begin 0489 0496 | | .CONST 0x0496 ; Address of exception handler 048a 0001 | | .CONST 0x0001 ; Number of locals 048b BODY_0488: 048b INIT_0488: 048b e7ff | | Load 0x3,-0x1 048c 00e2 | | Load_Encached Integer_Cache 048d 00e0 | | Load_Encached Standard_Cache 048e 1819 | | Execute Package,Field_Execute,Field_Number 0x19 048f 00d8 | | Load_Top At_Offset_0 0490 00e3 | | Load_Encached Natural_Cache 0491 0260 | ` | Execute Discrete,In_Type 0492 7001 |p | Jump_Nonzero 0x494 0493 0801 | | Execute_Immediate Raise,0x1 0494 00cb | | Action Pop_Block_With_Result 0495 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0496 TRAP_0488: 0496 0007 | | Action Break_Optional 0497 e011 | | Load 0x0,0x11 0498 180e | | Execute Package,Field_Execute,Field_Number 0xe 0499 4802 |H | Short_Literal 0x2 049a 4822 |H" | Short_Literal 0x22 049b 0092 06d9 | | Action Push_String_Extended,0x6d9 ; "Illegal numeric value \x22" 049d e7ff | | Load 0x3,-0x1 049e 01cc | | Execute Vector,Catenate 049f 01cb | | Execute Vector,Append 04a0 e012 | | Load 0x0,0x12 04a1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 04a2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04a3 0000 0000 | | .BLANK 0000[0x5] 04a8 ; -------------------------------------------------------------------------------------- 04a8 ; SUBPROGRAM 04a8 ; -------------------------------------------------------------------------------------- 04a8 04ab | | .CONST 0x04ab ; Address of begin 04a9 04b7 | | .CONST 0x04b7 ; Address of exception handler 04aa 0001 | | .CONST 0x0001 ; Number of locals 04ab BODY_04a8: 04ab INIT_04a8: 04ab e00b | | Load 0x0,0xb 04ac 1867 | g | Execute Package,Field_Execute,Field_Number 0x67 04ad 00e2 | | Load_Encached Integer_Cache 04ae 00e0 | | Load_Encached Standard_Cache 04af 1819 | | Execute Package,Field_Execute,Field_Number 0x19 04b0 00d8 | | Load_Top At_Offset_0 04b1 00e3 | | Load_Encached Natural_Cache 04b2 0260 | ` | Execute Discrete,In_Type 04b3 7001 |p | Jump_Nonzero 0x4b5 04b4 0801 | | Execute_Immediate Raise,0x1 04b5 00cb | | Action Pop_Block_With_Result 04b6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04b7 TRAP_04a8: 04b7 0007 | | Action Break_Optional 04b8 0092 06da | | Action Push_String_Extended,0x6da ; "Illegal response, enter a NATURAL number" 04ba e00b | | Load 0x0,0xb 04bb 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 04bc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04bd 0000 0000 | | .XXX[0x3] 04bf 0000 | | 04c0 ; -------------------------------------------------------------------------------------- 04c0 ; SUBPROGRAM 04c0 ; -------------------------------------------------------------------------------------- 04c0 04c3 | | .CONST 0x04c3 ; Address of begin 04c1 04c9 | | .CONST 0x04c9 ; Address of exception handler 04c2 0001 | | .CONST 0x0001 ; Number of locals 04c3 BODY_04c0: 04c3 INIT_04c0: 04c3 00ea | | Load_Encached Null_String_Cache 04c4 00ea | | Load_Encached Null_String_Cache 04c5 e7ff | | Load 0x3,-0x1 04c6 8415 | | Call 0x2,0x15 04c7 00cb | | Action Pop_Block_With_Result 04c8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04c9 TRAP_04c0: 04c9 0007 | | Action Break_Optional 04ca e011 | | Load 0x0,0x11 04cb 180e | | Execute Package,Field_Execute,Field_Number 0xe 04cc 4802 |H | Short_Literal 0x2 04cd 4822 |H" | Short_Literal 0x22 04ce 0092 06db | | Action Push_String_Extended,0x6db ; "Error converting date \x22" 04d0 e7ff | | Load 0x3,-0x1 04d1 01cc | | Execute Vector,Catenate 04d2 01cb | | Execute Vector,Append 04d3 e012 | | Load 0x0,0x12 04d4 1813 | | Execute Package,Field_Execute,Field_Number 0x13 04d5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04d6 0000 0000 | | .XXX[0x2] 04d8 ; -------------------------------------------------------------------------------------- 04d8 ; SUBPROGRAM 04d8 ; -------------------------------------------------------------------------------------- 04d8 04db | | .CONST 0x04db ; Address of begin 04d9 04e3 | | .CONST 0x04e3 ; Address of exception handler 04da 0001 | | .CONST 0x0001 ; Number of locals 04db BODY_04d8: 04db INIT_04d8: 04db 0092 06dc | | Action Push_String_Extended,0x6dc ; "<PLUS_2_WEEKS>" 04dd 00ea | | Load_Encached Null_String_Cache 04de e00b | | Load 0x0,0xb 04df 1867 | g | Execute Package,Field_Execute,Field_Number 0x67 04e0 8415 | | Call 0x2,0x15 04e1 00cb | | Action Pop_Block_With_Result 04e2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04e3 TRAP_04d8: 04e3 0007 | | Action Break_Optional 04e4 0092 06dd | | Action Push_String_Extended,0x6dd ; "Illegal date value" 04e6 e00b | | Load 0x0,0xb 04e7 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 04e8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04e9 0000 0000 | | .BLANK 0000[0x7] 04f0 ; -------------------------------------------------------------------------------------- 04f0 ; SUBPROGRAM 04f0 ; -------------------------------------------------------------------------------------- 04f0 04f8 | | .CONST 0x04f8 ; Address of begin 04f1 0004 | | .CONST 0x0004 ; Address of exception handler 04f2 0002 | | .CONST 0x0002 ; Number of locals 04f3 INIT_04f0: 04f3 4820 |H | Short_Literal 0x20 04f4 e00b | | Load 0x0,0xb 04f5 1867 | g | Execute Package,Field_Execute,Field_Number 0x67 04f6 e00d | | Load 0x0,0xd 04f7 181c | | Execute Package,Field_Execute,Field_Number 0x1c 04f8 BODY_04f0: 04f8 00d8 | | Load_Top At_Offset_0 04f9 01db | | Execute Vector,Length 04fa 6803 |h | Jump_Zero 0x4fe 04fb 00d8 | | Load_Top At_Offset_0 04fc 00cb | | Action Pop_Block_With_Result 04fd 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04fe e011 | | Load 0x0,0x11 04ff 180e | | Execute Package,Field_Execute,Field_Number 0xe 0500 4807 |H | Short_Literal 0x7 0501 0092 06de | | Action Push_String_Extended,0x6de ; "Must specify a site" 0503 e012 | | Load 0x0,0x12 0504 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0505 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0506 0000 0000 | | .XXX[0x2] 0508 ; -------------------------------------------------------------------------------------- 0508 ; SUBPROGRAM 0508 ; -------------------------------------------------------------------------------------- 0508 050f | | .CONST 0x050f ; Address of begin 0509 051d | | .CONST 0x051d ; Address of exception handler 050a 0003 | | .CONST 0x0003 ; Number of locals 050b INIT_0508: 050b 029f 056b | k| Declare_Subprogram INIT_0568,For_Call 050d 029f 0573 | s| Declare_Subprogram INIT_0570,For_Call 050f BODY_0508: 050f 4801 |H | Short_Literal 0x1 0510 0092 06df | | Action Push_String_Extended,0x6df ; "TOKEN" 0512 4800 |H | Short_Literal 0x0 0513 e7ff | | Load 0x3,-0x1 0514 e408 | | Load 0x2,0x8 0515 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0516 e00d | | Load 0x0,0xd 0517 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0518 6802 |h | Jump_Zero 0x51b 0519 8802 | | Call 0x4,0x2 051a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 051b 8803 | | Call 0x4,0x3 051c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 051d TRAP_0508: 051d e01a | | Load 0x0,0x1a 051e 010f | | Execute Exception,Equal 051f 6801 |h | Jump_Zero 0x521 0520 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0521 0100 | | Execute Exception,Raise 0522 0000 0000 | | .BLANK 0000[0x6] 0528 ; -------------------------------------------------------------------------------------- 0528 ; SUBPROGRAM 0528 ; -------------------------------------------------------------------------------------- 0528 052b | + | .CONST 0x052b ; Address of begin 0529 0537 | 7 | .CONST 0x0537 ; Address of exception handler 052a 0001 | | .CONST 0x0001 ; Number of locals 052b BODY_0528: 052b INIT_0528: 052b 4801 |H | Short_Literal 0x1 052c 0092 06e0 | | Action Push_String_Extended,0x6e0 ; "Rational" 052e e015 | | Load 0x0,0x15 052f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0530 e00d | | Load 0x0,0xd 0531 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0532 6803 |h | Jump_Zero 0x536 0533 4801 |H | Short_Literal 0x1 0534 00cb | | Action Pop_Block_With_Result 0535 00ca | | Action Exit_Nullary_Function 0536 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0537 TRAP_0528: 0537 0007 | | Action Break_Optional 0538 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0539 0000 0000 | | .BLANK 0000[0x7] 0540 ; -------------------------------------------------------------------------------------- 0540 ; SUBPROGRAM 0540 ; -------------------------------------------------------------------------------------- 0540 054a | J | .CONST 0x054a ; Address of begin 0541 0004 | | .CONST 0x0004 ; Address of exception handler 0542 0002 | | .CONST 0x0002 ; Number of locals 0543 INIT_0540: 0543 4820 |H | Short_Literal 0x20 0544 4801 |H | Short_Literal 0x1 0545 e605 | | Load 0x3,0x5 0546 e604 | | Load 0x3,0x4 0547 01cf | | Execute Vector,Slice_Read 0548 e00d | | Load 0x0,0xd 0549 181c | | Execute Package,Field_Execute,Field_Number 0x1c 054a BODY_0540: 054a 0092 06e1 | | Action Push_String_Extended,0x6e1 ; "88/01/01" 054c 0092 06e1 | | Action Push_String_Extended,0x6e1 ; "88/01/01" 054e e015 | | Load 0x0,0x15 054f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0550 00db | | Load_Top At_Offset_3 0551 e019 | | Load 0x0,0x19 0552 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0553 00da | | Load_Top At_Offset_2 0554 e019 | | Load 0x0,0x19 0555 180d | | Execute Package,Field_Execute,Field_Number 0xd 0556 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0557 0000 | | .XXX[0x1] 0558 ; -------------------------------------------------------------------------------------- 0558 ; SUBPROGRAM 0558 ; -------------------------------------------------------------------------------------- 0558 0561 | a | .CONST 0x0561 ; Address of begin 0559 0004 | | .CONST 0x0004 ; Address of exception handler 055a 0002 | | .CONST 0x0002 ; Number of locals 055b INIT_0558: 055b e7fd | | Load 0x3,-0x3 055c e7fe | | Load 0x3,-0x2 055d e602 | | Load 0x3,0x2 055e 8417 | | Call 0x2,0x17 055f e00d | | Load 0x0,0xd 0560 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0561 BODY_0558: 0561 00d8 | | Load_Top At_Offset_0 0562 00cb | | Action Pop_Block_With_Result 0563 00cb | | Action Pop_Block_With_Result 0564 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0565 0000 0000 | | .XXX[0x3] 0567 0000 | | 0568 ; -------------------------------------------------------------------------------------- 0568 ; SUBPROGRAM 0568 ; -------------------------------------------------------------------------------------- 0568 056d | m | .CONST 0x056d ; Address of begin 0569 0004 | | .CONST 0x0004 ; Address of exception handler 056a 0002 | | .CONST 0x0002 ; Number of locals 056b INIT_0568: 056b 029f 057b | {| Declare_Subprogram INIT_0578,For_Call 056d BODY_0568: 056d 8a02 | | Call 0x5,0x2 056e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 056f 0000 | | .XXX[0x1] 0570 ; -------------------------------------------------------------------------------------- 0570 ; SUBPROGRAM 0570 ; -------------------------------------------------------------------------------------- 0570 0575 | u | .CONST 0x0575 ; Address of begin 0571 0004 | | .CONST 0x0004 ; Address of exception handler 0572 0002 | | .CONST 0x0002 ; Number of locals 0573 INIT_0570: 0573 029f 05d3 | | Declare_Subprogram INIT_05d0,For_Call 0575 BODY_0570: 0575 8a02 | | Call 0x5,0x2 0576 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0577 0000 | | .XXX[0x1] 0578 ; -------------------------------------------------------------------------------------- 0578 ; SUBPROGRAM 0578 ; -------------------------------------------------------------------------------------- 0578 0590 | | .CONST 0x0590 ; Address of begin 0579 0004 | | .CONST 0x0004 ; Address of exception handler 057a 0007 | | .CONST 0x0007 ; Number of locals 057b INIT_0578: 057b 00ea | | Load_Encached Null_String_Cache 057c 4800 |H | Short_Literal 0x0 057d e7ff | | Load 0x3,-0x1 057e e408 | | Load 0x2,0x8 057f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0580 e408 | | Load 0x2,0x8 0581 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0582 0092 06e2 | | Action Push_String_Extended,0x6e2 ; "Token Authorize" 0584 4800 |H | Short_Literal 0x0 0585 00da | | Load_Top At_Offset_2 0586 8417 | | Call 0x2,0x17 0587 e00d | | Load 0x0,0xd 0588 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0589 00e3 | | Load_Encached Natural_Cache 058a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 058b 03e9 | | Declare_Variable Discrete,Duplicate 058c 029f 0603 | | Declare_Subprogram INIT_0600,For_Call 058e 029f 0613 | | Declare_Subprogram INIT_0610,For_Call 0590 BODY_0578: 0590 ec02 | | Load 0x6,0x2 0591 e408 | | Load 0x2,0x8 0592 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0593 cc02 | | Store 0x6,0x2 0594 ec03 | | Load 0x6,0x3 0595 0092 06e3 | | Action Push_String_Extended,0x6e3 ; ": Enter number of tokens to assign (Donation) : " 0597 01cc | | Execute Vector,Catenate 0598 4800 |H | Short_Literal 0x0 0599 ec02 | | Load 0x6,0x2 059a e408 | | Load 0x2,0x8 059b 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 059c 8418 | | Call 0x2,0x18 059d ac04 | | Store_Unchecked 0x6,0x4 059e ec02 | | Load 0x6,0x2 059f e408 | | Load 0x2,0x8 05a0 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 05a1 cc02 | | Store 0x6,0x2 05a2 e5fd | | Load 0x2,-0x3 05a3 7002 |p | Jump_Nonzero 0x5a6 05a4 8c06 | | Call 0x6,0x6 05a5 780a |x | Jump 0x5b0 05a6 ec03 | | Load 0x6,0x3 05a7 0092 06e4 | | Action Push_String_Extended,0x6e4 ; ": Enter total number of resulting tokens : " 05a9 01cc | | Execute Vector,Catenate 05aa 4800 |H | Short_Literal 0x0 05ab ec02 | | Load 0x6,0x2 05ac e408 | | Load 0x2,0x8 05ad 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 05ae 8418 | | Call 0x2,0x18 05af 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 05b0 ec02 | | Load 0x6,0x2 05b1 e408 | | Load 0x2,0x8 05b2 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 05b3 cc02 | | Store 0x6,0x2 05b4 ec03 | | Load 0x6,0x3 05b5 4800 |H | Short_Literal 0x0 05b6 ec02 | | Load 0x6,0x2 05b7 e408 | | Load 0x2,0x8 05b8 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 05b9 841a | | Call 0x2,0x1a 05ba e402 | | Load 0x2,0x2 05bb 03b6 | | Declare_Variable Access,By_Allocation,With_Value 05bc a404 | | Store_Unchecked 0x2,0x4 05bd ec02 | | Load 0x6,0x2 05be e408 | | Load 0x2,0x8 05bf 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 05c0 cc02 | | Store 0x6,0x2 05c1 ec03 | | Load 0x6,0x3 05c2 4800 |H | Short_Literal 0x0 05c3 ec02 | | Load 0x6,0x2 05c4 e408 | | Load 0x2,0x8 05c5 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 05c6 8419 | | Call 0x2,0x19 05c7 e402 | | Load 0x2,0x2 05c8 03b6 | | Declare_Variable Access,By_Allocation,With_Value 05c9 a403 | | Store_Unchecked 0x2,0x3 05ca 8c07 | | Call 0x6,0x7 05cb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05cc 0000 0000 | | .BLANK 0000[0x4] 05d0 ; -------------------------------------------------------------------------------------- 05d0 ; SUBPROGRAM 05d0 ; -------------------------------------------------------------------------------------- 05d0 05da | | .CONST 0x05da ; Address of begin 05d1 0004 | | .CONST 0x0004 ; Address of exception handler 05d2 0002 | | .CONST 0x0002 ; Number of locals 05d3 INIT_05d0: 05d3 0092 06e5 | | Action Push_String_Extended,0x6e5 ; "Authorize" 05d5 4801 |H | Short_Literal 0x1 05d6 e7ff | | Load 0x3,-0x1 05d7 8417 | | Call 0x2,0x17 05d8 e00d | | Load 0x0,0xd 05d9 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 05da BODY_05d0: 05da e5fd | | Load 0x2,-0x3 05db 700c |p | Jump_Nonzero 0x5e8 05dc e406 | | Load 0x2,0x6 05dd 0227 | ' | Execute Access,All_Reference 05de e406 | | Load 0x2,0x6 05df 0227 | ' | Execute Access,All_Reference 05e0 e414 | | Load 0x2,0x14 05e1 00db | | Load_Top At_Offset_3 05e2 e019 | | Load 0x0,0x19 05e3 1815 | | Execute Package,Field_Execute,Field_Number 0x15 05e4 00da | | Load_Top At_Offset_2 05e5 e019 | | Load 0x0,0x19 05e6 180d | | Execute Package,Field_Execute,Field_Number 0xd 05e7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05e8 4801 |H | Short_Literal 0x1 05e9 a411 | | Store_Unchecked 0x2,0x11 05ea 00d8 | | Load_Top At_Offset_0 05eb e40e | | Load 0x2,0xe 05ec 1813 | | Execute Package,Field_Execute,Field_Number 0x13 05ed e406 | | Load 0x2,0x6 05ee 0227 | ' | Execute Access,All_Reference 05ef e414 | | Load 0x2,0x14 05f0 00da | | Load_Top At_Offset_2 05f1 e019 | | Load 0x0,0x19 05f2 1815 | | Execute Package,Field_Execute,Field_Number 0x15 05f3 e40e | | Load 0x2,0xe 05f4 1813 | | Execute Package,Field_Execute,Field_Number 0x13 05f5 e406 | | Load 0x2,0x6 05f6 0227 | ' | Execute Access,All_Reference 05f7 e40e | | Load 0x2,0xe 05f8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 05f9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05fa 0000 0000 | | .BLANK 0000[0x6] 0600 ; -------------------------------------------------------------------------------------- 0600 ; SUBPROGRAM 0600 ; -------------------------------------------------------------------------------------- 0600 0603 | | .CONST 0x0603 ; Address of begin 0601 060a | | .CONST 0x060a ; Address of exception handler 0602 0001 | | .CONST 0x0001 ; Number of locals 0603 BODY_0600: 0603 INIT_0600: 0603 ec03 | | Load 0x6,0x3 0604 e01b | | Load 0x0,0x1b 0605 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0606 ec04 | | Load 0x6,0x4 0607 0273 | s | Execute Discrete,Plus 0608 cc05 | | Store 0x6,0x5 0609 4501 |E | Exit_Suprogram New_Top_Offset 0x1 060a TRAP_0600: 060a 010e | | Execute Exception,Is_Constraint_Error 060b 6803 |h | Jump_Zero 0x60f 060c ec04 | | Load 0x6,0x4 060d ac05 | | Store_Unchecked 0x6,0x5 060e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 060f 0100 | | Execute Exception,Raise 0610 ; -------------------------------------------------------------------------------------- 0610 ; SUBPROGRAM 0610 ; -------------------------------------------------------------------------------------- 0610 0613 | | .CONST 0x0613 ; Address of begin 0611 0689 | | .CONST 0x0689 ; Address of exception handler 0612 0001 | | .CONST 0x0001 ; Number of locals 0613 BODY_0610: 0613 INIT_0610: 0613 e5fd | | Load 0x2,-0x3 0614 7026 |p& | Jump_Nonzero 0x63b 0615 0092 06d1 | | Action Push_String_Extended,0x6d1 ; "<PROFILE>" 0617 e403 | | Load 0x2,0x3 0618 0227 | ' | Execute Access,All_Reference 0619 e404 | | Load 0x2,0x4 061a 0227 | ' | Execute Access,All_Reference 061b e414 | | Load 0x2,0x14 061c ec05 | | Load 0x6,0x5 061d 00d8 | | Load_Top At_Offset_0 061e 00e4 | | Load_Encached Positive_Cache 061f 0260 | ` | Execute Discrete,In_Type 0620 7001 |p | Jump_Nonzero 0x622 0621 0801 | | Execute_Immediate Raise,0x1 0622 ec04 | | Load 0x6,0x4 0623 00d8 | | Load_Top At_Offset_0 0624 00e4 | | Load_Encached Positive_Cache 0625 0260 | ` | Execute Discrete,In_Type 0626 7001 |p | Jump_Nonzero 0x628 0627 0801 | | Execute_Immediate Raise,0x1 0628 ec03 | | Load 0x6,0x3 0629 e015 | | Load 0x0,0x15 062a 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 062b ec05 | | Load 0x6,0x5 062c 00d8 | | Load_Top At_Offset_0 062d 00e4 | | Load_Encached Positive_Cache 062e 0260 | ` | Execute Discrete,In_Type 062f 7001 |p | Jump_Nonzero 0x631 0630 0801 | | Execute_Immediate Raise,0x1 0631 ec04 | | Load 0x6,0x4 0632 00d8 | | Load_Top At_Offset_0 0633 00e4 | | Load_Encached Positive_Cache 0634 0260 | ` | Execute Discrete,In_Type 0635 7001 |p | Jump_Nonzero 0x637 0636 0801 | | Execute_Immediate Raise,0x1 0637 ec03 | | Load 0x6,0x3 0638 e015 | | Load 0x0,0x15 0639 1818 | | Execute Package,Field_Execute,Field_Number 0x18 063a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 063b 4801 |H | Short_Literal 0x1 063c a410 | | Store_Unchecked 0x2,0x10 063d ec03 | | Load 0x6,0x3 063e e40f | | Load 0x2,0xf 063f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0640 ec04 | | Load 0x6,0x4 0641 00e0 | | Load_Encached Standard_Cache 0642 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0643 e40f | | Load 0x2,0xf 0644 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0645 ec05 | | Load 0x6,0x5 0646 00e0 | | Load_Encached Standard_Cache 0647 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0648 e40f | | Load 0x2,0xf 0649 1813 | | Execute Package,Field_Execute,Field_Number 0x13 064a e403 | | Load 0x2,0x3 064b 0227 | ' | Execute Access,All_Reference 064c e404 | | Load 0x2,0x4 064d 0227 | ' | Execute Access,All_Reference 064e e414 | | Load 0x2,0x14 064f ec05 | | Load 0x6,0x5 0650 00d8 | | Load_Top At_Offset_0 0651 00e4 | | Load_Encached Positive_Cache 0652 0260 | ` | Execute Discrete,In_Type 0653 7001 |p | Jump_Nonzero 0x655 0654 0801 | | Execute_Immediate Raise,0x1 0655 ec04 | | Load 0x6,0x4 0656 00d8 | | Load_Top At_Offset_0 0657 00e4 | | Load_Encached Positive_Cache 0658 0260 | ` | Execute Discrete,In_Type 0659 7001 |p | Jump_Nonzero 0x65b 065a 0801 | | Execute_Immediate Raise,0x1 065b ec03 | | Load 0x6,0x3 065c e015 | | Load 0x0,0x15 065d 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 065e e40f | | Load 0x2,0xf 065f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0660 e403 | | Load 0x2,0x3 0661 0227 | ' | Execute Access,All_Reference 0662 e40f | | Load 0x2,0xf 0663 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0664 e413 | | Load 0x2,0x13 0665 482c |H, | Short_Literal 0x2c 0666 0092 06e6 | | Action Push_String_Extended,0x6e6 ; "TOKEN => (NAME => (" 0668 ec03 | | Load 0x6,0x3 0669 01cc | | Execute Vector,Catenate 066a 0092 06e7 | | Action Push_String_Extended,0x6e7 ; ")," 066c 01cc | | Execute Vector,Catenate 066d ec04 | | Load 0x6,0x4 066e 00e0 | | Load_Encached Standard_Cache 066f 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0670 01cc | | Execute Vector,Catenate 0671 01cb | | Execute Vector,Append 0672 ec05 | | Load 0x6,0x5 0673 00e0 | | Load_Encached Standard_Cache 0674 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0675 01cc | | Execute Vector,Catenate 0676 0092 06aa | | Action Push_String_Extended,0x6aa ; ", " 0678 01cc | | Execute Vector,Catenate 0679 e404 | | Load 0x2,0x4 067a 0227 | ' | Execute Access,All_Reference 067b 01cc | | Execute Vector,Catenate 067c 0092 06aa | | Action Push_String_Extended,0x6aa ; ", " 067e 01cc | | Execute Vector,Catenate 067f e403 | | Load 0x2,0x3 0680 0227 | ' | Execute Access,All_Reference 0681 01cc | | Execute Vector,Catenate 0682 0092 06a9 | | Action Push_String_Extended,0x6a9 ; "), " 0684 01cc | | Execute Vector,Catenate 0685 e00c | | Load 0x0,0xc 0686 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0687 00d1 | | Pop_Control Pop_Count_1 0688 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0689 TRAP_0610: 0689 0007 | | Action Break_Optional 068a e011 | | Load 0x0,0x11 068b 180e | | Execute Package,Field_Execute,Field_Number 0xe 068c 4807 |H | Short_Literal 0x7 068d 0092 06e8 | | Action Push_String_Extended,0x6e8 ; "Problem generating token authorization for " 068f ec03 | | Load 0x6,0x3 0690 01cc | | Execute Vector,Catenate 0691 e012 | | Load 0x0,0x12 0692 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0693 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0694 ; -------------------------------------------------------------------------------------- 0694 ; STRING TABLE 0694 ; -------------------------------------------------------------------------------------- 0694 00ac | | .STRTAB 0x00ac->0x06ea ; "NONE" 0695 00ae | | .STRTAB 0x00ae->0x06ec ; "OUTPUT_FILE" 0696 00b7 | | .STRTAB 0x00b7->0x06f1 ; "MAIL_MESSAGE" 0697 00c1 | | .STRTAB 0x00c1->0x06f7 ; "COMPOSE_DOCUMENT" 0698 00cf | | .STRTAB 0x00cf->0x06ff ; "SO" 0699 00cf | | .STRTAB 0x00cf->0x0700 ; "PO" 069a 00cf | | .STRTAB 0x00cf->0x0701 ; "DEPT" 069b 00d1 | | .STRTAB 0x00d1->0x0703 ; "ORIGINATOR" 069c 00d9 | | .STRTAB 0x00d9->0x0708 ; "COMMENT" 069d 00de | | .STRTAB 0x00de->0x070c ; "PASSWORD" 069e 00e4 | | .STRTAB 0x00e4->0x0710 ; "others => Unspecified" 069f 00f7 | | .STRTAB 0x00f7->0x071a ; "Compose_Document => Boolean_Valued, others => unspecified" 06a0 012e | . | .STRTAB 0x012e->0x0737 ; "!Machine.Temporary.Authorize_Illegally_Executed" 06a1 015b | [ | .STRTAB 0x015b->0x074e ; " " 06a2 015a | Z | .STRTAB 0x015a->0x074f ; "<DIRECTORIES>" 06a3 0165 | e | .STRTAB 0x0165->0x0755 ; "<WORLDS>" 06a4 016b | k | .STRTAB 0x016b->0x0759 ; "[!Local.QA.Authorize,\x5cAuthorize]" 06a5 0189 | | .STRTAB 0x0189->0x0769 ; "All products have been unauthorized, contact Rational" 06a6 01bc | | .STRTAB 0x01bc->0x0784 ; "Illegal use of Internal Rational procedure, all products will be Unauthorized if this procedure is executed again" 06a7 022b | + | .STRTAB 0x022b->0x07bc ; "NAME" 06a8 022d | - | .STRTAB 0x022d->0x07be ; "NAME => (" 06a9 0234 | 4 | .STRTAB 0x0234->0x07c3 ; "), " 06aa 0235 | 5 | .STRTAB 0x0235->0x07c4 ; ", " 06ab 0235 | 5 | .STRTAB 0x0235->0x07c5 ; "QUERY" 06ac 0238 | 8 | .STRTAB 0x0238->0x07c8 ; "? [N] : " 06ad 023e | > | .STRTAB 0x023e->0x07cc ; "<TODAY>" 06ae 0243 | C | .STRTAB 0x0243->0x07cf ; ": Enter Date for accepting tokens [<PLUS_2_WEEKS>] : " 06af 0276 | v | .STRTAB 0x0276->0x07ea ; ": Enter Site ID accepting tokens : " 06b0 0297 | | .STRTAB 0x0297->0x07fb ; "<FOREVER>" 06b1 029e | | .STRTAB 0x029e->0x0800 ; "Product_Name" 06b2 02a8 | | .STRTAB 0x02a8->0x0806 ; "Authorization_Code" 06b3 02b8 | | .STRTAB 0x02b8->0x080f ; "Expiration_Date" 06b4 02c5 | | .STRTAB 0x02c5->0x0816 ; "Product" 06b5 02ca | | .STRTAB 0x02ca->0x081a ; "Donation" 06b6 02d0 | | .STRTAB 0x02d0->0x081e ; "Resulting_Count" 06b7 02dd | | .STRTAB 0x02dd->0x0825 ; "Code" 06b8 02df | | .STRTAB 0x02df->0x0827 ; "Accept Date" 06b9 02e8 | | .STRTAB 0x02e8->0x082d ; "~comment(PRODUCTS => (" 06ba 02fc | | .STRTAB 0x02fc->0x0838 ; "))" 06bb 02fc | | .STRTAB 0x02fc->0x0839 ; "~smse_title(" 06bc 0306 | | .STRTAB 0x0306->0x083f ; "Product Authorization Codes" 06bd 031f | | .STRTAB 0x031f->0x084c ; "~<" 06be 031f | | .STRTAB 0x031f->0x084d ; "Machine ID :" 06bf 0329 | ) | .STRTAB 0x0329->0x0853 ; ")" 06c0 0328 | ( | .STRTAB 0x0328->0x0854 ; "~sb_e(" 06c1 032c | , | .STRTAB 0x032c->0x0857 ; "~null{~environment{point_size=8}" 06c2 034a | J | .STRTAB 0x034a->0x0867 ; "SITE: " 06c3 034e | N | .STRTAB 0x034e->0x086a ; "Execute" 06c4 0353 | S | .STRTAB 0x0353->0x086d ; " Accept_Tokens (Product => \x22>>Product Name<<\x22," 06c5 0382 | | .STRTAB 0x0382->0x0886 ; " Donation => [POSITIVE-expression]," 06c6 03b5 | | .STRTAB 0x03b5->0x08a0 ; " Resulting_Count => [POSITIVE-expression]," 06c7 03ef | | .STRTAB 0x03ef->0x08be ; " Code => \x22>>Authorization Code<<\x22," 06c8 0421 | ! | .STRTAB 0x0421->0x08d8 ; " Response => \x22<PROFILE>\x22);" 06c9 044b | K | .STRTAB 0x044b->0x08ee ; "on the specified ACCEPT_DATE for the following:" 06ca 0478 | x | .STRTAB 0x0478->0x0906 ; "}" 06cb 0477 | w | .STRTAB 0x0477->0x0906 ; " \x22!Implementation\x22.Product_Authorization.Register" 06cc 04a9 | | .STRTAB 0x04a9->0x0920 ; " (Product_Name => \x22>>Product Name<<\x22," 06cd 04d1 | | .STRTAB 0x04d1->0x0935 ; " Authorization_Code => \x22>>Code<<\x22," 06ce 04f7 | | .STRTAB 0x04f7->0x0949 ; " Expiration_Date => \x22\x22);" 06cf 0513 | | .STRTAB 0x0513->0x0958 ; "for the following:" 06d0 0523 | # | .STRTAB 0x0523->0x0961 ; " => " 06d1 0525 | % | .STRTAB 0x0525->0x0963 ; "<PROFILE>" 06d2 052c | , | .STRTAB 0x052c->0x0968 ; "Authorization Code for" 06d3 0540 | @ | .STRTAB 0x0540->0x0973 ; "Need to sepcify OUTPUT file when using MAIL option, no mail will be sent" 06d4 0586 | | .STRTAB 0x0586->0x0997 ; "Need to specify user maillist when using MAIL option, no mail will be sent" 06d5 05ce | | .STRTAB 0x05ce->0x09bc ; "Enter AUTHORIZE Password : " 06d6 05e7 | | .STRTAB 0x05e7->0x09c9 ; "Rational/SMSE" 06d7 05f2 | | .STRTAB 0x05f2->0x09d0 ; "!Machine.Temporary.Product_list" 06d8 060f | | .STRTAB 0x060f->0x09df ; "Illegal response, enter 'Y' or 'N'" 06d9 062f | / | .STRTAB 0x062f->0x09f0 ; "Illegal numeric value \x22" 06da 0644 | D | .STRTAB 0x0644->0x09fc ; "Illegal response, enter a NATURAL number" 06db 066a | j | .STRTAB 0x066a->0x0a10 ; "Error converting date \x22" 06dc 067f | | .STRTAB 0x067f->0x0a1b ; "<PLUS_2_WEEKS>" 06dd 068b | | .STRTAB 0x068b->0x0a22 ; "Illegal date value" 06de 069b | | .STRTAB 0x069b->0x0a2b ; "Must specify a site" 06df 06ac | | .STRTAB 0x06ac->0x0a35 ; "TOKEN" 06e0 06af | | .STRTAB 0x06af->0x0a37 ; "Rational" 06e1 06b5 | | .STRTAB 0x06b5->0x0a3b ; "88/01/01" 06e2 06bb | | .STRTAB 0x06bb->0x0a3f ; "Token Authorize" 06e3 06c8 | | .STRTAB 0x06c8->0x0a47 ; ": Enter number of tokens to assign (Donation) : " 06e4 06f6 | | .STRTAB 0x06f6->0x0a5f ; ": Enter total number of resulting tokens : " 06e5 071f | | .STRTAB 0x071f->0x0a74 ; "Authorize" 06e6 0726 | & | .STRTAB 0x0726->0x0a79 ; "TOKEN => (NAME => (" 06e7 0737 | 7 | .STRTAB 0x0737->0x0a82 ; ")," 06e8 0737 | 7 | .STRTAB 0x0737->0x0a83 ; "Problem generating token authorization for " 06e9 0760 | ` | .STREND 0x0760->0x0a99 06ea 4e4f 4e45 |NONE| .STRTAB_STRINGS 0a99 0000 0000 | | .BLANK 0000[0x7] 0aa0 ; -------------------------------------------------------------------------------------- 0aa0 ; Debug Table 0aa0 ; -------------------------------------------------------------------------------------- 0aa0 0004 0003 | | .DEBUG4 0x0004,0x0003,0x8931,0x0000,0x0001,0x0000 0aa6 0000 0000 | | .BLANK 0000[0x15a]