|
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_0220f2
└─⟦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 0023 | # | .CONST 0x0023 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0003 | | .CONST 0x0003 ; Number of locals
001b INIT_0018:
001b e001 | | Load 0x0,0x1
001c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
001d 02c7 | | Declare_Variable Any
001e 00d8 | | Load_Top At_Offset_0
001f 1c00 | | Execute_Immediate Run_Utility,0x0
0020 e001 | | Load 0x0,0x1
0021 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0022 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0023 BODY_0018:
0023 e001 | | Load 0x0,0x1
0024 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0025 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0026 00da | | Load_Top At_Offset_2
0027 0120 | | Execute Any,Is_Value
0028 6803 |h | Jump_Zero 0x2c
0029 e001 | | Load 0x0,0x1
002a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
002b 7801 |x | Jump 0x2d
002c 00da | | Load_Top At_Offset_2
002d 6012 |` | Indirect_Literal Discrete,0x40,{0x00000000, 0x00004000}
002e e002 | | Load 0x0,0x2
002f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0030 e003 | | Load 0x0,0x3
0031 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0032 e001 | | Load 0x0,0x1
0033 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0034 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0035 e5ff | | Load 0x2,-0x1
0036 e001 | | Load 0x0,0x1
0037 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0038 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0039 c402 | | Store 0x2,0x2
003a 0059 | Y | Store_Top Discrete,At_Offset_1
003b 00d8 | | Load_Top At_Offset_0
003c 0f00 | | Execute_Immediate Equal,0x0
003d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
003e 0000 0000 | | .XXX[0x2]
0040 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0044 0000 0000 | | .BLANK 0000[0x4]
0048 ; --------------------------------------------------------------------------------------
0048 ; Debug Table
0048 ; --------------------------------------------------------------------------------------
0048 0004 000d | | .DEBUG4 0x0004,0x000d,0x7940,0x0000,0x0001,0x0000
004e a5b9 9d7d | }| .XXX[0x7]
0050 41c9 bd99 |A |
0052 a5b1 94a4 | |
0054 ec28 | ( |
0055 8080 8080 | | .BLANK 8080[0x5]
005a 8081 c985 | | .XXX[0xb]
005c a5cd 94ec | |
005e 2880 8080 |( |
0060 8080 8080 | |
0062 8195 b1cd | |
0064 9428 | ( |
0065 8080 8080 | | .BLANK 8080[0x5]
006a 8081 41c9 | A | .XXX[0x3c]
006c bd99 a5b1 | |
006e 94b9 4d95 | M |
0070 d080 a14d | M|
0072 d185 c9d1 | |
0074 a5b9 9d7d | }|
0076 41c9 bd99 |A |
0078 a5b1 94a4 | |
007a ec28 8080 | ( |
007c 8080 8080 | |
007e 8081 95b9 | |
0080 9081 a598 | |
0082 ec29 95b9 | ) |
0084 9081 4d85 | M |
0086 d995 7d05 | } |
0088 8d8d 95cd | |
008a cd7d 31a5 | }1 |
008c cdd0 edc1 | |
008e c9bd 8d95 | |
0090 91d5 c994 | |
0092 814d 95d1 | M |
0094 7d05 8d8d |} |
0096 95cd cd7d | }|
0098 31a5 cdd0 |1 |
009a 80a1 55cd | U |
009c a5b9 9d7d | }|
009e 19a5 b194 | |
00a0 80e8 814d | M|
00a2 d1c9 a5b9 | |
00a4 9cec 2880 | ( |
00a6 8080 8080 | | .BLANK 8080[0xc]
00b2 8081 4995 | I | .XXX[0x6f]
00b4 cdc1 bdb9 | |
00b6 cd94 8080 | |
00b8 80e8 814d | M|
00ba d1c9 a5b9 | |
00bc 9c80 e8f4 | |
00be 8088 f141 | A|
00c0 493d 1925 |I= %|
00c2 3114 f888 |1 |
00c4 a4ed dda5 | |
00c6 d1a0 8125 | %|
00c8 bcec 29dd | ) |
00ca a5d1 a081 | |
00cc 31bd 9cec |1 |
00ce 29dd a5d1 |) |
00d0 a081 41c9 | A |
00d2 bd99 a5b1 | |
00d4 94ec 29dd | ) |
00d6 a5d1 a081 | |
00d8 11a5 c995 | |
00da 8dd1 bdc9 | |
00dc e4ec 29dd | ) |
00de a5d1 a081 | |
00e0 1195 89d5 | |
00e2 9d7d 51bd | }Q |
00e4 bdb1 ccec | |
00e6 29dd a5d1 |) |
00e8 a081 4da5 | M |
00ea b5c1 b195 | |
00ec 7d4d d185 |}M |
00ee d1d5 ccec | |
00f0 29dd a5d1 |) |
00f2 a081 4dd1 | M |
00f4 c9a5 b99d | |
00f6 7d55 d1a5 |}U |
00f8 b1a5 d1a5 | |
00fa 95cc ec29 | )|
00fc dda5 d1a0 | |
00fe 8105 8d8d | |
0100 95cd cd7d | }|
0102 31a5 cdd1 |1 |
0104 7d51 bdbd |}Q |
0106 b1cc ec28 | (|
0108 29c1 c9bd |) |
010a 8d95 91d5 | |
010c c994 814d | M|
010e 95d1 7d05 | } |
0110 8d8d 95cd | |
0112 cd7d 31a5 | }1 |
0114 cdd0 80a1 | |
0116 55cd a5b9 |U |
0118 9d7d 19a5 | } |
011a b194 80e8 | |
011c 814d d1c9 | M |
011e a5b9 9cec | |
0120 2880 |( |
0121 8080 8080 | | .BLANK 8080[0xc]
012d 8081 4995 | I | .XXX[0xbc]
012f cdc1 bdb9 | |
0131 cd94 8080 | |
0133 80e8 814d | M|
0135 d1c9 a5b9 | |
0137 9c80 e8f4 | |
0139 8088 f141 | A|
013b 493d 1925 |I= %|
013d 3114 f888 |1 |
013f a481 a5cc | |
0141 2880 8080 |( |
0143 80b4 b481 | |
0145 b1a5 b995 | |
0147 cc81 a5b8 | |
0149 81d1 a194 | |
014b 8199 a5b1 | |
014d 9481 a185 | |
014f d994 81d1 | |
0151 a194 8199 | |
0153 bdc9 b585 | |
0155 d080 f1d5 | |
0157 b9a5 d081 | |
0159 b985 b594 | |
015b f880 f4f8 | |
015d 80f1 858d | |
015f b0f8 2828 | ((|
0161 8080 8081 | |
0163 c185 8dad | |
0165 859d 9481 | |
0167 4dd1 d481 |M |
0169 c995 b985 | |
016b b595 cc81 | |
016d 4dd1 c9a5 |M |
016f b99d 7d55 | }U|
0171 d1a5 b1a5 | |
0173 d1a5 95cc | |
0175 ec28 2880 | (( |
0177 8080 8105 | |
0179 8db1 cc80 | |
017b e881 25bc | % |
017d b919 a5b1 | |
017f 957d 51e5 | }Q |
0181 c194 ec28 | (|
0183 2880 8080 |( |
0185 814d d185 | M |
0187 c9d1 a5b9 | |
0189 9d7d 41c9 | }A |
018b bd99 a5b1 | |
018d 9480 e881 | |
018f 41c9 bd99 |A |
0191 a5b1 94b9 | |
0193 4995 cdc1 |I |
0195 bdb9 cd95 | |
0197 7d41 c9bd |}A |
0199 99a5 b194 | |
019b 80e8 f481 | |
019d 41c9 bd99 |A |
019f a5b1 94b9 | |
01a1 1d95 d0ec | |
01a3 2828 8080 |(( |
01a5 8081 c1c9 | |
01a7 bd8d 9591 | |
01a9 d5c9 9481 | |
01ab 4d95 d17d |M }|
01ad 058d b080 | |
01af a13d b97d | = }|
01b1 55b9 a5d0 |U |
01b3 80e8 814d | M|
01b5 d1c9 a5b9 | |
01b7 9cec 8151 | Q|
01b9 bd7d 058d | } |
01bb b080 e881 | |
01bd 4dd1 c9a5 |M |
01bf b99c a481 | |
01c1 a5cc 2880 | ( |
01c3 8080 8080 | |
01c5 8080 810c | |
01c7 80e8 814d | M|
01c9 a5b5 c1b1 | |
01cb 957d 4dd1 | }M |
01cd 85d1 d5cc | |
01cf b90d bdb9 | |
01d1 91a5 d1a5 | |
01d3 bdb8 ec28 | (|
01d5 8080 8081 | |
01d7 8995 9da5 | |
01d9 b828 8080 | ( |
01db 8080 8080 | |
01dd 8081 058d | |
01df 8d95 cdcd | |
01e1 7d31 a5cd |}1 |
01e3 d17d 51bd | }Q |
01e5 bdb1 ccb9 | |
01e7 4d95 d028 |M (|
01e9 8080 8080 | | .BLANK 8080[0x5]
01ee 80a1 19bd | | .XXX[0x12]
01f0 c97d 3d89 | }= |
01f2 a995 8dd0 | |
01f4 80f4 f881 | |
01f6 3db9 7d55 |= }U|
01f8 b9a5 d0b0 | |
01fa 8151 bd7d | Q }|
01fc 31a5 cdd0 |1 |
01fe 80f4 f881 | |