|
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: »17433.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »17433.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »17433.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »17433.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »17433.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »17433.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 0080 | | .CONST 0x0080 ; 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 0027 | ' | .CONST 0x0027 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001a | | .CONST 0x001a ; Number of locals
000b INIT_0008:
000b e20f | | Load 0x1,0xf ; Debug Table 0x0 = .DEBUG 0x000b,0x00aa,0xc000,0x0000,0x0036,0x5654,0x0000,0x0007
; Debug Table 0x0.0x0 = 0xb,0xffff
; Debug Table 0x0.0x1 = 0xb,0xfffe
; Debug Table 0x0.0x2 = 0xb,0xfffd
000c e001 | | Load 0x0,0x1
000d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
000e 1c07 | | Execute_Immediate Run_Utility,0x7
000f 0129 | ) | Execute Any,Make_Visible
0010 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x0.0x3 = 0x10,0xfffc
0011 0266 | f | Execute Discrete,Bounds
0012 e210 | | Load 0x1,0x10
0013 029f 0033 | 3| Declare_Subprogram INIT_0030,For_Call
0015 4801 |H | Short_Literal 0x1
0016 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0017 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x17,0xfffb
0019 00bf | | Action Accept_Activation
001a 029d 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call ; Debug Table 0x1 = .DEBUG 0x001a,0x00b6,0xc000,0x0000,0x0036,0x5774,0x0000,0x0005
; Debug Table 0x1.0x0 = 0x1a,0xffff
001c a002 | | Store_Unchecked 0x0,0x2 ; Debug Table 0x1.0x1 = 0x1c,0xfffe
001d 00c6 | | Action Check_Subprogram_Elaborated
001e e210 | | Load 0x1,0x10
001f 00e3 | | Load_Encached Natural_Cache
0020 e211 | | Load 0x1,0x11
0021 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0022 6059 |`Y | Indirect_Literal Discrete,0x7c,{0x00000000, 0x00365774}
0023 4824 |H$ | Short_Literal 0x24
0024 4800 |H | Short_Literal 0x0
0025 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x2 = 0x25,0xfffd
0026 00c7 | | Action Elaborate_Subprogram
0027 BODY_0008:
0027 00bc | | Action Signal_Activated
0028 00bb | | Action Signal_Completion
0029 0000 0000 | | .BLANK 0000[0x7]
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 0033 | 3 | .CONST 0x0033 ; Address of begin
0031 0004 | | .CONST 0x0004 ; Address of exception handler
0032 0001 | | .CONST 0x0001 ; Number of locals
0033 BODY_0030:
0033 INIT_0030:
0033 4605 |F | Jump_Case 0x6 ; Debug Table 0x2 = .DEBUG 0x0033,0x00be,0x1005,0x0000,0x0036,0x5654,0x0000,0x0023
0034 7804 |x | Jump 0x39 ; case 0x0
0035 7819 |x | Jump 0x4f ; case 0x1
0036 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
0037 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0038 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0039 e5ff | | Load 0x2,-0x1 ; case 0x5
003a 01d8 | | Execute Vector,Element_Type
003b 02ff | | Declare_Variable Variant_Record
003c 00d8 | | Load_Top At_Offset_0
003d 1c00 | | Execute_Immediate Run_Utility,0x0
003e e5ff | | Load 0x2,-0x1
003f 01dc | | Execute Vector,Last
0040 e5ff | | Load 0x2,-0x1
0041 01dd | | Execute Vector,First
0042 0263 | c | Execute Discrete,Above_Bound
0043 700a |p | Jump_Nonzero 0x4e
0044 e404 | | Load 0x2,0x4
0045 e5ff | | Load 0x2,-0x1
0046 01d5 | | Execute Vector,Field_Reference
0047 0125 | % | Execute Any,Set_Constraint
0048 e402 | | Load 0x2,0x2
0049 e404 | | Load 0x2,0x4
004a e5ff | | Load 0x2,-0x1
004b 01d6 | | Execute Vector,Field_Write
004c 0a01 | | Execute_Immediate Plus,0x1
004d 7ff4 | | Jump 0x42
004e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
004f e5ff | | Load 0x2,-0x1
0050 01dc | | Execute Vector,Last
0051 e5ff | | Load 0x2,-0x1
0052 01dd | | Execute Vector,First
0053 0263 | c | Execute Discrete,Above_Bound
0054 7006 |p | Jump_Nonzero 0x5b
0055 e403 | | Load 0x2,0x3
0056 e5ff | | Load 0x2,-0x1
0057 01d5 | | Execute Vector,Field_Reference
0058 0125 | % | Execute Any,Set_Constraint
0059 0a01 | | Execute_Immediate Plus,0x1
005a 7ff8 | | Jump 0x53
005b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
005c 0000 0000 | | .BLANK 0000[0x4]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0064 | d | .CONST 0x0064 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0002 | | .CONST 0x0002 ; Number of locals
0063 INIT_0060:
0063 00e2 | | Load_Encached Integer_Cache ; Debug Table 0x3 = .DEBUG 0x0063,0x00c0,0x1001,0x0000,0x0036,0x5654,0x0000,0x002c
; Debug Table 0x3.0x0 = 0x63,0xffff
0064 BODY_0060:
0064 e402 | | Load 0x2,0x2 ; Debug Table 0x3.0x1 = 0x64,0x1
0065 e5ff | | Load 0x2,-0x1
0066 e214 | | Load 0x1,0x14
0067 e215 | | Load 0x1,0x15
0068 e216 | | Load 0x1,0x16
0069 1d17 | | Execute_Immediate Reference_Lex_1,0x17
006a 1d18 | | Execute_Immediate Reference_Lex_1,0x18
006b 8002 | | Call 0x0,0x2
006c 00d1 | | Pop_Control Pop_Count_1
006d c402 | | Store 0x2,0x2
006e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
006f 0000 | | .XXX[0x1]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073 | s | .CONST 0x0073 ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0001 | | .CONST 0x0001 ; Number of locals
0073 BODY_0070:
0073 INIT_0070:
0073 e5fe | | Load 0x2,-0x2 ; Debug Table 0x4 = .DEBUG 0x0073,0x00c6,0x1002,0x0000,0x0036,0x5774,0x0000,0x0006
; Debug Table 0x4.0x0 = 0x73,0x1
0074 e001 | | Load 0x0,0x1
0075 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0076 e5ff | | Load 0x2,-0x1
0077 e001 | | Load 0x0,0x1
0078 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0079 00e0 | | Load_Encached Standard_Cache
007a 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
007b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
007c 0000 0000 | | .LITERAL {0x00000000, 0x00365774}
0080 ; --------------------------------------------------------------------------------------
0080 ; Debug Table
0080 ; --------------------------------------------------------------------------------------
0080 0003 0005 | | .CONST 0x0003,0x0005
0082 000b 00aa | | .DEBUG 0x000b,0x00aa,0xc000,0x0000,0x0036,0x5654,0x0000,0x0007
008a 001a 00b6 | | .DEBUG 0x001a,0x00b6,0xc000,0x0000,0x0036,0x5774,0x0000,0x0005
0092 0033 00be | 3 | .DEBUG 0x0033,0x00be,0x1005,0x0000,0x0036,0x5654,0x0000,0x0023
009a 0063 00c0 | c | .DEBUG 0x0063,0x00c0,0x1001,0x0000,0x0036,0x5654,0x0000,0x002c
00a2 0073 00c6 | s | .DEBUG 0x0073,0x00c6,0x1002,0x0000,0x0036,0x5774,0x0000,0x0006
00aa ; --------------------------------------------------------------------------------------
00aa ; Debug3 Subtable 0x0
00aa ; --------------------------------------------------------------------------------------
00aa 0005 0000 | | .DBG3TAB 0x0005,0x0000
00ac 000b ffff | | .CONST 0x000b,0xffff
00ae 000b fffe | | .CONST 0x000b,0xfffe
00b0 000b fffd | | .CONST 0x000b,0xfffd
00b2 0010 fffc | | .CONST 0x0010,0xfffc
00b4 0017 fffb | | .CONST 0x0017,0xfffb
00b6 ; --------------------------------------------------------------------------------------
00b6 ; Debug3 Subtable 0x1
00b6 ; --------------------------------------------------------------------------------------
00b6 0003 0000 | | .DBG3TAB 0x0003,0x0000
00b8 001a ffff | | .CONST 0x001a,0xffff
00ba 001c fffe | | .CONST 0x001c,0xfffe
00bc 0025 fffd | % | .CONST 0x0025,0xfffd
00be ; --------------------------------------------------------------------------------------
00be ; Debug3 Subtable 0x2
00be ; --------------------------------------------------------------------------------------
00be 0000 0000 | | .DBG3TAB 0x0000,0x0000
00c0 ; --------------------------------------------------------------------------------------
00c0 ; Debug3 Subtable 0x3
00c0 ; --------------------------------------------------------------------------------------
00c0 0001 0001 | | .DBG3TAB 0x0001,0x0001
00c2 0063 ffff | c | .CONST 0x0063,0xffff
00c4 0064 0001 | d | .CONST 0x0064,0x0001
00c6 ; --------------------------------------------------------------------------------------
00c6 ; Debug3 Subtable 0x4
00c6 ; --------------------------------------------------------------------------------------
00c6 0000 0001 | | .DBG3TAB 0x0000,0x0001
00c8 0073 0001 | s | .CONST 0x0073,0x0001
00ca 0000 0000 | | .BLANK 0000[0x136]