|
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, 5900_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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 00d8 | | .CONST 0x00d8 ; 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 0021 | ! | .CONST 0x0021 ; Address of begin 0019 0044 | D | .CONST 0x0044 ; Address of exception handler 001a 0004 | | .CONST 0x0004 ; Number of locals 001b INIT_0018: 001b 0092 0047 | G| Action Push_String_Extended,0x47 ; "$$.Lists.Install_Subsystems.Freeze_For_Subsystems" 001d 0092 0048 | H| Action Push_String_Extended,0x48 ; "$$.Lists.Install_Subsystems.Demote_For_Subsystems" 001f 0092 0049 | I| Action Push_String_Extended,0x49 ; "$$.Lists.Install_Subsystems.Promote_For_Subsystems" 0021 BODY_0018: 0021 0092 004a | J| Action Push_String_Extended,0x4a ; "$$.Lists.Install_Subsystems" 0023 8002 | | Call 0x0,0x2 0024 700a |p | Jump_Nonzero 0x2f 0025 0092 004b | K| Action Push_String_Extended,0x4b ; "<ERRORS>" 0027 0092 004c | L| Action Push_String_Extended,0x4c ; "!Model.R1000" 0029 4800 |H | Short_Literal 0x0 002a 4801 |H | Short_Literal 0x1 002b 0092 004a | J| Action Push_String_Extended,0x4a ; "$$.Lists.Install_Subsystems" 002d e003 | | Load 0x0,0x3 002e 1817 | | Execute Package,Field_Execute,Field_Number 0x17 002f e004 | | Load 0x0,0x4 0030 180e | | Execute Package,Field_Execute,Field_Number 0xe 0031 4802 |H | Short_Literal 0x2 0032 0092 004d | M| Action Push_String_Extended,0x4d ; "Computing demotion and repromotion closure of old and new activities" 0034 e005 | | Load 0x0,0x5 0035 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0036 00da | | Load_Top At_Offset_2 0037 00d9 | | Load_Top At_Offset_1 0038 00db | | Load_Top At_Offset_3 0039 e5ff | | Load 0x2,-0x1 003a e5fe | | Load 0x2,-0x2 003b 8006 | | Call 0x0,0x6 003c 00d8 | | Load_Top At_Offset_0 003d 00da | | Load_Top At_Offset_2 003e e402 | | Load 0x2,0x2 003f e5fd | | Load 0x2,-0x3 0040 e5fe | | Load 0x2,-0x2 0041 e5ff | | Load 0x2,-0x1 0042 8007 | | Call 0x0,0x7 0043 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0044 TRAP_0018: 0044 0007 | | Action Break_Optional 0045 00d8 | | Load_Top At_Offset_0 0046 0101 | | Execute Exception,Reraise 0047 ; -------------------------------------------------------------------------------------- 0047 ; STRING TABLE 0047 ; -------------------------------------------------------------------------------------- 0047 0010 | | .STRTAB 0x0010->0x004f ; "$$.Lists.Install_Subsystems.Freeze_For_Subsystems" 0048 003f | ? | .STRTAB 0x003f->0x0067 ; "$$.Lists.Install_Subsystems.Demote_For_Subsystems" 0049 006e | n | .STRTAB 0x006e->0x0080 ; "$$.Lists.Install_Subsystems.Promote_For_Subsystems" 004a 009e | | .STRTAB 0x009e->0x0099 ; "$$.Lists.Install_Subsystems" 004b 00b7 | | .STRTAB 0x00b7->0x00a6 ; "<ERRORS>" 004c 00bd | | .STRTAB 0x00bd->0x00aa ; "!Model.R1000" 004d 00c7 | | .STRTAB 0x00c7->0x00b0 ; "Computing demotion and repromotion closure of old and new activities" 004e 0109 | | .STREND 0x0109->0x00d2 004f 2424 2e4c |$$.L| .STRTAB_STRINGS 00d3 0000 0000 | | .BLANK 0000[0x5] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; Debug Table 00d8 ; -------------------------------------------------------------------------------------- 00d8 0004 0002 | | .DEBUG4 0x0004,0x0002,0x1b80,0x0000,0x0001,0x0000 00de 81a5 98ec | | .XXX[0x122] 00e0 2828 8080 |(( | 00e2 8148 80e8 | H | 00e4 f481 6481 | d | 00e6 c995 b481 | | 00e8 55cd 95c9 |U | 00ea 7d41 95c9 |}A | 00ec a5bd 90ec | | 00ee 2828 8080 |(( | 00f0 812c 8080 | , | 00f2 8080 8080 | | 00f4 e8f4 8149 | I| 00f6 bdd5 b990 | | 00f8 80a0 d0b8 | | 00fa c080 a881 | | 00fc 4880 bc81 |H | 00fe 55cd 95c9 |U | 0100 7d41 95c9 |}A | 0102 a5bd 90a4 | | 0104 ec28 8080 | ( | 0106 8125 7d19 | %} | 0108 b185 9c80 | | 010a e8f4 8145 | E| 010c d585 91c9 | | 010e 85b9 d17d | }| 0110 19b1 859c | | 0112 80a1 25b9 | % | 0114 d195 9d95 | | 0116 c880 a12c | ,| 0118 a481 b5bd | | 011a 9080 d0a4 | | 011c ec28 2880 | (( | 011e 8081 4d8d | M | 0120 7d19 b185 |} | 0122 9c80 e8f4 | | 0124 8125 7d19 | %} | 0126 b185 9c81 | | 0128 b5bd 9080 | | 012a c8ec 2880 | ( | 012c 8081 41b5 | A | 012e 7d19 b185 |} | 0130 9c80 e8f4 | | 0132 80a1 257d | %}| 0134 19b1 859c | | 0136 80b4 814d | M| 0138 8d7d 19b1 | } | 013a 859c a480 | | 013c bc80 c8ec | | 013e 2828 8080 |(( | 0140 8141 7d31 | A}1| 0142 9585 9080 | | 0144 80e8 f481 | | 0146 3195 8591 |1 | 0148 a5b9 9d7d | }| 014a 4185 c9d0 |A | 014c 80a1 55cd | U | 014e 95c9 7d41 | }A| 0150 95c9 a5bd | | 0152 90b0 80d0 | | 0154 a4ec 2880 | ( | 0156 8081 417d | A}| 0158 51c9 85a5 |Q | 015a b080 e8f4 | | 015c 8155 cd95 | U | 015e c97d 4195 | }A | 0160 c9a5 bd90 | | 0162 80b4 8141 | A| 0164 7d31 9585 |}1 | 0166 90ec 2828 | ((| 0168 8080 812c | ,| 016a 80e8 f481 | | 016c 2c80 a880 |, | 016e c0b8 c8d4 | | 0170 ec28 2880 | (( | 0172 8081 4880 | H | 0174 e8f4 80a1 | | 0176 4880 b481 |H | 0178 2c80 a881 |, | 017a 417d 3195 |A}1 | 017c 8590 a480 | | 017e b481 2c80 | , | 0180 a881 417d | A}| 0182 51c9 85a5 |Q | 0184 b0ec 2880 | ( | 0186 8081 4880 | H | 0188 e8f4 80a1 | | 018a 4880 bc81 |H | 018c 55cd 95c9 |U | 018e 7d41 95c9 |}A | 0190 a5bd 90a4 | | 0192 80a8 8151 | Q| 0194 ddbd 7d41 | }A| 0196 a4ec 2828 | ((| 0198 8080 81a5 | | 019a 9880 a14d | M| 019c 8d7d 19b1 | } | 019e 859c 80f4 | | 01a0 80c0 a481 | | 01a2 d1a1 95b8 | | 01a4 2880 8080 |( | 01a6 8080 8168 | h| 01a8 80e8 f481 | | 01aa 2d99 7d4d |- }M| 01ac a5b8 80a1 | | 01ae 48b0 8169 |H i| 01b0 95c9 bca4 | | 01b2 ec28 8080 | ( | 01b4 8195 b1cd | | 01b6 9428 8080 | ( | 01b8 8080 8081 | | 01ba 6880 e8f4 |h | 01bc 812d 997d | - }| 01be 0dbd cc80 | | 01c0 a148 b081 | H | 01c2 6995 c9bc |i | 01c4 a4ec 2880 | ( | 01c6 8081 95b9 | | 01c8 9081 a598 | | 01ca ec28 2880 | (( | 01cc 8081 a598 | | 01ce 80a1 41b5 | A | 01d0 7d19 b185 |} | 01d2 9c80 f480 | | 01d4 c4a4 81d1 | | 01d6 a195 b828 | (| 01d8 8080 8080 | | 01da 8081 6880 | h | 01dc e8f4 80b5 | | 01de 68ec 2880 |h ( | 01e0 8081 95b9 | | 01e2 9081 a598 | | 01e4 ec28 2880 | (( | 01e6 8081 c995 | | 01e8 d1d5 c9b8 | | 01ea 80a1 19b1 | | 01ec bd85 d17d | }| 01ee 51e5 c194 |Q | 01f0 80a1 4da5 | M | 01f2 9db9 7d64 | }d| 01f4 80a8 8168 | h| 01f6 a4a4 ec28 | (| 01f8 2995 b990 |) | 01fa 812d 997d | - }| 01fc 4da5 b98d |M | 01fe e4ec 2829 | ()|