|
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: »997395.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »997395.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »997395.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »997395.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »997395.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »997395.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 00a0 | | .CONST 0x00a0 ; 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 0020 | | .CONST 0x0020 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0014 | | .CONST 0x0014 ; Number of locals
000b INIT_0008:
000b 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x00da,0xc000,0x0000,0x0037,0x0a04,0x0000,0x0003
; Debug Table 0x0.0x0 = 0xb,0xffff
000d 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xd,0xfffe
000f 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xf,0xfffd
0011 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x11,0xfffc
0013 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x13,0xfffb
0015 00bf | | Action Accept_Activation
0016 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1 = .DEBUG 0x0016,0x00e6,0xc000,0x0000,0x0037,0x14f4,0x0000,0x0003
; Debug Table 0x1.0x0 = 0x16,0xffff
0017 00c7 | | Action Elaborate_Subprogram
0018 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x1 = 0x18,0xfffe
0019 00c7 | | Action Elaborate_Subprogram
001a 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x2 = 0x1a,0xfffd
001b 00c7 | | Action Elaborate_Subprogram
001c 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x3 = 0x1c,0xfffc
001d 00c7 | | Action Elaborate_Subprogram
001e 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0x4 = 0x1e,0xfffb
001f 00c7 | | Action Elaborate_Subprogram
0020 BODY_0008:
0020 00bc | | Action Signal_Activated
0021 00bb | | Action Signal_Completion
0022 0000 0000 | | .BLANK 0000[0x6]
0028 ; --------------------------------------------------------------------------------------
0028 ; SUBPROGRAM
0028 ; --------------------------------------------------------------------------------------
0028 002b | + | .CONST 0x002b ; Address of begin
0029 0004 | | .CONST 0x0004 ; Address of exception handler
002a 0001 | | .CONST 0x0001 ; Number of locals
002b BODY_0028:
002b INIT_0028:
002b 00da | | Load_Top At_Offset_2 ; Debug Table 0x2 = .DEBUG 0x002b,0x00f2,0x1002,0x0000,0x0037,0x0a04,0x0000,0x0009
; Debug Table 0x2.0x0 = 0x2b,0x1
002c 0d00 | | Execute_Immediate Less,0x0
002d 6820 |h | Jump_Zero 0x4e
002e 00db | | Load_Top At_Offset_3 ; Debug Table 0x2.0x1 = 0x2e,0x2
002f 0d00 | | Execute_Immediate Less,0x0
0030 680f |h | Jump_Zero 0x40
0031 00da | | Load_Top At_Offset_2 ; Debug Table 0x2.0x2 = 0x31,0x3
0032 0274 | t | Execute Discrete,Absolute_Value
0033 e5fe | | Load 0x2,-0x2
0034 0274 | t | Execute Discrete,Absolute_Value
0035 0273 | s | Execute Discrete,Plus
0036 0aff | | Execute_Immediate Plus,-0x1
0037 e20f | | Load 0x1,0xf
0038 0122 | " | Execute Any,Make_Root_Type
0039 025b | [ | Execute Discrete,Check_In_Type
003a e5fe | | Load 0x2,-0x2
003b 0274 | t | Execute Discrete,Absolute_Value
003c 0270 | p | Execute Discrete,Divide
003d e20f | | Load 0x1,0xf
003e 025b | [ | Execute Discrete,Check_In_Type
003f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0040 00da | | Load_Top At_Offset_2 ; Debug Table 0x2.0x3 = 0x40,0x4
0041 0274 | t | Execute Discrete,Absolute_Value
0042 e5fe | | Load 0x2,-0x2
0043 0273 | s | Execute Discrete,Plus
0044 0aff | | Execute_Immediate Plus,-0x1
0045 e20f | | Load 0x1,0xf
0046 0122 | " | Execute Any,Make_Root_Type
0047 025b | [ | Execute Discrete,Check_In_Type
0048 e5fe | | Load 0x2,-0x2
0049 0270 | p | Execute Discrete,Divide
004a 0275 | u | Execute Discrete,Unary_Minus
004b e20f | | Load 0x1,0xf
004c 025b | [ | Execute Discrete,Check_In_Type
004d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
004e 00db | | Load_Top At_Offset_3 ; Debug Table 0x2.0x4 = 0x4e,0x5
004f 0d00 | | Execute_Immediate Less,0x0
0050 680f |h | Jump_Zero 0x60
0051 00da | | Load_Top At_Offset_2 ; Debug Table 0x2.0x5 = 0x51,0x6
0052 e5fe | | Load 0x2,-0x2
0053 0274 | t | Execute Discrete,Absolute_Value
0054 0273 | s | Execute Discrete,Plus
0055 0aff | | Execute_Immediate Plus,-0x1
0056 e20f | | Load 0x1,0xf
0057 0122 | " | Execute Any,Make_Root_Type
0058 025b | [ | Execute Discrete,Check_In_Type
0059 e5fe | | Load 0x2,-0x2
005a 0274 | t | Execute Discrete,Absolute_Value
005b 0270 | p | Execute Discrete,Divide
005c 0275 | u | Execute Discrete,Unary_Minus
005d e20f | | Load 0x1,0xf
005e 025b | [ | Execute Discrete,Check_In_Type
005f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0060 00da | | Load_Top At_Offset_2 ; Debug Table 0x2.0x6 = 0x60,0x7
0061 e5fe | | Load 0x2,-0x2
0062 0273 | s | Execute Discrete,Plus
0063 0aff | | Execute_Immediate Plus,-0x1
0064 e20f | | Load 0x1,0xf
0065 0122 | " | Execute Any,Make_Root_Type
0066 025b | [ | Execute Discrete,Check_In_Type
0067 e5fe | | Load 0x2,-0x2
0068 0270 | p | Execute Discrete,Divide
0069 e20f | | Load 0x1,0xf
006a 025b | [ | Execute Discrete,Check_In_Type
006b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
006c 0000 0000 | | .BLANK 0000[0x4]
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 0x3 = .DEBUG 0x0073,0x0102,0x1002,0x0000,0x0037,0x0a04,0x0000,0x0016
; Debug Table 0x3.0x0 = 0x73,0x1
0074 4801 |H | Short_Literal 0x1
0075 0279 | y | Execute Discrete,And
0076 0f00 | | Execute_Immediate Equal,0x0
0077 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 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 00da | | Load_Top At_Offset_2 ; Debug Table 0x4 = .DEBUG 0x007b,0x0106,0x1002,0x0000,0x0037,0x0a04,0x0000,0x001f
; Debug Table 0x4.0x0 = 0x7b,0x1
007c 4801 |H | Short_Literal 0x1
007d 0279 | y | Execute Discrete,And
007e 0f01 | | Execute_Immediate Equal,0x1
007f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 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 00da | | Load_Top At_Offset_2 ; Debug Table 0x5 = .DEBUG 0x0083,0x010a,0x1002,0x0000,0x0037,0x0a04,0x0000,0x0028
; Debug Table 0x5.0x0 = 0x83,0x1
0084 e5fe | | Load 0x2,-0x2
0085 027c | | | Execute Discrete,Less
0086 6804 |h | Jump_Zero 0x8b
0087 00da | | Load_Top At_Offset_2 ; Debug Table 0x5.0x1 = 0x87,0x2
0088 e20f | | Load 0x1,0xf
0089 025b | [ | Execute Discrete,Check_In_Type
008a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
008b 00db | | Load_Top At_Offset_3 ; Debug Table 0x5.0x2 = 0x8b,0x3
008c e20f | | Load 0x1,0xf
008d 025b | [ | Execute Discrete,Check_In_Type
008e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
008f 0000 | | .XXX[0x1]
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 00da | | Load_Top At_Offset_2 ; Debug Table 0x6 = .DEBUG 0x0093,0x0112,0x1002,0x0000,0x0037,0x0a04,0x0000,0x0032
; Debug Table 0x6.0x0 = 0x93,0x1
0094 e5fe | | Load 0x2,-0x2
0095 027b | { | Execute Discrete,Greater_Equal
0096 6804 |h | Jump_Zero 0x9b
0097 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x1 = 0x97,0x2
0098 e20f | | Load 0x1,0xf
0099 025b | [ | Execute Discrete,Check_In_Type
009a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
009b 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0x2 = 0x9b,0x3
009c e20f | | Load 0x1,0xf
009d 025b | [ | Execute Discrete,Check_In_Type
009e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
009f 0000 | | .XXX[0x1]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; Debug Table
00a0 ; --------------------------------------------------------------------------------------
00a0 0003 0007 | | .CONST 0x0003,0x0007
00a2 000b 00da | | .DEBUG 0x000b,0x00da,0xc000,0x0000,0x0037,0x0a04,0x0000,0x0003
00aa 0016 00e6 | | .DEBUG 0x0016,0x00e6,0xc000,0x0000,0x0037,0x14f4,0x0000,0x0003
00b2 002b 00f2 | + | .DEBUG 0x002b,0x00f2,0x1002,0x0000,0x0037,0x0a04,0x0000,0x0009
00ba 0073 0102 | s | .DEBUG 0x0073,0x0102,0x1002,0x0000,0x0037,0x0a04,0x0000,0x0016
00c2 007b 0106 | { | .DEBUG 0x007b,0x0106,0x1002,0x0000,0x0037,0x0a04,0x0000,0x001f
00ca 0083 010a | | .DEBUG 0x0083,0x010a,0x1002,0x0000,0x0037,0x0a04,0x0000,0x0028
00d2 0093 0112 | | .DEBUG 0x0093,0x0112,0x1002,0x0000,0x0037,0x0a04,0x0000,0x0032
00da ; --------------------------------------------------------------------------------------
00da ; Debug3 Subtable 0x0
00da ; --------------------------------------------------------------------------------------
00da 0005 0000 | | .DBG3TAB 0x0005,0x0000
00dc 000b ffff | | .CONST 0x000b,0xffff
00de 000d fffe | | .CONST 0x000d,0xfffe
00e0 000f fffd | | .CONST 0x000f,0xfffd
00e2 0011 fffc | | .CONST 0x0011,0xfffc
00e4 0013 fffb | | .CONST 0x0013,0xfffb
00e6 ; --------------------------------------------------------------------------------------
00e6 ; Debug3 Subtable 0x1
00e6 ; --------------------------------------------------------------------------------------
00e6 0005 0000 | | .DBG3TAB 0x0005,0x0000
00e8 0016 ffff | | .CONST 0x0016,0xffff
00ea 0018 fffe | | .CONST 0x0018,0xfffe
00ec 001a fffd | | .CONST 0x001a,0xfffd
00ee 001c fffc | | .CONST 0x001c,0xfffc
00f0 001e fffb | | .CONST 0x001e,0xfffb
00f2 ; --------------------------------------------------------------------------------------
00f2 ; Debug3 Subtable 0x2
00f2 ; --------------------------------------------------------------------------------------
00f2 0000 0007 | | .DBG3TAB 0x0000,0x0007
00f4 002b 0001 | + | .CONST 0x002b,0x0001
00f6 002e 0002 | . | .CONST 0x002e,0x0002
00f8 0031 0003 | 1 | .CONST 0x0031,0x0003
00fa 0040 0004 | @ | .CONST 0x0040,0x0004
00fc 004e 0005 | N | .CONST 0x004e,0x0005
00fe 0051 0006 | Q | .CONST 0x0051,0x0006
0100 0060 0007 | ` | .CONST 0x0060,0x0007
0102 ; --------------------------------------------------------------------------------------
0102 ; Debug3 Subtable 0x3
0102 ; --------------------------------------------------------------------------------------
0102 0000 0001 | | .DBG3TAB 0x0000,0x0001
0104 0073 0001 | s | .CONST 0x0073,0x0001
0106 ; --------------------------------------------------------------------------------------
0106 ; Debug3 Subtable 0x4
0106 ; --------------------------------------------------------------------------------------
0106 0000 0001 | | .DBG3TAB 0x0000,0x0001
0108 007b 0001 | { | .CONST 0x007b,0x0001
010a ; --------------------------------------------------------------------------------------
010a ; Debug3 Subtable 0x5
010a ; --------------------------------------------------------------------------------------
010a 0000 0003 | | .DBG3TAB 0x0000,0x0003
010c 0083 0001 | | .CONST 0x0083,0x0001
010e 0087 0002 | | .CONST 0x0087,0x0002
0110 008b 0003 | | .CONST 0x008b,0x0003
0112 ; --------------------------------------------------------------------------------------
0112 ; Debug3 Subtable 0x6
0112 ; --------------------------------------------------------------------------------------
0112 0000 0003 | | .DBG3TAB 0x0000,0x0003
0114 0093 0001 | | .CONST 0x0093,0x0001
0116 0097 0002 | | .CONST 0x0097,0x0002
0118 009b 0003 | | .CONST 0x009b,0x0003
011a 0000 0000 | | .BLANK 0000[0xe6]