|
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_0d40ac
└─⟦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 00c0 | | .CONST 0x00c0 ; 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 002a | * | .CONST 0x002a ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0016 | | .CONST 0x0016 ; 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 00c4 | | Action Make_Default 0011 00c4 | | Action Make_Default 0012 00c4 | | Action Make_Default 0013 00c4 | | Action Make_Default 0014 00c4 | | Action Make_Default 0015 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated 0017 c211 | | Store 0x1,0x11 0018 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated 001a c215 | | Store 0x1,0x15 001b 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 001d c216 | | Store 0x1,0x16 001e 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 0020 c214 | | Store 0x1,0x14 0021 00bf | | Action Accept_Activation 0022 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0023 00c7 | | Action Elaborate_Subprogram 0024 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0025 00c7 | | Action Elaborate_Subprogram 0026 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0027 00c7 | | Action Elaborate_Subprogram 0028 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0029 00c7 | | Action Elaborate_Subprogram 002a BODY_0008: 002a 00bc | | Action Signal_Activated 002b 00bb | | Action Signal_Completion 002c 0000 0000 | | .BLANK 0000[0x4] 0030 ; -------------------------------------------------------------------------------------- 0030 ; SUBPROGRAM 0030 ; -------------------------------------------------------------------------------------- 0030 0033 | 3 | .CONST 0x0033 ; Address of begin 0031 0004 | | .CONST 0x0004 ; Address of exception handler 0032 0001 | | .CONST 0x0001 ; Number of locals 0033 BODY_0030: 0033 INIT_0030: 0033 00da | | Load_Top At_Offset_2 0034 e001 | | Load 0x0,0x1 0035 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0036 7034 |p4 | Jump_Nonzero 0x6b 0037 00da | | Load_Top At_Offset_2 0038 e001 | | Load 0x0,0x1 0039 1811 | | Execute Package,Field_Execute,Field_Number 0x11 003a 0d65 | e | Execute_Immediate Less,0x65 003b 682d |h- | Jump_Zero 0x69 003c 00db | | Load_Top At_Offset_3 003d e002 | | Load 0x0,0x2 003e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 003f 7027 |p' | Jump_Nonzero 0x67 0040 00db | | Load_Top At_Offset_3 0041 e002 | | Load 0x0,0x2 0042 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0043 00db | | Load_Top At_Offset_3 0044 e001 | | Load 0x0,0x1 0045 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0046 027d | } | Execute Discrete,Greater 0047 681d |h | Jump_Zero 0x65 0048 e5fd | | Load 0x2,-0x3 0049 e003 | | Load 0x0,0x3 004a 181b | | Execute Package,Field_Execute,Field_Number 0x1b 004b e003 | | Load 0x0,0x3 004c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 004d 011c | | Execute Any,Convert_Unchecked 004e 1c01 | | Execute_Immediate Run_Utility,0x1 004f 00db | | Load_Top At_Offset_3 0050 e001 | | Load 0x0,0x1 0051 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0052 e001 | | Load 0x0,0x1 0053 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0054 011c | | Execute Any,Convert_Unchecked 0055 1c01 | | Execute_Immediate Run_Utility,0x1 0056 01df | | Execute Vector,Equal 0057 680b |h | Jump_Zero 0x63 0058 4800 |H | Short_Literal 0x0 0059 e5fe | | Load 0x2,-0x2 005a e002 | | Load 0x0,0x2 005b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 005c e5ff | | Load 0x2,-0x1 005d e001 | | Load 0x0,0x1 005e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 005f e002 | | Load 0x0,0x2 0060 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0061 0f00 | | Execute_Immediate Equal,0x0 0062 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0063 4800 |H | Short_Literal 0x0 0064 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0065 4800 |H | Short_Literal 0x0 0066 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0067 4800 |H | Short_Literal 0x0 0068 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0069 4800 |H | Short_Literal 0x0 006a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 006b 4800 |H | Short_Literal 0x0 006c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 006d 0000 0000 | | .XXX[0x3] 006f 0000 | | 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0073 | s | .CONST 0x0073 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0001 | | .CONST 0x0001 ; Number of locals 0073 BODY_0070: 0073 INIT_0070: 0073 00da | | Load_Top At_Offset_2 0074 e001 | | Load 0x0,0x1 0075 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0076 7013 |p | Jump_Nonzero 0x8a 0077 00da | | Load_Top At_Offset_2 0078 e001 | | Load 0x0,0x1 0079 1811 | | Execute Package,Field_Execute,Field_Number 0x11 007a 0d65 | e | Execute_Immediate Less,0x65 007b 680c |h | Jump_Zero 0x88 007c 4800 |H | Short_Literal 0x0 007d 00db | | Load_Top At_Offset_3 007e e001 | | Load 0x0,0x1 007f 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0080 e001 | | Load 0x0,0x1 0081 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0082 011c | | Execute Any,Convert_Unchecked 0083 1c01 | | Execute_Immediate Run_Utility,0x1 0084 e003 | | Load 0x0,0x3 0085 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0086 0f00 | | Execute_Immediate Equal,0x0 0087 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0088 4800 |H | Short_Literal 0x0 0089 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 008a 4800 |H | Short_Literal 0x0 008b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 008c 0000 0000 | | .BLANK 0000[0x4] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0094 | | .CONST 0x0094 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0002 | | .CONST 0x0002 ; Number of locals 0093 INIT_0090: 0093 00e1 | | Load_Encached Boolean_Cache 0094 BODY_0090: 0094 00db | | Load_Top At_Offset_3 0095 e001 | | Load 0x0,0x1 0096 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0097 700f |p | Jump_Nonzero 0xa7 0098 00db | | Load_Top At_Offset_3 0099 e001 | | Load 0x0,0x1 009a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 009b 0d65 | e | Execute_Immediate Less,0x65 009c 6808 |h | Jump_Zero 0xa5 009d 4800 |H | Short_Literal 0x0 009e e5ff | | Load 0x2,-0x1 009f e001 | | Load 0x0,0x1 00a0 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00a1 e002 | | Load 0x0,0x2 00a2 181f | | Execute Package,Field_Execute,Field_Number 0x1f 00a3 0f00 | | Execute_Immediate Equal,0x0 00a4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00a5 4800 |H | Short_Literal 0x0 00a6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00a7 4800 |H | Short_Literal 0x0 00a8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00a9 0000 0000 | | .BLANK 0000[0x7] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b3 | | .CONST 0x00b3 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0001 | | .CONST 0x0001 ; Number of locals 00b3 BODY_00b0: 00b3 INIT_00b0: 00b3 00da | | Load_Top At_Offset_2 00b4 e001 | | Load 0x0,0x1 00b5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00b6 7005 |p | Jump_Nonzero 0xbc 00b7 00da | | Load_Top At_Offset_2 00b8 e001 | | Load 0x0,0x1 00b9 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00ba 0c65 | e | Execute_Immediate Greater_Equal,0x65 00bb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00bc 4800 |H | Short_Literal 0x0 00bd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00be 0000 0000 | | .XXX[0x2] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; Debug Table 00c0 ; -------------------------------------------------------------------------------------- 00c0 0004 0001 | | .DEBUG4 0x0004,0x0001,0x88da,0x0000,0x0001,0x0006 00c6 000b 00de | | .DBG4T 0x000b,0x00de,0x8000,0x0000 00ca 0022 00e4 | " | .DBG4T 0x0022,0x00e4,0x8000,0x0000 00ce 0033 00ea | 3 | .DBG4T 0x0033,0x00ea,0x0002,0x0000 00d2 0073 00ed | s | .DBG4T 0x0073,0x00ed,0x0002,0x0000 00d6 0093 00f0 | | .DBG4T 0x0093,0x00f0,0x0002,0x0000 00da 00b3 00f4 | | .DBG4T 0x00b3,0x00f4,0x0002,0x0000 00de ; -------------------------------------------------------------------------------------- 00de ; Debug chain 00de ; -------------------------------------------------------------------------------------- 00de 0004 0000 | | .DBGLEN 0x0004,0x0000 00e0 0015 0018 | | .DBGLNO 0x0015,0x0018,0x001b,0x001e 00e4 ; -------------------------------------------------------------------------------------- 00e4 ; Debug chain 00e4 ; -------------------------------------------------------------------------------------- 00e4 0004 0000 | | .DBGLEN 0x0004,0x0000 00e6 0022 0024 | " $| .DBGLNO 0x0022,0x0024,0x0026,0x0028 00ea ; -------------------------------------------------------------------------------------- 00ea ; Debug chain 00ea ; -------------------------------------------------------------------------------------- 00ea 0000 0001 | | .DBGLEN 0x0000,0x0001 00ec 0033 | 3 | .DBGLNO 0x0033 00ed ; -------------------------------------------------------------------------------------- 00ed ; Debug chain 00ed ; -------------------------------------------------------------------------------------- 00ed 0000 0001 | | .DBGLEN 0x0000,0x0001 00ef 0073 | s | .DBGLNO 0x0073 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; Debug chain 00f0 ; -------------------------------------------------------------------------------------- 00f0 0001 0001 | | .DBGLEN 0x0001,0x0001 00f2 0093 0094 | | .DBGLNO 0x0093,0x0094 00f4 ; -------------------------------------------------------------------------------------- 00f4 ; Debug chain 00f4 ; -------------------------------------------------------------------------------------- 00f4 0000 0001 | | .DBGLEN 0x0000,0x0001 00f6 00b3 | | .DBGLNO 0x00b3 00f7 0000 0000 | | .BLANK 0000[0x109]