|
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_0ea8df
└─⟦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 0068 | h | .CONST 0x0068 ; 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 001c | | .CONST 0x001c ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000e | | .CONST 0x000e ; Number of locals 000b INIT_0008: 000b 00e3 | | Load_Encached Natural_Cache 000c 00e3 | | Load_Encached Natural_Cache 000d 00e9 | | Load_Encached String_Cache 000e 029f 0023 | #| Declare_Subprogram INIT_0020,For_Call 0010 4800 |H | Short_Literal 0x0 0011 4801 |H | Short_Literal 0x1 0012 4801 |H | Short_Literal 0x1 0013 4800 |H | Short_Literal 0x0 0014 4801 |H | Short_Literal 0x1 0015 4801 |H | Short_Literal 0x1 0016 031e | | Declare_Type Variant_Record,Defined,Visible 0017 00d8 | | Load_Top At_Offset_0 0018 02a0 | | Declare_Subprogram Null_Subprogram 0019 481a |H | Short_Literal 0x1a 001a 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected 001b 00bf | | Action Accept_Activation 001c BODY_0008: 001c 00bc | | Action Signal_Activated 001d 00bb | | Action Signal_Completion 001e 0000 0000 | | .XXX[0x2] 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 0023 | # | .CONST 0x0023 ; Address of begin 0021 0004 | | .CONST 0x0004 ; Address of exception handler 0022 0001 | | .CONST 0x0001 ; Number of locals 0023 BODY_0020: 0023 INIT_0020: 0023 4608 |F | Jump_Case 0x9 0024 7808 |x | Jump 0x2d ; case 0x0 0025 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0026 783e |x> | Jump 0x65 ; case 0x2 0027 783d |x= | Jump 0x65 ; case 0x3 0028 783c |x< | Jump 0x65 ; case 0x4 0029 783b |x; | Jump 0x65 ; case 0x5 002a 783a |x: | Jump 0x65 ; case 0x6 002b 7826 |x& | Jump 0x52 ; case 0x7 002c 782e |x. | Jump 0x5b ; case 0x8 002d 4800 |H | Short_Literal 0x0 002e 00db | | Load_Top At_Offset_3 002f 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0030 00da | | Load_Top At_Offset_2 0031 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0032 0335 | 5 | Declare_Variable Array,Duplicate 0033 00d0 | | Action Swap_Control 0034 00d1 | | Pop_Control Pop_Count_1 0035 00db | | Load_Top At_Offset_3 0036 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0037 01d9 | | Execute Vector,Reverse_Bounds 0038 0263 | c | Execute Discrete,Above_Bound 0039 7005 |p | Jump_Nonzero 0x3f 003a 4800 |H | Short_Literal 0x0 003b 00d9 | | Load_Top At_Offset_1 003c e402 | | Load 0x2,0x2 003d 01d6 | | Execute Vector,Field_Write 003e 3ffb |? | Loop_Increasing 0x3a 003f 00db | | Load_Top At_Offset_3 0040 00d8 | | Load_Top At_Offset_0 0041 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0042 00da | | Load_Top At_Offset_2 0043 01da | | Execute Vector,Bounds 0044 00da | | Load_Top At_Offset_2 0045 01da | | Execute Vector,Bounds 0046 00da | | Load_Top At_Offset_2 0047 027f | | Execute Discrete,Equal 0048 7001 |p | Jump_Nonzero 0x4a 0049 08e0 | | Execute_Immediate Raise,0xe0 004a 00d0 | | Action Swap_Control 004b 00d1 | | Pop_Control Pop_Count_1 004c 027f | | Execute Discrete,Equal 004d 7001 |p | Jump_Nonzero 0x4f 004e 08e0 | | Execute_Immediate Raise,0xe0 004f 00d1 | | Pop_Control Pop_Count_1 0050 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 0051 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0052 00db | | Load_Top At_Offset_3 0053 4801 |H | Short_Literal 0x1 0054 e5fe | | Load 0x2,-0x2 0055 00e9 | | Load_Encached String_Cache 0056 035b | [ | Declare_Type Array,Constrained 0057 4801 |H | Short_Literal 0x1 0058 e5ff | | Load 0x2,-0x1 0059 031b | | Declare_Type Variant_Record,Constrained 005a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 005b 00db | | Load_Top At_Offset_3 005c 00db | | Load_Top At_Offset_3 005d 02fc | | Declare_Variable Variant_Record,With_Constraint 005e 4801 |H | Short_Literal 0x1 005f e5fe | | Load 0x2,-0x2 0060 00e9 | | Load_Encached String_Cache 0061 0334 | 4 | Declare_Variable Array,With_Constraint 0062 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3 0063 016a | j | QQ_execute Variant_Record,XXX 0064 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0065 0869 | i | Execute_Immediate Raise,0x69 0066 0000 0000 | | .XXX[0x2] 0068 ; -------------------------------------------------------------------------------------- 0068 ; Debug Table 0068 ; -------------------------------------------------------------------------------------- 0068 0004 0004 | | .DEBUG4 0x0004,0x0004,0xa8d8,0x0000,0x0001,0x0000 006e 983d 2008 | = | .XXX[0x192] 0070 0248 3763 | H7c| 0072 a7fa 2018 | | 0074 0732 1843 | 2 C| 0076 9814 2807 | ( | 0078 1815 2005 | | 007a 2005 2005 | | 007c 2003 a7fd | | 007e 2009 2010 | | 0080 0265 200d | e | 0082 2010 0267 | g| 0084 80c8 6da8 | m | 0086 607d 140f |`} | 0088 983d 2008 | = | 008a 0248 3767 | H7g| 008c a7fa 2018 | | 008e 0732 1841 | 2 A| 0090 140c 0000 | | 0092 16cc 0010 | | 0094 000f 8058 | X| 0096 6cf4 6c34 |l l4| 0098 0b1c 0360 | `| 009a 7003 8058 |p X| 009c 6c37 8058 |l7 X| 009e 6c34 0368 |l4 h| 00a0 0481 a013 | | 00a2 8058 6cf4 | Xl | 00a4 6c35 e004 |l5 | 00a6 036b a7ff | k | 00a8 8058 6cf4 | Xl | 00aa 6077 2008 |`w | 00ac 0164 0361 | d a| 00ae a02c 0248 | , H| 00b0 376b a7ff |7k | 00b2 8058 6cd4 | Xl | 00b4 60f8 0732 |` 2| 00b6 184b 8058 | K X| 00b8 6041 1004 |`A | 00ba 0367 8058 | g X| 00bc 6ce0 6049 |l `I| 00be 1004 0000 | | 00c0 0000 0000 | | 00c2 17b8 0010 | | 00c4 001f 8058 | X| 00c6 6c3c 0b1c |l< | 00c8 036e 187f | n | 00ca 2008 0a7c | || 00cc 242d 206d |$- m| 00ce 200c 0264 | d| 00d0 0319 200d | | 00d2 2010 0265 | e| 00d4 8a75 8a51 | u Q| 00d6 201c 001c | | 00d8 0248 376f | H7o| 00da a00b 8058 | X| 00dc 6cd4 60f8 |l ` | 00de 0733 a7fd | 3 | 00e0 2011 2010 | | 00e2 0265 2015 | e | 00e4 2010 0266 | f| 00e6 186d 1408 | m | 00e8 0000 0000 | | 00ea 1884 1dbc | | 00ec 0024 0248 | $ H| 00ee 3703 9828 |7 (| 00f0 0730 001f | 0 | 00f2 8058 6cd4 | Xl | 00f4 6c3f 8058 |l? X| 00f6 6cd4 6c60 |l l`| 00f8 0b1c 0360 | `| 00fa 7003 8058 |p X| 00fc 6c37 8058 |l7 X| 00fe 6c3c 0b1c |l< | 0100 0360 7003 | `p | 0102 80c8 6c34 | l4| 0104 0b1c 0360 | `| 0106 7000 0248 |p H| 0108 3770 0a7c |7p || 010a 246c 033c |$l <| 010c 0384 0998 | | 010e 001c 0361 | a| 0110 a067 8058 | g X| 0112 6cd4 6c3f |l l?| 0114 a011 8943 | C| 0116 8024 6c3b | $l;| 0118 80a4 6047 | `G| 011a 80a8 6045 | `E| 011c 2005 2003 | | 011e 80a4 6047 | `G| 0120 8058 6cd4 | Xl | 0122 605b a00b |`[ | 0124 8058 6cd4 | Xl | 0126 606f 2013 |`o | 0128 200d e063 | c| 012a 8058 6cd4 | Xl | 012c 6c3f a011 |l? | 012e 88df 8024 | $| 0130 6c3b 80a4 |l; | 0132 6047 80a8 |`G | 0134 6045 2005 |`E | 0136 2003 80a4 | | 0138 6047 8058 |`G X| 013a 6cd4 605b |l `[| 013c a023 8058 | # X| 013e 6cd4 606f |l `o| 0140 2013 200f | | 0142 a00d a11b | | 0144 a00c 380d | 8 | 0146 c01b a013 | | 0148 8058 6cd4 | Xl | 014a 6078 3c01 |`x< | 014c e005 2005 | | 014e a0ec 0361 | a| 0150 a074 0248 | t H| 0152 3777 a008 |7w | 0154 0730 0248 | 0 H| 0156 3778 0731 |7x 1| 0158 8837 8024 | 7 $| 015a 6c3b 80a4 |l; | 015c 6047 80a8 |`G | 015e 6045 2005 |`E | 0160 2003 80a4 | | 0162 6047 8058 |`G X| 0164 6cd4 605b |l `[| 0166 a00b a00f | | 0168 8058 6cd4 | Xl | 016a 6144 0732 |aD 2| 016c 1845 e070 | E p| 016e 0248 3777 | H7w| 0170 a020 0730 | 0| 0172 0248 3778 | H7x| 0174 0731 87c3 | 1 | 0176 8024 6c3b | $l;| 0178 80a4 6047 | `G| 017a 80a8 6045 | `E| 017c 2005 2003 | | 017e 80a4 6047 | `G| 0180 8058 6cd4 | Xl | 0182 605b a023 |`[ #| 0184 a00f 8058 | X| 0186 6cd4 6144 |l aD| 0188 0732 1844 | 2 D| 018a 033d e11b | = | 018c 8058 6c37 | Xl7| 018e a018 0481 | | 0190 a00f 8058 | X| 0192 6c3d e007 |l= | 0194 a01b a013 | | 0196 8058 6cd4 | Xl | 0198 608b 201b |` | 019a 2017 a015 | | 019c a044 0248 | D H| 019e 377f a013 |7 | 01a0 8058 6cd4 | Xl | 01a2 6094 0730 |` 0| 01a4 0248 370c | H7 | 01a6 0733 a017 | 3 | 01a8 8058 6c34 | Xl4| 01aa 0978 7004 | xp | 01ac 0732 1844 | 2 D| 01ae 0365 a06b | e k| 01b0 a01c 0481 | | 01b2 a00f 80c8 | | 01b4 6c35 e007 |l5 | 01b6 a01d 2007 | | 01b8 a01b 983b | ;| 01ba 80c8 6da8 | m | 01bc 6043 201f |`C | 01be 983b 80c8 | ; | 01c0 6c70 606d |lp`m| 01c2 a053 a013 | S | 01c4 8058 6cd4 | Xl | 01c6 6097 a01e |` | 01c8 1879 e00b | y | 01ca a01a 1883 | | 01cc a013 8058 | X| 01ce 6cd4 6077 |l `w| 01d0 2010 0327 | '| 01d2 a013 8058 | X| 01d4 6cd4 6079 |l `y| 01d6 bed4 0338 | 8| 01d8 0320 dcd4 | | 01da 033a 1864 | : d| 01dc 033f 80ac | ? | 01de 6c68 0a7c |lh || 01e0 24ec 0a7c |$ || 01e2 254f 9820 |%O | 01e4 3c03 981b |< | 01e6 981c 09fc | | 01e8 09e5 a00d | | 01ea 200c 014d | M| 01ec e009 2014 | | 01ee 014f 983c | O <| 01f0 036c 0248 | l H| 01f2 3783 9808 |7 | 01f4 0380 6060 | ``| 01f6 0730 0248 | 0 H| 01f8 3784 0730 |7 0| 01fa 03ab 980a | | 01fc 2030 0730 | 0 0| 01fe 0248 3788 | H7 |