|
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: »471059.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »471059.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »471059.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »471059.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »471059.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »471059.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 00a8 | | .CONST 0x00a8 ; 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 0016 | | .CONST 0x0016 ; Number of locals 000b INIT_0008: 000b 00e6 | | Load_Encached Float_Cache ; Debug Table 0x0 = .DEBUG 0x000b,0x0102,0x8000,0x0000,0x0036,0x5824,0x0000,0x0005 ; Debug Table 0x0.0x0 = 0xb,0xffff ; Debug Table 0x0.0x1 = 0xb,0xfffe ; Debug Table 0x0.0x2 = 0xb,0xfffd 000c 0129 | ) | Execute Any,Make_Visible 000d 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0xd,0xfffc 000f 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0xf,0xfffb 0011 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x11,0xfffa 0013 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x13,0xfff9 0015 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x15,0xfff8 0017 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x17,0xfff7 0019 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x19,0xfff6 001b 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xa = 0x1b,0xfff5 001d 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xb = 0x1d,0xfff4 001f 00bf | | Action Accept_Activation ; Debug Table 0x0.0xc = 0x1f,0xfff3 0020 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1 = .DEBUG 0x0020,0x011e,0x8000,0x0000,0x0036,0x5834,0x0000,0x0003 ; Debug Table 0x1.0x0 = 0x20,0xffff 0021 00c7 | | Action Elaborate_Subprogram 0022 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x1 = 0x22,0xfffe 0023 00c7 | | Action Elaborate_Subprogram 0024 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x2 = 0x24,0xfffd 0025 00c7 | | Action Elaborate_Subprogram 0026 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x3 = 0x26,0xfffc 0027 00c7 | | Action Elaborate_Subprogram 0028 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0x4 = 0x28,0xfffb 0029 00c7 | | Action Elaborate_Subprogram 002a 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x5 = 0x2a,0xfffa 002b 00c7 | | Action Elaborate_Subprogram 002c 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x6 = 0x2c,0xfff9 002d 00c7 | | Action Elaborate_Subprogram 002e 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0x7 = 0x2e,0xfff8 002f 00c7 | | Action Elaborate_Subprogram 0030 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0x8 = 0x30,0xfff7 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 e5ff | | Load 0x2,-0x1 ; Debug Table 0x2 = .DEBUG 0x003b,0x0132,0x0001,0x0000,0x0036,0x5824,0x0000,0x0017 ; Debug Table 0x2.0x0 = 0x3b,0x1 003c e5fe | | Load 0x2,-0x2 003d 023d | = | Execute Float,Plus 003e a5fd | | Store_Unchecked 0x2,-0x3 003f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 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 e5ff | | Load 0x2,-0x1 ; Debug Table 0x3 = .DEBUG 0x0043,0x0136,0x0001,0x0000,0x0036,0x5824,0x0000,0x0027 ; Debug Table 0x3.0x0 = 0x43,0x1 0044 e5fe | | Load 0x2,-0x2 0045 023c | < | Execute Float,Minus 0046 a5fd | | Store_Unchecked 0x2,-0x3 0047 4503 |E | Exit_Suprogram New_Top_Offset 0x3 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 e5ff | | Load 0x2,-0x1 ; Debug Table 0x4 = .DEBUG 0x004b,0x013a,0x0001,0x0000,0x0036,0x5824,0x0000,0x0037 ; Debug Table 0x4.0x0 = 0x4b,0x1 004c e5fe | | Load 0x2,-0x2 004d 023b | ; | Execute Float,Times 004e a5fd | | Store_Unchecked 0x2,-0x3 004f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 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 e5ff | | Load 0x2,-0x1 ; Debug Table 0x5 = .DEBUG 0x0053,0x013e,0x0001,0x0000,0x0036,0x5824,0x0000,0x0047 ; Debug Table 0x5.0x0 = 0x53,0x1 0054 e5fe | | Load 0x2,-0x2 0055 023a | : | Execute Float,Divide 0056 a5fd | | Store_Unchecked 0x2,-0x3 0057 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 005c | \ | .CONST 0x005c ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0002 | | .CONST 0x0002 ; Number of locals 005b INIT_0058: 005b e20d | | Load 0x1,0xd ; Debug Table 0x6 = .DEBUG 0x005b,0x0142,0x0001,0x0000,0x0036,0x5824,0x0000,0x0057 ; Debug Table 0x6.0x0 = 0x5b,0xffff 005c BODY_0058: 005c e20d | | Load 0x1,0xd ; Debug Table 0x6.0x1 = 0x5c,0x1 005d e5ff | | Load 0x2,-0x1 005e 8216 | | Call 0x1,0x16 005f c402 | | Store 0x2,0x2 0060 e20d | | Load 0x1,0xd ; Debug Table 0x6.0x2 = 0x60,0x2 0061 e5fe | | Load 0x2,-0x2 0062 e402 | | Load 0x2,0x2 0063 8213 | | Call 0x1,0x13 0064 c5fd | | Store 0x2,-0x3 0065 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0066 0000 0000 | | .XXX[0x2] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 006d | m | .CONST 0x006d ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0003 | | .CONST 0x0003 ; Number of locals 006b INIT_0068: 006b e20d | | Load 0x1,0xd ; Debug Table 0x7 = .DEBUG 0x006b,0x014a,0x0001,0x0000,0x0036,0x5824,0x0000,0x0067 ; Debug Table 0x7.0x0 = 0x6b,0xffff 006c e20d | | Load 0x1,0xd ; Debug Table 0x7.0x1 = 0x6c,0xfffe 006d BODY_0068: 006d e20d | | Load 0x1,0xd ; Debug Table 0x7.0x2 = 0x6d,0x1 006e 5835 |X5 | Indirect_Literal Float,0xa4,1.0 006f 8216 | | Call 0x1,0x16 0070 c402 | | Store 0x2,0x2 0071 e20d | | Load 0x1,0xd ; Debug Table 0x7.0x3 = 0x71,0x2 0072 582d |X- | Indirect_Literal Float,0xa0,10.0 0073 8216 | | Call 0x1,0x16 0074 c403 | | Store 0x2,0x3 0075 e5fe | | Load 0x2,-0x2 ; Debug Table 0x7.0x4 = 0x75,0x3 0076 4801 |H | Short_Literal 0x1 0077 0263 | c | Execute Discrete,Above_Bound 0078 7006 |p | Jump_Nonzero 0x7f 0079 e20d | | Load 0x1,0xd ; Debug Table 0x7.0x5 = 0x79,0x4 007a e403 | | Load 0x2,0x3 007b e402 | | Load 0x2,0x2 007c 8210 | | Call 0x1,0x10 007d c402 | | Store 0x2,0x2 007e 3ffa |? | Loop_Increasing 0x79 007f e402 | | Load 0x2,0x2 ; Debug Table 0x7.0x6 = 0x7f,0x5 0080 a5fd | | Store_Unchecked 0x2,-0x3 0081 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0082 0000 0000 | | .BLANK 0000[0x6] 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 e5ff | | Load 0x2,-0x1 ; Debug Table 0x8 = .DEBUG 0x008b,0x015a,0x0001,0x0000,0x0036,0x5824,0x0000,0x0077 ; Debug Table 0x8.0x0 = 0x8b,0x1 008c e5fe | | Load 0x2,-0x2 008d 0244 | D | Execute Float,Less 008e a5fd | | Store_Unchecked 0x2,-0x3 008f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 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 e5ff | | Load 0x2,-0x1 ; Debug Table 0x9 = .DEBUG 0x0093,0x015e,0x0001,0x0000,0x0036,0x5824,0x0000,0x0087 ; Debug Table 0x9.0x0 = 0x93,0x1 0094 a5fe | | Store_Unchecked 0x2,-0x2 0095 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0096 0000 0000 | | .XXX[0x2] 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 e5ff | | Load 0x2,-0x1 ; Debug Table 0xa = .DEBUG 0x009b,0x0162,0x0001,0x0000,0x0036,0x5824,0x0000,0x0093 ; Debug Table 0xa.0x0 = 0x9b,0x1 009c a5fe | | Store_Unchecked 0x2,-0x2 009d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 009e 0000 0000 | | .XXX[0x2] 00a0 4024 0000 |@$ | .DBL 10.0 00a2 0000 0000 | | 00a4 3ff0 0000 |? | .DBL 1.0 00a6 0000 0000 | | 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; Debug Table 00a8 ; -------------------------------------------------------------------------------------- 00a8 0003 000b | | .CONST 0x0003,0x000b 00aa 000b 0102 | | .DEBUG 0x000b,0x0102,0x8000,0x0000,0x0036,0x5824,0x0000,0x0005 00b2 0020 011e | | .DEBUG 0x0020,0x011e,0x8000,0x0000,0x0036,0x5834,0x0000,0x0003 00ba 003b 0132 | ; 2| .DEBUG 0x003b,0x0132,0x0001,0x0000,0x0036,0x5824,0x0000,0x0017 00c2 0043 0136 | C 6| .DEBUG 0x0043,0x0136,0x0001,0x0000,0x0036,0x5824,0x0000,0x0027 00ca 004b 013a | K :| .DEBUG 0x004b,0x013a,0x0001,0x0000,0x0036,0x5824,0x0000,0x0037 00d2 0053 013e | S >| .DEBUG 0x0053,0x013e,0x0001,0x0000,0x0036,0x5824,0x0000,0x0047 00da 005b 0142 | [ B| .DEBUG 0x005b,0x0142,0x0001,0x0000,0x0036,0x5824,0x0000,0x0057 00e2 006b 014a | k J| .DEBUG 0x006b,0x014a,0x0001,0x0000,0x0036,0x5824,0x0000,0x0067 00ea 008b 015a | Z| .DEBUG 0x008b,0x015a,0x0001,0x0000,0x0036,0x5824,0x0000,0x0077 00f2 0093 015e | ^| .DEBUG 0x0093,0x015e,0x0001,0x0000,0x0036,0x5824,0x0000,0x0087 00fa 009b 0162 | b| .DEBUG 0x009b,0x0162,0x0001,0x0000,0x0036,0x5824,0x0000,0x0093 0102 ; -------------------------------------------------------------------------------------- 0102 ; Debug3 Subtable 0x0 0102 ; -------------------------------------------------------------------------------------- 0102 000d 0000 | | .DBG3TAB 0x000d,0x0000 0104 000b ffff | | .CONST 0x000b,0xffff 0106 000b fffe | | .CONST 0x000b,0xfffe 0108 000b fffd | | .CONST 0x000b,0xfffd 010a 000d fffc | | .CONST 0x000d,0xfffc 010c 000f fffb | | .CONST 0x000f,0xfffb 010e 0011 fffa | | .CONST 0x0011,0xfffa 0110 0013 fff9 | | .CONST 0x0013,0xfff9 0112 0015 fff8 | | .CONST 0x0015,0xfff8 0114 0017 fff7 | | .CONST 0x0017,0xfff7 0116 0019 fff6 | | .CONST 0x0019,0xfff6 0118 001b fff5 | | .CONST 0x001b,0xfff5 011a 001d fff4 | | .CONST 0x001d,0xfff4 011c 001f fff3 | | .CONST 0x001f,0xfff3 011e ; -------------------------------------------------------------------------------------- 011e ; Debug3 Subtable 0x1 011e ; -------------------------------------------------------------------------------------- 011e 0009 0000 | | .DBG3TAB 0x0009,0x0000 0120 0020 ffff | | .CONST 0x0020,0xffff 0122 0022 fffe | " | .CONST 0x0022,0xfffe 0124 0024 fffd | $ | .CONST 0x0024,0xfffd 0126 0026 fffc | & | .CONST 0x0026,0xfffc 0128 0028 fffb | ( | .CONST 0x0028,0xfffb 012a 002a fffa | * | .CONST 0x002a,0xfffa 012c 002c fff9 | , | .CONST 0x002c,0xfff9 012e 002e fff8 | . | .CONST 0x002e,0xfff8 0130 0030 fff7 | 0 | .CONST 0x0030,0xfff7 0132 ; -------------------------------------------------------------------------------------- 0132 ; Debug3 Subtable 0x2 0132 ; -------------------------------------------------------------------------------------- 0132 0000 0001 | | .DBG3TAB 0x0000,0x0001 0134 003b 0001 | ; | .CONST 0x003b,0x0001 0136 ; -------------------------------------------------------------------------------------- 0136 ; Debug3 Subtable 0x3 0136 ; -------------------------------------------------------------------------------------- 0136 0000 0001 | | .DBG3TAB 0x0000,0x0001 0138 0043 0001 | C | .CONST 0x0043,0x0001 013a ; -------------------------------------------------------------------------------------- 013a ; Debug3 Subtable 0x4 013a ; -------------------------------------------------------------------------------------- 013a 0000 0001 | | .DBG3TAB 0x0000,0x0001 013c 004b 0001 | K | .CONST 0x004b,0x0001 013e ; -------------------------------------------------------------------------------------- 013e ; Debug3 Subtable 0x5 013e ; -------------------------------------------------------------------------------------- 013e 0000 0001 | | .DBG3TAB 0x0000,0x0001 0140 0053 0001 | S | .CONST 0x0053,0x0001 0142 ; -------------------------------------------------------------------------------------- 0142 ; Debug3 Subtable 0x6 0142 ; -------------------------------------------------------------------------------------- 0142 0001 0002 | | .DBG3TAB 0x0001,0x0002 0144 005b ffff | [ | .CONST 0x005b,0xffff 0146 005c 0001 | \ | .CONST 0x005c,0x0001 0148 0060 0002 | ` | .CONST 0x0060,0x0002 014a ; -------------------------------------------------------------------------------------- 014a ; Debug3 Subtable 0x7 014a ; -------------------------------------------------------------------------------------- 014a 0002 0005 | | .DBG3TAB 0x0002,0x0005 014c 006b ffff | k | .CONST 0x006b,0xffff 014e 006c fffe | l | .CONST 0x006c,0xfffe 0150 006d 0001 | m | .CONST 0x006d,0x0001 0152 0071 0002 | q | .CONST 0x0071,0x0002 0154 0075 0003 | u | .CONST 0x0075,0x0003 0156 0079 0004 | y | .CONST 0x0079,0x0004 0158 007f 0005 | | .CONST 0x007f,0x0005 015a ; -------------------------------------------------------------------------------------- 015a ; Debug3 Subtable 0x8 015a ; -------------------------------------------------------------------------------------- 015a 0000 0001 | | .DBG3TAB 0x0000,0x0001 015c 008b 0001 | | .CONST 0x008b,0x0001 015e ; -------------------------------------------------------------------------------------- 015e ; Debug3 Subtable 0x9 015e ; -------------------------------------------------------------------------------------- 015e 0000 0001 | | .DBG3TAB 0x0000,0x0001 0160 0093 0001 | | .CONST 0x0093,0x0001 0162 ; -------------------------------------------------------------------------------------- 0162 ; Debug3 Subtable 0xa 0162 ; -------------------------------------------------------------------------------------- 0162 0000 0001 | | .DBG3TAB 0x0000,0x0001 0164 009b 0001 | | .CONST 0x009b,0x0001 0166 0000 0000 | | .BLANK 0000[0x9a]