|
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, 5811_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0ea8df
└─⟦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 5811 |X | .CONST 0x5811 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0108 | | .CONST 0x0108 ; 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 0032 | 2 | .CONST 0x0032 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0015 | | .CONST 0x0015 ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 ; Debug Table 0x0 = .DEBUG 0x000b,0x0142,0x8000,0x0000,0x0037,0xdc54,0x0000,0x0005 ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 000d 0129 | ) | Execute Any,Make_Visible 000e e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x1 = 0xe,0xfffe 000f 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 0010 0129 | ) | Execute Any,Make_Visible 0011 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x2 = 0x11,0xfffd 0012 1b41 | A | Execute Package,Field_Read,Field_Number 0x41 0013 0129 | ) | Execute Any,Make_Visible 0014 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x14,0xfffc 0016 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x4 = 0x16,0xfffb 0017 480e |H | Short_Literal 0xe 0018 029f 0043 | C| Declare_Subprogram INIT_0040,For_Call 001a 03fe | | Declare_Type Discrete,Defined,Visible 001b 0007 | | Action Break_Optional ; Debug Table 0x0.0x5 = 0x1b,0xfffa 001c 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x1c,0xfff9 001e 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x1e,0xfff8 0020 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x20,0xfff7 0022 0007 | | Action Break_Optional ; Debug Table 0x0.0x9 = 0x22,0xfff6 0023 0007 | | Action Break_Optional ; Debug Table 0x0.0xa = 0x23,0xfff5 0024 00bf | | Action Accept_Activation ; Debug Table 0x0.0xb = 0x24,0xfff4 0025 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x0025,0x015c,0x8000,0x0000,0x0037,0xdd04,0x0000,0x000d ; Debug Table 0x1.0x0 = 0x25,0xffff 0026 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x1 = 0x26,0xfffe 0027 1b58 | X | Execute Package,Field_Read,Field_Number 0x58 0028 190f | | Execute Package,Field_Reference,Field_Number 0xf 0029 0007 | | Action Break_Optional 002a 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x2 = 0x2a,0xfffd 002b 00c7 | | Action Elaborate_Subprogram 002c 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x3 = 0x2c,0xfffc 002d 00c7 | | Action Elaborate_Subprogram 002e 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x4 = 0x2e,0xfffb 002f 00c7 | | Action Elaborate_Subprogram 0030 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0x5 = 0x30,0xfffa 0031 00c7 | | Action Elaborate_Subprogram 0032 BODY_0008: 0032 00bc | | Action Signal_Activated 0033 00bb | | Action Signal_Completion 0034 0000 0000 | | .BLANK 0000[0x4] 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 003b | ; | .CONST 0x003b ; Address of begin 0039 0004 | | .CONST 0x0004 ; Address of exception handler 003a 0001 | | .CONST 0x0001 ; Number of locals 003b BODY_0038: 003b INIT_0038: 003b 00da | | Load_Top At_Offset_2 ; Debug Table 0x2 = .DEBUG 0x003b,0x016a,0x0002,0x0000,0x0037,0xdc54,0x0000,0x0018 ; Debug Table 0x2.0x0 = 0x3b,0x1 003c 8212 | | Call 0x1,0x12 003d 0d0e | | Execute_Immediate Less,0xe 003e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 003f 0000 | | .XXX[0x1] 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 0043 | C | .CONST 0x0043 ; Address of begin 0041 0004 | | .CONST 0x0004 ; Address of exception handler 0042 0001 | | .CONST 0x0001 ; Number of locals 0043 BODY_0040: 0043 INIT_0040: 0043 4603 |F | Jump_Case 0x4 ; Debug Table 0x3 = .DEBUG 0x0043,0x016e,0x0005,0x0000,0x0037,0xdc54,0x0000,0x0021 0044 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0045 7802 |x | Jump 0x48 ; case 0x1 0046 7805 |x | Jump 0x4c ; case 0x2 0047 7809 |x | Jump 0x51 ; case 0x3 0048 00da | | Load_Top At_Offset_2 0049 0091 00a6 | | Action Push_String_Extended_Indexed,0xa6 ; "CONTROLLED" 004b 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 004c 00db | | Load_Top At_Offset_3 004d 00db | | Load_Top At_Offset_3 004e 00e0 | | Load_Encached Standard_Cache 004f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0050 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0051 00da | | Load_Top At_Offset_2 0052 00e0 | | Load_Encached Standard_Cache 0053 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0054 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0055 0000 0000 | | .XXX[0x3] 0057 0000 | | 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 005d | ] | .CONST 0x005d ; Address of begin 0059 0062 | b | .CONST 0x0062 ; Address of exception handler 005a 0002 | | .CONST 0x0002 ; Number of locals 005b INIT_0058: 005b 00da | | Load_Top At_Offset_2 ; Debug Table 0x4 = .DEBUG 0x005b,0x0170,0x0002,0x0000,0x0037,0xdc54,0x0000,0x003a ; Debug Table 0x4.0x0 = 0x5b,0xffff 005c 8213 | | Call 0x1,0x13 005d BODY_0058: 005d 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x1 = 0x5d,0x1 005e e211 | | Load 0x1,0x11 005f 00e0 | | Load_Encached Standard_Cache 0060 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0061 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0062 TRAP_0058: 0062 010e | | Execute Exception,Is_Constraint_Error 0063 6802 |h | Jump_Zero 0x66 0064 480e |H | Short_Literal 0xe ; Debug Table 0x4.0x2 = 0x64,0x2 0065 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0066 0100 | | Execute Exception,Raise 0067 0000 | | .XXX[0x1] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 006f | o | .CONST 0x006f ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0002 | | .CONST 0x0002 ; Number of locals 006b INIT_0068: 006b 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x5 = .DEBUG 0x006b,0x0178,0x0002,0x0000,0x0037,0xdc54,0x0000,0x0043 ; Debug Table 0x5.0x0 = 0x6b,0xffff 006c 00db | | Load_Top At_Offset_3 006d 8215 | | Call 0x1,0x15 006e 0031 | 1 | Store_Top Heap_Access,At_Offset_1 006f BODY_0068: 006f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x1 = 0x6f,0x1 0070 00eb | | Load_Encached Diana_Cache 0071 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0072 0f40 | @ | Execute_Immediate Equal,0x40 0073 6804 |h | Jump_Zero 0x78 0074 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x2 = 0x74,0x2 0075 e002 | | Load 0x0,0x2 0076 180d | | Execute Package,Field_Execute,Field_Number 0xd 0077 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0078 0092 00b5 | | Action Push_String_Extended,0xb5 ; "Element is not a Pragma" ; Debug Table 0x5.0x3 = 0x78,0x3 007a e003 | | Load 0x0,0x3 007b 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 007c e004 | | Load 0x0,0x4 007d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 007e e001 | | Load 0x0,0x1 ; Debug Table 0x5.0x4 = 0x7e,0x4 007f 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 0080 0257 | W | Execute Discrete,Raise 0081 0000 0000 | | .BLANK 0000[0x7] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 008f | | .CONST 0x008f ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0002 | | .CONST 0x0002 ; Number of locals 008b INIT_0088: 008b 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x6 = .DEBUG 0x008b,0x0184,0x0002,0x0000,0x0037,0xdc54,0x0000,0x004c ; Debug Table 0x6.0x0 = 0x8b,0xffff 008c 00db | | Load_Top At_Offset_3 008d 8215 | | Call 0x1,0x15 008e 0031 | 1 | Store_Top Heap_Access,At_Offset_1 008f BODY_0088: 008f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x1 = 0x8f,0x1 0090 00eb | | Load_Encached Diana_Cache 0091 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0092 0f40 | @ | Execute_Immediate Equal,0x40 0093 6809 |h | Jump_Zero 0x9d 0094 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x2 = 0x94,0x2 0095 00eb | | Load_Encached Diana_Cache 0096 18d9 | | Execute Package,Field_Execute,Field_Number 0xd9 0097 00eb | | Load_Encached Diana_Cache 0098 1889 | | Execute Package,Field_Execute,Field_Number 0x89 0099 e001 | | Load 0x0,0x1 009a 1b58 | X | Execute Package,Field_Read,Field_Number 0x58 009b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 009c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 009d 0092 00b5 | | Action Push_String_Extended,0xb5 ; "Element is not a Pragma" ; Debug Table 0x6.0x3 = 0x9d,0x3 009f e003 | | Load 0x0,0x3 00a0 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 00a1 e004 | | Load 0x0,0x4 00a2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00a3 e001 | | Load 0x0,0x1 ; Debug Table 0x6.0x4 = 0xa3,0x4 00a4 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 00a5 0257 | W | Execute Discrete,Raise 00a6 ; -------------------------------------------------------------------------------------- 00a6 ; STRING TABLE 00a6 ; -------------------------------------------------------------------------------------- 00a6 0022 | " | .STRTAB 0x0022->0x00b7 ; "CONTROLLED" 00a7 002a | * | .STRTAB 0x002a->0x00bc ; "ELABORATE" 00a8 0031 | 1 | .STRTAB 0x0031->0x00c0 ; "INLINE" 00a9 0035 | 5 | .STRTAB 0x0035->0x00c3 ; "INTERFACE" 00aa 003c | < | .STRTAB 0x003c->0x00c8 ; "LIST" 00ab 003e | > | .STRTAB 0x003e->0x00ca ; "MEMORY_SIZE" 00ac 0047 | G | .STRTAB 0x0047->0x00cf ; "OPTIMIZE" 00ad 004d | M | .STRTAB 0x004d->0x00d3 ; "PACK" 00ae 004f | O | .STRTAB 0x004f->0x00d5 ; "PAGE" 00af 0051 | Q | .STRTAB 0x0051->0x00d7 ; "PRIORITY" 00b0 0057 | W | .STRTAB 0x0057->0x00db ; "SHARED" 00b1 005b | [ | .STRTAB 0x005b->0x00de ; "STORAGE_UNIT" 00b2 0065 | e | .STRTAB 0x0065->0x00e4 ; "SUPPRESS" 00b3 006b | k | .STRTAB 0x006b->0x00e8 ; "SYSTEM_NAME" 00b4 0074 | t | .STRTAB 0x0074->0x00ee ; "NOT_A_PREDEFINED_PRAGMA" 00b5 0089 | | .STRTAB 0x0089->0x00f9 ; "Element is not a Pragma" 00b6 009e | | .STREND 0x009e->0x0105 00b7 434f 4e54 |CONT| .STRTAB_STRINGS 0105 0000 0000 | | .XXX[0x3] 0107 0000 | | 0108 ; -------------------------------------------------------------------------------------- 0108 ; Debug Table 0108 ; -------------------------------------------------------------------------------------- 0108 0003 0007 | | .CONST 0x0003,0x0007 010a 000b 0142 | B| .DEBUG 0x000b,0x0142,0x8000,0x0000,0x0037,0xdc54,0x0000,0x0005 0112 0025 015c | % \| .DEBUG 0x0025,0x015c,0x8000,0x0000,0x0037,0xdd04,0x0000,0x000d 011a 003b 016a | ; j| .DEBUG 0x003b,0x016a,0x0002,0x0000,0x0037,0xdc54,0x0000,0x0018 0122 0043 016e | C n| .DEBUG 0x0043,0x016e,0x0005,0x0000,0x0037,0xdc54,0x0000,0x0021 012a 005b 0170 | [ p| .DEBUG 0x005b,0x0170,0x0002,0x0000,0x0037,0xdc54,0x0000,0x003a 0132 006b 0178 | k x| .DEBUG 0x006b,0x0178,0x0002,0x0000,0x0037,0xdc54,0x0000,0x0043 013a 008b 0184 | | .DEBUG 0x008b,0x0184,0x0002,0x0000,0x0037,0xdc54,0x0000,0x004c 0142 ; -------------------------------------------------------------------------------------- 0142 ; Debug3 Subtable 0x0 0142 ; -------------------------------------------------------------------------------------- 0142 000c 0000 | | .DBG3TAB 0x000c,0x0000 0144 000b ffff | | .CONST 0x000b,0xffff 0146 000e fffe | | .CONST 0x000e,0xfffe 0148 0011 fffd | | .CONST 0x0011,0xfffd 014a 0014 fffc | | .CONST 0x0014,0xfffc 014c 0016 fffb | | .CONST 0x0016,0xfffb 014e 001b fffa | | .CONST 0x001b,0xfffa 0150 001c fff9 | | .CONST 0x001c,0xfff9 0152 001e fff8 | | .CONST 0x001e,0xfff8 0154 0020 fff7 | | .CONST 0x0020,0xfff7 0156 0022 fff6 | " | .CONST 0x0022,0xfff6 0158 0023 fff5 | # | .CONST 0x0023,0xfff5 015a 0024 fff4 | $ | .CONST 0x0024,0xfff4 015c ; -------------------------------------------------------------------------------------- 015c ; Debug3 Subtable 0x1 015c ; -------------------------------------------------------------------------------------- 015c 0006 0000 | | .DBG3TAB 0x0006,0x0000 015e 0025 ffff | % | .CONST 0x0025,0xffff 0160 0026 fffe | & | .CONST 0x0026,0xfffe 0162 002a fffd | * | .CONST 0x002a,0xfffd 0164 002c fffc | , | .CONST 0x002c,0xfffc 0166 002e fffb | . | .CONST 0x002e,0xfffb 0168 0030 fffa | 0 | .CONST 0x0030,0xfffa 016a ; -------------------------------------------------------------------------------------- 016a ; Debug3 Subtable 0x2 016a ; -------------------------------------------------------------------------------------- 016a 0000 0001 | | .DBG3TAB 0x0000,0x0001 016c 003b 0001 | ; | .CONST 0x003b,0x0001 016e ; -------------------------------------------------------------------------------------- 016e ; Debug3 Subtable 0x3 016e ; -------------------------------------------------------------------------------------- 016e 0000 0000 | | .DBG3TAB 0x0000,0x0000 0170 ; -------------------------------------------------------------------------------------- 0170 ; Debug3 Subtable 0x4 0170 ; -------------------------------------------------------------------------------------- 0170 0001 0002 | | .DBG3TAB 0x0001,0x0002 0172 005b ffff | [ | .CONST 0x005b,0xffff 0174 005d 0001 | ] | .CONST 0x005d,0x0001 0176 0064 0002 | d | .CONST 0x0064,0x0002 0178 ; -------------------------------------------------------------------------------------- 0178 ; Debug3 Subtable 0x5 0178 ; -------------------------------------------------------------------------------------- 0178 0001 0004 | | .DBG3TAB 0x0001,0x0004 017a 006b ffff | k | .CONST 0x006b,0xffff 017c 006f 0001 | o | .CONST 0x006f,0x0001 017e 0074 0002 | t | .CONST 0x0074,0x0002 0180 0078 0003 | x | .CONST 0x0078,0x0003 0182 007e 0004 | ~ | .CONST 0x007e,0x0004 0184 ; -------------------------------------------------------------------------------------- 0184 ; Debug3 Subtable 0x6 0184 ; -------------------------------------------------------------------------------------- 0184 0001 0004 | | .DBG3TAB 0x0001,0x0004 0186 008b ffff | | .CONST 0x008b,0xffff 0188 008f 0001 | | .CONST 0x008f,0x0001 018a 0094 0002 | | .CONST 0x0094,0x0002 018c 009d 0003 | | .CONST 0x009d,0x0003 018e 00a3 0004 | | .CONST 0x00a3,0x0004 0190 0000 0000 | | .BLANK 0000[0x70]