|
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 0090 | | .CONST 0x0090 ; 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 0037 | 7 | .CONST 0x0037 ; Address of exception handler 001a 0004 | | .CONST 0x0004 ; Number of locals 001b INIT_0018: 001b 0092 003a | :| Action Push_String_Extended,0x3a ; "$$.Lists.Freeze_For_Subsystems" 001d 0092 003b | ;| Action Push_String_Extended,0x3b ; "$$.Lists.Demote_For_Subsystems" 001f 0092 003c | <| Action Push_String_Extended,0x3c ; "$$.Lists.Promote_For_Subsystems" 0021 BODY_0018: 0021 e001 | | Load 0x0,0x1 0022 180e | | Execute Package,Field_Execute,Field_Number 0xe 0023 4802 |H | Short_Literal 0x2 0024 0092 003d | =| Action Push_String_Extended,0x3d ; "Computing demotion and repromotion closure of old and new activities" 0026 e002 | | Load 0x0,0x2 0027 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0028 00da | | Load_Top At_Offset_2 0029 00d9 | | Load_Top At_Offset_1 002a 00db | | Load_Top At_Offset_3 002b e5ff | | Load 0x2,-0x1 002c e5fe | | Load 0x2,-0x2 002d e003 | | Load 0x0,0x3 002e 180e | | Execute Package,Field_Execute,Field_Number 0xe 002f 00d8 | | Load_Top At_Offset_0 0030 00da | | Load_Top At_Offset_2 0031 e402 | | Load 0x2,0x2 0032 e5fd | | Load 0x2,-0x3 0033 e5fe | | Load 0x2,-0x2 0034 e5ff | | Load 0x2,-0x1 0035 8004 | | Call 0x0,0x4 0036 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0037 TRAP_0018: 0037 0007 | | Action Break_Optional 0038 00d8 | | Load_Top At_Offset_0 0039 0101 | | Execute Exception,Reraise 003a ; -------------------------------------------------------------------------------------- 003a ; STRING TABLE 003a ; -------------------------------------------------------------------------------------- 003a 000a | | .STRTAB 0x000a->0x003f ; "$$.Lists.Freeze_For_Subsystems" 003b 0026 | & | .STRTAB 0x0026->0x004e ; "$$.Lists.Demote_For_Subsystems" 003c 0042 | B | .STRTAB 0x0042->0x005d ; "$$.Lists.Promote_For_Subsystems" 003d 005f | _ | .STRTAB 0x005f->0x006c ; "Computing demotion and repromotion closure of old and new activities" 003e 00a1 | | .STREND 0x00a1->0x008e 003f 2424 2e4c |$$.L| .STRTAB_STRINGS 008f 0000 | | .XXX[0x1] 0090 ; -------------------------------------------------------------------------------------- 0090 ; Debug Table 0090 ; -------------------------------------------------------------------------------------- 0090 0004 0000 | | .DEBUG4 0x0004,0x0000,0x7916,0x0000,0x0001,0x0000 0096 0abd 0000 | | .XXX[0xac] 0098 1786 0370 | p| 009a ef42 e105 | B | 009c 6080 000b |` | 009e c300 be29 | )| 00a0 2170 82b0 |!p | 00a2 c000 05e1 | | 00a4 80dc 3d10 | = | 00a6 b841 5920 | AY | 00a8 0002 f0c0 | | 00aa 2f8b e85c |/ \| 00ac 20ac b000 | | 00ae 0178 6037 | x`7| 00b0 0f64 2e10 | d. | 00b2 5678 0000 |Vx | 00b4 bc30 1b87 | 0 | 00b6 c217 082b | +| 00b8 4c00 005e |L ^| 00ba 1805 f1dd | | 00bc 0b84 15aa | | 00be 0000 2f0c | / | 00c0 06e1 fc85 | | 00c2 c20a d900 | | 00c4 0017 8603 | | 00c6 7100 42e1 |q B | 00c8 056e 8000 | n | 00ca 0bc3 01b8 | | 00cc 80a1 7082 | p | 00ce b840 0005 | @ | 00d0 e180 5f27 | _'| 00d2 50b8 415c |P A\| 00d4 6000 02f0 |` | 00d6 c02f 93e8 | / | 00d8 5c20 ae50 |\ P| 00da 0001 7860 | x`| 00dc 17ca 142e | .| 00de 1057 3800 | W8 | 00e0 00bc 301b | 0 | 00e2 8812 1708 | | 00e4 2bac 0000 |+ | 00e6 5e18 0dc4 |^ | 00e8 0d0b 8415 | | 00ea de00 002f | /| 00ec 0c06 e208 | | 00ee 85c2 0af3 | | 00f0 0000 1786 | | 00f2 017c ba42 | | B| 00f4 e105 7a80 | z | 00f6 000b c301 | | 00f8 b883 a170 | p| 00fa 82be c000 | | 00fc 05e1 805f | _| 00fe 31d0 b841 |1 A| 0100 5fa0 0002 |_ | 0102 f0c0 2f99 | / | 0104 485c 20af |H\ | 0106 f000 0178 | x| 0108 6037 1084 |`7 | 010a 2e10 5818 |. X | 010c 0000 bc30 | 0| 010e 1ec5 aa17 | | 0110 082c 2400 | ,$ | 0112 005e 1805 | ^ | 0114 f389 0b84 | | 0116 1616 0000 | | 0118 2f0c 06e6 |/ | 011a 7085 c20c |p | 011c c100 0017 | | 011e 8701 97ec | | 0120 42e1 0661 |B a| 0122 8000 0bc3 | | 0124 80cb f721 | !| 0126 7083 3140 |p 1@| 0128 0005 e1c0 | | 012a 65fc d0b8 |e | 012c 4198 e000 |A | 012e 02f0 e032 | 2| 0130 fea8 5c20 | \ | 0132 cc70 0001 | p | 0134 7870 197f |xp | 0136 542e 1066 |T. f| 0138 3800 00bc |8 | 013a 380c bfaa |8 | 013c 1708 331c | 3 | 013e 0000 5e1c | ^ | 0140 065f d400 | _ | 0142 0000 0000 | | .BLANK 0000[0x17] 0159 1002 8000 | | .XXX[0xb] 015b 0000 0000 | | 015d 0020 0000 | | 015f 0110 0000 | | 0161 0000 8000 | | 0163 0005 | | 0164 0000 0000 | | .BLANK 0000[0x2e] 0192 0200 5000 | P | .XXX[0xc] 0194 0000 0000 | | 0196 0004 0000 | | 0198 0022 0000 | " | 019a 0000 1000 | | 019c 0000 a000 | | 019e 0000 0000 | | .BLANK 0000[0x20] 01be 0001 0000 | | .XXX[0xf] 01c0 0040 0000 | @ | 01c2 0220 0000 | | 01c4 0001 0000 | | 01c6 000a 4000 | @ | 01c8 0302 3058 | 0X| 01ca 4000 0201 |@ | 01cc a8a6 | | 01cd 0000 0000 | | .BLANK 0000[0x18] 01e5 0001 2274 | "t| .XXX[0xf] 01e7 ce42 e106 | B | 01e9 ca00 000b | | 01eb c834 3600 | 46 | 01ed 4005 0002 |@ | 01ef 7400 0002 |t | 01f1 1698 0000 | | 01f3 1800 | | 01f4 0000 0000 | | .BLANK 0000[0xc]