|
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: »1025043.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »1025043.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »1025043.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »1025043.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »1025043.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »1025043.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 00b0 | | .CONST 0x00b0 ; 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 0024 | $ | .CONST 0x0024 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000f | | .CONST 0x000f ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 ; Debug Table 0x0 = .DEBUG 0x000b,0x00da,0x8000,0x0000,0x0037,0x0f14,0x0000,0x0007 ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 4802 |H | Short_Literal 0x2 000d 029f 002b | +| Declare_Subprogram INIT_0028,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x1 = 0x10,0xfffe 0011 4801 |H | Short_Literal 0x1 0012 e001 | | Load 0x0,0x1 0013 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 0014 4801 |H | Short_Literal 0x1 0015 e002 | | Load 0x0,0x2 0016 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0017 029f 0043 | C| Declare_Subprogram INIT_0040,For_Call 0019 4802 |H | Short_Literal 0x2 001a 4800 |H | Short_Literal 0x0 001b 4802 |H | Short_Literal 0x2 001c 4800 |H | Short_Literal 0x0 001d 4801 |H | Short_Literal 0x1 001e 031e | | Declare_Type Variant_Record,Defined,Visible 001f 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0x1f,0xfffd 0021 00bf | | Action Accept_Activation 0022 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1 = .DEBUG 0x0022,0x00e2,0x8000,0x0000,0x0037,0x1824,0x0000,0x0007 ; Debug Table 0x1.0x0 = 0x22,0xffff 0023 00c7 | | Action Elaborate_Subprogram 0024 BODY_0008: 0024 00bc | | Action Signal_Activated 0025 00bb | | Action Signal_Completion 0026 0000 0000 | | .XXX[0x2] 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 4603 |F | Jump_Case 0x4 ; Debug Table 0x2 = .DEBUG 0x002b,0x00e6,0x0005,0x0000,0x0037,0x0f14,0x0000,0x0008 002c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 002d 7802 |x | Jump 0x30 ; case 0x1 002e 7805 |x | Jump 0x34 ; case 0x2 002f 7809 |x | Jump 0x39 ; case 0x3 0030 00da | | Load_Top At_Offset_2 0031 0091 0096 | | Action Push_String_Extended_Indexed,0x96 ; "NIL" 0033 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0034 00db | | Load_Top At_Offset_3 0035 00db | | Load_Top At_Offset_3 0036 00e0 | | Load_Encached Standard_Cache 0037 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0038 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0039 00da | | Load_Top At_Offset_2 003a 00e0 | | Load_Encached Standard_Cache 003b 181c | | Execute Package,Field_Execute,Field_Number 0x1c 003c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 003d 0000 0000 | | .XXX[0x3] 003f 0000 | | 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 0043 | C | .CONST 0x0043 ; Address of begin 0041 0004 | | .CONST 0x0004 ; Address of exception handler 0042 0001 | | .CONST 0x0001 ; Number of locals 0043 BODY_0040: 0043 INIT_0040: 0043 4608 |F | Jump_Case 0x9 ; Debug Table 0x3 = .DEBUG 0x0043,0x00e8,0x0005,0x0000,0x0037,0x0f14,0x0000,0x000f 0044 7808 |x | Jump 0x4d ; case 0x0 0045 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0046 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 0047 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 0048 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 0049 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 004a 7814 |x | Jump 0x5f ; case 0x6 004b 781e |x | Jump 0x6a ; case 0x7 004c 782b |x+ | Jump 0x78 ; case 0x8 004d 00da | | Load_Top At_Offset_2 004e 016c | l | Execute Variant_Record,Is_Constrained 004f 7009 |p | Jump_Nonzero 0x59 0050 00cf | | Action Mark_Auxiliary 0051 4800 |H | Short_Literal 0x0 0052 e5ff | | Load 0x2,-0x1 0053 1c08 | | Execute_Immediate Run_Utility,0x8 0054 00d8 | | Load_Top At_Offset_0 0055 1c00 | | Execute_Immediate Run_Utility,0x0 0056 c5ff | | Store 0x2,-0x1 0057 00ce | | Action Pop_Auxiliary 0058 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0059 00da | | Load_Top At_Offset_2 005a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 005b 4602 |F | Jump_Case 0x3 005c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 005d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 005e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 005f 00db | | Load_Top At_Offset_3 0060 4602 |F | Jump_Case 0x3 0061 7806 |x | Jump 0x68 ; case 0x0 0062 7801 |x | Jump 0x64 ; case 0x1 0063 7802 |x | Jump 0x66 ; case 0x2 0064 4801 |H | Short_Literal 0x1 0065 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0066 4802 |H | Short_Literal 0x2 0067 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0068 48ff |H | Short_Literal 0xff 0069 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 006a 00db | | Load_Top At_Offset_3 006b e5fe | | Load 0x2,-0x2 006c 4602 |F | Jump_Case 0x3 006d 7806 |x | Jump 0x74 ; case 0x0 006e 7801 |x | Jump 0x70 ; case 0x1 006f 7802 |x | Jump 0x72 ; case 0x2 0070 4801 |H | Short_Literal 0x1 0071 7803 |x | Jump 0x75 0072 4802 |H | Short_Literal 0x2 0073 7801 |x | Jump 0x75 0074 48ff |H | Short_Literal 0xff 0075 e5ff | | Load 0x2,-0x1 0076 031b | | Declare_Type Variant_Record,Constrained 0077 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0078 00db | | Load_Top At_Offset_3 0079 e5fe | | Load 0x2,-0x2 007a e5ff | | Load 0x2,-0x1 007b 1c06 | | Execute_Immediate Run_Utility,0x6 007c e5ff | | Load 0x2,-0x1 007d 02fc | | Declare_Variable Variant_Record,With_Constraint 007e 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 007f 0000 | | .XXX[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 0x4 = .DEBUG 0x0083,0x00ea,0x0001,0x0000,0x0037,0x0f14,0x0000,0x0036 ; Debug Table 0x4.0x0 = 0x83,0x1 0084 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0085 4602 |F | Jump_Case 0x3 0086 780d |x | Jump 0x94 ; case 0x0 0087 7801 |x | Jump 0x89 ; case 0x1 0088 7806 |x | Jump 0x8f ; case 0x2 0089 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0x1 = 0x89,0x2 008a 00db | | Load_Top At_Offset_3 008b 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2 008c e003 | | Load 0x0,0x3 008d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 008e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 008f 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0x2 = 0x8f,0x3 0090 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 0091 e004 | | Load 0x0,0x4 0092 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0093 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0094 4887 |H | Short_Literal 0x87 ; Debug Table 0x4.0x3 = 0x94,0x4 0095 0257 | W | Execute Discrete,Raise 0096 ; -------------------------------------------------------------------------------------- 0096 ; STRING TABLE 0096 ; -------------------------------------------------------------------------------------- 0096 0008 | | .STRTAB 0x0008->0x009a ; "NIL" 0097 0009 | | .STRTAB 0x0009->0x009b ; "WAIT_FOR_ROUST" 0098 0015 | | .STRTAB 0x0015->0x00a2 ; "WAIT_FOR_WIRED_PAGE" 0099 0026 | & | .STREND 0x0026->0x00ac 009a 4e49 4c57 |NILW| .STRTAB_STRINGS 00ac 0000 0000 | | .BLANK 0000[0x4] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; Debug Table 00b0 ; -------------------------------------------------------------------------------------- 00b0 0003 0005 | | .CONST 0x0003,0x0005 00b2 000b 00da | | .DEBUG 0x000b,0x00da,0x8000,0x0000,0x0037,0x0f14,0x0000,0x0007 00ba 0022 00e2 | " | .DEBUG 0x0022,0x00e2,0x8000,0x0000,0x0037,0x1824,0x0000,0x0007 00c2 002b 00e6 | + | .DEBUG 0x002b,0x00e6,0x0005,0x0000,0x0037,0x0f14,0x0000,0x0008 00ca 0043 00e8 | C | .DEBUG 0x0043,0x00e8,0x0005,0x0000,0x0037,0x0f14,0x0000,0x000f 00d2 0083 00ea | | .DEBUG 0x0083,0x00ea,0x0001,0x0000,0x0037,0x0f14,0x0000,0x0036 00da ; -------------------------------------------------------------------------------------- 00da ; Debug3 Subtable 0x0 00da ; -------------------------------------------------------------------------------------- 00da 0003 0000 | | .DBG3TAB 0x0003,0x0000 00dc 000b ffff | | .CONST 0x000b,0xffff 00de 0010 fffe | | .CONST 0x0010,0xfffe 00e0 001f fffd | | .CONST 0x001f,0xfffd 00e2 ; -------------------------------------------------------------------------------------- 00e2 ; Debug3 Subtable 0x1 00e2 ; -------------------------------------------------------------------------------------- 00e2 0001 0000 | | .DBG3TAB 0x0001,0x0000 00e4 0022 ffff | " | .CONST 0x0022,0xffff 00e6 ; -------------------------------------------------------------------------------------- 00e6 ; Debug3 Subtable 0x2 00e6 ; -------------------------------------------------------------------------------------- 00e6 0000 0000 | | .DBG3TAB 0x0000,0x0000 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; Debug3 Subtable 0x3 00e8 ; -------------------------------------------------------------------------------------- 00e8 0000 0000 | | .DBG3TAB 0x0000,0x0000 00ea ; -------------------------------------------------------------------------------------- 00ea ; Debug3 Subtable 0x4 00ea ; -------------------------------------------------------------------------------------- 00ea 0000 0004 | | .DBG3TAB 0x0000,0x0004 00ec 0083 0001 | | .CONST 0x0083,0x0001 00ee 0089 0002 | | .CONST 0x0089,0x0002 00f0 008f 0003 | | .CONST 0x008f,0x0003 00f2 0094 0004 | | .CONST 0x0094,0x0004 00f4 0000 0000 | | .BLANK 0000[0x10c]