|
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_03bcfe
└─⟦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 0080 | | .CONST 0x0080 ; 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 0039 | 9 | .CONST 0x0039 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0011 | | .CONST 0x0011 ; Number of locals 000b INIT_0008: 000b 00c4 | | Action Make_Default 000c 00c4 | | Action Make_Default 000d 00c4 | | Action Make_Default 000e 00c4 | | Action Make_Default 000f 00c4 | | Action Make_Default 0010 e001 | | Load 0x0,0x1 0011 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a 0012 0266 | f | Execute Discrete,Bounds 0013 e001 | | Load 0x0,0x1 0014 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0015 02a0 | | Declare_Subprogram Null_Subprogram 0016 4801 |H | Short_Literal 0x1 0017 035e | ^ | Declare_Type Array,Defined,Visible 0018 c210 | | Store 0x1,0x10 0019 4800 |H | Short_Literal 0x0 001a 4be8 |K | Short_Literal 0x3e8 001b 00e3 | | Load_Encached Natural_Cache 001c 03f9 | | Declare_Type Discrete,Constrained,Visible 001d c20e | | Store 0x1,0xe 001e e20e | | Load 0x1,0xe 001f 00d8 | | Load_Top At_Offset_0 0020 e001 | | Load 0x0,0x1 0021 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0022 e001 | | Load 0x0,0x1 0023 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0024 00e1 | | Load_Encached Boolean_Cache 0025 e210 | | Load 0x1,0x10 0026 4801 |H | Short_Literal 0x1 0027 4be8 |K | Short_Literal 0x3e8 0028 00e9 | | Load_Encached String_Cache 0029 034f | O | Declare_Type Array,Constrained,Visible,Bounds_With_Object 002a 4801 |H | Short_Literal 0x1 002b 4be8 |K | Short_Literal 0x3e8 002c 00e9 | | Load_Encached String_Cache 002d 034f | O | Declare_Type Array,Constrained,Visible,Bounds_With_Object 002e 029f 0043 | C| Declare_Subprogram INIT_0040,For_Call 0030 4800 |H | Short_Literal 0x0 0031 4802 |H | Short_Literal 0x2 0032 4804 |H | Short_Literal 0x4 0033 4800 |H | Short_Literal 0x0 0034 4802 |H | Short_Literal 0x2 0035 4802 |H | Short_Literal 0x2 0036 031e | | Declare_Type Variant_Record,Defined,Visible 0037 c211 | | Store 0x1,0x11 0038 00bf | | Action Accept_Activation 0039 BODY_0008: 0039 00bc | | Action Signal_Activated 003a 00bb | | Action Signal_Completion 003b 0000 0000 | | .BLANK 0000[0x5] 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 0043 | C | .CONST 0x0043 ; Address of begin 0041 0004 | | .CONST 0x0004 ; Address of exception handler 0042 0001 | | .CONST 0x0001 ; Number of locals 0043 BODY_0040: 0043 INIT_0040: 0043 4608 |F | Jump_Case 0x9 0044 7808 |x | Jump 0x4d ; case 0x0 0045 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0046 7831 |x1 | Jump 0x78 ; case 0x2 0047 7830 |x0 | Jump 0x78 ; case 0x3 0048 782f |x/ | Jump 0x78 ; case 0x4 0049 782e |x. | Jump 0x78 ; case 0x5 004a 782d |x- | Jump 0x78 ; case 0x6 004b 780e |x | Jump 0x5a ; case 0x7 004c 781b |x | Jump 0x68 ; case 0x8 004d e5ff | | Load 0x2,-0x1 004e 016c | l | Execute Variant_Record,Is_Constrained 004f 7009 |p | Jump_Nonzero 0x59 0050 00cf | | Action Mark_Auxiliary 0051 4be8 |K | Short_Literal 0x3e8 0052 4be8 |K | Short_Literal 0x3e8 0053 e5ff | | Load 0x2,-0x1 0054 1c08 | | Execute_Immediate Run_Utility,0x8 0055 00d8 | | Load_Top At_Offset_0 0056 1c00 | | Execute_Immediate Run_Utility,0x0 0057 c5ff | | Store 0x2,-0x1 0058 00ce | | Action Pop_Auxiliary 0059 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 005a e5fd | | Load 0x2,-0x3 005b e5fe | | Load 0x2,-0x2 005c 4801 |H | Short_Literal 0x1 005d e5fd | | Load 0x2,-0x3 005e 00e9 | | Load_Encached String_Cache 005f 035b | [ | Declare_Type Array,Constrained 0060 4801 |H | Short_Literal 0x1 0061 e5fe | | Load 0x2,-0x2 0062 00e9 | | Load_Encached String_Cache 0063 035b | [ | Declare_Type Array,Constrained 0064 4802 |H | Short_Literal 0x2 0065 e5ff | | Load 0x2,-0x1 0066 031b | | Declare_Type Variant_Record,Constrained 0067 4203 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x3 0068 e5fd | | Load 0x2,-0x3 0069 e5fe | | Load 0x2,-0x2 006a e5ff | | Load 0x2,-0x1 006b 02fc | | Declare_Variable Variant_Record,With_Constraint 006c 4801 |H | Short_Literal 0x1 006d e5fd | | Load 0x2,-0x3 006e 00e9 | | Load_Encached String_Cache 006f 0334 | 4 | Declare_Variable Array,With_Constraint 0070 2d07 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x7 0071 4801 |H | Short_Literal 0x1 0072 e5fe | | Load 0x2,-0x2 0073 00e9 | | Load_Encached String_Cache 0074 0334 | 4 | Declare_Variable Array,With_Constraint 0075 2d08 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x8 0076 016a | j | QQ_execute Variant_Record,XXX 0077 4203 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x3 0078 0869 | i | Execute_Immediate Raise,0x69 0079 0000 0000 | | .BLANK 0000[0x7] 0080 ; -------------------------------------------------------------------------------------- 0080 ; Debug Table 0080 ; -------------------------------------------------------------------------------------- 0080 0004 000f | | .DEBUG4 0x0004,0x000f,0x42fa,0x0000,0x0001,0x0000 0086 4b80 8004 |K | .XXX[0x18] 0088 0005 7000 | p | 008a 0000 39d0 | 9 | 008c 0002 d800 | | 008e 0000 c801 | | 0090 4000 0028 |@ (| 0092 8000 0010 | | 0094 0000 0088 | | 0096 0000 0000 | | 0098 4000 0002 |@ | 009a 9000 1681 | | 009c 8886 c000 | | 009e 0000 0000 | | .BLANK 0000[0x1a] 00b8 0040 007c | @ || .XXX[0x1f] 00ba 1310 a86d | m| 00bc 3c80 0006 |< | 00be c476 c990 | v | 00c0 1000 8000 | | 00c2 ae00 0000 | | 00c4 083f 4000 | ?@ | 00c6 0200 0000 | | 00c8 0300 2800 | ( | 00ca 0000 0800 | | 00cc 0002 0000 | | 00ce 0011 0000 | | 00d0 0000 0800 | | 00d2 0000 5200 | R | 00d4 0010 3111 | 1 | 00d6 1000 | | 00d7 0000 0000 | | .BLANK 0000[0x1a] 00f1 0018 0009 | | .XXX[0x1f] 00f3 710a 150d |q | 00f5 a792 0000 | | 00f7 d88e d932 | 2| 00f9 0200 1000 | | 00fb 15c0 0000 | | 00fd 0107 e800 | | 00ff 0080 0000 | | 0101 0060 0500 | ` | 0103 0000 0100 | | 0105 0000 4000 | @ | 0107 0002 2000 | | 0109 0000 0100 | | 010b 0000 0a40 | @| 010d 0002 0622 | "| 010f 2200 |" | 0110 0000 0000 | | .BLANK 0000[0x1a] 012a 0003 0001 | | .XXX[0x22] 012c 2e22 42a1 |."B | 012e b4f2 8000 | | 0130 1b11 da26 | &| 0132 4040 0200 |@@ | 0134 02b8 0000 | | 0136 0020 fd00 | | 0138 0010 0000 | | 013a 0014 00a0 | | 013c 0000 0020 | | 013e 0000 0800 | | 0140 0000 4400 | D | 0142 0000 0020 | | 0144 0000 0148 | H| 0146 0000 80c4 | | 0148 4508 0000 |E | 014a 80c4 4520 | E | 014c 0000 0000 | | .BLANK 0000[0x18] 0164 6000 25c4 |` % | .XXX[0x1e] 0166 2854 369e |(T6 | 0168 5800 0362 |X b| 016a 32a4 b808 |2 | 016c 0040 0057 | @ W| 016e 0000 0003 | | 0170 9d00 002e | .| 0172 8000 000c | | 0174 8014 0000 | | 0176 0288 0000 | | 0178 0100 0000 | | 017a 0880 0000 | | 017c 0004 0000 | | 017e 0029 0001 | ) | 0180 7018 88b4 |p | 0182 0000 0000 | | .BLANK 0000[0x1b] 019d 0400 07c1 | | .XXX[0x1f] 019f 310a 86d5 |1 | 01a1 8c00 006c | l| 01a3 4768 a201 |Gh | 01a5 0008 000a | | 01a7 e000 0000 | | 01a9 7764 0007 |wd | 01ab 8000 0003 | | 01ad 5002 8000 |P | 01af 0051 0000 | Q | 01b1 0020 0000 | | 01b3 0110 0000 | | 01b5 0000 8000 | | 01b7 0005 2000 | | 01b9 3c03 1897 |< | 01bb 8000 | | 01bc 0000 0000 | | .BLANK 0000[0x1a] 01d6 0600 0001 | | .XXX[0x3] 01d8 bf80 | | 01d9 0000 0000 | | .BLANK 0000[0x27]