|
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_1da4b1
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0118 | | .CONST 0x0118 ; 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 0045 | E | .CONST 0x0045 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0019 | | .CONST 0x0019 ; Number of locals 000b INIT_0008: 000b 4801 |H | Short_Literal 0x1 000c 4807 |H | Short_Literal 0x7 000d 00e9 | | Load_Encached String_Cache 000e 035c | \ | Declare_Type Array,Constrained,Visible 000f 48f6 |H | Short_Literal 0xf6 0010 e002 | | Load 0x0,0x2 0011 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0012 1c07 | | Execute_Immediate Run_Utility,0x7 0013 0129 | ) | Execute Any,Make_Visible 0014 4900 |I | Short_Literal 0x100 0015 e002 | | Load 0x0,0x2 0016 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0017 1c07 | | Execute_Immediate Run_Utility,0x7 0018 0129 | ) | Execute Any,Make_Visible 0019 4803 |H | Short_Literal 0x3 001a e002 | | Load 0x0,0x2 001b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 001c 1c07 | | Execute_Immediate Run_Utility,0x7 001d 0129 | ) | Execute Any,Make_Visible 001e 480a |H | Short_Literal 0xa 001f e002 | | Load 0x0,0x2 0020 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0021 1c07 | | Execute_Immediate Run_Utility,0x7 0022 0129 | ) | Execute Any,Make_Visible 0023 4810 |H | Short_Literal 0x10 0024 e002 | | Load 0x0,0x2 0025 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0026 1c07 | | Execute_Immediate Run_Utility,0x7 0027 0129 | ) | Execute Any,Make_Visible 0028 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated 002a 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated 002c 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated 002e 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated 0030 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 0032 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 0034 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated 0036 00bf | | Action Accept_Activation 0037 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0038 00c7 | | Action Elaborate_Subprogram 0039 1d14 | | Execute_Immediate Reference_Lex_1,0x14 003a 00c7 | | Action Elaborate_Subprogram 003b 1d15 | | Execute_Immediate Reference_Lex_1,0x15 003c 00c7 | | Action Elaborate_Subprogram 003d 1d16 | | Execute_Immediate Reference_Lex_1,0x16 003e 00c7 | | Action Elaborate_Subprogram 003f 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0040 00c7 | | Action Elaborate_Subprogram 0041 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0042 00c7 | | Action Elaborate_Subprogram 0043 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0044 00c7 | | Action Elaborate_Subprogram 0045 BODY_0008: 0045 00bc | | Action Signal_Activated 0046 00bb | | Action Signal_Completion 0047 0000 | | .XXX[0x1] 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 004b | K | .CONST 0x004b ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0001 | | .CONST 0x0001 ; Number of locals 004b BODY_0048: 004b INIT_0048: 004b 00db | | Load_Top At_Offset_3 004c 00db | | Load_Top At_Offset_3 004d e002 | | Load 0x0,0x2 004e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 004f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0053 | S | .CONST 0x0053 ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0001 | | .CONST 0x0001 ; Number of locals 0053 BODY_0050: 0053 INIT_0050: 0053 00db | | Load_Top At_Offset_3 0054 00db | | Load_Top At_Offset_3 0055 e003 | | Load 0x0,0x3 0056 180f | | Execute Package,Field_Execute,Field_Number 0xf 0057 e002 | | Load 0x0,0x2 0058 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0059 4502 |E | Exit_Suprogram New_Top_Offset 0x2 005a 0000 0000 | | .BLANK 0000[0x6] 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 0066 | f | .CONST 0x0066 ; Address of begin 0061 0004 | | .CONST 0x0004 ; Address of exception handler 0062 0003 | | .CONST 0x0003 ; Number of locals 0063 INIT_0060: 0063 e004 | | Load 0x0,0x4 0064 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0065 03e9 | | Declare_Variable Discrete,Duplicate 0066 BODY_0060: 0066 4801 |H | Short_Literal 0x1 0067 e5ff | | Load 0x2,-0x1 0068 01d7 | | Execute Vector,Field_Read 0069 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 006a 4802 |H | Short_Literal 0x2 006b e5ff | | Load 0x2,-0x1 006c 01d7 | | Execute Vector,Field_Read 006d 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 006e e5fe | | Load 0x2,-0x2 006f 482e |H. | Short_Literal 0x2e 0070 482e |H. | Short_Literal 0x2e 0071 e402 | | Load 0x2,0x2 0072 00e0 | | Load_Encached Standard_Cache 0073 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0074 01cb | | Execute Vector,Append 0075 00db | | Load_Top At_Offset_3 0076 00e0 | | Load_Encached Standard_Cache 0077 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0078 01cc | | Execute Vector,Catenate 0079 01cb | | Execute Vector,Append 007a e002 | | Load 0x0,0x2 007b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 007c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 007d 0000 0000 | | .XXX[0x3] 007f 0000 | | 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0083 | | .CONST 0x0083 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0001 | | .CONST 0x0001 ; Number of locals 0083 BODY_0080: 0083 INIT_0080: 0083 00da | | Load_Top At_Offset_2 0084 e002 | | Load 0x0,0x2 0085 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0086 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0087 0000 | | .XXX[0x1] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 008b | | .CONST 0x008b ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0001 | | .CONST 0x0001 ; Number of locals 008b BODY_0088: 008b INIT_0088: 008b 00db | | Load_Top At_Offset_3 008c 00db | | Load_Top At_Offset_3 008d e002 | | Load 0x0,0x2 008e 1817 | | Execute Package,Field_Execute,Field_Number 0x17 008f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0093 | | .CONST 0x0093 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0001 | | .CONST 0x0001 ; Number of locals 0093 BODY_0090: 0093 INIT_0090: 0093 00da | | Load_Top At_Offset_2 0094 e002 | | Load 0x0,0x2 0095 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0096 e003 | | Load 0x0,0x3 0097 180e | | Execute Package,Field_Execute,Field_Number 0xe 0098 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0099 0000 0000 | | .BLANK 0000[0x7] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00af | | .CONST 0x00af ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0006 | | .CONST 0x0006 ; Number of locals 00a3 INIT_00a0: 00a3 00e3 | | Load_Encached Natural_Cache 00a4 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 00a5 03e9 | | Declare_Variable Discrete,Duplicate 00a6 e004 | | Load 0x0,0x4 00a7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00a8 03e9 | | Declare_Variable Discrete,Duplicate 00a9 4801 |H | Short_Literal 0x1 00aa 4802 |H | Short_Literal 0x2 00ab e005 | | Load 0x0,0x5 00ac 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00ad 035b | [ | Declare_Type Array,Constrained 00ae 0337 | 7 | Declare_Variable Array 00af BODY_00a0: 00af 00cf | | Action Mark_Auxiliary 00b0 e403 | | Load 0x2,0x3 00b1 00d8 | | Load_Top At_Offset_0 00b2 00d8 | | Load_Top At_Offset_0 00b3 00e4 | | Load_Encached Positive_Cache 00b4 0260 | ` | Execute Discrete,In_Type 00b5 7001 |p | Jump_Nonzero 0xb7 00b6 0801 | | Execute_Immediate Raise,0x1 00b7 e5ff | | Load 0x2,-0x1 00b8 e002 | | Load 0x0,0x2 00b9 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 00ba 0092 010f | | Action Push_String_Extended,0x10f ; "." 00bc 01df | | Execute Vector,Equal 00bd 7005 |p | Jump_Nonzero 0xc3 00be e403 | | Load 0x2,0x3 00bf 0a01 | | Execute_Immediate Plus,0x1 00c0 c403 | | Store 0x2,0x3 00c1 00c9 | | Action Pop_Auxiliary_Loop 00c2 7fed | | Jump 0xb0 00c3 00ce | | Action Pop_Auxiliary 00c4 00db | | Load_Top At_Offset_3 00c5 0aff | | Execute_Immediate Plus,-0x1 00c6 00d8 | | Load_Top At_Offset_0 00c7 00e3 | | Load_Encached Natural_Cache 00c8 0260 | ` | Execute Discrete,In_Type 00c9 7001 |p | Jump_Nonzero 0xcb 00ca 0801 | | Execute_Immediate Raise,0x1 00cb e402 | | Load 0x2,0x2 00cc 00d8 | | Load_Top At_Offset_0 00cd 00e4 | | Load_Encached Positive_Cache 00ce 0260 | ` | Execute Discrete,In_Type 00cf 7001 |p | Jump_Nonzero 0xd1 00d0 0801 | | Execute_Immediate Raise,0x1 00d1 e5ff | | Load 0x2,-0x1 00d2 e002 | | Load 0x0,0x2 00d3 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 00d4 00e2 | | Load_Encached Integer_Cache 00d5 00e0 | | Load_Encached Standard_Cache 00d6 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00d7 4801 |H | Short_Literal 0x1 00d8 00da | | Load_Top At_Offset_2 00d9 01d6 | | Execute Vector,Field_Write 00da 00db | | Load_Top At_Offset_3 00db 0a01 | | Execute_Immediate Plus,0x1 00dc c403 | | Store 0x2,0x3 00dd 00db | | Load_Top At_Offset_3 00de a402 | | Store_Unchecked 0x2,0x2 00df 00cf | | Action Mark_Auxiliary 00e0 e403 | | Load 0x2,0x3 00e1 00d8 | | Load_Top At_Offset_0 00e2 00d8 | | Load_Top At_Offset_0 00e3 00e4 | | Load_Encached Positive_Cache 00e4 0260 | ` | Execute Discrete,In_Type 00e5 7001 |p | Jump_Nonzero 0xe7 00e6 0801 | | Execute_Immediate Raise,0x1 00e7 e5ff | | Load 0x2,-0x1 00e8 e002 | | Load 0x0,0x2 00e9 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 00ea 0092 010f | | Action Push_String_Extended,0x10f ; "." 00ec 01df | | Execute Vector,Equal 00ed 7005 |p | Jump_Nonzero 0xf3 00ee e403 | | Load 0x2,0x3 00ef 0a01 | | Execute_Immediate Plus,0x1 00f0 c403 | | Store 0x2,0x3 00f1 00c9 | | Action Pop_Auxiliary_Loop 00f2 7fed | | Jump 0xe0 00f3 00ce | | Action Pop_Auxiliary 00f4 00db | | Load_Top At_Offset_3 00f5 0aff | | Execute_Immediate Plus,-0x1 00f6 00d8 | | Load_Top At_Offset_0 00f7 00e3 | | Load_Encached Natural_Cache 00f8 0260 | ` | Execute Discrete,In_Type 00f9 7001 |p | Jump_Nonzero 0xfb 00fa 0801 | | Execute_Immediate Raise,0x1 00fb e402 | | Load 0x2,0x2 00fc 00d8 | | Load_Top At_Offset_0 00fd 00e4 | | Load_Encached Positive_Cache 00fe 0260 | ` | Execute Discrete,In_Type 00ff 7001 |p | Jump_Nonzero 0x101 0100 0801 | | Execute_Immediate Raise,0x1 0101 e5ff | | Load 0x2,-0x1 0102 e002 | | Load 0x0,0x2 0103 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0104 00e2 | | Load_Encached Integer_Cache 0105 00e0 | | Load_Encached Standard_Cache 0106 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0107 4802 |H | Short_Literal 0x2 0108 00da | | Load_Top At_Offset_2 0109 01d6 | | Execute Vector,Field_Write 010a 00d8 | | Load_Top At_Offset_0 010b e005 | | Load 0x0,0x5 010c 1b15 | | Execute Package,Field_Read,Field_Number 0x15 010d 01c6 | | Execute Vector,Convert_To_Formal 010e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 010f ; -------------------------------------------------------------------------------------- 010f ; STRING TABLE 010f ; -------------------------------------------------------------------------------------- 010f 0004 | | .STRTAB 0x0004->0x0111 ; "." 0110 0003 | | .STREND 0x0003->0x0111 0111 2e00 |. | .STRTAB_STRINGS 0112 0000 0000 | | .BLANK 0000[0x6] 0118 ; -------------------------------------------------------------------------------------- 0118 ; Debug Table 0118 ; -------------------------------------------------------------------------------------- 0118 0004 000a | | .DEBUG4 0x0004,0x000a,0x4d29,0x0000,0x0001,0x0009 011e 000b 0142 | B| .DBG4T 0x000b,0x0142,0x8000,0x8000 0122 0037 015e | 7 ^| .DBG4T 0x0037,0x015e,0x8000,0x0000 0126 004b 0167 | K g| .DBG4T 0x004b,0x0167,0x0001,0x0000 012a 0053 016a | S j| .DBG4T 0x0053,0x016a,0x0001,0x0000 012e 0063 016d | c m| .DBG4T 0x0063,0x016d,0x0001,0x0000 0132 0083 0173 | s| .DBG4T 0x0083,0x0173,0x0002,0x0000 0136 008b 0176 | v| .DBG4T 0x008b,0x0176,0x0001,0x0000 013a 0093 0179 | y| .DBG4T 0x0093,0x0179,0x0002,0x0000 013e 00a3 017c | || .DBG4T 0x00a3,0x017c,0x0002,0x4000 0142 ; -------------------------------------------------------------------------------------- 0142 ; Debug chain 0142 ; -------------------------------------------------------------------------------------- 0142 000d 0000 | | .DBGLEN 0x000d,0x0000 0144 000b 000f | | .DBGLNO 0x000b,0x000f,0x0014,0x0019,0x001e,0x0023,0x0028,0x002a,0x002c,0x002e,0x0030,0x0032,0x0034 0151 0002 0003 | | .XXX[0xd] 0153 0004 0005 | | 0155 0006 0007 | | 0157 0008 0009 | | 0159 000a 000b | | 015b 000c 000d | | 015d 000e | | 015e ; -------------------------------------------------------------------------------------- 015e ; Debug chain 015e ; -------------------------------------------------------------------------------------- 015e 0007 0000 | | .DBGLEN 0x0007,0x0000 0160 0037 0039 | 7 9| .DBGLNO 0x0037,0x0039,0x003b,0x003d,0x003f,0x0041,0x0043 0167 ; -------------------------------------------------------------------------------------- 0167 ; Debug chain 0167 ; -------------------------------------------------------------------------------------- 0167 0000 0001 | | .DBGLEN 0x0000,0x0001 0169 004b | K | .DBGLNO 0x004b 016a ; -------------------------------------------------------------------------------------- 016a ; Debug chain 016a ; -------------------------------------------------------------------------------------- 016a 0000 0001 | | .DBGLEN 0x0000,0x0001 016c 0053 | S | .DBGLNO 0x0053 016d ; -------------------------------------------------------------------------------------- 016d ; Debug chain 016d ; -------------------------------------------------------------------------------------- 016d 0001 0003 | | .DBGLEN 0x0001,0x0003 016f 0063 0066 | c f| .DBGLNO 0x0063,0x0066,0x006a,0x006e 0173 ; -------------------------------------------------------------------------------------- 0173 ; Debug chain 0173 ; -------------------------------------------------------------------------------------- 0173 0000 0001 | | .DBGLEN 0x0000,0x0001 0175 0083 | | .DBGLNO 0x0083 0176 ; -------------------------------------------------------------------------------------- 0176 ; Debug chain 0176 ; -------------------------------------------------------------------------------------- 0176 0000 0001 | | .DBGLEN 0x0000,0x0001 0178 008b | | .DBGLNO 0x008b 0179 ; -------------------------------------------------------------------------------------- 0179 ; Debug chain 0179 ; -------------------------------------------------------------------------------------- 0179 0000 0001 | | .DBGLEN 0x0000,0x0001 017b 0093 | | .DBGLNO 0x0093 017c ; -------------------------------------------------------------------------------------- 017c ; Debug chain 017c ; -------------------------------------------------------------------------------------- 017c 0003 0009 | | .DBGLEN 0x0003,0x0009 017e 00a3 00a6 | | .DBGLNO 0x00a3,0x00a6,0x00a9,0x00b0,0x00be,0x00c4,0x00da,0x00dd,0x00e0,0x00ee,0x00f4,0x010a 018a 0002 0003 | | .XXX[0x9] 018c 0004 0005 | | 018e 0006 0008 | | 0190 0009 000a | | 0192 000b | | 0193 0000 0000 | | .BLANK 0000[0x6d]