|
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_28a4f3
└─⟦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 00a0 | | .CONST 0x00a0 ; 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 0000 | | .CONST 0x0000 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0037 | 7 | .CONST 0x0037 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0019 | | .CONST 0x0019 ; Number of locals 000b INIT_0008: 000b 00e2 | | Load_Encached Integer_Cache 000c 0129 | ) | Execute Any,Make_Visible 000d 00e6 | | Load_Encached Float_Cache 000e 00e6 | | Load_Encached Float_Cache 000f 02a0 | | Declare_Subprogram Null_Subprogram 0010 4802 |H | Short_Literal 0x2 0011 032e | . | Declare_Type Record,Defined,Visible 0012 00d8 | | Load_Top At_Offset_0 0013 0321 | ! | Declare_Variable Record,Visible 0014 00d9 | | Load_Top At_Offset_1 0015 0322 | " | Declare_Variable Record 0016 583d |X= | Indirect_Literal Float,0x54,3.0 0017 00d9 | | Load_Top At_Offset_1 0018 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0019 5836 |X6 | Indirect_Literal Float,0x50,4.0 001a 00d9 | | Load_Top At_Offset_1 001b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 001c 0129 | ) | Execute Any,Make_Visible 001d 00c4 | | Action Make_Default 001e 00e2 | | Load_Encached Integer_Cache 001f e20d | | Load 0x1,0xd 0020 0007 | | Action Break_Optional 0021 e20e | | Load 0x1,0xe 0022 0322 | " | Declare_Variable Record 0023 4804 |H | Short_Literal 0x4 0024 0129 | ) | Execute Any,Make_Visible 0025 c211 | | Store 0x1,0x11 0026 00bf | | Action Accept_Activation 0027 00e1 | | Load_Encached Boolean_Cache 0028 00e1 | | Load_Encached Boolean_Cache 0029 00e8 | | Load_Encached Character_Cache 002a 00e6 | | Load_Encached Float_Cache 002b 00e6 | | Load_Encached Float_Cache 002c 02a0 | | Declare_Subprogram Null_Subprogram 002d 4805 |H | Short_Literal 0x5 002e 032d | - | Declare_Type Record,Defined 002f e20d | | Load 0x1,0xd 0030 0007 | | Action Break_Optional 0031 029d 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call 0033 029d 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call 0035 029f 008b | | Declare_Subprogram INIT_0088,For_Call 0037 BODY_0008: 0037 8219 | | Call 0x1,0x19 0038 00bc | | Action Signal_Activated 0039 00bb | | Action Signal_Completion 003a 0000 0000 | | .BLANK 0000[0x6] 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 0045 | E | .CONST 0x0045 ; Address of begin 0041 0004 | | .CONST 0x0004 ; Address of exception handler 0042 0003 | | .CONST 0x0003 ; Number of locals 0043 INIT_0040: 0043 00e6 | | Load_Encached Float_Cache 0044 03d8 | | Declare_Variable Float,Duplicate 0045 BODY_0040: 0045 5806 |X | Indirect_Literal Float,0x4c,18.9 0046 0042 | B | Store_Top_Unchecked Float,At_Offset_2 0047 5804 |X | Indirect_Literal Float,0x4c,18.9 0048 0041 | A | Store_Top_Unchecked Float,At_Offset_1 0049 4502 |E | Exit_Suprogram New_Top_Offset 0x2 004a 0000 0000 | | .XXX[0x2] 004c 4032 e666 |@2 f| .DBL 18.9 004e 6666 6666 |ffff| 0050 4010 0000 |@ | .DBL 4.0 0052 0000 0000 | | 0054 4008 0000 |@ | .DBL 3.0 0056 0000 0000 | | 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 0066 | f | .CONST 0x0066 ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0004 | | .CONST 0x0004 ; Number of locals 005b INIT_0058: 005b 00e2 | | Load_Encached Integer_Cache 005c e20e | | Load 0x1,0xe 005d 0322 | " | Declare_Variable Record 005e 5821 |X! | Indirect_Literal Float,0x80,1.0 005f 00d9 | | Load_Top At_Offset_1 0060 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0061 581a |X | Indirect_Literal Float,0x7c,2.0 0062 00d9 | | Load_Top At_Offset_1 0063 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0064 e215 | | Load 0x1,0x15 0065 0322 | " | Declare_Variable Record 0066 BODY_0058: 0066 4801 |H | Short_Literal 0x1 0067 00d9 | | Load_Top At_Offset_1 0068 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0069 580e |X | Indirect_Literal Float,0x78,5.6 006a 00d9 | | Load_Top At_Offset_1 006b 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 006c 00d8 | | Load_Top At_Offset_0 006d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 006e 00e8 | | Load_Encached Character_Cache 006f 00da | | Load_Top At_Offset_2 0070 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0071 8217 | | Call 0x1,0x17 0072 00da | | Load_Top At_Offset_2 0073 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0074 00d9 | | Load_Top At_Offset_1 0075 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0076 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0077 0000 | | .XXX[0x1] 0078 4016 6666 |@ ff| .DBL 5.6 007a 6666 6666 |ffff| 007c 4000 0000 |@ | .DBL 2.0 007e 0000 0000 | | 0080 3ff0 0000 |? | .DBL 1.0 0082 0000 0000 | | 0084 0000 0000 | | .BLANK 0000[0x4] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 0090 | | .CONST 0x0090 ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0006 | | .CONST 0x0006 ; Number of locals 008b INIT_0088: 008b 00e2 | | Load_Encached Integer_Cache 008c 03e9 | | Declare_Variable Discrete,Duplicate 008d 00e6 | | Load_Encached Float_Cache 008e 00e8 | | Load_Encached Character_Cache 008f 00e1 | | Load_Encached Boolean_Cache 0090 BODY_0088: 0090 00db | | Load_Top At_Offset_3 0091 a402 | | Store_Unchecked 0x2,0x2 0092 00d8 | | Load_Top At_Offset_0 0093 00e8 | | Load_Encached Character_Cache 0094 e404 | | Load 0x2,0x4 0095 8217 | | Call 0x1,0x17 0096 005b | [ | Store_Top Discrete,At_Offset_3 0097 0059 | Y | Store_Top Discrete,At_Offset_1 0098 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0099 0000 0000 | | .BLANK 0000[0x7] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; Debug Table 00a0 ; -------------------------------------------------------------------------------------- 00a0 0004 0001 | | .DEBUG4 0x0004,0x0001,0x6f21,0x0000,0x0001,0x0005 00a6 000b 00ba | | .DBG4T 0x000b,0x00ba,0x8000,0x8000 00aa 0027 00ce | ' | .DBG4T 0x0027,0x00ce,0x8000,0x8000 00ae 0043 00d9 | C | .DBG4T 0x0043,0x00d9,0x0001,0x0000 00b2 005b 00de | [ | .DBG4T 0x005b,0x00de,0x0001,0x0000 00b6 008b 00e6 | | .DBG4T 0x008b,0x00e6,0x0004,0x0000 00ba ; -------------------------------------------------------------------------------------- 00ba ; Debug chain 00ba ; -------------------------------------------------------------------------------------- 00ba 0009 0000 | | .DBGLEN 0x0009,0x0000 00bc 000b 000d | | .DBGLNO 0x000b,0x000d,0x0012,0x0014,0x001d,0x001e,0x001f,0x0021,0x0023 00c5 0001 0002 | | .XXX[0x9] 00c7 0003 0005 | | 00c9 0006 0008 | | 00cb 0009 000a | | 00cd 000b | | 00ce ; -------------------------------------------------------------------------------------- 00ce ; Debug chain 00ce ; -------------------------------------------------------------------------------------- 00ce 0004 0001 | | .DBGLEN 0x0004,0x0001 00d0 0027 002f | ' /| .DBGLNO 0x0027,0x002f,0x0031,0x0033,0x0037 00d5 0001 0002 | | .XXX[0x4] 00d7 0005 0006 | | 00d9 ; -------------------------------------------------------------------------------------- 00d9 ; Debug chain 00d9 ; -------------------------------------------------------------------------------------- 00d9 0001 0002 | | .DBGLEN 0x0001,0x0002 00db 0043 0045 | C E| .DBGLNO 0x0043,0x0045,0x0047 00de ; -------------------------------------------------------------------------------------- 00de ; Debug chain 00de ; -------------------------------------------------------------------------------------- 00de 0003 0003 | | .DBGLEN 0x0003,0x0003 00e0 005b 005c | [ \| .DBGLNO 0x005b,0x005c,0x0064,0x0066,0x0069,0x006c 00e6 ; -------------------------------------------------------------------------------------- 00e6 ; Debug chain 00e6 ; -------------------------------------------------------------------------------------- 00e6 0004 0002 | | .DBGLEN 0x0004,0x0002 00e8 008b 008d | | .DBGLNO 0x008b,0x008d,0x008e,0x008f,0x0090,0x0092 00ee 0000 0000 | | .BLANK 0000[0x112]