|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 DFS Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 DFS Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1024 (0x400)
Types: SEG
Notes: 5811_R1K_CODE
Names: »463891.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »463891.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »463891.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »463891.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »463891.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »463891.SEG«
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 00c8 | | .CONST 0x00c8 ; 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 002f | / | .CONST 0x002f ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0016 | | .CONST 0x0016 ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 ; Debug Table 0x0 = .DEBUG 0x000b,0x010a,0x8000,0x0000,0x0036,0x56f4,0x0000,0x0009 ; Debug Table 0x0.0x0 = 0xb,0xffff ; Debug Table 0x0.0x1 = 0xb,0xfffe ; Debug Table 0x0.0x2 = 0xb,0xfffd 000c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 000d 0129 | ) | Execute Any,Make_Visible 000e e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x3 = 0xe,0xfffc 000f 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0010 0129 | ) | Execute Any,Make_Visible 0011 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x11,0xfffb 0013 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x13,0xfffa 0015 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x15,0xfff9 0017 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x17,0xfff8 0019 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x19,0xfff7 001b 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x1b,0xfff6 001d 00bf | | Action Accept_Activation 001e 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x1 = .DEBUG 0x001e,0x0120,0x8000,0x0000,0x0036,0x5704,0x0000,0x0008 ; Debug Table 0x1.0x0 = 0x1e,0xffff 001f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0020 e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x1 = 0x20,0xfffe ; Debug Table 0x1.0x2 = 0x20,0xfffd 0021 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0022 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0023 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x3 = 0x23,0xfffc 0024 00c7 | | Action Elaborate_Subprogram 0025 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x4 = 0x25,0xfffb 0026 00c7 | | Action Elaborate_Subprogram 0027 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x5 = 0x27,0xfffa 0028 00c7 | | Action Elaborate_Subprogram 0029 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x6 = 0x29,0xfff9 002a 00c7 | | Action Elaborate_Subprogram 002b 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x7 = 0x2b,0xfff8 002c 00c7 | | Action Elaborate_Subprogram 002d 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0x8 = 0x2d,0xfff7 002e 00c7 | | Action Elaborate_Subprogram 002f BODY_0008: 002f 00bc | | Action Signal_Activated 0030 00bb | | Action Signal_Completion 0031 0000 0000 | | .BLANK 0000[0x7] 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 003f | ? | .CONST 0x003f ; Address of begin 0039 0004 | | .CONST 0x0004 ; Address of exception handler 003a 0003 | | .CONST 0x0003 ; Number of locals 003b INIT_0038: 003b e003 | | Load 0x0,0x3 ; Debug Table 0x2 = .DEBUG 0x003b,0x0134,0x0001,0x0000,0x0036,0x56f4,0x0000,0x0023 ; Debug Table 0x2.0x0 = 0x3b,0xffff 003c 1b12 | | Execute Package,Field_Read,Field_Number 0x12 003d e002 | | Load 0x0,0x2 ; Debug Table 0x2.0x1 = 0x3d,0xfffe 003e 1b10 | | Execute Package,Field_Read,Field_Number 0x10 003f BODY_0038: 003f e215 | | Load 0x1,0x15 ; Debug Table 0x2.0x2 = 0x3f,0x1 0040 6805 |h | Jump_Zero 0x46 0041 4800 |H | Short_Literal 0x0 ; Debug Table 0x2.0x3 = 0x41,0x2 0042 a5fe | | Store_Unchecked 0x2,-0x2 0043 4800 |H | Short_Literal 0x0 ; Debug Table 0x2.0x4 = 0x43,0x3 0044 a5ff | | Store_Unchecked 0x2,-0x1 0045 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; Debug Table 0x2.0x5 = 0x45,0x4 0046 e003 | | Load 0x0,0x3 ; Debug Table 0x2.0x6 = 0x46,0x5 0047 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0048 e004 | | Load 0x0,0x4 0049 180e | | Execute Package,Field_Execute,Field_Number 0xe 004a 4800 |H | Short_Literal 0x0 004b 4815 |H | Short_Literal 0x15 004c e005 | | Load 0x0,0x5 004d 180e | | Execute Package,Field_Execute,Field_Number 0xe 004e c402 | | Store 0x2,0x2 004f e402 | | Load 0x2,0x2 ; Debug Table 0x2.0x7 = 0x4f,0x6 0050 6805 |h | Jump_Zero 0x56 0051 4801 |H | Short_Literal 0x1 ; Debug Table 0x2.0x8 = 0x51,0x7 0052 a5fe | | Store_Unchecked 0x2,-0x2 0053 4800 |H | Short_Literal 0x0 ; Debug Table 0x2.0x9 = 0x53,0x8 0054 a5ff | | Store_Unchecked 0x2,-0x1 0055 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; Debug Table 0x2.0xa = 0x55,0x9 0056 e003 | | Load 0x0,0x3 ; Debug Table 0x2.0xb = 0x56,0xa 0057 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0058 e004 | | Load 0x0,0x4 0059 180e | | Execute Package,Field_Execute,Field_Number 0xe 005a 4801 |H | Short_Literal 0x1 005b 4815 |H | Short_Literal 0x15 005c e005 | | Load 0x0,0x5 005d 180e | | Execute Package,Field_Execute,Field_Number 0xe 005e c402 | | Store 0x2,0x2 005f e402 | | Load 0x2,0x2 ; Debug Table 0x2.0xc = 0x5f,0xb 0060 6805 |h | Jump_Zero 0x66 0061 4801 |H | Short_Literal 0x1 ; Debug Table 0x2.0xd = 0x61,0xc 0062 a5fe | | Store_Unchecked 0x2,-0x2 0063 4800 |H | Short_Literal 0x0 ; Debug Table 0x2.0xe = 0x63,0xd 0064 a5ff | | Store_Unchecked 0x2,-0x1 0065 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; Debug Table 0x2.0xf = 0x65,0xe 0066 e002 | | Load 0x0,0x2 ; Debug Table 0x2.0x10 = 0x66,0xf 0067 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0068 e002 | | Load 0x0,0x2 0069 1b15 | | Execute Package,Field_Read,Field_Number 0x15 006a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 006b 4815 |H | Short_Literal 0x15 006c e002 | | Load 0x0,0x2 006d 1b15 | | Execute Package,Field_Read,Field_Number 0x15 006e 180f | | Execute Package,Field_Execute,Field_Number 0xf 006f c216 | | Store 0x1,0x16 0070 c403 | | Store 0x2,0x3 0071 e403 | | Load 0x2,0x3 ; Debug Table 0x2.0x11 = 0x71,0x10 0072 a5fe | | Store_Unchecked 0x2,-0x2 0073 e216 | | Load 0x1,0x16 ; Debug Table 0x2.0x12 = 0x73,0x11 0074 a5ff | | Store_Unchecked 0x2,-0x1 0075 e403 | | Load 0x2,0x3 ; Debug Table 0x2.0x13 = 0x75,0x12 0076 0f03 | | Execute_Immediate Equal,0x3 0077 a215 | | Store_Unchecked 0x1,0x15 0078 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0079 0000 0000 | | .BLANK 0000[0x7] 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 4800 |H | Short_Literal 0x0 ; Debug Table 0x3 = .DEBUG 0x0083,0x015e,0x0001,0x0000,0x0036,0x56f4,0x0000,0x0035 ; Debug Table 0x3.0x0 = 0x83,0x1 0084 a215 | | Store_Unchecked 0x1,0x15 0085 e216 | | Load 0x1,0x16 ; Debug Table 0x3.0x1 = 0x85,0x2 0086 4815 |H | Short_Literal 0x15 0087 e002 | | Load 0x0,0x2 0088 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0089 1810 | | Execute Package,Field_Execute,Field_Number 0x10 008a 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x2 = 0x8a,0x3 008b 4815 |H | Short_Literal 0x15 008c e005 | | Load 0x0,0x5 008d 180f | | Execute Package,Field_Execute,Field_Number 0xf 008e 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0x3 = 0x8e,0x4 008f 4815 |H | Short_Literal 0x15 0090 e005 | | Load 0x0,0x5 0091 180f | | Execute Package,Field_Execute,Field_Number 0xf 0092 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0093 0000 0000 | | .BLANK 0000[0x5] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009b | | .CONST 0x009b ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0001 | | .CONST 0x0001 ; Number of locals 009b BODY_0098: 009b INIT_0098: 009b e215 | | Load 0x1,0x15 ; Debug Table 0x4 = .DEBUG 0x009b,0x0168,0x0002,0x0000,0x0036,0x56f4,0x0000,0x0039 ; Debug Table 0x4.0x0 = 0x9b,0x1 009c 00ca | | Action Exit_Nullary_Function 009d 0000 0000 | | .XXX[0x3] 009f 0000 | | 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a5 | | .CONST 0x00a5 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0002 | | .CONST 0x0002 ; Number of locals 00a3 INIT_00a0: 00a3 e003 | | Load 0x0,0x3 ; Debug Table 0x5 = .DEBUG 0x00a3,0x016c,0x0001,0x0000,0x0036,0x56f4,0x0000,0x003e ; Debug Table 0x5.0x0 = 0xa3,0xffff 00a4 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00a5 BODY_00a0: 00a5 e5fc | | Load 0x2,-0x4 ; Debug Table 0x5.0x1 = 0xa5,0x1 00a6 00e3 | | Load_Encached Natural_Cache 00a7 e003 | | Load 0x0,0x3 00a8 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00a9 e5fe | | Load 0x2,-0x2 00aa 4815 |H | Short_Literal 0x15 00ab e005 | | Load 0x0,0x5 00ac 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00ad c402 | | Store 0x2,0x2 00ae c5fd | | Store 0x2,-0x3 00af 00d1 | | Pop_Control Pop_Count_1 00b0 e402 | | Load 0x2,0x2 ; Debug Table 0x5.0x2 = 0xb0,0x2 00b1 0f00 | | Execute_Immediate Equal,0x0 00b2 0f00 | | Execute_Immediate Equal,0x0 00b3 a5fb | | Store_Unchecked 0x2,-0x5 00b4 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00b5 0000 0000 | | .XXX[0x3] 00b7 0000 | | 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bb | | .CONST 0x00bb ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0001 | | .CONST 0x0001 ; Number of locals 00bb BODY_00b8: 00bb INIT_00b8: 00bb e5fe | | Load 0x2,-0x2 ; Debug Table 0x6 = .DEBUG 0x00bb,0x0174,0x0001,0x0000,0x0036,0x56f4,0x0000,0x005a ; Debug Table 0x6.0x0 = 0xbb,0x1 00bc 4815 |H | Short_Literal 0x15 00bd e005 | | Load 0x0,0x5 00be 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00bf 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c3 | | .CONST 0x00c3 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0001 | | .CONST 0x0001 ; Number of locals 00c3 BODY_00c0: 00c3 INIT_00c0: 00c3 4815 |H | Short_Literal 0x15 ; Debug Table 0x7 = .DEBUG 0x00c3,0x0178,0x0001,0x0000,0x0036,0x56f4,0x0000,0x006a ; Debug Table 0x7.0x0 = 0xc3,0x1 00c4 e005 | | Load 0x0,0x5 00c5 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00c6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00c7 0000 | | .XXX[0x1] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; Debug Table 00c8 ; -------------------------------------------------------------------------------------- 00c8 0003 0008 | | .CONST 0x0003,0x0008 00ca 000b 010a | | .DEBUG 0x000b,0x010a,0x8000,0x0000,0x0036,0x56f4,0x0000,0x0009 00d2 001e 0120 | | .DEBUG 0x001e,0x0120,0x8000,0x0000,0x0036,0x5704,0x0000,0x0008 00da 003b 0134 | ; 4| .DEBUG 0x003b,0x0134,0x0001,0x0000,0x0036,0x56f4,0x0000,0x0023 00e2 0083 015e | ^| .DEBUG 0x0083,0x015e,0x0001,0x0000,0x0036,0x56f4,0x0000,0x0035 00ea 009b 0168 | h| .DEBUG 0x009b,0x0168,0x0002,0x0000,0x0036,0x56f4,0x0000,0x0039 00f2 00a3 016c | l| .DEBUG 0x00a3,0x016c,0x0001,0x0000,0x0036,0x56f4,0x0000,0x003e 00fa 00bb 0174 | t| .DEBUG 0x00bb,0x0174,0x0001,0x0000,0x0036,0x56f4,0x0000,0x005a 0102 00c3 0178 | x| .DEBUG 0x00c3,0x0178,0x0001,0x0000,0x0036,0x56f4,0x0000,0x006a 010a ; -------------------------------------------------------------------------------------- 010a ; Debug3 Subtable 0x0 010a ; -------------------------------------------------------------------------------------- 010a 000a 0000 | | .DBG3TAB 0x000a,0x0000 010c 000b ffff | | .CONST 0x000b,0xffff 010e 000b fffe | | .CONST 0x000b,0xfffe 0110 000b fffd | | .CONST 0x000b,0xfffd 0112 000e fffc | | .CONST 0x000e,0xfffc 0114 0011 fffb | | .CONST 0x0011,0xfffb 0116 0013 fffa | | .CONST 0x0013,0xfffa 0118 0015 fff9 | | .CONST 0x0015,0xfff9 011a 0017 fff8 | | .CONST 0x0017,0xfff8 011c 0019 fff7 | | .CONST 0x0019,0xfff7 011e 001b fff6 | | .CONST 0x001b,0xfff6 0120 ; -------------------------------------------------------------------------------------- 0120 ; Debug3 Subtable 0x1 0120 ; -------------------------------------------------------------------------------------- 0120 0009 0000 | | .DBG3TAB 0x0009,0x0000 0122 001e ffff | | .CONST 0x001e,0xffff 0124 0020 fffe | | .CONST 0x0020,0xfffe 0126 0020 fffd | | .CONST 0x0020,0xfffd 0128 0023 fffc | # | .CONST 0x0023,0xfffc 012a 0025 fffb | % | .CONST 0x0025,0xfffb 012c 0027 fffa | ' | .CONST 0x0027,0xfffa 012e 0029 fff9 | ) | .CONST 0x0029,0xfff9 0130 002b fff8 | + | .CONST 0x002b,0xfff8 0132 002d fff7 | - | .CONST 0x002d,0xfff7 0134 ; -------------------------------------------------------------------------------------- 0134 ; Debug3 Subtable 0x2 0134 ; -------------------------------------------------------------------------------------- 0134 0002 0012 | | .DBG3TAB 0x0002,0x0012 0136 003b ffff | ; | .CONST 0x003b,0xffff 0138 003d fffe | = | .CONST 0x003d,0xfffe 013a 003f 0001 | ? | .CONST 0x003f,0x0001 013c 0041 0002 | A | .CONST 0x0041,0x0002 013e 0043 0003 | C | .CONST 0x0043,0x0003 0140 0045 0004 | E | .CONST 0x0045,0x0004 0142 0046 0005 | F | .CONST 0x0046,0x0005 0144 004f 0006 | O | .CONST 0x004f,0x0006 0146 0051 0007 | Q | .CONST 0x0051,0x0007 0148 0053 0008 | S | .CONST 0x0053,0x0008 014a 0055 0009 | U | .CONST 0x0055,0x0009 014c 0056 000a | V | .CONST 0x0056,0x000a 014e 005f 000b | _ | .CONST 0x005f,0x000b 0150 0061 000c | a | .CONST 0x0061,0x000c 0152 0063 000d | c | .CONST 0x0063,0x000d 0154 0065 000e | e | .CONST 0x0065,0x000e 0156 0066 000f | f | .CONST 0x0066,0x000f 0158 0071 0010 | q | .CONST 0x0071,0x0010 015a 0073 0011 | s | .CONST 0x0073,0x0011 015c 0075 0012 | u | .CONST 0x0075,0x0012 015e ; -------------------------------------------------------------------------------------- 015e ; Debug3 Subtable 0x3 015e ; -------------------------------------------------------------------------------------- 015e 0000 0004 | | .DBG3TAB 0x0000,0x0004 0160 0083 0001 | | .CONST 0x0083,0x0001 0162 0085 0002 | | .CONST 0x0085,0x0002 0164 008a 0003 | | .CONST 0x008a,0x0003 0166 008e 0004 | | .CONST 0x008e,0x0004 0168 ; -------------------------------------------------------------------------------------- 0168 ; Debug3 Subtable 0x4 0168 ; -------------------------------------------------------------------------------------- 0168 0000 0001 | | .DBG3TAB 0x0000,0x0001 016a 009b 0001 | | .CONST 0x009b,0x0001 016c ; -------------------------------------------------------------------------------------- 016c ; Debug3 Subtable 0x5 016c ; -------------------------------------------------------------------------------------- 016c 0001 0002 | | .DBG3TAB 0x0001,0x0002 016e 00a3 ffff | | .CONST 0x00a3,0xffff 0170 00a5 0001 | | .CONST 0x00a5,0x0001 0172 00b0 0002 | | .CONST 0x00b0,0x0002 0174 ; -------------------------------------------------------------------------------------- 0174 ; Debug3 Subtable 0x6 0174 ; -------------------------------------------------------------------------------------- 0174 0000 0001 | | .DBG3TAB 0x0000,0x0001 0176 00bb 0001 | | .CONST 0x00bb,0x0001 0178 ; -------------------------------------------------------------------------------------- 0178 ; Debug3 Subtable 0x7 0178 ; -------------------------------------------------------------------------------------- 0178 0000 0001 | | .DBG3TAB 0x0000,0x0001 017a 00c3 0001 | | .CONST 0x00c3,0x0001 017c 0000 0000 | | .BLANK 0000[0x84]