|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1024 (0x400)
Notes: 00_class, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_6148f2
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5813 |X | .CONST 0x5813 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 00e8 | | .CONST 0x00e8 ; 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 00a2 | | .CONST 0x00a2 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0012 | | .CONST 0x0012 ; Number of locals 000b INIT_0008: 000b 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x0 = .DEBUG 0x000b,0x010a,0x0000,0x0000,0x004c,0x50d6,0x0000,0x08cd ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 00e1 | | Load_Encached Boolean_Cache 000d 00e1 | | Load_Encached Boolean_Cache 000e 00e1 | | Load_Encached Boolean_Cache 000f 00e1 | | Load_Encached Boolean_Cache 0010 00e1 | | Load_Encached Boolean_Cache 0011 00e1 | | Load_Encached Boolean_Cache 0012 00e1 | | Load_Encached Boolean_Cache 0013 00e1 | | Load_Encached Boolean_Cache 0014 00e1 | | Load_Encached Boolean_Cache 0015 029f 00ab | | Declare_Subprogram INIT_00a8,For_Call 0017 480a |H | Short_Literal 0xa 0018 032e | . | Declare_Type Record,Defined,Visible 0019 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x1 = 0x19,0xfffe 001a 0322 | " | Declare_Variable Record 001b 4800 |H | Short_Literal 0x0 001c 00d9 | | Load_Top At_Offset_1 001d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 001e 4800 |H | Short_Literal 0x0 001f 00d9 | | Load_Top At_Offset_1 0020 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0021 4800 |H | Short_Literal 0x0 0022 00d9 | | Load_Top At_Offset_1 0023 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0024 4800 |H | Short_Literal 0x0 0025 00d9 | | Load_Top At_Offset_1 0026 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0027 4801 |H | Short_Literal 0x1 0028 00d9 | | Load_Top At_Offset_1 0029 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 002a 4801 |H | Short_Literal 0x1 002b 00d9 | | Load_Top At_Offset_1 002c 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 002d 4800 |H | Short_Literal 0x0 002e 00d9 | | Load_Top At_Offset_1 002f 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0030 4800 |H | Short_Literal 0x0 0031 00d9 | | Load_Top At_Offset_1 0032 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0033 4800 |H | Short_Literal 0x0 0034 00d9 | | Load_Top At_Offset_1 0035 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 0036 4800 |H | Short_Literal 0x0 0037 00d9 | | Load_Top At_Offset_1 0038 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 0039 0129 | ) | Execute Any,Make_Visible 003a 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x0.0x2 = 0x3a,0xfffd 003b 0322 | " | Declare_Variable Record 003c 4800 |H | Short_Literal 0x0 003d 00d9 | | Load_Top At_Offset_1 003e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 003f 4800 |H | Short_Literal 0x0 0040 00d9 | | Load_Top At_Offset_1 0041 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0042 4800 |H | Short_Literal 0x0 0043 00d9 | | Load_Top At_Offset_1 0044 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0045 4800 |H | Short_Literal 0x0 0046 00d9 | | Load_Top At_Offset_1 0047 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0048 4801 |H | Short_Literal 0x1 0049 00d9 | | Load_Top At_Offset_1 004a 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 004b 4801 |H | Short_Literal 0x1 004c 00d9 | | Load_Top At_Offset_1 004d 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 004e 4801 |H | Short_Literal 0x1 004f 00d9 | | Load_Top At_Offset_1 0050 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0051 4801 |H | Short_Literal 0x1 0052 00d9 | | Load_Top At_Offset_1 0053 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0054 4801 |H | Short_Literal 0x1 0055 00d9 | | Load_Top At_Offset_1 0056 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 0057 4801 |H | Short_Literal 0x1 0058 00d9 | | Load_Top At_Offset_1 0059 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 005a 0129 | ) | Execute Any,Make_Visible 005b 00da | | Load_Top At_Offset_2 ; Debug Table 0x0.0x3 = 0x5b,0xfffc 005c 0322 | " | Declare_Variable Record 005d 4801 |H | Short_Literal 0x1 005e 00d9 | | Load_Top At_Offset_1 005f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0060 4801 |H | Short_Literal 0x1 0061 00d9 | | Load_Top At_Offset_1 0062 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0063 4801 |H | Short_Literal 0x1 0064 00d9 | | Load_Top At_Offset_1 0065 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0066 4801 |H | Short_Literal 0x1 0067 00d9 | | Load_Top At_Offset_1 0068 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0069 4801 |H | Short_Literal 0x1 006a 00d9 | | Load_Top At_Offset_1 006b 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 006c 4801 |H | Short_Literal 0x1 006d 00d9 | | Load_Top At_Offset_1 006e 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 006f 4800 |H | Short_Literal 0x0 0070 00d9 | | Load_Top At_Offset_1 0071 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0072 4801 |H | Short_Literal 0x1 0073 00d9 | | Load_Top At_Offset_1 0074 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0075 4800 |H | Short_Literal 0x0 0076 00d9 | | Load_Top At_Offset_1 0077 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 0078 4800 |H | Short_Literal 0x0 0079 00d9 | | Load_Top At_Offset_1 007a 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 007b 0129 | ) | Execute Any,Make_Visible 007c 00db | | Load_Top At_Offset_3 ; Debug Table 0x0.0x4 = 0x7c,0xfffb 007d 0322 | " | Declare_Variable Record 007e 4800 |H | Short_Literal 0x0 007f 00d9 | | Load_Top At_Offset_1 0080 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0081 4800 |H | Short_Literal 0x0 0082 00d9 | | Load_Top At_Offset_1 0083 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0084 4800 |H | Short_Literal 0x0 0085 00d9 | | Load_Top At_Offset_1 0086 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0087 4800 |H | Short_Literal 0x0 0088 00d9 | | Load_Top At_Offset_1 0089 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 008a 4800 |H | Short_Literal 0x0 008b 00d9 | | Load_Top At_Offset_1 008c 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 008d 4801 |H | Short_Literal 0x1 008e 00d9 | | Load_Top At_Offset_1 008f 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0090 4800 |H | Short_Literal 0x0 0091 00d9 | | Load_Top At_Offset_1 0092 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0093 4800 |H | Short_Literal 0x0 0094 00d9 | | Load_Top At_Offset_1 0095 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0096 4800 |H | Short_Literal 0x0 0097 00d9 | | Load_Top At_Offset_1 0098 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 0099 4800 |H | Short_Literal 0x0 009a 00d9 | | Load_Top At_Offset_1 009b 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 009c 0129 | ) | Execute Any,Make_Visible 009d 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x9d,0xfffa 009f 00bf | | Action Accept_Activation 00a0 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1 = .DEBUG 0x00a0,0x0118,0x0000,0x0000,0x004e,0x7d35,0x0000,0x0006 ; Debug Table 0x1.0x0 = 0xa0,0xffff 00a1 00c7 | | Action Elaborate_Subprogram 00a2 BODY_0008: 00a2 00bc | | Action Signal_Activated 00a3 00bb | | Action Signal_Completion 00a4 0000 0000 | | .BLANK 0000[0x4] 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 4608 |F | Jump_Case 0x9 ; Debug Table 0x2 = .DEBUG 0x00ab,0x011c,0x0005,0x0000,0x004c,0x50d6,0x0000,0x08ce 00ac 7808 |x | Jump 0xb5 ; case 0x0 00ad 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 00ae 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 00af 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 00b0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 00b1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 00b2 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6 00b3 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7 00b4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8 00b5 4800 |H | Short_Literal 0x0 00b6 00db | | Load_Top At_Offset_3 00b7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00b8 4800 |H | Short_Literal 0x0 00b9 00db | | Load_Top At_Offset_3 00ba 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00bb 4800 |H | Short_Literal 0x0 00bc 00db | | Load_Top At_Offset_3 00bd 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00be 4800 |H | Short_Literal 0x0 00bf 00db | | Load_Top At_Offset_3 00c0 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 00c1 4801 |H | Short_Literal 0x1 00c2 00db | | Load_Top At_Offset_3 00c3 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 00c4 4801 |H | Short_Literal 0x1 00c5 00db | | Load_Top At_Offset_3 00c6 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 00c7 4800 |H | Short_Literal 0x0 00c8 00db | | Load_Top At_Offset_3 00c9 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 00ca 4801 |H | Short_Literal 0x1 00cb 00db | | Load_Top At_Offset_3 00cc 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 00cd 4800 |H | Short_Literal 0x0 00ce 00db | | Load_Top At_Offset_3 00cf 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 00d0 4800 |H | Short_Literal 0x0 00d1 00db | | Load_Top At_Offset_3 00d2 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 00d3 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 00d4 0000 0000 | | .BLANK 0000[0x4] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00df | | .CONST 0x00df ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0002 | | .CONST 0x0002 ; Number of locals 00db INIT_00d8: 00db e001 | | Load 0x0,0x1 ; Debug Table 0x3 = .DEBUG 0x00db,0x011e,0x0002,0x0000,0x004c,0x50d6,0x0000,0x09c6 ; Debug Table 0x3.0x0 = 0xdb,0xffff 00dc 00db | | Load_Top At_Offset_3 00dd 8002 | | Call 0x0,0x2 00de 0031 | 1 | Store_Top Heap_Access,At_Offset_1 00df BODY_00d8: 00df e5fe | | Load 0x2,-0x2 ; Debug Table 0x3.0x1 = 0xdf,0x1 00e0 00d9 | | Load_Top At_Offset_1 00e1 8003 | | Call 0x0,0x3 00e2 8004 | | Call 0x0,0x4 00e3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00e4 0000 0000 | | .BLANK 0000[0x4] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; Debug Table 00e8 ; -------------------------------------------------------------------------------------- 00e8 0003 0004 | | .CONST 0x0003,0x0004 00ea 000b 010a | | .DEBUG 0x000b,0x010a,0x0000,0x0000,0x004c,0x50d6,0x0000,0x08cd 00f2 00a0 0118 | | .DEBUG 0x00a0,0x0118,0x0000,0x0000,0x004e,0x7d35,0x0000,0x0006 00fa 00ab 011c | | .DEBUG 0x00ab,0x011c,0x0005,0x0000,0x004c,0x50d6,0x0000,0x08ce 0102 00db 011e | | .DEBUG 0x00db,0x011e,0x0002,0x0000,0x004c,0x50d6,0x0000,0x09c6 010a ; -------------------------------------------------------------------------------------- 010a ; Debug3 Subtable 0x0 010a ; -------------------------------------------------------------------------------------- 010a 0006 0000 | | .DBG3TAB 0x0006,0x0000 010c 000b ffff | | .CONST 0x000b,0xffff 010e 0019 fffe | | .CONST 0x0019,0xfffe 0110 003a fffd | : | .CONST 0x003a,0xfffd 0112 005b fffc | [ | .CONST 0x005b,0xfffc 0114 007c fffb | | | .CONST 0x007c,0xfffb 0116 009d fffa | | .CONST 0x009d,0xfffa 0118 ; -------------------------------------------------------------------------------------- 0118 ; Debug3 Subtable 0x1 0118 ; -------------------------------------------------------------------------------------- 0118 0001 0000 | | .DBG3TAB 0x0001,0x0000 011a 00a0 ffff | | .CONST 0x00a0,0xffff 011c ; -------------------------------------------------------------------------------------- 011c ; Debug3 Subtable 0x2 011c ; -------------------------------------------------------------------------------------- 011c 0000 0000 | | .DBG3TAB 0x0000,0x0000 011e ; -------------------------------------------------------------------------------------- 011e ; Debug3 Subtable 0x3 011e ; -------------------------------------------------------------------------------------- 011e 0001 0001 | | .DBG3TAB 0x0001,0x0001 0120 00db ffff | | .CONST 0x00db,0xffff 0122 00df 0001 | | .CONST 0x00df,0x0001 0124 0000 0000 | | .BLANK 0000[0xdc]