|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 6144 (0x1800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_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 For_Outer_Call,Visible,Unelaborated,INIT_0018
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 For_Call,INIT_00d0
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 For_Call,INIT_00f8
0079 029f 0113 | | Declare_Subprogram For_Call,INIT_0110
007b 029f 0153 | S| Declare_Subprogram For_Call,INIT_0150
007d 029f 0183 | | Declare_Subprogram For_Call,INIT_0180
007f 029f 019b | | Declare_Subprogram For_Call,INIT_0198
0081 029f 01c3 | | Declare_Subprogram For_Call,INIT_01c0
0083 029f 01e3 | | Declare_Subprogram For_Call,INIT_01e0
0085 029f 0223 | #| Declare_Subprogram For_Call,INIT_0220
0087 029f 022b | +| Declare_Subprogram For_Call,INIT_0228
0089 029f 0373 | s| Declare_Subprogram For_Call,INIT_0370
008b 029f 03ab | | Declare_Subprogram For_Call,INIT_03a8
008d 029f 03e3 | | Declare_Subprogram For_Call,INIT_03e0
008f 029f 042b | +| Declare_Subprogram For_Call,INIT_0428
0091 029f 0443 | C| Declare_Subprogram For_Call,INIT_0440
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_Subprogram 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_Subprogram 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_Subprogram 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 0x7
00d4 4302 |C | Exit_Subprogram From_Utility,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,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,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,0x1
00e9 00db | | Load_Top At_Offset_3
00ea 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00eb 00db | | Load_Top At_Offset_3
00ec 4202 |B | Exit_Subprogram From_Utility,With_Result,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,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,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_Result,0x3
010c 00ea | | Load_Encached Null_String_Cache
010d 4403 |D | Exit_Subprogram With_Result,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_Result,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_Result,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 For_Call,INIT_0458
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_Result,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 For_Call,INIT_0488
0185 029f 04ab | | Declare_Subprogram For_Call,INIT_04a8
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 For_Call,INIT_04c0
019d 029f 04db | | Declare_Subprogram For_Call,INIT_04d8
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_Result,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_Result,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 For_Call,INIT_04f0
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_Result,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_Result,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_Result,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_Subprogram 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_Subprogram 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 For_Call,INIT_0508
0225 BODY_0220:
0225 8602 | | Call 0x3,0x2
0226 4502 |E | Exit_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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 For_Call,INIT_0528
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 For_Call,INIT_0540
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_Unchecked 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_Subprogram 0x1
0420 TRAP_03e0:
0420 0007 | | Action Break_Optional
0421 4501 |E | Exit_Subprogram 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_Subprogram 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_Subprogram 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 For_Call,INIT_0558
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_Subprogram 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_Subprogram 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_Result,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_Subprogram 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_Result,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_Subprogram 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_Result,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_Subprogram 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_Result,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_Subprogram 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_Result,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_Subprogram 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 For_Call,INIT_0568
050d 029f 0573 | s| Declare_Subprogram For_Call,INIT_0570
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_Subprogram 0x1
051b 8803 | | Call 0x4,0x3
051c 4501 |E | Exit_Subprogram 0x1
051d TRAP_0508:
051d e01a | | Load 0x0,0x1a
051e 010f | | Execute Exception,Equal
051f 6801 |h | Jump_Zero 0x521
0520 4501 |E | Exit_Subprogram 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_Subprogram 0x1
0537 TRAP_0528:
0537 0007 | | Action Break_Optional
0538 4501 |E | Exit_Subprogram 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_Subprogram 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_Result,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 For_Call,INIT_0578
056d BODY_0568:
056d 8a02 | | Call 0x5,0x2
056e 4501 |E | Exit_Subprogram 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 For_Call,INIT_05d0
0575 BODY_0570:
0575 8a02 | | Call 0x5,0x2
0576 4501 |E | Exit_Subprogram 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 For_Call,INIT_0600
058e 029f 0613 | | Declare_Subprogram For_Call,INIT_0610
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_Unchecked 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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"
; "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>"
; "<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"
; "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]