|
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: »9241608.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293 └─ ⟦this⟧ »9241608.SEG« └─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3 └─ ⟦this⟧ »9241608.SEG« └─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288 └─ ⟦this⟧ »9241608.SEG« └─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5 └─ ⟦this⟧ »9241608.SEG« └─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000 └─ ⟦this⟧ »9241608.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 0000 | | .CONST 0x0000 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0093 | | .CONST 0x0093 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0014 | | .CONST 0x0014 ; Number of locals 000b INIT_0008: 000b 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x0112,0x8000,0x0000,0x0035,0x9914,0x0000,0x0013 ; Debug Table 0x0.0x0 = 0xb,0xffff ; Debug Table 0x0.0x1 = 0xb,0xfffe ; Debug Table 0x0.0x2 = 0xb,0xfffd 000d 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0xd,0xfffc 000f 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0xf,0xfffb 0011 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x11,0xfffa 0013 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x13,0xfff9 0015 60b2 |` | Indirect_Literal Discrete,0xc8,{0x00000000, 0x00359914} ; Debug Table 0x0.0x7 = 0x15,0xfff8 0016 485a |HZ | Short_Literal 0x5a 0017 e001 | | Load 0x0,0x1 0018 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0019 1d0d | | Execute_Immediate Reference_Lex_1,0xd 001a e002 | | Load 0x0,0x2 001b 1910 | | Execute Package,Field_Reference,Field_Number 0x10 001c 1d0e | | Execute_Immediate Reference_Lex_1,0xe 001d 1d0f | | Execute_Immediate Reference_Lex_1,0xf 001e e003 | | Load 0x0,0x3 001f 0386 | | Declare_Variable Package,Visible 0020 00d8 | | Load_Top At_Offset_0 0021 020f | | Execute Module,Activate 0022 60a5 |` | Indirect_Literal Discrete,0xc8,{0x00000000, 0x00359914} ; Debug Table 0x0.0x8 = 0x22,0xfff7 0023 4868 |Hh | Short_Literal 0x68 0024 e001 | | Load 0x0,0x1 0025 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0026 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0027 00dc | | Load_Top At_Offset_4 0028 1914 | | Execute Package,Field_Reference,Field_Number 0x14 0029 00dd | | Load_Top At_Offset_5 002a 1916 | | Execute Package,Field_Reference,Field_Number 0x16 002b 00de | | Load_Top At_Offset_6 002c 1917 | | Execute Package,Field_Reference,Field_Number 0x17 002d 1d11 | | Execute_Immediate Reference_Lex_1,0x11 002e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 002f e002 | | Load 0x0,0x2 0030 1910 | | Execute Package,Field_Reference,Field_Number 0x10 0031 e002 | | Load 0x0,0x2 0032 1923 | # | Execute Package,Field_Reference,Field_Number 0x23 0033 e002 | | Load 0x0,0x2 0034 1915 | | Execute Package,Field_Reference,Field_Number 0x15 0035 e002 | | Load 0x0,0x2 0036 1916 | | Execute Package,Field_Reference,Field_Number 0x16 0037 e002 | | Load 0x0,0x2 0038 1917 | | Execute Package,Field_Reference,Field_Number 0x17 0039 e002 | | Load 0x0,0x2 003a 1918 | | Execute Package,Field_Reference,Field_Number 0x18 003b e002 | | Load 0x0,0x2 003c 1919 | | Execute Package,Field_Reference,Field_Number 0x19 003d e002 | | Load 0x0,0x2 003e 191a | | Execute Package,Field_Reference,Field_Number 0x1a 003f e002 | | Load 0x0,0x2 0040 191b | | Execute Package,Field_Reference,Field_Number 0x1b 0041 e002 | | Load 0x0,0x2 0042 191d | | Execute Package,Field_Reference,Field_Number 0x1d 0043 e002 | | Load 0x0,0x2 0044 191e | | Execute Package,Field_Reference,Field_Number 0x1e 0045 e002 | | Load 0x0,0x2 0046 191f | | Execute Package,Field_Reference,Field_Number 0x1f 0047 e002 | | Load 0x0,0x2 0048 1920 | | Execute Package,Field_Reference,Field_Number 0x20 0049 e002 | | Load 0x0,0x2 004a 1921 | ! | Execute Package,Field_Reference,Field_Number 0x21 004b e002 | | Load 0x0,0x2 004c 1922 | " | Execute Package,Field_Reference,Field_Number 0x22 004d e004 | | Load 0x0,0x4 004e 0386 | | Declare_Variable Package,Visible 004f 00d8 | | Load_Top At_Offset_0 0050 020f | | Execute Module,Activate 0051 6076 |`v | Indirect_Literal Discrete,0xc8,{0x00000000, 0x00359914} ; Debug Table 0x0.0x9 = 0x51,0xfff6 0052 48a9 |H | Short_Literal 0xa9 0053 e001 | | Load 0x0,0x1 0054 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0055 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0056 e002 | | Load 0x0,0x2 0057 1910 | | Execute Package,Field_Reference,Field_Number 0x10 0058 e002 | | Load 0x0,0x2 0059 1915 | | Execute Package,Field_Reference,Field_Number 0x15 005a e002 | | Load 0x0,0x2 005b 1916 | | Execute Package,Field_Reference,Field_Number 0x16 005c e002 | | Load 0x0,0x2 005d 1917 | | Execute Package,Field_Reference,Field_Number 0x17 005e e002 | | Load 0x0,0x2 005f 1918 | | Execute Package,Field_Reference,Field_Number 0x18 0060 e002 | | Load 0x0,0x2 0061 1919 | | Execute Package,Field_Reference,Field_Number 0x19 0062 e002 | | Load 0x0,0x2 0063 191a | | Execute Package,Field_Reference,Field_Number 0x1a 0064 e002 | | Load 0x0,0x2 0065 191b | | Execute Package,Field_Reference,Field_Number 0x1b 0066 e002 | | Load 0x0,0x2 0067 191d | | Execute Package,Field_Reference,Field_Number 0x1d 0068 e002 | | Load 0x0,0x2 0069 191e | | Execute Package,Field_Reference,Field_Number 0x1e 006a e002 | | Load 0x0,0x2 006b 191f | | Execute Package,Field_Reference,Field_Number 0x1f 006c e002 | | Load 0x0,0x2 006d 1920 | | Execute Package,Field_Reference,Field_Number 0x20 006e e002 | | Load 0x0,0x2 006f 1921 | ! | Execute Package,Field_Reference,Field_Number 0x21 0070 e002 | | Load 0x0,0x2 0071 1922 | " | Execute Package,Field_Reference,Field_Number 0x22 0072 e213 | | Load 0x1,0x13 0073 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 0074 e213 | | Load 0x1,0x13 0075 1927 | ' | Execute Package,Field_Reference,Field_Number 0x27 0076 e213 | | Load 0x1,0x13 0077 192d | - | Execute Package,Field_Reference,Field_Number 0x2d 0078 e213 | | Load 0x1,0x13 0079 192e | . | Execute Package,Field_Reference,Field_Number 0x2e 007a e213 | | Load 0x1,0x13 007b 1930 | 0 | Execute Package,Field_Reference,Field_Number 0x30 007c e213 | | Load 0x1,0x13 007d 1926 | & | Execute Package,Field_Reference,Field_Number 0x26 007e e213 | | Load 0x1,0x13 007f 1929 | ) | Execute Package,Field_Reference,Field_Number 0x29 0080 e213 | | Load 0x1,0x13 0081 192c | , | Execute Package,Field_Reference,Field_Number 0x2c 0082 e213 | | Load 0x1,0x13 0083 192f | / | Execute Package,Field_Reference,Field_Number 0x2f 0084 e005 | | Load 0x0,0x5 0085 0386 | | Declare_Variable Package,Visible 0086 00d8 | | Load_Top At_Offset_0 0087 020f | | Execute Module,Activate 0088 00bf | | Action Accept_Activation 0089 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1 = .DEBUG 0x0089,0x0128,0x8000,0x0000,0x0035,0x9924,0x0000,0x000f ; Debug Table 0x1.0x0 = 0x89,0xffff 008a 00c7 | | Action Elaborate_Subprogram 008b 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x1 = 0x8b,0xfffe 008c 00c7 | | Action Elaborate_Subprogram 008d 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x2 = 0x8d,0xfffd 008e 00c7 | | Action Elaborate_Subprogram 008f 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x3 = 0x8f,0xfffc 0090 00c7 | | Action Elaborate_Subprogram 0091 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x4 = 0x91,0xfffb 0092 00c7 | | Action Elaborate_Subprogram 0093 BODY_0008: 0093 00bc | | Action Signal_Activated 0094 00bb | | Action Signal_Completion 0095 0000 0000 | | .XXX[0x3] 0097 0000 | | 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 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x2 = .DEBUG 0x009b,0x0134,0x0001,0x0000,0x0035,0x9914,0x0000,0x0021 ; Debug Table 0x2.0x0 = 0x9b,0x1 009c e001 | | Load 0x0,0x1 009d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 009e 00dc | | Load_Top At_Offset_4 009f e002 | | Load 0x0,0x2 00a0 180f | | Execute Package,Field_Execute,Field_Number 0xf 00a1 005e | ^ | Store_Top Discrete,At_Offset_6 00a2 005e | ^ | Store_Top Discrete,At_Offset_6 00a3 00da | | Load_Top At_Offset_2 ; Debug Table 0x2.0x1 = 0xa3,0x2 00a4 0054 | T | Store_Top_Unchecked Discrete,At_Offset_4 00a5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00a6 0000 0000 | | .XXX[0x2] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ab | | .CONST 0x00ab ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0001 | | .CONST 0x0001 ; Number of locals 00ab BODY_00a8: 00ab INIT_00a8: 00ab 4800 |H | Short_Literal 0x0 ; Debug Table 0x3 = .DEBUG 0x00ab,0x013a,0x0002,0x0000,0x0035,0x9914,0x0000,0x003b ; Debug Table 0x3.0x0 = 0xab,0x1 00ac 00ca | | Action Exit_Nullary_Function 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 4800 |H | Short_Literal 0x0 ; Debug Table 0x4 = .DEBUG 0x00b3,0x013e,0x0002,0x0000,0x0035,0x9914,0x0000,0x0042 ; Debug Table 0x4.0x0 = 0xb3,0x1 00b4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00b5 0000 0000 | | .XXX[0x3] 00b7 0000 | | 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bb | | .CONST 0x00bb ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0001 | | .CONST 0x0001 ; Number of locals 00bb BODY_00b8: 00bb INIT_00b8: 00bb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0x5 = .DEBUG 0x00bb,0x0142,0x0001,0x0000,0x0035,0x9914,0x0000,0x004d ; Debug Table 0x5.0x0 = 0xbb,0x1 00bc 0000 0000 | | .BLANK 0000[0x4] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c3 | | .CONST 0x00c3 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0001 | | .CONST 0x0001 ; Number of locals 00c3 BODY_00c0: 00c3 INIT_00c0: 00c3 0092 00cc | | Action Push_String_Extended,0xcc ; "SYSTEM % RECOVERY" ; Debug Table 0x6 = .DEBUG 0x00c3,0x0146,0x0002,0x0000,0x0035,0x9914,0x0000,0x0055 ; Debug Table 0x6.0x0 = 0xc3,0x1 00c5 00ca | | Action Exit_Nullary_Function 00c6 0000 0000 | | .XXX[0x2] 00c8 0000 0000 | | .LITERAL {0x00000000, 0x00359914} 00cc ; -------------------------------------------------------------------------------------- 00cc ; STRING TABLE 00cc ; -------------------------------------------------------------------------------------- 00cc 0004 | | .STRTAB 0x0004->0x00ce ; "SYSTEM % RECOVERY" 00cd 0013 | | .STREND 0x0013->0x00d6 00ce 5359 5354 |SYST| .STRTAB_STRINGS 00d7 0000 | | .XXX[0x1] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; Debug Table 00d8 ; -------------------------------------------------------------------------------------- 00d8 0003 0007 | | .CONST 0x0003,0x0007 00da 000b 0112 | | .DEBUG 0x000b,0x0112,0x8000,0x0000,0x0035,0x9914,0x0000,0x0013 00e2 0089 0128 | (| .DEBUG 0x0089,0x0128,0x8000,0x0000,0x0035,0x9924,0x0000,0x000f 00ea 009b 0134 | 4| .DEBUG 0x009b,0x0134,0x0001,0x0000,0x0035,0x9914,0x0000,0x0021 00f2 00ab 013a | :| .DEBUG 0x00ab,0x013a,0x0002,0x0000,0x0035,0x9914,0x0000,0x003b 00fa 00b3 013e | >| .DEBUG 0x00b3,0x013e,0x0002,0x0000,0x0035,0x9914,0x0000,0x0042 0102 00bb 0142 | B| .DEBUG 0x00bb,0x0142,0x0001,0x0000,0x0035,0x9914,0x0000,0x004d 010a 00c3 0146 | F| .DEBUG 0x00c3,0x0146,0x0002,0x0000,0x0035,0x9914,0x0000,0x0055 0112 ; -------------------------------------------------------------------------------------- 0112 ; Debug3 Subtable 0x0 0112 ; -------------------------------------------------------------------------------------- 0112 000a 0000 | | .DBG3TAB 0x000a,0x0000 0114 000b ffff | | .CONST 0x000b,0xffff 0116 000b fffe | | .CONST 0x000b,0xfffe 0118 000b fffd | | .CONST 0x000b,0xfffd 011a 000d fffc | | .CONST 0x000d,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 0022 fff7 | " | .CONST 0x0022,0xfff7 0126 0051 fff6 | Q | .CONST 0x0051,0xfff6 0128 ; -------------------------------------------------------------------------------------- 0128 ; Debug3 Subtable 0x1 0128 ; -------------------------------------------------------------------------------------- 0128 0005 0000 | | .DBG3TAB 0x0005,0x0000 012a 0089 ffff | | .CONST 0x0089,0xffff 012c 008b fffe | | .CONST 0x008b,0xfffe 012e 008d fffd | | .CONST 0x008d,0xfffd 0130 008f fffc | | .CONST 0x008f,0xfffc 0132 0091 fffb | | .CONST 0x0091,0xfffb 0134 ; -------------------------------------------------------------------------------------- 0134 ; Debug3 Subtable 0x2 0134 ; -------------------------------------------------------------------------------------- 0134 0000 0002 | | .DBG3TAB 0x0000,0x0002 0136 009b 0001 | | .CONST 0x009b,0x0001 0138 00a3 0002 | | .CONST 0x00a3,0x0002 013a ; -------------------------------------------------------------------------------------- 013a ; Debug3 Subtable 0x3 013a ; -------------------------------------------------------------------------------------- 013a 0000 0001 | | .DBG3TAB 0x0000,0x0001 013c 00ab 0001 | | .CONST 0x00ab,0x0001 013e ; -------------------------------------------------------------------------------------- 013e ; Debug3 Subtable 0x4 013e ; -------------------------------------------------------------------------------------- 013e 0000 0001 | | .DBG3TAB 0x0000,0x0001 0140 00b3 0001 | | .CONST 0x00b3,0x0001 0142 ; -------------------------------------------------------------------------------------- 0142 ; Debug3 Subtable 0x5 0142 ; -------------------------------------------------------------------------------------- 0142 0000 0001 | | .DBG3TAB 0x0000,0x0001 0144 00bb 0001 | | .CONST 0x00bb,0x0001 0146 ; -------------------------------------------------------------------------------------- 0146 ; Debug3 Subtable 0x6 0146 ; -------------------------------------------------------------------------------------- 0146 0000 0001 | | .DBG3TAB 0x0000,0x0001 0148 00c3 0001 | | .CONST 0x00c3,0x0001 014a 0000 0000 | | .BLANK 0000[0xb6]