|
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 99bd 8dd5 | | .XXX[0x1b2]
0050 cca4 2880 | ( |
0052 8080 815d | ]|
0054 a591 9d95 | |
0056 d080 81dd | |
0058 a591 9d95 | |
005a d0ec 2880 | ( |
005c 8080 815d | ]|
005e a591 9d95 | |
0060 d080 81ad | |
0062 95e5 89bd | |
0064 85c9 917d | }|
0066 99bd 8dd5 | |
0068 ccec 29ec | ) |
006a 2880 8080 |( |
006c 81c9 959d | |
006e a5cd d195 | |
0070 c881 1dc9 | |
0072 8589 4995 | I |
0074 8c80 a99d | |
0076 b0b0 80a9 | |
0078 c1c9 95d8 | |
007a ec28 8080 | ( |
007c 8081 1dc9 | |
007e 8589 4995 | I |
0080 8ca8 819d | |
0082 94ec 2880 | ( |
0084 8080 815d | ]|
0086 a591 9d95 | |
0088 d081 dcec | |
008a 2828 8080 |(( |
008c 8081 99bd | |
008e c880 a19d | |
0090 b080 f481 | |
0092 99bd 8dd5 | |
0094 cd31 a5cd | 1 |
0096 d0ec 819d | |
0098 b080 84f4 | |
009a 8139 5531 | 9U1|
009c 30ec 819d |0 |
009e b080 f481 | |
00a0 9db0 b4f9 | |
00a2 b995 e1d0 | |
00a4 a481 ec28 | (|
00a6 25a5 9880 |% |
00a8 a19d b0b4 | |
00aa f9dd a591 | |
00ac 9d95 d080 | |
00ae f4f4 81dd | |
00b0 a591 9d95 | |
00b2 d0a4 81ec | |
00b4 2824 8080 |($ |
00b6 8081 a598 | |
00b8 80a1 9db0 | |
00ba b4f9 ad95 | |
00bc e589 bd85 | |
00be c991 7d99 | } |
00c0 bd8d d5cc | |
00c2 80f4 f481 | |
00c4 ad95 e589 | |
00c6 bd85 c991 | |
00c8 7d99 bd8d |} |
00ca d5cc a481 | |
00cc c995 d1d5 | |
00ce c9b8 8119 | |
00d0 85b1 cd94 | |
00d2 ec28 2480 | ($ |
00d4 8080 814d | M|
00d6 95b9 9119 | |
00d8 bd8d d5cd | |
00da 39bd d1a5 |9 |
00dc 99e4 a19d | |
00de b0b4 f9ad | |
00e0 95e5 89bd | |
00e2 85c9 917d | }|
00e4 99bd 8dd5 | |
00e6 ccb0 8119 | |
00e8 bd8d d5cd | |
00ea 3dd5 d0a4 |= |
00ec ec28 2480 | ($ |
00ee 8080 819d | |
00f0 b0b4 f9ad | |
00f2 95e5 89bd | |
00f4 85c9 917d | }|
00f6 99bd 8dd5 | |
00f8 cc80 f481 | |
00fa ad95 e589 | |
00fc bd85 c991 | |
00fe 7d99 bd8d |} |
0100 d5cc ec28 | (|
0102 2480 8080 |$ |
0104 8199 bd8d | |
0106 d5cd 51c9 | Q |
0108 858d 951d | |
010a bdbd 9080 | |
010c f481 1985 | |
010e b1cd 94ec | |
0110 80bc a881 | |
0112 a5b9 d985 | |
0114 b1a5 9185 | |
0116 d194 81d1 | |
0118 a194 818d | |
011a 858d a194 | |
011c 80a8 bc28 | (|
011e 2480 8080 |$ |
0120 81c9 95d1 | |
0122 d5c9 b881 | |
0124 51c9 d594 |Q |
0126 ec28 25f4 | (% |
0128 2880 8080 |( |
012a 81f4 2880 | ( |
012c 8080 8199 | |
012e bd8d d5cd | |
0130 51c9 858d |Q |
0132 951d bdbd | |
0134 9080 f481 | |
0136 1985 b1cd | |
0138 94ec 24bc | $ |
013a a881 a5b9 | |
013c d985 b1a5 | |
013e 9185 d194 | |
0140 81d1 a194 | |
0142 818d 858d | |
0144 a194 80a8 | |
0146 bc28 2880 | (( |
0148 8080 80bc | |
014a a881 0dc9 | |
014c 9585 d194 | |
014e 8184 81b9 | |
0150 95dc 81c9 | |
0152 958d bdc9 | |
0154 9081 85b9 | |
0156 9081 a5b9 | |
0158 cd95 c9d0 | |
015a 81a5 d081 | |
015c 8995 99bd | |
015e c994 81d1 | |
0160 a194 8199 | |
0162 a5c9 cdd0 | |
0164 8195 b9d1 | |
0166 c9e4 81dd | |
0168 a5d1 a081 | |
016a 8481 dda5 | |
016c 919d 95d0 | |
016e 2880 8080 |( |
0170 8080 8081 | |
0172 d1a1 85d0 | |
0174 81a5 cc81 | |
0176 8481 8da1 | |
0178 a5b1 9081 | |
017a bd98 81dd | |
017c a591 9d95 | |
017e d0b8 8081 | |
0180 51a1 a5cc |Q |
0182 8195 b999 | |
0184 bdc9 8d95 | |
0186 cc81 d1a1 | |
0188 9481 a5b9 | |
018a d985 c9a5 | |
018c 85b9 d081 | |
018e d1a1 85d0 | |
0190 81a5 9881 | |
0192 0481 a5cc | |
0194 8185 b828 | (|
0196 8080 8080 | |
0198 8080 8185 | |
019a b98d 95cd | |
019c d1bd c881 | |
019e bd98 8108 | |
01a0 b081 0481 | |
01a2 dda5 b1b0 | |
01a4 81c1 c995 | |
01a6 8d95 9194 | |
01a8 8108 81bd | |
01aa b881 d1a1 | |
01ac 9481 b1a5 | |
01ae cdd0 b880 | |
01b0 a8bc 2828 | ((|
01b2 8080 8081 | |
01b4 9d94 80f4 | |
01b6 8139 95dd | 9 |
01b8 1dc9 8589 | |
01ba 4995 8ca1 |I |
01bc dda5 919d | |
01be 95d0 b081 | |
01c0 1985 b1cd | |
01c2 94b0 8119 | |
01c4 85b1 cd94 | |
01c6 b081 ad95 | |
01c8 e589 bd85 | |
01ca c991 7d99 | } |
01cc bd8d d5cc | |
01ce a4ec 2828 | ((|
01d0 8080 8081 | |
01d2 99bd c880 | |
01d4 a1c1 c995 | |
01d6 d880 f481 | |
01d8 3955 3130 |9U10|
01da b081 9db0 | |
01dc 80f4 8199 | |
01de bd8d d5cd | |
01e0 31a5 cdd0 |1 |
01e2 ec81 9db0 | |
01e4 8084 f481 | |
01e6 3955 3130 |9U10|
01e8 ec81 c1c9 | |
01ea 95d8 80f4 | |
01ec 819d b0b0 | |
01ee 819d b080 | |
01f0 f481 9db0 | |
01f2 b4f9 b995 | |
01f4 e1d0 a481 | |
01f6 ec28 2599 | (% |
01f8 bdc8 80a1 | |
01fa dc80 f481 | |
01fc 9db0 b4f9 | |
01fe dda5 919d | |