|
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 8081 99d5 | | .XXX[0x122] 00e0 b98d d1a5 | | 00e2 bdb9 85b1 | | 00e4 b1e4 8195 | | 00e6 c5d5 a5d9 | | 00e8 85b1 95b9 | | 00ea d081 d1bc | | 00ec 81d1 a194 | | 00ee 81a5 b9cd | | 00f0 d185 b98d | | 00f2 95cc 81c9 | | 00f4 958d bdb5 | | 00f6 b595 b991 | | 00f8 9590 8189 | | 00fa e481 d1a1 | | 00fc 9428 8080 | ( | 00fe 81c1 c9bd | | 0100 c1bd cd95 | | 0102 9081 cdd1 | | 0104 85b9 9185 | | 0106 c990 8199 | | 0108 bdc8 81d1 | | 010a a194 81c1 | | 010c c995 9195 | | 010e 99a5 b995 | | 0110 9081 d1e5 | | 0112 c195 cc81 | | 0114 19b1 bd85 | | 0116 d081 85b9 | | 0118 9081 31bd | 1 | 011a b99d 7d19 | } | 011c b1bd 85d0 | | 011e b028 8080 | ( | 0120 81c9 95cd | | 0122 c195 8dd1 | | 0124 a5d9 95b1 | | 0126 e4b0 8189 | | 0128 d5d0 818d | | 012a bdb9 8dc9 | | 012c 95d1 95b1 | | 012e e481 a5b8 | | 0130 81d1 a1a5 | | 0132 cc81 d995 | | 0134 c9cd a5bd | | 0136 b881 d1a1 | | 0138 9481 9d95 | | 013a b995 c9a5 | | 013c 8c81 99bd | | 013e c9b4 81a5 | | 0140 cc28 8080 | ( | 0142 81a5 b5c1 | | 0144 b195 b595 | | 0146 b9d1 9590 | | 0148 8189 85cd | | 014a 9590 81bd | | 014c b881 d1a1 | | 014e bdcd 9480 | | 0150 c881 c185 | | 0152 8dad 859d | | 0154 95cc 8199 | | 0156 bdc8 8195 | | 0158 9999 a58d | | 015a a595 b98d | | 015c e481 c995 | | 015e 85cd bdb9 | | 0160 ccb8 2880 | ( | 0162 8080 2881 | ( | 0164 bc81 4185 | A | 0166 8dad 859d | | 0168 95cc 8115 | | 016a b195 b595 | | 016c b9d1 85c9 | | 016e e57d 19d5 | } | 0170 b98d d1a5 | | 0172 bdb9 cc81 | | 0174 85b9 9081 | | 0176 31bd b99d |1 | 0178 7d15 b195 |} | 017a b595 b9d1 | | 017c 85c9 e57d | }| 017e 19d5 b98d | | 0180 d1a5 bdb9 | | 0182 cc81 85c9 | | 0184 9428 8080 | ( | 0186 8199 d5b9 | | 0188 8dd1 a5bd | | 018a b985 b1b1 | | 018c e481 95c5 | | 018e d5a5 d985 | | 0190 b195 b9d0 | | 0192 81d1 bc81 | | 0194 d1a1 9481 | | 0196 a5b9 cdd1 | | 0198 85b9 8d95 | | 019a cc81 c995 | | 019c 8dbd b5b5 | | 019e 95b9 9195 | | 01a0 9081 89e4 | | 01a2 81d1 a194 | | 01a4 2880 8081 |( | 01a6 c1c9 bdc1 | | 01a8 bdcd 9590 | | 01aa 81cd d185 | | 01ac b991 85c9 | | 01ae 9081 99bd | | 01b0 c881 d1a1 | | 01b2 9481 c1c9 | | 01b4 9591 9599 | | 01b6 a5b9 9590 | | 01b8 81d1 e5c1 | | 01ba 95cc 8119 | | 01bc b1bd 85d0 | | 01be 8185 b990 | | 01c0 8131 bdb9 | 1 | 01c2 9d7d 19b1 | } | 01c4 bd85 d028 | (| 01c6 8080 81c9 | | 01c8 95cd c195 | | 01ca 8dd1 a5d9 | | 01cc 95b1 e4b0 | | 01ce 8189 d5d0 | | 01d0 8185 c994 | | 01d2 81c1 c9bd | | 01d4 d9a5 9195 | | 01d6 9081 dda5 | | 01d8 d1a0 8191 | | 01da a5c9 958d | | 01dc d081 cdd5 | | 01de c1c1 bdc9 | | 01e0 d081 bd98 | | 01e2 81d1 a194 | | 01e4 2880 8081 |( | 01e6 8dbd c1c9 | | 01e8 bd8d 95cd | | 01ea cdbd c881 | | 01ec 99bd c881 | | 01ee 9599 99a5 | | 01f0 8da5 95b9 | | 01f2 8de4 81c9 | | 01f4 9585 cdbd | | 01f6 b9cc b828 | (| 01f8 8080 8028 | (| 01fa 2939 bdd1 |)9 | 01fc 8481 8995 | | 01fe b994 e829 | )|