|
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_0658fb
└─⟦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 0070 | p | .CONST 0x0070 ; 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 0020 | | .CONST 0x0020 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0010 | | .CONST 0x0010 ; 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 002b | +| Declare_Subprogram INIT_0028,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 00c4 | | Action Make_Default 0018 00c4 | | Action Make_Default 0019 00c4 | | Action Make_Default 001a 00db | | Load_Top At_Offset_3 001b 02a0 | | Declare_Subprogram Null_Subprogram 001c 481a |H | Short_Literal 0x1a 001d 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected 001e c210 | | Store 0x1,0x10 001f 00bf | | Action Accept_Activation 0020 BODY_0008: 0020 00bc | | Action Signal_Activated 0021 00bb | | Action Signal_Completion 0022 0000 0000 | | .BLANK 0000[0x6] 0028 ; -------------------------------------------------------------------------------------- 0028 ; SUBPROGRAM 0028 ; -------------------------------------------------------------------------------------- 0028 002b | + | .CONST 0x002b ; Address of begin 0029 0004 | | .CONST 0x0004 ; Address of exception handler 002a 0001 | | .CONST 0x0001 ; Number of locals 002b BODY_0028: 002b INIT_0028: 002b 4608 |F | Jump_Case 0x9 002c 7808 |x | Jump 0x35 ; case 0x0 002d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 002e 783c |x< | Jump 0x6b ; case 0x2 002f 783b |x; | Jump 0x6b ; case 0x3 0030 783a |x: | Jump 0x6b ; case 0x4 0031 7839 |x9 | Jump 0x6b ; case 0x5 0032 7838 |x8 | Jump 0x6b ; case 0x6 0033 7824 |x$ | Jump 0x58 ; case 0x7 0034 782c |x, | Jump 0x61 ; case 0x8 0035 4800 |H | Short_Literal 0x0 0036 00db | | Load_Top At_Offset_3 0037 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0038 00da | | Load_Top At_Offset_2 0039 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 003a 0335 | 5 | Declare_Variable Array,Duplicate 003b 00cd | | Action Spare6_Action 003c 00db | | Load_Top At_Offset_3 003d 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 003e 01d9 | | Execute Vector,Reverse_Bounds 003f 0263 | c | Execute Discrete,Above_Bound 0040 7005 |p | Jump_Nonzero 0x46 0041 4800 |H | Short_Literal 0x0 0042 00d9 | | Load_Top At_Offset_1 0043 e402 | | Load 0x2,0x2 0044 01d6 | | Execute Vector,Field_Write 0045 3ffb |? | Loop_Increasing 0x41 0046 00db | | Load_Top At_Offset_3 0047 00d8 | | Load_Top At_Offset_0 0048 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0049 00da | | Load_Top At_Offset_2 004a 01da | | Execute Vector,Bounds 004b 00da | | Load_Top At_Offset_2 004c 01da | | Execute Vector,Bounds 004d 00da | | Load_Top At_Offset_2 004e 027f | | Execute Discrete,Equal 004f 7001 |p | Jump_Nonzero 0x51 0050 08e0 | | Execute_Immediate Raise,0xe0 0051 00cd | | Action Spare6_Action 0052 027f | | Execute Discrete,Equal 0053 7001 |p | Jump_Nonzero 0x55 0054 08e0 | | Execute_Immediate Raise,0xe0 0055 00d1 | | Pop_Control Pop_Count_1 0056 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 0057 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0058 00db | | Load_Top At_Offset_3 0059 4801 |H | Short_Literal 0x1 005a e5fe | | Load 0x2,-0x2 005b 00e9 | | Load_Encached String_Cache 005c 035b | [ | Declare_Type Array,Constrained 005d 4801 |H | Short_Literal 0x1 005e e5ff | | Load 0x2,-0x1 005f 031b | | Declare_Type Variant_Record,Constrained 0060 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0061 00db | | Load_Top At_Offset_3 0062 00db | | Load_Top At_Offset_3 0063 02fc | | Declare_Variable Variant_Record,With_Constraint 0064 4801 |H | Short_Literal 0x1 0065 e5fe | | Load 0x2,-0x2 0066 00e9 | | Load_Encached String_Cache 0067 0334 | 4 | Declare_Variable Array,With_Constraint 0068 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3 0069 016a | j | QQ_execute Variant_Record,XXX 006a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 006b 0869 | i | Execute_Immediate Raise,0x69 006c 0000 0000 | | .BLANK 0000[0x4] 0070 ; -------------------------------------------------------------------------------------- 0070 ; Debug Table 0070 ; -------------------------------------------------------------------------------------- 0070 0004 0008 | | .DEBUG4 0x0004,0x0008,0xa907,0x0000,0x0001,0x0000 0076 8000 0201 | | .XXX[0x6] 0078 c706 8000 | | 007a 0201 c708 | | 007c 0000 0000 | | .BLANK 0000[0x5] 0081 0205 801e | | .XXX[0x20] 0083 a980 0000 | | 0085 01b4 0080 | | 0087 8004 0001 | | 0089 c800 0000 | | 008b 23c6 0000 |# | 008d 1000 0000 | | 008f 2801 4000 |( @ | 0091 0000 4000 | @ | 0093 0010 0000 | | 0095 0088 0000 | | 0097 0000 4000 | @ | 0099 0002 9000 | | 009b 0040 38d2 | @8 | 009d 1000 0040 | @| 009f 38d2 4000 |8 @ | 00a1 0000 0000 | | .BLANK 0000[0x19] 00ba 0040 b003 | @ | .XXX[0x1d] 00bc d550 0000 | P | 00be 0036 8010 | 6 | 00c0 1000 8000 | | 00c2 3900 0000 |9 | 00c4 0472 c000 | r | 00c6 0200 0000 | | 00c8 0300 2800 | ( | 00ca 0000 0800 | | 00cc 0002 0000 | | 00ce 0011 0000 | | 00d0 0000 0800 | | 00d2 0000 5200 | R | 00d4 0008 0717 | | 00d6 4000 |@ | 00d7 0000 0000 | | .BLANK 0000[0x1c] 00f3 0008 | | .XXX[0x1] 00f4 0000 0000 | | .BLANK 0000[0xd] 0101 0020 0500 | | .XXX[0xc] 0103 0000 0000 | | 0105 0000 4000 | @ | 0107 0002 2000 | | 0109 0000 0100 | | 010b 0000 0a00 | | 010d 0000 0000 | | .BLANK 0000[0x2d] 013a 0004 00a0 | | .XXX[0xc] 013c 0000 0000 | | 013e 0000 0800 | | 0140 0000 4400 | D | 0142 0000 0020 | | 0144 0000 0140 | @| 0146 0000 0000 | | .BLANK 0000[0x2e] 0174 8014 0000 | | .XXX[0xb] 0176 0000 0000 | | 0178 0100 0000 | | 017a 0880 0000 | | 017c 0004 0000 | | 017e 0028 | ( | 017f 0000 0000 | | .BLANK 0000[0x2e] 01ad 1002 8000 | | .XXX[0xb] 01af 0000 0000 | | 01b1 0020 0000 | | 01b3 0110 0000 | | 01b5 0000 8000 | | 01b7 0005 | | 01b8 0000 0000 | | .BLANK 0000[0x48]