|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_04fcfe
└─⟦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 5900 |Y | .CONST 0x5900 ; 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 0000 | | .CONST 0x0000 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0021 | ! | .CONST 0x0021 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0007 | | .CONST 0x0007 ; Number of locals 000b INIT_0008: 000b e012 | | Load 0x0,0x12 000c 02c7 | | Declare_Variable Any 000d 00d8 | | Load_Top At_Offset_0 000e 1c00 | | Execute_Immediate Run_Utility,0x0 000f e013 | | Load 0x0,0x13 0010 02c7 | | Declare_Variable Any 0011 00d8 | | Load_Top At_Offset_0 0012 1c00 | | Execute_Immediate Run_Utility,0x0 0013 e014 | | Load 0x0,0x14 0014 02c7 | | Declare_Variable Any 0015 00d8 | | Load_Top At_Offset_0 0016 1c00 | | Execute_Immediate Run_Utility,0x0 0017 e015 | | Load 0x0,0x15 0018 02c7 | | Declare_Variable Any 0019 00d8 | | Load_Top At_Offset_0 001a 1c00 | | Execute_Immediate Run_Utility,0x0 001b e016 | | Load 0x0,0x16 001c 02c7 | | Declare_Variable Any 001d 00d8 | | Load_Top At_Offset_0 001e 1c00 | | Execute_Immediate Run_Utility,0x0 001f 029f 005b | [| Declare_Subprogram INIT_0058,For_Call 0021 BODY_0008: 0021 e5ff | | Load 0x2,-0x1 0022 800e | | Call 0x0,0xe 0023 c402 | | Store 0x2,0x2 0024 e402 | | Load 0x2,0x2 0025 8007 | | Call 0x0,0x7 0026 0f04 | | Execute_Immediate Equal,0x4 0027 7002 |p | Jump_Nonzero 0x2a 0028 4800 |H | Short_Literal 0x0 0029 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 002a e402 | | Load 0x2,0x2 002b 8017 | | Call 0x0,0x17 002c c403 | | Store 0x2,0x3 002d e403 | | Load 0x2,0x3 002e 8018 | | Call 0x0,0x18 002f e019 | | Load 0x0,0x19 0030 01de | | Execute Vector,Not_Equal 0031 6802 |h | Jump_Zero 0x34 0032 4800 |H | Short_Literal 0x0 0033 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0034 e403 | | Load 0x2,0x3 0035 801a | | Call 0x0,0x1a 0036 c404 | | Store 0x2,0x4 0037 00d9 | | Load_Top At_Offset_1 0038 e404 | | Load 0x2,0x4 0039 801b | | Call 0x0,0x1b 003a c406 | | Store 0x2,0x6 003b 00d9 | | Load_Top At_Offset_1 003c 801c | | Call 0x0,0x1c 003d 6802 |h | Jump_Zero 0x40 003e 4800 |H | Short_Literal 0x0 003f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0040 00d9 | | Load_Top At_Offset_1 0041 801d | | Call 0x0,0x1d 0042 c405 | | Store 0x2,0x5 0043 00da | | Load_Top At_Offset_2 0044 801e | | Call 0x0,0x1e 0045 e01f | | Load 0x0,0x1f 0046 01de | | Execute Vector,Not_Equal 0047 6802 |h | Jump_Zero 0x4a 0048 4800 |H | Short_Literal 0x0 0049 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 004a 00da | | Load_Top At_Offset_2 004b 8020 | | Call 0x0,0x20 004c e021 | ! | Load 0x0,0x21 004d 01de | | Execute Vector,Not_Equal 004e 6802 |h | Jump_Zero 0x51 004f 4800 |H | Short_Literal 0x0 0050 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0051 8407 | | Call 0x2,0x7 0052 4801 |H | Short_Literal 0x1 0053 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0054 0000 0000 | | .BLANK 0000[0x4] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 005b | [ | .CONST 0x005b ; Address of begin 0059 006a | j | .CONST 0x006a ; Address of exception handler 005a 0001 | | .CONST 0x0001 ; Number of locals 005b BODY_0058: 005b INIT_0058: 005b e405 | | Load 0x2,0x5 005c 8022 | " | Call 0x0,0x22 005d 00e2 | | Load_Encached Integer_Cache 005e 00e0 | | Load_Encached Standard_Cache 005f 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0060 00d8 | | Load_Top At_Offset_0 0061 00e3 | | Load_Encached Natural_Cache 0062 0260 | ` | Execute Discrete,In_Type 0063 7001 |p | Jump_Nonzero 0x65 0064 0801 | | Execute_Immediate Raise,0x1 0065 8006 | | Call 0x0,0x6 0066 a214 | | Store_Unchecked 0x1,0x14 0067 4801 |H | Short_Literal 0x1 0068 a215 | | Store_Unchecked 0x1,0x15 0069 4501 |E | Exit_Suprogram New_Top_Offset 0x1 006a TRAP_0058: 006a 0007 | | Action Break_Optional 006b 4800 |H | Short_Literal 0x0 006c 00cb | | Action Pop_Block_With_Result 006d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 006e 0000 0000 | | .XXX[0x2] 0070 ; -------------------------------------------------------------------------------------- 0070 ; Debug Table 0070 ; -------------------------------------------------------------------------------------- 0070 0004 0009 | | .DEBUG4 0x0004,0x0009,0x9168,0x0000,0x0001,0x0002 0076 000b 007e | ~| .DBG4T 0x000b,0x007e,0x1002,0x0000 007a 005b 0096 | [ | .DBG4T 0x005b,0x0096,0x1004,0x0000 007e ; -------------------------------------------------------------------------------------- 007e ; Debug chain 007e ; -------------------------------------------------------------------------------------- 007e 0005 0011 | | .DBGLEN 0x0005,0x0011 0080 000b 000f | | .DBGLNO 0x000b,0x000f,0x0013,0x0017,0x001b,0x0021,0x0024,0x0028,0x002a,0x002d,0x0032,0x0034,0x0037,0x003b,0x003e,0x0040,0x0043,0x0048,0x004a,0x004f,0x0051,0x0052 0096 ; -------------------------------------------------------------------------------------- 0096 ; Debug chain 0096 ; -------------------------------------------------------------------------------------- 0096 0000 0003 | | .DBGLEN 0x0000,0x0003 0098 005b 0067 | [ g| .DBGLNO 0x005b,0x0067,0x006b 009b 0000 0000 | | .BLANK 0000[0x165]