|
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: 3072 (0xc00) Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_1188cd9
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0410 | | .CONST 0x0410 ; 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 0002 | | .CONST 0x0002 ; 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 0056 | V | .CONST 0x0056 ; Address of begin 0019 006c | l | .CONST 0x006c ; Address of exception handler 001a 0009 | | .CONST 0x0009 ; Number of locals 001b INIT_0018: 001b 0093 0000 | | push_full_address 0x0 001d 606a |`j | Indirect_Literal Discrete,0x88,{0x80000000, 0x00010000} 001e 0273 | s | Execute Discrete,Plus 001f e002 | | Load 0x0,0x2 0020 0273 | s | Execute Discrete,Plus 0021 e003 | | Load 0x0,0x3 0022 0273 | s | Execute Discrete,Plus 0023 e004 | | Load 0x0,0x4 0024 180e | | Execute Package,Field_Execute,Field_Number 0xe 0025 e5fb | | Load 0x2,-0x5 0026 e004 | | Load 0x0,0x4 0027 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0028 0092 01d3 | | Action Push_String_Extended,0x1d3 ; "Build_TestMate_Training_Users" 002a 0092 01d4 | | Action Push_String_Extended,0x1d4 ; "First_User_Number =>" 002c e5ff | | Load 0x2,-0x1 002d 00e0 | | Load_Encached Standard_Cache 002e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 002f 01cc | | Execute Vector,Catenate 0030 0092 01d5 | | Action Push_String_Extended,0x1d5 ; ", Last_User_Number =>" 0032 01cc | | Execute Vector,Catenate 0033 e5fe | | Load 0x2,-0x2 0034 00e0 | | Load_Encached Standard_Cache 0035 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0036 01cc | | Execute Vector,Catenate 0037 0092 01d6 | | Action Push_String_Extended,0x1d6 ; ", Username_Prefix => \x22" 0039 01cc | | Execute Vector,Catenate 003a e5fd | | Load 0x2,-0x3 003b 01cc | | Execute Vector,Catenate 003c 0092 01d7 | | Action Push_String_Extended,0x1d7 ; "\x22, Response => \x22" 003e 01cc | | Execute Vector,Catenate 003f e5fb | | Load 0x2,-0x5 0040 01cc | | Execute Vector,Catenate 0041 0092 01d8 | | Action Push_String_Extended,0x1d8 ; "\x22" 0043 01cc | | Execute Vector,Catenate 0044 e005 | | Load 0x0,0x5 0045 0387 | | Declare_Variable Package 0046 00d8 | | Load_Top At_Offset_0 0047 020f | | Execute Module,Activate 0048 029f 0093 | | Declare_Subprogram INIT_0090,For_Call 004a 029f 00ab | | Declare_Subprogram INIT_00a8,For_Call 004c 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call 004e 029f 00db | | Declare_Subprogram INIT_00d8,For_Call 0050 029f 0123 | #| Declare_Subprogram INIT_0120,For_Call 0052 029f 0153 | S| Declare_Subprogram INIT_0150,For_Call 0054 029f 017b | {| Declare_Subprogram INIT_0178,For_Call 0056 BODY_0018: 0056 e006 | | Load 0x0,0x6 0057 e402 | | Load 0x2,0x2 0058 0096 | | Execute Package,Entry 0059 8403 | | Call 0x2,0x3 005a e5fe | | Load 0x2,-0x2 005b e5ff | | Load 0x2,-0x1 005c 8404 | | Call 0x2,0x4 005d e5fd | | Load 0x2,-0x3 005e 8405 | | Call 0x2,0x5 005f 00cf | | Action Mark_Auxiliary 0060 e5fe | | Load 0x2,-0x2 0061 e5ff | | Load 0x2,-0x1 0062 0263 | c | Execute Discrete,Above_Bound 0063 7003 |p | Jump_Nonzero 0x67 0064 8409 | | Call 0x2,0x9 0065 00c8 | | Action Pop_Auxiliary_Range 0066 3ffd |? | Loop_Increasing 0x64 0067 00ce | | Action Pop_Auxiliary 0068 e007 | | Load 0x0,0x7 0069 e402 | | Load 0x2,0x2 006a 0096 | | Execute Package,Entry 006b 4506 |E | Exit_Suprogram New_Top_Offset 0x6 006c TRAP_0018: 006c e008 | | Load 0x0,0x8 006d e402 | | Load 0x2,0x2 006e 0098 | | Execute Package,Field_Read_Dynamic 006f 010f | | Execute Exception,Equal 0070 6802 |h | Jump_Zero 0x73 0071 00d8 | | Load_Top At_Offset_0 0072 0101 | | Execute Exception,Reraise 0073 e009 | | Load 0x0,0x9 0074 e402 | | Load 0x2,0x2 0075 0098 | | Execute Package,Field_Read_Dynamic 0076 010f | | Execute Exception,Equal 0077 6801 |h | Jump_Zero 0x79 0078 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0079 4800 |H | Short_Literal 0x0 007a 4800 |H | Short_Literal 0x0 007b 4801 |H | Short_Literal 0x1 007c 4808 |H | Short_Literal 0x8 007d 0092 01d9 | | Action Push_String_Extended,0x1d9 ; "EXCEPTION: " 007f 4800 |H | Short_Literal 0x0 0080 4801 |H | Short_Literal 0x1 0081 e00a | | Load 0x0,0xa 0082 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0083 01cc | | Execute Vector,Catenate 0084 e00b | | Load 0x0,0xb 0085 e402 | | Load 0x2,0x2 0086 0096 | | Execute Package,Entry 0087 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0088 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 008c 0000 0000 | | .BLANK 0000[0x4] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0093 | | .CONST 0x0093 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0001 | | .CONST 0x0001 ; Number of locals 0093 BODY_0090: 0093 INIT_0090: 0093 4801 |H | Short_Literal 0x1 0094 e00c | | Load 0x0,0xc 0095 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0096 e00c | | Load 0x0,0xc 0097 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0098 0e01 | | Execute_Immediate Not_Equal,0x1 0099 6809 |h | Jump_Zero 0xa3 009a 4800 |H | Short_Literal 0x0 009b 4801 |H | Short_Literal 0x1 009c 4801 |H | Short_Literal 0x1 009d 4807 |H | Short_Literal 0x7 009e 0092 01da | | Action Push_String_Extended,0x1da ; "You must have operator capability to create training users" 00a0 e00b | | Load 0x0,0xb 00a1 e402 | | Load 0x2,0x2 00a2 0096 | | Execute Package,Entry 00a3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00a4 0000 0000 | | .BLANK 0000[0x4] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ab | | .CONST 0x00ab ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0001 | | .CONST 0x0001 ; Number of locals 00ab BODY_00a8: 00ab INIT_00a8: 00ab 00da | | Load_Top At_Offset_2 00ac e7fe | | Load 0x3,-0x2 00ad 027d | } | Execute Discrete,Greater 00ae 6809 |h | Jump_Zero 0xb8 00af 4800 |H | Short_Literal 0x0 00b0 4801 |H | Short_Literal 0x1 00b1 4801 |H | Short_Literal 0x1 00b2 4807 |H | Short_Literal 0x7 00b3 0092 01db | | Action Push_String_Extended,0x1db ; "First user number must be \x22<\x22 or \x22=\x22 last user number" 00b5 e00b | | Load 0x0,0xb 00b6 e402 | | Load 0x2,0x2 00b7 0096 | | Execute Package,Entry 00b8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00b9 0000 0000 | | .BLANK 0000[0x7] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c3 | | .CONST 0x00c3 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0001 | | .CONST 0x0001 ; Number of locals 00c3 BODY_00c0: 00c3 INIT_00c0: 00c3 00da | | Load_Top At_Offset_2 00c4 800d | | Call 0x0,0xd 00c5 700e |p | Jump_Nonzero 0xd4 00c6 4800 |H | Short_Literal 0x0 00c7 4801 |H | Short_Literal 0x1 00c8 4801 |H | Short_Literal 0x1 00c9 4807 |H | Short_Literal 0x7 00ca 0092 01dc | | Action Push_String_Extended,0x1dc ; "Invalid username prefix \x22" 00cc e7ff | | Load 0x3,-0x1 00cd 01cc | | Execute Vector,Catenate 00ce 0092 01dd | | Action Push_String_Extended,0x1dd ; "\x22, must be simple Ada name" 00d0 01cc | | Execute Vector,Catenate 00d1 e00b | | Load 0x0,0xb 00d2 e402 | | Load 0x2,0x2 00d3 0096 | | Execute Package,Entry 00d4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00d5 0000 0000 | | .XXX[0x3] 00d7 0000 | | 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00db | | .CONST 0x00db ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0001 | | .CONST 0x0001 ; Number of locals 00db BODY_00d8: 00db INIT_00d8: 00db e7fd | | Load 0x3,-0x3 00dc e00e | | Load 0x0,0xe 00dd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00de 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 00df 703d |p= | Jump_Nonzero 0x11d 00e0 e5fc | | Load 0x2,-0x4 00e1 700f |p | Jump_Nonzero 0xf1 00e2 4801 |H | Short_Literal 0x1 00e3 4801 |H | Short_Literal 0x1 00e4 4801 |H | Short_Literal 0x1 00e5 4807 |H | Short_Literal 0x7 00e6 0092 01de | | Action Push_String_Extended,0x1de ; "User \x22" 00e8 e7ff | | Load 0x3,-0x1 00e9 01cc | | Execute Vector,Catenate 00ea 0092 01df | | Action Push_String_Extended,0x1df ; "\x22 already exists" 00ec 01cc | | Execute Vector,Catenate 00ed e00b | | Load 0x0,0xb 00ee e402 | | Load 0x2,0x2 00ef 0096 | | Execute Package,Entry 00f0 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00f1 e004 | | Load 0x0,0x4 00f2 180e | | Execute Package,Field_Execute,Field_Number 0xe 00f3 4802 |H | Short_Literal 0x2 00f4 0092 01e0 | | Action Push_String_Extended,0x1e0 ; "Destroying preexisting user" 00f6 e00f | | Load 0x0,0xf 00f7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00f8 0092 01e1 | | Action Push_String_Extended,0x1e1 ; "PERSEVERE," 00fa e5fb | | Load 0x2,-0x5 00fb 01cc | | Execute Vector,Catenate 00fc 4801 |H | Short_Literal 0x1 00fd e7fe | | Load 0x3,-0x2 00fe 8010 | | Call 0x0,0x10 00ff 4801 |H | Short_Literal 0x1 0100 e00e | | Load 0x0,0xe 0101 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0102 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0103 e7fe | | Load 0x3,-0x2 0104 e00e | | Load 0x0,0xe 0105 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0106 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0107 c7fd | | Store 0x3,-0x3 0108 e7fd | | Load 0x3,-0x3 0109 e00e | | Load 0x0,0xe 010a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 010b 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 010c 7009 |p | Jump_Nonzero 0x116 010d 4801 |H | Short_Literal 0x1 010e 4801 |H | Short_Literal 0x1 010f 4801 |H | Short_Literal 0x1 0110 4807 |H | Short_Literal 0x7 0111 0092 01e2 | | Action Push_String_Extended,0x1e2 ; "Unable to destroy preexisting user" 0113 e00b | | Load 0x0,0xb 0114 e402 | | Load 0x2,0x2 0115 0096 | | Execute Package,Entry 0116 e004 | | Load 0x0,0x4 0117 180e | | Execute Package,Field_Execute,Field_Number 0xe 0118 4803 |H | Short_Literal 0x3 0119 0092 01e3 | | Action Push_String_Extended,0x1e3 ; "Preexisting user destroyed" 011b e00f | | Load 0x0,0xf 011c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 011d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 011e 0000 0000 | | .XXX[0x2] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0123 | # | .CONST 0x0123 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0001 | | .CONST 0x0001 ; Number of locals 0123 BODY_0120: 0123 INIT_0120: 0123 e004 | | Load 0x0,0x4 0124 180e | | Execute Package,Field_Execute,Field_Number 0xe 0125 4802 |H | Short_Literal 0x2 0126 0092 01e4 | | Action Push_String_Extended,0x1e4 ; "Building user \x22" 0128 e7ff | | Load 0x3,-0x1 0129 01cc | | Execute Vector,Catenate 012a 0092 01d8 | | Action Push_String_Extended,0x1d8 ; "\x22" 012c 01cc | | Execute Vector,Catenate 012d e00f | | Load 0x0,0xf 012e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 012f 0092 01e5 | | Action Push_String_Extended,0x1e5 ; "PROPAGATE," 0131 e5fb | | Load 0x2,-0x5 0132 01cc | | Execute Vector,Catenate 0133 4800 |H | Short_Literal 0x0 0134 00ea | | Load_Encached Null_String_Cache 0135 e7ff | | Load 0x3,-0x1 0136 e00c | | Load 0x0,0xc 0137 180e | | Execute Package,Field_Execute,Field_Number 0xe 0138 0092 01e1 | | Action Push_String_Extended,0x1e1 ; "PERSEVERE," 013a e5fb | | Load 0x2,-0x5 013b 01cc | | Execute Vector,Catenate 013c e00e | | Load 0x0,0xe 013d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 013e 1812 | | Execute Package,Field_Execute,Field_Number 0x12 013f 0092 01e6 | | Action Push_String_Extended,0x1e6 ; "R1000, BECOME_OWNER, PRIMARY, PROMOTE, WORLD_ACL=(NETWORK_PUBLIC => RWCOD), DEFAULT_ACL=(NETWORK_PUBLIC => RW), OBJECT_ACL=(NETWORK_PUBLIC => RW)" 0141 0092 01e7 | | Action Push_String_Extended,0x1e7 ; "!Users.Testmate_User_Training_Master" 0143 e7fe | | Load 0x3,-0x2 0144 0092 01e8 | | Action Push_String_Extended,0x1e8 ; "?" 0146 e011 | | Load 0x0,0x11 0147 180e | | Execute Package,Field_Execute,Field_Number 0xe 0148 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0149 0000 0000 | | .BLANK 0000[0x7] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0153 | S | .CONST 0x0153 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0001 | | .CONST 0x0001 ; Number of locals 0153 BODY_0150: 0153 INIT_0150: 0153 e004 | | Load 0x0,0x4 0154 180e | | Execute Package,Field_Execute,Field_Number 0xe 0155 4802 |H | Short_Literal 0x2 0156 0092 01e9 | | Action Push_String_Extended,0x1e9 ; "Setting ACLs for user" 0158 e00f | | Load 0x0,0xf 0159 1813 | | Execute Package,Field_Execute,Field_Number 0x13 015a 0092 01e1 | | Action Push_String_Extended,0x1e1 ; "PERSEVERE," 015c e5fb | | Load 0x2,-0x5 015d 01cc | | Execute Vector,Catenate 015e 0092 01ea | | Action Push_String_Extended,0x1ea ; "[" 0160 e7ff | | Load 0x3,-0x1 0161 01cc | | Execute Vector,Catenate 0162 0092 01eb | | Action Push_String_Extended,0x1eb ; "," 0164 01cc | | Execute Vector,Catenate 0165 e7ff | | Load 0x3,-0x1 0166 01cc | | Execute Vector,Catenate 0167 0092 01ec | | Action Push_String_Extended,0x1ec ; ".@??'V(ALL)]" 0169 01cc | | Execute Vector,Catenate 016a 0092 01ed | | Action Push_String_Extended,0x1ed ; "Network_Public => RWCOD" 016c e012 | | Load 0x0,0x12 016d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 016e e004 | | Load 0x0,0x4 016f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0170 4803 |H | Short_Literal 0x3 0171 0092 01ee | | Action Push_String_Extended,0x1ee ; "ACLs for user set" 0173 e00f | | Load 0x0,0xf 0174 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0175 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0176 0000 0000 | | .XXX[0x2] 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 018e | | .CONST 0x018e ; Address of begin 0179 01c6 | | .CONST 0x01c6 ; Address of exception handler 017a 0004 | | .CONST 0x0004 ; Number of locals 017b INIT_0178: 017b e40c | | Load 0x2,0xc 017c e5fd | | Load 0x2,-0x3 017d 8013 | | Call 0x0,0x13 017e e40c | | Load 0x2,0xc 017f e5fd | | Load 0x2,-0x3 0180 8014 | | Call 0x0,0x14 0181 e00e | | Load 0x0,0xe 0182 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0183 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0184 02c7 | | Declare_Variable Any 0185 4801 |H | Short_Literal 0x1 0186 e00e | | Load 0x0,0xe 0187 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0188 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0189 00db | | Load_Top At_Offset_3 018a e00e | | Load 0x0,0xe 018b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 018c 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 018d a604 | | Store_Unchecked 0x3,0x4 018e BODY_0178: 018e 00d8 | | Load_Top At_Offset_0 018f 00da | | Load_Top At_Offset_2 0190 e602 | | Load 0x3,0x2 0191 8406 | | Call 0x2,0x6 0192 c604 | | Store 0x3,0x4 0193 00d9 | | Load_Top At_Offset_1 0194 00db | | Load_Top At_Offset_3 0195 8407 | | Call 0x2,0x7 0196 0092 01ef | | Action Push_String_Extended,0x1ef ; "<PROFILE>" 0198 00da | | Load_Top At_Offset_2 0199 0092 01f0 | | Action Push_String_Extended,0x1f0 ; ".Tools.String_Support.Rev1_Working.State.Compiler_Switches" 019b 01cc | | Execute Vector,Catenate 019c 0092 01f1 | | Action Push_String_Extended,0x1f1 ; "Testmate.Script_Construction_Control := " 019e e603 | | Load 0x3,0x3 019f 01cc | | Execute Vector,Catenate 01a0 0092 01f2 | | Action Push_String_Extended,0x1f2 ; ".Tools.String_Support.Rev1_Working.Test.Script_Construction_Control" 01a2 01cc | | Execute Vector,Catenate 01a3 e015 | | Load 0x0,0x15 01a4 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01a5 0092 01ef | | Action Push_String_Extended,0x1ef ; "<PROFILE>" 01a7 00da | | Load_Top At_Offset_2 01a8 0092 01f0 | | Action Push_String_Extended,0x1f0 ; ".Tools.String_Support.Rev1_Working.State.Compiler_Switches" 01aa 01cc | | Execute Vector,Catenate 01ab 0092 01f3 | | Action Push_String_Extended,0x1f3 ; "Testmate.Script_Execution_Control := " 01ad e603 | | Load 0x3,0x3 01ae 01cc | | Execute Vector,Catenate 01af 0092 01f4 | | Action Push_String_Extended,0x1f4 ; ".Tools.String_Support.Rev1_Working.Test.Script_Execution_Control" 01b1 01cc | | Execute Vector,Catenate 01b2 e015 | | Load 0x0,0x15 01b3 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01b4 0092 01ef | | Action Push_String_Extended,0x1ef ; "<PROFILE>" 01b6 00da | | Load_Top At_Offset_2 01b7 0092 01f0 | | Action Push_String_Extended,0x1f0 ; ".Tools.String_Support.Rev1_Working.State.Compiler_Switches" 01b9 01cc | | Execute Vector,Catenate 01ba 0092 01f5 | | Action Push_String_Extended,0x1f5 ; "Testmate.Test_Context := " 01bc e603 | | Load 0x3,0x3 01bd 01cc | | Execute Vector,Catenate 01be 0092 01f6 | | Action Push_String_Extended,0x1f6 ; ".Tools.String_Support.Rev1_Working.Test.Context" 01c0 01cc | | Execute Vector,Catenate 01c1 e015 | | Load 0x0,0x15 01c2 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01c3 00d9 | | Load_Top At_Offset_1 01c4 8408 | | Call 0x2,0x8 01c5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01c6 TRAP_0178: 01c6 0007 | | Action Break_Optional 01c7 4800 |H | Short_Literal 0x0 01c8 4801 |H | Short_Literal 0x1 01c9 4800 |H | Short_Literal 0x0 01ca 4807 |H | Short_Literal 0x7 01cb 0092 01f7 | | Action Push_String_Extended,0x1f7 ; "Unable to build training user " 01cd e602 | | Load 0x3,0x2 01ce 01cc | | Execute Vector,Catenate 01cf e00b | | Load 0x0,0xb 01d0 e402 | | Load 0x2,0x2 01d1 0096 | | Execute Package,Entry 01d2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01d3 ; -------------------------------------------------------------------------------------- 01d3 ; STRING TABLE 01d3 ; -------------------------------------------------------------------------------------- 01d3 004c | L | .STRTAB 0x004c->0x01f9 ; "Build_TestMate_Training_Users" 01d4 0067 | g | .STRTAB 0x0067->0x0207 ; "First_User_Number =>" 01d5 0079 | y | .STRTAB 0x0079->0x0211 ; ", Last_User_Number =>" 01d6 008c | | .STRTAB 0x008c->0x021c ; ", Username_Prefix => \x22" 01d7 00a0 | | .STRTAB 0x00a0->0x0227 ; "\x22, Response => \x22" 01d8 00ae | | .STRTAB 0x00ae->0x022f ; "\x22" 01d9 00ad | | .STRTAB 0x00ad->0x022f ; "EXCEPTION: " 01da 00b6 | | .STRTAB 0x00b6->0x0235 ; "You must have operator capability to create training users" 01db 00ee | | .STRTAB 0x00ee->0x0252 ; "First user number must be \x22<\x22 or \x22=\x22 last user number" 01dc 0121 | ! | .STRTAB 0x0121->0x026c ; "Invalid username prefix \x22" 01dd 0138 | 8 | .STRTAB 0x0138->0x0279 ; "\x22, must be simple Ada name" 01de 0150 | P | .STRTAB 0x0150->0x0286 ; "User \x22" 01df 0154 | T | .STRTAB 0x0154->0x0289 ; "\x22 already exists" 01e0 0162 | b | .STRTAB 0x0162->0x0291 ; "Destroying preexisting user" 01e1 017b | { | .STRTAB 0x017b->0x029e ; "PERSEVERE," 01e2 0183 | | .STRTAB 0x0183->0x02a3 ; "Unable to destroy preexisting user" 01e3 01a3 | | .STRTAB 0x01a3->0x02b4 ; "Preexisting user destroyed" 01e4 01bb | | .STRTAB 0x01bb->0x02c1 ; "Building user \x22" 01e5 01c8 | | .STRTAB 0x01c8->0x02c9 ; "PROPAGATE," 01e6 01d0 | | .STRTAB 0x01d0->0x02ce ; "R1000, BECOME_OWNER, PRIMARY, PROMOTE, WORLD_ACL=(NETWORK_PUBLIC => RWCOD), DEFAULT_ACL=(NETWORK_PUBLIC => RW), OBJECT_ACL=(NETWORK_PUBLIC => RW)" 01e7 025f | _ | .STRTAB 0x025f->0x0316 ; "!Users.Testmate_User_Training_Master" 01e8 0281 | | .STRTAB 0x0281->0x0328 ; "?" 01e9 0280 | | .STRTAB 0x0280->0x0329 ; "Setting ACLs for user" 01ea 0293 | | .STRTAB 0x0293->0x0333 ; "[" 01eb 0292 | | .STRTAB 0x0292->0x0334 ; "," 01ec 0291 | | .STRTAB 0x0291->0x0334 ; ".@??'V(ALL)]" 01ed 029b | | .STRTAB 0x029b->0x033a ; "Network_Public => RWCOD" 01ee 02b0 | | .STRTAB 0x02b0->0x0346 ; "ACLs for user set" 01ef 02bf | | .STRTAB 0x02bf->0x034e ; "<PROFILE>" 01f0 02c6 | | .STRTAB 0x02c6->0x0353 ; ".Tools.String_Support.Rev1_Working.State.Compiler_Switches" 01f1 02fe | | .STRTAB 0x02fe->0x0370 ; "Testmate.Script_Construction_Control := " 01f2 0324 | $ | .STRTAB 0x0324->0x0384 ; ".Tools.String_Support.Rev1_Working.Test.Script_Construction_Control" 01f3 0365 | e | .STRTAB 0x0365->0x03a5 ; "Testmate.Script_Execution_Control := " 01f4 0388 | | .STRTAB 0x0388->0x03b8 ; ".Tools.String_Support.Rev1_Working.Test.Script_Execution_Control" 01f5 03c6 | | .STRTAB 0x03c6->0x03d8 ; "Testmate.Test_Context := " 01f6 03dd | | .STRTAB 0x03dd->0x03e4 ; ".Tools.String_Support.Rev1_Working.Test.Context" 01f7 040a | | .STRTAB 0x040a->0x03fc ; "Unable to build training user " 01f8 0426 | & | .STREND 0x0426->0x040b 01f9 4275 696c |Buil| .STRTAB_STRINGS 040b 0000 0000 | | .BLANK 0000[0x5] 0410 ; -------------------------------------------------------------------------------------- 0410 ; Debug Table 0410 ; -------------------------------------------------------------------------------------- 0410 0004 0004 | | .DEBUG4 0x0004,0x0004,0x76f1,0x0000,0x0001,0x0009 0416 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000 041a 001b 043a | :| .DBG4T 0x001b,0x043a,0x8001,0x0000 041e 0093 044d | M| .DBG4T 0x0093,0x044d,0x0001,0x0000 0422 00ab 0452 | R| .DBG4T 0x00ab,0x0452,0x0001,0x0000 0426 00c3 0456 | V| .DBG4T 0x00c3,0x0456,0x0001,0x0000 042a 00db 045a | Z| .DBG4T 0x00db,0x045a,0x0001,0x0000 042e 0123 0465 | # e| .DBG4T 0x0123,0x0465,0x0001,0x0000 0432 0153 046a | S j| .DBG4T 0x0153,0x046a,0x0001,0x0000 0436 017b 046f | { o| .DBG4T 0x017b,0x046f,0x0004,0x0000 043a ; -------------------------------------------------------------------------------------- 043a ; Debug chain 043a ; -------------------------------------------------------------------------------------- 043a 0007 000a | | .DBGLEN 0x0007,0x000a 043c 001b 0048 | H| .DBGLNO 0x001b,0x0048,0x004a,0x004c,0x004e,0x0050,0x0052,0x0056,0x0059,0x005a,0x005d,0x0060,0x0064,0x0068,0x0071,0x0078,0x0079 044d ; -------------------------------------------------------------------------------------- 044d ; Debug chain 044d ; -------------------------------------------------------------------------------------- 044d 0000 0003 | | .DBGLEN 0x0000,0x0003 044f 0093 0096 | | .DBGLNO 0x0093,0x0096,0x009a 0452 ; -------------------------------------------------------------------------------------- 0452 ; Debug chain 0452 ; -------------------------------------------------------------------------------------- 0452 0000 0002 | | .DBGLEN 0x0000,0x0002 0454 00ab 00af | | .DBGLNO 0x00ab,0x00af 0456 ; -------------------------------------------------------------------------------------- 0456 ; Debug chain 0456 ; -------------------------------------------------------------------------------------- 0456 0000 0002 | | .DBGLEN 0x0000,0x0002 0458 00c3 00c6 | | .DBGLNO 0x00c3,0x00c6 045a ; -------------------------------------------------------------------------------------- 045a ; Debug chain 045a ; -------------------------------------------------------------------------------------- 045a 0000 0009 | | .DBGLEN 0x0000,0x0009 045c 00db 00e0 | | .DBGLNO 0x00db,0x00e0,0x00e2,0x00f1,0x00f8,0x00ff,0x0108,0x010d,0x0116 0465 ; -------------------------------------------------------------------------------------- 0465 ; Debug chain 0465 ; -------------------------------------------------------------------------------------- 0465 0000 0003 | | .DBGLEN 0x0000,0x0003 0467 0123 012f | # /| .DBGLNO 0x0123,0x012f,0x0138 046a ; -------------------------------------------------------------------------------------- 046a ; Debug chain 046a ; -------------------------------------------------------------------------------------- 046a 0000 0003 | | .DBGLEN 0x0000,0x0003 046c 0153 015a | S Z| .DBGLNO 0x0153,0x015a,0x016e 046f ; -------------------------------------------------------------------------------------- 046f ; Debug chain 046f ; -------------------------------------------------------------------------------------- 046f 0003 0007 | | .DBGLEN 0x0003,0x0007 0471 017b 017e | { ~| .DBGLNO 0x017b,0x017e,0x0181,0x018e,0x0193,0x0196,0x01a5,0x01b4,0x01c3,0x01c7 047b 0000 0000 | | .BLANK 0000[0x185]