|
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: »1032210.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293 └─ ⟦this⟧ »1032210.SEG« └─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3 └─ ⟦this⟧ »1032210.SEG« └─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288 └─ ⟦this⟧ »1032210.SEG« └─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5 └─ ⟦this⟧ »1032210.SEG« └─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000 └─ ⟦this⟧ »1032210.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 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 0000 | | .CONST 0x0000 ; 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,0x000e,0x7d94,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,0x000e,0x82e4,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,0x000e,0x7d94,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,0x000e,0x7d94,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,0x000e,0x7d94,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,0x000e,0x7d94,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,0x000e,0x7d94,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,0x000e,0x7d94,0x0000,0x0003 00aa 0016 00e6 | | .DEBUG 0x0016,0x00e6,0xc000,0x0000,0x000e,0x82e4,0x0000,0x0003 00b2 002b 00f2 | + | .DEBUG 0x002b,0x00f2,0x1002,0x0000,0x000e,0x7d94,0x0000,0x0009 00ba 0073 0102 | s | .DEBUG 0x0073,0x0102,0x1002,0x0000,0x000e,0x7d94,0x0000,0x0016 00c2 007b 0106 | { | .DEBUG 0x007b,0x0106,0x1002,0x0000,0x000e,0x7d94,0x0000,0x001f 00ca 0083 010a | | .DEBUG 0x0083,0x010a,0x1002,0x0000,0x000e,0x7d94,0x0000,0x0028 00d2 0093 0112 | | .DEBUG 0x0093,0x0112,0x1002,0x0000,0x000e,0x7d94,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]