|
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: »13331.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293 └─ ⟦this⟧ »13331.SEG« └─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3 └─ ⟦this⟧ »13331.SEG« └─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288 └─ ⟦this⟧ »13331.SEG« └─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5 └─ ⟦this⟧ »13331.SEG« └─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000 └─ ⟦this⟧ »13331.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 0068 | h | .CONST 0x0068 ; 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 0100 | | .CONST 0x0100 ; 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 0018 | | .CONST 0x0018 ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 ; Debug Table 0x0 = .DEBUG 0x000b,0x0092,0x8000,0x0000,0x0035,0xd6d4,0x0000,0x0007 ; Debug Table 0x0.0x0 = 0xb,0xffff ; Debug Table 0x0.0x1 = 0xb,0xfffe ; Debug Table 0x0.0x2 = 0xb,0xfffd 000c 4802 |H | Short_Literal 0x2 000d 4820 |H | Short_Literal 0x20 000e 026d | m | Execute Discrete,Exponentiate 000f 0aff | | Execute_Immediate Plus,-0x1 0010 00e5 | | Load_Encached Long_Integer_Cache 0011 03f9 | | Declare_Type Discrete,Constrained,Visible 0012 029c 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible ; Debug Table 0x0.0x3 = 0x12,0xfffc ; Debug Table 0x0.0x4 = 0x12,0xfffb 0014 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x5 = 0x14,0xfffa ; Debug Table 0x0.0x6 = 0x14,0xfff9 0015 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0016 0129 | ) | Execute Any,Make_Visible 0017 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x7 = 0x17,0xfff8 ; Debug Table 0x0.0x8 = 0x17,0xfff7 0018 1920 | | Execute Package,Field_Reference,Field_Number 0x20 0019 0129 | ) | Execute Any,Make_Visible 001a 029c 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible ; Debug Table 0x0.0x9 = 0x1a,0xfff6 001c 029c 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible ; Debug Table 0x0.0xa = 0x1c,0xfff5 ; Debug Table 0x0.0xb = 0x1c,0xfff4 001e 6041 |`A | Indirect_Literal Discrete,0x60,{0x00000000, 0x35d6d401} ; Debug Table 0x0.0xc = 0x1e,0xfff3 ; Debug Table 0x0.0xd = 0x1e,0xfff2 001f 0129 | ) | Execute Any,Make_Visible 0020 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0xe = 0x20,0xfff1 0021 603a |`: | Indirect_Literal Discrete,0x5c,{0x00000000, 0x00ffffff} 0022 00e5 | | Load_Encached Long_Integer_Cache 0023 03f9 | | Declare_Type Discrete,Constrained,Visible 0024 e002 | | Load 0x0,0x2 ; Debug Table 0x0.0xf = 0x24,0xfff0 0025 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 0026 0129 | ) | Execute Any,Make_Visible 0027 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x10 = 0x27,0xffef ; Debug Table 0x0.0x11 = 0x27,0xffee ; Debug Table 0x0.0x12 = 0x27,0xffed 0028 191d | | Execute Package,Field_Reference,Field_Number 0x1d 0029 0129 | ) | Execute Any,Make_Visible 002a 00bf | | Action Accept_Activation 002b 00e2 | | Load_Encached Integer_Cache ; Debug Table 0x1 = .DEBUG 0x002b,0x00ba,0x8000,0x0000,0x0035,0xd9c4,0x0000,0x0006 ; Debug Table 0x1.0x0 = 0x2b,0xffff 002c 00d1 | | Pop_Control Pop_Count_1 ; Debug Table 0x1.0x1 = 0x2c,0xfffe 002d e003 | | Load 0x0,0x3 ; Debug Table 0x1.0x2 = 0x2d,0xfffd 002e e20d | | Load 0x1,0xd ; Debug Table 0x1.0x3 = 0x2e,0xfffc 002f BODY_0008: 002f e217 | | Load 0x1,0x17 ; Debug Table 0x1.0x4 = 0x2f,0xfffb ; Debug Table 0x1.0x5 = 0x2f,0xfffa ; Debug Table 0x1.0x6 = 0x2f,0xfff9 ; Debug Table 0x1.0x7 = 0x2f,0xfff8 ; Debug Table 0x1.0x8 = 0x2f,0xfff7 ; Debug Table 0x1.0x9 = 0x2f,0xfff6 ; Debug Table 0x1.0xa = 0x2f,0x1 ; Debug Table 0x1.0xb = 0x2f,0x401 0030 182c | , | Execute Package,Field_Execute,Field_Number 0x2c ; Debug Table 0x1.0xc = 0x30,0x402 0031 c218 | | Store 0x1,0x18 ; Debug Table 0x1.0xd = 0x31,0x403 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 e218 | | Load 0x1,0x18 ; Debug Table 0x2 = .DEBUG 0x003b,0x00d8,0x0002,0x0000,0x0035,0xd6d4,0x0000,0x002c ; Debug Table 0x2.0x0 = 0x3b,0x1 003c 00ca | | Action Exit_Nullary_Function 003d 0000 0000 | | .XXX[0x3] 003f 0000 | | 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,0x00dc,0x0002,0x0000,0x0035,0xd6d4,0x0000,0x004d ; Debug Table 0x3.0x0 = 0x43,0xffff ; Debug Table 0x3.0x1 = 0x43,0xfffe ; Debug Table 0x3.0x2 = 0x43,0x1 ; Debug Table 0x3.0x3 = 0x43,0x401 0044 e217 | | Load 0x1,0x17 ; Debug Table 0x3.0x4 = 0x44,0x402 0045 184c | L | Execute Package,Field_Execute,Field_Number 0x4c ; Debug Table 0x3.0x5 = 0x45,0x403 0046 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 ; Debug Table 0x3.0x6 = 0x46,0x404 0047 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0x7 = 0x47,0x2 0048 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0049 0000 0000 | | .BLANK 0000[0x7] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0053 | S | .CONST 0x0053 ; Address of begin 0051 0059 | Y | .CONST 0x0059 ; Address of exception handler 0052 0001 | | .CONST 0x0001 ; Number of locals 0053 BODY_0050: 0053 INIT_0050: 0053 e5ff | | Load 0x2,-0x1 ; Debug Table 0x4 = .DEBUG 0x0053,0x00ee,0x0001,0x0000,0x0035,0xd6d4,0x0000,0x005b ; Debug Table 0x4.0x0 = 0x53,0xffff ; Debug Table 0x4.0x1 = 0x53,0xfffe ; Debug Table 0x4.0x2 = 0x53,0x1 ; Debug Table 0x4.0x3 = 0x53,0x401 0054 4820 |H | Short_Literal 0x20 ; Debug Table 0x4.0x4 = 0x54,0x402 0055 0251 | Q | Execute Discrete,Logical_Shift ; Debug Table 0x4.0x5 = 0x55,0x403 0056 e003 | | Load 0x0,0x3 ; Debug Table 0x4.0x6 = 0x56,0x2 0057 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 0058 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0059 TRAP_0050: 0059 0007 | | Action Break_Optional 005a e213 | | Load 0x1,0x13 ; Debug Table 0x4.0x7 = 0x5a,0x3 005b 0257 | W | Execute Discrete,Raise 005c 0000 0000 | | .LITERAL {0x00000000, 0x00ffffff} 0060 0000 0000 | | .LITERAL {0x00000000, 0x35d6d401} 0064 0000 0000 | | .BLANK 0000[0x4] 0068 ; -------------------------------------------------------------------------------------- 0068 ; Debug Table 0068 ; -------------------------------------------------------------------------------------- 0068 0003 0005 | | .CONST 0x0003,0x0005 006a 000b 0092 | | .DEBUG 0x000b,0x0092,0x8000,0x0000,0x0035,0xd6d4,0x0000,0x0007 0072 002b 00ba | + | .DEBUG 0x002b,0x00ba,0x8000,0x0000,0x0035,0xd9c4,0x0000,0x0006 007a 003b 00d8 | ; | .DEBUG 0x003b,0x00d8,0x0002,0x0000,0x0035,0xd6d4,0x0000,0x002c 0082 0043 00dc | C | .DEBUG 0x0043,0x00dc,0x0002,0x0000,0x0035,0xd6d4,0x0000,0x004d 008a 0053 00ee | S | .DEBUG 0x0053,0x00ee,0x0001,0x0000,0x0035,0xd6d4,0x0000,0x005b 0092 ; -------------------------------------------------------------------------------------- 0092 ; Debug3 Subtable 0x0 0092 ; -------------------------------------------------------------------------------------- 0092 0013 0000 | | .DBG3TAB 0x0013,0x0000 0094 000b ffff | | .CONST 0x000b,0xffff 0096 000b fffe | | .CONST 0x000b,0xfffe 0098 000b fffd | | .CONST 0x000b,0xfffd 009a 0012 fffc | | .CONST 0x0012,0xfffc 009c 0012 fffb | | .CONST 0x0012,0xfffb 009e 0014 fffa | | .CONST 0x0014,0xfffa 00a0 0014 fff9 | | .CONST 0x0014,0xfff9 00a2 0017 fff8 | | .CONST 0x0017,0xfff8 00a4 0017 fff7 | | .CONST 0x0017,0xfff7 00a6 001a fff6 | | .CONST 0x001a,0xfff6 00a8 001c fff5 | | .CONST 0x001c,0xfff5 00aa 001c fff4 | | .CONST 0x001c,0xfff4 00ac 001e fff3 | | .CONST 0x001e,0xfff3 00ae 001e fff2 | | .CONST 0x001e,0xfff2 00b0 0020 fff1 | | .CONST 0x0020,0xfff1 00b2 0024 fff0 | $ | .CONST 0x0024,0xfff0 00b4 0027 ffef | ' | .CONST 0x0027,0xffef 00b6 0027 ffee | ' | .CONST 0x0027,0xffee 00b8 0027 ffed | ' | .CONST 0x0027,0xffed 00ba ; -------------------------------------------------------------------------------------- 00ba ; Debug3 Subtable 0x1 00ba ; -------------------------------------------------------------------------------------- 00ba 000a 0004 | | .DBG3TAB 0x000a,0x0004 00bc 002b ffff | + | .CONST 0x002b,0xffff 00be 002c fffe | , | .CONST 0x002c,0xfffe 00c0 002d fffd | - | .CONST 0x002d,0xfffd 00c2 002e fffc | . | .CONST 0x002e,0xfffc 00c4 002f fffb | / | .CONST 0x002f,0xfffb 00c6 002f fffa | / | .CONST 0x002f,0xfffa 00c8 002f fff9 | / | .CONST 0x002f,0xfff9 00ca 002f fff8 | / | .CONST 0x002f,0xfff8 00cc 002f fff7 | / | .CONST 0x002f,0xfff7 00ce 002f fff6 | / | .CONST 0x002f,0xfff6 00d0 002f 0001 | / | .CONST 0x002f,0x0001 00d2 002f 0401 | / | .CONST 0x002f,0x0401 00d4 0030 0402 | 0 | .CONST 0x0030,0x0402 00d6 0031 0403 | 1 | .CONST 0x0031,0x0403 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; Debug3 Subtable 0x2 00d8 ; -------------------------------------------------------------------------------------- 00d8 0000 0001 | | .DBG3TAB 0x0000,0x0001 00da 003b 0001 | ; | .CONST 0x003b,0x0001 00dc ; -------------------------------------------------------------------------------------- 00dc ; Debug3 Subtable 0x3 00dc ; -------------------------------------------------------------------------------------- 00dc 0002 0006 | | .DBG3TAB 0x0002,0x0006 00de 0043 ffff | C | .CONST 0x0043,0xffff 00e0 0043 fffe | C | .CONST 0x0043,0xfffe 00e2 0043 0001 | C | .CONST 0x0043,0x0001 00e4 0043 0401 | C | .CONST 0x0043,0x0401 00e6 0044 0402 | D | .CONST 0x0044,0x0402 00e8 0045 0403 | E | .CONST 0x0045,0x0403 00ea 0046 0404 | F | .CONST 0x0046,0x0404 00ec 0047 0002 | G | .CONST 0x0047,0x0002 00ee ; -------------------------------------------------------------------------------------- 00ee ; Debug3 Subtable 0x4 00ee ; -------------------------------------------------------------------------------------- 00ee 0002 0006 | | .DBG3TAB 0x0002,0x0006 00f0 0053 ffff | S | .CONST 0x0053,0xffff 00f2 0053 fffe | S | .CONST 0x0053,0xfffe 00f4 0053 0001 | S | .CONST 0x0053,0x0001 00f6 0053 0401 | S | .CONST 0x0053,0x0401 00f8 0054 0402 | T | .CONST 0x0054,0x0402 00fa 0055 0403 | U | .CONST 0x0055,0x0403 00fc 0056 0002 | V | .CONST 0x0056,0x0002 00fe 005a 0003 | Z | .CONST 0x005a,0x0003 0100 0000 0000 | | .BLANK 0000[0x100]