|
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: 1024 (0x400)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0d2ce3
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦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 01c8 | | .CONST 0x01c8 ; 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 8001 | | .CONST 0x8001 ; 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 0027 | ' | .CONST 0x0027 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0006 | | .CONST 0x0006 ; Number of locals
001b INIT_0018:
001b 029f 003b | ;| Declare_Subprogram INIT_0038,For_Call
001d e001 | | Load 0x0,0x1
001e 190f | | Execute Package,Field_Reference,Field_Number 0xf
001f 00c6 | | Action Check_Subprogram_Elaborated
0020 4802 |H | Short_Literal 0x2
0021 4802 |H | Short_Literal 0x2
0022 0099 | | Action Reference_Dynamic
0023 e002 | | Load 0x0,0x2
0024 e003 | | Load 0x0,0x3
0025 4806 |H | Short_Literal 0x6
0026 0007 | | Action Break_Optional
0027 BODY_0018:
0027 e5ff | | Load 0x2,-0x1
0028 4803 |H | Short_Literal 0x3
0029 4802 |H | Short_Literal 0x2
002a 0099 | | Action Reference_Dynamic
002b 4804 |H | Short_Literal 0x4
002c 4802 |H | Short_Literal 0x2
002d 0099 | | Action Reference_Dynamic
002e e001 | | Load 0x0,0x1
002f 180f | | Execute Package,Field_Execute,Field_Number 0xf
0030 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0031 0000 0000 | | .BLANK 0000[0x7]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 006b | k | .CONST 0x006b ; Address of begin
0039 013d | = | .CONST 0x013d ; Address of exception handler
003a 000d | | .CONST 0x000d ; Number of locals
003b INIT_0038:
003b e004 | | Load 0x0,0x4
003c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
003d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
003e e004 | | Load 0x0,0x4
003f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0040 e005 | | Load 0x0,0x5
0041 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0042 e004 | | Load 0x0,0x4
0043 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0044 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0045 e7ff | | Load 0x3,-0x1
0046 e004 | | Load 0x0,0x4
0047 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0048 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0049 e7fe | | Load 0x3,-0x2
004a e004 | | Load 0x0,0x4
004b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
004c 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
004d 00d8 | | Load_Top At_Offset_0
004e 0092 015a | Z| Action Push_String_Extended,0x15a ; ".Units"
0050 01cc | | Execute Vector,Catenate
0051 0007 | | Action Break_Optional
0052 00d9 | | Load_Top At_Offset_1
0053 0092 015b | [| Action Push_String_Extended,0x15b ; ".Exports.Commands"
0055 01cc | | Execute Vector,Catenate
0056 0007 | | Action Break_Optional
0057 e004 | | Load 0x0,0x4
0058 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0059 02ff | | Declare_Variable Variant_Record
005a 00d8 | | Load_Top At_Offset_0
005b 1c00 | | Execute_Immediate Run_Utility,0x0
005c e004 | | Load 0x0,0x4
005d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
005e 1b18 | | Execute Package,Field_Read,Field_Number 0x18
005f 02c7 | | Declare_Variable Any
0060 00d8 | | Load_Top At_Offset_0
0061 1c00 | | Execute_Immediate Run_Utility,0x0
0062 e004 | | Load 0x0,0x4
0063 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0064 02c7 | | Declare_Variable Any
0065 00d8 | | Load_Top At_Offset_0
0066 1c00 | | Execute_Immediate Run_Utility,0x0
0067 a006 | | Store_Unchecked 0x0,0x6
0068 0007 | | Action Break_Optional
0069 029f 0153 | S| Declare_Subprogram INIT_0150,For_Call
006b BODY_0038:
006b e7fe | | Load 0x3,-0x2
006c e004 | | Load 0x0,0x4
006d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
006e 012f | / | Execute Any,Equal
006f 6801 |h | Jump_Zero 0x71
0070 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0071 e004 | | Load 0x0,0x4
0072 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0073 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0074 e609 | | Load 0x3,0x9
0075 60d6 |` | Indirect_Literal Discrete,0x14c,{0x00000000, 0x00004000}
0076 e007 | | Load 0x0,0x7
0077 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0078 4800 |H | Short_Literal 0x0
0079 e005 | | Load 0x0,0x5
007a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
007b e004 | | Load 0x0,0x4
007c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
007d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
007e e607 | | Load 0x3,0x7
007f e004 | | Load 0x0,0x4
0080 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0081 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0082 00d1 | | Pop_Control Pop_Count_1
0083 c602 | | Store 0x3,0x2
0084 e602 | | Load 0x3,0x2
0085 6813 |h | Jump_Zero 0x99
0086 0092 015c | \| Action Push_String_Extended,0x15c ; "Couldn't get version for "
0088 e607 | | Load 0x3,0x7
0089 01cc | | Execute Vector,Catenate
008a 0092 015d | ]| Action Push_String_Extended,0x15d ; " ("
008c 01cc | | Execute Vector,Catenate
008d e602 | | Load 0x3,0x2
008e e004 | | Load 0x0,0x4
008f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0090 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0091 011c | | Execute Any,Convert_Unchecked
0092 1c01 | | Execute_Immediate Run_Utility,0x1
0093 01cc | | Execute Vector,Catenate
0094 0092 015e | ^| Action Push_String_Extended,0x15e ; ")"
0096 01cc | | Execute Vector,Catenate
0097 860d | | Call 0x3,0xd
0098 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0099 e004 | | Load 0x0,0x4
009a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
009b e005 | | Load 0x0,0x5
009c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
009d 60ae |` | Indirect_Literal Discrete,0x14c,{0x00000000, 0x00004000}
009e e007 | | Load 0x0,0x7
009f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00a0 e609 | | Load 0x3,0x9
00a1 e004 | | Load 0x0,0x4
00a2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00a3 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00a4 c603 | | Store 0x3,0x3
00a5 e603 | | Load 0x3,0x3
00a6 6812 |h | Jump_Zero 0xb9
00a7 0092 015f | _| Action Push_String_Extended,0x15f ; "Couldn't set context to "
00a9 e607 | | Load 0x3,0x7
00aa 01cc | | Execute Vector,Catenate
00ab 0092 015d | ]| Action Push_String_Extended,0x15d ; " ("
00ad 01cc | | Execute Vector,Catenate
00ae e603 | | Load 0x3,0x3
00af e004 | | Load 0x0,0x4
00b0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00b1 011c | | Execute Any,Convert_Unchecked
00b2 1c01 | | Execute_Immediate Run_Utility,0x1
00b3 01cc | | Execute Vector,Catenate
00b4 0092 015e | ^| Action Push_String_Extended,0x15e ; ")"
00b6 01cc | | Execute Vector,Catenate
00b7 860d | | Call 0x3,0xd
00b8 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00b9 0092 0160 | `| Action Push_String_Extended,0x160 ; "<PROFILE>"
00bb e5fe | | Load 0x2,-0x2
00bc 4802 |H | Short_Literal 0x2
00bd e605 | | Load 0x3,0x5
00be 0092 0161 | a| Action Push_String_Extended,0x161 ; ".??"
00c0 01cc | | Execute Vector,Catenate
00c1 0092 0162 | b| Action Push_String_Extended,0x162 ; "@"
00c3 e008 | | Load 0x0,0x8
00c4 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00c5 e004 | | Load 0x0,0x4
00c6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00c7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00c8 e60a | | Load 0x3,0xa
00c9 6082 |` | Indirect_Literal Discrete,0x14c,{0x00000000, 0x00004000}
00ca e007 | | Load 0x0,0x7
00cb 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00cc e005 | | Load 0x0,0x5
00cd 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00ce e009 | | Load 0x0,0x9
00cf 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00d0 4801 |H | Short_Literal 0x1
00d1 4800 |H | Short_Literal 0x0
00d2 e005 | | Load 0x0,0x5
00d3 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00d4 e004 | | Load 0x0,0x4
00d5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00d6 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00d7 0092 0163 | c| Action Push_String_Extended,0x163 ; "[_"
00d9 e608 | | Load 0x3,0x8
00da 01cc | | Execute Vector,Catenate
00db 0092 0164 | d| Action Push_String_Extended,0x164 ; ", ~$]"
00dd 01cc | | Execute Vector,Catenate
00de e004 | | Load 0x0,0x4
00df 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00e0 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00e1 c60a | | Store 0x3,0xa
00e2 c602 | | Store 0x3,0x2
00e3 e602 | | Load 0x3,0x2
00e4 680a |h | Jump_Zero 0xef
00e5 e00a | | Load 0x0,0xa
00e6 180e | | Execute Package,Field_Execute,Field_Number 0xe
00e7 4806 |H | Short_Literal 0x6
00e8 e606 | | Load 0x3,0x6
00e9 0092 0165 | e| Action Push_String_Extended,0x165 ; " contains no command subset."
00eb 01cc | | Execute Vector,Catenate
00ec e00b | | Load 0x0,0xb
00ed 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00ee 7844 |xD | Jump 0x133
00ef 00cf | | Action Mark_Auxiliary
00f0 783c |x< | Jump 0x12d
00f1 e004 | | Load 0x0,0x4
00f2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f3 e60b | | Load 0x3,0xb
00f4 0120 | | Execute Any,Is_Value
00f5 6803 |h | Jump_Zero 0xf9
00f6 e004 | | Load 0x0,0x4
00f7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00f8 7801 |x | Jump 0xfa
00f9 e60b | | Load 0x3,0xb
00fa e60a | | Load 0x3,0xa
00fb e004 | | Load 0x0,0x4
00fc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00fd 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
00fe c60b | | Store 0x3,0xb
00ff c603 | | Store 0x3,0x3
0100 e603 | | Load 0x3,0x3
0101 680e |h | Jump_Zero 0x110
0102 e00a | | Load 0x0,0xa
0103 180e | | Execute Package,Field_Execute,Field_Number 0xe
0104 4807 |H | Short_Literal 0x7
0105 e603 | | Load 0x3,0x3
0106 e004 | | Load 0x0,0x4
0107 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0108 011c | | Execute Any,Convert_Unchecked
0109 1c01 | | Execute_Immediate Run_Utility,0x1
010a 0092 0166 | f| Action Push_String_Extended,0x166 ; " returned resolving command object"
010c 01cc | | Execute Vector,Catenate
010d e00b | | Load 0x0,0xb
010e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
010f 7817 |x | Jump 0x127
0110 e00a | | Load 0x0,0xa
0111 180e | | Execute Package,Field_Execute,Field_Number 0xe
0112 4806 |H | Short_Literal 0x6
0113 0092 0167 | g| Action Push_String_Extended,0x167 ; "Changed command link for "
0115 e60b | | Load 0x3,0xb
0116 e004 | | Load 0x0,0x4
0117 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0118 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0119 01cc | | Execute Vector,Catenate
011a e00b | | Load 0x0,0xb
011b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
011c 0092 0160 | `| Action Push_String_Extended,0x160 ; "<PROFILE>"
011e e5fe | | Load 0x2,-0x2
011f 0092 0168 | h| Action Push_String_Extended,0x168 ; "#"
0121 e60b | | Load 0x3,0xb
0122 e004 | | Load 0x0,0x4
0123 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0124 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0125 e008 | | Load 0x0,0x8
0126 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0127 e60a | | Load 0x3,0xa
0128 e004 | | Load 0x0,0x4
0129 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
012a 181d | | Execute Package,Field_Execute,Field_Number 0x1d
012b c60a | | Store 0x3,0xa
012c 00c9 | | Action Pop_Auxiliary_Loop
012d e60a | | Load 0x3,0xa
012e e004 | | Load 0x0,0x4
012f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0130 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0131 6fbf |o | Jump_Zero 0xf1
0132 00ce | | Action Pop_Auxiliary
0133 e004 | | Load 0x0,0x4
0134 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0135 e005 | | Load 0x0,0x5
0136 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0137 e604 | | Load 0x3,0x4
0138 e004 | | Load 0x0,0x4
0139 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
013a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
013b c603 | | Store 0x3,0x3
013c 4505 |E | Exit_Suprogram New_Top_Offset 0x5
013d TRAP_0038:
013d 0007 | | Action Break_Optional
013e e004 | | Load 0x0,0x4
013f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0140 e005 | | Load 0x0,0x5
0141 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0142 e604 | | Load 0x3,0x4
0143 e004 | | Load 0x0,0x4
0144 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0145 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0146 c603 | | Store 0x3,0x3
0147 00d8 | | Load_Top At_Offset_0
0148 0101 | | Execute Exception,Reraise
0149 0000 0000 | | .XXX[0x3]
014b 0000 | |
014c 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
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 e00a | | Load 0x0,0xa
0154 180e | | Execute Package,Field_Execute,Field_Number 0xe
0155 4807 |H | Short_Literal 0x7
0156 e9ff | | Load 0x4,-0x1
0157 e00b | | Load 0x0,0xb
0158 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0159 4502 |E | Exit_Suprogram New_Top_Offset 0x2
015a ; --------------------------------------------------------------------------------------
015a ; STRING TABLE
015a ; --------------------------------------------------------------------------------------
015a 0020 | | .STRTAB 0x0020->0x016a ; ".Units"
015b 0024 | $ | .STRTAB 0x0024->0x016d ; ".Exports.Commands"
015c 0033 | 3 | .STRTAB 0x0033->0x0175 ; "Couldn't get version for "
015d 004a | J | .STRTAB 0x004a->0x0182 ; " ("
015e 004a | J | .STRTAB 0x004a->0x0183 ; ")"
015f 0049 | I | .STRTAB 0x0049->0x0183 ; "Couldn't set context to "
0160 005f | _ | .STRTAB 0x005f->0x018f ; "<PROFILE>"
0161 0066 | f | .STRTAB 0x0066->0x0194 ; ".??"
0162 0067 | g | .STRTAB 0x0067->0x0195 ; "@"
0163 0066 | f | .STRTAB 0x0066->0x0196 ; "[_"
0164 0066 | f | .STRTAB 0x0066->0x0197 ; ", ~$]"
0165 0069 | i | .STRTAB 0x0069->0x0199 ; " contains no command subset."
0166 0083 | | .STRTAB 0x0083->0x01a7 ; " returned resolving command object"
0167 00a3 | | .STRTAB 0x00a3->0x01b8 ; "Changed command link for "
0168 00ba | | .STRTAB 0x00ba->0x01c5 ; "#"
0169 00b9 | | .STREND 0x00b9->0x01c5
016a 2e55 6e69 |.Uni| .STRTAB_STRINGS
01c6 0000 0000 | | .XXX[0x2]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; Debug Table
01c8 ; --------------------------------------------------------------------------------------
01c8 0004 0000 | | .DEBUG4 0x0004,0x0000,0x77cb,0x0000,0x0001,0x0000
01ce 0000 0000 | | .BLANK 0000[0x32]