|
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: »13337.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »13337.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »13337.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »13337.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »13337.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »13337.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 0078 | x | .CONST 0x0078 ; 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 0014 | | .CONST 0x0014 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000e | | .CONST 0x000e ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x00aa,0x8000,0x0000,0x0036,0x5604,0x0000,0x0005 ; Debug Table 0x0.0x0 = 0xb,0xffff ; Debug Table 0x0.0x1 = 0xb,0xfffe ; Debug Table 0x0.0x2 = 0xb,0xfffd 000d 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0xd,0xfffc 000f 00bf | | Action Accept_Activation 0010 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1 = .DEBUG 0x0010,0x00b4,0x8000,0x0000,0x0036,0x5614,0x0000,0x0003 ; Debug Table 0x1.0x0 = 0x10,0xffff 0011 00c7 | | Action Elaborate_Subprogram 0012 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x1 = 0x12,0xfffe 0013 00c7 | | Action Elaborate_Subprogram 0014 BODY_0008: 0014 00bc | | Action Signal_Activated 0015 00bb | | Action Signal_Completion 0016 0000 0000 | | .XXX[0x2] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 001b | | .CONST 0x001b ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0001 | | .CONST 0x0001 ; Number of locals 001b BODY_0018: 001b INIT_0018: 001b e5fe | | Load 0x2,-0x2 ; Debug Table 0x2 = .DEBUG 0x001b,0x00ba,0x2801,0x0002,0x0036,0x5604,0x0000,0x0013 ; Debug Table 0x2.0x0 = 0x1b,0x1 001c a5fc | | Store_Unchecked 0x2,-0x4 001d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 001e 0000 0000 | | .XXX[0x2] 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 002d | - | .CONST 0x002d ; Address of begin 0021 0004 | | .CONST 0x0004 ; Address of exception handler 0022 0003 | | .CONST 0x0003 ; Number of locals 0023 INIT_0020: 0023 e5fd | | Load 0x2,-0x3 ; Debug Table 0x3 = .DEBUG 0x0023,0x00be,0x2802,0x0002,0x0036,0x5604,0x0000,0x0026 ; Debug Table 0x3.0x0 = 0x23,0xffff ; Debug Table 0x3.0x1 = 0x23,0xfffe 0024 029f 004b | K| Declare_Subprogram INIT_0048,For_Call 0026 4801 |H | Short_Literal 0x1 0027 032d | - | Declare_Type Record,Defined 0028 e5fe | | Load 0x2,-0x2 ; Debug Table 0x3.0x2 = 0x28,0xfffd 0029 029f 0063 | c| Declare_Subprogram INIT_0060,For_Call 002b 4801 |H | Short_Literal 0x1 002c 032d | - | Declare_Type Record,Defined 002d BODY_0020: 002d e402 | | Load 0x2,0x2 ; Debug Table 0x3.0x3 = 0x2d,0xfffc ; Debug Table 0x3.0x4 = 0x2d,0xfffb ; Debug Table 0x3.0x5 = 0x2d,0x1 ; Debug Table 0x3.0x6 = 0x2d,0x401 002e 0322 | " | Declare_Variable Record ; Debug Table 0x3.0x7 = 0x2e,0x402 002f e5fc | | Load 0x2,-0x4 ; Debug Table 0x3.0x8 = 0x2f,0x403 0030 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x9 = 0x30,0x404 0031 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 ; Debug Table 0x3.0xa = 0x31,0x405 0032 e403 | | Load 0x2,0x3 ; Debug Table 0x3.0xb = 0x32,0x406 0033 011c | | Execute Any,Convert_Unchecked ; Debug Table 0x3.0xc = 0x33,0x407 0034 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 ; Debug Table 0x3.0xd = 0x34,0x408 0035 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 ; Debug Table 0x3.0xe = 0x35,0x409 0036 e5fc | | Load 0x2,-0x4 ; Debug Table 0x3.0xf = 0x36,0x2 0037 e5fd | | Load 0x2,-0x3 0038 0119 | | Execute Any,Check_In_Formal_Type 0039 e5fd | | Load 0x2,-0x3 003a e5fe | | Load 0x2,-0x2 003b 4fff |O | Short_Literal -0x1 003c 4802 |H | Short_Literal 0x2 003d 0099 | | Action Reference_Dynamic 003e 820e | | Call 0x1,0xe 003f e5fe | | Load 0x2,-0x2 0040 0119 | | Execute Any,Check_In_Formal_Type 0041 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0042 0000 0000 | | .BLANK 0000[0x6] 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 4608 |F | Jump_Case 0x9 ; Debug Table 0x4 = .DEBUG 0x004b,0x00e0,0x0805,0x0002,0x0036,0x5624,0x0000,0x0012 004c 7808 |x | Jump 0x55 ; case 0x0 004d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 004e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 004f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 0050 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 0051 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 0052 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6 0053 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7 0054 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8 0055 e7ff | | Load 0x3,-0x1 0056 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0057 0125 | % | Execute Any,Set_Constraint 0058 e7ff | | Load 0x3,-0x1 0059 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 005a 1c00 | | Execute_Immediate Run_Utility,0x0 005b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 005c 0000 0000 | | .BLANK 0000[0x4] 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 0063 | c | .CONST 0x0063 ; Address of begin 0061 0004 | | .CONST 0x0004 ; Address of exception handler 0062 0001 | | .CONST 0x0001 ; Number of locals 0063 BODY_0060: 0063 INIT_0060: 0063 4608 |F | Jump_Case 0x9 ; Debug Table 0x5 = .DEBUG 0x0063,0x00e2,0x0805,0x0002,0x0036,0x5624,0x0000,0x001b 0064 7808 |x | Jump 0x6d ; case 0x0 0065 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0066 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 0067 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 0068 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 0069 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 006a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6 006b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7 006c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8 006d e7ff | | Load 0x3,-0x1 006e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 006f 0125 | % | Execute Any,Set_Constraint 0070 e7ff | | Load 0x3,-0x1 0071 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0072 1c00 | | Execute_Immediate Run_Utility,0x0 0073 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0074 0000 0000 | | .BLANK 0000[0x4] 0078 ; -------------------------------------------------------------------------------------- 0078 ; Debug Table 0078 ; -------------------------------------------------------------------------------------- 0078 0003 0006 | | .CONST 0x0003,0x0006 007a 000b 00aa | | .DEBUG 0x000b,0x00aa,0x8000,0x0000,0x0036,0x5604,0x0000,0x0005 0082 0010 00b4 | | .DEBUG 0x0010,0x00b4,0x8000,0x0000,0x0036,0x5614,0x0000,0x0003 008a 001b 00ba | | .DEBUG 0x001b,0x00ba,0x2801,0x0002,0x0036,0x5604,0x0000,0x0013 0092 0023 00be | # | .DEBUG 0x0023,0x00be,0x2802,0x0002,0x0036,0x5604,0x0000,0x0026 009a 004b 00e0 | K | .DEBUG 0x004b,0x00e0,0x0805,0x0002,0x0036,0x5624,0x0000,0x0012 00a2 0063 00e2 | c | .DEBUG 0x0063,0x00e2,0x0805,0x0002,0x0036,0x5624,0x0000,0x001b 00aa ; -------------------------------------------------------------------------------------- 00aa ; Debug3 Subtable 0x0 00aa ; -------------------------------------------------------------------------------------- 00aa 0004 0000 | | .DBG3TAB 0x0004,0x0000 00ac 000b ffff | | .CONST 0x000b,0xffff 00ae 000b fffe | | .CONST 0x000b,0xfffe 00b0 000b fffd | | .CONST 0x000b,0xfffd 00b2 000d fffc | | .CONST 0x000d,0xfffc 00b4 ; -------------------------------------------------------------------------------------- 00b4 ; Debug3 Subtable 0x1 00b4 ; -------------------------------------------------------------------------------------- 00b4 0002 0000 | | .DBG3TAB 0x0002,0x0000 00b6 0010 ffff | | .CONST 0x0010,0xffff 00b8 0012 fffe | | .CONST 0x0012,0xfffe 00ba ; -------------------------------------------------------------------------------------- 00ba ; Debug3 Subtable 0x2 00ba ; -------------------------------------------------------------------------------------- 00ba 0000 0001 | | .DBG3TAB 0x0000,0x0001 00bc 001b 0001 | | .CONST 0x001b,0x0001 00be ; -------------------------------------------------------------------------------------- 00be ; Debug3 Subtable 0x3 00be ; -------------------------------------------------------------------------------------- 00be 0005 000b | | .DBG3TAB 0x0005,0x000b 00c0 0023 ffff | # | .CONST 0x0023,0xffff 00c2 0023 fffe | # | .CONST 0x0023,0xfffe 00c4 0028 fffd | ( | .CONST 0x0028,0xfffd 00c6 002d fffc | - | .CONST 0x002d,0xfffc 00c8 002d fffb | - | .CONST 0x002d,0xfffb 00ca 002d 0001 | - | .CONST 0x002d,0x0001 00cc 002d 0401 | - | .CONST 0x002d,0x0401 00ce 002e 0402 | . | .CONST 0x002e,0x0402 00d0 002f 0403 | / | .CONST 0x002f,0x0403 00d2 0030 0404 | 0 | .CONST 0x0030,0x0404 00d4 0031 0405 | 1 | .CONST 0x0031,0x0405 00d6 0032 0406 | 2 | .CONST 0x0032,0x0406 00d8 0033 0407 | 3 | .CONST 0x0033,0x0407 00da 0034 0408 | 4 | .CONST 0x0034,0x0408 00dc 0035 0409 | 5 | .CONST 0x0035,0x0409 00de 0036 0002 | 6 | .CONST 0x0036,0x0002 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; Debug3 Subtable 0x4 00e0 ; -------------------------------------------------------------------------------------- 00e0 0000 0000 | | .DBG3TAB 0x0000,0x0000 00e2 ; -------------------------------------------------------------------------------------- 00e2 ; Debug3 Subtable 0x5 00e2 ; -------------------------------------------------------------------------------------- 00e2 0000 0000 | | .DBG3TAB 0x0000,0x0000 00e4 0000 0000 | | .BLANK 0000[0x11c]