|
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: 5805_R1K_CODE
Names: »945170.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »945170.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »945170.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »945170.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »945170.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »945170.SEG«
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5805 |X | .CONST 0x5805 ; 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 0037 | 7 | .CONST 0x0037 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0019 | | .CONST 0x0019 ; Number of locals
000b INIT_0008:
000b 4818 |H | Short_Literal 0x18 ; Debug Table 0x0 = .DEBUG 0x000b,0x00fa,0xc000,0x0000,0x000e,0x26b4,0x0000,0x0003
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected
000d 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xd,0xfffe
000f 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xf,0xfffd
0011 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x11,0xfffc
0013 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x13,0xfffb
0015 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x15,0xfffa
0017 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x17,0xfff9
0019 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x19,0xfff8
001b 4802 |H | Short_Literal 0x2 ; Debug Table 0x0.0x8 = 0x1b,0xfff7
001c 032a | * | Declare_Type Record,Incomplete
001d e219 | | Load 0x1,0x19 ; Debug Table 0x0.0x9 = 0x1d,0xfff6
001e 02a0 | | Declare_Subprogram Null_Subprogram
001f e211 | | Load 0x1,0x11
0020 03c7 | | Complete_Type Access,By_Defining
0021 e20f | | Load 0x1,0xf ; Debug Table 0x0.0xa = 0x21,0xfff5
0022 e211 | | Load 0x1,0x11
0023 029f 0093 | | Declare_Subprogram INIT_0090,For_Call
0025 e219 | | Load 0x1,0x19
0026 0326 | & | Complete_Type Record,By_Defining
0027 00bf | | Action Accept_Activation
0028 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x0028,0x0112,0xc000,0x0000,0x000e,0x29b4,0x0000,0x0003
; Debug Table 0x1.0x0 = 0x28,0xffff
0029 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x1 = 0x29,0xfffe
002a 00c7 | | Action Elaborate_Subprogram
002b 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0x2 = 0x2b,0xfffd
002c 00c7 | | Action Elaborate_Subprogram
002d 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0x3 = 0x2d,0xfffc
002e 00c7 | | Action Elaborate_Subprogram
002f 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0x4 = 0x2f,0xfffb
0030 00c7 | | Action Elaborate_Subprogram
0031 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x5 = 0x31,0xfffa
0032 00c7 | | Action Elaborate_Subprogram
0033 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x1.0x6 = 0x33,0xfff9
0034 00c7 | | Action Elaborate_Subprogram
0035 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0x1.0x7 = 0x35,0xfff8
0036 00c7 | | Action Elaborate_Subprogram
0037 BODY_0008:
0037 00bc | | Action Signal_Activated
0038 00bb | | Action Signal_Completion
0039 0000 0000 | | .BLANK 0000[0x7]
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 e219 | | Load 0x1,0x19 ; Debug Table 0x2 = .DEBUG 0x0043,0x0124,0x1002,0x0000,0x000e,0x26b4,0x0000,0x0020
; Debug Table 0x2.0x0 = 0x43,0x1
0044 0322 | " | Declare_Variable Record
0045 e5ff | | Load 0x2,-0x1
0046 e20f | | Load 0x1,0xf
0047 0119 | | Execute Any,Check_In_Formal_Type
0048 e402 | | Load 0x2,0x2
0049 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
004a e5fe | | Load 0x2,-0x2
004b e402 | | Load 0x2,0x2
004c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
004d e211 | | Load 0x1,0x11
004e 03b6 | | Declare_Variable Access,By_Allocation,With_Value
004f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
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 e211 | | Load 0x1,0x11 ; Debug Table 0x3 = .DEBUG 0x0053,0x0128,0x1002,0x0000,0x000e,0x26b4,0x0000,0x002d
; Debug Table 0x3.0x0 = 0x53,0x1
0054 00ca | | Action Exit_Nullary_Function
0055 0000 0000 | | .XXX[0x3]
0057 0000 | |
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b | [ | .CONST 0x005b ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0001 | | .CONST 0x0001 ; Number of locals
005b BODY_0058:
005b INIT_0058:
005b e5ff | | Load 0x2,-0x1 ; Debug Table 0x4 = .DEBUG 0x005b,0x012c,0x1002,0x0000,0x000e,0x26b4,0x0000,0x0032
; Debug Table 0x4.0x0 = 0x5b,0x1
005c 8213 | | Call 0x1,0x13
005d 022f | / | Execute Access,Equal
005e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
005f 0000 | | .XXX[0x1]
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 e5ff | | Load 0x2,-0x1 ; Debug Table 0x5 = .DEBUG 0x0063,0x0130,0x1002,0x0000,0x000e,0x26b4,0x0000,0x003b
; Debug Table 0x5.0x0 = 0x63,0x1
0064 0227 | ' | Execute Access,All_Reference
0065 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0066 00d8 | | Load_Top At_Offset_0
0067 0120 | | Execute Any,Is_Value
0068 7002 |p | Jump_Nonzero 0x6b
0069 00d8 | | Load_Top At_Offset_0
006a 011e | | Execute Any,Convert
006b e20f | | Load 0x1,0xf
006c 0119 | | Execute Any,Check_In_Formal_Type
006d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
006e 0000 0000 | | .XXX[0x2]
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 e5ff | | Load 0x2,-0x1 ; Debug Table 0x6 = .DEBUG 0x0073,0x0134,0x1002,0x0000,0x000e,0x26b4,0x0000,0x0044
; Debug Table 0x6.0x0 = 0x73,0x1
0074 0227 | ' | Execute Access,All_Reference
0075 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0076 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0077 0000 | | .XXX[0x1]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b | { | .CONST 0x007b ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0001 | | .CONST 0x0001 ; Number of locals
007b BODY_0078:
007b INIT_0078:
007b e5fe | | Load 0x2,-0x2 ; Debug Table 0x7 = .DEBUG 0x007b,0x0138,0x1001,0x0000,0x000e,0x26b4,0x0000,0x004d
; Debug Table 0x7.0x0 = 0x7b,0x1
007c e5ff | | Load 0x2,-0x1
007d 0227 | ' | Execute Access,All_Reference
007e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
007f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
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 e5ff | | Load 0x2,-0x1 ; Debug Table 0x8 = .DEBUG 0x0083,0x013c,0x1001,0x0000,0x000e,0x26b4,0x0000,0x0059
; Debug Table 0x8.0x0 = 0x83,0x1
0084 0229 | ) | Execute Access,All_Read
0085 e402 | | Load 0x2,0x2
0086 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0087 e5fe | | Load 0x2,-0x2
0088 e20f | | Load 0x1,0xf
0089 0119 | | Execute Any,Check_In_Formal_Type
008a 8210 | | Call 0x1,0x10
008b e402 | | Load 0x2,0x2
008c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
008d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
008e 0000 0000 | | .XXX[0x2]
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 4608 |F | Jump_Case 0x9 ; Debug Table 0x9 = .DEBUG 0x0093,0x0140,0x1005,0x0000,0x000e,0x26b4,0x0000,0x006f
0094 7808 |x | Jump 0x9d ; case 0x0
0095 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0096 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
0097 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0098 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0099 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
009a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
009b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7
009c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8
009d e5ff | | Load 0x2,-0x1
009e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
009f 0125 | % | Execute Any,Set_Constraint
00a0 e5ff | | Load 0x2,-0x1
00a1 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00a2 1c00 | | Execute_Immediate Run_Utility,0x0
00a3 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
00a4 0000 0000 | | .BLANK 0000[0x4]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; Debug Table
00a8 ; --------------------------------------------------------------------------------------
00a8 0003 000a | | .CONST 0x0003,0x000a
00aa 000b 00fa | | .DEBUG 0x000b,0x00fa,0xc000,0x0000,0x000e,0x26b4,0x0000,0x0003
00b2 0028 0112 | ( | .DEBUG 0x0028,0x0112,0xc000,0x0000,0x000e,0x29b4,0x0000,0x0003
00ba 0043 0124 | C $| .DEBUG 0x0043,0x0124,0x1002,0x0000,0x000e,0x26b4,0x0000,0x0020
00c2 0053 0128 | S (| .DEBUG 0x0053,0x0128,0x1002,0x0000,0x000e,0x26b4,0x0000,0x002d
00ca 005b 012c | [ ,| .DEBUG 0x005b,0x012c,0x1002,0x0000,0x000e,0x26b4,0x0000,0x0032
00d2 0063 0130 | c 0| .DEBUG 0x0063,0x0130,0x1002,0x0000,0x000e,0x26b4,0x0000,0x003b
00da 0073 0134 | s 4| .DEBUG 0x0073,0x0134,0x1002,0x0000,0x000e,0x26b4,0x0000,0x0044
00e2 007b 0138 | { 8| .DEBUG 0x007b,0x0138,0x1001,0x0000,0x000e,0x26b4,0x0000,0x004d
00ea 0083 013c | <| .DEBUG 0x0083,0x013c,0x1001,0x0000,0x000e,0x26b4,0x0000,0x0059
00f2 0093 0140 | @| .DEBUG 0x0093,0x0140,0x1005,0x0000,0x000e,0x26b4,0x0000,0x006f
00fa ; --------------------------------------------------------------------------------------
00fa ; Debug3 Subtable 0x0
00fa ; --------------------------------------------------------------------------------------
00fa 000b 0000 | | .DBG3TAB 0x000b,0x0000
00fc 000b ffff | | .CONST 0x000b,0xffff
00fe 000d fffe | | .CONST 0x000d,0xfffe
0100 000f fffd | | .CONST 0x000f,0xfffd
0102 0011 fffc | | .CONST 0x0011,0xfffc
0104 0013 fffb | | .CONST 0x0013,0xfffb
0106 0015 fffa | | .CONST 0x0015,0xfffa
0108 0017 fff9 | | .CONST 0x0017,0xfff9
010a 0019 fff8 | | .CONST 0x0019,0xfff8
010c 001b fff7 | | .CONST 0x001b,0xfff7
010e 001d fff6 | | .CONST 0x001d,0xfff6
0110 0021 fff5 | ! | .CONST 0x0021,0xfff5
0112 ; --------------------------------------------------------------------------------------
0112 ; Debug3 Subtable 0x1
0112 ; --------------------------------------------------------------------------------------
0112 0008 0000 | | .DBG3TAB 0x0008,0x0000
0114 0028 ffff | ( | .CONST 0x0028,0xffff
0116 0029 fffe | ) | .CONST 0x0029,0xfffe
0118 002b fffd | + | .CONST 0x002b,0xfffd
011a 002d fffc | - | .CONST 0x002d,0xfffc
011c 002f fffb | / | .CONST 0x002f,0xfffb
011e 0031 fffa | 1 | .CONST 0x0031,0xfffa
0120 0033 fff9 | 3 | .CONST 0x0033,0xfff9
0122 0035 fff8 | 5 | .CONST 0x0035,0xfff8
0124 ; --------------------------------------------------------------------------------------
0124 ; Debug3 Subtable 0x2
0124 ; --------------------------------------------------------------------------------------
0124 0000 0001 | | .DBG3TAB 0x0000,0x0001
0126 0043 0001 | C | .CONST 0x0043,0x0001
0128 ; --------------------------------------------------------------------------------------
0128 ; Debug3 Subtable 0x3
0128 ; --------------------------------------------------------------------------------------
0128 0000 0001 | | .DBG3TAB 0x0000,0x0001
012a 0053 0001 | S | .CONST 0x0053,0x0001
012c ; --------------------------------------------------------------------------------------
012c ; Debug3 Subtable 0x4
012c ; --------------------------------------------------------------------------------------
012c 0000 0001 | | .DBG3TAB 0x0000,0x0001
012e 005b 0001 | [ | .CONST 0x005b,0x0001
0130 ; --------------------------------------------------------------------------------------
0130 ; Debug3 Subtable 0x5
0130 ; --------------------------------------------------------------------------------------
0130 0000 0001 | | .DBG3TAB 0x0000,0x0001
0132 0063 0001 | c | .CONST 0x0063,0x0001
0134 ; --------------------------------------------------------------------------------------
0134 ; Debug3 Subtable 0x6
0134 ; --------------------------------------------------------------------------------------
0134 0000 0001 | | .DBG3TAB 0x0000,0x0001
0136 0073 0001 | s | .CONST 0x0073,0x0001
0138 ; --------------------------------------------------------------------------------------
0138 ; Debug3 Subtable 0x7
0138 ; --------------------------------------------------------------------------------------
0138 0000 0001 | | .DBG3TAB 0x0000,0x0001
013a 007b 0001 | { | .CONST 0x007b,0x0001
013c ; --------------------------------------------------------------------------------------
013c ; Debug3 Subtable 0x8
013c ; --------------------------------------------------------------------------------------
013c 0000 0001 | | .DBG3TAB 0x0000,0x0001
013e 0083 0001 | | .CONST 0x0083,0x0001
0140 ; --------------------------------------------------------------------------------------
0140 ; Debug3 Subtable 0x9
0140 ; --------------------------------------------------------------------------------------
0140 0000 0000 | | .DBG3TAB 0x0000,0x0000
0142 0000 0000 | | .BLANK 0000[0xbe]