|
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]