|
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: »1003539.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »1003539.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »1003539.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »1003539.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »1003539.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »1003539.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 00d8 | | .CONST 0x00d8 ; 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 0028 | ( | .CONST 0x0028 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0012 | | .CONST 0x0012 ; Number of locals
000b INIT_0008:
000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x0112,0x8000,0x0000,0x0037,0x0834,0x0000,0x0009
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 0007 | | Action Break_Optional ; Debug Table 0x0.0x1 = 0xc,0xfffe
000d 0007 | | Action Break_Optional ; Debug Table 0x0.0x2 = 0xd,0xfffd
000e 0007 | | Action Break_Optional ; Debug Table 0x0.0x3 = 0xe,0xfffc
000f 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0xf,0xfffb
0011 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x11,0xfffa
0013 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x13,0xfff9
0015 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x15,0xfff8
0017 00bf | | Action Accept_Activation
0018 60b7 |` | Indirect_Literal Discrete,0xd0,{0x00000000, 0x00080000} ; Debug Table 0x1 = .DEBUG 0x0018,0x0124,0x8000,0x0000,0x0037,0x0b84,0x0000,0x0007
; Debug Table 0x1.0x0 = 0x18,0xffff
0019 60b2 |` | Indirect_Literal Discrete,0xcc,{0x00000000, 0x00ffffff}
001a e001 | | Load 0x0,0x1
001b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
001c 00e3 | | Load_Encached Natural_Cache
001d 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
001e 029d 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call ; Debug Table 0x1.0x1 = 0x1e,0xfffe
0020 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x2 = 0x20,0xfffd
0021 00c7 | | Action Elaborate_Subprogram
0022 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x3 = 0x22,0xfffc
0023 00c7 | | Action Elaborate_Subprogram
0024 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0x4 = 0x24,0xfffb
0025 00c7 | | Action Elaborate_Subprogram
0026 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x5 = 0x26,0xfffa
0027 00c7 | | Action Elaborate_Subprogram
0028 BODY_0008:
0028 8212 | | Call 0x1,0x12 ; Debug Table 0x1.0x6 = 0x28,0x1
0029 00bc | | Action Signal_Activated
002a 00bb | | Action Signal_Completion
002b 0000 0000 | | .BLANK 0000[0x5]
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 e002 | | Load 0x0,0x2 ; Debug Table 0x2 = .DEBUG 0x0033,0x0134,0x0002,0x0000,0x0037,0x0834,0x0000,0x001f
; Debug Table 0x2.0x0 = 0x33,0x1
0034 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0035 0322 | " | Declare_Variable Record
0036 4bff |K | Short_Literal 0x3ff
0037 00d9 | | Load_Top At_Offset_1
0038 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0039 4804 |H | Short_Literal 0x4
003a 00d9 | | Load_Top At_Offset_1
003b 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
003c e002 | | Load 0x0,0x2
003d 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
003e 00dc | | Load_Top At_Offset_4
003f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0040 e211 | | Load 0x1,0x11
0041 0271 | q | Execute Discrete,Times
0042 00dd | | Load_Top At_Offset_5
0043 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0044 09ed | | Execute_Immediate Binary_Scale,-0x13
0045 0273 | s | Execute Discrete,Plus
0046 0248 | H | Execute Discrete,Check_In_Integer
0047 e003 | | Load 0x0,0x3
0048 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0049 025b | [ | Execute Discrete,Check_In_Type
004a 0273 | s | Execute Discrete,Plus
004b 00d9 | | Load_Top At_Offset_1
004c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
004d 00db | | Load_Top At_Offset_3
004e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
004f 6078 |`x | Indirect_Literal Discrete,0xc8,{0x00000000, 0x0007ffff}
0050 0279 | y | Execute Discrete,And
0051 e002 | | Load 0x0,0x2
0052 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0053 025b | [ | Execute Discrete,Check_In_Type
0054 00d9 | | Load_Top At_Offset_1
0055 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0056 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0057 0000 | | .XXX[0x1]
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 00da | | Load_Top At_Offset_2 ; Debug Table 0x3 = .DEBUG 0x005b,0x0138,0x0002,0x0000,0x0037,0x0834,0x0000,0x002c
; Debug Table 0x3.0x0 = 0x5b,0x1
005c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
005d 4bff |K | Short_Literal 0x3ff
005e 027f | | Execute Discrete,Equal
005f 680c |h | Jump_Zero 0x6c
0060 00da | | Load_Top At_Offset_2
0061 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0062 0f02 | | Execute_Immediate Equal,0x2
0063 6808 |h | Jump_Zero 0x6c
0064 00da | | Load_Top At_Offset_2
0065 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0066 e002 | | Load 0x0,0x2
0067 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
0068 e002 | | Load 0x0,0x2
0069 1b3e | > | Execute Package,Field_Read,Field_Number 0x3e
006a 0262 | b | Execute Discrete,In_Range
006b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
006c 4800 |H | Short_Literal 0x0
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 00da | | Load_Top At_Offset_2 ; Debug Table 0x4 = .DEBUG 0x0073,0x013c,0x0002,0x0000,0x0037,0x0834,0x0000,0x0037
; Debug Table 0x4.0x0 = 0x73,0x1
0074 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0075 4bff |K | Short_Literal 0x3ff
0076 027f | | Execute Discrete,Equal
0077 680c |h | Jump_Zero 0x84
0078 00da | | Load_Top At_Offset_2
0079 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
007a 0f04 | | Execute_Immediate Equal,0x4
007b 6808 |h | Jump_Zero 0x84
007c 00da | | Load_Top At_Offset_2
007d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
007e e002 | | Load 0x0,0x2
007f 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
0080 e002 | | Load 0x0,0x2
0081 1b3e | > | Execute Package,Field_Read,Field_Number 0x3e
0082 0262 | b | Execute Discrete,In_Range
0083 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0084 4800 |H | Short_Literal 0x0
0085 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0086 0000 0000 | | .XXX[0x2]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 0094 | | .CONST 0x0094 ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0002 | | .CONST 0x0002 ; Number of locals
008b INIT_0088:
008b 00da | | Load_Top At_Offset_2 ; Debug Table 0x5 = .DEBUG 0x008b,0x0140,0x0002,0x0000,0x0037,0x0834,0x0000,0x0042
; Debug Table 0x5.0x0 = 0x8b,0xffff
008c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
008d e002 | | Load 0x0,0x2
008e 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
008f 0272 | r | Execute Discrete,Minus
0090 00e3 | | Load_Encached Natural_Cache
0091 025b | [ | Execute Discrete,Check_In_Type
0092 00e3 | | Load_Encached Natural_Cache
0093 03f1 | | Declare_Variable Discrete,With_Value
0094 BODY_0088:
0094 e004 | | Load 0x0,0x4 ; Debug Table 0x5.0x1 = 0x94,0x1
0095 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0096 0322 | " | Declare_Variable Record
0097 00d9 | | Load_Top At_Offset_1
0098 e211 | | Load 0x1,0x11
0099 0270 | p | Execute Discrete,Divide
009a e004 | | Load 0x0,0x4
009b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
009c 025b | [ | Execute Discrete,Check_In_Type
009d 00d9 | | Load_Top At_Offset_1
009e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
009f 00d9 | | Load_Top At_Offset_1
00a0 e211 | | Load 0x1,0x11
00a1 026e | n | Execute Discrete,Modulo
00a2 0913 | | Execute_Immediate Binary_Scale,0x13
00a3 0248 | H | Execute Discrete,Check_In_Integer
00a4 00dd | | Load_Top At_Offset_5
00a5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00a6 0273 | s | Execute Discrete,Plus
00a7 e004 | | Load 0x0,0x4
00a8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00a9 025b | [ | Execute Discrete,Check_In_Type
00aa 00d9 | | Load_Top At_Offset_1
00ab 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00ac 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00ad 0000 0000 | | .XXX[0x3]
00af 0000 | |
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 0007 | | Action Break_Optional ; Debug Table 0x6 = .DEBUG 0x00b3,0x0146,0x0001,0x0000,0x0037,0x0b84,0x0000,0x001e
; Debug Table 0x6.0x0 = 0xb3,0x1
00b4 e002 | | Load 0x0,0x2 ; Debug Table 0x6.0x1 = 0xb4,0x2
00b5 1b3e | > | Execute Package,Field_Read,Field_Number 0x3e
00b6 e002 | | Load 0x0,0x2
00b7 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
00b8 0272 | r | Execute Discrete,Minus
00b9 00e3 | | Load_Encached Natural_Cache
00ba 025b | [ | Execute Discrete,Check_In_Type
00bb 0a01 | | Execute_Immediate Plus,0x1
00bc 0248 | H | Execute Discrete,Check_In_Integer
00bd 0913 | | Execute_Immediate Binary_Scale,0x13
00be 6005 |` | Indirect_Literal Discrete,0xc4,{0x00000000, 0x1effffe1}
00bf 027b | { | Execute Discrete,Greater_Equal
00c0 7002 |p | Jump_Nonzero 0xc3
00c1 4887 |H | Short_Literal 0x87
00c2 0257 | W | Execute Discrete,Raise
00c3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; Debug Table 0x6.0x2 = 0xc3,0x3
00c4 0000 0000 | | .LITERAL {0x00000000, 0x1effffe1}
00c8 0000 0000 | | .LITERAL {0x00000000, 0x0007ffff}
00cc 0000 0000 | | .LITERAL {0x00000000, 0x00ffffff}
00d0 0000 0000 | | .LITERAL {0x00000000, 0x00080000}
00d4 0000 0000 | | .BLANK 0000[0x4]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; Debug Table
00d8 ; --------------------------------------------------------------------------------------
00d8 0003 0007 | | .CONST 0x0003,0x0007
00da 000b 0112 | | .DEBUG 0x000b,0x0112,0x8000,0x0000,0x0037,0x0834,0x0000,0x0009
00e2 0018 0124 | $| .DEBUG 0x0018,0x0124,0x8000,0x0000,0x0037,0x0b84,0x0000,0x0007
00ea 0033 0134 | 3 4| .DEBUG 0x0033,0x0134,0x0002,0x0000,0x0037,0x0834,0x0000,0x001f
00f2 005b 0138 | [ 8| .DEBUG 0x005b,0x0138,0x0002,0x0000,0x0037,0x0834,0x0000,0x002c
00fa 0073 013c | s <| .DEBUG 0x0073,0x013c,0x0002,0x0000,0x0037,0x0834,0x0000,0x0037
0102 008b 0140 | @| .DEBUG 0x008b,0x0140,0x0002,0x0000,0x0037,0x0834,0x0000,0x0042
010a 00b3 0146 | F| .DEBUG 0x00b3,0x0146,0x0001,0x0000,0x0037,0x0b84,0x0000,0x001e
0112 ; --------------------------------------------------------------------------------------
0112 ; Debug3 Subtable 0x0
0112 ; --------------------------------------------------------------------------------------
0112 0008 0000 | | .DBG3TAB 0x0008,0x0000
0114 000b ffff | | .CONST 0x000b,0xffff
0116 000c fffe | | .CONST 0x000c,0xfffe
0118 000d fffd | | .CONST 0x000d,0xfffd
011a 000e fffc | | .CONST 0x000e,0xfffc
011c 000f fffb | | .CONST 0x000f,0xfffb
011e 0011 fffa | | .CONST 0x0011,0xfffa
0120 0013 fff9 | | .CONST 0x0013,0xfff9
0122 0015 fff8 | | .CONST 0x0015,0xfff8
0124 ; --------------------------------------------------------------------------------------
0124 ; Debug3 Subtable 0x1
0124 ; --------------------------------------------------------------------------------------
0124 0006 0001 | | .DBG3TAB 0x0006,0x0001
0126 0018 ffff | | .CONST 0x0018,0xffff
0128 001e fffe | | .CONST 0x001e,0xfffe
012a 0020 fffd | | .CONST 0x0020,0xfffd
012c 0022 fffc | " | .CONST 0x0022,0xfffc
012e 0024 fffb | $ | .CONST 0x0024,0xfffb
0130 0026 fffa | & | .CONST 0x0026,0xfffa
0132 0028 0001 | ( | .CONST 0x0028,0x0001
0134 ; --------------------------------------------------------------------------------------
0134 ; Debug3 Subtable 0x2
0134 ; --------------------------------------------------------------------------------------
0134 0000 0001 | | .DBG3TAB 0x0000,0x0001
0136 0033 0001 | 3 | .CONST 0x0033,0x0001
0138 ; --------------------------------------------------------------------------------------
0138 ; Debug3 Subtable 0x3
0138 ; --------------------------------------------------------------------------------------
0138 0000 0001 | | .DBG3TAB 0x0000,0x0001
013a 005b 0001 | [ | .CONST 0x005b,0x0001
013c ; --------------------------------------------------------------------------------------
013c ; Debug3 Subtable 0x4
013c ; --------------------------------------------------------------------------------------
013c 0000 0001 | | .DBG3TAB 0x0000,0x0001
013e 0073 0001 | s | .CONST 0x0073,0x0001
0140 ; --------------------------------------------------------------------------------------
0140 ; Debug3 Subtable 0x5
0140 ; --------------------------------------------------------------------------------------
0140 0001 0001 | | .DBG3TAB 0x0001,0x0001
0142 008b ffff | | .CONST 0x008b,0xffff
0144 0094 0001 | | .CONST 0x0094,0x0001
0146 ; --------------------------------------------------------------------------------------
0146 ; Debug3 Subtable 0x6
0146 ; --------------------------------------------------------------------------------------
0146 0000 0003 | | .DBG3TAB 0x0000,0x0003
0148 00b3 0001 | | .CONST 0x00b3,0x0001
014a 00b4 0002 | | .CONST 0x00b4,0x0002
014c 00c3 0003 | | .CONST 0x00c3,0x0003
014e 0000 0000 | | .BLANK 0000[0xb2]