|
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: 2048 (0x800)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_1c04dd
└─⟦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 0258 | X | .CONST 0x0258 ; 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 0001 | | .CONST 0x0001 ; 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 002e | . | .CONST 0x002e ; Address of begin
0019 0058 | X | .CONST 0x0058 ; Address of exception handler
001a 0006 | | .CONST 0x0006 ; Number of locals
001b INIT_0018:
001b e002 | | Load 0x0,0x2
001c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
001d 02c7 | | Declare_Variable Any
001e e002 | | Load 0x0,0x2
001f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0020 a402 | | Store_Unchecked 0x2,0x2
0021 e002 | | Load 0x0,0x2
0022 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0023 02c7 | | Declare_Variable Any
0024 e5fc | | Load 0x2,-0x4
0025 e002 | | Load 0x0,0x2
0026 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0027 a403 | | Store_Unchecked 0x2,0x3
0028 029f 006b | k| Declare_Subprogram INIT_0068,For_Call
002a 029f 007b | {| Declare_Subprogram INIT_0078,For_Call
002c 029f 009b | | Declare_Subprogram INIT_0098,For_Call
002e BODY_0018:
002e 00db | | Load_Top At_Offset_3
002f e002 | | Load 0x0,0x2
0030 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0031 e002 | | Load 0x0,0x2
0032 180e | | Execute Package,Field_Execute,Field_Number 0xe
0033 4800 |H | Short_Literal 0x0
0034 0092 011a | | Action Push_String_Extended,0x11a ; "[Build_Training_Users (First_User_Number => "
0036 4820 |H | Short_Literal 0x20
0037 4800 |H | Short_Literal 0x0
0038 480a |H | Short_Literal 0xa
0039 e5ff | | Load 0x2,-0x1
003a e003 | | Load 0x0,0x3
003b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
003c 01cc | | Execute Vector,Catenate
003d 0092 011b | | Action Push_String_Extended,0x11b ; ", Last_User_Number => "
003f 01cc | | Execute Vector,Catenate
0040 4820 |H | Short_Literal 0x20
0041 4800 |H | Short_Literal 0x0
0042 480a |H | Short_Literal 0xa
0043 e5fe | | Load 0x2,-0x2
0044 e003 | | Load 0x0,0x3
0045 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0046 01cc | | Execute Vector,Catenate
0047 0092 011c | | Action Push_String_Extended,0x11c ; ", Username_Prefix => \x22"
0049 01cc | | Execute Vector,Catenate
004a e5fd | | Load 0x2,-0x3
004b 01cc | | Execute Vector,Catenate
004c 0092 011d | | Action Push_String_Extended,0x11d ; "\x22, Response => \x22"
004e 01cc | | Execute Vector,Catenate
004f e5fc | | Load 0x2,-0x4
0050 01cc | | Execute Vector,Catenate
0051 0092 011e | | Action Push_String_Extended,0x11e ; "\x22);]"
0053 01cc | | Execute Vector,Catenate
0054 e004 | | Load 0x0,0x4
0055 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0056 8406 | | Call 0x2,0x6
0057 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0058 TRAP_0018:
0058 0007 | | Action Break_Optional
0059 e002 | | Load 0x0,0x2
005a 180e | | Execute Package,Field_Execute,Field_Number 0xe
005b 4808 |H | Short_Literal 0x8
005c 0092 011f | | Action Push_String_Extended,0x11f ; "Encountered an unexpected exception: "
005e 4800 |H | Short_Literal 0x0
005f 4801 |H | Short_Literal 0x1
0060 e005 | | Load 0x0,0x5
0061 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0062 01cc | | Execute Vector,Catenate
0063 e004 | | Load 0x0,0x4
0064 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0065 8404 | | Call 0x2,0x4
0066 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0067 0000 | | .XXX[0x1]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b | k | .CONST 0x006b ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0001 | | .CONST 0x0001 ; Number of locals
006b BODY_0068:
006b INIT_0068:
006b e002 | | Load 0x0,0x2
006c 180e | | Execute Package,Field_Execute,Field_Number 0xe
006d 4802 |H | Short_Literal 0x2
006e 0092 0120 | | Action Push_String_Extended,0x120 ; "[Finished building training users -- Error(s) detected]"
0070 e004 | | Load 0x0,0x4
0071 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0072 e402 | | Load 0x2,0x2
0073 e002 | | Load 0x0,0x2
0074 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0075 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0076 0000 0000 | | .XXX[0x2]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 008e | | .CONST 0x008e ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0003 | | .CONST 0x0003 ; Number of locals
007b INIT_0078:
007b e006 | | Load 0x0,0x6
007c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
007d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
007e 02c7 | | Declare_Variable Any
007f 4801 |H | Short_Literal 0x1
0080 e006 | | Load 0x0,0x6
0081 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0082 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0083 e7ff | | Load 0x3,-0x1
0084 e006 | | Load 0x0,0x6
0085 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0086 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0087 a602 | | Store_Unchecked 0x3,0x2
0088 e006 | | Load 0x0,0x6
0089 1b0d | | Execute Package,Field_Read,Field_Number 0xd
008a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
008b 02c7 | | Declare_Variable Any
008c 00d8 | | Load_Top At_Offset_0
008d 1c00 | | Execute_Immediate Run_Utility,0x0
008e BODY_0078:
008e 00d9 | | Load_Top At_Offset_1
008f e006 | | Load 0x0,0x6
0090 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0091 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0092 c603 | | Store 0x3,0x3
0093 00d8 | | Load_Top At_Offset_0
0094 e006 | | Load 0x0,0x6
0095 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0096 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0097 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00b4 | | .CONST 0x00b4 ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0005 | | .CONST 0x0005 ; Number of locals
009b INIT_0098:
009b 0092 0121 | !| Action Push_String_Extended,0x121 ; "$"
009d 8405 | | Call 0x2,0x5
009e e003 | | Load 0x0,0x3
009f 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
00a0 00d8 | | Load_Top At_Offset_0
00a1 e006 | | Load 0x0,0x6
00a2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00a3 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00a4 e006 | | Load 0x0,0x6
00a5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00a6 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00a7 e003 | | Load 0x0,0x3
00a8 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
00a9 0092 0122 | "| Action Push_String_Extended,0x122 ; "!Users."
00ab 00d9 | | Load_Top At_Offset_1
00ac 01cc | | Execute Vector,Catenate
00ad 0092 0123 | #| Action Push_String_Extended,0x123 ; "_Master"
00af 01cc | | Execute Vector,Catenate
00b0 e003 | | Load 0x0,0x3
00b1 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
00b2 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call
00b4 BODY_0098:
00b4 4801 |H | Short_Literal 0x1
00b5 e007 | | Load 0x0,0x7
00b6 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00b7 e007 | | Load 0x0,0x7
00b8 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00b9 0e01 | | Execute_Immediate Not_Equal,0x1
00ba 680a |h | Jump_Zero 0xc5
00bb e002 | | Load 0x0,0x2
00bc 180e | | Execute Package,Field_Execute,Field_Number 0xe
00bd 4807 |H | Short_Literal 0x7
00be 0092 0124 | $| Action Push_String_Extended,0x124 ; "You must have operator capability to create training users"
00c0 e004 | | Load 0x0,0x4
00c1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00c2 8404 | | Call 0x2,0x4
00c3 00cc | | Action Pop_Block
00c4 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00c5 e5ff | | Load 0x2,-0x1
00c6 e5fe | | Load 0x2,-0x2
00c7 027d | } | Execute Discrete,Greater
00c8 680a |h | Jump_Zero 0xd3
00c9 e002 | | Load 0x0,0x2
00ca 180e | | Execute Package,Field_Execute,Field_Number 0xe
00cb 4807 |H | Short_Literal 0x7
00cc 0092 0125 | %| Action Push_String_Extended,0x125 ; "The First_User_Number must be 'less than' or 'equal to' the Last_User_Number"
00ce e004 | | Load 0x0,0x4
00cf 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00d0 8404 | | Call 0x2,0x4
00d1 00cc | | Action Pop_Block
00d2 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00d3 00cf | | Action Mark_Auxiliary
00d4 e5fe | | Load 0x2,-0x2
00d5 e5ff | | Load 0x2,-0x1
00d6 0263 | c | Execute Discrete,Above_Bound
00d7 7003 |p | Jump_Nonzero 0xdb
00d8 8605 | | Call 0x3,0x5
00d9 00c8 | | Action Pop_Auxiliary_Range
00da 3ffd |? | Loop_Increasing 0xd8
00db 00ce | | Action Pop_Auxiliary
00dc e002 | | Load 0x0,0x2
00dd 180e | | Execute Package,Field_Execute,Field_Number 0xe
00de 4802 |H | Short_Literal 0x2
00df 0092 0126 | &| Action Push_String_Extended,0x126 ; "[Finished building training users -- Examine the log]"
00e1 e004 | | Load 0x0,0x4
00e2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00e3 e402 | | Load 0x2,0x2
00e4 e002 | | Load 0x0,0x2
00e5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00e6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00e7 0000 | | .XXX[0x1]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00fe | | .CONST 0x00fe ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0004 | | .CONST 0x0004 ; Number of locals
00eb INIT_00e8:
00eb 4820 |H | Short_Literal 0x20
00ec 4800 |H | Short_Literal 0x0
00ed 480a |H | Short_Literal 0xa
00ee e608 | | Load 0x3,0x8
00ef e003 | | Load 0x0,0x3
00f0 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00f1 e5fd | | Load 0x2,-0x3
00f2 0092 0127 | '| Action Push_String_Extended,0x127 ; "_"
00f4 01cc | | Execute Vector,Catenate
00f5 00d9 | | Load_Top At_Offset_1
00f6 01cc | | Execute Vector,Catenate
00f7 0007 | | Action Break_Optional
00f8 0092 0122 | "| Action Push_String_Extended,0x122 ; "!Users."
00fa 00d9 | | Load_Top At_Offset_1
00fb 01cc | | Execute Vector,Catenate
00fc e003 | | Load 0x0,0x3
00fd 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
00fe BODY_00e8:
00fe 0092 0128 | (| Action Push_String_Extended,0x128 ; "<PROFILE>"
0100 4800 |H | Short_Literal 0x0
0101 00db | | Load_Top At_Offset_3
0102 e803 | | Load 0x4,0x3
0103 e007 | | Load 0x0,0x7
0104 180e | | Execute Package,Field_Execute,Field_Number 0xe
0105 0092 0128 | (| Action Push_String_Extended,0x128 ; "<PROFILE>"
0107 e602 | | Load 0x3,0x2
0108 0092 0129 | )| Action Push_String_Extended,0x129 ; "R1000, PROMOTE, PRIMARY, BECOME_OWNER, WORLD_ACL=(Network_Public => RWCOD), DEFAULT_ACL=(Network_Public => RW), OBJECT_ACL=(Network_Public => RW)"
010a e604 | | Load 0x3,0x4
010b e804 | | Load 0x4,0x4
010c 0092 012a | *| Action Push_String_Extended,0x12a ; "?"
010e e008 | | Load 0x0,0x8
010f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0110 e002 | | Load 0x0,0x2
0111 180e | | Execute Package,Field_Execute,Field_Number 0xe
0112 4803 |H | Short_Literal 0x3
0113 0092 012b | +| Action Push_String_Extended,0x12b ; "Completed building training user "
0115 e803 | | Load 0x4,0x3
0116 01cc | | Execute Vector,Catenate
0117 e004 | | Load 0x0,0x4
0118 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0119 4501 |E | Exit_Suprogram New_Top_Offset 0x1
011a ; --------------------------------------------------------------------------------------
011a ; STRING TABLE
011a ; --------------------------------------------------------------------------------------
011a 0026 | & | .STRTAB 0x0026->0x012d ; "[Build_Training_Users (First_User_Number => "
011b 0050 | P | .STRTAB 0x0050->0x0143 ; ", Last_User_Number => "
011c 0064 | d | .STRTAB 0x0064->0x014e ; ", Username_Prefix => \x22"
011d 0078 | x | .STRTAB 0x0078->0x0159 ; "\x22, Response => \x22"
011e 0086 | | .STRTAB 0x0086->0x0161 ; "\x22);]"
011f 0088 | | .STRTAB 0x0088->0x0163 ; "Encountered an unexpected exception: "
0120 00ab | | .STRTAB 0x00ab->0x0175 ; "[Finished building training users -- Error(s) detected]"
0121 00e0 | | .STRTAB 0x00e0->0x0191 ; "$"
0122 00df | | .STRTAB 0x00df->0x0191 ; "!Users."
0123 00e4 | | .STRTAB 0x00e4->0x0195 ; "_Master"
0124 00e9 | | .STRTAB 0x00e9->0x0198 ; "You must have operator capability to create training users"
0125 0121 | ! | .STRTAB 0x0121->0x01b5 ; "The First_User_Number must be 'less than' or 'equal to' the Last_User_Number"
0126 016b | k | .STRTAB 0x016b->0x01db ; "[Finished building training users -- Examine the log]"
0127 019e | | .STRTAB 0x019e->0x01f6 ; "_"
0128 019d | | .STRTAB 0x019d->0x01f6 ; "<PROFILE>"
0129 01a4 | | .STRTAB 0x01a4->0x01fb ; "R1000, PROMOTE, PRIMARY, BECOME_OWNER, WORLD_ACL=(Network_Public => RWCOD), DEFAULT_ACL=(Network_Public => RW), OBJECT_ACL=(Network_Public => RW)"
012a 0233 | 3 | .STRTAB 0x0233->0x0243 ; "?"
012b 0232 | 2 | .STRTAB 0x0232->0x0244 ; "Completed building training user "
012c 0251 | Q | .STREND 0x0251->0x0254
012d 5b42 7569 |[Bui| .STRTAB_STRINGS
0255 0000 0000 | | .XXX[0x3]
0257 0000 | |
0258 ; --------------------------------------------------------------------------------------
0258 ; Debug Table
0258 ; --------------------------------------------------------------------------------------
0258 0004 0004 | | .DEBUG4 0x0004,0x0004,0x3332,0x0000,0x0001,0x0006
025e 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000
0262 001b 0276 | v| .DBG4T 0x001b,0x0276,0x8001,0x8000
0266 006b 0285 | k | .DBG4T 0x006b,0x0285,0x0001,0x0000
026a 007b 0289 | { | .DBG4T 0x007b,0x0289,0x0002,0x0000
026e 009b 028f | | .DBG4T 0x009b,0x028f,0x0004,0x0000
0272 00eb 02a1 | | .DBG4T 0x00eb,0x02a1,0x0004,0x0000
0276 ; --------------------------------------------------------------------------------------
0276 ; Debug chain
0276 ; --------------------------------------------------------------------------------------
0276 0004 0005 | | .DBGLEN 0x0004,0x0005
0278 001b 0021 | !| .DBGLNO 0x001b,0x0021,0x0028,0x002a,0x002e,0x0031,0x0056,0x0059,0x0065
0281 0003 0004 | | .XXX[0x4]
0283 0006 0007 | |
0285 ; --------------------------------------------------------------------------------------
0285 ; Debug chain
0285 ; --------------------------------------------------------------------------------------
0285 0000 0002 | | .DBGLEN 0x0000,0x0002
0287 006b 0072 | k r| .DBGLNO 0x006b,0x0072
0289 ; --------------------------------------------------------------------------------------
0289 ; Debug chain
0289 ; --------------------------------------------------------------------------------------
0289 0002 0002 | | .DBGLEN 0x0002,0x0002
028b 007b 0088 | { | .DBGLNO 0x007b,0x0088,0x008e,0x0093
028f ; --------------------------------------------------------------------------------------
028f ; Debug chain
028f ; --------------------------------------------------------------------------------------
028f 0003 000d | | .DBGLEN 0x0003,0x000d
0291 009b 00a0 | | .DBGLNO 0x009b,0x00a0,0x00a9,0x00b4,0x00b7,0x00bb,0x00c2,0x00c3,0x00c5,0x00c9,0x00d0,0x00d1,0x00d4,0x00d8,0x00dc,0x00e3
02a1 ; --------------------------------------------------------------------------------------
02a1 ; Debug chain
02a1 ; --------------------------------------------------------------------------------------
02a1 0003 0003 | | .DBGLEN 0x0003,0x0003
02a3 00eb 00f1 | | .DBGLNO 0x00eb,0x00f1,0x00f8,0x00fe,0x0105,0x0110
02a9 0000 0000 | | .BLANK 0000[0x157]