|
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 0048 | H | .CONST 0x0048 ; 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 8000 | | .CONST 0x8000 ; 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 0024 | $ | .CONST 0x0024 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0003 | | .CONST 0x0003 ; Number of locals
001b INIT_0018:
001b e002 | | Load 0x0,0x2
001c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
001d 1b18 | | Execute Package,Field_Read,Field_Number 0x18
001e 02c7 | | Declare_Variable Any
001f 00d8 | | Load_Top At_Offset_0
0020 1c00 | | Execute_Immediate Run_Utility,0x0
0021 e002 | | Load 0x0,0x2
0022 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0023 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0024 BODY_0018:
0024 e002 | | Load 0x0,0x2
0025 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0026 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0027 00da | | Load_Top At_Offset_2
0028 601b |` | Indirect_Literal Discrete,0x44,{0x00000000, 0x00004000}
0029 e003 | | Load 0x0,0x3
002a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
002b e004 | | Load 0x0,0x4
002c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
002d e005 | | Load 0x0,0x5
002e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
002f 4801 |H | Short_Literal 0x1
0030 4800 |H | Short_Literal 0x0
0031 e004 | | Load 0x0,0x4
0032 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0033 e002 | | Load 0x0,0x2
0034 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0035 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0036 e5ff | | Load 0x2,-0x1
0037 e002 | | Load 0x0,0x2
0038 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0039 181b | | Execute Package,Field_Execute,Field_Number 0x1b
003a c402 | | Store 0x2,0x2
003b 0059 | Y | Store_Top Discrete,At_Offset_1
003c 00d8 | | Load_Top At_Offset_0
003d 0f00 | | Execute_Immediate Equal,0x0
003e 00d9 | | Load_Top At_Offset_1
003f 0f06 | | Execute_Immediate Equal,0x6
0040 0278 | x | Execute Discrete,Or
0041 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0042 0000 0000 | | .XXX[0x2]
0044 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0048 ; --------------------------------------------------------------------------------------
0048 ; Debug Table
0048 ; --------------------------------------------------------------------------------------
0048 0004 0002 | | .DEBUG4 0x0004,0x0002,0x0b8a,0x0000,0x0001,0x0000
004e e5c1 9481 | | .XXX[0x15]
0050 a5cc 2880 | ( |
0052 8081 8995 | |
0054 9da5 b828 | (|
0056 8080 8080 | |
0058 8081 a598 | |
005a 8185 89cc | |
005c 8160 80f8 | ` |
005e 80c4 b8c0 | |
0060 81d1 a195 | |
0062 b828 | ( |
0063 8080 8080 | | .BLANK 8080[0x4]
0067 81c9 85a5 | | .XXX[0xd0]
0069 cd94 8105 | |
006b c99d d5b5 | |
006d 95b9 d17d | }|
006f 15c9 c9bd | |
0071 c8ec 2880 | ( |
0073 8080 8080 | |
0075 8195 b990 | |
0077 81a5 98ec | |
0079 2880 8080 |( |
007b 8080 81c9 | |
007d 95d1 d5c9 | |
007f b881 358c | 5 |
0081 d8e0 e0e0 | |
0083 c4b9 05cd | |
0085 a5b8 80a1 | |
0087 60a4 ec28 |` (|
0089 8080 8195 | |
008b b990 8105 | |
008d c98d cda5 | |
008f b8ec 2828 | ((|
0091 2880 8081 |( |
0093 99d5 b98d | |
0095 d1a5 bdb8 | |
0097 8105 c98d | |
0099 cda5 b880 | |
009b a160 b081 | ` |
009d 0de5 8db1 | |
009f 9480 e881 | |
00a1 19b1 bd85 | |
00a3 d17d 51e5 | }Q |
00a5 c194 a481 | |
00a7 c995 d1d5 | |
00a9 c9b8 8119 | |
00ab b1bd 85d1 | |
00ad 7d51 e5c1 |}Q |
00af 9481 a5cc | |
00b1 2880 8081 |( |
00b3 8995 9da5 | |
00b5 b828 8080 | ( |
00b7 8080 8081 | |
00b9 a598 810d | |
00bb e58d b194 | |
00bd 80f0 f480 | |
00bf c0b8 c081 | |
00c1 bdc8 8195 | |
00c3 b1cd 9481 | |
00c5 8589 cc81 | |
00c7 6080 f880 |` |
00c9 c4b8 c081 | |
00cb d1a1 95b8 | |
00cd 2880 8080 |( |
00cf 8080 8080 | |
00d1 8081 c985 | |
00d3 a5cd 9481 | |
00d5 05c9 9dd5 | |
00d7 b595 b9d1 | |
00d9 7d15 c9c9 |} |
00db bdc8 ec28 | (|
00dd 8080 8080 | |
00df 8081 95b9 | |
00e1 9081 a598 | |
00e3 ec28 8080 | ( |
00e5 8080 8081 | |
00e7 c995 d1d5 | |
00e9 c9b8 8135 | 5|
00eb 8cd8 e0e0 | |
00ed e0c4 b905 | |
00ef cda5 b880 | |
00f1 a160 a480 | ` |
00f3 a881 0de5 | |
00f5 8db1 9480 | |
00f7 a881 3db9 | = |
00f9 957d 3dd9 | }= |
00fb 95c9 7d51 | }Q|
00fd ddbd 7d41 | }A|
00ff a4ec 2880 | ( |
0101 8081 95b9 | |
0103 9081 05c9 | |
0105 8dcd a5b8 | |
0107 ec28 2828 | (((|
0109 8080 8199 | |
010b d5b9 8dd1 | |
010d a5bd b881 | |
010f 05c9 8d8d | |
0111 bdcc 80a1 | |
0113 6080 e881 |` |
0115 19b1 bd85 | |
0117 d17d 51e5 | }Q |
0119 c194 a481 | |
011b c995 d1d5 | |
011d c9b8 8119 | |
011f b1bd 85d1 | |
0121 7d51 e5c1 |}Q |
0123 9481 a5cc | |
0125 2880 8081 |( |
0127 8995 9da5 | |
0129 b828 8080 | ( |
012b 8080 8081 | |
012d a598 8185 | |
012f 89cc 8160 | `|
0131 80f8 80c4 | |
0133 b8c0 81d1 | |
0135 a195 b828 | (|
0137 8080 8080 | | .BLANK 8080[0x4]
013b 81c9 85a5 | | .XXX[0xb5]
013d cd94 8105 | |
013f c99d d5b5 | |
0141 95b9 d17d | }|
0143 15c9 c9bd | |
0145 c8ec 2880 | ( |
0147 8080 8080 | |
0149 8195 b990 | |
014b 81a5 98ec | |
014d 2880 8080 |( |
014f 8080 81c9 | |
0151 95d1 d5c9 | |
0153 b881 358c | 5 |
0155 d8e0 e0e0 | |
0157 c4b9 058d | |
0159 bdcc 80a1 | |
015b 60a4 ec28 |` (|
015d 8080 8195 | |
015f b990 8105 | |
0161 c98d 8dbd | |
0163 ccec 2828 | ((|
0165 2880 8081 |( |
0167 99d5 b98d | |
0169 d1a5 bdb8 | |
016b 8105 c98d | |
016d 8dbd cc80 | |
016f a160 b081 | ` |
0171 0de5 8db1 | |
0173 9480 e881 | |
0175 19b1 bd85 | |
0177 d17d 51e5 | }Q |
0179 c194 a481 | |
017b c995 d1d5 | |
017d c9b8 8119 | |
017f b1bd 85d1 | |
0181 7d51 e5c1 |}Q |
0183 9481 a5cc | |
0185 2880 8081 |( |
0187 8995 9da5 | |
0189 b828 8080 | ( |
018b 8080 8081 | |
018d a598 810d | |
018f e58d b194 | |
0191 80f0 f480 | |
0193 c0b8 c081 | |
0195 bdc8 8195 | |
0197 b1cd 9481 | |
0199 8589 cc81 | |
019b 6080 f880 |` |
019d c4b8 c081 | |
019f d1a1 95b8 | |
01a1 2880 8080 |( |
01a3 8080 8080 | |
01a5 8081 c985 | |
01a7 a5cd 9481 | |
01a9 05c9 9dd5 | |
01ab b595 b9d1 | |
01ad 7d15 c9c9 |} |
01af bdc8 ec28 | (|
01b1 8080 8080 | |
01b3 8081 95b9 | |
01b5 9081 a598 | |
01b7 ec28 8080 | ( |
01b9 8080 8081 | |
01bb c995 d1d5 | |
01bd c9b8 8135 | 5|
01bf 8cd8 e0e0 | |
01c1 e0c4 b905 | |
01c3 8dbd cc80 | |
01c5 a160 a480 | ` |
01c7 a881 0de5 | |
01c9 8db1 9480 | |
01cb a881 3db9 | = |
01cd 957d 3dd9 | }= |
01cf 95c9 7d51 | }Q|
01d1 ddbd 7d41 | }A|
01d3 a4ec 2880 | ( |
01d5 8081 95b9 | |
01d7 9081 05c9 | |
01d9 8d8d bdcc | |
01db ec28 2828 | (((|
01dd 8080 8199 | |
01df d5b9 8dd1 | |
01e1 a5bd b881 | |
01e3 05c9 8dd1 | |
01e5 85b8 80a1 | |
01e7 6480 e881 |d |
01e9 19b1 bd85 | |
01eb d17d 51e5 | }Q |
01ed c194 ec80 | |
01ef 8028 | ( |
01f0 8080 8080 | | .BLANK 8080[0x9]
01f9 8081 6080 | ` | .XXX[0x7]
01fb e881 19b1 | |
01fd bd85 d17d | }|
01ff 51e5 |Q |