|
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 8080 8080 | | .XXX[0xa0]
0050 8115 cd8d | |
0052 7d0d 7d1c |} } |
0054 b081 15cd | |
0056 8d7d 0985 | } |
0058 8dad cdc1 | |
005a 858d 94b0 | |
005c 8115 cd8d | |
005e 7d51 8588 |}Q |
0060 b081 15cd | |
0062 8d7d 0d7d | } }|
0064 28b0 8115 |( |
0066 cd8d 7d0d | } |
0068 7d2c b081 |}, |
006a 15cd 8d7d | }|
006c 0d7d 30b0 | }0 |
006e 2880 8080 |( |
0070 8080 8080 | |
0072 8115 cd8d | |
0074 7d0d 7d34 |} }4|
0076 b081 15cd | |
0078 8d7d 0d7d | } }|
007a 38b0 8115 |8 |
007c cd8d 7d0d | } |
007e 7d3c b081 |}< |
0080 15cd 8d7d | }|
0082 0d7d 40b0 | }@ |
0084 8115 cd8d | |
0086 7d0d 7d44 |} }D|
0088 b081 15cd | |
008a 8d7d 0d7d | } }|
008c 48b0 8115 |H |
008e cd8d 7d0d | } |
0090 7d4c b028 |}L (|
0092 8080 8080 | |
0094 8080 8081 | |
0096 15cd 8d7d | }|
0098 0d7d 50b0 | }P |
009a 8115 cd8d | |
009c 7d0d 7d54 |} }T|
009e b081 15cd | |
00a0 8d7d 0d7d | } }|
00a2 58b0 8115 |X |
00a4 cd8d 7d0d | } |
00a6 7d5c b081 |}\ |
00a8 15cd 8d7d | }|
00aa 0d7d 60b0 | }` |
00ac 8115 cd8d | |
00ae 7d0d 7d64 |} }d|
00b0 b081 15cd | |
00b2 8d7d 0d7d | } }|
00b4 68b0 2828 |h ((|
00b6 8080 8080 | |
00b8 8080 8081 | |
00ba 15cd 8d7d | }|
00bc 0d7d 0985 | } |
00be 8dad cdb1 | |
00c0 85cd a0b0 | |
00c2 8080 2880 | ( |
00c4 8080 8080 | |
00c6 8080 8115 | |
00c8 cd8d 7d0d | } |
00ca 7d0d a5c9 |} |
00cc 8dd5 b599 | |
00ce b195 e0b0 | |
00d0 8080 2880 | ( |
00d2 8080 8080 | |
00d4 8080 8115 | |
00d6 cd8d 7d0d | } |
00d8 7d55 b991 |}U |
00da 95c9 b1a5 | |
00dc b994 b080 | |
00de 8028 8080 | ( |
00e0 8080 8080 | |
00e2 8081 15cd | |
00e4 8d7d 0d7d | } }|
00e6 49a5 9da1 |I |
00e8 d17d 09c9 | } |
00ea 858d ad95 | |
00ec d0b0 2828 | ((|
00ee 8080 8080 | | .BLANK 8080[0x4]
00f2 b4b4 8115 | | .XXX[0x20]
00f4 cd8d 7d15 | } |
00f6 cd8c bd15 | |
00f8 cd8d 7d0d | } |
00fa 7d31 9599 |}1 |
00fc d17d 09c9 | } |
00fe 858d ad95 | |
0100 d081 a5cc | |
0102 81b9 bdd0 | |
0104 8191 9599 | |
0106 a5b9 9590 | |
0108 ec81 0d7d | }|
010a 3195 99d1 |1 |
010c 7d09 c985 |} |
010e 8dad 95d0 | |
0110 81a5 cc28 | (|
0112 8080 8080 | | .BLANK 8080[0x4]
0116 b4b4 8081 | | .XXX[0xea]
0118 15cd 8cb5 | |
011a 15cd 8cb5 | |
011c 15cd 8cb8 | |
011e 2828 8080 |(( |
0120 8080 8080 | |
0122 8081 15cd | |
0124 8d7d 4dc1 | }M |
0126 858d 94b0 | |
0128 8080 2880 | ( |
012a 8080 8080 | |
012c 8080 8115 | |
012e cd8d 7d15 | } |
0130 e18d b185 | |
0132 b4b0 8080 | |
0134 2880 8080 |( |
0136 8080 8080 | |
0138 8115 cd8d | |
013a 7d45 d5bd |}E |
013c d185 d1a5 | |
013e bdb8 b080 | |
0140 8028 8080 | ( |
0142 8080 8080 | |
0144 8081 15cd | |
0146 8d7d 4da1 | }M |
0148 85c9 c0b0 | |
014a 8080 2880 | ( |
014c 8080 8080 | |
014e 8080 8115 | |
0150 cd8d 7d11 | } |
0152 bdb1 b185 | |
0154 c8b0 8080 | |
0156 2880 8080 |( |
0158 8080 8080 | |
015a 8115 cd8d | |
015c 7d41 95c9 |}A |
015e 8d95 b9d0 | |
0160 b080 8028 | (|
0162 8080 8080 | |
0164 8080 8081 | |
0166 15cd 8d7d | }|
0168 05b5 c195 | |
016a c9cd 85b9 | |
016c 90b0 8080 | |
016e 2880 8080 |( |
0170 8080 8080 | |
0172 8115 cd8d | |
0174 7d51 a58d |}Q |
0176 acb0 8080 | |
0178 2880 8080 |( |
017a 8080 8080 | |
017c 8115 cd8d | |
017e 7d31 9599 |}1 |
0180 d17d 4185 | }A |
0182 c995 b8b0 | |
0184 8080 2880 | ( |
0186 8080 8080 | |
0188 8080 8115 | |
018a cd8d 7d49 | }I|
018c a59d a1d1 | |
018e 7d41 85c9 |}A |
0190 95b8 b080 | |
0192 8028 8080 | ( |
0194 8080 8080 | |
0196 8081 15cd | |
0198 8d7d 4dd1 | }M |
019a 85c8 b080 | |
019c 8028 8080 | ( |
019e 8080 8080 | |
01a0 8081 15cd | |
01a2 8d7d 41b1 | }A |
01a4 d5cc b080 | |
01a6 8028 8080 | ( |
01a8 8080 8080 | |
01aa 8081 15cd | |
01ac 8d7d 0dbd | } |
01ae b5b5 84b0 | |
01b0 8080 2880 | ( |
01b2 8080 8080 | |
01b4 8080 8115 | |
01b6 cd8d 7d35 | }5|
01b8 a5b9 d5cc | |
01ba b080 8028 | (|
01bc 8080 8080 | |
01be 8080 8081 | |
01c0 15cd 8d7d | }|
01c2 4195 c9a5 |A |
01c4 bd90 b080 | |
01c6 8028 8080 | ( |
01c8 8080 8080 | |
01ca 8081 15cd | |
01cc 8d7d 4db1 | }M |
01ce 85cd a0b0 | |
01d0 2828 8080 |(( |
01d2 8080 8080 | |
01d4 8081 15cd | |
01d6 8d7c c0b0 | | |
01d8 8115 cd8d | |
01da 7cc4 b081 || |
01dc 15cd 8d7c | ||
01de c8b0 8115 | |
01e0 cd8d 7ccc | | |
01e2 b081 15cd | |
01e4 8d7c d0b0 | | |
01e6 8115 cd8d | |
01e8 7cd4 b081 || |
01ea 15cd 8d7c | ||
01ec d8b0 8115 | |
01ee cd8d 7cdc | | |
01f0 b081 15cd | |
01f2 8d7c e0b0 | | |
01f4 8115 cd8d | |
01f6 7ce4 b028 || (|
01f8 2880 8080 |( |
01fa 8080 8080 | |
01fc 8115 cd8d | |
01fe 7d0d bdb1 |} |