|
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_2bbc31
└─⟦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 0148 | H | .CONST 0x0148 ; 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 0041 | A | .CONST 0x0041 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001e | | .CONST 0x001e ; Number of locals 000b INIT_0008: 000b 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated 000d 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 000f 00bf | | Action Accept_Activation 0010 4800 |H | Short_Literal 0x0 0011 4802 |H | Short_Literal 0x2 0012 029f 0073 | s| Declare_Subprogram INIT_0070,For_Call 0014 03fd | | Declare_Type Discrete,Defined 0015 00d8 | | Load_Top At_Offset_0 0016 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0017 e001 | | Load 0x0,0x1 0018 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0019 1b0e | | Execute Package,Field_Read,Field_Number 0xe 001a 02ff | | Declare_Variable Variant_Record 001b 00d8 | | Load_Top At_Offset_0 001c 1c00 | | Execute_Immediate Run_Utility,0x0 001d e001 | | Load 0x0,0x1 001e 1b20 | | Execute Package,Field_Read,Field_Number 0x20 001f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0020 02ff | | Declare_Variable Variant_Record 0021 00d8 | | Load_Top At_Offset_0 0022 1c00 | | Execute_Immediate Run_Utility,0x0 0023 029d 009b | | Declare_Subprogram INIT_0098,For_Outer_Call 0025 e001 | | Load 0x0,0x1 0026 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0027 1913 | | Execute Package,Field_Reference,Field_Number 0x13 0028 00c6 | | Action Check_Subprogram_Elaborated 0029 1d13 | | Execute_Immediate Reference_Lex_1,0x13 002a e002 | | Load 0x0,0x2 002b e003 | | Load 0x0,0x3 002c 4800 |H | Short_Literal 0x0 002d 0007 | | Action Break_Optional 002e 029d 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call 0030 e001 | | Load 0x0,0x1 0031 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0032 191c | | Execute Package,Field_Reference,Field_Number 0x1c 0033 00c6 | | Action Check_Subprogram_Elaborated 0034 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0035 e004 | | Load 0x0,0x4 0036 e005 | | Load 0x0,0x5 0037 4800 |H | Short_Literal 0x0 0038 0007 | | Action Break_Optional 0039 029d 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call 003b 029d 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call 003d 1d0d | | Execute_Immediate Reference_Lex_1,0xd 003e 00c7 | | Action Elaborate_Subprogram 003f 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0040 00c7 | | Action Elaborate_Subprogram 0041 BODY_0008: 0041 00bc | | Action Signal_Activated 0042 00bb | | Action Signal_Completion 0043 0000 0000 | | .BLANK 0000[0x5] 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 004b | K | .CONST 0x004b ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0001 | | .CONST 0x0001 ; Number of locals 004b BODY_0048: 004b INIT_0048: 004b e006 | | Load 0x0,0x6 004c 1814 | | Execute Package,Field_Execute,Field_Number 0x14 004d e007 | | Load 0x0,0x7 004e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 004f e008 | | Load 0x0,0x8 0050 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0051 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0052 0000 0000 | | .BLANK 0000[0x6] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 005c | \ | .CONST 0x005c ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0002 | | .CONST 0x0002 ; Number of locals 005b INIT_0058: 005b 00e1 | | Load_Encached Boolean_Cache 005c BODY_0058: 005c e210 | | Load 0x1,0x10 005d 4602 |F | Jump_Case 0x3 005e 7805 |x | Jump 0x64 ; case 0x0 005f 7807 |x | Jump 0x67 ; case 0x1 0060 7800 |x | Jump 0x61 ; case 0x2 0061 4800 |H | Short_Literal 0x0 0062 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0063 7805 |x | Jump 0x69 0064 821d | | Call 0x1,0x1d 0065 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0066 7802 |x | Jump 0x69 0067 821e | | Call 0x1,0x1e 0068 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0069 00d8 | | Load_Top At_Offset_0 006a 00ca | | Action Exit_Nullary_Function 006b 0000 0000 | | .BLANK 0000[0x5] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0073 | s | .CONST 0x0073 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0001 | | .CONST 0x0001 ; Number of locals 0073 BODY_0070: 0073 INIT_0070: 0073 4607 |F | Jump_Case 0x8 0074 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0075 7806 |x | Jump 0x7c ; case 0x1 0076 7809 |x | Jump 0x80 ; case 0x2 0077 780d |x | Jump 0x85 ; case 0x3 0078 7810 |x | Jump 0x89 ; case 0x4 0079 7811 |x | Jump 0x8b ; case 0x5 007a 7812 |x | Jump 0x8d ; case 0x6 007b 7815 |x | Jump 0x91 ; case 0x7 007c 00da | | Load_Top At_Offset_2 007d 0091 0125 | %| Action Push_String_Extended_Indexed,0x125 ; "CONTEXTE0" 007f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0080 00db | | Load_Top At_Offset_3 0081 00db | | Load_Top At_Offset_3 0082 00e0 | | Load_Encached Standard_Cache 0083 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0084 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0085 00da | | Load_Top At_Offset_2 0086 00e0 | | Load_Encached Standard_Cache 0087 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0088 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0089 00db | | Load_Top At_Offset_3 008a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 008b 00db | | Load_Top At_Offset_3 008c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 008d e20f | | Load 0x1,0xf 008e 00dc | | Load_Top At_Offset_4 008f 0267 | g | Execute Discrete,Predecessor 0090 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0091 e20f | | Load 0x1,0xf 0092 00dc | | Load_Top At_Offset_4 0093 0268 | h | Execute Discrete,Successor 0094 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 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 00da | | Load_Top At_Offset_2 009c e006 | | Load 0x0,0x6 009d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 009e e5fe | | Load 0x2,-0x2 009f e007 | | Load 0x0,0x7 00a0 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00a1 027d | } | Execute Discrete,Greater 00a2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00a3 0000 0000 | | .BLANK 0000[0x5] 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 00da | | Load_Top At_Offset_2 00ac e001 | | Load 0x0,0x1 00ad 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00ae 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00af e006 | | Load 0x0,0x6 00b0 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00b1 00db | | Load_Top At_Offset_3 00b2 e001 | | Load 0x0,0x1 00b3 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00b4 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00b5 e007 | | Load 0x0,0x7 00b6 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00b7 0272 | r | Execute Discrete,Minus 00b8 e5fe | | Load 0x2,-0x2 00b9 e001 | | Load 0x0,0x1 00ba 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00bb 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00bc e006 | | Load 0x0,0x6 00bd 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00be e5fe | | Load 0x2,-0x2 00bf e001 | | Load 0x0,0x1 00c0 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00c1 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00c2 e007 | | Load 0x0,0x7 00c3 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00c4 0272 | r | Execute Discrete,Minus 00c5 027c | | | Execute Discrete,Less 00c6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00c7 0000 | | .XXX[0x1] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cb | | .CONST 0x00cb ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0001 | | .CONST 0x0001 ; Number of locals 00cb BODY_00c8: 00cb INIT_00c8: 00cb e006 | | Load 0x0,0x6 00cc 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00cd e006 | | Load 0x0,0x6 00ce 1a0f | | Execute Package,Field_Write,Field_Number 0xf 00cf e007 | | Load 0x0,0x7 00d0 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00d1 e007 | | Load 0x0,0x7 00d2 1a10 | | Execute Package,Field_Write,Field_Number 0x10 00d3 6038 |`8 | Indirect_Literal Discrete,0x10c,{0x00000000, 0x000007d0} 00d4 e007 | | Load 0x0,0x7 00d5 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00d6 e006 | | Load 0x0,0x6 00d7 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00d8 1d14 | | Execute_Immediate Reference_Lex_1,0x14 00d9 1d15 | | Execute_Immediate Reference_Lex_1,0x15 00da e001 | | Load 0x0,0x1 00db 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 00dc 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00dd e211 | | Load 0x1,0x11 00de 016d | m | Execute Variant_Record,Structure_Write 00df e211 | | Load 0x1,0x11 00e0 e001 | | Load 0x0,0x1 00e1 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 00e2 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00e3 6804 |h | Jump_Zero 0xe8 00e4 4801 |H | Short_Literal 0x1 00e5 a210 | | Store_Unchecked 0x1,0x10 00e6 4801 |H | Short_Literal 0x1 00e7 00ca | | Action Exit_Nullary_Function 00e8 e211 | | Load 0x1,0x11 00e9 e001 | | Load 0x0,0x1 00ea 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 00eb 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00ec 701a |p | Jump_Nonzero 0x107 00ed e211 | | Load 0x1,0x11 00ee 1d19 | | Execute_Immediate Reference_Lex_1,0x19 00ef 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 00f0 e001 | | Load 0x0,0x1 00f1 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 00f2 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00f3 e212 | | Load 0x1,0x12 00f4 016d | m | Execute Variant_Record,Structure_Write 00f5 0092 0128 | (| Action Push_String_Extended,0x128 ; " MEILLEUR COUPLE ACTUEL " 00f7 e001 | | Load 0x0,0x1 00f8 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00f9 e212 | | Load 0x1,0x12 00fa e001 | | Load 0x0,0x1 00fb 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00fc 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00fd e006 | | Load 0x0,0x6 00fe 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00ff e212 | | Load 0x1,0x12 0100 e001 | | Load 0x0,0x1 0101 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0102 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0103 e007 | | Load 0x0,0x7 0104 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0105 4801 |H | Short_Literal 0x1 0106 00ca | | Action Exit_Nullary_Function 0107 4800 |H | Short_Literal 0x0 0108 00ca | | Action Exit_Nullary_Function 0109 0000 0000 | | .XXX[0x3] 010b 0000 | | 010c 0000 0000 | | .LITERAL {0x00000000, 0x000007d0} 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0113 | | .CONST 0x0113 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0001 | | .CONST 0x0001 ; Number of locals 0113 BODY_0110: 0113 INIT_0110: 0113 e008 | | Load 0x0,0x8 0114 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0115 7004 |p | Jump_Nonzero 0x11a 0116 e008 | | Load 0x0,0x8 0117 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0118 4801 |H | Short_Literal 0x1 0119 00ca | | Action Exit_Nullary_Function 011a e008 | | Load 0x0,0x8 011b 1812 | | Execute Package,Field_Execute,Field_Number 0x12 011c 6806 |h | Jump_Zero 0x123 011d e008 | | Load 0x0,0x8 011e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 011f e008 | | Load 0x0,0x8 0120 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0121 4800 |H | Short_Literal 0x0 0122 00ca | | Action Exit_Nullary_Function 0123 4800 |H | Short_Literal 0x0 0124 00ca | | Action Exit_Nullary_Function 0125 ; -------------------------------------------------------------------------------------- 0125 ; STRING TABLE 0125 ; -------------------------------------------------------------------------------------- 0125 000a | | .STRTAB 0x000a->0x012a ; "CONTEXTE0" 0126 0011 | | .STRTAB 0x0011->0x012e ; "CONTEXTE1" 0127 0018 | | .STRTAB 0x0018->0x0133 ; "CONTEXTE2" 0128 001f | | .STRTAB 0x001f->0x0137 ; " MEILLEUR COUPLE ACTUEL " 0129 0035 | 5 | .STREND 0x0035->0x0143 012a 434f 4e54 |CONT| .STRTAB_STRINGS 0144 0000 0000 | | .BLANK 0000[0x4] 0148 ; -------------------------------------------------------------------------------------- 0148 ; Debug Table 0148 ; -------------------------------------------------------------------------------------- 0148 0004 0001 | | .DEBUG4 0x0004,0x0001,0x8a0e,0x0000,0x0001,0x0009 014e 000b 0172 | r| .DBG4T 0x000b,0x0172,0x8000,0x0000 0152 0010 0176 | v| .DBG4T 0x0010,0x0176,0x8000,0x0000 0156 004b 0184 | K | .DBG4T 0x004b,0x0184,0x0001,0x0000 015a 005b 0189 | [ | .DBG4T 0x005b,0x0189,0x0002,0x4000 015e 0073 0000 | s | .DBG4T 0x0073,0x0000,0x0005,0x0000 0162 009b 0196 | | .DBG4T 0x009b,0x0196,0x0002,0x0000 0166 00ab 0199 | | .DBG4T 0x00ab,0x0199,0x0002,0x0000 016a 00cb 019c | | .DBG4T 0x00cb,0x019c,0x0002,0x0000 016e 0113 01ab | | .DBG4T 0x0113,0x01ab,0x0002,0x0000 0172 ; -------------------------------------------------------------------------------------- 0172 ; Debug chain 0172 ; -------------------------------------------------------------------------------------- 0172 0002 0000 | | .DBGLEN 0x0002,0x0000 0174 000b 000d | | .DBGLNO 0x000b,0x000d 0176 ; -------------------------------------------------------------------------------------- 0176 ; Debug chain 0176 ; -------------------------------------------------------------------------------------- 0176 000c 0000 | | .DBGLEN 0x000c,0x0000 0178 0010 0015 | | .DBGLNO 0x0010,0x0015,0x0017,0x001d,0x0023,0x0025,0x002e,0x0030,0x0039,0x003b,0x003d,0x003f 0184 ; -------------------------------------------------------------------------------------- 0184 ; Debug chain 0184 ; -------------------------------------------------------------------------------------- 0184 0000 0003 | | .DBGLEN 0x0000,0x0003 0186 004b 004d | K M| .DBGLNO 0x004b,0x004d,0x004f 0189 ; -------------------------------------------------------------------------------------- 0189 ; Debug chain 0189 ; -------------------------------------------------------------------------------------- 0189 0001 0005 | | .DBGLEN 0x0001,0x0005 018b 005b 005c | [ \| .DBGLNO 0x005b,0x005c,0x0061,0x0064,0x0067,0x0069 0191 0001 0004 | | .XXX[0x5] 0193 0002 0003 | | 0195 0005 | | 0196 ; -------------------------------------------------------------------------------------- 0196 ; Debug chain 0196 ; -------------------------------------------------------------------------------------- 0196 0000 0001 | | .DBGLEN 0x0000,0x0001 0198 009b | | .DBGLNO 0x009b 0199 ; -------------------------------------------------------------------------------------- 0199 ; Debug chain 0199 ; -------------------------------------------------------------------------------------- 0199 0000 0001 | | .DBGLEN 0x0000,0x0001 019b 00ab | | .DBGLNO 0x00ab 019c ; -------------------------------------------------------------------------------------- 019c ; Debug chain 019c ; -------------------------------------------------------------------------------------- 019c 0000 000d | | .DBGLEN 0x0000,0x000d 019e 00cb 00cf | | .DBGLNO 0x00cb,0x00cf,0x00d3,0x00df,0x00e4,0x00e6,0x00e8,0x00ed,0x00f5,0x00f9,0x00ff,0x0105,0x0107 01ab ; -------------------------------------------------------------------------------------- 01ab ; Debug chain 01ab ; -------------------------------------------------------------------------------------- 01ab 0000 0008 | | .DBGLEN 0x0000,0x0008 01ad 0113 0116 | | .DBGLNO 0x0113,0x0116,0x0118,0x011a,0x011d,0x011f,0x0121,0x0123 01b5 0000 0000 | | .BLANK 0000[0x4b]