|
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_0d2ce3
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦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 001b | | .CONST 0x001b ; Address of begin 0019 003a | : | .CONST 0x003a ; Address of exception handler 001a 0001 | | .CONST 0x0001 ; Number of locals 001b BODY_0018: 001b INIT_0018: 001b 00db | | Load_Top At_Offset_3 001c 8001 | | Call 0x0,0x1 001d 681a |h | Jump_Zero 0x38 001e e5fd | | Load 0x2,-0x3 001f e5fe | | Load 0x2,-0x2 0020 0092 003d | =| Action Push_String_Extended,0x3d ; "'Spec" 0022 01cc | | Execute Vector,Catenate 0023 e5ff | | Load 0x2,-0x1 0024 0092 003d | =| Action Push_String_Extended,0x3d ; "'Spec" 0026 01cc | | Execute Vector,Catenate 0027 e002 | | Load 0x0,0x2 0028 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0029 680c |h | Jump_Zero 0x36 002a e5fd | | Load 0x2,-0x3 002b e5fe | | Load 0x2,-0x2 002c 0092 003e | >| Action Push_String_Extended,0x3e ; "'Body" 002e 01cc | | Execute Vector,Catenate 002f e5ff | | Load 0x2,-0x1 0030 0092 003e | >| Action Push_String_Extended,0x3e ; "'Body" 0032 01cc | | Execute Vector,Catenate 0033 e002 | | Load 0x0,0x2 0034 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0035 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0036 4800 |H | Short_Literal 0x0 0037 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0038 4800 |H | Short_Literal 0x0 0039 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 003a TRAP_0018: 003a 0007 | | Action Break_Optional 003b 4800 |H | Short_Literal 0x0 003c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 003d ; -------------------------------------------------------------------------------------- 003d ; STRING TABLE 003d ; -------------------------------------------------------------------------------------- 003d 0006 | | .STRTAB 0x0006->0x0040 ; "'Spec" 003e 0009 | | .STRTAB 0x0009->0x0042 ; "'Body" 003f 000c | | .STREND 0x000c->0x0045 0040 2753 7065 |'Spe| .STRTAB_STRINGS 0045 0000 0000 | | .XXX[0x3] 0047 0000 | | 0048 ; -------------------------------------------------------------------------------------- 0048 ; Debug Table 0048 ; -------------------------------------------------------------------------------------- 0048 0004 0000 | | .DEBUG4 0x0004,0x0000,0x7775,0x0000,0x0001,0x0000 004e 14c0 c0c0 | | .XXX[0x1b2] 0050 c0c0 8118 | | 0052 c0c0 c0c0 | | 0054 c028 80dc | ( | 0056 e0c0 c0c0 | | 0058 c080 dd18 | | 005a e0c0 c0c0 | | 005c 80c5 1918 | | 005e c0c0 c080 | | 0060 c0dd 190c | | 0062 c0c0 80c0 | | 0064 c119 14c0 | | 0066 c080 c0c0 | | 0068 c118 c0c0 | | 006a 80c0 c0c0 | | 006c dce0 c080 | | 006e c0c0 c0cc | | 0070 e0c0 80c0 | | 0072 c0c0 cce0 | | 0074 c028 8114 | ( | 0076 c0c0 cce0 | | 0078 c081 14c0 | | 007a c0cc e0c0 | | 007c 8118 c0c0 | | 007e dce0 c081 | | 0080 18e0 c118 | | 0082 c0c0 8119 | | 0084 1919 14c0 | | 0086 c081 1919 | | 0088 190c c0c0 | | 008a 810c dd18 | | 008c c0c0 c0f8 | | 008e 2941 6131 |)Aa1| 0090 0c81 4940 | I@| 0092 28e0 d8c4 |( | 0094 80c8 c8c0 | | 0096 e081 6164 | ad| 0098 8118 d8d4 | | 009a a14c a54c | L L| 009c 2961 4080 |)a@ | 009e bd18 d8d4 | | 00a0 80d8 e480 | | 00a2 c8c4 80c4 | | 00a4 80c0 80c8 | | 00a6 c080 c8d4 | | 00a8 80c8 d480 | | 00aa c8d0 80c0 | | 00ac 28f0 dd19 |( | 00ae 1919 0cc0 | | 00b0 8119 1919 | | 00b2 190c c080 | | 00b4 dd19 1919 | | 00b6 0cc0 80c5 | | 00b8 0cc0 c50c | | 00ba c080 c50c | | 00bc c0c5 0cc0 | | 00be 80c5 0cc0 | | 00c0 c50c c080 | | 00c2 c50c c0c5 | | 00c4 0cc0 80c5 | | 00c6 0cc0 c0c0 | | 00c8 c080 c50c | | 00ca c0c0 c0c0 | | 00cc 2880 c50c |( | 00ce c50c c0c0 | | 00d0 80c5 0cc5 | | 00d2 0cc0 c080 | | 00d4 c519 190c | | 00d6 c0c0 80c5 | | 00d8 1919 0cc0 | | 00da c080 c519 | | 00dc 190c c0c0 | | 00de 80c5 0cc5 | | 00e0 0cc0 c080 | | 00e2 c50c c50c | | 00e4 c0c0 80c5 | | 00e6 0cc0 c0c0 | | 00e8 c080 c50c | | 00ea c0c1 14c0 | | 00ec 2880 c50c |( | 00ee c0c1 14c0 | | 00f0 80c5 0cc0 | | 00f2 c114 c080 | | 00f4 c50c c0c1 | | 00f6 14c0 80c5 | | 00f8 0cc0 c114 | | 00fa c080 dd19 | | 00fc 1919 14c0 | | 00fe 8119 1919 | | 0100 1914 c080 | | 0102 dd19 1919 | | 0104 14c0 f829 | )| 0106 4161 310c |Aa1 | 0108 8149 4028 | I@(| 010a e0dc d880 | | 010c c8c8 c0e0 | | 010e 8161 6481 | ad | 0110 18d8 d4a1 | | 0112 14a5 4c80 | L | 0114 b4c4 c081 | | 0116 e480 e481 | | 0118 e081 18d0 | | 011a e0a1 60a5 | ` | 011c 4c80 c8cc |L | 011e d0c8 8164 | d| 0120 80cc e0cc | | 0122 8160 8118 | ` | 0124 c8a1 55cd | U | 0126 859d 94e8 | | 0128 a54c 80c8 | L | 012a d0e0 d481 | | 012c 6480 28b4 |d ( | 012e d8c4 81e0 | | 0130 8118 d0e0 | | 0132 a168 a54c | h L| 0134 80c8 c881 | | 0136 e0a0 e8f4 | | 0138 a54c 80c8 | L | 013a c481 e0a1 | | 013c 313d 1d70 |1= p| 013e a160 b0a5 | ` | 0140 4c80 c8c4 |L | 0142 81e0 a0c4 | | 0144 c0b8 c170 | p| 0146 a4ec a54c | L| 0148 80d8 d081 | | 014a e0a0 b4b4 | | 014c a54c 2961 | L)a| 014e 4080 bd18 |@ | 0150 d0e0 80e4 | | 0152 e080 c8c8 | | 0154 80c0 80c0 | | 0156 80c8 c080 | | 0158 c8d4 80c8 | | 015a d480 c8d0 | | 015c 80c0 28f0 | ( | 015e dd14 c0c0 | | 0160 c0c0 8119 | | 0162 14c0 c0c0 | | 0164 c080 dd14 | | 0166 c0c0 c0c0 | | 0168 80c1 14c0 | | 016a c0c0 c080 | | 016c c114 c0c0 | | 016e c0c0 80c1 | | 0170 14c0 c0c0 | | 0172 c080 c114 | | 0174 c0c0 c0c0 | | 0176 80c1 14cd | | 0178 14c0 c080 | | 017a c115 1918 | | 017c e0c0 2880 | ( | 017e c119 1919 | | 0180 0cc0 80c1 | | 0182 18e0 cd14 | | 0184 c080 c118 | | 0186 c0c5 14c0 | | 0188 80c1 14c0 | | 018a c118 c080 | | 018c c114 c0c1 | | 018e 18c0 80c1 | | 0190 14c0 c0dc | | 0192 c080 c114 | | 0194 c0c0 dcc0 | | 0196 80c1 14c0 | | 0198 c0dc c080 | | 019a c114 c0c0 | | 019c dcc0 2880 | ( | 019e c114 c0c1 | | 01a0 18c0 80c1 | | 01a2 18c0 c114 | | 01a4 c080 c118 | | 01a6 c0c5 14c0 | | 01a8 80c1 18e0 | | 01aa cd0c c080 | | 01ac c119 1919 | | 01ae 0cc0 80c1 | | 01b0 1519 18c0 | | 01b2 c080 c0d8 | | 01b4 cd0c c0c0 | | 01b6 f829 4161 | )Aa| 01b8 310c 8149 |1 I| 01ba 4028 e4e0 |@( | 01bc e480 c8d0 | | 01be e0d4 8161 | a| 01c0 6481 18d0 |d | 01c2 e0a1 8985 | | 01c4 cd94 a54c | L| 01c6 80c8 c481 | | 01c8 e0a0 c4c0 | | 01ca a54c 80c8 | L | 01cc c481 e0a1 | | 01ce b1bd 9d85 | | 01d0 c9a5 d1a1 | | 01d2 b4a5 4c80 | L | 01d4 d4c0 81e4 | | 01d6 80d0 d8d8 | | 01d8 8160 a168 | ` h| 01da a54c 8028 | L (| 01dc c8c8 81e0 | | 01de a0e8 f4a5 | | 01e0 4c80 c8c4 |L | 01e2 81e0 a131 | 1| 01e4 3d1d 70a1 |= p | 01e6 60b0 a54c |` L| 01e8 80c8 c481 | | 01ea e0a0 c8b8 | | 01ec c170 a4ec | p | 01ee a54c 80e4 | L | 01f0 c8d0 8160 | `| 01f2 a0b4 b4a5 | | 01f4 4c80 c8c4 |L | 01f6 81e0 a189 | | 01f8 85cd 94a5 | | 01fa 4c80 c8c4 |L | 01fc 81e0 28a0 | ( | 01fe c8a5 4c80 | L |