|
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_0bf8df
└─⟦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 01e8 | | .CONST 0x01e8 ; 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 002e | . | .CONST 0x002e ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0006 | | .CONST 0x0006 ; Number of locals
001b INIT_0018:
001b 029f 0043 | C| Declare_Subprogram INIT_0040,For_Call
001d 029f 015b | [| Declare_Subprogram INIT_0158,For_Call
001f a002 | | Store_Unchecked 0x0,0x2
0020 00c6 | | Action Check_Subprogram_Elaborated
0021 4803 |H | Short_Literal 0x3
0022 4802 |H | Short_Literal 0x2
0023 0099 | | Action Reference_Dynamic
0024 0093 0000 | | push_full_address 0x0
0026 6011 |` | Indirect_Literal Discrete,0x38,{0x80000000, 0x00010000}
0027 0273 | s | Execute Discrete,Plus
0028 e003 | | Load 0x0,0x3
0029 0273 | s | Execute Discrete,Plus
002a e004 | | Load 0x0,0x4
002b 0273 | s | Execute Discrete,Plus
002c 4806 |H | Short_Literal 0x6
002d 0007 | | Action Break_Optional
002e BODY_0018:
002e e5ff | | Load 0x2,-0x1
002f 4804 |H | Short_Literal 0x4
0030 4802 |H | Short_Literal 0x2
0031 0099 | | Action Reference_Dynamic
0032 4805 |H | Short_Literal 0x5
0033 4802 |H | Short_Literal 0x2
0034 0099 | | Action Reference_Dynamic
0035 8002 | | Call 0x0,0x2
0036 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0037 0000 | | .XXX[0x1]
0038 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
003c 0000 0000 | | .BLANK 0000[0x4]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0071 | q | .CONST 0x0071 ; Address of begin
0041 0143 | C | .CONST 0x0143 ; Address of exception handler
0042 000c | | .CONST 0x000c ; Number of locals
0043 INIT_0040:
0043 e005 | | Load 0x0,0x5
0044 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0045 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0046 e005 | | Load 0x0,0x5
0047 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0048 e006 | | Load 0x0,0x6
0049 1811 | | Execute Package,Field_Execute,Field_Number 0x11
004a e005 | | Load 0x0,0x5
004b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
004c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
004d e7ff | | Load 0x3,-0x1
004e e005 | | Load 0x0,0x5
004f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0050 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0051 e7fe | | Load 0x3,-0x2
0052 e005 | | Load 0x0,0x5
0053 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0054 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0055 00d8 | | Load_Top At_Offset_0
0056 0092 017a | z| Action Push_String_Extended,0x17a ; ".Units"
0058 01cc | | Execute Vector,Catenate
0059 0007 | | Action Break_Optional
005a 00d9 | | Load_Top At_Offset_1
005b 0092 017b | {| Action Push_String_Extended,0x17b ; ".Exports.Commands"
005d 01cc | | Execute Vector,Catenate
005e 0007 | | Action Break_Optional
005f e005 | | Load 0x0,0x5
0060 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0061 02ff | | Declare_Variable Variant_Record
0062 00d8 | | Load_Top At_Offset_0
0063 1c00 | | Execute_Immediate Run_Utility,0x0
0064 e005 | | Load 0x0,0x5
0065 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0066 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0067 02c7 | | Declare_Variable Any
0068 00d8 | | Load_Top At_Offset_0
0069 1c00 | | Execute_Immediate Run_Utility,0x0
006a e005 | | Load 0x0,0x5
006b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
006c 02c7 | | Declare_Variable Any
006d 00d8 | | Load_Top At_Offset_0
006e 1c00 | | Execute_Immediate Run_Utility,0x0
006f 029f 0173 | s| Declare_Subprogram INIT_0170,For_Call
0071 BODY_0040:
0071 e7fe | | Load 0x3,-0x2
0072 e005 | | Load 0x0,0x5
0073 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0074 012f | / | Execute Any,Equal
0075 6801 |h | Jump_Zero 0x77
0076 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0077 e005 | | Load 0x0,0x5
0078 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0079 1b0f | | Execute Package,Field_Read,Field_Number 0xf
007a e609 | | Load 0x3,0x9
007b 60d4 |` | Indirect_Literal Discrete,0x150,{0x00000000, 0x00004000}
007c e007 | | Load 0x0,0x7
007d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
007e 4800 |H | Short_Literal 0x0
007f e006 | | Load 0x0,0x6
0080 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0081 e005 | | Load 0x0,0x5
0082 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0083 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0084 e607 | | Load 0x3,0x7
0085 e005 | | Load 0x0,0x5
0086 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0087 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0088 00d1 | | Pop_Control Pop_Count_1
0089 c602 | | Store 0x3,0x2
008a e602 | | Load 0x3,0x2
008b 6813 |h | Jump_Zero 0x9f
008c 0092 017c | || Action Push_String_Extended,0x17c ; "Couldn't get version for "
008e e607 | | Load 0x3,0x7
008f 01cc | | Execute Vector,Catenate
0090 0092 017d | }| Action Push_String_Extended,0x17d ; " ("
0092 01cc | | Execute Vector,Catenate
0093 e602 | | Load 0x3,0x2
0094 e005 | | Load 0x0,0x5
0095 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0096 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0097 011c | | Execute Any,Convert_Unchecked
0098 1c01 | | Execute_Immediate Run_Utility,0x1
0099 01cc | | Execute Vector,Catenate
009a 0092 017e | ~| Action Push_String_Extended,0x17e ; ")"
009c 01cc | | Execute Vector,Catenate
009d 860c | | Call 0x3,0xc
009e 4505 |E | Exit_Suprogram New_Top_Offset 0x5
009f e005 | | Load 0x0,0x5
00a0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a1 e006 | | Load 0x0,0x6
00a2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00a3 60ac |` | Indirect_Literal Discrete,0x150,{0x00000000, 0x00004000}
00a4 e007 | | Load 0x0,0x7
00a5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00a6 e609 | | Load 0x3,0x9
00a7 e005 | | Load 0x0,0x5
00a8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00a9 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00aa c603 | | Store 0x3,0x3
00ab e603 | | Load 0x3,0x3
00ac 6812 |h | Jump_Zero 0xbf
00ad 0092 017f | | Action Push_String_Extended,0x17f ; "Couldn't set context to "
00af e607 | | Load 0x3,0x7
00b0 01cc | | Execute Vector,Catenate
00b1 0092 017d | }| Action Push_String_Extended,0x17d ; " ("
00b3 01cc | | Execute Vector,Catenate
00b4 e603 | | Load 0x3,0x3
00b5 e005 | | Load 0x0,0x5
00b6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00b7 011c | | Execute Any,Convert_Unchecked
00b8 1c01 | | Execute_Immediate Run_Utility,0x1
00b9 01cc | | Execute Vector,Catenate
00ba 0092 017e | ~| Action Push_String_Extended,0x17e ; ")"
00bc 01cc | | Execute Vector,Catenate
00bd 860c | | Call 0x3,0xc
00be 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00bf 0092 0180 | | Action Push_String_Extended,0x180 ; "<PROFILE>"
00c1 e5fe | | Load 0x2,-0x2
00c2 4802 |H | Short_Literal 0x2
00c3 e605 | | Load 0x3,0x5
00c4 0092 0181 | | Action Push_String_Extended,0x181 ; ".??"
00c6 01cc | | Execute Vector,Catenate
00c7 0092 0182 | | Action Push_String_Extended,0x182 ; "@"
00c9 e008 | | Load 0x0,0x8
00ca 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00cb e005 | | Load 0x0,0x5
00cc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00cd 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00ce 00db | | Load_Top At_Offset_3
00cf 6080 |` | Indirect_Literal Discrete,0x150,{0x00000000, 0x00004000}
00d0 e007 | | Load 0x0,0x7
00d1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00d2 e006 | | Load 0x0,0x6
00d3 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00d4 e009 | | Load 0x0,0x9
00d5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00d6 4801 |H | Short_Literal 0x1
00d7 4800 |H | Short_Literal 0x0
00d8 e006 | | Load 0x0,0x6
00d9 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00da e005 | | Load 0x0,0x5
00db 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00dc 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00dd 0092 0183 | | Action Push_String_Extended,0x183 ; "[_"
00df e608 | | Load 0x3,0x8
00e0 01cc | | Execute Vector,Catenate
00e1 0092 0184 | | Action Push_String_Extended,0x184 ; ", ~$]"
00e3 01cc | | Execute Vector,Catenate
00e4 e005 | | Load 0x0,0x5
00e5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00e6 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00e7 c60a | | Store 0x3,0xa
00e8 c602 | | Store 0x3,0x2
00e9 e602 | | Load 0x3,0x2
00ea 680a |h | Jump_Zero 0xf5
00eb e00a | | Load 0x0,0xa
00ec 180e | | Execute Package,Field_Execute,Field_Number 0xe
00ed 4806 |H | Short_Literal 0x6
00ee e606 | | Load 0x3,0x6
00ef 0092 0185 | | Action Push_String_Extended,0x185 ; " contains no command subset."
00f1 01cc | | Execute Vector,Catenate
00f2 e00b | | Load 0x0,0xb
00f3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00f4 7844 |xD | Jump 0x139
00f5 00cf | | Action Mark_Auxiliary
00f6 783c |x< | Jump 0x133
00f7 e005 | | Load 0x0,0x5
00f8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f9 00db | | Load_Top At_Offset_3
00fa 0120 | | Execute Any,Is_Value
00fb 6803 |h | Jump_Zero 0xff
00fc e005 | | Load 0x0,0x5
00fd 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00fe 7801 |x | Jump 0x100
00ff 00db | | Load_Top At_Offset_3
0100 e60a | | Load 0x3,0xa
0101 e005 | | Load 0x0,0x5
0102 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0103 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0104 c60b | | Store 0x3,0xb
0105 c603 | | Store 0x3,0x3
0106 e603 | | Load 0x3,0x3
0107 680e |h | Jump_Zero 0x116
0108 e00a | | Load 0x0,0xa
0109 180e | | Execute Package,Field_Execute,Field_Number 0xe
010a 4807 |H | Short_Literal 0x7
010b e603 | | Load 0x3,0x3
010c e005 | | Load 0x0,0x5
010d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
010e 011c | | Execute Any,Convert_Unchecked
010f 1c01 | | Execute_Immediate Run_Utility,0x1
0110 0092 0186 | | Action Push_String_Extended,0x186 ; " returned resolving command object"
0112 01cc | | Execute Vector,Catenate
0113 e00b | | Load 0x0,0xb
0114 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0115 7817 |x | Jump 0x12d
0116 e00a | | Load 0x0,0xa
0117 180e | | Execute Package,Field_Execute,Field_Number 0xe
0118 4806 |H | Short_Literal 0x6
0119 0092 0187 | | Action Push_String_Extended,0x187 ; "Changed command link for "
011b e60b | | Load 0x3,0xb
011c e005 | | Load 0x0,0x5
011d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
011e 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
011f 01cc | | Execute Vector,Catenate
0120 e00b | | Load 0x0,0xb
0121 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0122 0092 0180 | | Action Push_String_Extended,0x180 ; "<PROFILE>"
0124 e5fe | | Load 0x2,-0x2
0125 0092 0188 | | Action Push_String_Extended,0x188 ; "#"
0127 e60b | | Load 0x3,0xb
0128 e005 | | Load 0x0,0x5
0129 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
012a 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
012b e008 | | Load 0x0,0x8
012c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
012d 00db | | Load_Top At_Offset_3
012e e005 | | Load 0x0,0x5
012f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0130 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0131 c60a | | Store 0x3,0xa
0132 00c9 | | Action Pop_Auxiliary_Loop
0133 00db | | Load_Top At_Offset_3
0134 e005 | | Load 0x0,0x5
0135 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0136 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0137 6fbf |o | Jump_Zero 0xf7
0138 00ce | | Action Pop_Auxiliary
0139 e005 | | Load 0x0,0x5
013a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
013b e006 | | Load 0x0,0x6
013c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
013d e604 | | Load 0x3,0x4
013e e005 | | Load 0x0,0x5
013f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0140 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0141 c603 | | Store 0x3,0x3
0142 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0143 TRAP_0040:
0143 0007 | | Action Break_Optional
0144 e005 | | Load 0x0,0x5
0145 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0146 e006 | | Load 0x0,0x6
0147 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0148 e604 | | Load 0x3,0x4
0149 e005 | | Load 0x0,0x5
014a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
014b 1814 | | Execute Package,Field_Execute,Field_Number 0x14
014c c603 | | Store 0x3,0x3
014d 00d8 | | Load_Top At_Offset_0
014e 0101 | | Execute Exception,Reraise
014f 0000 | | .XXX[0x1]
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 e7fc | | Load 0x3,-0x4
015c e00c | | Load 0x0,0xc
015d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
015e 0119 | | Execute Any,Check_In_Formal_Type
015f e7fd | | Load 0x3,-0x3
0160 e005 | | Load 0x0,0x5
0161 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0162 0119 | | Execute Any,Check_In_Formal_Type
0163 e7fe | | Load 0x3,-0x2
0164 e005 | | Load 0x0,0x5
0165 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0166 0119 | | Execute Any,Check_In_Formal_Type
0167 e7ff | | Load 0x3,-0x1
0168 e005 | | Load 0x0,0x5
0169 1b0f | | Execute Package,Field_Read,Field_Number 0xf
016a 0119 | | Execute Any,Check_In_Formal_Type
016b 8402 | | Call 0x2,0x2
016c 4505 |E | Exit_Suprogram New_Top_Offset 0x5
016d 0000 0000 | | .XXX[0x3]
016f 0000 | |
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 e00a | | Load 0x0,0xa
0174 180e | | Execute Package,Field_Execute,Field_Number 0xe
0175 4807 |H | Short_Literal 0x7
0176 e9ff | | Load 0x4,-0x1
0177 e00b | | Load 0x0,0xb
0178 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0179 4502 |E | Exit_Suprogram New_Top_Offset 0x2
017a ; --------------------------------------------------------------------------------------
017a ; STRING TABLE
017a ; --------------------------------------------------------------------------------------
017a 0020 | | .STRTAB 0x0020->0x018a ; ".Units"
017b 0024 | $ | .STRTAB 0x0024->0x018d ; ".Exports.Commands"
017c 0033 | 3 | .STRTAB 0x0033->0x0195 ; "Couldn't get version for "
017d 004a | J | .STRTAB 0x004a->0x01a2 ; " ("
017e 004a | J | .STRTAB 0x004a->0x01a3 ; ")"
017f 0049 | I | .STRTAB 0x0049->0x01a3 ; "Couldn't set context to "
0180 005f | _ | .STRTAB 0x005f->0x01af ; "<PROFILE>"
0181 0066 | f | .STRTAB 0x0066->0x01b4 ; ".??"
0182 0067 | g | .STRTAB 0x0067->0x01b5 ; "@"
0183 0066 | f | .STRTAB 0x0066->0x01b6 ; "[_"
0184 0066 | f | .STRTAB 0x0066->0x01b7 ; ", ~$]"
0185 0069 | i | .STRTAB 0x0069->0x01b9 ; " contains no command subset."
0186 0083 | | .STRTAB 0x0083->0x01c7 ; " returned resolving command object"
0187 00a3 | | .STRTAB 0x00a3->0x01d8 ; "Changed command link for "
0188 00ba | | .STRTAB 0x00ba->0x01e5 ; "#"
0189 00b9 | | .STREND 0x00b9->0x01e5
018a 2e55 6e69 |.Uni| .STRTAB_STRINGS
01e6 0000 0000 | | .XXX[0x2]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; Debug Table
01e8 ; --------------------------------------------------------------------------------------
01e8 0004 0002 | | .DEBUG4 0x0004,0x0002,0x0b89,0x0000,0x0001,0x0000
01ee 0374 041c | t | .XXX[0x12]
01f0 0458 04c8 | X |
01f2 052c 05c0 | , |
01f4 06a8 06a4 | |
01f6 070c 07a0 | |
01f8 0834 08c8 | 4 |
01fa 095c 09f8 | \ |
01fc 0a25 259d | %% |
01fe b9bd c9a5 | |