|
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_19c0d9
└─⟦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 0098 | | .CONST 0x0098 ; 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 003a | : | .CONST 0x003a ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0014 | | .CONST 0x0014 ; Number of locals 000b INIT_0008: 000b 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated 000d 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 000f 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated 0011 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated 0013 e001 | | Load 0x0,0x1 0014 0129 | ) | Execute Any,Make_Visible 0015 e002 | | Load 0x0,0x2 0016 0129 | ) | Execute Any,Make_Visible 0017 00bf | | Action Accept_Activation 0018 4800 |H | Short_Literal 0x0 0019 4808 |H | Short_Literal 0x8 001a 4800 |H | Short_Literal 0x0 001b 481e |H | Short_Literal 0x1e 001c 00e1 | | Load_Encached Boolean_Cache 001d 02a0 | | Declare_Subprogram Null_Subprogram 001e 4802 |H | Short_Literal 0x2 001f 035d | ] | Declare_Type Array,Defined 0020 00d8 | | Load_Top At_Offset_0 0021 0337 | 7 | Declare_Variable Array 0022 00d8 | | Load_Top At_Offset_0 0023 0335 | 5 | Declare_Variable Array,Duplicate 0024 00cd | | Action Spare6_Action 0025 4808 |H | Short_Literal 0x8 0026 4800 |H | Short_Literal 0x0 0027 481e |H | Short_Literal 0x1e 0028 4800 |H | Short_Literal 0x0 0029 4800 |H | Short_Literal 0x0 002a 00d9 | | Load_Top At_Offset_1 002b e217 | | Load 0x1,0x17 002c e215 | | Load 0x1,0x15 002d 01a6 | | Execute Matrix,Field_Write 002e 3ffa |? | Loop_Increasing 0x29 002f 3ff7 |? | Loop_Increasing 0x27 0030 00d9 | | Load_Top At_Offset_1 0031 01a4 | | Execute Matrix,Structure_Write 0032 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0033 00c7 | | Action Elaborate_Subprogram 0034 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0035 00c7 | | Action Elaborate_Subprogram 0036 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0037 00c7 | | Action Elaborate_Subprogram 0038 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0039 00c7 | | Action Elaborate_Subprogram 003a BODY_0008: 003a 00bc | | Action Signal_Activated 003b 00bb | | Action Signal_Completion 003c 0000 0000 | | .BLANK 0000[0x4] 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 0049 | I | .CONST 0x0049 ; Address of begin 0041 0004 | | .CONST 0x0004 ; Address of exception handler 0042 0002 | | .CONST 0x0002 ; Number of locals 0043 INIT_0040: 0043 00da | | Load_Top At_Offset_2 0044 e003 | | Load 0x0,0x3 0045 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0046 e004 | | Load 0x0,0x4 0047 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0048 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0049 BODY_0040: 0049 e5fe | | Load 0x2,-0x2 004a 7002 |p | Jump_Nonzero 0x4d 004b e212 | | Load 0x1,0x12 004c 0257 | W | Execute Discrete,Raise 004d 00d8 | | Load_Top At_Offset_0 004e 7002 |p | Jump_Nonzero 0x51 004f e211 | | Load 0x1,0x11 0050 0257 | W | Execute Discrete,Raise 0051 e5fe | | Load 0x2,-0x2 0052 00d9 | | Load_Top At_Offset_1 0053 e214 | | Load 0x1,0x14 0054 01a7 | | Execute Matrix,Field_Read 0055 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0056 0000 0000 | | .XXX[0x2] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 005b | [ | .CONST 0x005b ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0001 | | .CONST 0x0001 ; Number of locals 005b BODY_0058: 005b INIT_0058: 005b 00db | | Load_Top At_Offset_3 005c 7002 |p | Jump_Nonzero 0x5f 005d e212 | | Load 0x1,0x12 005e 0257 | W | Execute Discrete,Raise 005f 00da | | Load_Top At_Offset_2 0060 7002 |p | Jump_Nonzero 0x63 0061 e211 | | Load 0x1,0x11 0062 0257 | W | Execute Discrete,Raise 0063 00db | | Load_Top At_Offset_3 0064 00db | | Load_Top At_Offset_3 0065 e214 | | Load 0x1,0x14 0066 01a7 | | Execute Matrix,Field_Read 0067 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 0071 | q | .CONST 0x0071 ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0002 | | .CONST 0x0002 ; Number of locals 006b INIT_0068: 006b 00da | | Load_Top At_Offset_2 006c e003 | | Load 0x0,0x3 006d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 006e e004 | | Load 0x0,0x4 006f 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0070 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0071 BODY_0068: 0071 e5fe | | Load 0x2,-0x2 0072 7002 |p | Jump_Nonzero 0x75 0073 e212 | | Load 0x1,0x12 0074 0257 | W | Execute Discrete,Raise 0075 00d8 | | Load_Top At_Offset_0 0076 7002 |p | Jump_Nonzero 0x79 0077 e211 | | Load 0x1,0x11 0078 0257 | W | Execute Discrete,Raise 0079 4801 |H | Short_Literal 0x1 007a e5fe | | Load 0x2,-0x2 007b 00da | | Load_Top At_Offset_2 007c e214 | | Load 0x1,0x14 007d 01a6 | | Execute Matrix,Field_Write 007e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 007f 0000 | | .XXX[0x1] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0089 | | .CONST 0x0089 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0002 | | .CONST 0x0002 ; Number of locals 0083 INIT_0080: 0083 00da | | Load_Top At_Offset_2 0084 e003 | | Load 0x0,0x3 0085 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0086 e004 | | Load 0x0,0x4 0087 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0088 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0089 BODY_0080: 0089 e5fe | | Load 0x2,-0x2 008a 7002 |p | Jump_Nonzero 0x8d 008b e212 | | Load 0x1,0x12 008c 0257 | W | Execute Discrete,Raise 008d 00d8 | | Load_Top At_Offset_0 008e 7002 |p | Jump_Nonzero 0x91 008f e211 | | Load 0x1,0x11 0090 0257 | W | Execute Discrete,Raise 0091 4800 |H | Short_Literal 0x0 0092 e5fe | | Load 0x2,-0x2 0093 00da | | Load_Top At_Offset_2 0094 e214 | | Load 0x1,0x14 0095 01a6 | | Execute Matrix,Field_Write 0096 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0097 0000 | | .XXX[0x1] 0098 ; -------------------------------------------------------------------------------------- 0098 ; Debug Table 0098 ; -------------------------------------------------------------------------------------- 0098 0004 0001 | | .DEBUG4 0x0004,0x0001,0x7d55,0x0000,0x0001,0x0006 009e 000b 00b6 | | .DBG4T 0x000b,0x00b6,0x0000,0x0000 00a2 0018 00bd | | .DBG4T 0x0018,0x00bd,0x0000,0x0000 00a6 0043 00c5 | C | .DBG4T 0x0043,0x00c5,0x0002,0x0000 00aa 005b 00cd | [ | .DBG4T 0x005b,0x00cd,0x0002,0x0000 00ae 006b 00d4 | k | .DBG4T 0x006b,0x00d4,0x0001,0x0000 00b2 0083 00dc | | .DBG4T 0x0083,0x00dc,0x0001,0x0000 00b6 ; -------------------------------------------------------------------------------------- 00b6 ; Debug chain 00b6 ; -------------------------------------------------------------------------------------- 00b6 0005 0000 | | .DBGLEN 0x0005,0x0000 00b8 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013 00bd ; -------------------------------------------------------------------------------------- 00bd ; Debug chain 00bd ; -------------------------------------------------------------------------------------- 00bd 0006 0000 | | .DBGLEN 0x0006,0x0000 00bf 0018 0020 | | .DBGLNO 0x0018,0x0020,0x0032,0x0034,0x0036,0x0038 00c5 ; -------------------------------------------------------------------------------------- 00c5 ; Debug chain 00c5 ; -------------------------------------------------------------------------------------- 00c5 0001 0005 | | .DBGLEN 0x0001,0x0005 00c7 0043 0049 | C I| .DBGLNO 0x0043,0x0049,0x004b,0x004d,0x004f,0x0051 00cd ; -------------------------------------------------------------------------------------- 00cd ; Debug chain 00cd ; -------------------------------------------------------------------------------------- 00cd 0000 0005 | | .DBGLEN 0x0000,0x0005 00cf 005b 005d | [ ]| .DBGLNO 0x005b,0x005d,0x005f,0x0061,0x0063 00d4 ; -------------------------------------------------------------------------------------- 00d4 ; Debug chain 00d4 ; -------------------------------------------------------------------------------------- 00d4 0001 0005 | | .DBGLEN 0x0001,0x0005 00d6 006b 0071 | k q| .DBGLNO 0x006b,0x0071,0x0073,0x0075,0x0077,0x0079 00dc ; -------------------------------------------------------------------------------------- 00dc ; Debug chain 00dc ; -------------------------------------------------------------------------------------- 00dc 0001 0005 | | .DBGLEN 0x0001,0x0005 00de 0083 0089 | | .DBGLNO 0x0083,0x0089,0x008b,0x008d,0x008f,0x0091 00e4 0000 0000 | | .BLANK 0000[0x11c]