|
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: »1004563.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »1004563.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »1004563.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »1004563.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »1004563.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »1004563.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 00d0 | | .CONST 0x00d0 ; 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 0018 | | .CONST 0x0018 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0010 | | .CONST 0x0010 ; Number of locals 000b INIT_0008: 000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x0102,0x8000,0x0000,0x0037,0x09d4,0x0000,0x0005 ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xc,0xfffe 000e 00bf | | Action Accept_Activation 000f 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x000f,0x0108,0x8000,0x0000,0x0037,0x09e4,0x0000,0x000d ; Debug Table 0x1.0x0 = 0xf,0xffff 0010 029d 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call ; Debug Table 0x1.0x1 = 0x10,0xfffe 0012 029d 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call ; Debug Table 0x1.0x2 = 0x12,0xfffd 0014 029d 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call ; Debug Table 0x1.0x3 = 0x14,0xfffc 0016 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0x4 = 0x16,0xfffb 0017 00c7 | | Action Elaborate_Subprogram 0018 BODY_0008: 0018 00bc | | Action Signal_Activated 0019 00bb | | Action Signal_Completion 001a 0000 0000 | | .BLANK 0000[0x6] 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 0045 | E | .CONST 0x0045 ; Address of begin 0021 0004 | | .CONST 0x0004 ; Address of exception handler 0022 0007 | | .CONST 0x0007 ; Number of locals 0023 INIT_0020: 0023 e001 | | Load 0x0,0x1 ; Debug Table 0x2 = .DEBUG 0x0023,0x0114,0x0001,0x0000,0x0037,0x09d4,0x0000,0x000a ; Debug Table 0x2.0x0 = 0x23,0xffff 0024 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0025 0322 | " | Declare_Variable Record 0026 00db | | Load_Top At_Offset_3 0027 00d9 | | Load_Top At_Offset_1 0028 017d | } | Execute Record,Structure_Write 0029 e002 | | Load 0x0,0x2 ; Debug Table 0x2.0x1 = 0x29,0xfffe 002a 1b16 | | Execute Package,Field_Read,Field_Number 0x16 002b 0322 | " | Declare_Variable Record 002c e5ff | | Load 0x2,-0x1 002d e003 | | Load 0x0,0x3 002e 180d | | Execute Package,Field_Execute,Field_Number 0xd 002f 00d9 | | Load_Top At_Offset_1 0030 017d | } | Execute Record,Structure_Write 0031 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x2.0x2 = 0x31,0xfffd 0032 e001 | | Load 0x0,0x1 ; Debug Table 0x2.0x3 = 0x32,0xfffc 0033 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0034 0322 | " | Declare_Variable Record 0035 e5ff | | Load 0x2,-0x1 0036 e004 | | Load 0x0,0x4 0037 180e | | Execute Package,Field_Execute,Field_Number 0xe 0038 00d9 | | Load_Top At_Offset_1 0039 017d | } | Execute Record,Structure_Write 003a e002 | | Load 0x0,0x2 ; Debug Table 0x2.0x4 = 0x3a,0xfffb 003b 1b16 | | Execute Package,Field_Read,Field_Number 0x16 003c 0322 | " | Declare_Variable Record 003d e5ff | | Load 0x2,-0x1 003e e004 | | Load 0x0,0x4 003f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0040 e003 | | Load 0x0,0x3 0041 180d | | Execute Package,Field_Execute,Field_Number 0xd 0042 00d9 | | Load_Top At_Offset_1 0043 017d | } | Execute Record,Structure_Write 0044 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x2.0x5 = 0x44,0xfffa 0045 BODY_0020: 0045 4800 |H | Short_Literal 0x0 ; Debug Table 0x2.0x6 = 0x45,0x1 0046 a5fc | | Store_Unchecked 0x2,-0x4 0047 e5fe | | Load 0x2,-0x2 ; Debug Table 0x2.0x7 = 0x47,0x2 0048 e403 | | Load 0x2,0x3 0049 820e | | Call 0x1,0xe 004a 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x2.0x8 = 0x4a,0x3 004b e5fd | | Load 0x2,-0x3 004c e5fe | | Load 0x2,-0x2 004d e403 | | Load 0x2,0x3 004e e402 | | Load 0x2,0x2 004f e005 | | Load 0x0,0x5 0050 180e | | Execute Package,Field_Execute,Field_Number 0xe 0051 c404 | | Store 0x2,0x4 0052 e5fe | | Load 0x2,-0x2 ; Debug Table 0x2.0x9 = 0x52,0x4 0053 00da | | Load_Top At_Offset_2 0054 820e | | Call 0x1,0xe 0055 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x2.0xa = 0x55,0x5 0056 e5fd | | Load 0x2,-0x3 0057 e5fe | | Load 0x2,-0x2 0058 e406 | | Load 0x2,0x6 0059 e405 | | Load 0x2,0x5 005a e005 | | Load 0x0,0x5 005b 180e | | Execute Package,Field_Execute,Field_Number 0xe 005c 0059 | Y | Store_Top Discrete,At_Offset_1 005d 00db | | Load_Top At_Offset_3 ; Debug Table 0x2.0xb = 0x5d,0x6 005e 6816 |h | Jump_Zero 0x75 005f e403 | | Load 0x2,0x3 ; Debug Table 0x2.0xc = 0x5f,0x7 0060 8210 | | Call 0x1,0x10 0061 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0xd = 0x61,0x8 0062 6803 |h | Jump_Zero 0x66 0063 4801 |H | Short_Literal 0x1 ; Debug Table 0x2.0xe = 0x63,0x9 0064 a5fc | | Store_Unchecked 0x2,-0x4 0065 7825 |x% | Jump 0x8b 0066 e5fe | | Load 0x2,-0x2 ; Debug Table 0x2.0xf = 0x66,0xa 0067 e403 | | Load 0x2,0x3 0068 820e | | Call 0x1,0xe 0069 e403 | | Load 0x2,0x3 ; Debug Table 0x2.0x10 = 0x69,0xb 006a 00da | | Load_Top At_Offset_2 006b e006 | | Load 0x0,0x6 006c 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 006d 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x2.0x11 = 0x6d,0xc 006e e5fd | | Load 0x2,-0x3 006f e403 | | Load 0x2,0x3 0070 e402 | | Load 0x2,0x2 0071 e005 | | Load 0x0,0x5 0072 180f | | Execute Package,Field_Execute,Field_Number 0xf 0073 c5fc | | Store 0x2,-0x4 0074 7816 |x | Jump 0x8b 0075 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x12 = 0x75,0xd 0076 6808 |h | Jump_Zero 0x7f 0077 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x2.0x13 = 0x77,0xe 0078 e5fd | | Load 0x2,-0x3 0079 e403 | | Load 0x2,0x3 007a e405 | | Load 0x2,0x5 007b e005 | | Load 0x0,0x5 007c 180f | | Execute Package,Field_Execute,Field_Number 0xf 007d c5fc | | Store 0x2,-0x4 007e 780c |x | Jump 0x8b 007f 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2.0x14 = 0x7f,0xf 0080 e403 | | Load 0x2,0x3 0081 e006 | | Load 0x0,0x6 0082 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 0083 7007 |p | Jump_Nonzero 0x8b 0084 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x2.0x15 = 0x84,0x10 0085 e5fd | | Load 0x2,-0x3 0086 e403 | | Load 0x2,0x3 0087 e405 | | Load 0x2,0x5 0088 e005 | | Load 0x0,0x5 0089 180f | | Execute Package,Field_Execute,Field_Number 0xf 008a c5fc | | Store 0x2,-0x4 008b e403 | | Load 0x2,0x3 ; Debug Table 0x2.0x16 = 0x8b,0x11 008c 820f | | Call 0x1,0xf 008d 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2.0x17 = 0x8d,0x12 008e 8210 | | Call 0x1,0x10 008f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0095 | | .CONST 0x0095 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0002 | | .CONST 0x0002 ; Number of locals 0093 INIT_0090: 0093 e006 | | Load 0x0,0x6 ; Debug Table 0x3 = .DEBUG 0x0093,0x0146,0x0001,0x0000,0x0037,0x09e4,0x0000,0x0014 ; Debug Table 0x3.0x0 = 0x93,0xffff 0094 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 0095 BODY_0090: 0095 e006 | | Load 0x0,0x6 ; Debug Table 0x3.0x1 = 0x95,0x1 0096 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 0097 e5fe | | Load 0x2,-0x2 0098 e5ff | | Load 0x2,-0x1 0099 e006 | | Load 0x0,0x6 009a 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 009b 0059 | Y | Store_Top Discrete,At_Offset_1 009c 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x2 = 0x9c,0x2 009d 4604 |F | Jump_Case 0x5 009e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x0 009f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x1 00a0 7802 |x | Jump 0xa3 ; case 0x2 00a1 7801 |x | Jump 0xa3 ; case 0x3 00a2 7800 |x | Jump 0xa3 ; case 0x4 00a3 4887 |H | Short_Literal 0x87 ; Debug Table 0x3.0x3 = 0xa3,0x4 00a4 0257 | W | Execute Discrete,Raise 00a5 0000 0000 | | .XXX[0x3] 00a7 0000 | | 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ad | | .CONST 0x00ad ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0002 | | .CONST 0x0002 ; Number of locals 00ab INIT_00a8: 00ab e006 | | Load 0x0,0x6 ; Debug Table 0x4 = .DEBUG 0x00ab,0x0150,0x0001,0x0000,0x0037,0x09e4,0x0000,0x0049 ; Debug Table 0x4.0x0 = 0xab,0xffff 00ac 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 00ad BODY_00a8: 00ad e006 | | Load 0x0,0x6 ; Debug Table 0x4.0x1 = 0xad,0x1 00ae 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 00af e5ff | | Load 0x2,-0x1 00b0 e006 | | Load 0x0,0x6 00b1 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 00b2 0059 | Y | Store_Top Discrete,At_Offset_1 00b3 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x2 = 0xb3,0x2 00b4 4601 |F | Jump_Case 0x2 00b5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x0 00b6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x1 00b7 0000 | | .XXX[0x1] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bf | | .CONST 0x00bf ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0003 | | .CONST 0x0003 ; Number of locals 00bb INIT_00b8: 00bb e006 | | Load 0x0,0x6 ; Debug Table 0x5 = .DEBUG 0x00bb,0x0158,0x0001,0x0000,0x0037,0x09e4,0x0000,0x0072 ; Debug Table 0x5.0x0 = 0xbb,0xffff 00bc 1b42 | B | Execute Package,Field_Read,Field_Number 0x42 00bd e006 | | Load 0x0,0x6 ; Debug Table 0x5.0x1 = 0xbd,0xfffe 00be 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 00bf BODY_00b8: 00bf e006 | | Load 0x0,0x6 ; Debug Table 0x5.0x2 = 0xbf,0x1 00c0 1b42 | B | Execute Package,Field_Read,Field_Number 0x42 00c1 e5ff | | Load 0x2,-0x1 00c2 e006 | | Load 0x0,0x6 00c3 1843 | C | Execute Package,Field_Execute,Field_Number 0x43 00c4 005a | Z | Store_Top Discrete,At_Offset_2 00c5 e006 | | Load 0x0,0x6 ; Debug Table 0x5.0x3 = 0xc5,0x2 00c6 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 00c7 e5ff | | Load 0x2,-0x1 00c8 e006 | | Load 0x0,0x6 00c9 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 00ca 0059 | Y | Store_Top Discrete,At_Offset_1 00cb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00cc 0000 0000 | | .BLANK 0000[0x4] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; Debug Table 00d0 ; -------------------------------------------------------------------------------------- 00d0 0003 0006 | | .CONST 0x0003,0x0006 00d2 000b 0102 | | .DEBUG 0x000b,0x0102,0x8000,0x0000,0x0037,0x09d4,0x0000,0x0005 00da 000f 0108 | | .DEBUG 0x000f,0x0108,0x8000,0x0000,0x0037,0x09e4,0x0000,0x000d 00e2 0023 0114 | # | .DEBUG 0x0023,0x0114,0x0001,0x0000,0x0037,0x09d4,0x0000,0x000a 00ea 0093 0146 | F| .DEBUG 0x0093,0x0146,0x0001,0x0000,0x0037,0x09e4,0x0000,0x0014 00f2 00ab 0150 | P| .DEBUG 0x00ab,0x0150,0x0001,0x0000,0x0037,0x09e4,0x0000,0x0049 00fa 00bb 0158 | X| .DEBUG 0x00bb,0x0158,0x0001,0x0000,0x0037,0x09e4,0x0000,0x0072 0102 ; -------------------------------------------------------------------------------------- 0102 ; Debug3 Subtable 0x0 0102 ; -------------------------------------------------------------------------------------- 0102 0002 0000 | | .DBG3TAB 0x0002,0x0000 0104 000b ffff | | .CONST 0x000b,0xffff 0106 000c fffe | | .CONST 0x000c,0xfffe 0108 ; -------------------------------------------------------------------------------------- 0108 ; Debug3 Subtable 0x1 0108 ; -------------------------------------------------------------------------------------- 0108 0005 0000 | | .DBG3TAB 0x0005,0x0000 010a 000f ffff | | .CONST 0x000f,0xffff 010c 0010 fffe | | .CONST 0x0010,0xfffe 010e 0012 fffd | | .CONST 0x0012,0xfffd 0110 0014 fffc | | .CONST 0x0014,0xfffc 0112 0016 fffb | | .CONST 0x0016,0xfffb 0114 ; -------------------------------------------------------------------------------------- 0114 ; Debug3 Subtable 0x2 0114 ; -------------------------------------------------------------------------------------- 0114 0006 0012 | | .DBG3TAB 0x0006,0x0012 0116 0023 ffff | # | .CONST 0x0023,0xffff 0118 0029 fffe | ) | .CONST 0x0029,0xfffe 011a 0031 fffd | 1 | .CONST 0x0031,0xfffd 011c 0032 fffc | 2 | .CONST 0x0032,0xfffc 011e 003a fffb | : | .CONST 0x003a,0xfffb 0120 0044 fffa | D | .CONST 0x0044,0xfffa 0122 0045 0001 | E | .CONST 0x0045,0x0001 0124 0047 0002 | G | .CONST 0x0047,0x0002 0126 004a 0003 | J | .CONST 0x004a,0x0003 0128 0052 0004 | R | .CONST 0x0052,0x0004 012a 0055 0005 | U | .CONST 0x0055,0x0005 012c 005d 0006 | ] | .CONST 0x005d,0x0006 012e 005f 0007 | _ | .CONST 0x005f,0x0007 0130 0061 0008 | a | .CONST 0x0061,0x0008 0132 0063 0009 | c | .CONST 0x0063,0x0009 0134 0066 000a | f | .CONST 0x0066,0x000a 0136 0069 000b | i | .CONST 0x0069,0x000b 0138 006d 000c | m | .CONST 0x006d,0x000c 013a 0075 000d | u | .CONST 0x0075,0x000d 013c 0077 000e | w | .CONST 0x0077,0x000e 013e 007f 000f | | .CONST 0x007f,0x000f 0140 0084 0010 | | .CONST 0x0084,0x0010 0142 008b 0011 | | .CONST 0x008b,0x0011 0144 008d 0012 | | .CONST 0x008d,0x0012 0146 ; -------------------------------------------------------------------------------------- 0146 ; Debug3 Subtable 0x3 0146 ; -------------------------------------------------------------------------------------- 0146 0001 0003 | | .DBG3TAB 0x0001,0x0003 0148 0093 ffff | | .CONST 0x0093,0xffff 014a 0095 0001 | | .CONST 0x0095,0x0001 014c 009c 0002 | | .CONST 0x009c,0x0002 014e 00a3 0004 | | .CONST 0x00a3,0x0004 0150 ; -------------------------------------------------------------------------------------- 0150 ; Debug3 Subtable 0x4 0150 ; -------------------------------------------------------------------------------------- 0150 0001 0002 | | .DBG3TAB 0x0001,0x0002 0152 00ab ffff | | .CONST 0x00ab,0xffff 0154 00ad 0001 | | .CONST 0x00ad,0x0001 0156 00b3 0002 | | .CONST 0x00b3,0x0002 0158 ; -------------------------------------------------------------------------------------- 0158 ; Debug3 Subtable 0x5 0158 ; -------------------------------------------------------------------------------------- 0158 0002 0002 | | .DBG3TAB 0x0002,0x0002 015a 00bb ffff | | .CONST 0x00bb,0xffff 015c 00bd fffe | | .CONST 0x00bd,0xfffe 015e 00bf 0001 | | .CONST 0x00bf,0x0001 0160 00c5 0002 | | .CONST 0x00c5,0x0002 0162 0000 0000 | | .BLANK 0000[0x9e]