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