|
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: »1100818.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »1100818.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »1100818.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »1100818.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »1100818.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »1100818.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 00b0 | | .CONST 0x00b0 ; 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,0x00e2,0x8000,0x0000,0x000e,0x8374,0x0000,0x0005
; Debug Table 0x0.0x0 = 0xb,0xffff
000d 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xd,0xfffe
000f 00bf | | Action Accept_Activation
0010 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1 = .DEBUG 0x0010,0x00e8,0x8000,0x0000,0x000e,0x8384,0x0000,0x0007
; 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 0047 | G | .CONST 0x0047 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0009 | | .CONST 0x0009 ; Number of locals
001b INIT_0018:
001b 00e5 | | Load_Encached Long_Integer_Cache ; Debug Table 0x2 = .DEBUG 0x001b,0x00ee,0x0002,0x0000,0x000e,0x8374,0x0000,0x0006
; Debug Table 0x2.0x0 = 0x1b,0xffff
001c 012c | , | Execute Any,Size
001d e001 | | Load 0x0,0x1
001e 1b12 | | Execute Package,Field_Read,Field_Number 0x12
001f 012c | , | Execute Any,Size
0020 027f | | Execute Discrete,Equal
0021 7002 |p | Jump_Nonzero 0x24
0022 4887 |H | Short_Literal 0x87
0023 0257 | W | Execute Discrete,Raise
0024 e001 | | Load 0x0,0x1 ; Debug Table 0x2.0x1 = 0x24,0xfffe
0025 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0026 029f 0083 | | Declare_Subprogram INIT_0080,For_Call
0028 4801 |H | Short_Literal 0x1
0029 032d | - | Declare_Type Record,Defined
002a 00e5 | | Load_Encached Long_Integer_Cache ; Debug Table 0x2.0x2 = 0x2a,0xfffd
002b 02a0 | | Declare_Subprogram Null_Subprogram
002c 4801 |H | Short_Literal 0x1
002d 032d | - | Declare_Type Record,Defined
002e 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2.0x3 = 0x2e,0xfffc
002f 0322 | " | Declare_Variable Record
0030 e5ff | | Load 0x2,-0x1
0031 e001 | | Load 0x0,0x1
0032 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0033 0119 | | Execute Any,Check_In_Formal_Type
0034 00d9 | | Load_Top At_Offset_1
0035 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0036 e002 | | Load 0x0,0x2 ; Debug Table 0x2.0x4 = 0x36,0xfffb
0037 1950 | P | Execute Package,Field_Reference,Field_Number 0x50
0038 00c6 | | Action Check_Subprogram_Elaborated
0039 00d9 | | Load_Top At_Offset_1
003a 6071 |`q | Indirect_Literal Discrete,0xac,{0x00000000, 0x000e8384}
003b 483e |H> | Short_Literal 0x3e
003c 4808 |H | Short_Literal 0x8
003d 0007 | | Action Break_Optional
003e e404 | | Load 0x2,0x4 ; Debug Table 0x2.0x5 = 0x3e,0xfffa
003f 012d | - | Execute Any,Address
0040 e405 | | Load 0x2,0x5
0041 4806 |H | Short_Literal 0x6
0042 4802 |H | Short_Literal 0x2
0043 0099 | | Action Reference_Dynamic
0044 e002 | | Load 0x0,0x2
0045 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
0046 0007 | | Action Break_Optional ; Debug Table 0x2.0x6 = 0x46,0xfff9
0047 BODY_0018:
0047 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x7 = 0x47,0x1
0048 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0049 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
004a 0000 0000 | | .BLANK 0000[0x6]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 007c | | | .CONST 0x007c ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0009 | | .CONST 0x0009 ; Number of locals
0053 INIT_0050:
0053 00e5 | | Load_Encached Long_Integer_Cache ; Debug Table 0x3 = .DEBUG 0x0053,0x0100,0x0002,0x0000,0x000e,0x8374,0x0000,0x0011
; Debug Table 0x3.0x0 = 0x53,0xffff
0054 012c | , | Execute Any,Size
0055 e001 | | Load 0x0,0x1
0056 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0057 012c | , | Execute Any,Size
0058 027f | | Execute Discrete,Equal
0059 7002 |p | Jump_Nonzero 0x5c
005a 4887 |H | Short_Literal 0x87
005b 0257 | W | Execute Discrete,Raise
005c e001 | | Load 0x0,0x1 ; Debug Table 0x3.0x1 = 0x5c,0xfffe
005d 1b12 | | Execute Package,Field_Read,Field_Number 0x12
005e 029f 009b | | Declare_Subprogram INIT_0098,For_Call
0060 4801 |H | Short_Literal 0x1
0061 032d | - | Declare_Type Record,Defined
0062 00e5 | | Load_Encached Long_Integer_Cache ; Debug Table 0x3.0x2 = 0x62,0xfffd
0063 02a0 | | Declare_Subprogram Null_Subprogram
0064 4801 |H | Short_Literal 0x1
0065 032d | - | Declare_Type Record,Defined
0066 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x3 = 0x66,0xfffc
0067 0322 | " | Declare_Variable Record
0068 e5ff | | Load 0x2,-0x1
0069 00d9 | | Load_Top At_Offset_1
006a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
006b e002 | | Load 0x0,0x2 ; Debug Table 0x3.0x4 = 0x6b,0xfffb
006c 1950 | P | Execute Package,Field_Reference,Field_Number 0x50
006d 00c6 | | Action Check_Subprogram_Elaborated
006e 00da | | Load_Top At_Offset_2
006f 603c |`< | Indirect_Literal Discrete,0xac,{0x00000000, 0x000e8384}
0070 4896 |H | Short_Literal 0x96
0071 4808 |H | Short_Literal 0x8
0072 0007 | | Action Break_Optional
0073 e404 | | Load 0x2,0x4 ; Debug Table 0x3.0x5 = 0x73,0xfffa
0074 012d | - | Execute Any,Address
0075 e405 | | Load 0x2,0x5
0076 4806 |H | Short_Literal 0x6
0077 4802 |H | Short_Literal 0x2
0078 0099 | | Action Reference_Dynamic
0079 e002 | | Load 0x0,0x2
007a 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
007b 0007 | | Action Break_Optional ; Debug Table 0x3.0x6 = 0x7b,0xfff9
007c BODY_0050:
007c 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x7 = 0x7c,0x1
007d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
007e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
007f 0000 | | .XXX[0x1]
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 4608 |F | Jump_Case 0x9 ; Debug Table 0x4 = .DEBUG 0x0083,0x0112,0x0005,0x0000,0x000e,0x8384,0x0000,0x0020
0084 7808 |x | Jump 0x8d ; case 0x0
0085 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0086 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
0087 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0088 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0089 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
008a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
008b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7
008c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8
008d 00da | | Load_Top At_Offset_2
008e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
008f 0125 | % | Execute Any,Set_Constraint
0090 00da | | Load_Top At_Offset_2
0091 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0092 1c00 | | Execute_Immediate Run_Utility,0x0
0093 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0094 0000 0000 | | .BLANK 0000[0x4]
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 4608 |F | Jump_Case 0x9 ; Debug Table 0x5 = .DEBUG 0x009b,0x0114,0x0005,0x0000,0x000e,0x8384,0x0000,0x0078
009c 7808 |x | Jump 0xa5 ; case 0x0
009d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
009e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
009f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
00a0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
00a1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
00a2 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
00a3 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7
00a4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8
00a5 00da | | Load_Top At_Offset_2
00a6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00a7 0125 | % | Execute Any,Set_Constraint
00a8 00da | | Load_Top At_Offset_2
00a9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00aa 1c00 | | Execute_Immediate Run_Utility,0x0
00ab 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
00ac 0000 0000 | | .LITERAL {0x00000000, 0x000e8384}
00b0 ; --------------------------------------------------------------------------------------
00b0 ; Debug Table
00b0 ; --------------------------------------------------------------------------------------
00b0 0003 0006 | | .CONST 0x0003,0x0006
00b2 000b 00e2 | | .DEBUG 0x000b,0x00e2,0x8000,0x0000,0x000e,0x8374,0x0000,0x0005
00ba 0010 00e8 | | .DEBUG 0x0010,0x00e8,0x8000,0x0000,0x000e,0x8384,0x0000,0x0007
00c2 001b 00ee | | .DEBUG 0x001b,0x00ee,0x0002,0x0000,0x000e,0x8374,0x0000,0x0006
00ca 0053 0100 | S | .DEBUG 0x0053,0x0100,0x0002,0x0000,0x000e,0x8374,0x0000,0x0011
00d2 0083 0112 | | .DEBUG 0x0083,0x0112,0x0005,0x0000,0x000e,0x8384,0x0000,0x0020
00da 009b 0114 | | .DEBUG 0x009b,0x0114,0x0005,0x0000,0x000e,0x8384,0x0000,0x0078
00e2 ; --------------------------------------------------------------------------------------
00e2 ; Debug3 Subtable 0x0
00e2 ; --------------------------------------------------------------------------------------
00e2 0002 0000 | | .DBG3TAB 0x0002,0x0000
00e4 000b ffff | | .CONST 0x000b,0xffff
00e6 000d fffe | | .CONST 0x000d,0xfffe
00e8 ; --------------------------------------------------------------------------------------
00e8 ; Debug3 Subtable 0x1
00e8 ; --------------------------------------------------------------------------------------
00e8 0002 0000 | | .DBG3TAB 0x0002,0x0000
00ea 0010 ffff | | .CONST 0x0010,0xffff
00ec 0012 fffe | | .CONST 0x0012,0xfffe
00ee ; --------------------------------------------------------------------------------------
00ee ; Debug3 Subtable 0x2
00ee ; --------------------------------------------------------------------------------------
00ee 0007 0001 | | .DBG3TAB 0x0007,0x0001
00f0 001b ffff | | .CONST 0x001b,0xffff
00f2 0024 fffe | $ | .CONST 0x0024,0xfffe
00f4 002a fffd | * | .CONST 0x002a,0xfffd
00f6 002e fffc | . | .CONST 0x002e,0xfffc
00f8 0036 fffb | 6 | .CONST 0x0036,0xfffb
00fa 003e fffa | > | .CONST 0x003e,0xfffa
00fc 0046 fff9 | F | .CONST 0x0046,0xfff9
00fe 0047 0001 | G | .CONST 0x0047,0x0001
0100 ; --------------------------------------------------------------------------------------
0100 ; Debug3 Subtable 0x3
0100 ; --------------------------------------------------------------------------------------
0100 0007 0001 | | .DBG3TAB 0x0007,0x0001
0102 0053 ffff | S | .CONST 0x0053,0xffff
0104 005c fffe | \ | .CONST 0x005c,0xfffe
0106 0062 fffd | b | .CONST 0x0062,0xfffd
0108 0066 fffc | f | .CONST 0x0066,0xfffc
010a 006b fffb | k | .CONST 0x006b,0xfffb
010c 0073 fffa | s | .CONST 0x0073,0xfffa
010e 007b fff9 | { | .CONST 0x007b,0xfff9
0110 007c 0001 | | | .CONST 0x007c,0x0001
0112 ; --------------------------------------------------------------------------------------
0112 ; Debug3 Subtable 0x4
0112 ; --------------------------------------------------------------------------------------
0112 0000 0000 | | .DBG3TAB 0x0000,0x0000
0114 ; --------------------------------------------------------------------------------------
0114 ; Debug3 Subtable 0x5
0114 ; --------------------------------------------------------------------------------------
0114 0000 0000 | | .DBG3TAB 0x0000,0x0000
0116 0000 0000 | | .BLANK 0000[0xea]