|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_ccb0b3
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0190 | | .CONST 0x0190 ; 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 0155 | U | .CONST 0x0155 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000a | | .CONST 0x000a ; Number of locals 000b INIT_0008: 000b e010 | | Load 0x0,0x10 000c 1b12 | | Execute Package,Field_Read,Field_Number 0x12 000d 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 000e 02c7 | | Declare_Variable Any 000f e210 | | Load 0x1,0x10 0010 e010 | | Load 0x0,0x10 0011 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0012 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0013 e010 | | Load 0x0,0x10 0014 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0015 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0016 e010 | | Load 0x0,0x10 0017 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0018 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0019 e010 | | Load 0x0,0x10 001a 1b12 | | Execute Package,Field_Read,Field_Number 0x12 001b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 001c 0337 | 7 | Declare_Variable Array 001d 4801 |H | Short_Literal 0x1 001e 4802 |H | Short_Literal 0x2 001f 00da | | Load_Top At_Offset_2 0020 01d6 | | Execute Vector,Field_Write 0021 4800 |H | Short_Literal 0x0 0022 4800 |H | Short_Literal 0x0 0023 00da | | Load_Top At_Offset_2 0024 01d6 | | Execute Vector,Field_Write 0025 4800 |H | Short_Literal 0x0 0026 4801 |H | Short_Literal 0x1 0027 00da | | Load_Top At_Offset_2 0028 01d6 | | Execute Vector,Field_Write 0029 480e |H | Short_Literal 0xe 002a 4803 |H | Short_Literal 0x3 002b 4800 |H | Short_Literal 0x0 002c 00d9 | | Load_Top At_Offset_1 002d e407 | | Load 0x2,0x7 002e 01d6 | | Execute Vector,Field_Write 002f 3ffb |? | Loop_Increasing 0x2b 0030 e010 | | Load 0x0,0x10 0031 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0032 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0033 01c3 | | Execute Vector,Check_In_Type 0034 e010 | | Load 0x0,0x10 0035 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0036 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0037 e010 | | Load 0x0,0x10 0038 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0039 181d | | Execute Package,Field_Execute,Field_Number 0x1d 003a a402 | | Store_Unchecked 0x2,0x2 003b e210 | | Load 0x1,0x10 003c e010 | | Load 0x0,0x10 003d 1b12 | | Execute Package,Field_Read,Field_Number 0x12 003e 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 003f 00da | | Load_Top At_Offset_2 0040 e010 | | Load 0x0,0x10 0041 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0042 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 0043 e010 | | Load 0x0,0x10 0044 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0045 1845 | E | Execute Package,Field_Execute,Field_Number 0x45 0046 0092 0157 | W| Action Push_String_Extended,0x157 ; "Enumeration_Type" 0048 e010 | | Load 0x0,0x10 0049 1b14 | | Execute Package,Field_Read,Field_Number 0x14 004a 1817 | | Execute Package,Field_Execute,Field_Number 0x17 004b e010 | | Load 0x0,0x10 004c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 004d 1b15 | | Execute Package,Field_Read,Field_Number 0x15 004e 011e | | Execute Any,Convert 004f e210 | | Load 0x1,0x10 0050 4801 |H | Short_Literal 0x1 0051 4802 |H | Short_Literal 0x2 0052 e010 | | Load 0x0,0x10 0053 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0054 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0055 035b | [ | Declare_Type Array,Constrained 0056 0337 | 7 | Declare_Variable Array 0057 e210 | | Load 0x1,0x10 0058 0092 0158 | X| Action Push_String_Extended,0x158 ; "Immediate" 005a e010 | | Load 0x0,0x10 005b 1b11 | | Execute Package,Field_Read,Field_Number 0x11 005c 180e | | Execute Package,Field_Execute,Field_Number 0xe 005d e010 | | Load 0x0,0x10 005e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 005f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0060 0119 | | Execute Any,Check_In_Formal_Type 0061 4801 |H | Short_Literal 0x1 0062 00da | | Load_Top At_Offset_2 0063 01d6 | | Execute Vector,Field_Write 0064 e210 | | Load 0x1,0x10 0065 0092 0159 | Y| Action Push_String_Extended,0x159 ; "Deferred" 0067 e010 | | Load 0x0,0x10 0068 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0069 180e | | Execute Package,Field_Execute,Field_Number 0xe 006a e010 | | Load 0x0,0x10 006b 1b11 | | Execute Package,Field_Read,Field_Number 0x11 006c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 006d 0119 | | Execute Any,Check_In_Formal_Type 006e 4802 |H | Short_Literal 0x2 006f 00da | | Load_Top At_Offset_2 0070 01d6 | | Execute Vector,Field_Write 0071 e010 | | Load 0x0,0x10 0072 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0073 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0074 e010 | | Load 0x0,0x10 0075 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0076 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 0077 e010 | | Load 0x0,0x10 0078 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0079 1845 | E | Execute Package,Field_Execute,Field_Number 0x45 007a 0092 015a | Z| Action Push_String_Extended,0x15a ; "Enumeration_value" 007c e010 | | Load 0x0,0x10 007d 1b14 | | Execute Package,Field_Read,Field_Number 0x14 007e 1817 | | Execute Package,Field_Execute,Field_Number 0x17 007f e010 | | Load 0x0,0x10 0080 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0081 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0082 011e | | Execute Any,Convert 0083 e210 | | Load 0x1,0x10 0084 00d8 | | Load_Top At_Offset_0 0085 e210 | | Load 0x1,0x10 0086 e010 | | Load 0x0,0x10 0087 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0088 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0089 0092 015b | [| Action Push_String_Extended,0x15b ; "String" 008b e010 | | Load 0x0,0x10 008c 1b12 | | Execute Package,Field_Read,Field_Number 0x12 008d 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 008e 0092 015c | \| Action Push_String_Extended,0x15c ; "String_Literal" 0090 e010 | | Load 0x0,0x10 0091 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0092 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0093 e010 | | Load 0x0,0x10 0094 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0095 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0096 011e | | Execute Any,Convert 0097 4801 |H | Short_Literal 0x1 0098 4803 |H | Short_Literal 0x3 0099 e010 | | Load 0x0,0x10 009a 1b14 | | Execute Package,Field_Read,Field_Number 0x14 009b 1b20 | | Execute Package,Field_Read,Field_Number 0x20 009c 035b | [ | Declare_Type Array,Constrained 009d 0337 | 7 | Declare_Variable Array 009e 00db | | Load_Top At_Offset_3 009f e010 | | Load 0x0,0x10 00a0 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00a1 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00a2 0119 | | Execute Any,Check_In_Formal_Type 00a3 4801 |H | Short_Literal 0x1 00a4 00da | | Load_Top At_Offset_2 00a5 01d6 | | Execute Vector,Field_Write 00a6 00da | | Load_Top At_Offset_2 00a7 e010 | | Load 0x0,0x10 00a8 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00a9 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00aa 0119 | | Execute Any,Check_In_Formal_Type 00ab 4802 |H | Short_Literal 0x2 00ac 00da | | Load_Top At_Offset_2 00ad 01d6 | | Execute Vector,Field_Write 00ae 00d9 | | Load_Top At_Offset_1 00af e010 | | Load 0x0,0x10 00b0 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00b1 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00b2 0119 | | Execute Any,Check_In_Formal_Type 00b3 4803 |H | Short_Literal 0x3 00b4 00da | | Load_Top At_Offset_2 00b5 01d6 | | Execute Vector,Field_Write 00b6 e210 | | Load 0x1,0x10 00b7 4803 |H | Short_Literal 0x3 00b8 00da | | Load_Top At_Offset_2 00b9 e010 | | Load 0x0,0x10 00ba 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00bb 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00bc 0337 | 7 | Declare_Variable Array 00bd 4801 |H | Short_Literal 0x1 00be 4803 |H | Short_Literal 0x3 00bf 00da | | Load_Top At_Offset_2 00c0 01d6 | | Execute Vector,Field_Write 00c1 4801 |H | Short_Literal 0x1 00c2 4804 |H | Short_Literal 0x4 00c3 00da | | Load_Top At_Offset_2 00c4 01d6 | | Execute Vector,Field_Write 00c5 4802 |H | Short_Literal 0x2 00c6 4800 |H | Short_Literal 0x0 00c7 4800 |H | Short_Literal 0x0 00c8 00d9 | | Load_Top At_Offset_1 00c9 e40a | | Load 0x2,0xa 00ca 01d6 | | Execute Vector,Field_Write 00cb 3ffb |? | Loop_Increasing 0xc7 00cc e010 | | Load 0x0,0x10 00cd 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00ce 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00cf 01c3 | | Execute Vector,Check_In_Type 00d0 0092 015d | ]| Action Push_String_Extended,0x15d ; "Sample_Pragma" 00d2 e010 | | Load 0x0,0x10 00d3 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00d4 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 00d5 e010 | | Load 0x0,0x10 00d6 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00d7 1b22 | " | Execute Package,Field_Read,Field_Number 0x22 00d8 011e | | Execute Any,Convert 00d9 4801 |H | Short_Literal 0x1 00da 4801 |H | Short_Literal 0x1 00db e010 | | Load 0x0,0x10 00dc 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00dd 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 00de 035b | [ | Declare_Type Array,Constrained 00df 0337 | 7 | Declare_Variable Array 00e0 00d9 | | Load_Top At_Offset_1 00e1 e010 | | Load 0x0,0x10 00e2 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00e3 1b22 | " | Execute Package,Field_Read,Field_Number 0x22 00e4 0119 | | Execute Any,Check_In_Formal_Type 00e5 4801 |H | Short_Literal 0x1 00e6 00da | | Load_Top At_Offset_2 00e7 01d6 | | Execute Vector,Field_Write 00e8 e010 | | Load 0x0,0x10 00e9 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00ea 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00eb 0337 | 7 | Declare_Variable Array 00ec 00d8 | | Load_Top At_Offset_0 00ed 0335 | 5 | Declare_Variable Array,Duplicate 00ee 00cd | | Action Spare6_Action 00ef 4801 |H | Short_Literal 0x1 00f0 4800 |H | Short_Literal 0x0 00f1 00da | | Load_Top At_Offset_2 00f2 01d6 | | Execute Vector,Field_Write 00f3 4801 |H | Short_Literal 0x1 00f4 4801 |H | Short_Literal 0x1 00f5 00da | | Load_Top At_Offset_2 00f6 01d6 | | Execute Vector,Field_Write 00f7 4801 |H | Short_Literal 0x1 00f8 4802 |H | Short_Literal 0x2 00f9 00da | | Load_Top At_Offset_2 00fa 01d6 | | Execute Vector,Field_Write 00fb 4801 |H | Short_Literal 0x1 00fc 4803 |H | Short_Literal 0x3 00fd 00da | | Load_Top At_Offset_2 00fe 01d6 | | Execute Vector,Field_Write 00ff 4801 |H | Short_Literal 0x1 0100 4804 |H | Short_Literal 0x4 0101 00da | | Load_Top At_Offset_2 0102 01d6 | | Execute Vector,Field_Write 0103 4801 |H | Short_Literal 0x1 0104 4805 |H | Short_Literal 0x5 0105 00da | | Load_Top At_Offset_2 0106 01d6 | | Execute Vector,Field_Write 0107 4801 |H | Short_Literal 0x1 0108 4806 |H | Short_Literal 0x6 0109 00da | | Load_Top At_Offset_2 010a 01d6 | | Execute Vector,Field_Write 010b 4801 |H | Short_Literal 0x1 010c 4807 |H | Short_Literal 0x7 010d 00da | | Load_Top At_Offset_2 010e 01d6 | | Execute Vector,Field_Write 010f 4801 |H | Short_Literal 0x1 0110 4808 |H | Short_Literal 0x8 0111 00da | | Load_Top At_Offset_2 0112 01d6 | | Execute Vector,Field_Write 0113 4801 |H | Short_Literal 0x1 0114 4809 |H | Short_Literal 0x9 0115 00da | | Load_Top At_Offset_2 0116 01d6 | | Execute Vector,Field_Write 0117 4801 |H | Short_Literal 0x1 0118 480a |H | Short_Literal 0xa 0119 00da | | Load_Top At_Offset_2 011a 01d6 | | Execute Vector,Field_Write 011b 4801 |H | Short_Literal 0x1 011c 480b |H | Short_Literal 0xb 011d 00da | | Load_Top At_Offset_2 011e 01d6 | | Execute Vector,Field_Write 011f 4801 |H | Short_Literal 0x1 0120 480c |H | Short_Literal 0xc 0121 00da | | Load_Top At_Offset_2 0122 01d6 | | Execute Vector,Field_Write 0123 4801 |H | Short_Literal 0x1 0124 480d |H | Short_Literal 0xd 0125 00da | | Load_Top At_Offset_2 0126 01d6 | | Execute Vector,Field_Write 0127 00d9 | | Load_Top At_Offset_1 0128 01d4 | | Execute Vector,Structure_Write 0129 e010 | | Load 0x0,0x10 012a 1b14 | | Execute Package,Field_Read,Field_Number 0x14 012b 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 012c 02c7 | | Declare_Variable Any 012d e210 | | Load 0x1,0x10 012e 4801 |H | Short_Literal 0x1 012f 4802 |H | Short_Literal 0x2 0130 e010 | | Load 0x0,0x10 0131 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0132 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0133 035b | [ | Declare_Type Array,Constrained 0134 0337 | 7 | Declare_Variable Array 0135 e210 | | Load 0x1,0x10 0136 0092 015e | ^| Action Push_String_Extended,0x15e ; "Assembly" 0138 e010 | | Load 0x0,0x10 0139 1b11 | | Execute Package,Field_Read,Field_Number 0x11 013a 180e | | Execute Package,Field_Execute,Field_Number 0xe 013b e010 | | Load 0x0,0x10 013c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 013d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 013e 0119 | | Execute Any,Check_In_Formal_Type 013f 4801 |H | Short_Literal 0x1 0140 00da | | Load_Top At_Offset_2 0141 01d6 | | Execute Vector,Field_Write 0142 e210 | | Load 0x1,0x10 0143 0092 015f | _| Action Push_String_Extended,0x15f ; "C" 0145 e010 | | Load 0x0,0x10 0146 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0147 180e | | Execute Package,Field_Execute,Field_Number 0xe 0148 e010 | | Load 0x0,0x10 0149 1b11 | | Execute Package,Field_Read,Field_Number 0x11 014a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 014b 0119 | | Execute Any,Check_In_Formal_Type 014c 4802 |H | Short_Literal 0x2 014d 00da | | Load_Top At_Offset_2 014e 01d6 | | Execute Vector,Field_Write 014f e408 | | Load 0x2,0x8 0150 e409 | | Load 0x2,0x9 0151 e010 | | Load 0x0,0x10 0152 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0153 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0154 a40a | | Store_Unchecked 0x2,0xa 0155 BODY_0008: 0155 00d8 | | Load_Top At_Offset_0 0156 00ca | | Action Exit_Nullary_Function 0157 ; -------------------------------------------------------------------------------------- 0157 ; STRING TABLE 0157 ; -------------------------------------------------------------------------------------- 0157 0014 | | .STRTAB 0x0014->0x0161 ; "Enumeration_Type" 0158 0022 | " | .STRTAB 0x0022->0x0169 ; "Immediate" 0159 0029 | ) | .STRTAB 0x0029->0x016d ; "Deferred" 015a 002f | / | .STRTAB 0x002f->0x0171 ; "Enumeration_value" 015b 003e | > | .STRTAB 0x003e->0x017a ; "String" 015c 0042 | B | .STRTAB 0x0042->0x017d ; "String_Literal" 015d 004e | N | .STRTAB 0x004e->0x0184 ; "Sample_Pragma" 015e 0059 | Y | .STRTAB 0x0059->0x018a ; "Assembly" 015f 005f | _ | .STRTAB 0x005f->0x018e ; "C" 0160 005e | ^ | .STREND 0x005e->0x018f 0161 456e 756d |Enum| .STRTAB_STRINGS 018f 0000 | | .XXX[0x1] 0190 ; -------------------------------------------------------------------------------------- 0190 ; Debug Table 0190 ; -------------------------------------------------------------------------------------- 0190 0004 0003 | | .DEBUG4 0x0004,0x0003,0x2f98,0x0000,0x0001,0x0001 0196 000b 019a | | .DBG4T 0x000b,0x019a,0x0002,0x0000 019a ; -------------------------------------------------------------------------------------- 019a ; Debug chain 019a ; -------------------------------------------------------------------------------------- 019a 0009 0001 | | .DBGLEN 0x0009,0x0001 019c 000b 003b | ;| .DBGLNO 0x000b,0x003b,0x004f,0x0083,0x0097,0x00b6,0x00d9,0x00e8,0x0129,0x0155 01a6 0000 0000 | | .BLANK 0000[0x5a]