|
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_5e40f2
└─⟦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 01d0 | | .CONST 0x01d0 ; 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 0070 | p | .CONST 0x0070 ; Address of begin
0039 0142 | B | .CONST 0x0142 ; 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 e004 | | Load 0x0,0x4
0041 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0042 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0043 02c7 | | Declare_Variable Any
0044 e005 | | Load 0x0,0x5
0045 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0046 e004 | | Load 0x0,0x4
0047 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0048 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0049 a604 | | Store_Unchecked 0x3,0x4
004a e7ff | | Load 0x3,-0x1
004b e004 | | Load 0x0,0x4
004c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
004d 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
004e e7fe | | Load 0x3,-0x2
004f e004 | | Load 0x0,0x4
0050 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0051 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0052 00d8 | | Load_Top At_Offset_0
0053 0092 0162 | b| Action Push_String_Extended,0x162 ; ".Units"
0055 01cc | | Execute Vector,Catenate
0056 0007 | | Action Break_Optional
0057 00d9 | | Load_Top At_Offset_1
0058 0092 0163 | c| Action Push_String_Extended,0x163 ; ".Exports.Commands"
005a 01cc | | Execute Vector,Catenate
005b 0007 | | Action Break_Optional
005c e004 | | Load 0x0,0x4
005d 1b14 | | Execute Package,Field_Read,Field_Number 0x14
005e 02ff | | Declare_Variable Variant_Record
005f 00d8 | | Load_Top At_Offset_0
0060 1c00 | | Execute_Immediate Run_Utility,0x0
0061 e004 | | Load 0x0,0x4
0062 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0063 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0064 02c7 | | Declare_Variable Any
0065 00d8 | | Load_Top At_Offset_0
0066 1c00 | | Execute_Immediate Run_Utility,0x0
0067 e004 | | Load 0x0,0x4
0068 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0069 02c7 | | Declare_Variable Any
006a 00d8 | | Load_Top At_Offset_0
006b 1c00 | | Execute_Immediate Run_Utility,0x0
006c a006 | | Store_Unchecked 0x0,0x6
006d 0007 | | Action Break_Optional
006e 029f 015b | [| Declare_Subprogram INIT_0158,For_Call
0070 BODY_0038:
0070 e7fe | | Load 0x3,-0x2
0071 e004 | | Load 0x0,0x4
0072 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0073 012f | / | Execute Any,Equal
0074 6801 |h | Jump_Zero 0x76
0075 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0076 e004 | | Load 0x0,0x4
0077 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0078 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0079 e609 | | Load 0x3,0x9
007a 60d5 |` | Indirect_Literal Discrete,0x150,{0x00000000, 0x00004000}
007b e007 | | Load 0x0,0x7
007c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
007d 4800 |H | Short_Literal 0x0
007e e005 | | Load 0x0,0x5
007f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0080 e004 | | Load 0x0,0x4
0081 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0082 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0083 e607 | | Load 0x3,0x7
0084 e004 | | Load 0x0,0x4
0085 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0086 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0087 00d1 | | Pop_Control Pop_Count_1
0088 c602 | | Store 0x3,0x2
0089 e602 | | Load 0x3,0x2
008a 6813 |h | Jump_Zero 0x9e
008b 0092 0164 | d| Action Push_String_Extended,0x164 ; "Couldn't get version for "
008d e607 | | Load 0x3,0x7
008e 01cc | | Execute Vector,Catenate
008f 0092 0165 | e| Action Push_String_Extended,0x165 ; " ("
0091 01cc | | Execute Vector,Catenate
0092 e602 | | Load 0x3,0x2
0093 e004 | | Load 0x0,0x4
0094 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0095 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0096 011c | | Execute Any,Convert_Unchecked
0097 1c01 | | Execute_Immediate Run_Utility,0x1
0098 01cc | | Execute Vector,Catenate
0099 0092 0166 | f| Action Push_String_Extended,0x166 ; ")"
009b 01cc | | Execute Vector,Catenate
009c 860d | | Call 0x3,0xd
009d 4505 |E | Exit_Suprogram New_Top_Offset 0x5
009e e004 | | Load 0x0,0x4
009f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a0 e005 | | Load 0x0,0x5
00a1 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00a2 60ad |` | Indirect_Literal Discrete,0x150,{0x00000000, 0x00004000}
00a3 e007 | | Load 0x0,0x7
00a4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00a5 e609 | | Load 0x3,0x9
00a6 e004 | | Load 0x0,0x4
00a7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00a8 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00a9 c603 | | Store 0x3,0x3
00aa e603 | | Load 0x3,0x3
00ab 6812 |h | Jump_Zero 0xbe
00ac 0092 0167 | g| Action Push_String_Extended,0x167 ; "Couldn't set context to "
00ae e607 | | Load 0x3,0x7
00af 01cc | | Execute Vector,Catenate
00b0 0092 0165 | e| Action Push_String_Extended,0x165 ; " ("
00b2 01cc | | Execute Vector,Catenate
00b3 e603 | | Load 0x3,0x3
00b4 e004 | | Load 0x0,0x4
00b5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00b6 011c | | Execute Any,Convert_Unchecked
00b7 1c01 | | Execute_Immediate Run_Utility,0x1
00b8 01cc | | Execute Vector,Catenate
00b9 0092 0166 | f| Action Push_String_Extended,0x166 ; ")"
00bb 01cc | | Execute Vector,Catenate
00bc 860d | | Call 0x3,0xd
00bd 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00be 0092 0168 | h| Action Push_String_Extended,0x168 ; "<PROFILE>"
00c0 e5fe | | Load 0x2,-0x2
00c1 4802 |H | Short_Literal 0x2
00c2 e605 | | Load 0x3,0x5
00c3 0092 0169 | i| Action Push_String_Extended,0x169 ; ".??"
00c5 01cc | | Execute Vector,Catenate
00c6 0092 016a | j| Action Push_String_Extended,0x16a ; "@"
00c8 e008 | | Load 0x0,0x8
00c9 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00ca e004 | | Load 0x0,0x4
00cb 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00cc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00cd e60a | | Load 0x3,0xa
00ce 6081 |` | Indirect_Literal Discrete,0x150,{0x00000000, 0x00004000}
00cf e007 | | Load 0x0,0x7
00d0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00d1 e005 | | Load 0x0,0x5
00d2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00d3 e009 | | Load 0x0,0x9
00d4 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00d5 4801 |H | Short_Literal 0x1
00d6 4800 |H | Short_Literal 0x0
00d7 e005 | | Load 0x0,0x5
00d8 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00d9 e004 | | Load 0x0,0x4
00da 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00db 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00dc 0092 016b | k| Action Push_String_Extended,0x16b ; "[_"
00de e608 | | Load 0x3,0x8
00df 01cc | | Execute Vector,Catenate
00e0 0092 016c | l| Action Push_String_Extended,0x16c ; ", ~$]"
00e2 01cc | | Execute Vector,Catenate
00e3 e004 | | Load 0x0,0x4
00e4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00e5 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00e6 c60a | | Store 0x3,0xa
00e7 c602 | | Store 0x3,0x2
00e8 e602 | | Load 0x3,0x2
00e9 680a |h | Jump_Zero 0xf4
00ea e00a | | Load 0x0,0xa
00eb 180e | | Execute Package,Field_Execute,Field_Number 0xe
00ec 4806 |H | Short_Literal 0x6
00ed e606 | | Load 0x3,0x6
00ee 0092 016d | m| Action Push_String_Extended,0x16d ; " contains no command subset."
00f0 01cc | | Execute Vector,Catenate
00f1 e00b | | Load 0x0,0xb
00f2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00f3 7844 |xD | Jump 0x138
00f4 00cf | | Action Mark_Auxiliary
00f5 783c |x< | Jump 0x132
00f6 e004 | | Load 0x0,0x4
00f7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f8 e60b | | Load 0x3,0xb
00f9 0120 | | Execute Any,Is_Value
00fa 6803 |h | Jump_Zero 0xfe
00fb e004 | | Load 0x0,0x4
00fc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00fd 7801 |x | Jump 0xff
00fe e60b | | Load 0x3,0xb
00ff e60a | | Load 0x3,0xa
0100 e004 | | Load 0x0,0x4
0101 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0102 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0103 c60b | | Store 0x3,0xb
0104 c603 | | Store 0x3,0x3
0105 e603 | | Load 0x3,0x3
0106 680e |h | Jump_Zero 0x115
0107 e00a | | Load 0x0,0xa
0108 180e | | Execute Package,Field_Execute,Field_Number 0xe
0109 4807 |H | Short_Literal 0x7
010a e603 | | Load 0x3,0x3
010b e004 | | Load 0x0,0x4
010c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
010d 011c | | Execute Any,Convert_Unchecked
010e 1c01 | | Execute_Immediate Run_Utility,0x1
010f 0092 016e | n| Action Push_String_Extended,0x16e ; " returned resolving command object"
0111 01cc | | Execute Vector,Catenate
0112 e00b | | Load 0x0,0xb
0113 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0114 7817 |x | Jump 0x12c
0115 e00a | | Load 0x0,0xa
0116 180e | | Execute Package,Field_Execute,Field_Number 0xe
0117 4806 |H | Short_Literal 0x6
0118 0092 016f | o| Action Push_String_Extended,0x16f ; "Changed command link for "
011a e60b | | Load 0x3,0xb
011b e004 | | Load 0x0,0x4
011c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
011d 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
011e 01cc | | Execute Vector,Catenate
011f e00b | | Load 0x0,0xb
0120 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0121 0092 0168 | h| Action Push_String_Extended,0x168 ; "<PROFILE>"
0123 e5fe | | Load 0x2,-0x2
0124 0092 0170 | p| Action Push_String_Extended,0x170 ; "#"
0126 e60b | | Load 0x3,0xb
0127 e004 | | Load 0x0,0x4
0128 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0129 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
012a e008 | | Load 0x0,0x8
012b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
012c e60a | | Load 0x3,0xa
012d e004 | | Load 0x0,0x4
012e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
012f 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0130 c60a | | Store 0x3,0xa
0131 00c9 | | Action Pop_Auxiliary_Loop
0132 e60a | | Load 0x3,0xa
0133 e004 | | Load 0x0,0x4
0134 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0135 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0136 6fbf |o | Jump_Zero 0xf6
0137 00ce | | Action Pop_Auxiliary
0138 e004 | | Load 0x0,0x4
0139 1b0d | | Execute Package,Field_Read,Field_Number 0xd
013a e005 | | Load 0x0,0x5
013b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
013c e604 | | Load 0x3,0x4
013d e004 | | Load 0x0,0x4
013e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
013f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0140 c603 | | Store 0x3,0x3
0141 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0142 TRAP_0038:
0142 0007 | | Action Break_Optional
0143 e004 | | Load 0x0,0x4
0144 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0145 e005 | | Load 0x0,0x5
0146 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0147 e604 | | Load 0x3,0x4
0148 e004 | | Load 0x0,0x4
0149 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
014a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
014b c603 | | Store 0x3,0x3
014c 00d8 | | Load_Top At_Offset_0
014d 0101 | | Execute Exception,Reraise
014e 0000 0000 | | .XXX[0x2]
0150 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0154 0000 0000 | | .BLANK 0000[0x4]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b e00a | | Load 0x0,0xa
015c 180e | | Execute Package,Field_Execute,Field_Number 0xe
015d 4807 |H | Short_Literal 0x7
015e e9ff | | Load 0x4,-0x1
015f e00b | | Load 0x0,0xb
0160 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0161 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0162 ; --------------------------------------------------------------------------------------
0162 ; STRING TABLE
0162 ; --------------------------------------------------------------------------------------
0162 0020 | | .STRTAB 0x0020->0x0172 ; ".Units"
0163 0024 | $ | .STRTAB 0x0024->0x0175 ; ".Exports.Commands"
0164 0033 | 3 | .STRTAB 0x0033->0x017d ; "Couldn't get version for "
0165 004a | J | .STRTAB 0x004a->0x018a ; " ("
0166 004a | J | .STRTAB 0x004a->0x018b ; ")"
0167 0049 | I | .STRTAB 0x0049->0x018b ; "Couldn't set context to "
0168 005f | _ | .STRTAB 0x005f->0x0197 ; "<PROFILE>"
0169 0066 | f | .STRTAB 0x0066->0x019c ; ".??"
016a 0067 | g | .STRTAB 0x0067->0x019d ; "@"
016b 0066 | f | .STRTAB 0x0066->0x019e ; "[_"
016c 0066 | f | .STRTAB 0x0066->0x019f ; ", ~$]"
016d 0069 | i | .STRTAB 0x0069->0x01a1 ; " contains no command subset."
016e 0083 | | .STRTAB 0x0083->0x01af ; " returned resolving command object"
016f 00a3 | | .STRTAB 0x00a3->0x01c0 ; "Changed command link for "
0170 00ba | | .STRTAB 0x00ba->0x01cd ; "#"
0171 00b9 | | .STREND 0x00b9->0x01cd
0172 2e55 6e69 |.Uni| .STRTAB_STRINGS
01ce 0000 0000 | | .XXX[0x2]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; Debug Table
01d0 ; --------------------------------------------------------------------------------------
01d0 0004 000d | | .DEBUG4 0x0004,0x000d,0x96d6,0x0000,0x0001,0x0000
01d6 0289 029b | | .XXX[0x2a]
01d8 02a6 02b5 | |
01da 02eb 02ea | |
01dc 02fb 0308 | |
01de 032a 0348 | * H|
01e0 036c 0393 | l |
01e2 03bb 03e2 | |
01e4 03f4 0404 | |
01e6 042c 0442 | , B|
01e8 0451 045c | Q \|
01ea 0466 0466 | f f|
01ec 322e 306f |2.0o|
01ee 7468 6572 |ther|
01f0 7320 3d3e |s =>|
01f2 2055 6e73 | Uns|
01f4 7065 6369 |peci|
01f6 6669 6564 |fied|
01f8 2c4c 4f41 |,LOA|
01fa 445f 5441 |D_TA|
01fc 5045 203d |PE =|
01fe 3e20 2841 |> (A|